summaryrefslogtreecommitdiff
path: root/fonts/futhorc
diff options
context:
space:
mode:
authorNorbert Preining <norbert@preining.info>2019-09-02 13:46:59 +0900
committerNorbert Preining <norbert@preining.info>2019-09-02 13:46:59 +0900
commite0c6872cf40896c7be36b11dcc744620f10adf1d (patch)
tree60335e10d2f4354b0674ec22d7b53f0f8abee672 /fonts/futhorc
Initial commit
Diffstat (limited to 'fonts/futhorc')
-rw-r--r--fonts/futhorc/README26
-rw-r--r--fonts/futhorc/futhor10.mf39
-rw-r--r--fonts/futhorc/futhor20.mf39
-rw-r--r--fonts/futhorc/futhor30.mf39
-rw-r--r--fonts/futhorc/futhor40.mf39
-rw-r--r--fonts/futhorc/futhor50.mf39
l---------fonts/futhorc/futhorc.doc1
-rw-r--r--fonts/futhorc/futhorc.mf316
-rw-r--r--fonts/futhorc/futhorc.tex82
9 files changed, 620 insertions, 0 deletions
diff --git a/fonts/futhorc/README b/fonts/futhorc/README
new file mode 100644
index 0000000000..bae80f4055
--- /dev/null
+++ b/fonts/futhorc/README
@@ -0,0 +1,26 @@
+Hi there - Stayka is here! 1993/05/02
+
+Here I forward you the Metafont source for the anglofriesic futhorc
+alphabet with corrected spacing between the letters. They are as good
+as Shavana and I managed to design them. I include the parameter files
+and the files to compile 10pt, 20pt, 30pt, 40pt and 50pt runes, which
+should cover almost every case.
+
+This font should be used with LaTeX and the old font selection scheme,
+as I haven't created a font family and so on for it yet. Who wants to
+use AmS-LaTeX or the new font selection scheme has to put a little more
+work in it.
+
+I didn't encounter any problems compiling this font with Metafont (with
+plain bases, not the computer modern ones), and I hope you don't either.
+Enjoy!
+
+------------------------------------------------------------------------
+Email: hz225wu@unidui.uni-duisburg.de (Micaela "Stayka" Pantke)
+------------------------------------------------------------------------
+Snailmail: Micaela "Stayka Pantke
+ Westhoffstrasse 111
+ 46149 Oberhausen
+ Germany
+------------------------------------------------------------------------
+
diff --git a/fonts/futhorc/futhor10.mf b/fonts/futhorc/futhor10.mf
new file mode 100644
index 0000000000..2563b21e71
--- /dev/null
+++ b/fonts/futhorc/futhor10.mf
@@ -0,0 +1,39 @@
+%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
+%
+% futhor10.mf
+%
+% Das Anglofriesische Futhorc (The Anglofriesic Futhorc)
+% 10pt version (1993/05/02)
+%
+% Design by Micaela "Stayka" Pantke + Sigrid "Shavana" Juckel
+%
+% Email: hz225wu@unidui.uni-duisburg.de (Micaela Pantke)
+% Snailmail: Micaela Pantke
+% Westhoffstrasse 111
+% 46149 Oberhausen
+% Germany
+%
+% You're free to use or copy this file as long as you leave this
+% header intact and don't change the contents.
+%
+%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
+
+font_identifier:="futhorc";
+font_size 10pt#; % design size
+ht#:=10pt#; % height of the letters
+u#:=.2pt#; % unit width
+s#:=.9pt#; % width correction right + left
+o#:=1/20pt#; % overshoot
+px#:=.7pt#; % horizontal thickness of the pen
+font_normal_space:=7pt#; % width of blank space
+font_normal_shrink:=.9pt#; % width correction for blank space
+font_x_height:=5pt#; % height of one "ex"
+input futhorc % call parameter file
+end % and end!
+
+%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
+%
+% End of File
+%
+%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
+
diff --git a/fonts/futhorc/futhor20.mf b/fonts/futhorc/futhor20.mf
new file mode 100644
index 0000000000..d06009d4e0
--- /dev/null
+++ b/fonts/futhorc/futhor20.mf
@@ -0,0 +1,39 @@
+%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
+%
+% futhor20.mf
+%
+% Das Anglofriesische Futhorc (The Anglofriesic Futhorc)
+% 20pt version (1993/05/02)
+%
+% Design by Micaela "Stayka" Pantke + Sigrid "Shavana" Juckel
+%
+% Email: hz225wu@unidui.uni-duisburg.de (Micaela Pantke)
+% Snailmail: Micaela Pantke
+% Westhoffstrasse 111
+% 46149 Oberhausen
+% Germany
+%
+% You're free to use or copy this file as long as you leave this
+% header intact and don't change the contents.
+%
+%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
+
+font_identifier:="futhorc";
+font_size 20pt#; % design size
+ht#:=20pt#; % height of the letters
+u#:=.4pt#; % unit width
+s#:=1.1pt#; % width correction right + left
+o#:=1/10pt#; % overshoot
+px#:=1pt#; % horizontal thickness of the pen
+font_normal_space:=14pt#; % width of blank space
+font_normal_shrink:=1.1pt#; % width correction for blank space
+font_x_height:=10pt#; % height of one "ex"
+input futhorc % call parameter file
+end % and end!
+
+%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
+%
+% End of File
+%
+%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
+
diff --git a/fonts/futhorc/futhor30.mf b/fonts/futhorc/futhor30.mf
new file mode 100644
index 0000000000..9e0c751653
--- /dev/null
+++ b/fonts/futhorc/futhor30.mf
@@ -0,0 +1,39 @@
+%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
+%
+% futhor30.mf
+%
+% Das Anglofriesische Futhorc (The Anglofriesic Futhorc)
+% 30pt version (1993/05/02)
+%
+% Design by Micaela "Stayka" Pantke + Sigrid "Shavana" Juckel
+%
+% Email: hz225wu@unidui.uni-duisburg.de (Micaela Pantke)
+% Snailmail: Micaela Pantke
+% Westhoffstrasse 111
+% 46149 Oberhausen
+% Germany
+%
+% You're free to use or copy this file as long as you leave this
+% header intact and don't change the contents.
+%
+%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
+
+font_identifier:="futhorc";
+font_size 30pt#; % design size
+ht#:=30pt#; % height of the letters
+u#:=.6pt#; % unit width
+s#:=1.5pt#; % width correction right + left
+o#:=1/7pt#; % overshoot
+px#:=1.5pt#; % horizontal thickness of the pen
+font_normal_space:=21pt#; % width of blank space
+font_normal_shrink:=1.3pt#; % width correction for blank space
+font_x_height:=15pt#; % height of one "ex"
+input futhorc % call parameter file
+end % and end!
+
+%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
+%
+% End of File
+%
+%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
+
diff --git a/fonts/futhorc/futhor40.mf b/fonts/futhorc/futhor40.mf
new file mode 100644
index 0000000000..5f88657350
--- /dev/null
+++ b/fonts/futhorc/futhor40.mf
@@ -0,0 +1,39 @@
+%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
+%
+% futhor40.mf
+%
+% Das Anglofriesische Futhorc (The Anglofriesic Futhorc)
+% 40pt version (1993/05/02)
+%
+% Design by Micaela "Stayka" Pantke + Sigrid "Shavana" Juckel
+%
+% Email: hz225wu@unidui.uni-duisburg.de (Micaela Pantke)
+% Snailmail: Micaela Pantke
+% Westhoffstrasse 111
+% 46149 Oberhausen
+% Germany
+%
+% You're free to use or copy this file as long as you leave this
+% header intact and don't change the contents.
+%
+%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
+
+font_identifier:="futhorc";
+font_size 40pt#; % design size
+ht#:=40pt#; % height of the letters
+u#:=.8pt#; % unit width
+s#:=1.7pt#; % width correction right + left
+o#:=1/5pt#; % overshoot
+px#:=2pt#; % horizontal thickness of the pen
+font_normal_space:=28pt#; % width of blank space
+font_normal_shrink:=1.7pt#; % width correction for blank space
+font_x_height:=20pt#; % height of one "ex"
+input futhorc % call parameter file
+end % and end!
+
+%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
+%
+% End of File
+%
+%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
+
diff --git a/fonts/futhorc/futhor50.mf b/fonts/futhorc/futhor50.mf
new file mode 100644
index 0000000000..f48cd0330d
--- /dev/null
+++ b/fonts/futhorc/futhor50.mf
@@ -0,0 +1,39 @@
+%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
+%
+% futhor50.mf
+%
+% Das Anglofriesische Futhorc (The Anglofriesic Futhorc)
+% 50pt version (1993/05/02)
+%
+% Design by Micaela "Stayka" Pantke + Sigrid "Shavana" Juckel
+%
+% Email: hz225wu@unidui.uni-duisburg.de (Micaela Pantke)
+% Snailmail: Micaela Pantke
+% Westhoffstrasse 111
+% 46149 Oberhausen
+% Germany
+%
+% You're free to use or copy this file as long as you leave this
+% header intact and don't change the contents.
+%
+%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
+
+font_identifier:="futhorc";
+font_size 50pt#; % design size
+ht#:=50pt#; % height of the letters
+u#:=1pt#; % unit width
+s#:=3pt#; % width correction right + left
+o#:=1/2pt#; % overshoot
+px#:=4pt#; % horizontal thickness of the pen
+font_normal_space:=35pt#; % width of blank space
+font_normal_shrink:=3pt#; % width correction for blank space
+font_x_height:=25pt#; % height of one "ex"
+input futhorc % call parameter file
+end % and end!
+
+%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
+%
+% End of File
+%
+%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
+
diff --git a/fonts/futhorc/futhorc.doc b/fonts/futhorc/futhorc.doc
new file mode 120000
index 0000000000..100b93820a
--- /dev/null
+++ b/fonts/futhorc/futhorc.doc
@@ -0,0 +1 @@
+README \ No newline at end of file
diff --git a/fonts/futhorc/futhorc.mf b/fonts/futhorc/futhorc.mf
new file mode 100644
index 0000000000..2354c40c46
--- /dev/null
+++ b/fonts/futhorc/futhorc.mf
@@ -0,0 +1,316 @@
+%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
+%
+% futhorc.mf
+%
+% Das Anglofriesische Futhorc (The Anglofriesic Futhorc)
+% Parameter File (1993/05/02)
+%
+% Design by Micaela "Stayka" Pantke + Sigrid "Shavana" Juckel
+%
+% Email: hz225wu@unidui.uni-duisburg.de (Micaela Pantke)
+% Snailmail: Micaela Pantke
+% Westhoffstrasse 111
+% 46149 Oberhausen
+% Germany
+%
+% You're free to use or copy this file as long as you leave this
+% header intact and don't change the contents.
+%
+%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
+
+mode_setup; % switches into Metafont mode
+
+ho#:=o#; % horizontal overshoot
+leftstemloc#:=2.5u#+s#; % position of left bottom lines
+py#:=.9px#; % vertical thickness of the pen
+
+define_pixels(s,u);
+define_blacker_pixels(px,py);
+pickup pencircle xscaled px yscaled py;
+runen_pen:=savepen;
+define_good_x_pixels(leftstemloc);
+define_corrected_pixels(o); % turns overshoot correction on
+define_horizontal_corrected_pixels(ho);
+
+def beginrunenchar(expr code, unit_width) =
+ beginchar(code,unit_width*u#+2s#,ht#,0);
+ pickup runen_pen enddef;
+
+%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
+%
+% There they are: the runes
+%
+%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
+
+beginrunenchar("F",20);
+x1=x2=x3=x6=leftstemloc; x4=x5=w-s;
+bot y1=-o; y2=.4h; y3=.7h; y4=.6h; y5=.9h; top y6= h;
+draw z1--z6;
+draw z3--z5;
+draw z2--z4;
+labels(1,2,3,4,5);
+endchar;
+
+beginrunenchar("U",30);
+x1=x2=leftstemloc; x3=x4=w-s;
+bot y1=bot y4=-o; y3=.6h; top y2=h;
+draw z1--z2--z3--z4;
+labels(1,2,3,4);
+endchar;
+
+beginrunenchar("t",20); % This should be a "TH"
+x1=x2=x3=x4=leftstemloc; x5=w-s;
+bot y1=-o; y2=.25h; y5=.5h; y3=.75h; top y4=h;
+draw z1--z4;
+draw z2--z5--z3;
+labels(1,2,3,4,5);
+endchar;
+
+beginrunenchar("O",30);
+x1=x2=x3=leftstemloc; x4=x5=.5(w+s); x6=x7=w-s;
+bot y1=-o; y2=.7h; y4=.5h; y6=.7h; y5=.8h; top y3=top y7=h;
+draw z1--z3--z5--z7;
+draw z2--z4--z6;
+labels(1,2,3,4,5,6,7);
+endchar;
+
+beginrunenchar("R",20);
+x1=x2=x3=leftstemloc; x4=x5=w-s;
+bot y1=bot y4=-o; y2=.4h; y5=.7h; top y3=h;
+draw z1--z3--z5--z2--z4;
+labels(1,2,3,4,5);
+endchar;
+
+beginrunenchar("C",20);
+x1=x2=x3=leftstemloc; x4=x5=w-s;
+bot y1=bot y4=-o; y2=.65h; y5=.35h; top y3=h;
+draw z1--z3;
+draw z4--z5--z2;
+labels(1,2,3,4,5);
+endchar;
+
+beginrunenchar("g",30); % This should be a g(j/zh)
+x1=x2=leftstemloc; x3=x4=w-s;
+bot y1=bot y3=-o; top y2=top y4=h;
+draw z1--z4;
+draw z2--z3;
+labels(1,2,3,4);
+endchar;
+
+beginrunenchar("W",20);
+x1=x2=x3=leftstemloc; x4=w-s;
+bot y1=-o; y2=.4h; y4=.7h; top y3=h;
+draw z1--z3--z4--z2;
+labels(1,2,3,4);
+endchar;
+
+beginrunenchar("H",30);
+x1=x2=x3=x7=leftstemloc; x4=x5=x6=x8=w-s;
+bot y1=bot y4=-o; y2=.75h; y5=.45h; y7=.55h; y8=.25h; top y3=top y6=h;
+draw z1--z3;
+draw z4--z6;
+draw z2--z5;
+draw z7--z8;
+labels(1,2,3,4,5,6,7,8);
+endchar;
+
+beginrunenchar("N",20);
+x1=leftstemloc; x2=x3=.5(w+s); x4=w-s;
+bot y2=-o; y1=.6h; y4=.4h; top y3=h;
+draw z1--z4;
+draw z2--z3;
+labels(1,2,3,4);
+endchar;
+
+beginrunenchar("I",10);
+x1=x2=leftstemloc;
+bot y1=-o; top y2=h;
+draw z1--z2;
+labels(1,2);
+endchar;
+
+beginrunenchar("Y",30);
+x1=leftstemloc; x2=x3=x5=x6=.5(w+s); x4=w-s;
+bot y5=-o; y2=.2h; y1=y4=.5h; y3=.8h; top y6=h;
+draw z1--z3--z4--z2--z1;
+draw z6--z5;
+labels(1,2,3,4,5,6);
+endchar;
+
+beginrunenchar("o",30); % This should be an "EO"
+x1=leftstemloc; x2=x3=.5(w+s); x4=w-s;
+bot y2=-o; y1=.3h; y4=.7h; top y3=h;
+draw z1--z2--z3--z4;
+labels(1,2,3,4);
+endchar;
+
+beginrunenchar("P",30);
+x1=x2=leftstemloc; x3=x4=.5(w+s); x5=x6=w-s;
+bot y1=bot y5=-o; y3=.3h; y4=.7h; top y2=top y6=h;
+draw z5--z3--z1--z2--z4--z6;
+labels(1,2,3,4,5,6);
+endchar;
+
+beginrunenchar("X",30);
+x1=leftstemloc; x2=x3=x4=.5(w+s); x5=w-s;
+bot y2=-o; y3=.6h; top y1=top y4=top y5=h;
+draw z2--z4;
+draw z1--z3--z5;
+labels(1,2,3,4,5);
+endchar;
+
+beginrunenchar("S",20);
+x2=x4=leftstemloc; x1=x3=w-s;
+bot y1=-o; y2=.3h; y3=.7h; top y4=h;
+draw z1--z3--z2--z4;
+labels(1,2,3,4);
+endchar;
+
+beginrunenchar("T",30);
+x1=leftstemloc; x2=x3=.5(w+s); x4=w-s;
+bot y2=-o; y1=y4=.7h; top y3=h;
+draw z2--z3;
+draw z1--z3--z4;
+labels(1,2,3,4);
+endchar;
+
+beginrunenchar("B",20);
+x1=x2=x3=leftstemloc; x4=x5=w-s;
+bot y1=-o; y4=.3h; y2=.5h; y5=.7h; top y3=h;
+draw z1--z3--z5--z2--z4--z1;
+labels(1,2,3,4,5);
+endchar;
+
+beginrunenchar("E",30);
+x1=x2=leftstemloc; x3=.5(w+s); x4=x5=w-s;
+bot y1=bot y5=-o; y3=.7h; top y2=top y4=h;
+draw z1--z2--z3--z4--z5;
+labels(1,2,3,4,5);
+endchar;
+
+beginrunenchar("M",30);
+x1=x2=x3=leftstemloc; x4=x5=x6=w-s;
+bot y1=bot y4=-o; y2=y5=.4h; top y6=top y3=h;
+draw z1--z3--z5;
+draw z2--z6--z4;
+labels(1,2,3,4,5,6);
+endchar;
+
+beginrunenchar("L",20);
+x1=x2=leftstemloc; x3=w-s;
+bot y1=-o; y3=.6h; top y2=h;
+draw z1--z2--z3;
+labels(1,2,3);
+endchar;
+
+beginrunenchar("n",30); % This should be a "NG"
+x1=x2=leftstemloc; x3=.3(w+s); x4=.7(w+s); x5=x6=w-s;
+bot y1 = bot y5 = -o; y3=y4=.5h; top y2=top y6=h;
+draw z1--z4--z2;
+draw z5--z3--z6;
+labels(1,2,3,4,5,6);
+endchar;
+
+beginrunenchar("D",30);
+x1=x2=x5=x6=leftstemloc; x3=x4=x7=x8=w-s;
+bot y1=bot y3=-o; y5=y7=.2h; y6=y8=.8h; top y2=top y4=h;
+draw z1--z2;
+draw z3--z4;
+draw z6--z7;
+draw z5--z8;
+labels(1,2,3,4,5,6,7,8);
+endchar;
+
+beginrunenchar("e",30); % This should be e (ay) oe
+x1=x2=leftstemloc; x3=.5(w+s); x4=x5=w-s;
+bot y1= bot y4=-o; y2=y5=.7h; top y3=h;
+draw z1--z5--z3--z2--z4;
+labels(1,2,3,4,5);
+endchar;
+
+beginrunenchar("A",30);
+x1=x2=x3=leftstemloc; x4=x5=.7(w+s); x6=w-s;
+bot y1=-o; y2=.7h; y4=.5h; y5=.8h; top y3=top y6=h;
+draw z1--z3--z5--z6;
+draw z2--z4;
+labels(1,2,3,4,5,6);
+endchar;
+
+beginrunenchar("a",20); % bzw. ein ae
+x1=x2=x3=leftstemloc; x4=x5=w-s;
+bot y1=-o; y2=.7h; y4=.5h; y5=.8h; top y3=h;
+draw z1--z3--z5;
+draw z2--z4;
+labels(1,2,3,4,5);
+endchar;
+
+beginrunenchar("y",30);
+x1=x2=leftstemloc;x5=x6=.5(w+s); x3=x4=w-s;
+bot y1=bot y4= bot y5=-o; y6=.25h; y3=.6h; top y2=h;
+draw z1--z2--z3--z4;
+draw z5--z6;
+labels(1,2,3,4,5,6);
+endchar;
+
+beginrunenchar("r",30); % This is an "ea"
+x3=leftstemloc; x5=.25(w+s); x1=x2=.5(w+s); x6=.75(w+s); x4=w-s;
+bot y1=-o; y5=y6=.7h; top y2=top y3=top y4=h;
+draw z1--z2;
+draw z3--z5--z2--z6--z4;
+labels(1,2,3,4,5,6);
+endchar;
+
+beginrunenchar("i",20); % This is an eo/io
+x3=x5=leftstemloc; x1=x2=.5(w+s); x4=x6=w-s;
+bot y1=-o; y3=y4=.7h; y5=y6=.3h; top y2=h;
+draw z1--z2;
+draw z3--z6;
+draw z4--z5;
+labels(1,2,3,4,5,6);
+endchar;
+
+beginrunenchar("Q",30);
+x3=leftstemloc; x4=.25(w+s); x1=x2=.5(w+s); x5=.75(w+s); x6=w-s;
+bot y1=bot y3=-o; y4=.3h; y5=.7h; top y2=top y6=h;
+draw z3--z4--z1--z2--z5--z6;
+labels(1,2,3,4,5,6);
+endchar;
+
+beginrunenchar("K",30);
+x1=leftstemloc; x2=x3=x4=.5(w+s); x5=w-s;
+bot y1=bot y4 =bot y5=-o; y3=.4h; top y2=h;
+draw z2--z4;
+draw z1--z3--z5;
+labels(1,2,3,4,5);
+endchar;
+
+beginrunenchar("s",30); % This is a "ST"
+x1=x2=leftstemloc; x3=x6=.5(w+s); x4=x5=w-s;
+bot y1=bot y5=-o; y3=.7h; y6=.3h; top y2=top y4=h;
+draw z1--z2--z3--z4--z5--z6--z1;
+labels(1,2,3,4,5,6);
+endchar;
+
+beginrunenchar("G",30);
+x1=x7=x8=leftstemloc; x2=x3=.5(w+s); x4=x5=x6=w-s;
+bot y5=bot y7=-o; y2=.2h; y1=y4=.5h; y3=.8h; top y6=top y8=h;
+draw z1--z3--z4--z2--z1;
+draw z6--z7;
+draw z5--z8;
+labels(1,2,3,4,5,6,7,8);
+endchar;
+
+beginrunenchar(":",10);
+x1=x2=x3=x4=leftstemloc;
+y1=.2h; y2=.35h; y3=.65h; y4=.8h;
+draw z1--z2;
+draw z3--z4;
+labels(1,2,3,4);
+endchar;
+
+%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
+%
+% End of File
+%
+%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
+
diff --git a/fonts/futhorc/futhorc.tex b/fonts/futhorc/futhorc.tex
new file mode 100644
index 0000000000..3ed3c0b646
--- /dev/null
+++ b/fonts/futhorc/futhorc.tex
@@ -0,0 +1,82 @@
+\documentstyle{article}
+%
+% File: futhorc.tex
+% Date: 1993/05/02
+%
+\parindent0pt
+\newfont{\futhorcnormal}{futhor10}
+\newfont{\futhorclarge}{futhor20}
+\newfont{\futhorclarger}{futhor30}
+\newfont{\futhorchuge}{futhor40}
+\newfont{\futhorcmonstrous}{futhor50}
+\begin{document}
+
+\begin{tabular}{|c|c|c|}
+\hline
+\multicolumn{3}{|c|}{\large\bf{}The Anglofriesic Futhorc,
+10pt\rule[-0.5ex]{0pt}{3ex}}\\
+\hline
+\hline
+Letter to type in & 'Real Letter' & Rune \\
+\hline
+\rule{0pt}{3ex} F & F & {\futhorcnormal F } \\
+U & U & {\futhorcnormal U } \\
+t & TH & {\futhorcnormal t } \\
+O & O & {\futhorcnormal O } \\
+R & R & {\futhorcnormal R } \\
+C & C & {\futhorcnormal C } \\
+g & G (J/ZH) & {\futhorcnormal g } \\
+W & W & {\futhorcnormal W } \\
+H & H & {\futhorcnormal H } \\
+N & N & {\futhorcnormal N } \\
+I & I & {\futhorcnormal I } \\
+Y & Y & {\futhorcnormal Y } \\
+o & EO & {\futhorcnormal o } \\
+P & P & {\futhorcnormal P } \\
+X & X & {\futhorcnormal X } \\
+S & S & {\futhorcnormal S } \\
+T & T & {\futhorcnormal T } \\
+B & B & {\futhorcnormal B } \\
+E & E & {\futhorcnormal E } \\
+M & M & {\futhorcnormal M } \\
+L & L & {\futhorcnormal L } \\
+n & NG & {\futhorcnormal n } \\
+D & D & {\futhorcnormal D } \\
+e & E (AY) OE & {\futhorcnormal e } \\
+A & A & {\futhorcnormal A } \\
+a & AE & {\futhorcnormal a } \\
+y & Y & {\futhorcnormal y } \\
+r & EA & {\futhorcnormal r } \\
+i & EO/IO & {\futhorcnormal i } \\
+Q & Q & {\futhorcnormal Q } \\
+K & K & {\futhorcnormal K } \\
+s & ST & {\futhorcnormal s } \\
+G & G & {\futhorcnormal G } \\
+: & : & {\futhorcnormal : } \\
+\hline
+\end{tabular}
+
+\pagebreak
+{\bf Futhorc, 10pt}\\[1ex]
+{\futhorcnormal FUtORC}
+
+\vspace{3ex}
+{\bf Futhorc, 20pt}\\[1ex]
+{\futhorclarge FUtORC}
+
+\vspace{3ex}
+{\bf Futhorc, 30pt}\\[1ex]
+{\futhorclarger FUtORC}
+
+\vspace{3ex}
+{\bf Futhorc, 40pt}\\[1ex]
+{\futhorchuge FUtORC}
+
+\vspace{3ex}
+{\bf Futhorc, 50pt}\\[1ex]
+{\futhorcmonstrous FUtORC}
+
+
+
+\end{document}
+