summaryrefslogtreecommitdiff
path: root/fonts/byzfonts/Alphabet/Smalls/l.mf
blob: 3cda139138fad9eaa5da9481720e42199766bcb2 (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
beginchar("l",.3em#,2cap#/7,.5dth#); "Lambda";
picture lamda;
path p[];
 save ww,hh,dd;

 ww = w/3; 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;

lamda = currentpicture;
endchar;