% ==================================================================
% Saxon Runes,                      23.07.93 Jobst-Hartmut Lueddecke
%
% Email: lueddecke@rzbt.fh-hamburg.d400.de
%        lueddeck@rzbt.fh-hamburg.de
%
% This font is designed on historic sources. The uppercase runes are
% the same as the lowercase runes. The Ligatures "a, "A, "o, "O, "u,
% "U, "s, "S are compatible to german.sty. So it's easy to write
% normal Text and print it with runes. The numbers are normal Runes.
% (see Faulmann: Das Buch der Schrift) e.g 1 = F, 2 = U .....
%
% The Saxon Runes are the old Futharc
% f u th a r c g w h n i j ee(=eh) p z s t b e m l ng d o
% plus k (=viking and anglosaxon) q (=markomannic) v (=anglosaxon)
% x (=anglosaxon and markomannic) y (=anglosaxon) aa(=ah) (=viking)
% ae ck ea eo (=anglosaxon) ge gg (=anglosaxon) io rr (=viking)
% st (=anglosaxon) ts (=anglosaxon) ue (=anglosaxon)
%
% The Viking Runes are a subset of this Font. (see Laur: Runendenkm"aler
% in Schleswig-Holstein). The Viking Runes are f u th a r k h(=io)
% n i aa s t b l m(=z) rr
%
% Enjoy it and use it with fantasy role playing. It is real fun to
% give a Player a scroll written with this font, or you can use it
% as a reference to read old (Viking) rune stones.
%
% If you write articles about runes (futhark or viking Runes), pay attention
% you get the propper subset (viking h = saxon io and viking m =
% saxon z !).
%
% Ligature AA, 16.04.92, Jobst-Hartmut Lueddecke
% and Characters s, S modified, 15.06.92 Jobst-Hartmut Lueddecke
%
% Ligatures ge, ts,  28.09.92, Jobst-Hartmut Lueddecke
%
% Numbers, 20.07.93, Jobst-Hartmut Lueddecke
% ==================================================================
%
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 := "srune";
font_size 10pt#;
u# := 1pt#;
pw# := 2u#;
runew# := 3pw#/2;
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;

% Saxon + Viking Runes, 30.09.92 Jobst-Hartmut Lueddecke
% ======================================================

