% Please see the file LICENCE-wsuipa.txt for licensing information. % This is IROMANP.MF in text format, as of Jan. 13, 1988. % 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 "superscript Glottal Stop"; beginchar(oct"145",8.5u#,asc_height#-desc_depth#,desc_depth#); italcorr .8asc_height#*slant; adjust_fit(0,0); pos7(dot_size,0); pos8(dot_size,90); lft x7l=hround(.45w-.25u-.5dot_size); bot y8l=0; z7=z8; % dot numeric bot_width; bot_width=if hefty:max(hround .8dot_size,fine.breadth) else: stem fi; pickup fine.nib; pos2(vair,90); pos3(stem,0); pos4(.75curve,-90); pos5(bot_width,0); pos6(bot_width,0); pos14(bot_width,0); z4l=z14; x2=x7; rt x3r=hround(w-u); bot y6=1+oo; x4=x5=x6=.75[0,x2]; top y2r=h+oo; y3=.75[y6,y2]; y4=.45[y6,y2]; y5=.1[y6,y2]; {{interim superness:=more_super; filldraw stroke pulled_super_arc.e(2,3)(superpull) &pulled_super_arc.e(3,4)(superpull)\\}}; filldraw stroke z14e--- z5e---z6e; % arc and stem if serifs: pos1(hair,180); pos0(flare,180); lft x1r=hround u; y1=.85[y6,y2]; 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); endchar; cmchar "Glottal Stop"; beginchar(oct"142",8.5u#,asc_height#,0); italcorr .8asc_height#*slant; adjust_fit(0,0); pos7(dot_size,0); pos8(dot_size,90); lft x7l=hround(.45w-.25u-.5dot_size); bot y8l=0; z7=z8; % dot numeric bot_width; bot_width=if hefty:max(hround .8dot_size,fine.breadth) else: stem fi; pickup fine.nib; pos2(vair,90); pos3(stem,0); pos4(.75curve,-90); pos5(bot_width,0); pos6(bot_width,0); pos14(bot_width,0); z4l=z14; x2=x7; rt x3r=hround(w-u); bot y6=oo; x4=x5=x6=1.05[0,x2]; 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) &pulled_super_arc.e(3,4)(superpull)\\}}; filldraw stroke z14e--- z5e---z6e; % arc and stem if serifs: pos1(hair,180); pos0(flare,180); lft x1r=hround .5u; y1=.85[y6,y2]; bulb(2,1,0); % bulb dish_serif(6,5,c,1/3,.8cap_jut,b,1/3,.8cap_jut); %lower serif 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); endchar; cmchar "Reversed Glottal Stop"; beginchar(oct"143",8.5u#,asc_height#,0); italcorr .8asc_height#*slant; adjust_fit(0,0); pos7(dot_size,0); pos8(dot_size,90); lft x7l=hround(.55w+.25u+.5dot_size); bot y8l=0; z7=z8; % dot numeric bot_width; bot_width=if hefty:max(hround .8dot_size,fine.breadth) else: stem fi; pickup fine.nib; pos2(vair,90); pos3(stem,180); pos4(.75curve,-90); pos5(bot_width,0); pos6(bot_width,0); pos14(bot_width,0); z4l=z14; x2=x7; rt x3r=hround(1.5u); bot y6=oo; x4=x5=x6=.9x2; 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) &pulled_super_arc.e(3,4)(superpull)\\}}; filldraw stroke z14e--- z5e---z6e; % arc and stem if serifs: pos1(hair,0); pos0(flare,0); lft x1r=hround w-.5u; y1=.85[y6,y2]; bulb(2,1,0); % bulb dish_serif(6,5,c,1/3,.8cap_jut,b,1/3,.8cap_jut); %lower serif 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); endchar; cmchar "Inverted Glottal Stop"; beginchar(oct"144",8.5u#,asc_height#,0); italcorr .8asc_height#*slant; adjust_fit(0,0); pos7(dot_size,0); pos8(dot_size,90); lft x7l=hround(.55w+.25u+.5dot_size); bot y8l=0; z7=z8; % dot numeric bot_width; bot_width=if hefty:max(hround .8dot_size,fine.breadth) else: stem fi; pickup fine.nib; pos2(vair,90); pos3(stem,180); pos4(.75curve,-90); pos5(bot_width,0); pos6(bot_width,0); pos14(bot_width,0); z4l=z14; x2=x7; rt x3r=hround(1.5u); bot y6=.1h; x4=x5=x6=.85x2; 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) &pulled_super_arc.e(3,4)(superpull)\\}}; filldraw stroke z14e--- z5e---z6e; % arc and stem if serifs: pos1(hair,0); pos0(flare,0); lft x1r=hround w-.5u; y1=.85[y6,y2]; 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 picture rvchar; if slant=0: rvchar=currentpicture rotatedabout((.5w,.5h),180);% else: rvchar=currentpicture rotatedabout((.58w,.5h),180);fi currentpicture:= rvchar; penlabels(0,1,2,3,4,5,6); endchar; cmchar "superscript reversed Glottal Stop"; beginchar(oct"146",8.5u#,asc_height#-desc_depth#,desc_depth#); italcorr .8asc_height#*slant; adjust_fit(0,0); pos7(dot_size,180); pos8(dot_size,90); rt x7r=hround(.5w+.25u+.5dot_size); bot y8l=0; z7=z8; % dot numeric bot_width; bot_width=if hefty:max(hround .8dot_size,fine.breadth) else: stem fi; pickup fine.nib; pos2(vair,90); pos3(stem,180); pos4(.75curve,-90); pos5(bot_width,0); pos6(bot_width,0); pos14(bot_width,0); z4l=z14; x2=x7; rt x3r=hround(1.5u); bot y6=1+oo; x4=x5=x6=.88x2; top y2r=h+oo; y3=.75[y6,y2]; y4=.45[y6,y2]; y5=.1[y6,y2]; {{interim superness:=more_super; filldraw stroke pulled_super_arc.e(2,3)(superpull) &pulled_super_arc.e(3,4)(superpull)\\}}; filldraw stroke z14e--- z5e---z6e; % arc and stem if serifs: pos1(hair,0); pos0(flare,0); lft x1r=hround w-u; y1=.85[y6,y2]; 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); endchar; cmchar "Click "; beginchar(oct"073",18u#,asc_height#,desc_depth#); autorounded; adjust_fit(if monospace:-3u#,-3u# else: 0,0 fi); pickup light_rule.nib; lft x6=hround u; x2=w-x6; top y8=h+o; bot y4=-d-o; circle_points; draw_circle; % circle fill fullcircle scaled(dot_size+eps) shifted(.5[z4,z8]); % dot labels(1,2,3,4,5,6,7,8); endchar;