% This is UPPERPQR.MF % Version 1.1a % Date 13-MAR-1992 % % (c) 1991, 1992 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-W 6500 Mainz % knappen@vkpmzd.kph.uni-mainz.de % Contents: % % The following characters are generated without condition: % % P, Q, R % % And the following on demand, i. e. if their code is known: % % hooktop_P % % Higher versions of this file might include more characters. cmchar "The letter P"; beginchar("P",12u#,cap_height#,0); italcorr .75cap_height#*slant-.5u#; adjust_fit(cap_serif_fit#,0); pickup tiny.nib; penpos1(cap_stem'-tiny,0); penpos2(cap_stem-tiny,0); pos0(cap_stem',0); pos0'(cap_stem,0); lft x1l=hround max(2u,3u-.5cap_stem'); top y1=h; bot y2=0; x1l=x2l=x0l=x0'l; y0=y0'=y7; penpos3(cap_band,90); penpos4(cap_band,90); penpos5(cap_curve if hefty:-3stem_corr fi,0); penpos6(.5[vair,cap_band],-90); penpos7(.5[vair,cap_band],-90); z3r=top z1; y4=y3; y5=.5[y4l,y6l]; y6=y7; x7=x2; y7l=vround .5h; x4=x6=.5w+.75u; x5r=hround(w-u); x4l:=x6l:=x4-.25cap_curve; filldraw stroke z1e--z0e--z0'e--z2e; % stem fill stroke z3e..pulled_arc.e(4,5) & pulled_arc.e(5,6)..z7e; % lobe if serifs: nodish_serif(1,0,a,1/3,cap_jut,b,1/3,.5cap_jut); % upper serif dish_serif(2,0',c,1/3,cap_jut,d,1/3,cap_jut); fi % lower serif math_fit(0,ic#-2.5u#); penlabels(0,1,2,3,4,5,6,7); endchar; iff known hooktop_P: cmchar "Capital letter hooktop_P"; % jk, based on cm beginchar(hooktop_P,12u#,cap_height#,0); italcorr .75cap_height#*slant-.5u#; adjust_fit(4u#,0); pickup tiny.nib; penpos1(cap_stem'-tiny,0); penpos2(cap_stem-tiny,0); pos0(cap_stem',0); pos0'(cap_stem,0); lft x1l=hround max(2u,3u-.5cap_stem'); top y1=h; bot y2=0; x1l=x2l=x0l=x0'l; y0=y0'=y7; penpos3(cap_band,90); penpos4(cap_band,90); penpos5(cap_curve if hefty:-3stem_corr fi,0); penpos6(.5[vair,cap_band],-90); penpos7(.5[vair,cap_band],-90); z3r=top z1; y4=y3; y5=.5[y4l,y6l]; y6=y7; x7=x2; y7l=vround .5h; x4=x6=.5w+.75u; x5r=hround(w-u); x4l:=x6l:=x4-.25cap_curve; filldraw stroke z1e--z0e--z0'e--z2e; % stem fill stroke z3e..pulled_arc.e(4,5) & pulled_arc.e(5,6)..z7e; % lobe if serifs: % nodish_serif(1,0,a,1/3,cap_jut,b,1/3,.5cap_jut); % upper serif dish_serif(2,0',c,1/3,cap_jut,d,1/3,cap_jut); fi % lower serif pickup crisp.nib; left_hook(1,1',21,22,23,24); % left hook math_fit(0,ic#-2.5u#); penlabels(0,1,2,3,4,5,6,7,21,22,23,24); endchar; cmchar "The letter Q"; beginchar("Q",14u#-width_adj#,cap_height#,comma_depth#); italcorr .7cap_height#*slant-.5u#; adjust_fit(0,0); numeric light_curve; light_curve=cap_curve-hround stem_corr; penpos1(vair',90); penpos3(vair',-90); penpos2(light_curve,180); penpos4(light_curve,0); if monospace: x2r=hround 1.5u; interim superness:=sqrt superness; % make |"Q"| like |"O"| else: x2r=hround u; fi x4r=w-x2r; x1=x3=.5w; y1r=h+o; y2=y4=.5h-vair_corr; y3r=-o; penstroke pulled_super_arc.e(1,2)(.5superpull) & pulled_super_arc.e(2,3)(.5superpull) & pulled_super_arc.e(3,4)(.5superpull) & pulled_super_arc.e(4,1)(.5superpull) & cycle; % bowl pickup tiny.nib; if hefty: penpos5(1.2(.5[cap_bar,light_curve]),0); penpos6(1.2light_curve,0); x5=.5w; x6r=hround(w-1.5u); y5=vround .28h; y6=-d; fill diag_end(6r,5r,.25,1,5l,6l)--diag_end(5l,6l,.5,1,6r,5r)--cycle; % tail else: pos3'(vair,270); pos5(vair,180); pos6(vair,90); pos7(cap_curve,85); penpos8(eps,180); z3'=z3; x6=x3; top y6r=vround(.2h+.5vair); lft x5r=hround(.5w-1.25u-.5vair); y5=.5[y3,y6]; bot y7l=-d; x7l=2/3[x6,x8]; y8=0; rt x8=hround(x4r+.1u); filldraw stroke z3'e{left}...z5e{up}...z6e{right} ..z7e{right}...z8e{up}; fi % tail math_fit(-.3cap_height#*slant-.5u#,ic#); penlabels(1,2,3,4,5,6,7); endchar; cmchar "The letter R"; beginchar("R",if serifs: 12u#+.5max(2u#,cap_curve#) else:12.5u#-.5width_adj# fi,cap_height#,0); italcorr .75cap_height#*slant- if serifs: 1.75 else: .5 fi\\ u#; adjust_fit(cap_serif_fit#,0); pickup tiny.nib; pos1(cap_stem',0); pos2(cap_stem',0); lft x1l=lft x2l=hround max(2u,3u-.5cap_stem'); top y1=h; bot y2=0; filldraw stroke z1e--z2e; % stem penpos3(cap_band,90); penpos4(cap_band,90); penpos5(cap_curve if hefty:-3stem_corr fi,0); penpos6(vair,-90); penpos7(vair,-90); z3r=top z1; y4=y3; y5=.5[y4l,y6l]; y6=y7; x7=x2; y7l=vround(.5h+.5vair); x4=x6; if serifs: x4=.5w-.5u; x5r=hround(w-2.25u); else: x4=.5w+.5u; x5r=hround(w-u); fi x4l:=x6l:=x4-.125cap_curve; fill stroke z3e..pulled_arc.e(4,5) & pulled_arc.e(5,6)..z7e; % lobe if serifs: pos6'(vair,-90); pos0(cap_stem,180); pos8(cap_curve,180); pos9(vair,-90); pos10(hair,0); z6'=z6; lft x0r=lft x8r=hround(x5-2/3u-.5cap_curve); y8=1/3[y2,y7]; y0=3/5[y2,y7]; x9=.5[x8l,x10r]; bot y9r=-o; rt x10r=hround(w-.05u); y10=1/4[y2,y7]; filldraw stroke z6'e{right}..z0e---z8e....z9e{right}..z10e{up}; % tail nodish_serif(1,2,a,1/3,cap_jut,b,1/3,.5cap_jut); % upper serif dish_serif(2,1,c,1/3,cap_jut,d,1/3,cap_jut); % lower serif else: penpos8(cap_stem-2stem_corr,0); penpos9(cap_stem,0); x8=x6+.5u; y8=y6; x9r=hround(w-.5u); y9=0; fill z8l--diag_end(8l,9l,.5,1,9r,8r)--z8r--cycle; fi % tail math_fit(0,.75ic#); penlabels(0,1,2,3,4,5,6,7,8,9,10); endchar; endinput;