%(c) 1992 by Jo Grant

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.
u#      = 1/384in#;
pw#    := 4u#;
runew# := 4pw#;
runeh# := 12pw#;
letter_fit# := 1.2pw#;

pen_thick# := .5pw#;

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;

input runes;

% the ligatures
ligtable "T": "H" =: "t";
ligtable "E": "E" =: "e", "A" =: "a";
ligtable "N": "G" =: "n";
ligtable "S": "T" =: "s";

font_normal_space 2runew#;
font_normal_stretch 2runew#/3;
font_normal_shrink 4runew#/3;

end;