summaryrefslogtreecommitdiff
path: root/fonts/byzfonts/Alphabet/Ligs/X205_KATA.mf
blob: c4b1ad3951e05e45c1c0ef2e84e972cbb84dbb53 (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
45
46
47
48
49
50
beginchar(oct"205",em#,6cap#/7,dth#); "Ligature: KATA";
path p[];
 save ww,hh,dd;

 ww = w/5; hh = h/3; dd = d;
 b := .2ww;


 x0 = x2 = .9ww;
 y0 = 1.1hh;
 x3 = 2ww; x1 = 1.2ww;
 y2 = 0;
 x4 = 1.7ww; y4 = .3hh;
 y5 = 0; x5 = 2.8ww;
 x6 = 2.5ww; y6 = -.3dd;
 x7 = 3.9ww; y7 = .2hh;
 y13 = .1hh; y15 = 1.4hh; 
 y1 = y3 = y10 = y11 = y12 = 1.3hh;
 x15 = 4.1ww; x12 = 3.9ww; 
 x10 = 2.3ww; x13 = x11 = .5[x10,x12];
 x16 = 4.3ww; y16 = 1.1hh; 
 z14 = (.7[x3,x10],y16);
 z17 = (.5[x6,x7],y6);

 p0 = z0..z1{down}..{down}z2{up}..{up}z3{z4-z3}..z4..{z5-z4}z5;
 penpos10(b,250);
 penpos14(b,290);
 penpos12(b,250);
 penpos11(b,180);
 penpos13(b,270);
 penpos15(b,270);
 penpos16(b,270);
 penpos4(b,180);
 penpos5(b,angle(z5-z4)-90);
 penpos6(b,angle(z7-z6)+90);
 penpos7(b,angle(z7-z17)+90);

 pickup pencircle scaled b;
 draw z5--z6;
 penstroke z6e..controls z17..z7e;
 draw z15..z16;
 penstroke z10e--z12e;
 penstroke z14e--z10e;
 penstroke z11e{down}..{right}z13e;
 drawdot z7;
 drawdot z13;
 drawdot z14;
 draw p0;

 endchar;