cmchar "Small capital sigma"; beginchar("c",13u#,cap_height#,0); italcorr cap_height#*slant-beak_jut#-.5u#; adjust_fit(0,0); numeric bot_arm_thickness; bot_arm_thickness=Vround .25[slab,cap_vstem]; pickup tiny.nib; lft x1l=hround u; x1l=x2l=x4l; top y1=h; bot y2=h-slab; bot y4=0; x3l-x1l=4/11(w-2u); y3=.5h; numeric alpha[]; alpha1=((x3l-x1l)++(y2-y3))/(y2-y3); penpos1(alpha1*(cap_stem-tiny),0); penpos2(alpha1*(cap_stem-tiny),0); penpos3(alpha1*(cap_stem-tiny),0); alpha2=diag_ratio(1,cap_hair-tiny,y3-y4,x3r-x4l); penpos4(alpha2*(cap_hair-tiny),0); z0=whatever[z2l,z3l]=z4l+whatever*(z3r-z4r); filldraw z1l--z2l--z0--z4l--z4r--z3r--z2r--z1r--cycle; % diagonals pickup crisp.nib; pos5(slab,90); pos6(hair,0); top y5r=h; x5=x1; rt x6r=hround(w-u); y6=good.y(y5l-beak)-eps; arm(5,6,a,beak_darkness,beak_jut); % upper arm and beak pos7(bot_arm_thickness,-90); pos8(hair,0); bot y7r=0; z7l=whatever[z4,z3]; x7r:=x4; x8=x6; y8=good.y(y7l+beak)+eps; arm(7,8,b,beak_darkness,beak_jut); % lower arm and beak math_fit(0,.5ic#); penlabels(0,1,2,3,4,5,6,7,8); endchar; cmchar "The letter small capital digamma"; beginchar(oct"140",11.5u#-width_adj#,cap_height#,0); italcorr cap_height#*slant-beak_jut#-.25u#; adjust_fit(cap_serif_fit#,0); h:=vround(h-stem_corr); pickup tiny.nib; pos1(cap_stem,0); pos2(cap_stem,0); lft x1l=lft x2l=hround max(2u,3u-.5cap_stem); top y1=h; bot y2=0; filldraw stroke z1e--z2e; % stem pickup crisp.nib; pos3(slab,90); pos4(hair,0); top y3r=h; x3=x1; rt x4r=hround(w-.75u); y4=good.y(y3l-beak)-eps; arm(3,4,e,beak_darkness,beak_jut); % upper arm and beak pos5(cap_bar,-90); pos6(hair,0); top y5l=vround(.5[y2,y1]+.5cap_bar); x5=x1; pos0(cap_bar,90); pos7(hair,0); z0=z5; x6=x7; y6-y5l=y0l-y7; if serifs: rt x6r=hround(w-4u+.5hair); y6=good.y(y5l+.6beak)+eps; rt x9r=hround(w-.5u); else: rt x6r=hround(w-1.5u); y6=y5l+eps; rt x9r=hround(w-.75u); fi arm(5,6,f,beak_darkness,0); arm(0,7,g,beak_darkness,0); % middle arm and serif if serifs: nodish_serif(1,2,a,1/3,cap_jut,b,1/3,.5cap_jut); % upper serif dish_serif(2,1,c,1/3,cap_jut,d,1/3,1.25cap_jut); fi % lower serif math_fit(0,ic#-2.5u#); penlabels(0,1,2,3,4,5,6,7,8,9); endchar;