blob: 98858d9383ac3a1b08ac3b23300bc40ace67400c (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
|
beginchar(oct"040",.6em#,6cap#/7,1.5dth#);
"Upper Ni 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 NH shifted(.3w,.35h);
addto currentpicture also STX shifted(.15w,-.3h);
endchar;
|