%% This file is public domain. %% Originally written 1998, Ivan A Derzhanski. %% Notice added by Clea F. Rees 2009/01/06. %% % eirl.mf: Irish lower case (minuscules) def gen_letter = adjust_fit(serif_fit#-2stem_shift# if monospace:-.5u# fi, serif_fit#-2stem_shift# if monospace:-.5u# fi); numeric left_stem,right_stem,alpha,beta; right_stem=curve-stem_corr; left_stem=min(hair if hefty: -3stem_corr fi,right_stem); x1l=w-x4r=l+letter_fit+.5u; y4=0; y1=.1bar_height; x2-x1=x4-x3+1.5u; x3r=x2r+apex_corr; y2=y3=x_height+apex_o+apex_oo; alpha=diag_ratio(2,left_stem,y2-y1,x4r-x1l-apex_corr); penpos1(alpha*left_stem,0); penpos2(alpha*left_stem,0); penpos3(alpha*right_stem,0); penpos4(alpha*left_stem,0); z0=whatever[z1r,z2r]=whatever[z3l,z4l]; if y075: p.e:=z4e{right}..tension atleast.9 and 1..{dir 75}z5e; fi endfor filldraw stroke pulled_super_arc.e(2,3)(.7superpull) & pulled_super_arc.e(3,4)(.5superpull) & p.e; fi % arc and lower terminal penlabels(1,2,3,4,5); enddef; consan_beag ("coll", if serifs: 8.5u# else: 8u# fi, 0, 4); def gen_letter = italcorr x_height#*slant+.5stem#-u#; adjust_fit(0,if monospace: .5u# else: 0 fi); pickup fine.nib; pos1(vair,90); pos2(curve,0); pos3(vair,-90); pos4(curve,-180); x1=x3=.5[x2,x4]; w-rt x2r=hround max(.5u,1.25u-.5curve); lft x4r=hround 2u; y1r=x_height+vround 1.5oo; y2=y4=.5[y1,y3]; y3r=-oo; filldraw circ_stroke pulled_arc.e(1,4) & pulled_arc.e(4,3) & pulled_arc.e(3,2) & pulled_arc.e(2,1); % bowl if serifs: pos8(hair,210); lft x8r=hround u; y8=x_height+apex_oo; path arc; arc=z1l{left}..{z8-z2}z8r; pos9(slab,-60); lft x9l=.5u; y9r=.8x_height; filldraw z8r{down}..z9l--z9r{z1-z9}..subpath(.4,0) of arc --z1r{left}..{z8-z2}z8l--cycle; % lower barb else: pos6(vstem,80); x6=.5u; top y6r=top y1r+oo; filldraw stroke z6e{z2l-z6r} .. {right}z1e; fi % ear penlabels(1,2,3,4,6,8,9); enddef; consan_beag ("dair", 11u#, 0, 1); def gen_letter = italcorr .5[bar_height#,x_height#]*slant+.5min(curve#-1.5u#,0); adjust_fit(if monospace: .25u#,.5u# else: 0,0 fi); numeric left_curve,right_curve; left_curve=right_curve+6stem_corr=curve if not serifs: -3stem_corr fi; if right_curve75: p.e:=z4e{right}..tension atleast.9 and 1..{dir 75}z5e; fi endfor filldraw stroke pulled_super_arc.e(2,3)(.7superpull) & pulled_super_arc.e(3,4)(.5superpull) & p.e; fi % arc and lower terminal penlabels(2,3,4,5,7,8); enddef; consan_beag ("teine", 10.5u#, 0, 4); def gen_letter = italcorr x_height#*slant-serif_fit#+.5stem#-2u#; adjust_fit(serif_fit#+stem_shift#, serif_fit#-2stem_shift# if monospace:-.5u# fi); numeric light_vair; light_vair=vair if hefty: -vround 2vair_corr fi; if light_vair