%=============================================
% Character A               21.07.93 Lueddecke
%=============================================
beginchar("A",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 a = A           21.07.93 Lueddecke
%=============================================
beginchar("a",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 4 = Character A    21.07.93 Lueddecke
%=============================================
beginchar("4",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;

beginchar("B",runew#,runeh#,0);
x1 = x2 = x4 = 0;
x3 = x5      = w;
y1 = 0;
y2 = h;
y3 = .5[y2, y4];
y4 = .5[y1, y2];
y5 = .5[y4, y1];
draw z1--z2--z3--z4--z5--z1;
endchar;

beginchar("b",runew#,runeh#,0);
x1 = x2 = x4 = 0;
x3 = x5      = w;
y1 = 0;
y2 = h;
y3 = .5[y2, y4];
y4 = .5[y1, y2];
y5 = .5[y4, y1];
draw z1--z2--z3--z4--z5--z1;
endchar;

beginchar("C",runew#,runeh#,0);
z1 = (w, h);
z2 = (0, h/2);
z3 = (w, 0);
draw z1--z2--z3;
endchar;

beginchar("c",runew#,runeh#,0);
z1 = (w, h);
z2 = (0, h/2);
z3 = (w, 0);
draw z1--z2--z3;
endchar;

beginchar("D",2runew#,runeh#,0);
z1 = (0, 0);
z2 = (0, h);
z3 = (w, h);
z4 = (w, 0);
draw z1--z2--z4--z3--z1;
endchar;

beginchar("d",2runew#,runeh#,0);
z1 = (0, 0);
z2 = (0, h);
z3 = (w, h);
z4 = (w, 0);
draw z1--z2--z4--z3--z1;
endchar;

beginchar("E",2runew#,runeh#,0);
z1 = (0, 0);
z2 = (0, h);
z3 = (w/2, .66h);
z4 = (w, h);
z5 = (w, 0);
draw z1--z2--z3--z4--z5;
endchar;

beginchar("e",2runew#,runeh#,0);
z1 = (0, 0);
z2 = (0, h);
z3 = (w/2, .66h);
z4 = (w, h);
z5 = (w, 0);
draw z1--z2--z3--z4--z5;
endchar;

%=============================================
% Character F               21.07.93 Lueddecke
%=============================================
beginchar("F",runew#,runeh#,0);
z1 = (0, 0);
z2 = (0, h);
z3 = (0, 2h/3);
z4 = (w/2, h);
z5 = (0, h/3);
z6 = (w, h);
draw z1--z2;
draw z3--z4;
draw z5--z6;
endchar;

%=============================================
% Character f = F           21.07.93 Lueddecke
%=============================================
beginchar("f",runew#,runeh#,0);
z1 = (0, 0);
z2 = (0, h);
z3 = (0, 2h/3);
z4 = (w/2, h);
z5 = (0, h/3);
z6 = (w, h);
draw z1--z2;
draw z3--z4;
draw z5--z6;
endchar;

%=============================================
% Number 1 = Character F    21.07.93 Lueddecke
%=============================================
beginchar("1",runew#,runeh#,0);
z1 = (0, 0);
z2 = (0, h);
z3 = (0, 2h/3);
z4 = (w/2, h);
z5 = (0, h/3);
z6 = (w, h);
draw z1--z2;
draw z3--z4;
draw z5--z6;
endchar;

beginchar("G",2runew#,runeh#,0);
z1 = (0, 0);
z2 = (0, h);
z3 = (w, h);
z4 = (w, 0);
draw z1--z3;
draw z2--z4;
endchar;

% ==========================================================
% Rune g like in the german word Wagen or english word wagon
% ==========================================================
beginchar("g",2runew#,runeh#,0);
z1 = (0, 0);
z2 = (0, h);
z3 = (w, h);
z4 = (w, 0);
draw z1--z3;
draw z2--z4;
endchar;

beginchar("H",2runew#,runeh#,0);
% ok, 15.06.92, jhl
z1 = (0, 0);
z2 = (0, h);
z3 = (w, 0);
z4 = (w, h);
z5 = (0, 2h/3);
z6 = (w, h/3);
draw z1--z2;
draw z3--z4; 
draw z5--z6; 
endchar;

beginchar("h",2runew#,runeh#,0);
% ok, 15.06.92, jhl
z1 = (0, 0);
z2 = (0, h);
z3 = (w, 0);
z4 = (w, h);
z5 = (0, 2h/3);
z6 = (w, h/3);
draw z1--z2;
draw z3--z4; 
draw z5--z6; 
endchar;

%=============================================
% Character I               21.07.93 Lueddecke
%=============================================
beginchar("I",runew#,runeh#,0);
z1 = (w/2, 0);
z2 = (w/2, h);
draw z1--z2;
endchar;

%=============================================
% Character i = I           21.07.93 Lueddecke
%=============================================
beginchar("i",runew#,runeh#,0);
z1 = (w/2, 0);
z2 = (w/2, h);
draw z1--z2;
endchar;

%=============================================
% Number 9 = Character I    21.07.93 Lueddecke
%=============================================
beginchar("9",runew#,runeh#,0);
z1 = (w/2, 0);
z2 = (w/2, h);
draw z1--z2;
endchar;

beginchar("J",2runew#,runeh#,0);
% 30.09.92, jhl
z1 = (2w/3, h);
z2 = (0, h/2);
z3 = (w/3, h/3);
z4 = (w/3, 0);
z5 = (w, h/2);
z6 = (2w/3, 2h/3);
draw z1--z2--z3;
draw z4--z5--z6;
endchar;

beginchar("j",2runew#,runeh#,0);
% ok, 14.04.92, jhl
z1 = (.66w, h);
z2 = (0, .5h);
z3 = (.3w,.33h);
z4 = (.33w, 0);
z5 = (w, .5h);
z6 = (.66w, .66h);
draw z1--z2--z3;
draw z4--z5--z6;
endchar;

%=============================================
% Character K               14.04.92 Lueddecke
%=============================================
beginchar("K",runew#,runeh#,0);
z1 = (0, 0);
z2 = (0, h);
z3 = (0, h/2);
z4 = (w, 0);
draw z1--z2;
draw z3--z4;
endchar;

%=============================================
% Character k = K           14.04.92 Lueddecke
%=============================================
beginchar("k",runew#,runeh#,0);
z1 = (0, 0);
z2 = (0, h);
z3 = (0, h/2);
z4 = (w, 0);
draw z1--z2;
draw z3--z4;
endchar;

%=============================================
% Number 6 = Character K    21.07.93 Lueddecke
%=============================================
beginchar("6",runew#,runeh#,0);
z1 = (0, 0);
z2 = (0, h);
z3 = (0, h/2);
z4 = (w, 0);
draw z1--z2;
draw z3--z4;
endchar;

beginchar("L",runew#,runeh#,0);
z1 = (0, 0);
z2 = (0, h);
z3 = (w, .66h);
draw z1--z2--z3;
endchar;

beginchar("l",runew#,runeh#,0);
z1 = (0, 0);
z2 = (0, h);
z3 = (w, .66h);
draw z1--z2--z3;
endchar;

beginchar("M",2runew#,runeh#,0);
z1 = (0, 0);
z2 = (0, h);
z3 = (w, .5h);
z4 = (w, 0);
z5 = (w, h);
z6 = (0, .5h);
draw z1--z2--z3;
draw z4--z5--z6;
endchar;

beginchar("m",2runew#,runeh#,0);
z1 = (0, 0);
z2 = (0, h);
z3 = (w, .5h);
z4 = (w, 0);
z5 = (w, h);
z6 = (0, .5h);
draw z1--z2--z3;
draw z4--z5--z6;
endchar;

%=============================================
% Character N               21.07.93 Lueddecke
%=============================================
beginchar("N",runew#,runeh#,0);
z1 = (w/2, 0);
z2 = (w/2, h);
z4 = (0, 2h/3);
z5 = (w, h/3);
draw z1--z2;
draw z4--z5;
endchar;

%=============================================
% Character n = N           21.07.93 Lueddecke
%=============================================
beginchar("n",runew#,runeh#,0);
z1 = (w/2, 0);
z2 = (w/2, h);
z4 = (0, 2h/3);
z5 = (w, h/3);
draw z1--z2;
draw z4--z5;
endchar;

%=============================================
% Number 8 = Character N    21.07.93 Lueddecke
%=============================================
beginchar("8",runew#,runeh#,0);
z1 = (w/2, 0);
z2 = (w/2, h);
z4 = (0, 2h/3);
z5 = (w, h/3);
draw z1--z2;
draw z4--z5;
endchar;

beginchar("O",2runew#,runeh#,0);
% ok, 14.04.92 jhl
z1 = (0, 0);
z2 = (w, .66h);
z3 = (w/2, h);
z4 = (0, .66h);
z5 = (w, 0);
draw z1--z2--z3--z4--z5;
endchar;

beginchar("o",2runew#,runeh#,0);
% ok, 14.04.92 jhl
z1 = (0, 0);
z2 = (w, .66h);
z3 = (w/2, h);
z4 = (0, .66h);
z5 = (w, 0);
draw z1--z2--z3--z4--z5;
endchar;

beginchar("P",2runew#,runeh#,0);
%  ok, 14.04.92, jhl
z1 = (0, 0);
z2 = (0, h);
z3 = (w/2, .66h);
z4 = (w, h);
z5 = (w, 0);
z6 = (w/2, .33h);
draw z4--z3--z2--z1--z6--z5;
endchar;

beginchar("p",2runew#,runeh#,0);
%  ok, 14.04.92, jhl
z1 = (0, 0);
z2 = (0, h);
z3 = (w/2, .66h);
z4 = (w, h);
z5 = (w, 0);
z6 = (w/2, .33h);
draw z4--z3--z2--z1--z6--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;

%=============================================
% Character R               14.04.92 Lueddecke
%=============================================
beginchar("R",runew#,runeh#,0);
z1 = (0, 0);
z2 = (0, h);
z3 = (w, 2h/3);
z4 = (0, h/3);
z5 = (w, 0);
draw z1--z2--z3--z4--z5;
endchar;

%=============================================
% Character r = R           14.04.92 Lueddecke
%=============================================
beginchar("r",runew#,runeh#,0);
z1 = (0, 0);
z2 = (0, h);
z3 = (w, 2h/3);
z4 = (0, h/3);
z5 = (w, 0);
draw z1--z2--z3--z4--z5;
endchar;

%=============================================
% Number 5 = Character R    21.07.93 Lueddecke
%=============================================
beginchar("5",runew#,runeh#,0);
z1 = (0, 0);
z2 = (0, h);
z3 = (w, 2h/3);
z4 = (0, h/3);
z5 = (w, 0);
draw z1--z2--z3--z4--z5;
endchar;


beginchar("S",runew#,runeh#,0);
% 15.06.92 jhl
z1 = (w, h);
z2 = (0, h/2);
z3 = (w, h/2);
z4 = (0, 0);
draw z1--z2--z3--z4;
endchar;

beginchar("s",runew#,runeh#,0);
% 15.06.92 jhl
z1 = (w, h);
z2 = (0, h/2);
z3 = (w, h/2);
z4 = (0, 0);
draw z1--z2--z3--z4;
endchar;

beginchar("T",2runew#,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;

beginchar("t",2runew#,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 U               15.06.92 Lueddecke
%=============================================
beginchar("U",2runew#,runeh#,0);
z1 = (0, 0);
z2 = (0, h);
z3 = (w, 3h/4);
z4 = (w, 0);
draw z1--z2--z3--z4;
endchar;

%=============================================
% Character u = U           15.06.92 Lueddecke
%=============================================
beginchar("u",2runew#,runeh#,0);
z1 = (0, 0);
z2 = (0, h);
z3 = (w, 3h/4);
z4 = (w, 0);
draw z1--z2--z3--z4;
endchar;

%=============================================
% Number 2 = Character U    15.06.92 Lueddecke
%=============================================
beginchar("2",2runew#,runeh#,0);
z1 = (0, 0);
z2 = (0, h);
z3 = (w, 3h/4);
z4 = (w, 0);
draw z1--z2--z3--z4;
endchar;

beginchar("V",2runew#,runeh#,0);
z1 = (0, 0);
z2 = (w/2, h);
z3 = (w, 0);
draw z1--z2--z3;
endchar;

beginchar("v",2runew#,runeh#,0);
z1 = (0, 0);
z2 = (w/2, h);
z3 = (w, 0);
draw z1--z2--z3;
endchar;

beginchar("W",runew#,runeh#,0);
% ok, 14.04.92 jhl
z1 = (0, 0);
z2 = (0, h);
z3 = (w, .75h);
z4 = (0, .5h);
draw z1--z2--z3--z4;
endchar;

beginchar("w",runew#,runeh#,0);
% ok, 14.04.92 jhl
z1 = (0, 0);
z2 = (0, h);
z3 = (w, .75h);
z4 = (0, .5h);
draw z1--z2--z3--z4;
endchar;

beginchar("X",2runew#,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",2runew#,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("Y",2runew#,runeh#,0);
% Character Y, or ligatures UE, Ue, "U, 15.06.92 jhl
z1 = (0, 0);
z2 = (0, h);
z3 = (w, 3h/4);
z4 = (w, 0);
z5 = (0, h/3);
z6 = (w, h/3);
z7 = (w/2, h/3);
z8 = (w/2, 0);
draw z1--z2--z3--z4;
draw z5--z6;
draw z7--z8;
endchar;

beginchar("y",2runew#,runeh#,0);
% Character y, or ligatures ue, "u, 15.06.92 jhl
z1 = (0, 0);
z2 = (0, h);
z3 = (w, 3h/4);
z4 = (w, 0);
z5 = (0, h/3);
z6 = (w, h/3);
z7 = (w/2, h/3);
z8 = (w/2, 0);
draw z1--z2--z3--z4;
draw z5--z6;
draw z7--z8;
endchar;

beginchar("Z",2runew#,runeh#,0);
z1 = (w/2, 0);
z2 = (w/2, h);
z3 = (0, h);
z4 = (w/2, .66h);
z5 = (w, h);
draw z1--z2;
draw z3--z4--z5;
endchar;

beginchar("z",2runew#,runeh#,0);
z1 = (w/2, 0);
z2 = (w/2, h);
z3 = (0, h);
z4 = (w/2, .66h);
z5 = (w, h);
draw z1--z2;
draw z3--z4--z5;
endchar;

beginchar(".",pw#,runeh#,0);
% full stop
z1 = (w/2, 0);
drawdot z1;
endchar;

beginchar("0", runew#,runeh#,0);
z1 = (w/2, 0);
z2 = (w, h/2);
z3 = (w/2, h);
z4 = (0, h/2);
draw z1--z2--z3--z4--cycle;
endchar;

beginchar(":", 2pw#,runeh#,0);
z1 = (w/2, .5h);
z2 = (w/2, .25h);
drawdot z1;
drawdot z2;
endchar;

% ============================================
% the ligature ee,          14.04.92 Lueddecke
% ============================================
beginchar(hex"01",2runew#,runeh#,0);
z1 = (w/2, h);
z2 = (w/2, 0);
z3 = (0, 2h/3);
z4 = (w, h/3);
draw z1--z2;
draw z3--z1;
draw z2--z4;
endchar;

% ============================================
% the ligature th,          14.04.92 Lueddecke
% ============================================
beginchar(hex"02",runew#,runeh#,0);
z1 = (0, 0);
z2 = (0, h);
z3 = (0, 3h/4);
z4 = (w, h/2);
z5 = (0, h/4);
draw z1--z2;
draw z3--z4--z5;
endchar;

%=============================================
% Number 3 = Character th   21.07.93 Lueddecke
%=============================================
beginchar("3",runew#,runeh#,0);
z1 = (0, 0);
z2 = (0, h);
z3 = (0, 3h/4);
z4 = (w, h/2);
z5 = (0, h/4);
draw z1--z2;
draw z3--z4--z5;
endchar;

%=============================================
% the ligature ng,          30.09.92 Lueddecke
%=============================================
beginchar(hex"03",2runew#,runeh#,0);
z1 = (w/2, h);
z2 = (w, h/2);
z3 = (w/2, 0);
z4 = (0, h/2);
draw z1--z2--z3--z4--z1;
endchar;

%=============================================
% the ligature ck,          14.04.92 Lueddecke
%=============================================
beginchar(hex"04",2runew#,runeh#,0);
z1 = (w/2, h);
z2 = (w/2, 0);
z3 = (0, 0);
z4 = (0, h/3);
z5 = (w/2, h/2);
z6 = (w, h/3);
z7 = (w, 0);
draw z1--z2;
draw z3--z4--z5--z6--z7;
endchar;

% =============================
% the ligature st, 14.04.92 jhl
% =============================
beginchar(hex"05",2runew#,runeh#,0);
z1 = (0, 0);
z2 = (0, h);
z3 = (w/2, 2h/3);
z4 = (w, h);
z5 = (w, 0);
z6 = (w/2, h/3);
draw z1--z2--z3--z4--z5--z6--z1;
endchar;

% ==============================
% the ligature gg, 14.04.92, jhl
% ==============================
beginchar(hex"06",2runew#,runeh#,0);
z1 = (0, 0);
z2 = (0, h);
z3 = (w, h);
z4 = (w, 0);
z5 = (.2w, .5h);
z6 = (.5w, .8h);
z7 = (.8w, .5h);
z8 = (.5w, .2h);
draw z1--z3;
draw z2--z4;
draw z5--z6--z7--z8--z5;
endchar;

%=============================================
% the ligature io,          15.06.92 Lueddecke
%=============================================
beginchar(hex"07",2runew#,runeh#,0);
z1 = (0, 0);
z2 = (0, h);
z3 = (w, h);
z4 = (w, 0);
z5 = (w/2, h);
z6 = (w/2, 0);
draw z1--z3;
draw z2--z4;
draw z5--z6;
endchar;

%=============================================
% Number 7 = Character io   21.07.93 Lueddecke
%=============================================
beginchar("7",2runew#,runeh#,0);
z1 = (0, 0);
z2 = (0, h);
z3 = (w, h);
z4 = (w, 0);
z5 = (w/2, h);
z6 = (w/2, 0);
draw z1--z3;
draw z2--z4;
draw z5--z6;
endchar;

% ==============================
% the ligature eo, 15.06.92, jhl
% ==============================
beginchar(hex"08",2runew#,runeh#,0);
z1 = (0, h);
z2 = (w, h);
z3 = (0, 0);
z4 = (w, 0);
draw z1--z2--z3--z4;
endchar;

% ==========================================
% the ligature ae and a-Umlaut, 15.06.92 jhl
% ==========================================
beginchar(hex"09",runew#,runeh#,0);
z1 = (0, 0);
z2 = (0, h);
z3 = (w, 2h/3);
z4 = (0, 2h/3);
z5 = (w, h/3);
z6 = (w, h);
draw z1--z2--z3--z6;
draw z4--z5;
endchar;

% =============================
% the ligature ea, 14.04.92 jhl
% =============================
beginchar(hex"0A",2runew#,runeh#,0);
z1 = (w/2, 0);
z2 = (w/2, h);
z3 = (0, h);
z4 = (.5[x2, x3], .75h);
z5 = (.5[x2, x6], .75h);
z6 = (w, h);
draw z1--z2;
draw z3--z4--z2--z5--z6;
endchar;

% ============================================
% ligature aa, ah, 30.09.92 jhl
% long a like in the german words Jahr or Haar 
% ============================================
beginchar(hex"0B",runew#,runeh#,0);
z1 = (w/2, 0);
z2 = (w/2, h);
z4 = (0, h/3);
z5 = (w, 2h/3);
draw z1--z2;
draw z4--z5;
endchar;

% =============================
% the ligature ss, 15.06.92 jhl
% =============================
beginchar(hex"0C",5runew#/2,runeh#,0);
z1 = (2w/5, h);
z2 = (0, h/2);
z3 = (2w/5, h/2);
z4 = (0, 0);
z5 = (w, h);
z6 = (3w/5, h/2);
z7 = (w, h/2);
z8 = (3w/5, 0);
draw z1--z2--z3--z4;
draw z5--z6--z7--z8;
endchar;

% =============================
% the ligature oe, 14.04.92 jhl
% =============================
beginchar(hex"0D",9runew#/2,runeh#,0);
z1 = (0, 0);
z2 = (4w/9, 2h/3);
z3 = (2w/9, h);
z4 = (0, 2h/3);
z5 = (4w/9, 0);

z6 = (5w/9, 0);
z7 = (5w/9, h);
z8 = (7w/9, 2h/3);
z9 = (w, h);
z10 = (w, 0);

draw z1--z2--z3--z4--z5;
draw z6--z7--z8--z9--z10;
endchar;

% =============================
% the ligature ge, 28.09.92 jhl
% =============================
beginchar(hex"0E",runew#,runeh#,0);
z1 = (w/2, 0);
z2 = (w/2, h);
z4 = (0, h/2);
z5 = (w/2, 3h/4);
z6 = (w, h/2);
z7 = (w/2, h/4);
draw z1--z2;
draw z4--z5--z6--z7--z4;
endchar;

% ==============================
% the ligature ts, 28.09.92, jhl
% ==============================
beginchar(hex"0F",2runew#,runeh#,0);
z1 = (0, 0);
z2 = (w, h/2);
z3 = (0, h);
z4 = (w, 0);
z5 = (0, h/2);
z6 = (w, h);
draw z1--z2--z3;
draw z4--z5--z6;
draw z1--z3;
draw z4--z6;
endchar;

% ===================================
% the ligature rr, 30.09.92, jhl
% Rune r like in the german word Herr
% ===================================
beginchar(hex"10",2runew#,runeh#,0);
z1 = (w/2, 0);
z2 = (w/2, h);
z3 = (0, 0);
z4 = (w/2, h/3);
z5 = (w, 0);
draw z1--z2;
draw z3--z4--z5;
endchar;

% the ligatures
ligtable     "1": "0" =: hex"0B",
                  "1" =: "S",
                  "2" =: "T",
                  "3" =: "B",
                  "4" =: "L",
                  "5" =: "Z",
                  "6" =: hex"10";
ligtable     "A": "E" =: hex"09",
                  "e" =: hex"09",
                  "A" =: hex"0B",
                  "a" =: hex"0B",
                  "H" =: hex"0B",
                  "h" =: hex"0B";
ligtable     "a": "e" =: hex"09",
                  "a" =: hex"0B",
                  "h" =: hex"0B";
ligtable     "C": "K" =: hex"04",
                  "k" =: hex"04";
ligtable     "c": "k" =: hex"04";
ligtable     "E": "A" =: hex"0A",
                  "E" =: hex"01",
                  "H" =: hex"01",
                  "O" =: hex"08",
                  "a" =: hex"0A",
                  "e" =: hex"01",
                  "h" =: hex"01",
                  "o" =: hex"08";
ligtable     "e": "a" =: hex"0A",
                  "e" =: hex"01",
                  "h" =: hex"01",
                  "o" =: hex"08";
ligtable     "G": "E" =: hex"0E",
                  "e" =: hex"0E",
                  "G" =: hex"06",
                  "g" =: hex"06";
ligtable     "g": "e" =: hex"0E",
                  "g" =: hex"06";
ligtable     "I": "O" =: hex"07",
                  "o" =: hex"07";
ligtable     "i": "o" =: hex"07";
ligtable     "N": "G" =: hex"03",
                  "g" =: hex"03";
ligtable     "n": "g" =: hex"03";
ligtable     "R": "R" =: hex"10",
                  "r" =: hex"10";
ligtable     "r": "r" =: hex"10";
ligtable     "S": "T" =: hex"05",
                  "t" =: hex"05";
ligtable     "s": "t" =: hex"05";
ligtable     "T": "H" =: hex"02",
                  "h" =: hex"02",
                  "S" =: hex"0F",
                  "s" =: hex"0F";
ligtable     "t": "h" =: hex"02",
                  "s" =: hex"0F";
ligtable     "U": "E" =: "Y",
                  "e" =: "Y";
ligtable     "u": "e" =: "y";
ligtable hex"22": "a" =: hex"09",
                  "A" =: hex"09",
                  "o" =: hex"0D",
                  "O" =: hex"0D",
                  "u" =: "y",
                  "U" =: "Y",
                  "s" =: hex"0C",
                  "S" =: hex"0C";

end;