% Special slanted characters for ``extended ASCII character set'' fonts % These characters were copied from {\tt greekl.mf} and {\tt italms.mf} % with character positions changed and italic corrections added to the width. % Codes \0002--\0003, \0007--\0012, and \0017 are generated. cmchar "Lowercase Greek alpha for extended ASCII"; beginchar(oct"002",11u#,x_height#,0); italcorr max(1/3x_height#*slant+.5hair#+.5u#,x_height#*slant-.5u#); adjust_fit(0,ic#); pickup fine.nib; pos0(hair,0); pos1(vair,-90); pos2(curve,-180); pos3(vair,-270); z4=(w-3.25u,9/16h); z5=(w-2.75u,.5[vair,y4]); numeric theta; theta=angle(z4-z5)-90; pos4(stem,theta); pos5(stem,theta); pos6(vair,90); pos7(hair,180); rt x0r=hround(w-u); x1=x3=.5w-u; lft x2r=hround(1.5u-.5curve); x6=w-u; x7+.5hair=hround(w+.5hair-eps); top y0=vround .8[bar_height,h]; bot y1r=bot y6l=-oo; y2=.5[y1,y3]; top y3r=h+oo; y7=1/4bar_height; filldraw stroke z0e{down}...pulled_arc.e(1,2) & pulled_arc.e(2,3) ...z4e---z5e...z6e{right}...{up}z7e; % diagonal, bowl, and hook penlabels(0,1,2,3,4,5,6,7); endchar; cmchar "Lowercase Greek beta for extended ASCII"; beginchar(oct"003",9.5u#,asc_height#,desc_depth#); italcorr .5[x_height#,asc_height#]*slant-u#; adjust_fit(0,ic#); pickup fine.nib; pos0(hair,180); pos1(hair,180); pos2(vair,90); pos3(stem,0); pos4(vair,-90); pos5(hair,-180); pos6(vair,-270); pos7(curve,-360); pos8(vair,-450); pos9(hair,-540); x0=x1=x9; lft x0l=hround(1.5u-.5hair); x2=x4=x6=x8=.5w+.25u; rt x3r=hround(w-1.5u); rt x7r=hround(w-1.5u+.5curve); rt x5l=hround(x4-u); bot y0=-d; y1=top y6r=x_height; top y2r=h+oo; y3=.5[y2,y4]; y5=.5[y4,y6]; top y6r-bot y4r=vstem+eps; bot y8=-oo; y7=y9=.5[y6,y8]; if y6l