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
|
beginchar("N",em#,5cap#/7,0dth#); "Ni";
path p[];
save ww,hh,dd;
ww = w/10; hh = h/5;
b := ww;
y3 = y6 = 9hh;
x1 = x2 = x3 = x9 = x7;
x4 = x5 = x6 = x10 = x8;
x1 = 10ww - x4 = ww;
y1 = y4 = 0; x0 = 5ww;
y2 = y5 = .25[y1,y3];
y0 = y9 = y10 = .5[y1,y3];
y7 = y8 = .75[y1,y3];
z11 = .5[z3,z7];
z12 = .5[z5,z4];
p5 = z11{right}..z0..{right}z12;
z13 = point .5 of p5;
z14 = point 1.5 of p5;
z15 = .75[z2,z14];
z16 = .75[z8,z13];
penpos0(1.7b,45);
penpos1(2b,0);
penpos2(.6b,0);
penpos9(1.7b,0);
penpos7(.6b,0);
penpos3(b,0);
penpos6(b,0);
penpos8(.6b,0);
penpos10(1.7b,0);
penpos5(.6b,0);
penpos4(2b,0);
penpos11(b,90);
penpos12(b,90);
penpos13(.6b,45);
penpos14(.6b,45);
penstroke z1e..z2e..z9e..z7e..z3e;
penstroke z4e..z5e..z10e..z8e..z6e;
penstroke z11e{right}..z13e..z0e..z14e..{right}z12e;
pickup pencircle scaled .4pt;
draw z13..controls z1..z15;
draw z14..controls z6..z16;
draw fullcircle scaled .5b shifted (z16);
draw fullcircle scaled .5b shifted (z15);
pickup pencircle scaled b;
drawdot z3;
drawdot z6;
endchar;
|