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
|
beginchar("L",em#,5cap#/7,0dth#); "Lambda";
path p[];
save ww,hh,dd;
ww = w/10; hh = h/5;
b := ww;
z0 = (7ww,5hh);
x1 = 2ww; y1 = 9.5hh;
x3 = 10ww - x2 = ww;
y3 = y2 = .5hh;
p1 = z1{right}..z0..{right}z2;
z4 = point .3 of p1;
z5 = z4;
p2 = z4{left}..{left}z3;
z6 = point .5 of p2;
z7 = (5ww,y3);
z8 = .5[z4,z6];
z9 = point .6 of p1;
z10 = point 1.5 of p1;
z11 = (x6,.5[y3,y6]);
z12 = (x1,y9);
z13 = (x0,y4);
penpos1(b,90);
penpos0(1.7b,0);
penpos2(b,90);
penpos3(b,270);
penpos4(b,270);
penpos5(b,0);
penpos6(1.7b,0);
penpos8(.6b,angle(z6-z8) + 90);
penpos9(.6b,angle(z0-z9) + 90);
penpos10(.6b,0);
penpos11(.8b,0);
penstroke z1e{right}..z9e..z0e..z10e..{right}z2e;
penstroke z5e{down}..z8e..z6e..z11e..{left}z3e;
pickup pencircle scaled b;
drawdot z1;
drawdot z2;
drawdot z3;
pickup pencircle scaled .4pt;
draw z7{up}..z8..{left}z12;;
draw z7{up}..z9..{right}z13;
draw fullcircle scaled .5b shifted (z12);
draw fullcircle scaled .5b shifted (z13);
endchar;
|
