blob: ef7eadc7658745a8207e08812c3309d8c8bf8852 (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
|
if scantokens(mpversion) > 1.005:
outputtemplate :=
else:
filenametemplate
fi
"%j.mps";
beginfig(0);
% Use 8 circles
N:=8;
% Compute the "correct" radius
r:=54*sind(180/N)/(1+sind(180/N));
% Define one of the cirlces
path p;
p:=fullcircle scaled (2*r);
% Draw all 8 circles
for n=0 upto N-1: draw p shifted (r/sind(180/N),0) rotated (360/N*n); endfor;
endfig;
end
|