% Concrete version of msam9, the first extra symbol font in AMSFonts 2.x.
% [ heavily borrowed from D. E. Knuth ]
% Copyright (C) 1995--1999 Ulrik Vieth
%
% This file is part of the `concmath' package.
%
% This program is free software; you can redistribute it and/or
% modify it under the terms of the LaTeX Project Public License
% as described in lppl.txt in the base LaTeX distribution; either
% version 1 of the License, or (at your option) any later version.
if unknown cmbase: input cmbase fi
font_identifier:="CCAM"; font_size 9pt#;
u#:=18.5/36pt#; % unit width
width_adj#:=0pt#; % width adjustment for certain characters
serif_fit#:=1/36pt#; % extra sidebar near lowercase serifs
cap_serif_fit#:=2.8/36pt#; % extra sidebar near uppercase serifs
letter_fit#:=0pt#; % extra space added to all sidebars
body_height#:=243/36pt#; % height of tallest characters
asc_height#:=225/36pt#; % height of lowercase ascenders
cap_height#:=221.4/36pt#; % height of caps
fig_height#:=208.8/36pt#; % height of numerals
x_height#:=148.5/36pt#; % height of lowercase without ascenders
math_axis#:=81/36pt#; % axis of symmetry for math symbols
bar_height#:=78.3/36pt#; % height of crossbar in lowercase e
comma_depth#:=63/36pt#; % depth of comma below baseline
desc_depth#:=63/36pt#; % depth of lowercase descenders
crisp#:=0pt#; % diameter of serif corners
tiny#:=10/36pt#; % diameter of rounded corners
fine#:=6/36pt#; % diameter of sharply rounded corners
thin_join#:=17/36pt#; % width of extrafine details
hair#:=20/36pt#; % lowercase hairline breadth
stem#:=24/36pt#; % lowercase stem breadth
curve#:=26/36pt#; % lowercase curve breadth
ess#:=24/36pt#; % breadth in middle of lowercase s
flare#:=26/36pt#; % diameter of bulbs or breadth of terminals
dot_size#:=35/36pt#; % diameter of dots
cap_hair#:=20/36pt#; % uppercase hairline breadth
cap_stem#:=26/36pt#; % uppercase stem breadth
cap_curve#:=27/36pt#; % uppercase curve breadth
cap_ess#:=24/36pt#; % breadth in middle of uppercase s
rule_thickness#:=.38pt#; % thickness of lines in math symbols
dish#:=0/36pt#; % amount erased at top or bottom of serifs
bracket#:=5/36pt#; % vertical distance from serif base to tangent
jut#:=27/36pt#; % protrusion of lowercase serifs
cap_jut#:=29/36pt#; % protrusion of uppercase serifs
beak_jut#:=9.2/36pt#; % horizontal protrusion of beak serifs
beak#:=63/36pt#; % vertical protrusion of beak serifs
vair#:=20/36pt#; % vertical diameter of hairlines
notch_cut#:=27/36pt#; % maximum breadth above or below notches
bar#:=20/36pt#; % lowercase bar thickness
slab#:=20/36pt#; % serif and arm thickness
cap_bar#:=20/36pt#; % uppercase bar thickness
cap_band#:=20/36pt#; % uppercase thickness above/below lobes
cap_notch_cut#:=.9pt#; % max breadth above/below uppercase notches
serif_drop#:=3.6/36pt#; % vertical drop of sloped serifs
stem_corr#:=1/36pt#; % for small refinements of stem breadth
vair_corr#:=1/36pt#; % for small refinements of hairline height
apex_corr#:=0pt#; % extra width at diagonal junctions
o#:=4/36pt#; % amount of overshoot for curves
apex_o#:=3/36pt#; % amount of overshoot for diagonal junctions
slant:=.25; % tilt ratio $(\Delta x/\Delta y)$
fudge:=.95; % factor applied to weights of heavy characters
math_spread:=.2; % extra openness of math symbols
superness:=8/11; % parameter for superellipses
superpull:=1/15; % extra openness inside bowls
beak_darkness:=4/30; % fraction of triangle inside beak serifs
ligs:=2; % level of ligatures to be included
square_dots:=false; % should dots be square?
hefty:=false; % should we try hard not to be overweight?
serifs:=true; % should serifs and bulbs be attached?
monospace:=false; % should all characters have the same width?
variant_g:=true; % should an italic-style g be used?
low_asterisk:=false; % should the asterisk be centered at the axis?
math_fitting:=true; % should math-mode spacing be used?
% include these parameters to shrink R and S so they fit inside a circle
% (parameters taken from msam9 without further tuning for Concrete)
lower.u#:=14.5/36pt#; % unit width
lower.width_adj#:=0pt#; % width adjustment for certain characters
lower.cap_serif_fit#:=3.4/36pt#;% extra sidebar near uppercase serifs
lower.letter_fit#:=3.5/36pt#; % extra space added to all sidebars
lower.body_height#:=173/36pt#; % height of tallest characters
lower.cap_height#:=170.4/36pt#; % height of caps
lower.x_height#:=100.5/36pt#; % height of lowercase without ascenders
lower.bar_height#:=56.3/36pt#; % height of crossbar in lowercase e
lower.comma_depth#:=45/36pt#; % depth of comma below baseline
lower.flare#:=22/36pt#; % diameter of bulbs or breadth of terminals
lower.cap_hair#:=8.6/36pt#; % uppercase hairline breadth
lower.stem#:=19/36pt#; % lowercase stem breadth
lower.cap_stem#:=23.5/36pt#; % uppercase stem breadth
lower.cap_curve#:=28/36pt#; % uppercase curve breadth
lower.cap_ess#:=24/36pt#; % breadth in middle of uppercase s
lower.cap_jut#:=23/36pt#; % protrusion of uppercase serifs
lower.beak_jut#:=6.2/36pt#; % horizontal protrusion of beak serifs
lower.beak#:=45/36pt#; % vertical protrusion of beak serifs
lower.slab#:=8.6/36pt#; % serif and arm thickness
lower.cap_bar#:=8.6/36pt#; % uppercase bar thickness
lower.cap_band#:=8.6/36pt#; % uppercase thickness above/below lobes
lower.cap_notch_cut#:=9pt#; % max breadth above/below uppercase notches
lower.o#:=4.5/36pt#; % amount of overshoot for curves
lower.apex_o#:=3/36pt#; % amount of overshoot for diagonal junctions
lower.fudge:=1; % factor applied to weights of heavy characters
% the following font parameters are explained in {\sl The \TeX book}, Appendix G
subs:=6/9; % subscripts to 9pt will normally be in 6pt type
rth#:=.4pt#; % assume that rules will come from cmex10
fontdimen 8: % parameters $\sigma_8$ through $\sigma_{22}$ will now be listed
math_axis#+3.51rth#+36/36pt#+subs*desc_depth#, % num1
math_axis#+1.51rth#+30/36pt#, % num2
math_axis#+1.51rth#+43/36pt#, % num3
-(math_axis#-3.51rth#-subs*fig_height#-111/36pt#), % denom1
-(math_axis#-1.51rth#-subs*fig_height#-30/36pt#), % denom2
8.49pt#-subs*asc_height#, % sup1
7.99pt#-subs*asc_height#, % sup2
93/36pt#, % sup3
36/36pt#, % sub1
-(7.99pt#-2subs*asc_height#-3.1rth#), % sub2
subs*asc_height#-36/36pt#, % sup\_drop
18/36pt#, % sub\_drop
23.9pt#, % delim1
9.1pt#, % delim2
math_axis#; % axis\_height
generate amsya % switch to the driver file