summaryrefslogtreecommitdiff
path: root/Master/texmf-dist/fonts/source/public/ibygrk/ibycus4.mf
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.