% Variants of Computer Modern, specially for the TeX/METAFONT manuals if unknown cmbase: input cmbase fi mode_setup; def generate suffix t= enddef; inner cmchar; font_size 10pt#; font_identifier "CMMAN"; font_coding_scheme "PI"; input cmtt10; font_setup; cmchar "Cross between 0 and O"; beginchar("0",9u#,fig_height#,0); italcorr fig_height#*slant-.5u#; adjust_fit(0,0); penpos1(vair,90); penpos3(vair,-90); penpos2(curve,180); penpos4(curve,0); superness:=.77; x2r=round max(.7u,1.45u-.5curve); x4r=w-x2r; x1=x3=.5w; y1r=h+o; y3r=-o; y2=y4=.5h-vair_corr; y2l:=y4l:=.52h; penstroke pulled_arc.e(1,2) & pulled_arc.e(2,3) & pulled_arc.e(3,4) & pulled_arc.e(4,1) & cycle; % bowl penlabels(1,2,3,4); endchar; input cmssq8; slant:=sind 12/cosd 12; font_setup; cmchar "Lowercase Greek beta"; beginchar(oct"014",9.5u#,asc_height#,desc_depth#); italcorr .5[x_height#,asc_height#]*slant-u#; adjust_fit(0,0); pickup fine.nib; pos0(hair,180); pos1(hair,180); pos2(vair,90); pos3(stem,0); pos4(vair,-90); pos5(hair,-180); pos6(vair,-270); pos7(curve,-360); pos8(vair,-450); pos9(hair,-540); x0=x1=x9; lft x0l=hround(1.5u-.5hair); x2=x4=x6=x8=.5w+.25u; rt x3r=hround(w-1.5u); rt x7r=hround(w-1.5u+.5curve); rt x5l=hround(x4-u); bot y0=-d; y1=top y6r=x_height; top y2r=h+oo; y3=.5[y2,y4]; y5=.5[y4,y6]; top y6r-bot y4r=vstem+eps; bot y8=-oo; y7=y9=.5[y6,y8]; if y6l