1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
|
beginchar(oct"003",.8em#,cap#,dth#); "Petasti";
path p[];
picture PETACTH, scPETACTH;
ww := w/8; hh := h/4; dd := d/1.5;
z0 = (2.1ww,1.7hh);
z1 = (0.1ww,1.7hh); z3 = (2.6ww,0.0hh);
z4 = (5.4ww,-.4dd); z6 = (7.9ww,hh);
z7 = (5.9ww,1.7hh); z9 = (6.55ww,.8hh);
z10 = (4.4ww,.2dd); z11 = (2.1ww,.5hh); z12 = (.9ww,1.3hh);
p1 = z0..z1 & flex(z1,z3,z4) & flex(z4,z6,z7)
& flex(z7,z9,z10) & flex(z10,z11,z12)
& z12..z0 & cycle;
fill p1;
PETACTH = currentpicture;
p2 = p1 scaled 0.7;
clearit;
fill p2;
scPETACTH = currentpicture;
clearit;
addto currentpicture also PETACTH;
endchar;
|