Retour

Source de Fig165bis.tex

Fichier TeX
\begin{center}
\begin{pspicture}(-6,-4.2)(6,4)
\psclip{\pscircle{4}}
\multido{\rTheta=70+-20}{8}{%
    \parametricplot[plotpoints=3600]{-.16}{0.16}{%
        /R 4 def
        /T 1 def
        /a 6.28 R mul def
        /X a t mul T div def
        /Angle \rTheta\space 360 t mul T div add def
        Angle 89 gt {/Angle 89 def} if
        Angle -89 lt {/Angle -89 def} if
        /Y X Angle dup sin exch cos div mul def
        X Y}
        \psline[linestyle=dashed](4;\rTheta)(-4;\rTheta)
        }
\endpsclip
\psarc[arrowsize=0.2,arrowinset=0.1]{->}(0,0){4.5}{220}{240}
\psframe[linestyle=none,fillstyle=hlines](-6,-4.2)(6,-4)
\psline[arrowsize=0.2,arrowinset=0.1]{->}(-2,0)
\psline(-6,-4)(6,-4)
\psline(0,-4)(0,4)
\end{pspicture}
\end{center}