summaryrefslogtreecommitdiff
path: root/fonts/amsfonts/source/dummy.mf
blob: cbc774ae8886adda1ba9b0cb596f54309424d497 (plain)
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
%% @metafontfile{
%%     filename="dummy.mf",
%%     filetype="Metafont: driver",
%%     author="K. Berry",
%%     email="kb@cs.umb.edu"
%%     codetable="ISO/ASCII",
%%     checksum = "01077 57 290 1988" ,
%%     keywords="amsfonts, dummyfont, metafont , ams-tex, amstex ",
%%     abstract="This file generates dummy.tfm as distributed with AMS-TeX."
%%     docstring       = "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.",
%%     }
%
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%

mode_def nullmode = % TFM files only
  proofing := -1;
  fontmaking := 1;
enddef;

mode := nullmode;
mode_setup;

% Defeat modes.mf's redefinition of font_face_byte -- it packs in the
% designsize per the Metafontbook, but dummy.pl doesn't.
let font_face_byte = gobble;

% Make the string |s| be |n| bytes long.
def BCPL_string (expr s, n) =
  for l := if length (s) >= n: n-1 else: length (s) fi: l
    for k := 1 upto l: , substring (k - 1, k) of s endfor
    for k := l + 2 upto n: , 0 endfor
  endfor
enddef;

headerbyte 1: 0, 5, hex "39", hex "77"; % checksum 1 234 567 in octal

designsize := 10; % header bytes 5-8

% Use font_coding_scheme (from plain) in case end has been redefined to
% produce the Xerox-world info, as modes.mf does. But do the headerbyte
% ourselves as well, in case we're not using modes.mf.
font_coding_scheme := "NULL FONT FOR SYNTAX CHECKING";
headerbyte 9: BCPL_string (font_coding_scheme_, 40);

font_identifier := "UNSPECIFIED";
headerbyte 49: BCPL_string (font_identifier_, 20);

headerbyte 72: 0; % face is zero for mrr, + 254 - 2 * designsize

fontdimen 22: 0; % 22 zero font dimens---enough for math fonts.

end.