%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% -*- Mode: Latex -*- %%%%%%%%%%%%%%%%%%%%%%%%%%%%
%% t-poly3.tex --- Test file for PSTricks polygons (`pst-poly')
%%                 Test of various epicycloids
%%
%% Author          : Denis GIROU (CNRS/IDRIS - France) <Denis.Girou@idris.fr>
%% Created the     : 1996
%% Last mod. by    : Denis GIROU (CNRS/IDRIS - France) <Denis.Girou@idris.fr>
%% Last mod. the   : Fri Feb 20 22:54:00 1998
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%

\documentclass{article}

\usepackage[dvips]{pstcol}
\usepackage{pst-poly}
\usepackage[baw,pstricks]{fvrb-ex} % Example environments with `fancyvrb'

\fvset{numbers=left,frame=single} % Example environments with numbers and frame

\textwidth=13cm

\pagestyle{empty}

\begin{document}

\begin{CenterExample}
  \psset{unit=1.4,linewidth=0.001,§HLeµPolyNbSides¶=§HLCBWzµ72¶,§HLCBWzµPolyEpicycloid¶}
  \multido{\i=2+1}{4}{%
    % §HLbµEpicycloid of factor 1 is cardioid and of factor 2 nephroid¶
    \PstPolygon[PolyOffset=§HLCBWzµ\i¶]}
\end{CenterExample}

\fvset{xrightmargin=4.5cm}      % 4.5cm reserved for the graphic
\begin{SideBySideExample}
  % Epicycloid of factor 10
  \PstPolygon[unit=2,linewidth=0.003,
              §HLCBWzµPolyEpicycloid¶,
              PolyNbSides=72,PolyOffset=§HLCBWzµ11¶]
\end{SideBySideExample}

\begin{SideBySideExample}
  % Epicycloid of factor 22
  \PstPolygon[unit=2,linewidth=0.003,
              §HLCBWzµPolyEpicycloid¶,
              PolyNbSides=72,PolyOffset=§HLCBWzµ23¶]
\end{SideBySideExample}

\clearpage
\fvset{xrightmargin=0cm}
\begin{CenterExample}
  \psset{unit=1.9,linewidth=0.001,§HLeµPolyNbSides¶=§HLCBWzµ72¶,§HLCBWzµPolyEpicycloid¶}
  \multido{\i=71+1}{3}{%
    \PstPolygon[PolyOffset=§HLCBWzµ\i¶]}
\end{CenterExample}

\fvset{xrightmargin=4.5cm}      % 4.5cm reserved for the graphic
\begin{SideBySideExample}
  % Epicycloid of factor 100
  \PstPolygon[unit=2,linewidth=0.003,
              §HLCBWzµPolyEpicycloid¶,
              PolyNbSides=72,PolyOffset=§HLCBWzµ101¶]
\end{SideBySideExample}

\begin{SideBySideExample}
  % Epicycloid of factor 153
  \PstPolygon[unit=2,linewidth=0.003,
              §HLCBWzµPolyEpicycloid¶,
              PolyNbSides=72,PolyOffset=§HLCBWzµ154¶]
\end{SideBySideExample}

\end{document}
