blob: b1d0e94f1bdd2f0c2bbddac7e143454a39d626aa (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
|
beginchar(oct"026",.4em#,.5cap#,0dth#); "Diatoniki fthora tou Zo";
picture SYN;
path p[];
y0 = y1 = 9h/10;
x0 = 4w/5; x6 = 7w/10;
x2 = 16w/25; y2 = 33h/50;
y3 = .5h; y5 = 3h/10;
x4 = 3w/5; y4 = 2h/5;
y6 = 7h/50;
x7 = 29w/50; y7 = 3w/50;
x1 = x3 = x5 = 3w/10;
z8 = .18[z0,z1];
p0 = z0--z1 & z1--z2 & z2--z3 & z3--z4 & z4--z5 & z5..controls z6..z7;
p1 = z8--z0 rotatedabout(z8,60);
p2 = p1 rotatedabout(z8,-180);
pickup pencircle scaled .8pt;
draw p0;
draw p1;
draw p2;
SYN = currentpicture;
endchar;
|
