\documentclass[a4paper]{article} \usepackage{pst-solides3d} \pagestyle{empty} \begin{document} %@AUTEUR: Juergen Gilg %@DATE: 28 février 2008 \psset{lightsrc=7 7 8,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 2 t mul Cos a mul %#rpn# a*Cos(3*t) 2 t mul Sin a mul %#rpn# a*Sin(2*t) 1 t mul Sin b mul %#rpn# b*Sin(7*t) end } def % /g' { 3 dict begin /t exch def 2 t mul Sin a mul 2 mul neg %#rpn# -3*a*Sin(3*t) 2 t mul Cos a mul 2 mul %#rpn# 2*a*Cos(2*t) 1 t mul Cos b mul 1 mul %#rpn# 7*b*Cos(7*t) end } def % /g'' { 3 dict begin /t exch def 2 t mul Cos a mul 4 mul neg %#rpn# -9*a*Cos(3*t) 2 t mul Sin a mul 4 mul neg %#rpn# -4*a*Sin(2*t) 1 t mul Sin b mul 1 mul neg %#rpn# -49*b*Sin(7*t) end } def % .01 setlinewidth /aretescachees false def GetCamPos setlightsrc % {0 2 pi mul (g) .15 [600 18] newtube} exec dup (Gray7) outputcolors drawsolid** } \end{pspicture} \end{document}