% Filename: stmaryrd.mf
% Authors: Jeremy Gibbons and Alan Jeffrey
% Maintained by: Alan Jeffrey
% E-mail: jeffrey@cs.chalmers.se
% Last modified: 20 May 1991

% This is the driver file for the St Mary's Road symbol font, named
% after the palatial mansion (currently under investigation by the
% Enviromental Health Officer) where we lived, and where many of the
% symbols were designed and discussed over a bottle of wine and some
% halva.

% Copyright 1991 Jeremy Gibbons and Alan Jeffrey.

% Many of the symbols are derived (or `stolen', to use the technical
% phrase from Knuth's Computer Modern fonts, and the American
% Mathematical Society's msam and msbm fonts.  Please don't sue.

% 20 May 1991: Created the font out of alans.mf and galileo.mf.

% We assume the parameters have been set by whichever file called us
% (for example stmary10.mf).

% Here we steal a bit from mathsy

mode_setup; font_setup;
autorounding:=0;

font_slant slant; font_x_height x_height#;
font_quad 18u# if not monospace:+4letter_fit# fi;
slant:=mono_charic#:=0;  % the remaining characters will not be slanted
currenttransform:=identity yscaled aspect_ratio scaled granularity;

% The parameters for slashes for reductions:

slash_width := 7u; % horizontal extent of a slash
slash_height := body_height;
define_pixels(paren_depth); slash_depth := paren_depth;
slash_offset := 3u; % offset of slash from arrowhead for reduction and accm
slash_separation# := 3u#; % gap between slashes for accumulates

define_pixels(slash_separation);

% The input files:

input stmaryba; % Various macros we need.
input stmarych; % Defines the character positions and extension information.
input stmaryjg; % Jeremy's symbols.
input stmaryaj; % Alan's symbols.

end