summaryrefslogtreecommitdiff
path: root/Master/texmf-dist/doc/fonts/amsfonts/amsfndoc.fnt
blob: 2a0e261e7428821febb85947c49bd721e6ddca17 (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
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
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
139
140
141
142
143
144
145
146
147
148
149
150
151
%%% ====================================================================
%%%  @TeX-file{
%%%   filename  = "amsfndoc.fnt",
%%%   version   = "2.2c",
%%%   date      = "16 November 2001",
%%%   time      = "16:56:02 EST",
%%%   checksum  = "14554 151 584 5881"
%%%   author    = "American Mathematical Society",
%%%   copyright = "Copyright (C) 1994 American Mathematical Society,
%%%                all rights reserved.  Copying of this file is
%%%                authorized only if either:
%%%                (1) you make absolutely no changes to your copy,
%%%                including name; OR
%%%                (2) if you do make changes, you first rename it
%%%                to some other name.",
%%%   address   = "American Mathematical Society,
%%%                Technical Support,
%%%                Electronic Products and Services,
%%%                P. O. Box 6248,
%%%                Providence, RI 02940,
%%%                USA",
%%%   telephone = "401-455-4080 or (in the USA and Canada)
%%%                800-321-4AMS (321-4267)",
%%%   FAX       = "401-331-3842",
%%%   email     = "tech-support@ams.org (Internet)",
%%%   codetable = "ISO/ASCII",
%%%   keywords  = "amsfonts, msam, msbm, eufm, eusm, Euler,
%%%                blackboard bold, fraktur",
%%%   supported = "yes",
%%%   abstract  = "This is part of the AMSFonts distribution.  It is
%%%                the plain TeX source file for the font charts that
%%%                comprise Appendix E of the AMSFonts user's guide.",
%%%   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.",
%%%  }
%%% ====================================================================

\newcount\curchar \newcount\currow \newcount\curcol
\newdimen\indexwd \newdimen\tempcellwd
\setbox0\hbox{\tentt 0\kern.2em}
\indexwd=\wd0

\def\ident#1{#1}
\def\hexnumber#1{\ifcase\expandafter\ident\expandafter{\number#1} 0\or
1\or 2\or 3\or 4\or 5\or 6\or 7\or 8\or 9\or A\or B\or C\or D\or E\or
F\else ?\fi}

\def\rownumber{\tentt\hexnumber\currow}
\def\colnumber{\tentt\hexnumber\curcol \global\advance\curcol 1 }

%    Note that the cyrillic short I has an unexpected height of more than
%    8.5pt, and is thus centered vertically rather than aligned on the
%    baseline; this has been reported as a bug, and may be fixed sometime.
\def\charnumber{\setbox0=\hbox{\char\curchar}%
  \ifdim\ht0>7.5pt\reposition
  \else\ifdim\dp0>2.5pt\reposition\fi\fi
  \box0 \global\advance\curchar1 }
\def\reposition{\setbox0=\hbox{$\vcenter{\kern1.5pt\box0\kern1.5pt}$}}

%    For these charts we avoid \offinterlineskip as that makes for
%    problems when cells have unusual height or depth. Instead the
%    vertical rules in the charts are added after the total height of
%    the chart is know.
\def\dochart#1{%
  \begingroup
  \global\curchar=0 \global\currow=0 \global\curcol=0
  \def\hline{\kern2pt\hrule\kern3pt }%
  \setbox0\vbox{#1%
% 16 cols for chars + 2 for row numbers + 12pt space for 5 vrules
    \def\0{\hbox to\cellwd{\curcol}{\hss\charnumber\hss}}%
    \colnumbers
    \hline
    \setrow\setrow\setrow\setrow
    \hline
    \setrow\setrow\setrow\setrow
    \hline
    \colnumbers
  }%
%    Now that we know the total height, we can add the vertical rules.
  \vbox{%
    \hbox to\hsize{\kern\indexwd
      \def\fullrule{\hfil\vrule height\ht0 depth\dp0\hfil}%
      \fullrule\kern\cellwd{0}\kern\cellwd{1}\kern\cellwd{2}\kern\cellwd{3}%
      \fullrule\kern\cellwd{4}\kern\cellwd{5}\kern\cellwd{6}\kern\cellwd{7}%
      \fullrule\kern\cellwd{8}\kern\cellwd{9}\kern\cellwd{10}\kern\cellwd{11}%
      \fullrule\kern\cellwd{12}\kern\cellwd{13}\kern\cellwd{14}\kern\cellwd{15}%
      \fullrule\kern\indexwd}%
    \kern-\ht0 \kern-\dp0 \unvbox0}%
  \endgroup
}

\def\colnumbers{\hbox to\hsize{\global\curcol 0
  \def\1{\hbox to\cellwd{\curcol}{\hfil\colnumber\hfil}}%
  \kern\indexwd\hfil\hfil
  \1\1\1\1\hfil\hfil \1\1\1\1\hfil\hfil
  \1\1\1\1\hfil\hfil \1\1\1\1\hfil\hfil
  \kern\indexwd}%
}

\def\setrow{\hbox to\hsize{%
  \hbox to\indexwd{\hfil\rownumber\kern.2em}\hfil\hfil
  \0\0\0\0\hfil\hfil \0\0\0\0\hfil\hfil
  \0\0\0\0\hfil\hfil \0\0\0\0\hfil\hfil
  \hbox to\indexwd{\tentt\kern.2em \rownumber\hfil}}%
  \global\advance\currow 1 }%

\def\cellwd#1{20pt}% initialize

%    This is supposed to help tailor cell widths to a specific font;
%    but at the moment just make all cells the same width.
%    [mjd,20-Dec-1994]
\def\measurecolwidths#1{%
  \tempcellwd\hsize \advance\tempcellwd-2\indexwd
%     Space for vrules:
  \advance\tempcellwd -12pt
  \divide\tempcellwd 16
  \xdef\cellwd##1{\the\tempcellwd}%
}

\def \table #1#2#3{\par\penalty-200 \bigskip
  \font #1=#2 \relax
  \vbox{\hsize=29pc
    \measurecolwidths{#1}%
    \centerline{#3 -- {\tt#2}}%
    \medskip
    \dochart{#1}%
}}

%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%

\raggedbottom

\noindent {\bf Note:} Row and column numbers are hexadecimal.

\table \tenmsam{msam10}{Extra symbols, group 1, medium weight}
\table \tenmsbm{msbm10}{Extra symbols, group 2, medium weight}
\table \teneufm{eufm10}{Euler Fraktur medium weight}
\table \teneurm{eurm10}{Euler cursive (roman) medium weight}
\table \teneusm{eusm10}{Euler script medium weight}
\table \teneuex{euex10}{Euler-compatible extension font}
\table \tencyr{wncyr10}{Cyrillic, medium weight}
\table \tencyi{wncyi10}{Italic Cyrillic, medium weight}
\table \tencsc{cmcsc10}{Computer Modern caps and small caps}
\table \tenmib{cmmib10}{Computer Modern bold math italic}
\table \tenbsy{cmbsy10}{Computer Modern bold math symbols}
\table \tenex{cmex10}{Computer Modern math extension font}

\bye