beginchar(oct"016",.4em#,.5cap#,0dth#); "F Diatoniki Martiria"; picture SO; path p[]; y0 = y1 = .275h; x0 = .2w; y8 = h/25; x8 = x6 = w; x2 = x1 = 2w/5; y2 = y4 = .9h; x4 = x5 = 4w/5; x3 = 3w/5; y3 = h; y6 = y5 = 15h/50; x7 = 5.3w/5; y7 = y8; p1 = fullcircle scaled Diam shifted (z0); p2 = z1--z2; p3 = flex(z2,z3,z4); p4 = z4--z5; p5 = z5--z6; p6 = z6..controls z8..z7; pickup pencircle scaled .8pt; draw p1; draw p2 & p3 & p4 & p5 & p6; SO = currentpicture; endchar;