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