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
|
% 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.
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;
if mode=testing: screenstrokes; fi
% parameters that control what things looks like.
u# = 1/384in#;
pw# := 4u#; % normal pen width
runew# := 1.2*4pw#; % normal width of a rune
runeh# := 10pw#; % normal height of a rune
letter_fit# := 1.2pw#; % normal space to left and right of a rune
serwid#:= 1.2*.5pw#; % serif width
dotwid#:= 1.2*.75pw#; % dot radius
pen_xthick# := 1.5pw#; % pen proportions
pen_ythick# := 1.5*.5pw#; %
dotpen_xthick# := .75pw#; % dot pen proportions
dotpen_ythick# := .375pw#; %
ASC:= 1.20;
HH := 1.00;
H := 0.75;
M := 0.50;
L := 0.25;
LL := 0.00;
DSC:= -.20;
boolean serifs;
serifs := true;
define_pixels(pw, runew, runeh, pen_xthick, pen_ythick, letter_fit, serwid)
define_pixels(dotwid, dotpen_xthick, dotpen_ythick)
input macros;
input runes;
input ligs;
font_normal_space 2runew#;
font_normal_stretch 2runew#/3;
font_normal_shrink 4runew#/3;
end;
|