136 |
(x-2*r,y)...(x,y-r)...(x+2*r,y)...(x,y+r)...cycle |
(x-2*r,y)...(x,y-r)...(x+2*r,y)...(x,y+r)...cycle |
137 |
enddef; |
enddef; |
138 |
|
|
139 |
|
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%5 |
140 |
|
%%%%% THE LINKS |
141 |
|
|
142 |
link("a", cir(50,30,25), "c", cir(70,160,37)); |
link("a", cir(50,30,25), "c", cir(70,160,37)); |
143 |
link("b", cir(50,230,30), "a", cir(350,290,30)); |
link("b", cir(50,230,30), "a", cir(350,290,30)); |
144 |
link("b", cir(60,170,35), "d", cir(150,60,50)); |
link("b", cir(60,170,35), "d", cir(150,60,50)); |
149 |
|
|
150 |
pair p; |
pair p; |
151 |
|
|
152 |
|
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% |
153 |
|
%%%% THE DOCUMENTS |
154 |
|
|
155 |
for i = -100 step 30 until 800 : |
for i = -100 step 30 until 800 : |
156 |
p := (i,-50); |
p := (i,-50); |
164 |
\linewidth=18cm\begin{multicols}{5}\loremiii |
\linewidth=18cm\begin{multicols}{5}\loremiii |
165 |
\end{multicols}}etex); |
\end{multicols}}etex); |
166 |
|
|
167 |
for i = -100 step 40 until 800 : |
for i = -100 step 40 until 200 : |
168 |
for j = -100 step 40 until 800 : |
for j = -100 step 40 until 800 : |
169 |
p := (i-.1*j,j+.05*i); |
p := (i-.1*j,j+.05*i); |
170 |
fill p .. p+(20,5) .. p+(5,20) .. cycle; |
fill p .. p+(20,5) .. p+(5,20) .. cycle; |