% This is LOWERE.MF % Version 1.0c % Date 22-MAR-1992 % % (c) 1991, 1992 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_tilde, e_grave, e_acute, e_hat, e_umlaut, e_dot, e_dotu, e_bar, % e_uline, e_hachek, open_e, open_e_tilde, inversed_e % % Higher versions of this file might include more characters. cmchar "The letter e"; beginchar("e",7.25u#+max(.75u#,.5curve#),x_height#,0); 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_curve-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 "The letter open e"; % jk, based on the numeral 3 from cm beginchar(open_e,7.5u#,x_height#,0); italcorr x_height#*slant-.5u#; adjust_fit(0,0); slantswitch; % mirror will reswitch slant numeric top_thickness,mid_thickness,bot_thickness; mid_thickness=max(fine.breadth,vround 2/3vair); pickup fine.nib; pos2(vair',90); top y2r=h+oo; pos3(max(fine.breadth,.6[curve,cap_curve]-stem_corr),0); rt x3r=hround(w-u); pos4(vair,-90); pos5(vair,-90); pos6(mid_thickness,90); x2=x6=x8=.5[1.25u,x7]; pos7(curve,0); rt x7r=hround(w-.5u); lft x5=min(hround 2.5u,lft x6)-eps; pos8(vair',-90); bot y8r=-oo; if serifs: pos9(hair,-180); lft x9l=hround(1.25u); y9=max(good.y(.5bar_height-.9),y8l+vair'); (x,y8l)=whatever[z8r,z9r]; x8l:=max(x,x8l-.5u); % (x,y4l)=whatever[z4r,z5l]; x4l:=min(x,x4l+.5u); fi y3=.6[top y4l,bot y2l]; y7=.5[bot y6l,top y8l]; top y5l=vround(bar_height+.5vair); y5r=y6l; x4=1/3[x5,x3l]; z4=z5+whatever*(150u,h); filldraw stroke pulled_super_arc.e(2,3)(.5superpull) & z3e{down}...z4e---z5e; % upper bowl filldraw z5r--z6l--z6r--z5l---cycle; % middle tip filldraw stroke pulled_super_arc.e(6,7)(.5superpull) & pulled_super_arc.e(7,8)(.5superpull); % lower bowl if serifs: numeric bulb_diam[]; bulb_diam1=flare; bulb_diam2=flare; pos0(bulb_diam1,180); pos1(hair,180); lft x0r=hround 1.25u; y0=min(.9h-.5bulb_diam1,.75h+.5bulb_diam1); bulb(2,1,0); % upper bulb % no lower bulb % pos10(bulb_diam2,-180); pos9(cap_hair,-180); % lft x10r=hround .75u; y10=max(.1h+.5bulb_diam2,.3h-.5bulb_diam2); % bulb(8,9,10); % lower bulb filldraw stroke z8e{left}..tension .9 and 1..{x9-x8,5(y9-y8)}z9e; % % lower terminal else: pos1(.5[vair,flare],angle(-8u,h)); lft x1r=hround u; bot y1l=vround .75h+o; y1r:=good.y y1r+eps; x1l:=good.x x1l; pos9(vair',angle(-2u,-h)); lft x9r=hround .75u; top y9l=vround .25h-o; y9r:=good.y y9r-eps; x9l:=good.x x9l; filldraw stroke term.e(2,1,left,1,4); % upper terminal filldraw stroke term.e(8,9,left,1,4); fi % lower terminal mirror(.5w); picture savedpicture; savedpicture:=currentpicture; penlabels(0,1,2,3,4,5,6,7,8,9); 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 "The letter inverted e"; % from cm beginchar(reversed_e,7.25u#+max(.75u#,.5curve#),x_height#,0); 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_curve