% File:       MF Inputs ibycode.mf
% Author:     Pierre A. MacKay
% Internet:   mackay@cs.washington.edu
% Date:       Friday, 06 May 1994
% Copyright 1994 by Pierre A. MacKay
% The contents of this file are licensed free for
% use and redistribution under the terms of the  
% GNU General Public License.  For the terms of  
% this license see any publication of the Free   
% Software Foundation or any software packages   
% distributed by the Free Software Foundation.   
% 
mode_setup;
font_setup;

font_coding_scheme:="Greek based on TLG";
input ibygrk.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 gribyupr
input gribyacc
input gribylwr
input romand
input grkpnct
input ibylig

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

bye.