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
49
|
beginchar("U",em#,5cap#/7,0); "Psi";
path p[];
save ww, hh,dd;
ww = w/10; hh = h/5;
b := ww;
x0 = x6 = x7 = 5ww;
y7 = 0; y6 = 9hh;
y0 = 2hh;
x1 = 10ww - x5 = ww;
y1 = y5 = 5.5hh;
p1 = z1{right}..{right}z0{right}..{right}z5;
p2 = z6..z0..z7;
z2 = point .5 of p1;
z3 = point 1.5 of p1;
z4 = z0;
z8 = .5[z6,z0];
y9 = y10 = .3[y6,y8];
x9 = 10ww - x10 = x2;
x11 = x12 = x7;
y11 = .5hh;
y12 = hh;
penpos1(b,90);
penpos2(1.7b,0);
penpos0(.6b,90);
penpos3(1.7b,180);
penpos5(b,90);
penpos4(b,0);
penpos6(b,0);
penpos7(2b,0);
penpos8(1.7b,0);
penstroke z1e{right}..z2e..{right}z0e{right}..z3e..{right}z5e;
penstroke z6e{down}..z8e..z4e..{down}z7e;
pickup pencircle scaled b;
drawdot z6;
drawdot z1;
drawdot z5;
pickup pencircle scaled .4pt;
draw z11{left}..z1..{up}z10;
draw z12{right}..z5..{up}z9;
draw fullcircle scaled .5b shifted (z9);
draw fullcircle scaled .5b shifted (z10);
endchar;
|
