1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
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
|
