% 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<lft x0l-1.5jut: inner←jut=1.5jut;
 else: rt x6l+.5u=lft x0l-inner←jut; fi
 dish←serif(0,1,a,.6,inner←jut,b,.5,jut)(dark);  % serif
else: pickup fine.nib; pos10'(slab,90); z10'=z10;
 pos11(Vround .5[slab,flare],90);
 rt x11=hround(r-letter←fit-u); bot y11l=vround .07bar←height-o;
 filldraw stroke term.e(10',11,right,1,4); fi  % terminal
penlabels(0,1,2,3,4,5,6,7,8,9,10,11); endchar;

cmchar "Question mark";
beginchar("?",8.5u#,asc←height#,0);
italcorr .8asc←height#*slant;
adjust←fit(0,0);
pickup tiny.nib; pos7(dot←size,0); pos8(dot←size,90);
lft x7l=hround(.5w-.25u-.5dot←size); bot y8l=0; z7=z8; dot(7,8);  % dot
numeric bot←width;
bot←width=if hefty:max(hround .8dot←size,fine.breadth) else: hair fi;
pickup fine.nib; pos2(vair,90); pos3(curve,0);
pos4(vair,-90); pos5(bot←width,0); pos6(bot←width,0);
x2=x4=x5=x6=x7; rt x3r=hround(w-u); bot y6=1+.25[top y8r,x←height];
top y2r=h+oo; y3=.75[y6,y2]; y4=.5[y6,y2]; y5=.1[y6,y2];
{{interim superness:=more←super;
filldraw stroke pulled←super←arc.e(2,3)(superpull)
 & subpath (0,1) of super←arc.e(3,4) .. z5e---z6e\\}};  % arc and stem
if serifs: pos1(hair,180); pos0(flare,180);
 lft x1r=hround u; y1=y3; bulb(2,1,0);  % bulb
else: pos1(Vround 5/7[vair,flare],110);
 lft x1r=hround u; top y1r=vround .9[y6,top y2r];
 filldraw stroke term.e(2,1,left,1,4); fi  % terminal
penlabels(0,1,2,3,4,5,6,7,8); endchar;

iff known spanish←query: cmchar "Spanish open question mark";
beginchar(spanish←query,8.5u#,asc←height#-desc←depth#,desc←depth#);
adjust←fit(0,0);
pickup tiny.nib; pos7(dot←size,0); pos8(dot←size,90);
lft x7l=hround(.5w-.25u-.5dot←size); top y8r=h; z7=z8; dot(7,8);  % dot
numeric top←width;
top←width=if hefty:max(hround .8dot←size,fine.breadth) else: hair fi;
pickup fine.nib; pos2(vair,270); pos3(curve,180);
pos4(vair,90); pos5(top←width,180); pos6(top←width,180);
x2=x4=x5=x6=x7; lft x3r=hround u; top y6=.25[bot y8l,h-x←height]-1;
bot y2r=-d-oo; y3=.75[y6,y2]; y4=.5[y6,y2]; y5=.1[y6,y2];
{{interim superness:=more←super;
filldraw stroke pulled←super←arc.e(2,3)(superpull)
 & subpath (0,1) of super←arc.e(3,4) .. z5e---z6e\\}};  % arc and stem
if serifs: pos1(hair,0); pos0(flare,0);
 rt x1r=hround(w-u); y1=y3; bulb(2,1,0);  % bulb
else: pos1(Vround 5/7[vair,flare],-70);
 rt x1r=hround(w-u); bot y1r=vround .9[y6,bot y2r];
 filldraw stroke term.e(2,1,right,1,4); fi  % terminal
penlabels(0,1,2,3,4,5,6,7,8); endchar;