1 files changed, 162 insertions, 0 deletions
diff --git a/macros/latex/contrib/lapdf/arcs.tex b/macros/latex/contrib/lapdf/arcs.tex
new file mode 100644
index 0000000000..e61adb9efe
--- /dev/null
+++ b/macros/latex/contrib/lapdf/arcs.tex
@@ -0,0 +1,162 @@
+\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}