% $Header: tcomlig.mf,v 1.1 88/01/15 13:12:35 simpson Rel $ % $Log: tcomlig.mf,v $ %Revision 1.1 88/01/15 13:12:35 simpson %initial release % %Revision 0.1 87/12/11 19:01:25 simpson %beta test % % This file defines characters common to roman and italic text fonts % that appear only when |ligs>0|. % Character codes \006 is generated cmchar "Em dash"; beginchar(oct"006",18u#,x_height#,0); italcorr .61803x_height#*slant+.5u#; adjust_fit(letter_fit#,letter_fit#); pickup crisp.nib; pos1(vair,90); pos2(vair,90); top y1r=top y2r=vround(.61803h+.5vair); lft x1=-eps; rt x2=w+eps; filldraw stroke z1e--z2e; % bar penlabels(1,2); endchar;