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;