summaryrefslogtreecommitdiff
path: root/fonts/bard
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/bard
Initial commit
Diffstat (limited to 'fonts/bard')
-rw-r--r--fonts/bard/bard.mf1033
1 files changed, 1033 insertions, 0 deletions
diff --git a/fonts/bard/bard.mf b/fonts/bard/bard.mf
new file mode 100644
index 0000000000..c8bcdc0858
--- /dev/null
+++ b/fonts/bard/bard.mf
@@ -0,0 +1,1033 @@
+% ==================================================================
+% Celtic Bard Runes, 23.07.93 Jobst-Hartmut Lueddecke
+%
+% Email: lueddecke@rzbt.fh-hamburg.d400.de
+% lueddeck@rzbt.fh-hamburg.de
+%
+% see:
+% Faulmann: Das Buch der Schrift, Wien 1880, Page 166
+% Gann: Traethawdar hynafiafiaeth ac awdurdodaeth Coelbren y Beirdd
+% (Runesticks and Bards)
+%
+% This font is designed on historic sources. Enjoy it and use it
+% with fantasy role playing. It is real fun to give a player a
+% scroll written with this font.
+%
+% The celtic bard runes are
+% a aa e ee (=eh) i o oo (=oh) u uu (=uh) ue (=y) oe b v mm m p
+% f mh k (=c) ch ng g nn t th nh (=nd) d n lh l rh r s h w
+% 1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16.
+%
+% The Number 0 is new and the additional Characters are saxon runes
+% for nonhistorical usage.
+% ==================================================================
+%
+mode_def testing=
+ pixels_per_inch:=300*4;
+ blacker:=.1;
+ o_correction:=1;
+ fillin:=.01;
+ proofing:=2;
+ fontmaking:=0;
+ tracingtitles:=1;
+enddef;
+if unknown mode:
+mode:=testing; fi
+mode_setup;
+turningcheck := 0;
+
+if mode=testing: screenstrokes; fi
+
+% parameters that control what a wedge looks like.
+font_identifier := "bard";
+font_size 10pt#;
+u# := 1pt#;
+pw# := 2u#;
+runew# := 2pw#;
+runeh# := 4pw#;
+letter_fit# := 2pw#/3;
+font_normal_space := 2runew#;
+font_normal_stretch := 2runew#/3;
+font_normal_shrink := 4runew#/3;
+
+pen_thick# := u#/3;
+
+define_pixels(pw, runew, runeh, pen_thick, letter_fit)
+
+def penoct = makepen((.866,.5)--(.5,.866)--(-.5,.866)--(-.866,.5)
+ --(-.866,-.5)--(-.5,-.866)--(.5,-.866)--(.866,-.5)--cycle)
+enddef;
+
+def runepen = pickup penoct scaled pen_thick rotated 45; enddef;
+
+def adjust_fit(expr left_adj, right_adj) =
+ l := -hround(left_adj*hppp)-letter_fit;
+ interim xoffset := -l;
+ charwd := charwd+2letter_fit# + left_adj + right_adj;
+ r := l+hround(charwd*hppp);
+ w := r-hround(right_adj*hppp) - letter_fit;
+enddef;
+
+extra_beginchar := extra_beginchar & "runepen;adjust_fit(0,0);";
+
+def makebox(text r) =
+ r((-letter_fit,0), (w+letter_fit,0));
+ r((-letter_fit,h), (w+letter_fit,h));
+ r((-letter_fit,0), (-letter_fit,h));
+ r((w+letter_fit,0), (w+letter_fit,h));
+ r((0,0), (0,h));
+ r((w,0), (w,h));
+ if charic<>0:
+ r((w+charic*hppp,h.o_),(w+charic*hppp,.5h.o_));
+ fi
+enddef;
+
+% ============================================
+% Number 0, 19.07.93 jhl
+% ============================================
+beginchar("0",pw#,runeh#,0);
+z1 = (w/2, h/2);
+z2 = (w/2, h);
+draw z1--z2;
+endchar;
+
+% ============================================
+% Character A, 19.07.93 jhl
+% ============================================
+beginchar("A",2runew#,runeh#,0);
+z1 = (0, 0);
+z2 = (w/2, h);
+z3 = (w, 0);
+draw z1--z2--z3;
+endchar;
+
+% ============================================
+% Character a = A, 19.07.93 jhl
+% ============================================
+beginchar("a",2runew#,runeh#,0);
+z1 = (0, 0);
+z2 = (w/2, h);
+z3 = (w, 0);
+draw z1--z2--z3;
+endchar;
+
+% ============================================
+% Number 1, same as character a, 19.07.93 jhl
+% ============================================
+beginchar("1",2runew#,runeh#,0);
+z1 = (0, 0);
+z2 = (w/2, h);
+z3 = (w, 0);
+draw z1--z2--z3;
+endchar;
+
+% ============================================
+% ligature aa, ah, 19.07.93 jhl
+% long a like in the german words Jahr or Haar
+% ============================================
+beginchar(hex"0B",2runew#,runeh#,0);
+z1 = (0, 0);
+z2 = (w/2, h);
+z3 = (w, 0);
+z4 = (w/2, 0);
+draw z1--z2--z3;
+draw z2--z4;
+endchar;
+
+% ============================================
+% Character E, 19.07.93 jhl
+% ============================================
+beginchar("E",runew#,runeh#,0);
+z1 = (0, h/2);
+z2 = (w, 0);
+z3 = (w, h);
+draw z1--z2--z3;
+endchar;
+
+% ============================================
+% Character e = E, 19.07.93 jhl
+% ============================================
+beginchar("e",runew#,runeh#,0);
+z1 = (0, h/2);
+z2 = (w, 0);
+z3 = (w, h);
+draw z1--z2--z3;
+endchar;
+
+% ============================================
+% Number 2, same as character E, 19.07.93 jhl
+% ============================================
+beginchar("2",runew#,runeh#,0);
+z1 = (0, h/2);
+z2 = (w, 0);
+z3 = (w, h);
+draw z1--z2--z3;
+endchar;
+
+% ============================================
+% ligature ee, eh, 19.07.93 jhl
+% ============================================
+beginchar(hex"01",runew#,runeh#,0);
+z1 = (0, h/3);
+z2 = (w, 0);
+z3 = (w, h);
+z4 = (0, 2h/3);
+z5 = (w, h/3);
+draw z1--z2--z3;
+draw z4--z5;
+endchar;
+
+% ============================================
+% Character I, 19.07.93 jhl
+% ============================================
+beginchar("I",runew#,runeh#,0);
+z1 = (w/2, 0);
+z2 = (w/2, h);
+draw z1--z2;
+endchar;
+
+% ============================================
+% Character i = I, 19.07.93 jhl
+% ============================================
+beginchar("i",runew#,runeh#,0);
+z1 = (w/2, 0);
+z2 = (w/2, h);
+draw z1--z2;
+endchar;
+
+% ============================================
+% Character J = I, 19.07.93 jhl
+% ============================================
+beginchar("J",runew#,runeh#,0);
+z1 = (w/2, 0);
+z2 = (w/2, h);
+draw z1--z2;
+endchar;
+
+% ============================================
+% Character j = I, 19.07.93 jhl
+% ============================================
+beginchar("j",runew#,runeh#,0);
+z1 = (w/2, 0);
+z2 = (w/2, h);
+draw z1--z2;
+endchar;
+
+% ============================================
+% Number 3, same as character I, 19.07.93 jhl
+% ============================================
+beginchar("3",runew#,runeh#,0);
+z1 = (w/2, 0);
+z2 = (w/2, h);
+draw z1--z2;
+endchar;
+
+% ============================================
+% Character O, 19.07.93 jhl
+% ============================================
+beginchar("O",2runew#,runeh#,0);
+z1 = (0, h/2);
+z2 = (w/2, h);
+z3 = (w, h/2);
+z4 = (w/2, 0);
+draw z1--z2--z3--z4--z1;
+endchar;
+
+% ============================================
+% Character o = O, 19.07.93 jhl
+% ============================================
+beginchar("o",2runew#,runeh#,0);
+z1 = (0, h/2);
+z2 = (w/2, h);
+z3 = (w, h/2);
+z4 = (w/2, 0);
+draw z1--z2--z3--z4--z1;
+endchar;
+
+% ============================================
+% Number 4, same as character O, 19.07.93 jhl
+% ============================================
+beginchar("4",2runew#,runeh#,0);
+z1 = (0, h/2);
+z2 = (w/2, h);
+z3 = (w, h/2);
+z4 = (w/2, 0);
+draw z1--z2--z3--z4--z1;
+endchar;
+
+% ============================================
+% the ligature oo, oh 19.07.93, jhl
+% like in the german word Boot
+% ============================================
+beginchar(hex"11",2runew#,runeh#,0);
+z1 = (0, h/2);
+z2 = (w/2, h);
+z3 = (w, h/2);
+z4 = (w/2, 0);
+draw z1--z2--z3--z4--z1;
+draw z2--z4;
+endchar;
+
+% ============================================
+% Character U, 19.07.93 jhl
+% ============================================
+beginchar("U",2runew#,runeh#,0);
+z1 = (0, h);
+z2 = (w/2, 0);
+z3 = (w, h);
+draw z1--z2--z3;
+endchar;
+
+% ============================================
+% Character u = U, 19.07.93 jhl
+% ============================================
+beginchar("u",2runew#,runeh#,0);
+z1 = (0, h);
+z2 = (w/2, 0);
+z3 = (w, h);
+draw z1--z2--z3;
+endchar;
+
+% ============================================
+% the ligature uu, uh 19.07.93, jhl
+% like in the german word buh
+% ============================================
+beginchar(hex"12",2runew#,runeh#,0);
+z1 = (0, h);
+z2 = (w/2, 0);
+z3 = (w, h);
+z4 = (w/2, h);
+draw z1--z2--z3;
+draw z2--z4;
+endchar;
+
+% ==================================================
+% Character Y, or ligatures UE, Ue, "U, 19.07.93 jhl
+% ==================================================
+beginchar("Y",runew#,runeh#,0);
+z1 = (0, 0);
+z2 = (w, h);
+z3 = (0, h);
+z4 = (w/2, h/2);
+draw z1--z2;
+draw z3--z4;
+endchar;
+
+% ==================================================
+% Character y, or ligatures ue, "u, 19.07.93 jhl
+% ==================================================
+beginchar("y",runew#,runeh#,0);
+z1 = (0, 0);
+z2 = (w, h);
+z3 = (0, h);
+z4 = (w/2, h/2);
+draw z1--z2;
+draw z3--z4;
+endchar;
+
+% ==================================================
+% the ligature Oe, oe, "O, "o, 19.07.93 jhl
+% ==================================================
+beginchar(hex"0D",runew#,runeh#,0);
+z1 = (0, h);
+z2 = (w/2, h/2);
+z3 = (w, h);
+z4 = (w/2, h);
+z5 = (w/2, 0);
+draw z1--z2--z3;
+draw z4--z5;
+endchar;
+
+% ============================================
+% Character B, 19.07.93 jhl
+% ============================================
+beginchar("B",runew#,runeh#,0);
+z1 = (0, h);
+z2 = (0, 0);
+z3 = (w, h/2);
+draw z1--z2--z3;
+endchar;
+
+% ============================================
+% Character b = B, 19.07.93 jhl
+% ============================================
+beginchar("b",runew#,runeh#,0);
+z1 = (0, h);
+z2 = (0, 0);
+z3 = (w, h/2);
+draw z1--z2--z3;
+endchar;
+
+% ============================================
+% Number 5, same as character B, 19.07.93 jhl
+% ============================================
+beginchar("5",runew#,runeh#,0);
+z1 = (0, h);
+z2 = (0, 0);
+z3 = (w, h/2);
+draw z1--z2--z3;
+endchar;
+
+% ============================================
+% Character V, 19.07.93 jhl
+% ============================================
+beginchar("V",runew#,runeh#,0);
+z1 = (0, h);
+z2 = (0, 0);
+z3 = (w, h/3);
+z4 = (0, h/3);
+z5 = (w, 2h/3);
+draw z1--z2--z3;
+draw z4--z5;
+endchar;
+
+% ============================================
+% Character v = V, 19.07.93 jhl
+% ============================================
+beginchar("v",runew#,runeh#,0);
+z1 = (0, h);
+z2 = (0, 0);
+z3 = (w, h/3);
+z4 = (0, h/3);
+z5 = (w, 2h/3);
+draw z1--z2--z3;
+draw z4--z5;
+endchar;
+
+% ============================================
+% Character M, 19.07.93 jhl
+% ============================================
+beginchar("M",3runew#,runeh#,0);
+z1 = (0, h);
+z2 = (w/3, 0);
+z3 = (w/2, h/2);
+z4 = (w/3, h);
+z5 = (2w/3, 0);
+z6 = (w, h/2);
+draw z1--z2--z3;
+draw z4--z5--z6;
+endchar;
+
+% ============================================
+% Character m = M, 19.07.93 jhl
+% ============================================
+beginchar("m",3runew#,runeh#,0);
+z1 = (0, h);
+z2 = (w/3, 0);
+z3 = (w/2, h/2);
+z4 = (w/3, h);
+z5 = (2w/3, 0);
+z6 = (w, h/2);
+draw z1--z2--z3;
+draw z4--z5--z6;
+endchar;
+
+% ============================================
+% Number 6, same as character M, 19.07.93 jhl
+% ============================================
+beginchar("6",3runew#,runeh#,0);
+z1 = (0, h);
+z2 = (w/3, 0);
+z3 = (w/2, h/2);
+z4 = (w/3, h);
+z5 = (2w/3, 0);
+z6 = (w, h/2);
+draw z1--z2--z3;
+draw z4--z5--z6;
+endchar;
+
+% ============================================
+% the ligature Mm, mm 19.07.93, jhl
+% ============================================
+beginchar(hex"13",2runew#,runeh#,0);
+z1 = (0, 2h/3);
+z2 = (w, h/3);
+z3 = (w/2, 0);
+z4 = (w/2, h);
+draw z1--z2--z3--z4;
+endchar;
+
+% ============================================
+% Character P, 19.07.93 jhl
+% ============================================
+beginchar("P",runew#,runeh#,0);
+z1 = (0, 0);
+z2 = (0, h);
+z3 = (w, 2h/3);
+draw z1--z2--z3;
+endchar;
+
+% ============================================
+% Character p = P, 19.07.93 jhl
+% ============================================
+beginchar("p",runew#,runeh#,0);
+z1 = (0, 0);
+z2 = (0, h);
+z3 = (w, 2h/3);
+draw z1--z2--z3;
+endchar;
+
+% ============================================
+% Number 7, same as character P, 19.07.93 jhl
+% ============================================
+beginchar("7",runew#,runeh#,0);
+z1 = (0, 0);
+z2 = (0, h);
+z3 = (w, 2h/3);
+draw z1--z2--z3;
+endchar;
+
+% ============================================
+% Character F, 20.07.93 jhl
+% ============================================
+beginchar("F",runew#,runeh#,0);
+z1 = (0, 0);
+z2 = (0, h);
+z3 = (w, 2h/3);
+z4 = (0, 2h/3);
+z5 = (w, h/3);
+draw z1--z2--z3;
+draw z4--z5;
+endchar;
+
+% ============================================
+% Character f = F, 20.07.93 jhl
+% ============================================
+beginchar("f",runew#,runeh#,0);
+z1 = (0, 0);
+z2 = (0, h);
+z3 = (w, 2h/3);
+z4 = (0, 2h/3);
+z5 = (w, h/3);
+draw z1--z2--z3;
+draw z4--z5;
+endchar;
+
+% ============================================
+% Number 8, same as character F, 20.07.93 jhl
+% ============================================
+beginchar("8",runew#,runeh#,0);
+z1 = (0, 0);
+z2 = (0, h);
+z3 = (w, 2h/3);
+z4 = (0, 2h/3);
+z5 = (w, h/3);
+draw z1--z2--z3;
+draw z4--z5;
+endchar;
+
+% ============================================
+% the ligature Mh, mh 20.07.93, jhl
+% ============================================
+beginchar(hex"14",2runew#,runeh#,0);
+z1 = (0, 0);
+z2 = (w, 2h/3);
+z3 = (w/2, h);
+z4 = (w/2, 0);
+draw z1--z2--z3--z4;
+endchar;
+
+% ============================================
+% Character K, 20.07.93 jhl
+% ============================================
+beginchar("K",runew#,runeh#,0);
+z1 = (w, h);
+z2 = (0, h/2);
+z3 = (w, 0);
+draw z1--z2--z3;
+endchar;
+
+% ============================================
+% Character k = K, 20.07.93 jhl
+% ============================================
+beginchar("k",runew#,runeh#,0);
+z1 = (w, h);
+z2 = (0, h/2);
+z3 = (w, 0);
+draw z1--z2--z3;
+endchar;
+
+% ============================================
+% Number 9, same as character K, 20.07.93 jhl
+% ============================================
+beginchar("9",runew#,runeh#,0);
+z1 = (w, h);
+z2 = (0, h/2);
+z3 = (w, 0);
+draw z1--z2--z3;
+endchar;
+
+% ============================================
+% Character C = K, 20.07.93 jhl
+% ============================================
+beginchar("C",runew#,runeh#,0);
+z1 = (w, h);
+z2 = (0, h/2);
+z3 = (w, 0);
+draw z1--z2--z3;
+endchar;
+
+% ============================================
+% Character c = K, 20.07.93 jhl
+% ============================================
+beginchar("c",runew#,runeh#,0);
+z1 = (w, h);
+z2 = (0, h/2);
+z3 = (w, 0);
+draw z1--z2--z3;
+endchar;
+
+% ============================================
+% the ligature Ch, ch 20.07.93, jhl
+% ============================================
+beginchar(hex"15",runew#,runeh#,0);
+z1 = (w, h);
+z2 = (0, h/2);
+z3 = (w, 0);
+z4 = (0, 0);
+z5 = (0, h);
+draw z1--z2--z3;
+draw z4--z5;
+endchar;
+
+% ============================================
+% the ligature Ng, ng 20.07.93, jhl
+% ============================================
+beginchar(hex"03",runew#,runeh#,0);
+z1 = (0, h);
+z2 = (w, 0);
+z3 = (0, h/3);
+z4 = (w, h);
+draw z1--z2--z3--z4;
+endchar;
+
+% ============================================
+% Character G, ligature 10, 20.07.93 jhl
+% ============================================
+beginchar("G",runew#,runeh#,0);
+z1 = (w/2, h);
+z2 = (0, h/2);
+z3 = (w/2, 0);
+z4 = (w, h/2);
+draw z1--z2--z3--z4;
+endchar;
+
+% ============================================
+% Character g = G, 20.07.93 jhl
+% ============================================
+beginchar("g",runew#,runeh#,0);
+z1 = (w/2, h);
+z2 = (0, h/2);
+z3 = (w/2, 0);
+z4 = (w, h/2);
+draw z1--z2--z3--z4;
+endchar;
+
+% ============================================
+% the ligature nn 20.07.93, jhl
+% ============================================
+beginchar(hex"16",runew#,runeh#,0);
+z1 = (0, h);
+z2 = (w, h/3);
+z3 = (w/2, 0);
+z4 = (0, h/3);
+z5 = (w, h);
+draw z1--z2--z3--z4--z5;
+endchar;
+
+% ============================================
+% Character T, ligature 11, 20.07.93 jhl
+% ============================================
+beginchar("T",runew#,runeh#,0);
+z1 = (w/2, h);
+z2 = (w/2, 0);
+z3 = (0, 2h/3);
+z4 = (w, 2h/3);
+draw z1--z2;
+draw z3--z1--z4;
+endchar;
+
+% ============================================
+% Character t = T, 20.07.93 jhl
+% ============================================
+beginchar("t",runew#,runeh#,0);
+z1 = (w/2, h);
+z2 = (w/2, 0);
+z3 = (0, 2h/3);
+z4 = (w, 2h/3);
+draw z1--z2;
+draw z3--z1--z4;
+endchar;
+
+% ============================================
+% the ligature th 20.07.93, jhl
+% ============================================
+beginchar(hex"02",runew#,runeh#,0);
+z1 = (w/3, h);
+z2 = (w/3, 0);
+z3 = (0, 2h/3);
+z4 = (w, h/2);
+z5 = (w, h);
+z6 = (w, 0);
+draw z1--z2;
+draw z3--z1--z4;
+draw z5--z6;
+endchar;
+
+% ============================================
+% the ligature nh, nd 20.07.93, jhl
+% ============================================
+beginchar(hex"17",runew#,runeh#,0);
+z1 = (2w/3, h);
+z2 = (2w/3, 0);
+z3 = (0, h/2);
+z4 = (w, 2h/3);
+z5 = (0, h);
+z6 = (0, 0);
+draw z1--z2;
+draw z3--z1--z4;
+draw z5--z6;
+endchar;
+
+% ============================================
+% Character D, ligature 12, 20.07.93 jhl
+% ============================================
+beginchar("D",runew#,runeh#,0);
+z1 = (0, h);
+z2 = (w, h/2);
+z3 = (0, 0);
+draw z1--z2--z3;
+endchar;
+
+% ============================================
+% Character d = D, 20.07.93 jhl
+% ============================================
+beginchar("d",runew#,runeh#,0);
+z1 = (0, h);
+z2 = (w, h/2);
+z3 = (0, 0);
+draw z1--z2--z3;
+endchar;
+
+% ============================================
+% Character N, ligature 13 20.07.93 jhl
+% ============================================
+beginchar("N",runew#,runeh#,0);
+z1 = (0, h);
+z2 = (0, 0);
+z3 = (w, h);
+z4 = (w, 0);
+draw z1--z2--z3--z4;
+endchar;
+
+% ============================================
+% Character n = N, 20.07.93 jhl
+% ============================================
+beginchar("n",runew#,runeh#,0);
+z1 = (0, h);
+z2 = (0, 0);
+z3 = (w, h);
+z4 = (w, 0);
+draw z1--z2--z3--z4;
+endchar;
+
+% ============================================
+% the ligature Lh, lh 20.07.93, jhl
+% ============================================
+beginchar(hex"18",runew#,runeh#,0);
+z1 = (0, h);
+z2 = (0, 0);
+z3 = (0, 2h/3);
+z4 = (w, 0);
+z5 = (w, h);
+draw z1--z2;
+draw z3--z4--z5;
+endchar;
+
+% ============================================
+% Character L, ligature 14 20.07.93 jhl
+% ============================================
+beginchar("L",runew#,runeh#,0);
+z1 = (0, h);
+z2 = (0, 0);
+z3 = (0, 2h/3);
+z4 = (w, 0);
+draw z1--z2;
+draw z3--z4;
+endchar;
+
+% ============================================
+% Character l = L, 20.07.93 jhl
+% ============================================
+beginchar("l",runew#,runeh#,0);
+z1 = (0, h);
+z2 = (0, 0);
+z3 = (0, 2h/3);
+z4 = (w, 0);
+draw z1--z2;
+draw z3--z4;
+endchar;
+
+% ============================================
+% the ligature Rh, rh 20.07.93, jhl
+% ============================================
+beginchar(hex"19",runew#,runeh#,0);
+z1 = (3w/4, h/2);
+z2 = (0, h/2);
+z3 = (w/2, 0);
+z4 = (w, h);
+draw z1--z2--z3--z4;
+endchar;
+
+% ============================================
+% Character R, ligature 15 20.07.93 jhl
+% ============================================
+beginchar("R",runew#,runeh#,0);
+z1 = (w, h);
+z2 = (2w/3, 2h/3);
+z3 = (0, h);
+z4 = (0, 0);
+draw z1--z2--z3--z4;
+endchar;
+
+% ============================================
+% Character r = R, 20.07.93 jhl
+% ============================================
+beginchar("r",runew#,runeh#,0);
+z1 = (w, h);
+z2 = (2w/3, 2h/3);
+z3 = (0, h);
+z4 = (0, 0);
+draw z1--z2--z3--z4;
+endchar;
+
+% ============================================
+% Character S, ligature 16 20.07.93 jhl
+% ============================================
+beginchar("S",runew#,runeh#,0);
+z1 = (0, h);
+z2 = (0, 0);
+z3 = (0, h/2);
+z4 = (w, h);
+draw z1--z2;
+draw z3--z4;
+endchar;
+
+% ============================================
+% Character s = S, 20.07.93 jhl
+% ============================================
+beginchar("s",runew#,runeh#,0);
+z1 = (0, h);
+z2 = (0, 0);
+z3 = (0, h/2);
+z4 = (w, h);
+draw z1--z2;
+draw z3--z4;
+endchar;
+
+% ============================================
+% Character Z = S, 20.07.93 jhl
+% ============================================
+beginchar("Z",runew#,runeh#,0);
+z1 = (0, h);
+z2 = (0, 0);
+z3 = (0, h/2);
+z4 = (w, h);
+draw z1--z2;
+draw z3--z4;
+endchar;
+
+% ============================================
+% Character z = S, 20.07.93 jhl
+% ============================================
+beginchar("z",runew#,runeh#,0);
+z1 = (0, h);
+z2 = (0, 0);
+z3 = (0, h/2);
+z4 = (w, h);
+draw z1--z2;
+draw z3--z4;
+endchar;
+
+% ============================================
+% Character H, 20.07.93 jhl
+% ============================================
+beginchar("H",runew#,runeh#,0);
+z1 = (0, 0);
+z2 = (0, h);
+z3 = (0, 2h/3);
+z4 = (w, h/3);
+z5 = (w, 0);
+draw z1--z2;
+draw z3--z4--z5;
+endchar;
+
+% ============================================
+% Character h = H, 20.07.93 jhl
+% ============================================
+beginchar("h",runew#,runeh#,0);
+z1 = (0, 0);
+z2 = (0, h);
+z3 = (0, 2h/3);
+z4 = (w, h/3);
+z5 = (w, 0);
+draw z1--z2;
+draw z3--z4--z5;
+endchar;
+
+% ============================================
+% Character W, 20.07.93, jhl
+% ============================================
+beginchar("W",runew#,runeh#,0);
+z1 = (w, h);
+z2 = (0, 2h/3);
+z3 = (0, 0);
+z4 = (3w/4, h/4);
+z5 = (w, 0);
+draw z1--z2--z3--z4--z5;
+endchar;
+
+% ============================================
+% Character w = W, 20.07.93, jhl
+% ============================================
+beginchar("w",runew#,runeh#,0);
+z1 = (w, h);
+z2 = (0, 2h/3);
+z3 = (0, 0);
+z4 = (3w/4, h/4);
+z5 = (w, 0);
+draw z1--z2--z3--z4--z5;
+endchar;
+
+beginchar("Q",runew#,runeh#,0);
+% 30.09.92, jhl
+z1 = (w, h);
+z2 = (w, 0);
+z3 = (0, h);
+z4 = (0, h/2);
+z5 = (w, h/2);
+draw z1--z2;
+draw z3--z4--z5;
+endchar;
+
+beginchar("q",runew#,runeh#,0);
+% 30.09.92, jhl
+z1 = (w, h);
+z2 = (w, 0);
+z3 = (0, h);
+z4 = (0, h/2);
+z5 = (w, h/2);
+draw z1--z2;
+draw z3--z4--z5;
+endchar;
+
+beginchar("X",runew#,runeh#,0);
+% 30.09.92, jhl
+z1 = (w/2, h);
+z2 = (w/2, 0);
+z3 = (0, h);
+z4 = (0, h/2);
+z5 = (w, h/2);
+z6 = (w, h);
+draw z1--z2;
+draw z3--z4--z1--z5--z6;
+endchar;
+
+beginchar("x",runew#,runeh#,0);
+% 30.09.92, jhl
+z1 = (w/2, h);
+z2 = (w/2, 0);
+z3 = (0, h);
+z4 = (0, h/2);
+z5 = (w, h/2);
+z6 = (w, h);
+draw z1--z2;
+draw z3--z4--z1--z5--z6;
+endchar;
+
+
+beginchar(":", 2pw#,runeh#,0);
+z1 = (w/2, .5h);
+z2 = (w/2, .25h);
+drawdot z1;
+drawdot z2;
+endchar;
+
+beginchar(hex"22",0,0,0);
+endchar;
+
+
+% the ligatures
+ligtable "1": "0" =: "G",
+ "1" =: "T",
+ "2" =: "D",
+ "3" =: "N",
+ "4" =: "L",
+ "5" =: "R",
+ "6" =: "S";
+ligtable "A": "A" =: hex"0B",
+ "H" =: hex"0B",
+ "a" =: hex"0B",
+ "h" =: hex"0B";
+ligtable "a": "a" =: hex"0B",
+ "h" =: hex"0B";
+ligtable "C": "H" =: hex"15",
+ "h" =: hex"15";
+ligtable "c": "h" =: hex"15";
+ligtable "E": "E" =: hex"01",
+ "H" =: hex"01",
+ "e" =: hex"01",
+ "h" =: hex"01";
+ligtable "e": "e" =: hex"01",
+ "h" =: hex"01";
+ligtable "L": "H" =: hex"18",
+ "h" =: hex"18";
+ligtable "l": "h" =: hex"18";
+ligtable "M": "H" =: hex"14",
+ "M" =: hex"13",
+ "h" =: hex"14",
+ "m" =: hex"13";
+ligtable "m": "h" =: hex"14",
+ "m" =: hex"13";
+ligtable "N": "D" =: hex"17",
+ "G" =: hex"03",
+ "H" =: hex"17",
+ "N" =: hex"16",
+ "d" =: hex"17",
+ "g" =: hex"03",
+ "h" =: hex"17",
+ "n" =: hex"16";
+ligtable "n": "d" =: hex"17",
+ "g" =: hex"03",
+ "h" =: hex"17",
+ "n" =: hex"16";
+ligtable "O": "E" =: hex"0D",
+ "H" =: hex"11",
+ "O" =: hex"11",
+ "e" =: hex"0D",
+ "h" =: hex"11",
+ "o" =: hex"11";
+ligtable "o": "e" =: hex"0D",
+ "h" =: hex"11",
+ "o" =: hex"11";
+ligtable "R": "H" =: hex"19",
+ "h" =: hex"19";
+ligtable "r": "h" =: hex"19";
+ligtable "T": "H" =: hex"02",
+ "h" =: hex"02";
+ligtable "t": "h" =: hex"02";
+ligtable "U": "E" =: "Y",
+ "H" =: hex"12",
+ "U" =: hex"12",
+ "e" =: "Y",
+ "h" =: hex"12",
+ "u" =: hex"12";
+ligtable "u": "e" =: "Y",
+ "h" =: hex"12",
+ "u" =: hex"12";
+ligtable hex"22": "o" =: hex"0D",
+ "O" =: hex"0D",
+ "u" =: "Y",
+ "U" =: "Y";
+
+end;