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
|
beginchar("E",em#,5cap#/7,0dth#); "Epsilon";
path p[];
save ww,hh,dd;
ww = w/10; hh = h/5;
b := ww;
x0 = x4 = 8ww;
y4 = 10hh - y0 = .5hh;
y2 = 5hh; x2 = ww;
p1 = z0{left}..{down}z2;
p2 = z2{down}..{right}z4;
z5 = point .25 of p1;
z1 = point .5 of p1;
z6 = point .75 of p1;
z7 = point .25 of p2;
z3 = point .5 of p2;
z8 = point .75 of p2;
x9 = x5; y9 = y2;
y11 = .5[y7,y3]; x11 = .5[x8,x4];
y10 = .5[y6,y1]; x10 = x11;
y14 = y12 = .25[y2,y6];
y13 = .25[y2,y7];
x12 = x1; x14 = x5;
x13 = .5[x1,x5];
x15 = 8ww; y15 = y2;
z16 = z2;
penpos5(b,90);
penpos1(1.7b,120);
penpos6(.6b,150);
penpos2(1.7b,180);
penpos7(.6b,210);
penpos3(1.7b,240);
penpos8(b,270);
penpos16(b,90);
penpos12(b,90);
penpos13(b,90);
penpos14(b,90);
penpos15(b,90);
penstroke z5e{left}..z1e..z6e..{down}z2e{down}..z7e..z3e..{right}z8e;
pickup pencircle scaled b;
penstroke z16e{right}..z12e..z13e..z14e..{right}z15e;
drawdot z5;
drawdot z8;
drawdot z15;
pickup pencircle scaled .4pt;
draw z1{right}..z9..{down}z11;
draw z3{right}..z9..{up}z10;
draw fullcircle scaled .5b shifted (z10);
draw fullcircle scaled .5b shifted (z11);
endchar;
|
