anim.tex

\documentclass{article}
\usepackage[dvipsnames,svgnames]{pstricks}
\usepackage{pst-solides3d,pstricks-add}
\pagestyle{empty}
 
\begin{document}
 
\psset{unit=0.75}
 
\multido{\r=70+-1}{55}{
\begin{pspicture}(-6,-3)(6,8)
\psset{%
    lightsrc=50 20 20,
    viewpoint=70 30 30,
    Decran=70
    }
\pstVerb{%
    /ry \r\space sin neg def
    /rz \r\space cos neg def
    }
\psSolid[%
    object=grille,
    base=-6 6 0 6,
    RotX=-\r\space,
    fillcolor=lightgray,
    linecolor=black,
    linewidth=0.01
    ]
\psSolid[%
    object=grille,
    base=-6 6 -6 6,
    fillcolor=lightgray,
    linecolor=black,
    linewidth=0.01
    ]
\psSolid[%
    object=grille,
    base=-6 6 -6 0,
    RotX=-\r\space,
    fillcolor=lightgray,
    linecolor=black,
    linewidth=0.01
    ]
\axesIIID(0,0,0)(7,7,7)
\deffunction[algebraic]{fonction}(x){x}{}{-x^2+4}
\psProjette[%
   object=courbeR2,
   range=-2 2,
   linewidth=.1,
   linecolor=blue,
   normale=0 ry rz,
   function=fonction](0,0,0)
\psProjette[%
   object=courbeR2,
   range=-2 2,
   normale=0 -1 0,
   linewidth=.1,
   linecolor=green,
   function=fonction](0,0,0)
\end{pspicture}
\newpage
}
 
\end{document}