anim.tex

\documentclass[11pt]{article}
 
 \usepackage{pst-solides3d}
\usepackage{pst-3dplot}
%\usepackage{transparence}
%\usepackage{caption}
 
\usepackage[margin=1cm]{geometry}
 
\pagestyle{empty}
 
\SpecialCoor
 
\begin{document}
 
 
\psset{linewidth=.5pt}
 
 
 
 
\multido{\n=-4.86+.54,\i=0+10}{9}{%
  \begin{pspicture}(-7,-8)(7,8)
  \psset[pst-solides3d]{SphericalCoor,viewpoint=55 100 30,Decran=60,%
          lightsrc=20 10 25}
        \psset{solidmemory}
        \psSolid[object=grille, base=-3 3 -3 3,ngrid=30 30,
        linewidth=.2\pslinewidth,
        fillcolor=lightgray!50,
        action=none,name=spl1](0,0,\n)
        \defFunction{parhy}(u,v){u}{v}{u v mul .6 mul}
        \psSolid[object=surfaceparametree,base=-3 3 -3 3,
        fillcolor=yellow!50,incolor=blue!50,
        function=parhy,linewidth=.2\pslinewidth,
         ngrid=30 30,
        action=none,
        name=spl2]
        \defFunction{fu1}(t){t}{\n \space .6 div t div}{\n}
        \defFunction{fu1'}(t){1}{\n \space -.6 div t dup mul div}{\n}
        \psSolid[object=courbe,range=-3 \n \space 1.8 div,
        r=0.045,
        ngrid=150 8,
        fillcolor=blue,action=none,
        opacity=.6,
        function=fu1,
        name=crb1]
        \psSolid[object=courbe,range=\n \space -1.8 div 3,
        r=0.045,
        ngrid=150 8,
        fillcolor=blue,action=none,
        opacity=.6,
        function=fu1,
        name=crb2]
        \psSolid[object=fusion,
        base=spl1 spl2 crb1 crb2,
        RotZ=\i,
        opacity=.6,
        linewidth=.01,
        action=draw**,
        name=inters]%
        \composeSolid
      \end{pspicture}
    \newpage}
  \begin{pspicture}(-7,-8)(7,8)
  \psset[pst-solides3d]{SphericalCoor,viewpoint=55 100 30,Decran=60,%
          lightsrc=20 10 25}
        \psset{solidmemory}
        \psSolid[object=grille, base=-3 3 -3 3,ngrid=30 30,
        linewidth=.2\pslinewidth,
        fillcolor=lightgray!50,
        action=none,name=spl1](0,0,0.)
        \defFunction{parhy}(u,v){u}{v}{u v mul .6 mul}
        \psSolid[object=surfaceparametree,base=-3 3 -3 3,
        fillcolor=yellow!50,incolor=blue!50,
        function=parhy,linewidth=.2\pslinewidth,
         ngrid=30 30,
        action=none,
        name=spl2]        
        \defFunction{fu1}(t){t}{0}{0.0}
        \defFunction{fu1'}(t){1}{0}{0.0}
        \defFunction{fu2}(t){0}{t}{0.0}
        \defFunction{fu2'}(t){0}{1}{0.0}
        \psSolid[object=courbe,range=-3 3,
        r=0.045,
        ngrid=10 8,
        fillcolor=blue,action=none,
        opacity=.6,
        function=fu1,
        name=crb1]
        \psSolid[object=courbe,range=-3 3,
        r=0.045,
        ngrid=10 8,
        fillcolor=blue,action=none,
        opacity=.6,
        function=fu2,
        name=crb2]
        \psSolid[object=fusion,
        base=spl1 spl2 crb1 crb2,
        RotZ=90,
        opacity=.6,
        linewidth=.01,
        action=draw**,
        name=inters]%
        \composeSolid
      \end{pspicture}
      \newpage
      \multido{\n=.54+.54,\i=100+10}{9}{%
  \begin{pspicture}(-7,-8)(7,8)
  \psset[pst-solides3d]{SphericalCoor,viewpoint=55 100 30,Decran=60,%
          lightsrc=20 10 25}
        \psset{solidmemory}
        \psSolid[object=grille, base=-3 3 -3 3,ngrid=30 30,
        linewidth=.2\pslinewidth,
        fillcolor=lightgray!50,
        action=none,name=spl1](0,0,\n)
        \defFunction{parhy}(u,v){u}{v}{u v mul .6 mul}
        \psSolid[object=surfaceparametree,base=-3 3 -3 3,
        fillcolor=yellow!50,incolor=blue!50,
        function=parhy,linewidth=.2\pslinewidth,
         ngrid=30 30,
        action=none,
        name=spl2]
        \defFunction{fu1}(t){t}{\n \space .6 div t div}{\n}
        \defFunction{fu1'}(t){1}{\n \space -.6 div t dup mul div}{\n}
        \psSolid[object=courbe,range=-3 \n \space -1.8 div,
        r=0.045,
        ngrid=150 8,
        fillcolor=blue,action=none,
        opacity=.6,
        function=fu1,
        name=crb1]
        \psSolid[object=courbe,range=\n \space 1.8 div 3,
        r=0.045,
        ngrid=150 8,
        fillcolor=blue,action=none,
        opacity=.6,
        function=fu1,
        name=crb2]
        \psSolid[object=fusion,
        base=spl1 spl2 crb1 crb2,
        RotZ=\i,
        opacity=.6,
        linewidth=.01,
        action=draw**,
        name=inters]%
        \composeSolid
      \end{pspicture}
    \newpage}
 
 
 
\end{document}
 
%%% Local Variables: 
%%% mode: latex
%%% TeX-master: t
%%% End: