% This is ITALE.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: % % e % % And the following on demand, i. e. if their code is known: % % e_grave, e_acute, e_hat, e_hachek, e_dot, e_umlaut, e_dotu, e_bar, % e_uline, e_tilde, open_e, open_e_tilde, reversed_e % % Higher versions of this file might include more characters. cmchar "Italic letter e"; beginchar("e",8u#,x_height#,0); italcorr max(1/3x_height#*slant,x_height#*slant+.5(.2[hair#,stem#])-u#); adjust_fit(0,0); pickup fine.nib; numeric heavy_hair; heavy_hair=hround .2[hair,stem]; pos0(vair,-90); pos1(heavy_hair,0); pos2(vair,90); pos3(curve,180); pos4(vair,270); pos5(hair,320); x0=rt x3l; rt x1r=hround(w-1.5u+.5heavy_hair); x2=x4=.5(w+u); lft x3r=hround(1.5u-.5curve); x5r=good.x(w-eps); x6=x5; y0=y3=y6=bar_height; y1=.5[y0,y2]; top y2r=h+oo; bot y4r=-oo; top y5l=vround .5bar_height; path p; p=z4{right}..z5..z6; filldraw stroke z0e{right}...z1e{up}...pulled_arc.e(2,3) & pulled_arc.e(3,4)...{direction 1 of p}z5e; % arc picture savedpicture; savedpicture:=currentpicture; savedpoint:=x4; math_fit(-.3x_height#*slant+.5curve#-u#,ic#); penlabels(0,1,2,3,4,5,6); endchar; iff known e_dot: cmchar "The letter e with dot"; beginchar(e_dot,7.25u#+max(.75u#,.5curve#), min(asc_height#,10/7x_height#+.5flare#),0); italcorr .5[bar_height#,x_height#]*slant+.5min(curve#-1.5u#,0); adjust_fit(if monospace: .25u#,.5u# else: 0,0 fi); currentpicture:=savedpicture; pickup tiny.nib; pos88(flare,0); pos99(flare,90); x88=x99=good.x(savedpoint); top y99r=h+1; if bot y99l-x_height+oo-slab: y99r:=max(y99l+eps,-oo-tiny-slab); fi y88=.5[y99r,y99l]; dot(88,99); penlabels(88,99); endchar; numeric savedpoint; iff known e_uline: cmchar "The letter e with bar below"; beginchar(e_uline,7.25u#+max(.75u#,.5curve#),x_height#,0.875desc_depth#); italcorr .5[bar_height#,x_height#]*slant+.5min(curve#-1.5u#,0); adjust_fit(if monospace: .25u#,.5u# else: 0,0 fi); currentpicture:=savedpicture; numeric macron_breadth; macron_breadth:=Vround .2[vair,stem]; pickup if serifs: crisp.nib else: fine.nib fi; pos91(macron_breadth,90); pos92(macron_breadth,90); bot y91l=bot y92l=-d-o; lft x91=w-rt x92=hround 1.25u; filldraw stroke z91e--z92e; % bar penlabels(91,92); endchar; savedpicture:=nullpicture; iff known open_e: cmchar "Italic letter open e"; % from cmcyr ze beginchar(open_e,8u#,x_height#,0); italcorr if math_fitting:1/3x_height#*slant else:x_height#*slant-u# fi; adjust_fit(0,0); pickup fine.nib; pos1(hair,140); pos2(cap_band,90); pos4(vair,-90); x1r=good.x(eps); x0=x1; top y2r=h+o; bot y1l=vround h-.5bar_height; y0=h-bar_height; pos3(max(fine.breadth,curve-stem_corr),0); pos7(vair,-90); pos8(vair,-90); pos9(vair,90); x2=.45[2u,x10]; rt x3r=hround(w-u); x4=.45[x1,x10]; pos10(curve,0); rt x10r=hround(w-.5u); lft x8=.5w-u; y3=.35[top y7l,bot y2l]; top y8l=vround(.46h+.5vair); z8r=z9l; x7=1/3[x8,x3l]; z7=z8+whatever*(150u,h); pos5'(hair,-180); pos5(flare,-180); bot y4r=0; rt x5l=hround 2u; z5r=z5'r; y10=.45[bot y8r,top y4l]; y5=max(good.y .95(h-y1),y4l+eps); (x2l',y2l)=whatever[z2r,z1l]; x2l:=max(x2l',x2l-.5u); (x4l',y4l)=whatever[z4r,z5l]; x4l:=max(x4l',x4l-.5u); path p; p=z0..z1..{right}z2; filldraw stroke z1e{direction 1 of p} ...pulled_arc.e(2,3) & z3e{down}...z7e---z8e; % upper bowl filldraw stroke z9e---pulled_arc.e(9,10) & pulled_super_arc.e(10,4)(.5superpull); % lower bowl bulb(4,5',5); % bulb (x20,y20)=(.5w,.5h); % center point flip(20); picture savedpicture; savedpicture:=currentpicture; math_fit(-.3x_height#*slant+.5curve#-u#,ic#); penlabels(0,1,2,3,4,5,7,8,9,10,11,12,13); endchar; iff known open_e_tilde: cmchar "The letter open e with tilde"; beginchar(open_e_tilde,7.5u#,.75[x_height#,min(asc_height#,2x_height#)],0); italcorr x_height#*slant-.5u#; adjust_fit(0,0); currentpicture:=savedpicture; if serifs: numeric theta; theta=angle(1/6(6u-vair),1/4(h-x_height)); pickup crisp.nib; numeric mid_width; mid_width=.4[vair,stem]; pos1(vair,theta+90); pos2(vair,theta+90); pos3(vair,theta+90); pos4(vair,theta+90); z2-z1=z4-z3=(mid_width-crisp)*dir theta; lft x1r=w-rt x4l=hround u; top y4r=h; bot y1l=vround(bot y1l+min(2/3[x_height,h],y3l-.25vair)-top y1r); pair delta; ypart delta=3(y3l-y1l); delta=whatever*dir theta; filldraw z1l..controls(z1l+delta)and(z3l-delta)..z3l..z4l --z4r..controls(z4r-delta)and(z2r+delta)..z2r..z1r--cycle; % stroke else: pickup fine.nib; pos1(vair,180); pos2(vair,90); pos3(.5[vair,slab],90); pos4(vair,90); pos5(vair,180); lft x1r=w-rt x5l=hround u; x2-x1=x3-x2=x4-x3=x5-x4; bot y1=bot y4l=vround(.75[x_height,h]-vair); top y2r=top y5=h; y3=.5[y2,y4]; filldraw stroke z1e{up}...z2e{right}..z3e..{right}z4e...{up}z5e; fi % stroke penlabels(1,2,3,4,5); endchar; savedpicture:=nullpicture; iff known reversed_e: cmchar "Italic letter turned e"; % from jkbash, originally from cm beginchar(reversed_e,8u#,x_height#,0); italcorr max(1/3x_height#*slant,x_height#*slant+.5(.2[hair#,stem#])-u#); adjust_fit(0,0); pickup fine.nib; numeric heavy_hair; heavy_hair=hround .2[hair,stem]; pos0(vair,-90); pos1(heavy_hair,0); pos2(vair,90); pos3(curve,180); pos4(vair,270); pos5(hair,320); x0=rt x3l; rt x1r=hround(w-1.5u+.5heavy_hair); x2=x4=.5(w+u); lft x3r=hround(1.5u-.5curve); x5r=good.x(w-eps); x6=x5; y0=y3=y6=bar_height; y1=.5[y0,y2]; top y2r=h+oo; bot y4r=-oo; top y5l=vround .5bar_height; path p; p=z4{right}..z5..z6; filldraw stroke z0e{right}...z1e{up}...pulled_arc.e(2,3) & pulled_arc.e(3,4)...{direction 1 of p}z5e; % arc x10=.5w; y10=.5h; % center point flip(10); % and flip math_fit(-.3x_height#*slant+.5curve#-u#,ic#); penlabels(0,1,2,3,4,5,6); endchar; endinput;