% This is ITALA.MF % Version 1.0a % Date 8-SEP-1991 % % (c) 1991 by J"org Knappen. See fc.rme for copying conditions % This file is part of the fc-package % See fc.rme for more information % % J"org Knappen % Institut f"ur Kernphysik % Postfach 39 80 % D-W 6500 Mainz % knappen@vkpmzd.kph.uni-mainz.de % Contents: % % The following characters are generated without condition: % % a % % And the following on demand, i. e. if their code is known: % % a_grave, a_acute, a_hat, a_tilde, a_umlaut, ae_lig (\ae) % % Higher versions of this file might include more characters. cmchar "Italic letter a"; beginchar("a",9u#,x_height#,0); italcorr 1/3x_height#*slant+.5hair#+.5u#; adjust_fit(0,0); pickup fine.nib; pos0(hair,0); pos1(vair,90); pos2(curve,180); pos3(vair,270); pos4(stem,0); x4=x0; y4+.5stem=vround .98h; x1=x3=.5[x0,x2]; lft x2r=hround(1.5u-.5curve); rt x4r=hround(w-2.5u+.5stem); top y1r=h+oo; bot y3r=-oo; y0=y2=.5[y1,y3]; filldraw stroke super_arc.e(0,1) & pulled_arc.e(1,2) & pulled_arc.e(2,3) & super_arc.e(3,0); % bowl x5=x4; x7=w; hook_out(5,6,7); % closing hook filldraw circ_stroke z4e--z5e; % stem picture savedpicture; savedpicture:=currentpicture; math_fit(-.3x_height#*slant+.5curve#-u#,ic#); penlabels(0,1,2,3,4,5,6,7); endchar; iff known a_umlaut: cmchar "The letter a with trema"; beginchar(a_umlaut,9u#,min(asc_height#,10/7x_height#+.5flare#),0); italcorr 1/3x_height#*slant+.5hair#+.5u#; currentpicture:=savedpicture; pickup tiny.nib; pos1(flare,0); pos2(flare,90); x1=x2=good.x(.5w-1.75u); top y2r=h+1; if bot y2l