% This is LOWERUVW.MF % Version 1.0b % Date 17-NOV-1994 % % (c) 1991, 1994 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 55099 Mainz % knappen@vkpmzd.kph.uni-mainz.de % Contents: % % The following characters are generated without condition: % % u, v, w % % And the following on demand, i. e. if their code is known: % % u_hat, u_acute, u_grave, u_tilde, u_dotu, var_u (round v), w_breve % % Higher versions of this file might include more characters. cmchar "The letter u"; beginchar("u",10u#,x_height#,0); italcorr x_height#*slant-serif_fit#+.5stem#-2u#; adjust_fit(serif_fit#+stem_shift#,serif_fit#-stem_shift#); numeric light_vair; light_vair=vair if hefty: -vround 2vair_corr fi; if light_vair-slab: y99r:=max(y99l+eps,-oo-tiny-slab); fi y88=.5[y99r,y99l]; dot(88,99); penlabels(88,99); endchar; savedpicture:=nullpicture; numeric savedpoint; cmchar "The letter v"; beginchar("v",if serifs: 9.5u# else:9u# fi,x_height#,0); italcorr x_height#*slant+.25u#; adjust_fit(serif_fit# if monospace:+\\.5u#,.5u#+ else:,fi\\ serif_fit#); numeric left_stem,right_stem,outer_jut,alpha; left_stem=fudged.stem-stem_corr; right_stem=min(fudged.hair if hefty:-2stem_corr fi,left_stem); outer_jut=.75jut; x1l=w-x4r=l+letter_fit+outer_jut+.25u; y1=y4=h; x2-x1=x4-x3; x2l+apex_corr=x3l; y2=y3=-apex_oo; alpha=diag_ratio(2,right_stem,y1-y2,x4r-x1l-apex_corr); penpos1(alpha*left_stem,0); penpos2(alpha*left_stem,0); penpos3(alpha*right_stem,0); penpos4(alpha*right_stem,0); z0=whatever[z1r,z2r]=whatever[z3l,z4l]; if y0>notch_cut: y0:=notch_cut; fill z0+.5right{up}...{z4-z3}diag_end(3l,4l,1,1,4r,3r) --diag_end(4r,3r,1,1,2l,1l)--diag_end(2l,1l,1,1,1r,2r){z2-z1} ...{down}z0+.5left--cycle; % left and right diagonals else: fill z0--diag_end(0,4l,1,1,4r,3r)--diag_end(4r,3r,1,1,2l,1l) --diag_end(2l,1l,1,1,1r,0)--cycle; fi % left and right diagonals if serifs: numeric inner_jut; pickup tiny.nib; prime_points_inside(1,2); prime_points_inside(4,3); if rt x1'r+jut+.5u+1<=lft x4'l-jut: inner_jut=jut; else: rt x1'r+inner_jut+.5u+1=lft x4'l-inner_jut; fi dish_serif(1',2,a,1/3,outer_jut,b,1/2,inner_jut); % left serif dish_serif(4',3,c,.6,inner_jut,d,1/2,outer_jut)(dark); fi % right serif penlabels(0,1,2,3,4); endchar; iff known var_u: cmchar "The letter round v"; % jk beginchar(var_u,9u#,x_height#,0); italcorr x_height#*slant; adjust_fit(serif_fit#+stem_shift#,0); interim superness:=more_super; pickup tiny.nib; pos1(stem,0); pos2(stem,0); pos2'(stem,180); z2'=z2; pos3(vair,-90); pos4(hair,0); x1=x2; x3=.5[x1,x4]; top y1=h; y2=1/3h; bot y3r=-oo; lft x1l=hround max(2u,3u-.5stem); rt x4r=hround(w-.5u); y4=.57h; if not serifs:pos34(hair,0); x34=x4; y34=.8h; fi filldraw stroke z1e--z2e; % left stem filldraw stroke pulled_arc.e(2',3) & pulled_arc.e(3,4); % arc if serifs: v_bulb(4,5); % closing bulb sloped_serif.l(1,2,a,1/3,jut,serif_drop); % serif else: pos5(vair,90); pos6(flare,100); top y5r=h+oo; top y6r=vround .9h; lft x6r=hround(.5w+u); x5=.2[x6l,x4l]; filldraw stroke z4e--z34e...term.e(5,6,left,1,4); fi penlabels(1,2,3,34,4,5); endchar; cmchar "The letter w"; beginchar("w",13u#,x_height#,0); italcorr x_height#*slant+.25u#; adjust_fit(serif_fit#,serif_fit#); numeric stem[],outer_jut,upper_notch,alpha,mid_corr; outer_jut=.7jut; x1l=w-x8r=l+letter_fit+outer_jut+.25u; stem1=fudged.stem-stem_corr; stem4=min(fudged.hair if hefty:-2stem_corr fi,stem1); stem2=if hefty:.1[vair,stem4] else: stem4 fi; stem3=max(stem2,stem1-3stem_corr); x2-x1=x4-x3=x6-x5=x8-x7; x2l+apex_corr=x3l; x6l+apex_corr=x7l; y1=y8=h; y2=y3=y6=y7=-apex_oo; y4=y5=if monospace: vround .6 fi\\ h; upper_notch=y4-notch_cut; mid_corr=if monospace or hefty:-.3apex_corr else: .5jut fi; alpha=diag_ratio(4,stem2-stem3+stem4,y1-y2,x8r-x1l+mid_corr-2apex_corr); penpos1(alpha*stem1,0); penpos2(alpha*stem1,0); penpos3(alpha*stem2,0); penpos4(alpha*stem2,0); penpos5(alpha*stem3,0); penpos6(alpha*stem3,0); penpos7(alpha*stem4,0); penpos8(alpha*stem4,0); x4l-x1l=floor(x4l-x1l+.5(x5r+mid_corr-x4r)); % |x5r| $\approx$ |x4r+mid_corr| z23=whatever[z1r,z2r]=whatever[z3l,z4l]; z45=whatever[z3r,z4r]=whatever[z5l,z6l]; z67=whatever[z5r,z6r]=whatever[z7l,z8l]; fill diag_end(1l,2l,1,1,3r,4r){z4-z3} ...if y45notch_cut:(x67,notch_cut)+.5right{down} --(x67,notch_cut)+.5left{up} else: z67&z67 fi ...{z5-z6}special_diag_end(6,5,4,3){z3-z4} ...if y23>notch_cut:(x23,notch_cut)+.5right{down} --(x23,notch_cut)+.5left{up} else: z23&z23 fi ...{z1-z2}diag_end(2r,1r,1,1,1l,2l)--cycle; % diagonals if serifs: numeric inner_jut[]; pickup tiny.nib; prime_points_inside(1,2); prime_points_inside(5,6); prime_points_inside(8,7); if monospace: inner_jut1=inner_jut4=1.5jut; elseif hefty: inner_jut1=inner_jut4=jut; else: fill diag_end(6r,5r,1,1,5l,6l)--.9[z5l,z6l] ..{z5-z6}.1[z5r,z6r]--cycle; % middle stem inner_jut2=.7inner_jut1; inner_jut4=1.1inner_jut3; if rt x1'r+jut+.5u+1<=lft x5'l-.7jut: inner_jut1=jut; else: rt x1'r+inner_jut1+.5u+1=lft x5'l-inner_jut2; fi if rt x5'r+jut+.5u+1<=lft x8'l-1.1jut: inner_jut3=jut; else: rt x5'r+inner_jut3+.5u+1=lft x8'l-inner_jut4; fi dish_serif(5',6,e,1/3,inner_jut2,f,1/2,inner_jut3); fi % middle serif dish_serif(1',2,a,1/3,outer_jut,b,1/2,inner_jut1); % left serif dish_serif(8',7,c,.6,inner_jut4,d,1/2,outer_jut)(dark); fi % right serif picture savedpicture; savedpicture:=currentpicture; penlabels(0,1,2,3,4,5,6,7,8,23,45,67); endchar; iff known w_breve: cmchar "The letter w with breve"; beginchar(w_breve,13u#,.75[x_height#,min(asc_height#,2x_height#)],0); italcorr x_height#*slant+.25u#; adjust_fit(serif_fit#,serif_fit#); currentpicture:=savedpicture; pickup crisp.nib; pos1(vair,-180); pos3(vair,0); top y1=top y3=h; lft x1r=hround(.5w-2.5u-.5vair);x3r=hround(.5w+2.5u+.5vair); numeric mid_thickness; mid_thickness=vround 1/3[vair,stem]; pos2(mid_thickness,-90); x2=.5w; bot y2r=vround max(x_height+o+tiny,1/3[x_height,h]+o-.5mid_thickness); filldraw stroke z1e{down}...z2e{right}...{up}z3e; % stroke penlabels(1,2,3); endchar; savedpicture:=nullpicture; endinput;