%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
%
%  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
% 
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%