summaryrefslogtreecommitdiff
path: root/macros/latex/contrib/lapdf/colors.tex
diff options
context:
space:
mode:
Diffstat (limited to 'macros/latex/contrib/lapdf/colors.tex')
-rw-r--r--macros/latex/contrib/lapdf/colors.tex72
1 files changed, 72 insertions, 0 deletions
diff --git a/macros/latex/contrib/lapdf/colors.tex b/macros/latex/contrib/lapdf/colors.tex
new file mode 100644
index 0000000000..1e28ebc447
--- /dev/null
+++ b/macros/latex/contrib/lapdf/colors.tex
@@ -0,0 +1,72 @@
+\input preamble.tex
+
+\newcount\k
+\newcount\m
+\newcount\n
+\newcount\ra
+\newcount\rb
+
+\newdimen\a
+\newdimen\w
+\newdimen\xa
+\newdimen\ya
+\newdimen\xb
+\newdimen\yb
+
+\gdef\Segment(#1,#2){%
+ \n=0
+ \Whilenum{\n<360}{%
+ \m=\n \Mod(\m,15)
+ \ifnum\m=0 \Nextcol(\k,96) \fi
+ \Dset(\w,0.054) \Mul(\w,#2) \Setwidth(\Np\w)
+ \Dset(\a,\n) \Dsub(\a,5.8) \Rad(\Np\a,\a)
+ \Cos(\Np\a,\xa) \xb=#2\xa \Mul(\xa,#1)
+ \Sin(\Np\a,\ya) \yb=#2\ya \Mul(\ya,#1)
+ \Moveto(\Np\xa,\Np\ya) \Lineto(\Np\xb,\Np\yb) \Stroke \Add(\n,3)}
+ \White
+ \Setwidth(0.03)
+ \ifnum#2<5 \Arc(128)(0,0)(0,360)(#2) \Stroke \fi}
+
+% ---------------------------------------------------------------------------
+\begin{document}
+\unitlength1.5cm
+
+\begin{center}
+{\Huge \bf{\Lapdf{} Step-Colors}}
+\bigskip
+
+\begin{lapdf}(12,12)(-6,-7)
+ \Setcap(0)
+ \rb=5
+ \k=0
+ \Whilenum{\rb>1}{%
+ \ra=\rb \Sub(\ra,1)
+ {\Segment(\ra,\rb)} \Add(\k,24) \Sub(\rb,1)}
+
+ \n=0
+ \White
+ \Setwidth(0.03)
+ \Whilenum{\n<360}{%
+ \Dset(\a,\n) \Dsub(\a,7.5) \Rad(\Np\a,\a)
+ \Cos(\Np\a,\xa) \xb=5\xa
+ \Sin(\Np\a,\ya) \yb=5\ya
+ \Moveto(\Np\xa,\Np\ya) \Lineto(\Np\xb,\Np\yb) \Stroke \Add(\n,15)}
+
+ \n=0
+ \Dset(\xa,-4.75)
+ \Setwidth(0.105)
+ \Resetcol
+ \Whilenum{\n<96}{%
+ \Nextcol(0,96)
+ \Line(\Np\xa,-7)(\Np\xa,-6) \Stroke \Dadd(\xa,0.1) \Add(\n,1)}
+
+ \Black
+ \Setwidth(0.02)
+ \Rectangle(-4.8,-7)(9.6,1)(0) \Stroke
+\end{lapdf}
+\bigskip
+
+These are the 96 colors, used for {\it Stepcol(c1,c2,s)} and
+{\it Nextcol(c1,c2)}.
+\end{center}
+\end{document}