cmchar "The letter m"; beginchar("m",15u#,x_height#,0); italcorr .5[bar_height#,x_height#]*slant-serif_fit#+.5stem#-2u#; adjust_fit(serif_fit#+stem_shift#,serif_fit#-stem_shift#); numeric shaved_stem; shaved_stem=hround(mfudged.stem-2stem_corr); pickup tiny.nib; pos1(mfudged.stem,0); pos2(mfudged.stem,0); pos1'(shaved_stem,0); pos2'(shaved_stem,0); pos3(mfudged.stem,0); pos5(mfudged.stem,0); lft x1l=hround(2.5u-.5stem); x1l=x1'l=x2l=x2'l; lft x3l=hround(.5w-.5stem); x5-x3=x3-x1; if not monospace: r:=hround(x5+x1)-l; fi % change width for better fit top y1=h+min(oo,serif_drop); bot y2=0; y1=y1'; y2=y2'; filldraw stroke z1'e--z2'e; % left stem h_stroke(2,a,3,4); % left arch and middle stem h_stroke(4,b,5,6); % right arch and right stem if serifs: sloped_serif.l(1',2',c,1/3,jut,serif_drop); % upper left serif numeric inner_jut; pickup tiny.nib; if rt x2r+jut+.5u+1<=lft x4l-jut: inner_jut=jut; else: rt x2r+jut+.5u+1=lft x4l-inner_jut; fi dish_serif(2,1,d,1/3,jut,e,1/3,jut); % lower left serif dish_serif(4,3,f,1/3,inner_jut,g,1/3,jut); % lower middle serif dish_serif(6,5,h,1/3,inner_jut,i,1/3,jut); fi % lower right serif penlabels(1,2,3,4,5,6); endchar;