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