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/bard/bard.mf | 1033 ++++++++++++++++++++++++++++++++++++++++++++++++++++ 1 file changed, 1033 insertions(+) create mode 100644 fonts/bard/bard.mf (limited to 'fonts/bard') 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; -- cgit v1.2.3