home *** CD-ROM | disk | FTP | other *** search
/ Fresh Fish 4 / FreshFish_May-June1994.bin / useful / dist / text / tex / pastex / mf / inputs / punct.mf < prev    next >
Text File  |  1992-09-27  |  13KB  |  308 lines
  1. % This is PUNCT.MF in text format, as of Mar 31, 1986.
  2. % This file contains punctuation marks common to roman and italic styles.
  3.  
  4. % Codes \0041, \0043, \0045, \0047--\0054,\ %
  5. %% \0056, \0057, \0072, \0073, \0075, \0100,\par
  6. % \0133, \0135, and \0140 are generated, as well as code |spanish_shriek|
  7. % (for a Spanish exclamation point) if that code value is known.
  8.  
  9. % Modified by Art Ogawa:
  10. %  Apostrophe and Reverse apostrophe modified (for monospace version)
  11. %   to be more appropriate to setting Mathematics console sessions.
  12. %   The left quote or reverse apostrophe is Mathematica's context mark.
  13. %   The Apostrophe is Mathematica's prime, indicating differentiation.
  14. %   Both were modified to look more like the accent grave and acute, but larger
  15.  
  16. cmchar "Exclamation point";
  17. beginchar("!",5u#+width_adj#,asc_height#,0);
  18. italcorr asc_height#*slant-2u#-.5width_adj#+.5dot_size#;
  19. adjust_fit(0,0);
  20. pickup tiny.nib; pos3(dot_size,0); pos4(dot_size,90);
  21. lft x3l=hround(.5w-.5dot_size); bot y4l=0; z3=z4; dot(3,4);  % dot
  22. numeric bot_width;
  23. bot_width=if hefty:max(hround .8dot_size,fine.breadth) else: hair fi;
  24. pickup fine.nib; pos1(dot_size,0); pos2(bot_width,0);
  25. x1=x2=x3; bot y2=.25[top y4r,x_height]+1;
  26. if square_dots: top y1=h;
  27.  filldraw stroke z1e--z2e;  % stem
  28. else: top z0=(x1,h+o); y1+.5dot_size=h+o;
  29.  filldraw z1r...z0...z1l---z2l--z2r---cycle; fi  % stem and bulb
  30. penlabels(0,1,2,3,4); endchar;
  31.  
  32. iff known spanish_shriek: cmchar "Spanish open exclamation point";
  33. beginchar(spanish_shriek,5u#+width_adj#,asc_height#-desc_depth#,desc_depth#);
  34. italcorr h#*slant-2u#-.5width_adj#+.5dot_size#;
  35. adjust_fit(0,0);
  36. pickup tiny.nib; pos3(dot_size,0); pos4(dot_size,90);
  37. lft x3l=hround(.5w-.5dot_size); top y4r=h; z3=z4; dot(3,4);  % dot
  38. numeric top_width;
  39. top_width=if hefty:max(hround .8dot_size,fine.breadth) else: hair fi;
  40. pickup fine.nib; pos1(dot_size,0); pos2(top_width,0);
  41. x1=x2=x3; top y2=.25[bot y4l,h-x_height]-1;
  42. if square_dots: bot y1=-d;
  43.  filldraw stroke z1e--z2e;  % stem
  44. else: bot z0=(x1,-d-o); y1-.5dot_size=-d-o;
  45.  filldraw z1l...z0...z1r---z2r--z2l---cycle; fi  % stem and bulb
  46. penlabels(0,1,2,3,4); endchar;
  47.  
  48. cmchar "Hash mark (number sign)";
  49. if monospace: compute_spread(.6x_height#,.7x_height#);
  50. else: compute_spread(.45x_height#,.55x_height#); fi
  51. beginchar("#",15u#,asc_height#,asc_depth#);
  52. italcorr (math_axis#+.5(spread#+rule_thickness#))*slant-.5u#;
  53. adjust_fit(0,0);
  54. pickup rule.nib; lft x1=hround u-eps; x3=x1; x2=x4=w-x1;
  55. y1=y2; y3=y4; y1-y3=spread; .5[y1,y3]=math_axis;
  56. draw z1--z2;  % upper bar
  57. draw z3--z4;  % lower bar
  58. lft x6=hround 3u; rt x7=hround(w-3u); x5-x6=x7-x8;
  59. x8=good.x if monospace: .6 else: .5 fi\\w;
  60. top y5=top y7=h+eps; bot y6=bot y8=-d-eps;
  61. y15=y1; z15=whatever[z5,z6]; y36=y3; z36=whatever[z5,z6];
  62. y27=y2; z27=whatever[z7,z8]; y48=y4; z48=whatever[z7,z8];
  63. draw z5--if x5>x6+1:(good.x(x15+.5),y1)--(good.x(x15-.5),y1)
  64.  --(good.x(x36+.5),y3)--(good.x(x36-.5),y3)--fi\\z6;  % left diagonal
  65. draw z7--if x7>x8+1:(good.x(x27+.5),y2)--(good.x(x27-.5),y2)
  66.  --(good.x(x48+.5),y4)--(good.x(x48-.5),y4)--fi\\z8;  % right diagonal
  67. labels(1,2,3,4,5,6,7,8,15,27,36,48); endchar;
  68.  
  69. cmchar "Per cent sign";
  70. beginchar("%",9u#+max(6u#,2fudge*(hair#+stem#)),
  71.   body_height#,body_height#-asc_height#);
  72. italcorr if hefty: .4asc_height#*slant-.5u# else: h#*slant-u# fi;
  73. adjust_fit(0,0); pickup fine.nib;
  74. numeric left_curve,right_curve;
  75. left_curve=hround 5/6[fudged.hair,fudged.stem];
  76. right_curve=max(fine.breadth,hround(fudged.hair if hefty:-2stem_corr fi));
  77. pos1(vair,90); pos2(left_curve,180); pos3(vair,270); pos4(right_curve,360);
  78. top y1r=h; lft x2r=hround u; rt x4r=hround(.5w-1.5u);
  79. bot y3r=floor(if monospace: .7 else: .5 fi\\ asc_height);
  80. x1=x3=.5[x2,x4]; y2=y4=.5[y1,y3];
  81. filldraw stroke pulled_super_arc.e(1,2)(superpull)
  82.  & pulled_super_arc.e(2,3)(superpull);  % left half of upper bowl
  83. filldraw stroke super_arc.e(3,4) & super_arc.e(4,1); % right half of upper bowl
  84. pos5(vair,90); pos6(left_curve,180); pos7(vair,270); pos8(right_curve,360);
  85. bot y7r=-d; rt x8r=hround(w-u); lft x6r=hround(.5w+1.5u);
  86. top y5r=vround(if monospace: .3 else: .5 fi\\ asc_height);
  87. x5=x7=.5[x6,x8]; y6=y8=.5[y5,y7];
  88. filldraw stroke pulled_super_arc.e(5,6)(superpull)
  89.  & pulled_super_arc.e(6,7)(superpull);  % left half of lower bowl
  90. filldraw stroke super_arc.e(7,8) & super_arc.e(8,5); % right half of lower bowl
  91. pickup rule.nib; top y9=h; bot y10=-d;
  92. if hefty: x9=good.x(x5-eps); x10=good.x(x1+eps);
  93.  draw z9--z10;  % diagonal
  94. else: rt x9=hround(w-2.5u); lft x10=hround 2.5u; draw z9--z10;  % diagonal
  95.  pickup fine.nib; pos9(rule_thickness,angle(z9-z10)+90);
  96.  pos11(vair,angle(z1r-z4r)-90); pos12(vair,angle(z9-z10)+90);
  97.  path p; p=super_arc.r(1,4); z11r=point 2/3 of p; z12r=z9r;
  98.  filldraw stroke z11e{direction 2/3 of p}...{z9-z10}z12e; fi  % link
  99. penlabels(1,2,3,4,5,6,7,8,9,10,11,12); endchar;
  100.  
  101. cmchar "Apostrophe";
  102. beginchar("'",5u#,asc_height#,0);
  103. italcorr asc_height#*slant+.5dot_size#-2u#;
  104. adjust_fit(0,0);
  105. if monospace: 
  106.  pickup crisp.nib; x1+.5stem=hround(w-1u); x2=2/3[x1,w-x1];
  107.  y1+.5stem=h+eps; y2=h-comma_depth;
  108.  numeric theta; theta=angle(z2-z1)+90;
  109.  pos1(stem,theta); pos2(hair,theta);
  110.  filldraw circ_stroke z1e--z2e;  % diagonal
  111.  else: 
  112.  x1-.5dot_size=hround(.5w-.5dot_size); y1+.5dot_size=h;
  113.  comma(1,a,dot_size,.25u,comma_depth); % comma with increased jut
  114.  fi
  115. penlabels(1); endchar;
  116.  
  117. cmchar "Left parenthesis";
  118. beginchar("(",7u# if monospace: -u# fi,body_height#,paren_depth#);
  119. italcorr body_height#*slant-.5u#;
  120. adjust_fit(0,0); pickup fine.nib;
  121. pos1(vair,0); pos2(.75[hair,stem],0); pos3(vair,0);
  122. rt x1r=rt x3r=hround(w-u); lft x2l=hround(x1-4u if monospace: +4/3u fi);
  123. top y1=h; y2=.5[y1,y3]=math_axis;
  124. filldraw stroke z1e{3(x2e-x1e),y2-y1}...z2e
  125.  ...{3(x3e-x2e),y3-y2}z3e;  % arc
  126. penlabels(1,2,3); endchar;
  127.  
  128. cmchar "Right parenthesis";
  129. beginchar(")",7u# if monospace: -u# fi,body_height#,paren_depth#);
  130. italcorr math_axis#*slant-.5u#;
  131. adjust_fit(0,0); pickup fine.nib;
  132. pos1(vair,0); pos2(.75[hair,stem],0); pos3(vair,0);
  133. lft x1l=lft x3l=hround u; rt x2r=hround(x1+4u if monospace: -4/3u fi);
  134. top y1=h; y2=.5[y1,y3]=math_axis;
  135. filldraw stroke z1e{3(x2e-x1e),y2-y1}...z2e
  136.  ...{3(x3e-x2e),y3-y2}z3e;  % arc
  137. penlabels(1,2,3); endchar;
  138.  
  139. cmchar "Asterisk";
  140. beginchar("*",9u#,
  141.   if low_asterisk:math_axis#+.5x_height# else: body_height# fi,0);
  142. italcorr h#*slant-.75u#;
  143. adjust_fit(0,0);
  144. numeric ast_flare; ast_flare=hround .7[thin_join,stem];
  145. x0=.5w; y0=h-.5x_height;
  146. for d=-150 step 60 until 150: z[d]=z0+.5dir d xscaled 7.5u yscaled x_height;
  147.  numeric theta; theta=angle(z[d]-z0);
  148.  fill z0+.5(0,-thin_join)rotated theta
  149.   ---z[d]+.5(-ast_flare,-ast_flare)rotated theta
  150.   ..z[d]..z[d]+.5(-ast_flare,ast_flare)rotated theta
  151.   ---z0+.5(0,thin_join)rotated theta--cycle; endfor  % diagonal at angle |d|
  152. labels(0,[-150],[-90],[-30],30,90,150); endchar;
  153.  
  154. cmchar "Plus sign";
  155. beginarithchar("+"); pickup rule.nib;
  156. x1=x2=good.x .5w; top y1=h+eps; .5[y1,y2]=math_axis;
  157. lft x3=hround u-eps; x4=w-x3; y3=y4=math_axis;
  158. draw z1--z2;  % stem
  159. draw z3--z4;  % crossbar
  160. labels(1,2,3,4); endchar;
  161.  
  162. cmchar "Comma";
  163. numeric dot_diam#; dot_diam#=if monospace: 5/4 fi\\ dot_size#;
  164. define_whole_blacker_pixels(dot_diam);
  165. beginchar(",",5u#,dot_diam#,comma_depth#);
  166. adjust_fit(0,0);
  167. x1-.5dot_diam=hround(.5w-.5dot_diam); y1-.5dot_diam=0;
  168. comma(1,a,dot_diam,.2u,comma_depth);  % dot and tail
  169. penlabels(1); endchar;
  170.  
  171. cmchar "Period";
  172. numeric dot_diam#; dot_diam#=if monospace: 5/4 fi\\ dot_size#;
  173. define_whole_blacker_pixels(dot_diam);
  174. beginchar(".",5u#,dot_diam#,0);
  175. adjust_fit(0,0); pickup fine.nib;
  176. pos1(dot_diam,0); pos2(dot_diam,90);
  177. lft x1l=hround(.5w-.5dot_diam); bot y2l=0; z1=z2; dot(1,2);  % dot
  178. penlabels(1,2); endchar;
  179.  
  180. cmchar "Virgule (slash)";
  181. beginchar("/",9u#,body_height#,paren_depth#);
  182. italcorr body_height#*slant-.5u#;
  183. adjust_fit(0,0); pickup rule.nib;
  184. rt x1=hround(w-u)+eps; top y1=h+eps;
  185. lft x2=hround u-eps; bot y2=-d-eps;
  186. draw z1--z2;  % diagonal
  187. penlabels(1,2); endchar;
  188.  
  189. cmchar "Colon";
  190. numeric dot_diam#; dot_diam#=if monospace: 5/4 fi\\ dot_size#;
  191. define_whole_blacker_pixels(dot_diam);
  192. beginchar(":",5u#,x_height#,0);
  193. italcorr x_height#*slant+.5dot_diam#-2u#;
  194. adjust_fit(0,0); pickup fine.nib;
  195. pos1(dot_diam,0); pos2(dot_diam,90);
  196. lft x1l=hround(.5w-.5dot_diam);