home *** CD-ROM | disk | FTP | other *** search
/ Fresh Fish 8 / FreshFishVol8-CD2.bin / bbs / text / pastex-1.3-7of9.lha / PasTeX / MF / inputs / dc / dxilwest.mf < prev    next >
Text File  |  1994-04-12  |  29KB  |  764 lines
  1. % This is DXILWEST.MF in text format, as of March 24, 1992
  2. %
  3. % DC fonts Version 1.1 (prerelease of EC fonts)
  4. %
  5. %          [ heavily borrowed from the Computer Modern Roman family of
  6. %            fonts by D. E. Knuth ]
  7. %
  8. % Content:
  9. %
  10. %   italic lowercase accented letters ("western part")
  11. %
  12. %    oct"340" .. oct"377"
  13. %
  14.  
  15.  
  16.  
  17. dcchar "Italic letter gravis a";
  18. beginchar(oct"340",9u#,x_height#+acc_height#,0);
  19. italcorr 1/3x_height#*slant+.5hair#+.5u#;
  20. adjust_fit(0,0); pickup fine.nib;
  21. pos0(hair,0); pos1(vair,90); pos2(curve,180); pos3(vair,270);
  22. pos4(stem,0); x4=x0; y4+.5stem=vround .98x_height;
  23. x1=x3=.5[x0,x2]; lft x2r=hround(1.5u-.5curve);
  24. rt x4r=hround(w-2.5u+.5stem);
  25. top y1r=x_height+oo; bot y3r=-oo; y0=y2=.5[y1,y3];
  26. filldraw stroke super_arc.e(0,1) & pulled_arc.e(1,2)
  27.  & pulled_arc.e(2,3) & super_arc.e(3,0);  % bowl
  28. x5=x4; x7=w; hook_out(5,6,7);  % closing hook
  29. filldraw circ_stroke z4e--z5e;  % stem
  30. math_fit(-.3x_height#*slant+.5curve#-u#,ic#);
  31. % the accent
  32. lowercase_gravis(0,0,8,9);
  33. penlabels(0,1,2,3,4,5,6,7,8,9); endchar;
  34.  
  35. dcchar "Italic letter acute a";
  36. beginchar(oct"341",9u#,x_height#+acc_height#,0);
  37. italcorr 1/3x_height#*slant+.5hair#+.5u#;
  38. adjust_fit(0,0); pickup fine.nib;
  39. pos0(hair,0); pos1(vair,90); pos2(curve,180); pos3(vair,270);
  40. pos4(stem,0); x4=x0; y4+.5stem=vround .98x_height;
  41. x1=x3=.5[x0,x2]; lft x2r=hround(1.5u-.5curve);
  42. rt x4r=hround(w-2.5u+.5stem);
  43. top y1r=x_height+oo; bot y3r=-oo; y0=y2=.5[y1,y3];
  44. filldraw stroke super_arc.e(0,1) & pulled_arc.e(1,2)
  45.  & pulled_arc.e(2,3) & super_arc.e(3,0);  % bowl
  46. x5=x4; x7=w; hook_out(5,6,7);  % closing hook
  47. filldraw circ_stroke z4e--z5e;  % stem
  48. math_fit(-.3x_height#*slant+.5curve#-u#,ic#);
  49. % the accent
  50. lowercase_acute(-u,0,8,9);
  51. penlabels(0,1,2,3,4,5,6,7,8,9); endchar;
  52.  
  53.  
  54. dcchar "Italic letter circumflex a";
  55. beginchar(oct"342",9u#,x_height#+acc_height#,0);
  56. italcorr 1/3x_height#*slant+.5hair#+.5u#;
  57. adjust_fit(0,0); pickup fine.nib;
  58. pos0(hair,0); pos1(vair,90); pos2(curve,180); pos3(vair,270);
  59. pos4(stem,0); x4=x0; y4+.5stem=vround .98x_height;
  60. x1=x3=.5[x0,x2]; lft x2r=hround(1.5u-.5curve);
  61. rt x4r=hround(w-2.5u+.5stem);
  62. top y1r=x_height+oo; bot y3r=-oo; y0=y2=.5[y1,y3];
  63. filldraw stroke super_arc.e(0,1) & pulled_arc.e(1,2)
  64.  & pulled_arc.e(2,3) & super_arc.e(3,0);  % bowl
  65. x5=x4; x7=w; hook_out(5,6,7);  % closing hook
  66. filldraw circ_stroke z4e--z5e;  % stem
  67. math_fit(-.3x_height#*slant+.5curve#-u#,ic#);
  68. % the accent
  69. lowercase_hat(.5w,0,8,9,10,11,12);
  70. penlabels(0,1,2,3,4,5,6,7,8,9,10,11,12); endchar;
  71.  
  72. dcchar "Italic letter tilde a";
  73. beginchar(oct"343",9u#,x_height#+acc_height#,0);
  74. italcorr 1/3x_height#*slant+.5hair#+.5u#;
  75. adjust_fit(0,0); pickup fine.nib;
  76. pos0(hair,0); pos1(vair,90); pos2(curve,180); pos3(vair,270);
  77. pos4(stem,0); x4=x0; y4+.5stem=vround .98x_height;
  78. x1=x3=.5[x0,x2]; lft x2r=hround(1.5u-.5curve);
  79. rt x4r=hround(w-2.5u+.5stem);
  80. top y1r=x_height+oo; bot y3r=-oo; y0=y2=.5[y1,y3];
  81. filldraw stroke super_arc.e(0,1) & pulled_arc.e(1,2)
  82.  & pulled_arc.e(2,3) & super_arc.e(3,0);  % bowl
  83. x5=x4; x7=w; hook_out(5,6,7);  % closing hook
  84. filldraw circ_stroke z4e--z5e;  % stem
  85. math_fit(-.3x_height#*slant+.5curve#-u#,ic#);
  86. % the accent
  87. lowercase_tilde(-.5u,-1/6acc_height,8,9,10,11,12);
  88. penlabels(0,1,2,3,4,5,6,7,8,9,10,11,12); endchar;
  89. %
  90. %
  91. %
  92.  
  93.  
  94. dcchar "Italic letter umlaut a";
  95. beginchar(oct"344",9u#,x_height#+acc_height#,0);
  96. italcorr 1/3x_height#*slant+.5hair#+.5u#;
  97. adjust_fit(0,0); pickup fine.nib;
  98. pos0(hair,0); pos1(vair,90); pos2(curve,180); pos3(vair,270);
  99. pos4(stem,0); x4=x0; y4+.5stem=vround .98x_height;
  100. x1=x3=.5[x0,x2]; lft x2r=hround(1.5u-.5curve);
  101. rt x4r=hround(w-2.5u+.5stem);
  102. top y1r=x_height+oo; bot y3r=-oo; y0=y2=.5[y1,y3];
  103. filldraw stroke super_arc.e(0,1) & pulled_arc.e(1,2)
  104.  & pulled_arc.e(2,3) & super_arc.e(3,0);  % bowl
  105. x5=x4; x7=w; hook_out(5,6,7);  % closing hook
  106. filldraw circ_stroke z4e--z5e;  % stem
  107. math_fit(-.3x_height#*slant+.5curve#-u#,ic#);
  108. % the accent
  109. lowercase_umlaut(0,0,8,9,10,11);
  110. penlabels(0,1,2,3,4,5,6,7,8,9,10,11); endchar;
  111.  
  112. dcchar "Italic letter circle a";
  113. beginchar(oct"345",9u#,x_height#+acc_height#,0);
  114. italcorr 1/3x_height#*slant+.5hair#+.5u#;
  115. adjust_fit(0,0); pickup fine.nib;
  116. pos0(hair,0); pos1(vair,90); pos2(curve,180); pos3(vair,270);
  117. pos4(stem,0); x4=x0; y4+.5stem=vround .98x_height;
  118. x1=x3=.5[x0,x2]; lft x2r=hround(1.5u-.5curve);
  119. rt x4r=hround(w-2.5u+.5stem);
  120. top y1r=x_height+oo; bot y3r=-oo; y0=y2=.5[y1,y3];
  121. filldraw stroke super_arc.e(0,1) & pulled_arc.e(1,2)
  122.  & pulled_arc.e(2,3) & super_arc.e(3,0);  % bowl
  123. x5=x4; x7=w; hook_out(5,6,7);  % closing hook
  124. filldraw circ_stroke z4e--z5e;  % stem
  125. math_fit(-.3x_height#*slant+.5curve#-u#,ic#);
  126. % the accent
  127. lowercase_circle(x1,(1/3[x_height,h]+apex_o),8,9,10,11);
  128. penlabels(0,1,2,3,4,5,6,7,8,9,10,11); endchar;
  129.  
  130. dcchar "Italic ligature ae";
  131. beginchar(oct"346",13u#,x_height#,0);
  132. italcorr max(1/3x_height#*slant,x_height#*slant+.5(.2[hair#,stem#])-u#);
  133. adjust_fit(if monospace:-u#,-u# else: 0,0 fi); pickup fine.nib;
  134. forsuffixes $=hair,stem: shaved$:=mfudged$; save $; $=shaved$; endfor
  135. numeric heavy_hair; heavy_hair=hround .2[hair,stem];
  136. numeric light_stem; light_stem=hround .75[hair,stem];
  137. pos0(vair,-90); pos1(heavy_hair,0); pos2(vair,90);
  138. pos3(light_stem,180); pos4(vair,270); pos5(hair,320);
  139. x0=rt x3l; rt x1r=hround(w-1.5u+.5heavy_hair); x2=x4=.5(w+6u);
  140. lft x3r=hround(.5w-.5light_stem); x5r=good.x(w-.5u); x6=x5;
  141. y0=y3=y6=bar_height; y1=.5[y0,y2]; top y2r=h+oo; bot y4r=-oo;
  142. top y5l=vround(.5bar_height+.5); path p; p=z4{right}..z5..z6;
  143. filldraw stroke z0e{right}...z1e{up}...pulled_arc.e(2,3)
  144.  & pulled_arc.e(3,4)...{direction 1 of p}z5e;  % arc of e
  145. pos7(light_stem,0); pos8(light_stem,0);
  146. x7=x8=x3; y7+.5light_stem=h+oo; y8-.5light_stem=-oo;
  147. pos7'(vair,-225); pos11(curve,-180); z7'=z7;
  148. pos12(vair,-90); pos3'(hair,0); z3'=z3;
  149. lft x11r=hround(1.5u-.5curve); x12=.5[x11,x3];
  150. y11=.3[y12,y7]; bot y12r=-oo;
  151. filldraw stroke z7'e{3(x11-x7),y11-y7}...pulled_arc.e(11,12)
  152.  & pulled_arc.e(12,3');  %  bowl of a
  153. filldraw z7l---z8l..z8r---z7r..cycle;  % stem
  154. penlabels(0,1,2,3,4,5,6,7,8,11,12); endchar;
  155.  
  156.  
  157. dcchar "Italic letter cedilla c";
  158. beginchar(oct"347",8u#,x_height#,0.875desc_depth#);
  159. italcorr if math_fitting:1/3x_height#*slant else:x_height#*slant-u# fi;
  160. adjust_fit(0,0); pickup fine.nib;
  161. pos0(flare,0); pos1(hair,0); pos2(vair,90);
  162. pos3(curve,180); pos4(vair,270); pos5(hair,320);
  163. x2=x4=.5(w+u); rt x1r=max(rt x2,hround(w-u))+eps;
  164. lft x3r=hround(1.5u-.5curve); x5r=good.x(w-eps); x6=x5;
  165. y1=.5[bar_height,h]; top y2r=h+oo; bulb(2,1,0);  % bulb
  166. bot y4r=-oo; y3=.5[y2,y4]; top y5l=vround .5bar_height; y6=bar_height;
  167. path p; p=z4{right}..z5..z6;
  168. filldraw stroke pulled_arc.e(2,3)
  169.  & pulled_arc.e(3,4)...{direction 1 of p}z5e;  % arc
  170. math_fit(-.3x_height#*slant+.5curve#-u#,ic#);
  171. % the accent
  172. lowercase_cedilla(x4,0,7,8,9,10,11);
  173. penlabels(0,1,2,3,4,5,6,7,8,9,10,11); endchar;
  174.  
  175. dcchar "Italic letter gravis e";
  176. beginchar(oct"350",8u#,x_height#+acc_height#,0);
  177. italcorr max(1/3x_height#*slant,x_height#*slant+.5(.2[hair#,stem#])-u#);
  178. adjust_fit(0,0); pickup fine.nib;
  179. numeric heavy_hair; heavy_hair=hround .2[hair,stem];
  180. pos0(vair,-90); pos1(heavy_hair,0); pos2(vair,90);
  181. pos3(curve,180); pos4(vair,270); pos5(hair,320);
  182. x0=rt x3l; rt x1r=hround(w-1.5u+.5heavy_hair); x2=x4=.5(w+u);
  183. lft x3r=hround(1.5u-.5curve); x5r=good.x(w-eps); x6=x5;
  184. y0=y3=y6=bar_height; y1=.5[y0,y2]; top y2r=x_height+oo; bot y4r=-oo;
  185. top y5l=vround .5bar_height; path p; p=z4{right}..z5..z6;
  186. filldraw stroke z0e{right}...z1e{up}...pulled_arc.e(2,3)
  187.  & pulled_arc.e(3,4)...{direction 1 of p}z5e;  % arc
  188. %the accent
  189. lowercase_gravis(u,0,7,8);
  190. math_fit(-.3x_height#*slant+.5curve#-u#,ic#);
  191. penlabels(0,1,2,3,4,5,6,7,8); endchar;
  192.  
  193. dcchar "Italic letter acute e";
  194. beginchar(oct"351",8u#,x_height#+acc_height#,0);
  195. italcorr max(1/3x_height#*slant,x_height#*slant+.5(.2[hair#,stem#])-u#);
  196. adjust_fit(0,0); pickup fine.nib;
  197. numeric heavy_hair; heavy_hair=hround .2[hair,stem];
  198. pos0(vair,-90); pos1(heavy_hair,0); pos2(vair,90);
  199. pos3(curve,180); pos4(vair,270); pos5(hair,320);
  200. x0=rt x3l; rt x1r=hround(w-1.5u+.5heavy_hair); x2=x4=.5(w+u);
  201. lft x3r=hround(1.5u-.5curve); x5r=good.x(w-eps); x6=x5;
  202. y0=y3=y6=bar_height; y1=.5[y0,y2]; top y2r=x_height+oo; bot y4r=-oo;
  203. top y5l=vround .5bar_height; path p; p=z4{right}..z5..z6