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
|
beginchar("I",em#,5cap#/7,0dth#); "Iota";
path p[];
save ww,hh,dd;
ww = w/10; hh = h/5;
b := ww;
x8 = x7 = x6 = x5 = x2 = x3 = x4 = x0 = x1 = 5ww;
y0 = 10hh - y1 = 0 = y9 = y11;
y2 = .25[y0,y1];
y3 = .5[y0,y1];
y4 = .75[y0,y1] = y10 = y12;
y5 = .5[y1,y4];
y6 = .5[y3,y4];
y7 = .5[y3,y2];
y8 = .5[y0,y2];
x9 = 2.5ww = x12;
x10 = 7.5ww = x11;
penpos0(2b,0);
penpos1(2b,0);
penpos8(.6b,0);
penpos7(.6b,0);
penpos6(.6b,0);
penpos5(.6b,0);
penpos2(1.7b,0);
penpos3(1.7b,0);
penpos4(1.7b,0);
penstroke z1e..z5e..z4e..z6e..z3e..z7e..z2e..z8e..z0e;
pickup pencircle scaled .4pt;
draw z9{up}..z7..{up}z10;
draw z11{up}..z7..{up}z12;
draw fullcircle scaled .5b shifted (z10);
draw fullcircle scaled .5b shifted (z12);
endchar;
|