% This is PUNCT.MF in text format, as of May 5, 1986. % This file contains punctuation marks common to roman and italic styles. % ******************************************************************** % Öslenskun (7. jan 1988) (IPUNCT.MF) % ét er tekiĞ sp‘nska upphr¢punarmerkiĞ % % ******************************************************************** % Codes \0041, \0043, \0045, \0047--\0054,\ % %% \0056, \0057, \0072, \0073, \0075, \0100,\par % \0133, \0135, and \0140 are generated, as well as code |spanish_shriek| % (for a Spanish exclamation point) if that code value is known. cmchar "Exclamation point"; beginchar("!",5u#+width_adj#,asc_height#,0); italcorr asc_height#*slant-2u#-.5width_adj#+.5dot_size#; adjust_fit(0,0); pickup tiny.nib; pos3(dot_size,0); pos4(dot_size,90); lft x3l=hround(.5w-.5dot_size); bot y4l=0; z3=z4; dot(3,4); % dot numeric bot_width; bot_width=if hefty:max(hround .8dot_size,fine.breadth) else: hair fi; pickup fine.nib; pos1(dot_size,0); pos2(bot_width,0); x1=x2=x3; bot y2=.25[top y4r,x_height]+1; if square_dots: top y1=h; filldraw stroke z1e--z2e; % stem else: top z0=(x1,h+o); y1+.5dot_size=h+o; filldraw z1r...z0...z1l---z2l--z2r---cycle; fi % stem and bulb penlabels(0,1,2,3,4); endchar; %iff known spanish_shriek: cmchar "Spanish open exclamation point"; %beginchar(spanish_shriek,5u#+width_adj#,asc_height#-desc_depth#,desc_depth#); %italcorr h#*slant-2u#-.5width_adj#+.5dot_size#; %adjust_fit(0,0); %pickup tiny.nib; pos3(dot_size,0); pos4(dot_size,90); %lft x3l=hround(.5w-.5dot_size); top y4r=h; z3=z4; dot(3,4); % dot %numeric top_width; %top_width=if hefty:max(hround .8dot_size,fine.breadth) else: hair fi; %pickup fine.nib; pos1(dot_size,0); pos2(top_width,0); %x1=x2=x3; top y2=.25[bot y4l,h-x_height]-1; %if square_dots: bot y1=-d; % filldraw stroke z1e--z2e; % stem %else: bot z0=(x1,-d-o); y1-.5dot_size=-d-o; % filldraw z1l...z0...z1r---z2r--z2l---cycle; fi % stem and bulb %penlabels(0,1,2,3,4); endchar; cmchar "Hash mark (number sign)"; if monospace: compute_spread(.6x_height#,.7x_height#); else: compute_spread(.45x_height#,.55x_height#); fi beginchar("#",15u#,asc_height#,asc_depth#); italcorr (math_axis#+.5(spread#+rule_thickness#))*slant-.5u#; adjust_fit(0,0); pickup rule.nib; lft x1=hround u-eps; x3=x1; x2=x4=w-x1; y1=y2; y3=y4; y1-y3=spread; .5[y1,y3]=math_axis; draw z1--z2; % upper bar draw z3--z4; % lower bar lft x6=hround 3u; rt x7=hround(w-3u); x5-x6=x7-x8; x8=good.x if monospace: .6 else: .5 fi\\w; top y5=top y7=h+eps; bot y6=bot y8=-d-eps; y15=y1; z15=whatever[z5,z6]; y36=y3; z36=whatever[z5,z6]; y27=y2; z27=whatever[z7,z8]; y48=y4; z48=whatever[z7,z8]; draw z5--if x5>x6+1:(good.x(x15+.5),y1)--(good.x(x15-.5),y1) --(good.x(x36+.5),y3)--(good.x(x36-.5),y3)--fi\\z6; % left diagonal draw z7--if x7>x8+1:(good.x(x27+.5),y2)--(good.x(x27-.5),y2) --(good.x(x48+.5),y4)--(good.x(x48-.5),y4)--fi\\z8; % right diagonal labels(1,2,3,4,5,6,7,8,15,27,36,48); endchar; cmchar "Per cent sign"; beginchar("%",9u#+max(6u#,2fudge*(hair#+stem#)), body_height#,body_height#-asc_height#); italcorr if hefty: .4asc_height#*slant-.5u# else: h#*slant-u# fi; adjust_fit(0,0); pickup fine.nib; numeric left_curve,right_curve; left_curve=hround 5/6[fudged.hair,fudged.stem]; right_curve=max(fine.breadth,hround(fudged.hair if hefty:-2stem_corr fi)); pos1(vair,90); pos2(left_curve,180); pos3(vair,270); pos4(right_curve,360); top y1r=h; lft x2r=hround u; rt x4r=hround(.5w-1.5u); bot y3r=floor(if monospace: .7 else: .5 fi\\ asc_height); x1=x3=.5[x2,x4]; y2=y4=.5[y1,y3]; filldraw stroke pulled_super_arc.e(1,2)(superpull) & pulled_super_arc.e(2,3)(superpull); % left half of upper bowl filldraw stroke super_arc.e(3,4) & super_arc.e(4,1); % right half of upper bowl pos5(vair,90); pos6(left_curve,180); pos7(vair,270); pos8(right_curve,360); bot y7r=-d; rt x8r=hround(w-u); lft x6r=hround(.5w+1.5u); top y5r=vround(if monospace: .3 else: .5 fi\\ asc_height); x5=x7=.5[x6,x8]; y6=y8=.5[y5,y7]; filldraw stroke pulled_super_arc.e(5,6)(superpull) & pulled_super_arc.e(6,7)(superpull); % left half of lower bowl filldraw stroke super_arc.e(7,8) & super_arc.e(8,5); % right half of lower bowl pickup rule.nib; top y9=h; bot y10=-d; if hefty: x9=good.x(x5-eps); x10=good.x(x1+eps); draw z9--z10; % diagonal else: rt x9=hround(w-2.5u); lft x10=hround 2.5u; draw z9--z10; % diagonal pickup fine.nib; pos9(rule_thickness,angle(z9-z10)+90); pos11(vair,angle(z1r-z4r)-90); pos12(vair,angle(z9-z10)+90); path p; p=super_arc.r(1,4); z11r=point 2/3 of p; z12r=z9r; filldraw stroke z11e{direction 2/3 of p}...{z9-z10}z12e; fi % link penlabels(1,2,3,4,5,6,7,8,9,10,11,12); endchar; cmchar "Apostrophe"; beginchar("'",5u#,asc_height#,0); italcorr asc_height#*slant+.5dot_size#-2u#; adjust_fit(0,0); x1-.5dot_size=hround(.5w-.5dot_size); y1+.5dot_size=h; if monospace: comma(1,a,dot_size,.28u,vround 1.5comma_depth); % large comma else: comma(1,a,dot_size,.25u,comma_depth); fi % comma with increased jut penlabels(1); endchar; cmchar