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;
|