summaryrefslogtreecommitdiff
path: root/fonts/byzfonts/XAP_xpo/x041_KAN.mf
blob: 41de8c5df83e229e63ac925b020221033a93f079 (plain)
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;