From e0c6872cf40896c7be36b11dcc744620f10adf1d Mon Sep 17 00:00:00 2001 From: Norbert Preining Date: Mon, 2 Sep 2019 13:46:59 +0900 Subject: Initial commit --- fonts/icelandic/MF/iromspu.mf | 29 +++++++++++++++++++++++++++++ 1 file changed, 29 insertions(+) create mode 100644 fonts/icelandic/MF/iromspu.mf (limited to 'fonts/icelandic/MF/iromspu.mf') diff --git a/fonts/icelandic/MF/iromspu.mf b/fonts/icelandic/MF/iromspu.mf new file mode 100644 index 0000000000..7982c36740 --- /dev/null +++ b/fonts/icelandic/MF/iromspu.mf @@ -0,0 +1,29 @@ +% 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; -- cgit v1.2.3