% THIS IS THE OFFICIAL COMPUTER MODERN SOURCE FILE romanp.mf BY D E KNUTH. % IT MUST NOT BE MODIFIED IN ANY WAY UNLESS THE FILE NAME IS CHANGED! % This file contains `\$' and `\&' and `?' in the so-called roman style. % Codes \0044, \0046, and \0077 are generated, as well as code |spanish_query| % (for a Spanish question mark) if that code value is known. cmchar "Dollar sign"; beginchar("$",9u#,body_height#,body_height#-asc_height#); italcorr fig_height#*slant-.5u#; % same as for digits adjust_fit(0,0); numeric theta; theta=90-angle(50u,asc_height); slope:=-asc_height/50u; pickup fine.nib; pos2(slab,-90); pos0(cap_stem,theta); pos7(slab,-90); x2=x0=x7=.5w; top y2l=asc_height+oo; bot y7r=-oo; y0=.52asc_height; lft x3l=hround u; rt x6r=hround(w-u); x3r-x3l=x6r-x6l=hround .35[slab,cap_stem]-fine; ellipse_set(2l,3l,4l,0l); ellipse_set(2r,3r,4r,0r); y3=y3r; ellipse_set(7l,6l,5l,0l); ellipse_set(7r,6r,5r,0r); y6=y6r; filldraw stroke super_arc.e(2,3) & z3e{down} ..z4e---z5e..z6e{down} & super_arc.e(6,7); % main stroke if serifs: pos1(hair,0); pos8(hair,180); pos10(flare,0); pos9(flare,180); rt x1r=hround(w-u); lft x8r=hround u; y1=.5[y0,y2]; y8=.5[y0,y7]; {{less_tense; pos2'(slab,90); z2'=z2; bulb(2',1,10); % upper arc and bulb bulb(7,8,9)}}; % lower arc and bulb else: pos1(.6[slab,flare],-100); pos8(flare,-100); rt x1l=hround(w-1.3u); lft x8r=hround .8u; top y1l=vround .92asc_height+oo; bot y8r=vround .1asc_height-oo; filldraw stroke term.e(2,1,right,.9,4); % upper arc and terminal filldraw stroke term.e(7,8,left,1,4); fi % lower arc and terminal pickup crisp.nib; pos12(bar,0); pos11(bar,0); lft x12l=lft x11l=hround(.5w-.5bar); top y12=h; bot y11=-d; filldraw stroke z12e--z11e; % vertical crossbar penlabels(0,1,2,3,4,5,6,7,8,9,10,11,12); endchar; cmchar "Ampersand"; beginchar("&",14u#,asc_height#,0); italcorr x_height#*slant-serif_fit# - if serifs: .4u# else: 1.5u# fi; adjust_fit(0,serif_fit#); pickup tiny.nib; pos2(slab,-90); x2=4u; bot y2r=-o; if not hefty:(x,y2l)=whatever[z2r,(w-5u,x_height)]; x2l:=x; fi if serifs: pos0(fudged.hair,0); rt x0r+jut=hround(w-.9u); top y0=x_height; pos1(fudged.hair,0); z1=whatever[z0,(.6[x0,x2],0)]; y1=max(y0-1.5bracket-.2x_height,2/3x_height); filldraw stroke z0e---z1e...{left}z2e; % short diagonal else: pickup fine.nib; pos1(.25[slab,flare],-15); rt x1r=hround(w-2u); y1r=good.y .75[bar_height,x_height]; x1l:=good.x x1l; y1l:=good.y y1l; top z2'l=(x2l,tiny.top y2l); bot z2'r=(x2r,tiny.bot y2r); filldraw stroke term.e(2',1,right,1,4); fi % short diagonal and terminal pickup tiny.nib; numeric slope,theta,reduced_hair; slope=(h-2vair-slab)/10.5u; theta=angle(-slope,1); reduced_hair=max(tiny.breadth,hround(fudged.hair if hefty:-2stem_corr fi)); lft x3r=hround .75u; x5=.5[x3r,x6l]; lft x6r=hround .5(w-u); x3l-x3r=curve-tiny; pos6(reduced_hair,180); pos5(vair,theta); y5=.5h; ellipse_set(2l,3l,4l,5l); ellipse_set(2r,3r,4r,5r); pos7(vair,270); top y7l=h+o; x7=.45[x6r,x8r]; pos8(fudged.stem,30); x8l=good.x(x8l+3.5u-x8); y8r=y6; ellipse_set(7l,6l,5',5l); filldraw stroke z2e{left}...z3e{up}...z4e---z5e...{up}z6e ...z7e{left}...z8e{down}; % bowls pos10(slab,90); x10=w-3.5u; bot y10l=-o; pos9(fudged.stem,angle(z8-z10)-90); z9=.5[z8,z10]+(1.75u,0) rotated(angle(z8-z10)+90); filldraw stroke z8e{down}...z9e{z10-z8}...{right}z10e; % long diagonal if serifs: pickup crisp.nib; pos10'(slab,90); z10'=z10; pos11(fudged.hair,180); rt x11l=hround(w-u); y11=.5bar_height; filldraw stroke z10'e{right}...{up}z11e; % terminal numeric inner_jut; if rt x6l+.5u