\input preamble.tex \Defnum(\n,10) \Defdim(\m,0) \Defdim(\r,7) \newdimen\a \newdimen\x \newdimen\y % --------------------------------------------------------------------------- \begin{document} \unitlength1.25cm \begin{center} {\Huge\bf{Line}} \bigskip \begin{lapdf}(14,14)(-7,-7) \Whiledim{\m<360}{\Rad(\Np\m,\a) \Cos(\Np\a,\x) \Mul(\x,7) \Sin(\Np\a,\y) \Mul(\y,7) \Nextcol(0,23) \Line(0,0)(\Np\x,\Np\y) \Stroke \Dadd(\m,7.5)} \end{lapdf} \end{center} \newpage \begin{center} {\Huge\bf{Lineto}} \bigskip \begin{lapdf}(14,14)(-7,-7) \Moveto(\Np\r,0) \Whilenum{\n<1445}{\Rad(\n,\a) \Cos(\Np\a,\x) \Dmul(\x,\r) \Sin(\Np\a,\y) \Dmul(\y,\r) \Nextcol(0,23) \Lineto(\Np\x,\Np\y) \Stroke \Moveto(\Np\x,\Np\y) \Add(\n,10) \Dsub(\r,0.05)} \end{lapdf} \end{center} \end{document}