% File:       MF Inputs abary.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.   
% 
savedpicture = barypicture; % it was cleared at the end of a.mf
%% but the dimensions set in a.mf remain.

cmchar "Lowercase alpha with rough breathing and grave";
beginchar(a_asprbary,width#,acc_ht#,0);
this_letter; spirit_grave(x_baryctr)<; endchar;

cmchar "Lowercase alpha with smooth breathing and grave";
beginchar(a_lenbary,width#,acc_ht#,0);
this_letter; spirit_grave(x_baryctr)>; endchar;

cmchar "Lowercase alpha with rough breathing, grave and iota subscript";
beginchar(a_asprbaryisub,width#,acc_ht#,iota_dp#);
this_letter; spirit_grave(x_baryctr)<; iota_sub(pos_stem); endchar;

cmchar "Lowercase alpha with smooth breathing and grave and iota subscript";
beginchar(a_lenbaryisub,width#,acc_ht#,iota_dp#);
this_letter; spirit_grave(x_baryctr)>; iota_sub(pos_stem); endchar;

% Change following two instances of acc_ht# to Circ_ht# to
% conform with circumflexed composites in h.mf. Otherwise
% accent squashes down too much.  Has no effect if acc_ht# == Circ_ht#
% as is the case with the original Levy font.

cmchar "Corrected LC alpha w/rough breathing, circumflex and iota subscript";
beginchar(a_asprperiisub,width#,Circ_ht#,iota_dp#);
this_letter; spirit_circumflex(x_baryctr)<; iota_sub(pos_stem); endchar;

cmchar "Corrected LC alpha w/smooth breathing, circumflex and iota subscript";
beginchar(a_lenperiisub,width#,Circ_ht#,iota_dp#);
this_letter; spirit_circumflex(x_baryctr)>; iota_sub(pos_stem); endchar;

picture barypicture;
picture pic.iota;
picture savedpicture;