\documentclass[a4paper]{article} \usepackage{pst-solides3d} \pagestyle{empty} \begin{document} %@AUTEUR: Manuel Luque %@DATE: 19 mars 2008 % Ajustement de code à partir d'une intention de Maxime Chupin. \psset{SphericalCoor=true,viewpoint=200 20 20,Decran=80,linewidth=0.1pt} \begin{pspicture}(-6,-6)(6,6) \psframe(-6,-6)(6,6) \codejps{ %/solidgrid false def /g { 3 dict begin /t exch def 0.5 0.707 Sin mul t mul t Cos mul % 0.5*sin(0.707)*t*cos(t) 0.5 0.707 Sin mul t mul t Sin mul % 0.5*sin(0.707)*t*sin(t) -0.5 t mul 0.707 Cos mul % -0.5*t*cos(0.707) end } def /g' { % dérivée première 3 dict begin /t exch def 0.5 0.707 Sin mul t Cos t t Sin mul sub mul % 0.5*sin(0.707)*(cos(t)-t*sin(t)) 0.5 0.707 Sin mul t Sin t t Cos mul add mul % 0.5*sin(0.707)*(sin(t)+t*cos(t)) -0.5 0.707 Sin mul % -0.5*sin(0.707) end } def /g'' { % dérivée seconde 3 dict begin /t exch def -0.5 0.707 Sin mul t mul t Cos mul % -0.5*sin(0.707)*t*cos(t) 0.5 0.707 Sin mul t Cos 2 mul t t Sin mul sub mul % 0.5*sin(0.707)*(2*cos(t)-t*sin(t)) 0 % 0 end } def /spirale{ % t_min t_max rayon_tube [resolution] -25.4 25.4 (g) .4 [1200 6] newtube dup [.1 .8] solidputhuecolors} def /Cone1{ -10 8.543256973 0 [36 72] newconecreux dup (White) outputcolors} def /Cone2{ 10 8.543256973 0 [36 72] newconecreux dup (White) outputcolors} def /Cone Cone1 Cone2 solidfuz def Cone spirale solidfuz drawsolid** } \end{pspicture} \end{document}