% Driver file for Mxedruli font `mxed.mf'
%
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
% Designed by Johannes Heinecke                                             %
%             Sprachwissenschaftliches Seminar                              %
%             Universit"at Heidelberg                                       %
%             69117 Heidelberg                                              %
%             <cb7@vm.urz.uni-heidelberg.de>                                %
% Please send any improvements, corrections, suggestions, enhancements etc  %
% to the Author!                                                            %
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
%
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 unknown cmbase: input mxedd; else: input romand; fi  % digits: if cmbase is
                                                        % used this font will
                                                        % load cm-digits, for
                                                        % they are finer tuned.
input mxedfont;     % the mxedruli alphabet
input mxedp;        % punctuation

%% Font-Parameter fuer TeX %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
font_quad 2.5mxu#;                 % 1 em
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

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

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

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

ligtable "," : "c" =: "y",
               "," kern -mxzw#;   % two , make a double quote

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

%% Other
ligtable "'" : "'" kern -.8mxzw#;   % two ' make a double quote
%ligtable "," : "," kern -.8mxzw#;   % two , make a double quote
ligtable "a" : "d" : "e" : "g" : "i" : "k" : "l" : "o" : "t" :
         oct"007" : "u" : "p" : oct"002" : "q" : "c" : oct"010" :
            oct"005" kern -mxhalf#, "z" kern -.5mxzw#;

endinput;