631
631
pos5(mfudged.stem,0); x5=x4; y5=min(y4,y13);
632
632
filldraw stroke super_arc.e(3,4)&z4e--z5e; % arc and stem
633
633
pos6(.6[thin_join,vair],90); x6=x4; bot y6=y10l;
635
635
lft x7r=hround max(.5u,1.5u-.5left_curve); y7=1/3[top y8l,top y6r];
636
if (Times_Compat and serifs): pos8(.6[vair,flare],210); else: pos8(vair,270);fi
637
638
pos9(.5[vair,fudged.stem],360); x9=x5; y9=.55bar_height;
638
639
(x',y8r)=whatever[z8l,z9l]; x8r:=max(x',x8-u);
639
640
{{interim superness:=more_super;
641
644
if y9<y5: filldraw stroke z5e{down}..{down}z9e; fi % link (usually hidden)
642
645
penlabels(1,2,3,4,5,6,7,8,9,10,11,12,13,14,15); endchar;