\input preamble.tex

\Defnum(\a,-100)
\Defnum(\b,20)
\Defnum(\n,5)
\Defdim(\r,1)

% --------------------------------------------------------------------------
\begin{document}
\unitlength1.125cm

\begin{center}
{\Huge\bf{I. Arc}}
\bigskip

\begin{lapdf}(16,16)(-8,-8)
 \Whilenum{\b<380}{\Stepcol(0,23,4)
  \Arc(\n)(0,0)(\a,\b)(\Np\r) \Stroke
  \Dadd(\r,0.35) \Sub(\a,10) \Add(\b,20) \Add(\n,5)}
\end{lapdf}
\end{center}

\newpage

\begin{center}
{\Huge\bf{II. Sector}}
\bigskip

\begin{lapdf}(16,16)(-8,-8)
 \Resetcol
 \Whilenum{\b<380}{\Stepcol(0,23,4)
 \Sector(\n)(0,0)(\a,\b)(\Np\r)
 \Stroke
 \Dadd(\r,0.35) \Sub(\a,10) \Add(\b,20) \Add(\n,5)}
\end{lapdf}
\end{center}

\newpage

\begin{center}
{\Huge\bf{III. Arcto}}
\bigskip

\begin{lapdf}(16,16)(-8,-8)
 \Setwidth(0.02)
 \Moveto(-5,0)
 \Red
 \Arcto(64)(-5,+5)(+0,+5)(5)
 \Green
 \Arcto(64)(+5,+5)(+5,+0)(5)
 \Blue
 \Arcto(64)(+5,-5)(+0,-5)(5)
 \Cyan
 \Arcto(64)(-5,-5)(-5,+0)(5)

 \Moveto(-2.83,+2.83)
 \Red
 \Arcto(64)(+0,+5.66)(+2.83,+2.83)(4)
 \Green
 \Arcto(64)(+5.66,+0)(+2.83,-2.83)(4)
 \Blue
 \Arcto(64)(+0,-5.66)(-2.83,-2.83)(4)
 \Cyan
 \Arcto(64)(-5.66,+0)(-2.83,+2.83)(4)

 \Moveto(-6,0)
 \Red
 \Arcto(64)(-6,+6)(+0,+6)(2)
 \Green
 \Arcto(64)(+6,+6)(+6,+0)(2)
 \Blue
 \Arcto(64)(+6,-6)(+0,-6)(2)
 \Cyan
 \Arcto(64)(-6,-6)(-6,+0)(2)

 \Moveto(-7,0)
 \Red
 \Arcto(64)(-7,+7)(+0,+7)(3)
 \Green
 \Arcto(64)(+7,+7)(+7,+0)(3)
 \Blue
 \Arcto(64)(+7,-7)(+0,-7)(3)
 \Cyan
 \Arcto(64)(-7,-7)(-7,+0)(3)
\end{lapdf}
\end{center}

\newpage

\begin{center}
{\Huge\bf{IV. Arcto}}
\bigskip

\begin{lapdf}(16,16)(-8,-8)
 \Setwidth(0.02)
 \Black
 \Moveto(-0.5,3.5)
 \Arcto(16)(-0.5,-6)(-3,-6)(2.5)
 \Arcto(16)(-6,-6)(-6,-3)(2.5)
 \Arcto(16)(-6,-0.5)(3,-0.5)(2.5)
 \Arcto(16)(6,-0.5)(6,-3)(2.5)
 \Arcto(16)(6,-6)(3,-6)(2.5)
 \Arcto(16)(0.5,-6)(0.5,3)(2.5)
 \Arcto(16)(0.5,6)(3,6)(2.5)
 \Arcto(16)(6,6)(6,3)(2.5)
 \Arcto(16)(6,0.5)(-3,0.5)(2.5)
 \Arcto(16)(-6,0.5)(-6,3)(2.5)
 \Arcto(16)(-6,6)(-3,6)(2.5)
 \Arcto(16)(-0.5,6)(-0.5,3.5)(2.5)

 \Red
 \Moveto(-2,-1)
 \Arcto(32)(-4,+0)(-2,+1)(1)
 \Arcto(16)(-1.25,+1.25)(-1,+2)(1)
 \Arcto(32)(+0,+4)(+1,+2)(1)
 \Arcto(16)(+1.25,+1.25)(+2,+1)(1)
 \Arcto(32)(+4,+0)(+2,-1)(1)
 \Arcto(16)(+1.25,-1.25)(+1,-2)(1)
 \Arcto(32)(+0,-4)(-1,-2)(1)
 \Arcto(16)(-1.25,-1.25)(-2,-1)(1)

 \Green
 \Moveto(-4,-2)
 \Arcto(32)(-8,+0)(-4,+2)(2)
 \Arcto(16)(-2.5,+2.5)(-2,+4)(2)
 \Arcto(32)(+0,+8)(+2,+4)(2)
 \Arcto(16)(+2.5,+2.5)(+4,+2)(2)
 \Arcto(32)(+8,+0)(+4,-2)(2)
 \Arcto(16)(+2.5,-2.5)(+2,-4)(2)
 \Arcto(32)(+0,-8)(-2,-4)(2)
 \Arcto(16)(-2.5,-2.5)(-4,-2)(2)

 \Blue
 \Moveto(-6,0)
 \Arcto(32)(-6,+6)(+0,+6)(5)
 \Arcto(32)(+6,+6)(+6,+0)(5)
 \Arcto(32)(+6,-6)(+0,-6)(5)
 \Arcto(32)(-6,-6)(-6,+0)(5)

 \Cyan
 \Moveto(-2.83,+2.83)
 \Arcto(32)(+0,+5.66)(+2.83,+2.83)(4)
 \Arcto(32)(+5.66,+0)(+2.83,-2.83)(4)
 \Arcto(32)(+0,-5.66)(-2.83,-2.83)(4)
 \Arcto(32)(-5.66,+0)(-2.83,+2.83)(4)

 \Magenta
 \Moveto(-7,0)
 \Arcto(32)(-7,+7)(+0,+7)(3)
 \Arcto(32)(+7,+7)(+7,+0)(3)
 \Arcto(32)(+7,-7)(+0,-7)(3)
 \Arcto(32)(-7,-7)(-7,+0)(3)

 \Yellow
 \Moveto(-6.5,0)
 \Arcto(32)(-6.5,+6.5)(+0,+6.5)(2.5)
 \Arcto(32)(+6.5,+6.5)(+6.5,+0)(2.5)
 \Arcto(32)(+6.5,-6.5)(+0,-6.5)(2.5)
 \Arcto(32)(-6.5,-6.5)(-6.5,+0)(2.5)
\end{lapdf}
\end{center}
\end{document}
