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
|
beginchar("X",em#,5cap#/7,0dth#); "Xi";
path p[];
save ww,hh,dd;
ww = w/10; hh = h/5;
b := ww;
z0 = 5(ww,hh);
x1 = x2 = 10ww - hide(x4 = x3)x3 = ww;
y1 = y3 = 10hh - hide(y4 = y2)y2 = hh;
p1 = z1{right}..z0..{right}z4;
p2 = z2{right}..z0..{right}z3;
z5 = point .6 of p1;
z6 = point 1.4 of p1;
z7 = point .6 of p2;
z8 = point 1.4 of p2;
z9 = z0;
z10 = (x1,y5);
z11 = (x1,y7);
z12 = (x3,y8);
z13 = (x3,y6);
penpos0(b,0);
penpos9(b,0);
penpos1(b,90);
penpos2(b,90);
penpos3(b,90);
penpos4(b,90);
penpos5(1.4b,180);
penpos6(1.4b,180);
penpos7(1.4b,0);
penpos8(1.4b,0);
penstroke z1e{right}..{up}z5e..{up}z6e..{right}z4e;
penstroke z2e{right}..{down}z7e..{down}z8e..{right}z3e;
pickup pencircle scaled b;
drawdot z1;
drawdot z2;
drawdot z3;
drawdot z4;
pickup pencircle scaled .4pt;
draw z1{up}..z10..z5..{up}z13;
draw z3{up}..z12..z8..{up}z11;
draw fullcircle scaled .5b shifted (z11);
draw fullcircle scaled .5b shifted (z13);
endchar;
|