blob: 49367c3fc62a90ecf00f25e966c4f728641cb0b6 (
plain)
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
|
beginchar(oct"005",.8em#,cap#,0); "Ipsili";
picture YPSHLH, scYPSHLH;
transform t[];
path p[];
save xt,yt;
xt = 8em/110;
yt = cap/17;
x0 = .5xt; x0 = w - x6; y0 = .3yt; y1 = 3yt; y2 = 2y1; y3 = 3y1;
y4 = 4y1; x1 = 3.3xt; x2 = 5.5xt; x3 = 7xt; x4 = 7.9xt; x5 = 8xt;
y5 = 14yt; y6 = 15yt; y10= 3yt; y7 = 4y10; y8 = 3y10; y9 = 2y10;
x10= 4xt; x9 = 6.8xt; x8 = 8.7xt; x7 = 9.8xt; x11= 1.7xt; y11= .8yt;
z12 = (5xt,-xt); z13 = (4.9xt,-.6xt);
p1 = flex(z0,z3,z5)--z6 & flex(z6,z9,z11) & z11---z13..z12---z0
& cycle;
fill p1;
YPSHLH = currentpicture;
t1 = identity scaled .5;
p2 = p1 transformed t1;
clearit;
fill p2;
scYPSHLH = currentpicture;
clearit;
addto currentpicture also YPSHLH;
endchar;
|
