beginchar(oct"007",.4em#,.5cap#,0dth#); "D Diatoniki Martiria"; path p[]; picture NANO,BEL,CHXOC; y1 = y3 = 3.3h/5; x1 = 3w/50; x3 = 20w/50; x2 = 12w/50; y2 = 4h/5; x4 = 15w/50; y4 = 17h/50; x5 = 18w/50; y5 = 13h/50; x6 = x2; y6 = h; pickup pencircle scaled .8pt; p1 = flex(z1,z2,z3) & z3..controls z4..z5; p2 = p1 shifted (.5w,0); p3 = p1 scaled 2; pickup pencircle scaled pt; draw p3; NANO = currentpicture; clearit; pickup pencircle scaled .8pt; draw p1; draw p2; BEL = currentpicture; z7 = z6 shifted (.5w,0); drawdot z6; drawdot z7; CHXOC = currentpicture; clearit; addto currentpicture also BEL; endchar;