% File:       MF Inputs gribylwr.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.   
% 
def selectlower expr t =
  currenttitle:= t;
  subtitle := substring(0,27) of currenttitle;
  if subtitle = "Lowercase sigma followed by" : let next_ = lose_it_
% Four composites need corrected heights
  elseif t = 
    "Lowercase alpha with rough breathing, circumflex and iota subscript" :
    let next_ = lose_it_
  elseif t = 
    "Lowercase alpha with smooth breathing, circumflex and iota subscript" :
    let next_ = lose_it_
  elseif t = 
    "Lowercase omega with rough breathing, circumflex and iota subscript" :
    let next_ = lose_it_
  elseif t = 
    "Lowercase omega with smooth breathing, circumflex and iota subscript" :
    let next_ = lose_it_
% diaeresis occurs only on short iota and epsilon
  elseif t = 
    "Lowercase iota with diaeresis and circumflex" :
    let next_ = lose_it_
  elseif t = 
    "Lowercase upsilon with diaeresis and circumflex" :
    let next_ = lose_it_
  elseif t = "Lowercase theta" : 
    code_offset := ASCII"q" - ASCII"j"; let next_ = use_it_
  elseif t = "Lowercase chi" : 
    code_offset := ASCII"x" - ASCII"q"; let next_ = use_it_
  elseif t = "Lowercase xi" : 
    code_offset := ASCII"c" - ASCII"x"; let next_ = use_it_
  elseif t = "Final lowercase sigma" : 
	code_offset := ASCII"j" - ASCII"s"; let next_ = use_it_
  elseif t = "Initial and medial lowercase sigma" : 
	code_offset := ASCII"s" - ASCII"c"; let next_ = use_it_
  else: code_offset := 0; let next_ = use_it_ fi; next_ enddef;

let cmchar = selectlower;

readfrom("a")
input abary
readfrom("e")
input ebary
readfrom("h")
input hbary
readfrom("i")
input ibary
readfrom("o")
input obary
readfrom("u")
input ubary
readfrom("w")
input wbary
readfrom("b")
readfrom("g")
readfrom("d")
readfrom("z")
readfrom("j")
readfrom("k")
readfrom("l")
readfrom("m")
readfrom("n")
readfrom("x")
readfrom("p")
readfrom("r")
readfrom("s")
readfrom("t")
readfrom("f")
readfrom("q")
readfrom("y")

code_offset:=0; % let's be really sure of this

def selectkoppa expr t =
  currenttitle:= t;
  if t = 
    "Lowercase koppa" :    let next_ = use_it_
  else: let next_ = lose_it_ fi; next_ enddef;
let cmchar = selectkoppa;

input koppa

let cmchar = relax;
input cigma
input digamma
input sampi