EVOLUTION-MANAGER

Edit File: xbbold.mf

%% filename: xbbold.mf %% version: 2.2 %% date: 1995/01/04 %% %% American Mathematical Society %% Technical Support %% Publications Technical Group %% 201 Charles Street %% Providence, RI 02904 %% USA %% tel: (401) 455-4080 %% (800) 321-4267 (USA and Canada only) %% fax: (401) 331-3842 %% email: tech-support@ams.org %% %% Copyright 1995, 2009 American Mathematical Society. %% %% This Font Software is licensed under the SIL Open Font License, %% Version 1.1. This license is in the accompanying file OFL.txt, and %% is also available with a FAQ at: http://scripts.sil.org/OFL. %% %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% % Changes of minimal parameters in outlined characters for version 2.1 % done by Stefan Lindner, 18-April-1991 input xbbase; %%mode_setup; %called by amsyb.mf; two calls confuse Metafont. NGB 15-OCT-1991 %%%%designsize:= font_size; % was 10pt#; width#:= designsize; % was 10pt#; unit#:= width#/18; u#:= width#/54; smallu#:= width#/162; ascender#:= 37/3*unit#; cap#:= 37/3*unit#; number#:= 36/3*unit#; xheight#:= 25/3*unit#; descender#:= 12/4*unit#; define_whole_vertical_pixels (width,unit,u,smallu,ascender,cap,number,xheight,descender); wpix(1.90u) (linethickness); wpix(0.65u) (Sover_bot); wpix(1.00u) (Aapex,Napex,Vapex,Wapex,Cover,Gover,Oover,Sover_top,Uover); wpix(9.00u) (Uthin_bracket); wpix(8.00u) (Kthin_diag_bracket,Xthin_diag_bracket,Ythin_diag_bracket); wpix(7.00u) (k_thin_diag); wpix(6.00u) (c_thin_stem_bracket); wpix(5.00u) (c_thick_stem_bracket,c_inner_bracket,lc_thick_stem_bracket); wpix(4.00u) (c_round_bracket); adjpix(1.35u) (serif_thickness); adjpix(1.30u) (Emid_tip,inbeak); adjpix(1.50u) (Atip,Btopthin,Bmidthin,Ebot_tip,Ltip,Mapex, Ntip,Ttip,Vtip,Wtip,Ztip,outbeak); adjpix(1.65u) (Bbotthin,Gbotthin,Stopthin); adjpix(1.75u) (Dtopthin,Ebotarm,Lthin,Tthin); adjpix(1.80u) (Abar,Ctopthin,Dbotthin,Gtopthin,Jbotthin,Pmidarm,Sbotthin); adjpix(1.90u) (Emidarm,Etoparm,Othin,Pthin,Rthin,Ydiag,Zthin); adjpix(2.00u) (kthin,Mthin_diag,Wleftthin); adjpix(2.10u) (Ctip); adjpix(2.25u) (Athin,Kthin,Mthin_vert,Nthin,Uthin,Vthin,Wrightthin,Xthin); adjpix(2.50u) (Hbar); adjpix(2.60u) (Cbotthin); %%%% Begin of changes for version 2.1 if pixels_per_inch*designsize < 1500: if pixels_per_inch*designsize < 1000: if pixels_per_inch*designsize < 800: if pixels_per_inch*designsize < 700: minadjpix(0)(8.80u) (stem); minadjpix(0)(6.80u) (kdiag); minadjpix(0)(7.40u) (kstem); minadjpix(0)(7.80u) (Jbulb,Mdiag); minadjpix(0)(8.20u) (Kdiag); minadjpix(0)(8.30u) (Gstem,Mstem); minadjpix(0)(8.60u) (Lstem,Ustem,Ythick_diag); minadjpix(0)(8.50u) (Bstem,Estem,Fstem,Ndiag,Rdiag,Xdiag,Zdiag); minadjpix(0)(8.90u) (Btopcurve); minadjpix(1)(9.30u) (Bbotcurve,Pcurve,Rcurve); minadjpix(1)(9.50u) (Ccurve,Dcurve,Gcurve,Ocurve); else: minadjpix(1)(8.80u) (stem); minadjpix(1)(6.80u) (kdiag); minadjpix(1)(7.40u) (kstem); minadjpix(1)(7.80u) (Jbulb,Mdiag); minadjpix(1)(8.20u) (Kdiag); minadjpix(1)(8.30u) (Gstem,Mstem); minadjpix(1)(8.60u) (Lstem,Ustem,Ythick_diag); minadjpix(1)(8.50u) (Bstem,Estem,Fstem,Ndiag,Rdiag,Xdiag,Zdiag); minadjpix(1)(8.90u) (Btopcurve); minadjpix(2)(9.30u) (Bbotcurve,Pcurve,Rcurve); minadjpix(2)(9.50u) (Ccurve,Dcurve,Gcurve,Ocurve); fi else: adjpix(3.0u) (Mapex); minadjpix(1)(8.80u) (stem); minadjpix(2)(6.80u) (kdiag); minadjpix(2)(7.40u) (kstem); minadjpix(2)(7.80u) (Jbulb); minadjpix(1)(6.00u) (Mdiag); minadjpix(2)(8.20u) (Kdiag); minadjpix(2)(8.30u) (Gstem) minadjpix(2)(8.30u) (Mstem); minadjpix(2)(8.60u) (Lstem,Ustem,Ythick_diag); minadjpix(2)(8.50u) (Bstem,Ndiag,Rdiag,Xdiag,Zdiag); minadjpix(1)(8.50u) (Estem, Fstem); minadjpix(2)(8.90u) (Btopcurve); minadjpix(3)(9.30u) (Bbotcurve,Pcurve,Rcurve); minadjpix(3)(9.50u) (Ccurve,Dcurve,Gcurve,Ocurve); fi else: adjpix(3.0u) (Mapex); minadjpix(2)(8.80u) (stem); minadjpix(3)(6.80u) (kdiag); minadjpix(3)(7.40u) (kstem); minadjpix(3)(7.80u) (Jbulb); minadjpix(1)(5.00u) (Mdiag); minadjpix(3)(8.20u) (Kdiag); minadjpix(3)(8.30u) (Gstem); minadjpix(2)(8.30u) (Mstem); minadjpix(3)(8.60u) (Lstem,Ustem,Ythick_diag); minadjpix(3)(8.50u) (Estem,Fstem,Ndiag,Rdiag,Xdiag,Zdiag); minadjpix(2)(8.50u) (Bstem); minadjpix(3)(8.90u) (Btopcurve); minadjpix(3)(9.30u) (Bbotcurve,Pcurve,Rcurve); minadjpix(3)(9.50u) (Ccurve,Dcurve,Gcurve,Ocurve) fi else: minadjpix(4)(8.80u) (stem); minadjpix(4)(6.80u) (kdiag); minadjpix(4)(7.40u) (kstem); minadjpix(4)(7.80u) (Jbulb,Mdiag); minadjpix(4)(8.20u) (Kdiag); minadjpix(4)(8.30u) (Gstem,Mstem); minadjpix(4)(8.60u) (Lstem,Ustem,Ythick_diag); minadjpix(4)(8.50u) (Bstem,Estem,Fstem,Ndiag,Rdiag,Xdiag,Zdiag); minadjpix(4)(8.90u) (Btopcurve); minadjpix(5)(9.30u) (Bbotcurve,Pcurve,Rcurve); minadjpix(5)(9.50u) (Ccurve,Dcurve,Gcurve,Ocurve) fi; %%%% end of changes for version 2.1 boolean lowres; lowres:=width<50; highres_lowres(pullin) (.85)(1); % Emidarm highres_lowres(pulleven) (1)(1.3); % Etoparm,Tarms,Zarms highres_lowres(pullout) (1.1)(1); % Ebotarm,Lbotarm highres_lowres(bracket0) (.0)(0); % Ntopleft highres_lowres(bracket3) (.3)(0); % Nthinstems highres_lowres(bracket01) (.0)(.1); % Uthin highres_lowres(bracket32) (.3)(.2); % Vstems highres_lowres(bracket4) (.4)(0); % P-all,R-all,I-all,F-all highres_lowres(bracket42) (.4)(.2); % Xdiag bool(ctrls):=false; entasis:=inlimit(0)(0,1); serif_constant_amt:=0pt; join_radius:=1; bool(softpath):=true; c_thick_stem_bracket:=min(.5cap-eps,c_thick_stem_bracket); rulepen:=pensquare scaled 1; extra_beginchar:=extra_beginchar&"save t,p,ref; path p[],p[]',p[]'',ref[];"; extra_beginchar:=extra_beginchar&"pickup pencircle scaled linethickness;"; for x:="R": wanted[byte x]:=true; endfor % test these characters let iff=always_iff; % tests all chars in the file font_normal_space .3width#; % TeX fontdimen 2 normal word space font_normal_stretch .15width#; % TeX fontdimen 3 interword stretch font_normal_shrink .1width#; % TeX fontdimen 4 interword shrink font_x_height xheight#; % Tex fontdinem 5 for accents font_quad width#; % TeX fontdimen 6 quad width font_extra_space .1width#; % TeX fontdimen 7 extra space(period) input xbcaps bye % changed from "end" 26 Aug 93; bnb