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
|
% Copyright 1988 Michael Urban
% Everyone is granted permission to copy, modify 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.
% SCCS ID @(#)tengwar.mf 1.1 10/1/86
mode_setup;
em#:=10pt#; cap#=.8em#; dep#=.4em#; xht#=.4em#;
shortwidth := .6em#;
thick#:=9/80em#; thin#:=3/80em#;
leadgap# := .1em#;
bowstart#= .66xht#;
serifthick# := 1.1thick#;
tilt:=50; seriftilt := 110; botseriftilt:=80;
shortstem := .7;
longstem := .85;
stemdepth := .9;
bowsize := .58;
define_pixels(em,cap,dep,xht,bowstart);
define_pixels(thin,thick,serifthick,leadgap);
pen elvishpen; elvishpen = pencircle xscaled thick yscaled thin rotated tilt;
%
% Because even "tall" characters want to be accented in the same place,
% but because we want to use "h" in "beginchar" definitions
% in a typical plain-MF way,
% we force all characters to have a character height of xht#. This is
% something a kludge, and makes tall characters stick into preceding lines
% when the baselines are not sufficiently separated. But that iss how the
% title-page inscription looks anyway.
%
let oldendchar = endchar;
def endchar=
charht := xht#;
oldendchar;
enddef;
input tiw;
font_normal_space .45em#;
font_normal_stretch .22em#;
font_normal_shrink .15em#;
font_x_height xht#;
font_quad 1em#;
font_extra_space 1/6em#;
designsize:=1em#;
input ligtable;
bye;
|
