%% %% This is file `cpcpunct.mf', %% generated with the docstrip utility. %% %% The original source files were: %% %% pacioli.dtx (with options: `punct') %% %% Copyright 1999 Peter R. Wilson %% %% This program is provided under the terms of the %% LaTeX Project Public License distributed from CTAN %% archives in directory macros/latex/base/lppl.txt. %% %% Author: Peter Wilson (CUA and NIST) %% now at: peter.r.wilson@boeing.com %% 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; 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 "Left parenthesis"; beginchar("(",7u# if monospace: -u# fi,body_height#,paren_depth#); italcorr body_height#*slant-.5u#; adjust_fit(0,0); pickup fine.nib; pos1(vair,0); pos2(.75[hair,stem],0); pos3(vair,0); rt x1r=rt x3r=hround(w-u); lft x2l=hround(x1-4u if monospace: +4/3u fi); top y1=h; y2=.5[y1,y3]=math_axis; filldraw stroke z1e{3(x2e-x1e),y2-y1}...z2e ...{3(x3e-x2e),y3-y2}z3e; % arc penlabels(1,2,3); endchar; cmchar "Right parenthesis"; beginchar(")",7u# if monospace: -u# fi,body_height#,paren_depth#); italcorr math_axis#*slant-.5u#; adjust_fit(0,0); pickup fine.nib; pos1(vair,0); pos2(.75[hair,stem],0); pos3(vair,0); lft x1l=lft x3l=hround u; rt x2r=hround(x1+4u if monospace: -4/3u fi); top y1=h; y2=.5[y1,y3]=math_axis; filldraw stroke z1e{3(x2e-x1e),y2-y1}...z2e ...{3(x3e-x2e),y3-y2}z3e; % arc penlabels(1,2,3); endchar; cmchar "Comma"; numeric dot_diam#; dot_diam#=if monospace: 5/4 fi\\ dot_size#; define_whole_blacker_pixels(dot_diam); beginchar(",",5u#,dot_diam#,comma_depth#); adjust_fit(0,0); x1-.5dot_diam=hround(.5w-.5dot_diam); y1-.5dot_diam=0; comma(1,a,dot_diam,.2u,comma_depth); % dot and tail penlabels(1); endchar; cmchar "Period"; numeric dot_diam#; dot_diam#=if monospace: 5/4 fi\\ dot_size#; define_whole_blacker_pixels(dot_diam); beginchar(".",5u#,dot_diam#,0); adjust_fit(0,0); pickup fine.nib; pos1(dot_diam,0); pos2(dot_diam,90); lft x1l=hround(.5w-.5dot_diam); bot y2l=0; z1=z2; dot(1,2); % dot penlabels(1,2); endchar; cmchar "Virgule (slash)"; beginchar("/",9u#,body_height#,paren_depth#); italcorr body_height#*slant-.5u#; adjust_fit(0,0); pickup rule.nib; rt x1=hround(w-u)+eps; top y1=h+eps; lft x2=hround u-eps; bot y2=-d-eps; draw z1--z2; % diagonal penlabels(1,2); endchar; cmchar "Colon"; numeric dot_diam#; dot_diam#=if monospace: 5/4 fi\\ dot_size#; define_whole_blacker_pixels(dot_diam); beginchar(":",5u#,x_height#,0); italcorr x_height#*slant+.5dot_diam#-2u#; adjust_fit(0,0); pickup fine.nib; pos1(dot_diam,0); pos2(dot_diam,90); lft x1l=hround(.5w-.5dot_diam); top y2r=h; z1=z2; dot(1,2); % upper dot pos3(dot_diam,0); pos4(dot_diam,90); x3=x1; bot y4l=0; z3=z4; dot(3,4); % lower dot penlabels(1,2,3,4); endchar; cmchar "Semicolon"; numeric dot_diam#; dot_diam#=if monospace: 5/4 fi\\ dot_size#; define_whole_blacker_pixels(dot_diam); beginchar(";",5u#,x_height#,comma_depth#); italcorr x_height#*slant+.5dot_diam#-2u#; adjust_fit(0,0); pickup fine.nib; pos1(dot_diam,0); pos2(dot_diam,90); lft x1l=hround(.5w-.5dot_diam); top y2r=h; z1=z2; dot(1,2); % upper dot x3-.5dot_diam=hround(.5w-.5dot_diam); y3-.5dot_diam=0; comma(3,a,dot_diam,.05u,comma_depth); % lower dot and tail penlabels(1,2,3); endchar; cmchar "Left bracket"; numeric wd#; wd#=max(5u#,4.5u#+.5if hefty:stem# else:rule_thickness# fi); beginchar("[",wd#,body_height#,paren_depth#); italcorr body_height#*slant; adjust_fit(0,0); numeric top_thickness,side_thickness; if hefty: top_thickness=vair; side_thickness=max(crisp.breadth,stem-2stem_corr); else: top_thickness=side_thickness=rule_thickness; fi; pickup crisp.nib; pos1(side_thickness,0); pos2(side_thickness,0); top y1=h; bot y2=-d; lft x1l=lft x2l=hround(2.5u-.5side_thickness)-1-eps; filldraw stroke z1e--z2e; % stem pos3(top_thickness,90); pos4(top_thickness,90); pos5(top_thickness,90); pos6(top_thickness,90); x3=x5=x1l; rt x4=rt x6=ceiling(w-.4u)+eps; y3r=y4r=y1; y5l=y6l=y2; filldraw stroke z3e--z4e; % upper bar filldraw stroke z5e--z6e; % lower bar penlabels(1,2,3,4,5,6); endchar; cmchar "Right bracket"; numeric wd#; wd#=max(5u#,4.5u#+.5if hefty:stem# else:rule_thickness# fi); beginchar("]",wd#,body_height#,paren_depth#); italcorr body_height#*slant-2u#+.5if hefty:stem# else:rule_thickness# fi; adjust_fit(0,0); numeric top_thickness,side_thickness; if hefty: top_thickness=vair; side_thickness=max(crisp.breadth,stem-2stem_corr); else: top_thickness=side_thickness=rule_thickness; fi; pickup crisp.nib; pos1(side_thickness,0); pos2(side_thickness,0); top y1=h; bot y2=-d; rt x1r=rt x2r=hround(w-2.5u+.5side_thickness)+1+eps; filldraw stroke z1e--z2e; % stem pos3(top_thickness,90); pos4(top_thickness,90); pos5(top_thickness,90); pos6(top_thickness,90); x3=x5=x1r; lft x4=lft x6=floor .4u-eps; y3r=y4r=y1; y5l=y6l=y2; filldraw stroke z3e--z4e; % upper bar filldraw stroke z5e--z6e; % lower bar penlabels(1,2,3,4,5,6); endchar; cmchar "Reverse 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-comma_depth; if monospace: ammoc(1,a,dot_size,.28u,vround 1.5comma_depth); % large ammoc else: ammoc(1,a,dot_size,.25u,comma_depth); fi % normal ammoc penlabels(1); endchar;