beginchar(oct"055",.5em#,cap#,1.5dth#); "Varia"; picture BAPEIA, scBAPEIA; path p[]; save ww,hh,dd; ww = w/5; hh = h/7; dd = d/3; x0 = .2ww; x4 = 4.5ww; y0 = 6.1hh; y3 = y4 = -2.0dd; x8 = x1 = .6ww; y1 = 1.5hh; x2 = 1.4ww; y2 = -.5dd; x3 = 4.4ww; x7 = x6 = 1.75ww; y5 = -1dd; y6 = 0; x5 = 2.3ww; y7 = 5.8hh; y8 = 5.7hh; x9 = .7ww; y9 = y7; x10 = .5[x8,x7]; y10 = .5[y8,y1]; p1 = z0..controls z9..z8; p2 = z8--z1; p3 = flex(z1,z2,z3); p4 = z3--z4; p5 = z4..controls z5..z6; p6 = z6--z7; p7 = z7--z0; p8 = p1 & p2 & p3 & p4 & p5 & p6 & p7 & cycle; p10 = p8 rotatedaround(z10,10); fill p10; BAPEIA = currentpicture; clearit; p9 = p8 yscaled 1.4; p11 = p9 rotatedaround(z10,10); fill p11; scBAPEIA = currentpicture; clearit; addto currentpicture also BAPEIA; endchar;