blob: ad58f35fd8b3051d2a9b1741599274775641f1e0 (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
|
beginchar(oct"022",.4em#,.5cap#,0dth#); "Spathi";
picture DCT;
path p[];
y1 = y0 = y2 = .5h;
x1 = -.2w; x0 = .5w; x2 = 1.2w;
x3 = .9w;
y3 = 19h/50; x4 = x5 = 4w/5;
y4 = 3.5h/5; y5 = 1.5h/5;
pickup pencircle scaled .8pt;
p1 = fullcircle scaled Diam shifted (z0);
p2 = z1..controls z2..z3;
p3 = z4--z5;
draw p1;
draw p2;
draw p3;
DCT = currentpicture;
endchar;
|