blob: 9f37b8dc6de41d620c1391d9a4eed9bb4a7a9c7f (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
|
pair thecenter;
thecenter = (105mm,150mm);
vardef instructio( expr rayc ) =
draw fullcircle scaled rayc shifted thecenter
enddef;
beginfig(1);
numeric i, u, maxray;
u = 1mm;
maxray = 85u;
for i=30u step 1u until 40u:
instructio( i );
endfor;
for i=153u step 1u until 165u:
instructio( i );
endfor;
for i=0 step 90 until 270:
draw thecenter--(thecenter+maxray*dir(i));
endfor;
endfig;
end.
|