% $Header: tromms.mf,v 1.1 88/01/15 13:13:12 simpson Rel $ % $Log: tromms.mf,v $ %Revision 1.1 88/01/15 13:13:12 simpson %initial release % %Revision 0.1 87/12/11 19:01:45 simpson %beta test % % This file contains special characters of ``math italic'' fonts % that actually are not supposed to be slanted. % The italic corrections are zero in all of these characters. cmchar "Less than sign"; compute_spread(5/4x_height#,3/2x_height#); beginchar("<",14u#,v_center(spread#+rule_thickness#)); italcorr h#*slant-u#; adjust_fit(0,0); pickup rule.nib; lft x2=hround 1.5u-eps; x1=x3=w-x2; y1-y3=spread; y2=.5[y1,y3]=math_axis; draw z1--z2--z3; % diagonals labels(1,2,3); endchar; cmchar "Virgule (slash)"; beginchar(oct"016",9u#,body_height#,paren_depth#); % non-ASCII position italcorr body_height#*slant-.5u#; adjust_fit(0,0); pickup rule.nib; rt x1=hround(w-u)+eps; top y1=h+eps; lft x2=hround u-eps; bot y2=-d-eps; draw z1--z2; % diagonal penlabels(1,2); endchar; cmchar "Greater than sign"; compute_spread(5/4x_height#,3/2x_height#); beginchar(">",14u#,v_center(spread#+rule_thickness#)); italcorr math_axis#*slant-u#; adjust_fit(0,0); pickup rule.nib; rt x2=hround(w-1.5u)+eps; x1=x3=w-x2; y1-y3=spread; y2=.5[y1,y3]=math_axis; draw z1--z2--z3; % diagonals labels(1,2,3); endchar;