t04.tex

\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}