\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}