1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
|
% Copyright 1992 Jo Grant jaymin@maths.tcd.ie
% c/o 44 Bancroft Avenue, Tallaght, Dublin 24, Ireland.
% Everyone is granted permission to copy, and redistribute
% this file, provided that a currently-dated copy of this
% copyright notice is included in the copy.
% License is granted to produce fonts based on the information
% in this file, provided that such fonts are redistributed
% without charge to any third party and not used for
% monetary gain. To use them in a commercially related environment
% you must first acquire a liscence from Jo Grant at the
% above address.
def runepen =
pickup pencircle xscaled pen_xthick yscaled pen_ythick rotated 40;
enddef;
def dotpen =
pickup pencircle xscaled dotpen_xthick yscaled dotpen_ythick rotated 40;
enddef;
def runedot (expr p) =
dotpen;
draw (p + (dotwid, 0)){up}..{left}(p + (0, dotwid))..
{down}(p + (-dotwid, 0))..{right}(p + (0, -dotwid))..cycle;
enddef;
def filldot (expr p) =
dotpen;
filldraw (p + (dotwid, 0)){up}..{left}(p + (0, dotwid))..
{down}(p + (-dotwid, 0))..{right}(p + (0, -dotwid))..cycle;
enddef;
def serif (expr p) =
if serifs:
runepen;
draw (p - (serwid, 0))--(p + (serwid, 0));
fi;
enddef;
def leftserif (expr p) =
if serifs:
runepen;
draw (p - (serwid, 0))--p;
fi;
enddef;
def rightserif (expr p) =
if serifs:
runepen;
draw p--(p + (serwid, 0));
fi;
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;
|
