% Mathematical symbols by Anthony Phan. % file: matha10.mf (parameters' file for 10 points fonts) % last modification: May 16, 2005. % Look at rth.frac for fractions and such rule_thickness. if unknown mathbase: input mathbase fi numeric gen_; gen_=0; for \$=12pt#,10pt#,9pt#,8pt#,7pt#,6pt#,5pt#: if designsize<\$: gen_:=gen_+1; fi endfor; vardef gen(expr unit)(text t)= save a,b; a=0; for \$=t: if gen_>=a: b:=\$; fi a:=a+1; endfor; b*unit enddef; superness :=1/sqrt2; flatness :=0.0625; slant :=0.25; beak_darkness :=11/30; dh# :=0.6designsize; bigop_padding#:=1/12dh#; astro :=0;% 0 for san-serif, 1 for cm-like, in between... math_spread :=gen(1)(0,0.2,0.4,0.6,0.8,1); u# :=gen(1/36pt#)( 23.5, 20, 18.5, 17, 15.5, 14, 12.5); letter_fit# :=gen(1/36pt#)( 0, 0, 0, 0, 2, 3, 5); body_height# :=gen(1/36pt#)( 324, 270, 243, 216, 189, 162, 135); asc_height# :=gen(1/36pt#)( 300, 250, 225, 200, 175, 150, 125); cap_height# :=gen(1/36pt#)( 295.2, 246, 221.4, 196.8, 172.2, 147.6, 123); fig_height# :=gen(1/36pt#)( 278.4, 232, 208.8, 185.6, 162.4, 139.2, 116); x_height# :=gen(1/36pt#)( 186, 155, 139.5, 124, 108.5, 93, 77.5); math_axis# :=gen(1/36pt#)( 108, 90, 81, 72, 63, 54, 45); desc_depth# :=gen(1/36pt#)( 84, 70, 63, 56, 49, 42, 35); dtsz# :=gen(1/36pt#)( 42, 38, 35, 32, 29, 26, 22); ast_size# :=gen(1/36pt#)( 140, 140, 140, 140, 140, 140, 140); ast_curve# :=gen(1/36pt#)( 28, 28, 28, 28, 28, 28, 28); ast_stem# :=gen(1/36pt#)( 8, 8, 8, 8, 8, 8, 8); % Next parameters may affect daggers, asterisks, infinity, % integrals, sums, similarity relations. curve# :=gen(1/36pt#)( 33, 30, 28, 25.5, 23, 20.5, 18); stem# :=gen(1/36pt#)( 28, 25, 24, 22, 20, 18, 16); hair# :=gen(1/36pt#)( 9.5, 9, 9, 9, 8.5, 8, 7.5); vair# :=gen(1/36pt#)( 8.5, 8, 8, 8, 7, 7, 6); cap_curve# :=gen(1/36pt#)( 40, 37, 33, 30, 27, 24, 21); cap_stem# :=gen(1/36pt#)( 35, 32, 29, 26.5, 24, 21.5, 19); cap_hair# :=gen(1/36pt#)( 11.5, 11, 10, 9.5, 9, 8.5, 8); slab# :=gen(1/36pt#)( 12.5, 11, 10, 9.5, 9, 8.5, 8); stem_corr# :=gen(1/36pt#)( 1, 1, 1, 1, 0.9, 0.8, 0.7); vair_corr# :=gen(1/36pt#)( 1, 1, 1, 1, 0.9, 0.8, 0.7); o# :=gen(1/36pt#)( 9, 8, 7, 6, 5, 4.5, 4); ho# :=gen(1/36pt#)( 9, 8, 7, 6, 5, 4.5, 4); dish# :=gen(1/36pt#)( 1, 1, 1, 1, 0.9, 0.8, 0.7); % RULE THICKNESSES rth1# :=gen(1pt#)(0.44,0.4,0.38,0.36,0.34,0.31,0.28); rth0# := 3/4 rth1#; rth2# := 4.5/4 rth1#; rth3# := 5/4 rth1#; rth4# := 5.5/4 rth1#; rth.frac#:=0.3pt#; crisp# :=gen(1/36pt#)( 0, 0, 0, 0, 0, 0, 0); tiny# :=gen(1/36pt#)( 8, 8, 8, 8, 7, 6.5, 6); fine# :=gen(1/36pt#)( 7, 7, 7, 7, 6, 6, 5); % VARIOUS SPREADS % thin space between > and _ spread0#:=math_spread[.21x_height#,.255x_height#]; % equal sign spread1#:=math_spread[.35x_height#,.425x_height#]; % subset like symbols spread2#:=math_spread[.87x_height#,1.01x_height#]; % infinity, asterisk, belong_to... spread3#:=math_spread[x_height#,1.2x_height#]; % greater etc. spread4#:=math_spread[17/16x_height#,9/8x_height#]; % % FONT METRICS % % They are supposed to be the same as Computer Modern's ones. % Please check carefully if it's true. if font_identifier_="mathx": % CMEX's like fontdimen8: rth0#, % default_rule_thickness gen(40/36pt#)(1.2,1,.9,.8,.7,.6,.5), % big_op_spacing1 gen(60/36pt#)(1.2,1,.9,.8,.7,.6,.5), % big_op_spacing2 gen(72/36pt#)(1.2,1,.9,.8,.7,.6,.5), % big_op_spacing3 gen(216/36pt#)(1.2,1,.9,.8,.7,.6,.5), % big_op_spacing4 gen(1/36pt#)(36,36,36,36,36,36,36); % big_op_spacing5 else: % CMSY's like subs:=gen(1)(8/12,7/10,6/9,6/8,5/7,5/6,5/5); fontdimen8: % \fontdimen8 (num1) math_axis#+3.51rth.frac#+gen(1/36pt#)(54,54,36,36,36,36,36) +subs*desc_depth#, % \fontdimen9 (num2) math_axis#+1.51rth.frac#+gen(1/36pt#)(30,30,30,24,12,9,3), % \fontdimen10 (num3) math_axis#+1.51rth.frac#+gen(1/36pt#)(48,48,43,38,34,29,24), % \fontdimen11 (denom1) -(math_axis#-3.51rth.frac#-subs*fig_height# -gen(1/36pt#)(124,124,111,98,86,74,63)), % \fontdimen12 (denom2) -(math_axis#-1.51rth.frac#-subs*fig_height# -gen(1/36pt#)(30,30,30,24,12,9,3)), % \fontdimen13 (sup1) gen(1pt#)(8.99,8.99,8.49,7.49,6.99,6.49,5.99)-subs*asc_height#, % \fontdimen14 (sup2) gen(1pt#)(8.49,8.49,7.99,7.99,6.49,5.99,5.49)-subs*asc_height#, % \fontdimen15 (sup3) gen(1/36pt#)(104,104,93,82,72,62,53), % \fontdimen16 (sub1) gen(1/36pt#)(54,54,36,36,36,36,36), % \fontdimen17 (sub2) if gen_<2: -(8.49pt#-2subs*asc_height#-3.1rth.frac#) elseif gen_=2: -(7.99pt#-2subs*asc_height#-3.1rth.frac#) else: gen(1/36pt#)(72,72,72,72,72,72,72) fi, % \fontdimen18 (sup_drop) subs*asc_height#-36/36pt#, % \fontdimen19 (sub_drop) 18/36pt#, % \fontdimen20 (delim1) gen(1pt#)( 23.9, 23.9, 23.9, 11.9, 11.9, 11.9, 9.9), % \fontdimen21 (delim2) gen(1pt#)( 10.1, 10.1, 9.1, 9.1, 8.1, 8.1, 7.1), % \fontdimen22 (axis) math_axis#; fi