diff options
Diffstat (limited to 'Master/texmf-dist/fonts/source/public/stmaryrd/stmaryrd.mf')
| -rw-r--r-- | Master/texmf-dist/fonts/source/public/stmaryrd/stmaryrd.mf | 95 |
1 files changed, 95 insertions, 0 deletions
diff --git a/Master/texmf-dist/fonts/source/public/stmaryrd/stmaryrd.mf b/Master/texmf-dist/fonts/source/public/stmaryrd/stmaryrd.mf new file mode 100644 index 00000000000..44b8ac3b3e0 --- /dev/null +++ b/Master/texmf-dist/fonts/source/public/stmaryrd/stmaryrd.mf @@ -0,0 +1,95 @@ +%%% ==================================================================== +%%% @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 |