summaryrefslogtreecommitdiff
path: root/macros/latex/contrib/lapdf/arcs.tex
blob: e61adb9efeebd97e6dfacfd4c4a9f26609254cb0 (plain)
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
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
139
140
141
142
143
144
145
146
147
148
149
150
151
152
153
154
155
156
157
158
159
160
161
162
\input preamble.tex

\Defnum(\a,-100)
\Defnum(\b,20)
\Defnum(\n,5)
\Defdim(\r,1)

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

\begin{center}
{\Huge\bf{I. Arc}}
\bigskip

\begin{lapdf}(16,16)(-8,-8)
 \Whilenum{\b<380}{\Stepcol(0,23,4)
  \Arc(\n)(0,0)(\a,\b)(\Np\r) \Stroke
  \Dadd(\r,0.35) \Sub(\a,10) \Add(\b,20) \Add(\n,5)}
\end{lapdf}
\end{center}

\newpage

\begin{center}
{\Huge\bf{II. Sector}}
\bigskip

\begin{lapdf}(16,16)(-8,-8)
 \Resetcol
 \Whilenum{\b<380}{\Stepcol(0,23,4)
 \Sector(\n)(0,0)(\a,\b)(\Np\r)
 \Stroke
 \Dadd(\r,0.35) \Sub(\a,10) \Add(\b,20) \Add(\n,5)}
\end{lapdf}
\end{center}

\newpage

\begin{center}
{\Huge\bf{III. Arcto}}
\bigskip

\begin{lapdf}(16,16)(-8,-8)
 \Setwidth(0.02)
 \Moveto(-5,0)
 \Red
 \Arcto(64)(-5,+5)(+0,+5)(5)
 \Green
 \Arcto(64)(+5,+5)(+5,+0)(5)
 \Blue
 \Arcto(64)(+5,-5)(+0,-5)(5)
 \Cyan
 \Arcto(64)(-5,-5)(-5,+0)(5)

 \Moveto(-2.83,+2.83)
 \Red
 \Arcto(64)(+0,+5.66)(+2.83,+2.83)(4)
 \Green
 \Arcto(64)(+5.66,+0)(+2.83,-2.83)(4)
 \Blue
 \Arcto(64)(+0,-5.66)(-2.83,-2.83)(4)
 \Cyan
 \Arcto(64)(-5.66,+0)(-2.83,+2.83)(4)

 \Moveto(-6,0)
 \Red
 \Arcto(64)(-6,+6)(+0,+6)(2)
 \Green
 \Arcto(64)(+6,+6)(+6,+0)(2)
 \Blue
 \Arcto(64)(+6,-6)(+0,-6)(2)
 \Cyan
 \Arcto(64)(-6,-6)(-6,+0)(2)

 \Moveto(-7,0)
 \Red
 \Arcto(64)(-7,+7)(+0,+7)(3)
 \Green
 \Arcto(64)(+7,+7)(+7,+0)(3)
 \Blue
 \Arcto(64)(+7,-7)(+0,-7)(3)
 \Cyan
 \Arcto(64)(-7,-7)(-7,+0)(3)
\end{lapdf}
\end{center}

\newpage

\begin{center}
{\Huge\bf{IV. Arcto}}
\bigskip

\begin{lapdf}(16,16)(-8,-8)
 \Setwidth(0.02)
 \Black
 \Moveto(-0.5,3.5)
 \Arcto(16)(-0.5,-6)(-3,-6)(2.5)
 \Arcto(16)(-6,-6)(-6,-3)(2.5)
 \Arcto(16)(-6,-0.5)(3,-0.5)(2.5)
 \Arcto(16)(6,-0.5)(6,-3)(2.5)
 \Arcto(16)(6,-6)(3,-6)(2.5)
 \Arcto(16)(0.5,-6)(0.5,3)(2.5)
 \Arcto(16)(0.5,6)(3,6)(2.5)
 \Arcto(16)(6,6)(6,3)(2.5)
 \Arcto(16)(6,0.5)(-3,0.5)(2.5)
 \Arcto(16)(-6,0.5)(-6,3)(2.5)
 \Arcto(16)(-6,6)(-3,6)(2.5)
 \Arcto(16)(-0.5,6)(-0.5,3.5)(2.5)

 \Red
 \Moveto(-2,-1)
 \Arcto(32)(-4,+0)(-2,+1)(1)
 \Arcto(16)(-1.25,+1.25)(-1,+2)(1)
 \Arcto(32)(+0,+4)(+1,+2)(1)
 \Arcto(16)(+1.25,+1.25)(+2,+1)(1)
 \Arcto(32)(+4,+0)(+2,-1)(1)
 \Arcto(16)(+1.25,-1.25)(+1,-2)(1)
 \Arcto(32)(+0,-4)(-1,-2)(1)
 \Arcto(16)(-1.25,-1.25)(-2,-1)(1)

 \Green
 \Moveto(-4,-2)
 \Arcto(32)(-8,+0)(-4,+2)(2)
 \Arcto(16)(-2.5,+2.5)(-2,+4)(2)
 \Arcto(32)(+0,+8)(+2,+4)(2)
 \Arcto(16)(+2.5,+2.5)(+4,+2)(2)
 \Arcto(32)(+8,+0)(+4,-2)(2)
 \Arcto(16)(+2.5,-2.5)(+2,-4)(2)
 \Arcto(32)(+0,-8)(-2,-4)(2)
 \Arcto(16)(-2.5,-2.5)(-4,-2)(2)

 \Blue
 \Moveto(-6,0)
 \Arcto(32)(-6,+6)(+0,+6)(5)
 \Arcto(32)(+6,+6)(+6,+0)(5)
 \Arcto(32)(+6,-6)(+0,-6)(5)
 \Arcto(32)(-6,-6)(-6,+0)(5)

 \Cyan
 \Moveto(-2.83,+2.83)
 \Arcto(32)(+0,+5.66)(+2.83,+2.83)(4)
 \Arcto(32)(+5.66,+0)(+2.83,-2.83)(4)
 \Arcto(32)(+0,-5.66)(-2.83,-2.83)(4)
 \Arcto(32)(-5.66,+0)(-2.83,+2.83)(4)

 \Magenta
 \Moveto(-7,0)
 \Arcto(32)(-7,+7)(+0,+7)(3)
 \Arcto(32)(+7,+7)(+7,+0)(3)
 \Arcto(32)(+7,-7)(+0,-7)(3)
 \Arcto(32)(-7,-7)(-7,+0)(3)

 \Yellow
 \Moveto(-6.5,0)
 \Arcto(32)(-6.5,+6.5)(+0,+6.5)(2.5)
 \Arcto(32)(+6.5,+6.5)(+6.5,+0)(2.5)
 \Arcto(32)(+6.5,-6.5)(+0,-6.5)(2.5)
 \Arcto(32)(-6.5,-6.5)(-6.5,+0)(2.5)
\end{lapdf}
\end{center}
\end{document}