home *** CD-ROM | disk | FTP | other *** search
/ Fresh Fish 8 / FreshFishVol8-CD2.bin / bbs / text / pastex-1.3-7of9.lha / PasTeX / MF / inputs / dc / dxillett.mf < prev    next >
Text File  |  1994-04-12  |  22KB  |  567 lines
  1. % This is DXILLETT.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. %   lowercase italic letters a to z
  11. %
  12.  
  13. dcchar "Italic letter a";
  14. beginchar("a",9u#,x_height#,0);
  15. italcorr 1/3x_height#*slant+.5hair#+.5u#;
  16. adjust_fit(0,0); pickup fine.nib;
  17. pos0(hair,0); pos1(vair,90); pos2(curve,180); pos3(vair,270);
  18. pos4(stem,0); x4=x0; y4+.5stem=vround .98h;
  19. x1=x3=.5[x0,x2]; lft x2r=hround(1.5u-.5curve);
  20. rt x4r=hround(w-2.5u+.5stem);
  21. top y1r=h+oo; bot y3r=-oo; y0=y2=.5[y1,y3];
  22. filldraw stroke super_arc.e(0,1) & pulled_arc.e(1,2)
  23.  & pulled_arc.e(2,3) & super_arc.e(3,0);  % bowl
  24. x5=x4; x7=w; hook_out(5,6,7);  % closing hook
  25. filldraw circ_stroke z4e--z5e;  % stem
  26. math_fit(-.3x_height#*slant+.5curve#-u#,ic#);
  27. penlabels(0,1,2,3,4,5,6,7); endchar;
  28.  
  29. dcchar "Italic letter b";
  30. beginchar("b",8u#,asc_height#,0);
  31. italcorr .7x_height#*slant+.5curve#-u# if math_fitting:-.5u# fi;
  32. adjust_fit(0,0); pickup tiny.nib;
  33. pos1(stem,0); pos2(stem,0); x1=x2;
  34. lft x1l=hround(1.5u-.5stem); top y1=h; y2=.5x_height;
  35. filldraw stroke z1e--z2e;  % stem
  36. sloped_serif.l(1,2,a,1/3,jut,serif_drop);  % serif
  37. pickup fine.nib; pos2'(stem,-180); pos3(vair,-90);
  38. pos4(curve,0); pos5(vair,90); pos0(hair,180);
  39. z0=z2=z2'; x3=x5=.5[x2,x4]; rt x4r=hround(w-1.5u+.5curve);
  40. bot y3r=-oo; top y5r=x_height+oo; y4=y2;
  41. filldraw stroke pulled_arc.e(2',3) & pulled_arc.e(3,4)
  42.  & pulled_arc.e(4,5) & super_arc.e(5,0);  % bowl
  43. math_fit(-.3x_height#*slant+.5curve#-u#,ic#);
  44. penlabels(0,1,2,3,4,5); endchar;
  45.  
  46. dcchar "Italic letter c";
  47. beginchar("c",8u#,x_height#,0);
  48. italcorr if math_fitting:1/3x_height#*slant else:x_height#*slant-u# fi;
  49. adjust_fit(0,0); pickup fine.nib;
  50. pos0(flare,0); pos1(hair,0); pos2(vair,90);
  51. pos3(curve,180); pos4(vair,270); pos5(hair,320);
  52. x2=x4=.5(w+u); rt x1r=max(rt x2,hround(w-u))+eps;
  53. lft x3r=hround(1.5u-.5curve); x5r=good.x(w-eps); x6=x5;
  54. y1=.5[bar_height,h]; top y2r=h+oo; bulb(2,1,0);  % bulb
  55. bot y4r=-oo; y3=.5[y2,y4]; top y5l=vround .5bar_height; y6=bar_height;
  56. path p; p=z4{right}..z5..z6;
  57. filldraw stroke pulled_arc.e(2,3)
  58.  & pulled_arc.e(3,4)...{direction 1 of p}z5e;  % arc
  59. math_fit(-.3x_height#*slant+.5curve#-u#,ic#);
  60. penlabels(0,1,2,3,4,5,6); endchar;
  61.  
  62. dcchar "Italic letter d";
  63. beginchar("d",9u#,asc_height#,0);
  64. italcorr max(1/3x_height#*slant+.5hair#+.5u#,
  65.   h#*slant+.5stem#-2u#) if math_fitting:-.5u# fi;
  66. adjust_fit(0,0); pickup fine.nib;
  67. pos0(hair,0); pos1(vair,90); pos2(curve,180); pos3(vair,270);
  68. x0=x4; x1=x3=.5[x0,x2]; lft x2r=hround(1.5u-.5curve);
  69. x4+.5stem=hround(w-2.5u+.5stem);
  70. top y1r=x_height+oo; bot y3r=-oo; y0=y2=.5[y1,y3];
  71. filldraw stroke super_arc.e(0,1) & pulled_arc.e(1,2)
  72.  & pulled_arc.e(2,3) & super_arc.e(3,0);  % bowl
  73. x5=x0; x7=w; hook_out(5,6,7);  % closing hook
  74. pickup tiny.nib; pos5'(stem,0); pos4(stem,0);
  75. z5'=z5; top y4=h; filldraw stroke z4e--z5'e;  % stem
  76. sloped_serif.l(4,5',a,1/3,jut,serif_drop);  % serif
  77. math_fit(-.3x_height#*slant+.5curve#-u#,ic#);
  78. penlabels(0,1,2,3,4,5,6,7); endchar;
  79.  
  80. dcchar "Italic letter e";
  81. beginchar("e",8u#,x_height#,0);
  82. italcorr max(1/3x_height#*slant,x_height#*slant+.5(.2[hair#,stem#])-u#);
  83. adjust_fit(0,0); pickup fine.nib;
  84. numeric heavy_hair; heavy_hair=hround .2[hair,stem];
  85. pos0(vair,-90); pos1(heavy_hair,0); pos2(vair,90);
  86. pos3(curve,180); pos4(vair,270); pos5(hair,320);
  87. x0=rt x3l; rt x1r=hround(w-1.5u+.5heavy_hair); x2=x4=.5(w+u);
  88. lft x3r=hround(1.5u-.5curve); x5r=good.x(w-eps); x6=x5;
  89. y0=y3=y6=bar_height; y1=.5[y0,y2]; top y2r=h+oo; bot y4r=-oo;
  90. top y5l=vround .5bar_height; path p; p=z4{right}..z5..z6;
  91. filldraw stroke z0e{right}...z1e{up}...pulled_arc.e(2,3)
  92.  & pulled_arc.e(3,4)...{direction 1 of p}z5e;  % arc
  93. math_fit(-.3x_height#*slant+.5curve#-u#,ic#);
  94. penlabels(0,1,2,3,4,5,6); endchar;
  95.  
  96. dcchar "Italic letter f";
  97. beginchar("f",max(1.5u#,stem#)+max(3.5u#,2flare#),asc_height#,desc_depth#);
  98. italcorr asc_height#*slant+.75u#;
  99. adjust_fit(if monospace:u#,u# else: 0,0 fi); pickup fine.nib;
  100. numeric theta; z88=(.5w-.5u,h); z89=(.5w+.5u,-d); theta=angle(z88-z89);
  101. pos0(flare,0); pos1(hair,0); pos2(vair,90);
  102. pos3(.5[hair,stem],180); pos4(stem,theta+90);
  103. pos5(stem,theta-90); pos6(.5[hair,stem],0);
  104. pos7(vair,-90); pos8(hair,-180); pos9(flare,-180);
  105. rt x1r=hround(w+.25u); lft x8r=hround-.35u; x2=.6[x1,x4]; x7=.6[x8,x5];
  106. y9-.5flare=vround -.85d; y2-y0=y9-y7; top y2r=h+oo; bot y7r=-d-oo;
  107. y4=.25[x_height,h]; y5=.5[-d,y4];
  108. z4=whatever[z88,z89]; z5=whatever[z88,z89];
  109. x3=.8[x2+x4-x88,x88]; x6=.8[x7+x5-x89,x89]; y3=.8[y4,y2]; y6=.8[y5,y7];
  110. bulb(2,1,0); bulb(7,8,9);  % bulbs
  111. filldraw stroke z2e{left}...z3e...{z89-z88}z4e;  % upper arc
  112. filldraw z4r--z5l--z5r--z4l--cycle;  % stem
  113. filldraw stroke z5e{z89-z88}...z6e...{left}z7e;  % lower arc
  114. pickup crisp.nib; pos20(bar,90); pos21(bar,90);
  115. top y20r=top y21r=x_height;
  116. lft x20=lft x4r-.5stem-u; rt x21=rt x4l+.5stem+1.5u;
  117. filldraw stroke z20e--z21e;  %  crossbar
  118. math_fit(desc_depth#*slant+u#,x_height#*slant);
  119. penlabels(0,1,2,3,4,5,6,7,8,9,20,21,88,89); endchar;
  120.  
  121. dcchar "Italic letter g";
  122. beginchar("g",8u#,x_height#,desc_depth#);
  123. italcorr x_height#*slant+.5stem#-u#;
  124. adjust_fit(0,0); pickup fine.nib;
  125. pos0(hair,0); pos1(vair,90); pos2(curve,180); pos3(vair,270);
  126. x0=x4; x1=x3=.5[x0,x2]; lft x2r=hround(1.5u-.5curve);
  127. x4+.5stem=hround(w-1.5u+.5stem);
  128. top y1r=h+oo; bot y3r=0; y0=y2=.5[y1,y3];
  129. filldraw stroke super_arc.e(0,1) & pulled_arc.e(1,2)
  130.  & pulled_arc.e(2,3) & super_arc.e(3,0);  % bowl
  131. pos4(stem,0); y4+.5stem=vround .98h;
  132. pos5(stem,0); x5=x4; y5=-1/3d;
  133. pos6(vair,-90); pos7(hair,-180); pos8(flare,-180);
  134. bot y6r=-d-oo; y8-.5flare=vround -.9d;
  135. lft x8r=hround(2u-.5flare); x6=x1; bulb(6,7,8);  % bulb
  136. filldraw circ_stroke z4e---z5e...{left}z6e;  % stem and arc
  137. math_fit(-min(.3x_height#*slant+.5curve#-u#,1.5u#-desc_depth#*slant),
  138.  ic#-1/3x_height#*slant); penlabels(0,1,2,3,4,5,6,7,8); endchar;
  139.  
  140. dcchar "Italic letter h";
  141. beginchar("h",9u#,asc_height#,0);
  142. italcorr 1/3x_height#*slant+.5hair#+.5u#;
  143. adjust_fit(0,0); pickup tiny.nib;
  144. pos1(stem,0); pos2(stem,0); x1=x2;
  145. lft x1l=hround(1.5u-.5stem); top y1=h; y2-.5stem=-oo;
  146. filldraw circ_stroke z2e--z1e;  % left stem
  147. sloped_serif.l(1,2,a,1/3,jut,serif_drop);  % serif
  148. pickup fine.nib; x4+.5stem=hround(w-2.5u+.5stem);
  149. x5=x4-.25u; ital_arch(2,3,4);  % arch
  150. x7=w; hook_out(5,6,7)(skewed);  % closing hook
  151. filldraw stroke z4e{down}..{-u,-x_height}z5e;  % right stem
  152. math_fit(0,ic#); penlabels(1,2,3,4,5,6,7); endchar;
  153.  
  154. dcchar "Italic letter i";
  155. beginchar("i",5u#,min(asc_height#,10/7x_height#+.5flare#),0);
  156. italcorr max(1/3x_height#*slant+.5hair#+.5u#,h#*slant+.5flare#-2u#);
  157. adjust_fit(if monospace:u#,u# else: 0,0 fi); pickup fine.nib;
  158. x0=0; x5=w; x2=.5w+.25u; x3=.5w-.25u;
  159. if classic_serif:
  160.   hook_out(3,4,5)(skewed);  % hooks
  161.   top y2=x_height;
  162.   pos2(stem,0);
  163.   sloped_serif.l(2,3,a,1/3,jut,serif_drop);
  164. else:
  165.   hook_in(0,1,2)(skewed);
  166.   hook_out(3,4,5)(skewed);  % hooks
  167. fi
  168. filldraw stroke z2e--z3e;  % stem
  169. pos8(flare,0); pos9(flare,90);
  170. x8=.5w if not monospace:-.4(h-x_height)*slant fi; top y9r=h+1;
  171. if classic_serif: else:
  172.  if bot y9l-top y1<slab: y9l:=min(y9r-eps,y1+fine+slab); fi
  173. fi
  174. x8=x9; y8=.5[y9l,y9r]; dot(8,9);  % dot
  175. math_fit(-2/3x_height#*slant+.5hair#+.5u#,ic#);
  176. penlabels(0,1,2,3,4,5,8,9); endchar;
  177.  
  178. dcchar "Italic letter j";
  179. beginchar("j",5u#,min(asc_height#,10/7x_height#+.5flare#),desc_depth#);
  180. italcorr h#*slant+.5stem#-u#;
  181. adjust_fit(if monospace:2u#,.5u# else: 0,0 fi); pickup fine.nib;
  182. x0=0; x2=x3; pos3(stem,0); lft x3l=hround(w-1.5u-.5stem);
  183. if classic_serif:
  184.   pos4(vair,-90); pos5(hair,-180); pos6(flare,-180);
  185.   bot y3=-1/3d; bot y4r=-d-oo; y6-.5flare=-vround.9d;
  186.   top y2=x_height;
  187.   pos2(stem,0);
  188.   sloped_serif.l(2,3,a,1/3,jut,serif_drop);
  189. else:
  190.   hook_in(0,1,2);  % opening hook
  191.   pos4(vair,-90); pos5(hair,-180); pos6(flare,-180);
  192.   bot y3=-1/3d; bot y4r=-d-oo; y6-.5flare=-vround.9d;
  193. fi
  194. x4=1/3(w-u); lft x5r=min(hround-.5u,lft x5r+x4-x5l-eps);
  195. filldraw stroke z2e---z3e...{left}z4e;  % stem and arc
  196. bulb(4,5,6);  % bulb
  197. pos8(flare,0); pos9(flare,90);
  198. rt x8r=rt x2r if not monospace:-.6(h-x_height)*slant fi; top y9r=h+1;
  199. if classic_serif: else:
  200.    if bot y9l-top y1<slab: y9l:=min(y9r-eps,y1+fine+slab); fi
  201. fi
  202. x8=x9; y