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
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
|
beginchar("Y",em#,5cap#/7,0dth#); "Ypsilon";
path p[];
save ww,hh,dd;
ww = w/10; hh = h/5;
b := ww;
x0 = x1 = 5ww;
y0 = 0; y1 = 1.5hh;
x2 = 10ww - x3 = .5ww;
y3 = y2 = 8hh;
z4 = .25[z1,z2];
z5 = .5[z1,z2];
z6 = .75[z1,z2];
z7 = .25[z1,z3];
z8 = .5[z1,z3];
z9 = .75[z1,z3];
z10 = .5[z1,z4];
z11 = .5[z5,z4];
z12 = .5[z5,z6];
z13 = .5[z2,z6];
z14 = .5[z1,z7];
z15 = .5[z8,z7];
z16 = .5[z8,z9];
z17 = .5[z3,z9];
z18 = .5[z1,z0];
z19 = (x2,y0);
z21 = (x15,y17);
z20 = (x3,y0);
z22 = (x11,y17);
penpos0(2b,0);
penpos18(.6b,0);
penpos1(b,0);
penpos10(.6b,30);
penpos11(.6b,30);
penpos12(.6b,30);
penpos13(.6b,30);
penpos4(1.7b,30);
penpos5(1.7b,30);
penpos6(1.7b,30);
penpos2(b,30);
penpos14(.6b,-30);
penpos15(.6b,-30);
penpos16(.6b,-30);
penpos17(.6b,-30);
penpos7(1.7b,-30);
penpos8(1.7b,-30);
penpos9(1.7b,-30);
penpos3(b,-30);
penstroke z0e..z18e..z1e;
penstroke z1e..z10e..z4e..z11e..z5e..z12e..z6e..z13e..z2e;
penstroke z1e..z14e..z7e..z15e..z8e..z16e..z9e..z17e..z3e;
pickup pencircle scaled b;
drawdot z2;
drawdot z3;
pickup pencircle scaled .4pt;
draw z19{up}..z5..{right}z21;
draw fullcircle scaled .5b shifted (z21);
draw z20{up}..z8..{left}z22;
draw fullcircle scaled .5b shifted (z22);
endchar;
|
