home *** CD-ROM | disk | FTP | other *** search
/ Fresh Fish 7 / FreshFishVol7.bin / bbs / text / pastex-1.3-2of8.lha / PasTeX / mf / inputs / xbbold.mf < prev    next >
Text File  |  1991-07-03  |  7KB  |  188 lines
  1. %% @metafontfile{
  2. %%     filename="xbbold.mf",
  3. %%     version="2.1",
  4. %%     date="30-MAY-1991",
  5. %%     filetype="Metafont: driver",
  6. %%     copyright="Copyright (C) American Mathematical Society,
  7. %%            all rights reserved.  Copying of this file is
  8. %%            authorized only if either:
  9. %%            (1) you make absolutely no changes to your copy
  10. %%                including name; OR
  11. %%            (2) if you do make changes, you first rename it to some
  12. %%                other name.",
  13. %%     author="American Mathematical Society",
  14. %%     address="American Mathematical Society,
  15. %%            Technical Support Group,
  16. %%            P. O. Box 6248,
  17. %%            Providence, RI 02940,
  18. %%            USA",
  19. %%     telephone="401-455-4080 or (in the USA) 800-321-4AMS",
  20. %%     email="Internet: Tech-Support@Math.AMS.com",
  21. %%     codetable="ISO/ASCII",
  22. %%     checksumtype="line count",
  23. %%     checksum="188",
  24. %%     keywords="amsfonts, tex, metafont , AMSSymbols ",
  25. %%     abstract="This is the driver file for use with 
  26. %%            the Blackboard Bold characters in AMSFonts 2.1."
  27. %%     }
  28. %
  29. %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
  30.  
  31. % Changes of minimal parameters in outlined characters for version 2.1
  32. % done by Stefan Lindner, 18-April-1991
  33.  
  34. input xbbase;
  35. mode_setup;
  36.  
  37. %%%%designsize:= font_size;                 %  was 10pt#;
  38. width#:=     designsize;                 %  was 10pt#;
  39. unit#:=      width#/18;
  40. u#:=         width#/54;
  41. smallu#:=    width#/162;
  42. ascender#:=  37/3*unit#;
  43. cap#:=       37/3*unit#;
  44. number#:=    36/3*unit#;
  45. xheight#:=   25/3*unit#;
  46. descender#:= 12/4*unit#;
  47. define_whole_vertical_pixels
  48.   (width,unit,u,smallu,ascender,cap,number,xheight,descender);
  49. wpix(1.90u) (linethickness);
  50. wpix(0.65u) (Sover_bot);
  51. wpix(1.00u) (Aapex,Napex,Vapex,Wapex,Cover,Gover,Oover,Sover_top,Uover);
  52. wpix(9.00u) (Uthin_bracket);
  53. wpix(8.00u) (Kthin_diag_bracket,Xthin_diag_bracket,Ythin_diag_bracket);
  54. wpix(7.00u) (k_thin_diag);
  55. wpix(6.00u) (c_thin_stem_bracket);   
  56. wpix(5.00u) (c_thick_stem_bracket,c_inner_bracket,lc_thick_stem_bracket);
  57. wpix(4.00u) (c_round_bracket);
  58. adjpix(1.35u) (serif_thickness);
  59. adjpix(1.30u) (Emid_tip,inbeak);
  60. adjpix(1.50u) (Atip,Btopthin,Bmidthin,Ebot_tip,Ltip,Mapex,
  61.                Ntip,Ttip,Vtip,Wtip,Ztip,outbeak);
  62. adjpix(1.65u) (Bbotthin,Gbotthin,Stopthin);
  63. adjpix(1.75u) (Dtopthin,Ebotarm,Lthin,Tthin);
  64. adjpix(1.80u) (Abar,Ctopthin,Dbotthin,Gtopthin,Jbotthin,Pmidarm,Sbotthin);
  65. adjpix(1.90u) (Emidarm,Etoparm,Othin,Pthin,Rthin,Ydiag,Zthin);
  66. adjpix(2.00u) (kthin,Mthin_diag,Wleftthin);
  67. adjpix(2.10u) (Ctip);
  68. adjpix(2.25u) (Athin,Kthin,Mthin_vert,Nthin,Uthin,Vthin,Wrightthin,Xthin);
  69. adjpix(2.50u) (Hbar);
  70. adjpix(2.60u) (Cbotthin);
  71.  
  72.  
  73. %%%% Begin of changes for version 2.1
  74. if pixels_per_inch*designsize < 1500:
  75.    if pixels_per_inch*designsize < 1000:
  76.       if pixels_per_inch*designsize < 800:
  77.          if pixels_per_inch*designsize < 700:
  78.             minadjpix(0)(8.80u) (stem);
  79.             minadjpix(0)(6.80u) (kdiag);
  80.             minadjpix(0)(7.40u) (kstem);
  81.             minadjpix(0)(7.80u) (Jbulb,Mdiag);
  82.             minadjpix(0)(8.20u) (Kdiag);
  83.             minadjpix(0)(8.30u) (Gstem,Mstem);
  84.             minadjpix(0)(8.60u) (Lstem,Ustem,Ythick_diag);
  85.             minadjpix(0)(8.50u) (Bstem,Estem,Fstem,Ndiag,Rdiag,Xdiag,Zdiag);
  86.             minadjpix(0)(8.90u) (Btopcurve);
  87.             minadjpix(1)(9.30u) (Bbotcurve,Pcurve,Rcurve);
  88.             minadjpix(1)(9.50u) (Ccurve,Dcurve,Gcurve,Ocurve);
  89.          else:
  90.             minadjpix(1)(8.80u) (stem);
  91.             minadjpix(1)(6.80u) (kdiag);
  92.             minadjpix(1)(7.40u) (kstem);
  93.             minadjpix(1)(7.80u) (Jbulb,Mdiag);
  94.             minadjpix(1)(8.20u) (Kdiag);
  95.             minadjpix(1)(8.30u) (Gstem,Mstem);
  96.             minadjpix(1)(8.60u) (Lstem,Ustem,Ythick_diag);
  97.             minadjpix(1)(8.50u) (Bstem,Estem,Fstem,Ndiag,Rdiag,Xdiag,Zdiag);
  98.             minadjpix(1)(8.90u) (Btopcurve);
  99.             minadjpix(2)(9.30u) (Bbotcurve,Pcurve,Rcurve);
  100.             minadjpix(2)(9.50u) (Ccurve,Dcurve,Gcurve,Ocurve);
  101.          fi
  102.       else:
  103.          adjpix(3.0u) (Mapex);
  104.          minadjpix(1)(8.80u) (stem);
  105.          minadjpix(2)(6.80u) (kdiag);
  106.          minadjpix(2)(7.40u) (kstem);
  107.          minadjpix(2)(7.80u) (Jbulb);
  108.          minadjpix(1)(6.00u) (Mdiag);
  109.          minadjpix(2)(8.20u) (Kdiag);
  110.          minadjpix(2)(8.30u) (Gstem)
  111.          minadjpix(2)(8.30u) (Mstem);
  112.          minadjpix(2)(8.60u) (Lstem,Ustem,Ythick_diag);
  113.          minadjpix(2)(8.50u) (Bstem,Ndiag,Rdiag,Xdiag,Zdiag);
  114.          minadjpix(1)(8.50u) (Estem, Fstem);
  115.          minadjpix(2)(8.90u) (Btopcurve);
  116.          minadjpix(3)(9.30u) (Bbotcurve,Pcurve,Rcurve);
  117.          minadjpix(3)(9.50u) (Ccurve,Dcurve,Gcurve,Ocurve);
  118.       fi
  119.    else:
  120.       adjpix(3.0u) (Mapex);
  121.       minadjpix(2)(8.80u) (stem);
  122.       minadjpix(3)(6.80u) (kdiag);
  123.       minadjpix(3)(7.40u) (kstem);
  124.       minadjpix(3)(7.80u) (Jbulb);
  125.       minadjpix(1)(5.00u) (Mdiag);
  126.       minadjpix(3)(8.20u) (Kdiag);
  127.       minadjpix(3)(8.30u) (Gstem);
  128.       minadjpix(2)(8.30u) (Mstem);
  129.       minadjpix(3)(8.60u) (Lstem,Ustem,Ythick_diag);
  130.       minadjpix(3)(8.50u) (Estem,Fstem,Ndiag,Rdiag,Xdiag,Zdiag);
  131.       minadjpix(2)(8.50u) (Bstem);
  132.       minadjpix(3)(8.90u) (Btopcurve);
  133.       minadjpix(3)(9.30u) (Bbotcurve,Pcurve,Rcurve);
  134.       minadjpix(3)(9.50u) (Ccurve,Dcurve,Gcurve,Ocurve)
  135.    fi
  136. else:
  137.    minadjpix(4)(8.80u) (stem);
  138.    minadjpix(4)(6.80u) (kdiag);
  139.    minadjpix(4)(7.40u) (kstem);
  140.    minadjpix(4)(7.80u) (Jbulb,Mdiag);
  141.    minadjpix(4)(8.20u) (Kdiag);
  142.    minadjpix(4)(8.30u) (Gstem,Mstem);
  143.    minadjpix(4)(8.60u) (Lstem,Ustem,Ythick_diag);
  144.    minadjpix(4)(8.50u) (Bstem,Estem,Fstem,Ndiag,Rdiag,Xdiag,Zdiag);
  145.    minadjpix(4)(8.90u) (Btopcurve);
  146.    minadjpix(5)(9.30u) (Bbotcurve,Pcurve,Rcurve);
  147.    minadjpix(5)(9.50u) (Ccurve,Dcurve,Gcurve,Ocurve)
  148. fi;
  149. %%%% end of changes for version 2.1
  150.  
  151. boolean lowres; lowres:=width<50;
  152. highres_lowres(pullin)    (.85)(1);  % Emidarm
  153. highres_lowres(pulleven)  (1)(1.3);  % Etoparm,Tarms,Zarms
  154. highres_lowres(pullout)   (1.1)(1);  % Ebotarm,Lbotarm
  155. highres_lowres(bracket0)  (.0)(0);   % Ntopleft
  156. highres_lowres(bracket3)  (.3)(0);   % Nthinstems
  157. highres_lowres(bracket01) (.0)(.1);  % Uthin
  158. highres_lowres(bracket32) (.3)(.2);  % Vstems
  159. highres_lowres(bracket4)  (.4)(0);   % P-all,R-all,I-all,F-all
  160. highres_lowres(bracket42) (.4)(.2);  % Xdiag 
  161.  
  162. bool(ctrls):=false;
  163. entasis:=inlimit(0)(0,1);               
  164. serif_constant_amt:=0pt;                
  165. join_radius:=1;                         
  166. bool(softpath):=true;                   
  167.  
  168. c_thick_stem_bracket:=min(.5cap-eps,c_thick_stem_bracket); 
  169. rulepen:=pensquare scaled 1;            
  170. extra_beginchar:=extra_beginchar&"save t,p,ref; path p[],p[]',p[]'',ref[];";
  171. extra_beginchar:=extra_beginchar&"pickup pencircle scaled linethickness;";
  172.  
  173. for x:="R":
  174.  wanted[byte x]:=true; endfor                    % test these characters
  175.  let iff=always_iff;                             % tests all chars in the file
  176.  
  177. font_normal_space .3width#;         % TeX fontdimen 2 normal word space
  178. font_normal_stretch .15width#;      % TeX fontdimen 3 interword stretch
  179. font_normal_shrink .1width#;        % TeX fontdimen 4 interword shrink
  180. font_x_height xheight#;             % Tex fontdinem 5 for accents
  181. font_quad width#;                   % TeX fontdimen 6 quad width
  182. font_extra_space .1width#;          % TeX fontdimen 7 extra space(period)
  183.  
  184.  
  185. input xbcaps
  186. end
  187.  
  188.