%%% ====================================================================
%%%  @METAFONT-file{
%%%     author-1        = "Jeremy Gibbons",
%%%     author-2        = "Alan Jeffrey",
%%%     version         = "1.1",
%%%     date            = "02 June 1992",
%%%     time            = "15:06:36 BST",
%%%     filename        = "stmaryrd.mf",
%%%     address-1       = "Department of Computer Science
%%%                        University of Aukland
%%%                        Private Bag
%%%                        Aukland
%%%                        New Zealand",
%%%     address-2       = "School of Cognitive and Computing Sciences
%%%                        University of Sussex
%%%                        Brighton BN1 9QH
%%%                        UK",
%%%     telephone-1     = "+64 9 373 7599 x 5120",
%%%     telephone-2     = "+44 273 606755 x 3238",
%%%     FAX-1           = "+64 9 373 7453",
%%%     FAX-2           = "+44 273 678188",
%%%     checksum        = "50004 95 506 4017",
%%%     email-1         = "jeremy@cs.aukuni.ac.nz",
%%%     email-2         = "alanje@cogs.sussex.ac.uk",
%%%     codetable       = "ISO/ASCII",
%%%     keywords        = "metafont symbols math fonts",
%%%     supported       = "yes",
%%%     abstract        = "This is part of the metafont program for
%%%                        the St Mary's Road symbol font.",
%%%     docstring       = "This is part of the metafont program for
%%%                        the St Mary's Road symbol font.  The font
%%%                        contains a number of mathematical
%%%                        characters which are not present in the
%%%                        standard TeX and AMS symbol fonts.
%%%
%%%                        It is described in stmaryrd.tex.
%%%
%%%                        Copyright 1992 Jeremy Gibbons and Alan Jeffrey.
%%%
%%%                        The checksum field above contains a CRC-16
%%%                        checksum as the first value, followed by the
%%%                        equivalent of the standard UNIX wc (word
%%%                        count) utility output of lines, words, and
%%%                        characters.  This is produced by Robert
%%%                        Solovay's checksum utility.",
%%%     package         = "St Mary's Road",
%%%     dependencies    = "stmaryba.mf stmarych.mf stmaryjg.mf stmaryaj.mf",
%%%  }
%%% ====================================================================
%%%
%%% 20 May 1991, v1.0: Created the font out of alans.mf and galileo.mf.
%%%
%%% 2 Jun 1992, v1.1: added the headers.

% 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.
%
% 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.

% 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