lissa.tex

\documentclass[a4paper]{article}
\usepackage{pst-solides3d}
\pagestyle{empty}
\begin{document}
\begin{pspicture}(-6,-6)(6,6)
\psset{SphericalCoor=true,viewpoint=60 0 20,Decran=40,linewidth=0.1pt,opacity=0.9}
\psset{solidmemory}
\psSolid[object=cylindrecreux,r=4,h=10,ngrid=72 72,
 fillcolor=white,
 incolor=white,
 action=none,
 name=C1](0,0,-5)%
\defFunction[algebraic]{F}(t){t}{}{3/16*(2*t*t-16)}
\psSolid[object=ruban,h=12,
   RotX=-90,
   RotZ=-45,
   resolution=100,
   base=-5 5 {F} CourbeR2+,ngrid=64,
   fillcolor=blue!20!green!30,
   incolor=blue!10,
   name=P1,
   action=none](-4,-4,0)
\defFunction[algebraic]{g}(t)
   {4*cos(t)}
   {4*sin(t)}
   {3*sin(2*t)}
\defFunction[algebraic]{g'}(t)
   {-4*sin(t)}
   {4*cos(t)}
   {6*cos(2*t)}
\defFunction[algebraic]{g''}(t)
   {-4*cos(t)}
   {-4*sin(t)}
   {-12*sin(2*t)}
\psSolid[object=courbe,
   range=0 6.28,
   ngrid=200 16,
   fillcolor=orange,
   function=g,
   name=A1,
   action=none,
   r=0.25]
\psSolid[object=fusion,
   base=A1 P1 C1,
   file=lissatest,
   action=writesolid]
\composeSolid
\end{pspicture}
\end{document}