beginchar(oct"026",.6em#,6cap#/7,1.5dth#); "Upper Zo Diatoniki Martiria"; save ww,hh; ww = w/6; hh = h/6; z0 = (5.7ww,5.7hh); z1 = (5.2ww,5.2hh); pickup pencircle scaled .5ww; draw z0--z1; addto currentpicture also ZHTA shifted(.3w,.35h); addto currentpicture also SI shifted(.15w,-.35h); endchar;