summaryrefslogtreecommitdiff
path: root/fonts/icelandic/MF/iromspu.mf
diff options
context:
space:
mode:
Diffstat (limited to 'fonts/icelandic/MF/iromspu.mf')
-rw-r--r--fonts/icelandic/MF/iromspu.mf29
1 files changed, 29 insertions, 0 deletions
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;