1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
|
beginchar(oct"041",.3em#,4cap#/7,dth#); "KANONIKH XPONIKH AGOGI";
picture XPAH;
numeric phi[];
path p[];
save ww,hh,dd;
ww = w/3; hh = h/4; dd = d/2;
b := .2ww;
x1 = x3 = 3ww - x2 = .2ww;
x6 = x2;
x4 = 3ww - x5 = .4ww;
y2 = y4 = 2hh;
y3 = 1.5hh;
y1 = y5 = y6 = -2dd;
p0 = z3{up}..{right}z4--z5{right}..z6;
p1 = z1--z2;
z0 = p1 intersectionpoint p0;
z7 = z0;
phi0 = angle direction 1.5 of p0;
phi1 = angle direction 0 of p1;
phi3 = angle direction 0 of p0;
penpos0(2b,phi1+90);
penpos3(2b,phi3+100);
penpos4(2.5b,phi0+90);
penpos7(2b,phi0+90);
penpos5(1.8b,phi0+150);
penpos6(2b,270);
penpos1(2.5b,phi1+90);
penpos2(2.5b,phi1+90);
penstroke z3e{dir(phi3+20)}..z4e{dir-20}..z7e..{dir-20}z5e{right}..z6e;
penstroke z1e..z0e..z2e;
pickup pencircle scaled 2b;
drawdot z6;
pickup pencircle scaled 2.5b;
drawdot z2;
drawdot z1;
XPAH = currentpicture;
addto currentpicture also GOPGOAPGON shifted (-.1w,.45h);
endchar;
|