File: recttria.tex

package info (click to toggle)
texlive-base 2012.20120611-5
  • links: PTS
  • area: main
  • in suites: wheezy
  • size: 403,288 kB
  • sloc: perl: 37,753; ruby: 4,714; sh: 4,212; makefile: 3,659; xml: 2,387; ansic: 1,731; python: 1,029; tcl: 631; awk: 603; cpp: 549; lisp: 428; java: 32; sed: 8
file content (29 lines) | stat: -rw-r--r-- 549 bytes parent folder | download | duplicates (9) 
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
 
\input preamble.tex

\Defnum(\a,0)

% ---------------------------------------------------------------------------
\begin{document}
\unitlength1.2cm

\begin{center}
{\Huge \bf{Rectangle}}
\bigskip

\begin{lapdf}(15,15)(-7.5,-7.5)
 \Whilenum{\a<360}{%
  \Stepcol(0,23,2) \Rectangle(0,0)(4.5,6)(\a) \Stroke \Add(\a,15)}
\end{lapdf}

\newpage

{\Huge \bf{Triangle}}
\bigskip

\begin{lapdf}(15,15)(-7.5,-7.5)
 \Resetcol
 \Whilenum{\a<360}{%
  \Stepcol(0,23,2) \Triangle(0,0)(0,4.5)(6,4.5)(\a) \Stroke \Add(\a,15)}
\end{lapdf}
\end{center}
\end{document}