beginchar(oct"017",.8em#,cap#,dth#); "Apostrofos"; picture APOCTROFOC,scAPOCTROFOC,KLACMA, APOCTROFOYLA,Apoctrofoc; path p[]; save ww,hh,dd; ww := w/5; hh := h/5; z0 = (2.9ww,-.3d); z1 = (4.38ww,0); z2 = (3.75ww,1.9hh); z6 = (2.4ww,2.3hh); z8 = (2.2ww,2.1hh); z3 = (.8ww,2.6hh); z4 = (.7ww,2.3hh); z5 = (3.6ww,0); z7 = (3.4ww,1.4hh); p1 = flex(z0,z1,z2); p2 = z2..controls z6..z3; p3 = z3--z4; p4 = z4..controls z8..z7; p5 = flex(z7,z5,z0); p6 = p1 & p2 & p3 & p4 & p5 & cycle; fill p6; APOCTROFOC = currentpicture; p7 = p6 rotatedaround(z8,-30) scaled .7; clearit; fill p7; scAPOCTROFOC = currentpicture; p9 = p6 rotatedaround(z8,210) scaled .3 reflectedabout((.5w,0),(.5w,h)); clearit; fill p9; KLACMA = currentpicture; clearit; p8 = p6 scaled .5; fill p8; APOCTROFOYLA = currentpicture; clearit; p10 = p6 scaled .7; fill p8; Apoctrofoc = currentpicture; clearit; addto currentpicture also APOCTROFOC; endchar;