summaryrefslogtreecommitdiff
path: root/fonts/byzfonts/Alphabet/Ligs/X203_ll.mf
blob: e84f79abf95237545167cef7872c39579253bd68 (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
beginchar(oct"203",.4em#,2cap#/7,.5dth#); "The Ligature lambda-lambda";
path p[];
 save ww,hh,dd;

 ww = w/4; hh = h/2; dd = d/1;
 b := .4ww;

 x0 = x3 = .4ww;
 x1 = .7ww; y1 = 1.6hh;
 y2 = y3 = -.9dd;
 x2 = 2.4ww; y0 = 1.4hh;
 p0 = z0{z1-z0}..{right}z1{z2-z1}..z2;
 z4 = point 1.25 of p0;

 penpos0(1.3b,angle(z1-z0)+70);
 penpos1(1.5b,90);
 penpos2(1.5b,0);
 penpos3(1.5b,0);
 penpos4(.7b,angle(z3-z4)+90);
 penstroke z0e{z1-z0}..{right}z1e{z2-z1}..{dir-30}z2e;
 penstroke z4e..z3e;
 
 z5 = z4 shifted (.5x2,0);
 z6 = z0 shifted (.5x2,0);
 z7 = z1 shifted (.5x2,0);
 z8 = z3 shifted (.5x2,0);
 z9 = z2 shifted (.5x2,0);

 penpos6(1.3b,angle(z7-z6)+70);
 penpos7(1.5b,90);
 penpos9(1.5b,0);
 penpos8(1.5b,0);
 penpos5(.7b,angle(z3-z4)+90);
 penstroke z6e{z7-z6}..{right}z7e{z9-z7}..{dir-30}z9e;
 penstroke z5e..z8e;

endchar;