t01.tex

\documentclass[a4paper]{article}
\usepackage{pst-solides3d}
\pagestyle{empty}
\begin{document}
 
%@AUTEUR: Juergen Gilg
%@DATE: 23 février 2008
 
\psset{lightsrc=5 7 8,SphericalCoor=true,viewpoint=50 20 20,Decran=50}
\begin{pspicture}(-8,-8)(8,8)
\psset{unit=4}
\codejps{
/Gray1 {0.1 setgray} def
/Gray2 {0.2 setgray} def
/Gray3 {0.3 setgray} def
/Gray4 {0.4 setgray} def
/Gray5 {0.5 setgray} def
/Gray6 {0.6 setgray} def
/Gray7 {0.7 setgray} def
/Gray8 {0.8 setgray} def
/Gray9 {0.9 setgray} def
/a 1 def
/b 1 def
%
/g {
3 dict begin
   /t exch def
4 t mul Cos a mul   %#rpn# a*Cos(4*t)
3 t mul Sin a mul   %#rpn# a*Sin(3*t)
5 t mul Sin b mul   %#rpn# b*Sin(5*t)
end
} def
%
/g' {
3 dict begin
  /t exch def
4 t mul Sin a mul 4 mul neg %#rpn# -4*a*Sin(4*t)
3 t mul Cos a mul 3 mul     %#rpn# 3*a*Cos(3*t)
5 t mul Cos b mul 5 mul     %#rpn# 5*b*Cos(5*t)
end
} def
%
/g'' {
3 dict begin
   /t exch def
4 t mul Cos a mul 16 mul neg    %#rpn# -16*a*Cos(4*t)
3 t mul Sin a mul 9 mul neg     %#rpn# -9*a*Sin(3*t)
5 t mul Sin b mul 25 mul neg    %#rpn# -25*b*Sin(5*t)
end
} def
%
.01 setlinewidth
/aretescachees false def
GetCamPos setlightsrc
%
{2 pi mul neg 0 (g) .25 [360 36] newtube} exec
dup (Gray7) outputcolors
drawsolid**
}
\end{pspicture}
 
\end{document}