% This is IROMSPU.MF in text format, as of Mar 31, 1986. % This file contains special letters and letter combinations, % compatible with the alphabet `{\tt romanu}'. % Codes \0035--\0037 are generated. % ************************************************************************ % Öslenskun 7. jan. 1988. (IROMSPU.MF) % Fleygt £t AE og OE. AE er ¡ skr nni iceland3.mf % Breytt um t”lugildi   gegnustrikuÐu ”-i % ************************************************************************ iff known scand_cap_o: cmchar "Scandinavian letter O/slash"; beginchar(oct"076",14u#,cap_height#+.25desc_depth#,.25desc_depth#); italcorr .7cap_height#*slant-.5u#; adjust_fit(0,0); penpos1(vair,90); penpos3(vair,-90); penpos2(fudged.cap_stem,180); penpos4(fudged.cap_stem,0); if monospace: x2r=hround 1.5u; interim superness:=sqrt superness; % make |"O"| not |"0"| else: x2r=hround u; fi x4r=w-x2r; x1=x3=.5w; y1r=cap_height+o; y2=y4=.5cap_height-vair_corr; y3r=-o; penstroke pulled_arc.e(1,2) & pulled_arc.e(2,3) & pulled_arc.e(3,4) & pulled_arc.e(4,1) & cycle; % bowl x5=x4-vair; x6=x2+vair; 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;