%%% ==================================================================== %%% @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