% This is ITALSP.MF in text format, as of May 5, 1986. % This file contains special letters and letter combinations, % compatible with the alphabet `{\tt itall}'. % Codes \0020--\0021 and \0031--\0034 are generated. cmchar "Dotless italic letter i"; beginchar(oct"020",5u#,x_height#,0); italcorr 1/3x_height#*slant+.5hair#+.5u#; adjust_fit(if monospace:u#,u# else: 0,0 fi); pickup fine.nib; x0=0; x5=w; x2=.5w+.25u; x3=.5w-.25u; hook_in(0,1,2)(skewed); hook_out(3,4,5)(skewed); % hooks filldraw stroke z2e--z3e; % stem penlabels(0,1,2,3,4,5); endchar; cmchar "Dotless italic letter j"; beginchar(oct"021",5.5u#,x_height#,desc_depth#); italcorr x_height#*slant+.5stem#-2u#; adjust_fit(if monospace:2u# else: 0 fi, 0); pickup fine.nib; x0=0; x2=x3; pos3(stem,0); lft x3l=hround(w-2u-.5stem); hook_in(0,1,2); % opening hook pos4(vair,-90); pos5(hair,-180); pos6(flare,-180); bot y3=-1/3d; bot y4r=-d-oo; y6-.5flare=-vround.9d; x4=1/3(w-u); lft x5r=min(hround-.5u,lft x5r+x4-x5l-eps); filldraw stroke z2e---z3e...{left}z4e; % stem and arc bulb(4,5,6); % bulb penlabels(0,1,2,3,4,5,6); endchar; iff known scand_lower_o: cmchar "Italic Scandinavian letter o/slash"; beginchar(oct"074",9u#,x_height#+.5desc_depth#,.5desc_depth#); italcorr h#*slant-u#+.5vair#; adjust_fit(0,0); pickup fine.nib; pos1(vair,90); pos2(fudged.stem,180); pos3(vair,270); pos4(fudged.stem,360); x1=x3=.5w; lft x2r=hround(1.5u-.5fudged.stem); x4=w-x2; top y1=x_height+oo; y2=y4=.5[y1,y3]; bot y3=-oo; filldraw stroke pulled_arc.e(1,2) & pulled_arc.e(2,3) & pulled_arc.e(3,4) & pulled_arc.e(4,1); % bowl x5=x4; x6=x2; y5=h; y6=-d; numeric theta; theta=angle(z5-z6)-90; pickup crisp.nib; pos5(vair,theta); pos6(vair,theta); filldraw stroke z5e--z6e; % diagonal penlabels(1,2,3,4,5,6); endchar;