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