summaryrefslogtreecommitdiff
path: root/Master/texmf-dist/doc/metapost/featpost/example/telemira.mp
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.