569
569
pos9(vair,-180); pos21(vair,-270);
570
570
if serifs: pos22(hair,0); else: pos22(hair,0); fi
571
571
x21=.5(w-u); y21=0; rt x22r=w; y22=-d-apex_o; x9=u; y9=.5[y8,y21];
573
573
penlabels(1,2,3,4,5,6,7,8,9,12,21,22); endchar;
575
575
%%%%% not yet good; to be corrected!!!