summaryrefslogtreecommitdiff
path: root/Master/texmf-dist/fonts/source/public/mxedruli/mxed.mf
blob: 8b2f2695d741ff8aeb4daa1e27180ae799b8062a (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
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
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
% Driver file for Mxedruli font `mxed.mf'
%
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
% Designed and (c) by Johannes Heinecke                                     %
%                     Humboldt-Universit"at zu Berlin                       %
%                     Philosophische Faskult"at II                          %
%                     Institut f"ur deutsche Sprache und Linguistik         %
%                     Computerlinguistik                                    %
%                     J"agerstr. 10/11                                      %
%                     D - 10099 Berlin                                      %
%                     <heinecke@compling.hu-berlin.de>                      %
% Please send any improvements, corrections, suggestions, enhancements etc  %
% to the Author!                                                            %
%                                                                           %
% Version 2.2 as of 5th March 1996                                          %
%                                                                           %
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
%
font_coding_scheme:="Mxedruli - Georgian";
mode_setup;
if known cmbase: font_setup; fi         % If used with cmbase
font_mxed_setup;
let mxedchar=\;

% fontmaking:=1;        % to generate a TFM File during proof-ing

%% Zeichendefinitionsdateien %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
if mxcap: input mxedcaps; else: input mxedfont; fi       % the mxedruli alphabet
if unknown cmbase: input mxedd; else: input romand; fi  % digits: if cmbase is
                                                         % used this font will
                                                         % load cm-digits, for
                                                         % they are finer tuned.
if unknown cmbase: input mxedp; else: input punct; fi   % The same for punctuation
input mxedacc;      % Accents

%% Font-Parameter fuer TeX %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
font_quad 2.5mxu#;                 % 1 em
font_x_height mxlittle#;           % 1 ex
font_normal_space 3mxu#;           % word gap
font_normal_stretch 2mxu#;         % word gap may stretch by ...
font_normal_shrink 1mxu#;          % word gap my shrink by ...
font_slant slant;

% special "grayfont graylj";     % Only for GFtoDVI on emTeXs METAFONT

%% Ligature-Tables %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%

% Palatals:
ligtable "+" : "s" =: oct"005",
               "c" =: oct"001",
               "j" =: oct"010",
               "z" =: oct"007";

% Glottalized stops
ligtable "." : "c" =: oct"000",
               "g" =: oct"002",
               "k" =: oct"003",
               "p" =: oct"004",
               "t" =: oct"006",
               "+" =: ",";

% Old Georgian "ho"
ligtable "o" : "1" =: oct"011",
               oct"005" kern -mxhalf#,
               "z"      kern -.5mxzw#;

% Old Georgian "Short i"
ligtable "i" : "1" =: oct"012",
               oct"005" kern -mxhalf#,
               "z"      kern -.5mxzw#;

% Ossetian "ae" and long "ee"
ligtable "e" : "1" =: oct"013",
               "0" =: oct"016",
               "e" =: oct"016",
               oct"005" kern -mxhalf#,
               "z"      kern -.5mxzw#;

% Variated "b"
if not mxcap: ligtable "b" : "1" =: oct"020"; fi;

% Unaspirated "q"
ligtable "q" : "1" =: oct"015",
               oct"005" kern -mxhalf#, 
               "z"      kern -.5mxzw#;

% Keep the "s" away from letters with an ascender on the right
ligtable oct"004" : oct"007" : "k" : "m" : "x" : "s" kern .5mxzw#;

% two ' make a double quote
ligtable "'" : "'" kern -.8mxzw#;

% two , make a double comma, 
ligtable "," : "," kern -mxzw#,
               "c" =: oct"014";

%% Hyphens etc.
ligtable "-" : "-" =: 123;  % cf. The METAfontbook S. 306
ligtable 123 : "-" =: 124;

% Let "z" and oct005 closer two the little letters
ligtable "a" : "d" : "g" : "l" : "t" : "u" : "p" : oct"002" : "c" : oct"010" :
               oct"005" kern -mxhalf#,
               "1" =: oct"021",
               "z"      kern -.5mxzw#;

endinput;