blob: 1261eee1f090a066ccee169c8e179f3e440685b2 (
plain)
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
|
mode_setup;
font_setup;
font_coding_scheme:="Ibycus4 /based on TLG/";
input ibycus4.map; % File which can be read by both TeX and MF
picture barypicture;
string currenttitle;
string subtitle;
extra_endchar:=extra_endchar&"charcode:=charcode+code_offset";
% Add _ to the macro names used by iff to avoid confusion.
def use_it_ =
if unknown barypicture:
if known savedpicture: barypicture := savedpicture; fi fi
enddef;
def lose_it_ = let endchar = fi; let ; = fix_ semi_
if false: enddef;
% redefine readfrom, to take advantage of path searching
% This requires a METAFONT compiled with Karl Berry's kpathsea
def readfrom(expr filename) =
scantokens ("input " & filename); enddef;
input ibyupr4
input ibyacc4
input ibylwr4
input romand
input ibypnct4
input ibylig4
font_slant slant; font_x_height x_height#;
if monospace: font_normal_space 9u#; % no stretching or shrinking
font_quad 18u#;
font_extra_space 9u#;
else: font_normal_space 6u#+2letter_fit#;
font_normal_stretch 3u#; font_normal_shrink 2u#;
font_quad 18u#+4letter_fit#;
font_extra_space 2u#;
fi
input version4
bye.
|