summaryrefslogtreecommitdiff
path: root/fonts/mathabx/source/mathprmt.mf
diff options
context:
space:
mode:
Diffstat (limited to 'fonts/mathabx/source/mathprmt.mf')
-rw-r--r--fonts/mathabx/source/mathprmt.mf168
1 files changed, 168 insertions, 0 deletions
diff --git a/fonts/mathabx/source/mathprmt.mf b/fonts/mathabx/source/mathprmt.mf
new file mode 100644
index 0000000000..11f6d0929d
--- /dev/null
+++ b/fonts/mathabx/source/mathprmt.mf
@@ -0,0 +1,168 @@
+% 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