diff options
Diffstat (limited to 'Master/texmf-dist/doc/latex/lapdf/colors.tex')
-rw-r--r-- | Master/texmf-dist/doc/latex/lapdf/colors.tex | 72 |
1 files changed, 72 insertions, 0 deletions
diff --git a/Master/texmf-dist/doc/latex/lapdf/colors.tex b/Master/texmf-dist/doc/latex/lapdf/colors.tex new file mode 100644 index 00000000000..1e28ebc4478 --- /dev/null +++ b/Master/texmf-dist/doc/latex/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} |