summaryrefslogtreecommitdiff
path: root/Master/texmf-dist/source/latex/amsfonts/amsfonts.dtx
blob: 12e4ae10ba1202dabcc532e34bcf8fac694c78a8 (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
152
153
154
155
156
157
158
159
160
161
162
163
164
165
166
167
168
169
170
171
172
173
174
175
176
177
178
179
180
181
182
183
184
185
186
187
188
189
190
191
192
193
194
195
196
197
198
199
200
201
202
203
204
205
206
207
208
209
210
211
212
213
214
215
216
217
218
219
220
221
222
223
224
225
226
227
228
229
230
231
232
233
234
235
236
237
238
239
240
241
242
243
244
245
246
247
248
249
250
251
252
253
254
255
256
257
258
259
260
261
262
263
264
265
266
267
268
269
270
271
272
273
274
275
276
277
278
279
280
281
282
283
284
285
286
287
288
289
290
291
292
293
294
295
296
297
298
299
300
301
302
303
304
305
306
307
308
309
310
311
312
313
314
315
316
317
318
319
320
321
322
323
324
325
326
327
328
329
330
331
332
333
334
335
336
337
338
339
340
341
342
343
344
345
346
347
348
349
350
351
352
353
354
355
356
357
358
359
360
361
362
363
364
365
366
367
368
369
370
371
372
373
374
375
376
377
378
379
380
381
382
383
384
385
386
387
388
389
390
391
392
393
394
395
396
397
398
399
400
401
402
403
404
405
406
407
408
409
410
411
412
413
414
415
416
417
418
419
420
421
422
423
424
425
426
427
428
429
430
431
432
433
434
435
436
437
438
439
440
441
442
443
444
445
446
447
448
449
450
451
452
453
454
455
456
457
458
459
460
461
462
463
464
465
466
467
468
469
470
471
472
473
474
475
476
477
478
479
480
481
482
483
484
485
486
487
488
489
490
491
492
493
494
495
496
497
498
499
500
501
502
503
504
505
506
507
508
509
510
511
512
513
514
515
516
517
518
519
520
521
522
523
524
525
526
527
528
529
530
531
532
533
534
535
536
537
538
539
540
541
542
543
544
545
546
547
548
549
550
551
552
553
554
555
556
557
558
559
560
561
562
563
564
565
566
567
568
569
570
571
572
573
574
575
576
577
578
579
580
581
582
583
584
585
586
587
588
589
590
591
592
593
594
595
596
597
598
599
600
601
602
603
604
605
606
607
608
609
610
611
612
613
614
615
616
617
618
619
620
621
622
623
624
625
626
627
628
629
630
631
632
633
634
635
% \def\filename{amsfonts.dtx}
% \def\fileversion{3.01}
% \def\filedate{2013/01/14}
%
% \iffalse meta-comment
%
% American Mathematical Society
% Technical Support
% Publications Technical Group
% 201 Charles Street
% Providence, RI 02904
% USA
% tel: (401) 455-4080
%      (800) 321-4267 (USA and Canada only)
% fax: (401) 331-3842
% email: tech-support@ams.org
%
% Copyright 2001, 2009, 2013 American Mathematical Society.
%
% Unlimited copying and redistribution of this file are permitted as
% long as this file is not modified.  Modifications, and distribution
% of modified versions, are permitted, but only if the resulting file
% is renamed.
%
% \fi
%
% \iffalse
%<*driver>
\documentclass{amsdtx}
\usepackage{mflogo}
\begin{document}
\title{The \pkg{amsfonts} package}
\author{David M. Jones%
    \thanks{Previous versions of this package were written by Frank
      Mittelbach, Rainer Sch\"opf and Michael Downes.  Most of the
      code remains unchanged and the credit should continue accruing
      to them.  However, blame for the commentary and decisions
      regarding the \opt{psamfonts} option and the handling of font
      scaling belong to the current author alone.}%
}
\date{Version \fileversion, \filedate}
\DocInput{amsfonts.dtx}
\end{document}
%</driver>
% \fi
%
% \maketitle
%
% \MakeShortVerb\|
%
% \section{Introduction}
%
%    The \pkg{amsfonts} package provides access to a limited selection
%    of features from the AMSFonts package.  For other features, see
%    the following packages: \pkg{amssymb}, \pkg{eucal}, \pkg{eufrak},
%    and \pkg{euscript}.  (For wholesale substitution of Euler math,
%    see Frank Jensen's \pkg{euler} package.)
%
%    This file also contains the external font definitions
%    (\texttt{.fd} files) needed to use the AMS font collection with
%    \LaTeXe.
%
% \subsection{The \opt{psamsfonts} option}
%
%    In early versions of AMSFonts, the 6, 8 and 9 point sizes of many
%    fonts were implemented only in \MF\ and were not available as
%    separate Type~1 fonts.  Because of this, many AMS-\LaTeX\ classes
%    and packages were given a \opt{psamsfonts} option that would
%    adjust the font definitions so that only the TFM files
%    corresponding to design sizes available as Type~1 fonts would be
%    used.  This relieved DVI-to-PostScript processors of the
%    responsibility of doing an appropriate font substitution, which
%    was of particular value in those early days when support for
%    Type~1 fonts was still experimental and highly variable.
%
%    However, the \opt{psamsfonts} option had a second, undocumented,
%    effect: It changed the scaling behavior of the Euler and AMS
%    Symbol fonts.  Without the \opt{psamsfonts} option, the fonts
%    were made available at the same set of ``quantized'' sizes used
%    by default for the standard \LaTeX\ fonts.  For example, if you
%    asked for \fnt{msbm} at 13\,pt, you would instead get \fnt{msbm}
%    at 12\,pt, with a warning about the substitution.  With the
%    \opt{psamsfonts} option, the AMS fonts were continuously
%    scalable, so if you asked for \fnt{msbm} at 13\,pt, you would get
%    a 13\,pt version of the font.  This means that the
%    \opt{psamsfonts} could change \TeX's formatting decisions,
%    including which linebreaks were chosen.
%
%    As of version~3 of the AMSFonts distribution, there is no longer
%    a discrepancy between the \MF\ implementations and the Type~1
%    implementations, which means that we can use a single set of font
%    definitions for both.  The question then becomes which approach
%    we should adopt.  Should we provide the fonts only in the
%    standard \LaTeX\ quantized sizes or should we allow for full and
%    continuous scaling?
%
%    It is our position that the quantized font sizes are not
%    desirable for their own merits; they are a legacy of the era when
%    \MF\ was virtually the only source of fonts for use with
%    \TeX\ and when generating a new size of a font was onerous and
%    resulted in a potentially long-term use of precious disk space.
%    In the modern \TeX\ environment, the cost of allowing arbitrary
%    scaling of fonts is so low that most users will never even be
%    aware of them.  Furthermore, any user who sticks to the standard
%    \LaTeX\ document classes and the font sizes they provide will
%    never stray outside of the officially sanctioned sizes anyway,
%    even when using the AMSFont package.  Any users who do request
%    nonstandard sizes presumably know what they are doing and should
%    get the font size they ask for.  Although they will have to take
%    special measures to achieve that for the standard \LaTeX\ fonts,
%    we can make their tasks easier by providing the AMS fonts in a
%    fully scalable form from the beginning.
%
%^^A Besides, at normal document sizes, the difference between the
%^^A quantized sizes and the actually-requested size will be small and
%^^A probably not noticeable under normal circumstances.
%
% \subsection{The \fnt{cmex} fonts}
%
%    The situation with \fnt{cmex} is even more stark.  In standard
%    \LaTeX, \fnt{cmex} is only supplied at 10\,pt.  That is, no
%    matter what size you ask for, you get \fnt{cmex} at~10\,pt.  The
%    \pkg{amsfonts} package redefines the \fnt{cmex} font family so
%    that it is also continuously scalable.  This means that
%    \emph{merely loading the \pkg{amsfonts} package can change line
%    breaks}.
%
%^^A Theoretically we could provide \opt{quantized} and/or
%^^A \opt{noscale} options, but that's probably just asking for
%^^A trouble.
%
% \section{Customization}
%
%    You should \emph{not} change any of the files generated from this
%    module. If you really want to change the font shape groups
%    preloaded you should copy the relevant portions to another file
%    (having a different name) and edit the other file according to
%    your needs.
%
% \StopEventually{}
%
% \subsection{The \texttt{docstrip} modules}
%
%    The following modules are used in an installation procedure to direct
%    \texttt{docstrip} in generating external files:
% \begin{center}
% \begin{tabular}{ll}
%   |sty|    & generate \fn{amsfonts.sty} \\
%   |eur|    & generate \fn{fd} for Euler Roman\\
%   |eus|    & generate \fn{fd} for Euler Script\\
%   |euf|    & generate \fn{fd} for Euler Fraktur\\
%   |euex|   & generate \fn{fd} for Euler extra symbols\\
%   |msa|    & generate \fn{fd} for AMS symbols (A)\\
%   |msb|    & generate \fn{fd} for AMS symbols (B)\\
% \end{tabular}
% \end{center}
%
% \section{The implementation}
%
%    Require \LaTeXe.
%    \begin{macrocode}
%<*sty>
\NeedsTeXFormat{LaTeX2e}[1994/12/01]
%</sty>
%    \end{macrocode}
%
%    Identify the file and version.
%    \begin{macrocode}
%<sty>\ProvidesPackage{amsfonts}[2013/01/14 v3.01 Basic AMSFonts support]
%<eur>\ProvidesFile{ueur.fd}    [2013/01/14 v3.01 Euler Roman]
%<eus>\ProvidesFile{ueus.fd}    [2013/01/14 v3.01 Euler Script]
%<euf>\ProvidesFile{ueuf.fd}    [2013/01/14 v3.01 Euler Fraktur]
%<euex>\ProvidesFile{ueuex.fd}  [2013/01/14 v3.01 Euler extra symbols]
%<msa>\ProvidesFile{umsa.fd}    [2013/01/14 v3.01 AMS symbols A]
%<msb>\ProvidesFile{umsb.fd}    [2013/01/14 v3.01 AMS symbols B]
%    \end{macrocode}
%
% \section{Package options}
%
%    \begin{macrocode}
%<*sty>
\DeclareOption{psamsfonts}{%
    \PackageWarningNoLine{amsfonts}{The 'psamsfonts' option is
      obsolete in AMSFonts v3}
}
%    \end{macrocode}
%
%    Process the options for this package.
%    \begin{macrocode}
\ProcessOptions\relax
%    \end{macrocode}
%
% \subsection{Font definitions for \fn{cmex}}
%
%    The \opt{cmex10} option of \pkg{amsmath} is now obsolete, but it
%    will be some time before we release an updated version of
%    \pkg{amsmath}.  In the meantime, when version~3 of \pkg{amsfonts}
%    is used with older versions of the \pkg{amsmath} package, we want
%    to disable the \opt{cmex10} option.  So, we do two things: (a)~in
%    \pkg{amsfonts}, we install the new \fnt{cmex} definitions
%    unconditionally, and (b)~we set the \cs{cmex@opt} flag to a value
%    that will cause \pkg{amsmath} to skip processing of the
%    \opt{cmex10} option.
%    \begin{macrocode}
\DeclareFontShape{OMX}{cmex}{m}{n}{%
       <-7.5>cmex7%
    <7.5-8.5>cmex8%
    <8.5-9.5>cmex9%
    <9.5->cmex10%
}{}%

\expandafter\let\csname OMX/cmex/m/n/10\endcsname\relax

\def\cmex@opt{10}
%    \end{macrocode}
%
% \section{Miscellaneous}
%
%  \begin{macro}{\ams@newcommand}
%    Where \pkg{stix} and \pkg{amsfonts} define the same control
%    sequences, we want to avoid inadvertently overriding \pkg{stix}'s
%    definitions.  If \pkg{stix} is loaded before \pkg{amsfonts}, the
%    following conditional and a few more like it later in the code
%    take care of the problem.  There is similar code in the
%    \pkg{stix} package in case \pkg{amsfonts} is loaded first.
%    \begin{macrocode}
\@ifpackageloaded{stix}{%
    \def\ams@DeclareMathDelimiter#1#2#3#4#5#6{}%
    \def\ams@DeclareMathSymbol#1#2#3#4{}%
}{%
    \let\ams@DeclareMathDelimiter\DeclareMathDelimiter
    \def\ams@DeclareMathSymbol#1#2#3#4{%
        \global\let#1\undefined
        \DeclareMathSymbol{#1}{#2}{#3}{#4}%
    }%
}
%    \end{macrocode}
%  \end{macro}
%
%    In case the \pkg{amsfonts} package is used apart from the
%    \pkg{amsmath} package, we need to define the following functions.
%    \begin{macrocode}
\providecommand*{\@mathmeasure}[3]{%
  \setbox#1\hbox{\frozen@everymath\@emptytoks\m@th$#2#3$}}
%    \end{macrocode}
%    \cs{newtoks} was still outer in early releases of \LaTeXe, so
%    we need to take a little extra care here.
%    \begin{macrocode}
\@ifundefined{@emptytoks}{\csname newtoks\endcsname\@emptytoks}{}
%    \end{macrocode}
%
% \section{Preparing to use the extra math fonts}
%
%    We declare the encoding schemes for two AMS math symbol fonts.
%    \texttt{U} encoding with \cs{noaccents@} for math is already
%    provided in base NFSS.
%
%    The AMS symbol fonts will be assigned via \cs{DeclareSymbolFont}
%    since most of their characters are accessed with the \cs{mathchardef}
%    primitive. This means that these fonts are loaded for the
%    particular size whenever a size or version switch is requested by
%    the user. At the present time bold forms of these fonts don't
%    exist. So there are no overriding \cs{SetSymbolFont} commands for
%    mathversion `bold'.
%    \begin{macrocode}
\DeclareSymbolFont{AMSa}{U}{msa}{m}{n}
\DeclareSymbolFont{AMSb}{U}{msb}{m}{n}
%    \end{macrocode}
%
%    The next constructs are symbols that work the same in text or math.
%    They are built the hard way using |\hexnumber@\sym...|.
%    We can't use \cs{DeclareTextSymbol} since it only specifies the
%    font by its encoding, which, being \texttt{U} for both \fn{msam}
%    \fn{msbm}, is ambiguous.
%    \begin{macrocode}
\@ifundefined{yen}{%
  \edef\yen{\noexpand\mathhexbox{\hexnumber@\symAMSa}55}
}{}
\@ifundefined{checkmark}{%
  \edef\checkmark{\noexpand\mathhexbox{\hexnumber@\symAMSa}58}
}{}
\@ifundefined{circledR}{%
  \edef\circledR{\noexpand\mathhexbox{\hexnumber@\symAMSa}72}
}{}
\@ifundefined{maltese}{%
  \edef\maltese{\noexpand\mathhexbox{\hexnumber@\symAMSa}7A}
}{}
%    \end{macrocode}
%
%    We now define a few symbols which reside in the \fn{msam} and \fn{msbm}
%    fonts. The \cs{catcode} change is to ensure that the double-quote
%    character is not active (which at one time was a problem when something
%    like \fn{german.sty} was used).
%    \begin{macrocode}
\begingroup \catcode`\"=12
\ams@DeclareMathDelimiter{\ulcorner}{\mathopen} {AMSa}{"70}{AMSa}{"70}
\ams@DeclareMathDelimiter{\urcorner}{\mathclose}{AMSa}{"71}{AMSa}{"71}
\ams@DeclareMathDelimiter{\llcorner}{\mathopen} {AMSa}{"78}{AMSa}{"78}
\ams@DeclareMathDelimiter{\lrcorner}{\mathclose}{AMSa}{"79}{AMSa}{"79}
%    \end{macrocode}
%
%    The next two definitions redefine the \cn{widehat} and
%    \cn{widetilde} command to use a special accent if their
%    argument is suitably wide. (In plain \TeX{} these commands can
%    produce three different accents depending on the size of the
%    argument.)  The current implementation will tend to give wrong results
%    (tilde or hat symbol too wide) if these accents are used in script
%    or scriptscript math style. But making that part work properly is
%    too much effort given the limitations of \TeX{} 3.x.
%    \begin{macrocode}
\@ifpackageloaded{stix}{}{%
    \xdef\widehat#1{\noexpand\@mathmeasure\z@\textstyle{#1}%
      \noexpand\ifdim\noexpand\wd\z@>\tw@ em%
      \mathaccent"0\hexnumber@\symAMSb 5B{#1}%
      \noexpand\else\mathaccent"0362{#1}\noexpand\fi}
    \xdef\widetilde#1{\noexpand\@mathmeasure\z@\textstyle{#1}%
      \noexpand\ifdim\noexpand\wd\z@>\tw@ em%
      \mathaccent"0\hexnumber@\symAMSb 5D{#1}%
      \noexpand\else\mathaccent"0365{#1}\noexpand\fi}
}
%    \end{macrocode}
%    Now we define two special arrows which are built with special
%    characters from the first symbol font.
%    \begin{macrocode}
\@ifpackageloaded{stix}{}{%
    \DeclareMathSymbol{\dabar@}{\mathord}{AMSa}{"39}
    \xdef\dashrightarrow{\mathrel{\dabar@\dabar@
                              \mathchar"0\hexnumber@\symAMSa 4B}}%
    \xdef\dashleftarrow{\mathrel{\mathchar"0\hexnumber@\symAMSa 4C\dabar@
                              \dabar@}}%
    \global\let\dasharrow\dashrightarrow
}
%    \end{macrocode}
%    To avoid using too many control sequence names by defining all
%    new symbols provided with the two fonts, we defined so far only
%    symbols which are not assigned via \cs{mathchardef}. The majority
%    however will be defined only if the user loads the \fn{amssymb}
%    package or explicitly defines symbols using the
%    \cs{DeclareMathSymbol} macro.
%
%    Finally we test the \cs{DeclareMathSymbol} command by redefining the
%    \PlainTeX{} symbols which were made up from different characters
%    (and thus could not change sizes properly) but are now available
%    as real characters. Note that we have to make them undefined
%    first, otherwise \cs{DeclareMathSymbol} will complain that they are
%    already defined.
%    \begin{macrocode}
\ams@DeclareMathSymbol{\rightleftharpoons}{\mathrel}{AMSa}{"0A}
\ams@DeclareMathSymbol{\angle}            {\mathord}{AMSa}{"5C}
\ams@DeclareMathSymbol{\hbar}             {\mathord}{AMSb}{"7E}
%    \end{macrocode}
%
%    Include a few common symbols which are both in \fn{msam} or \fn{msbm}
%    and also in \fn{lasy}, which might have been loaded already, so it
%    is a good idea to make them undefined.
%    \begin{macrocode}
\ams@DeclareMathSymbol{\sqsubset}         {\mathrel}{AMSa}{"40}
\ams@DeclareMathSymbol{\sqsupset}         {\mathrel}{AMSa}{"41}
\ams@DeclareMathSymbol{\mho}              {\mathord}{AMSb}{"66}
%    \end{macrocode}
%
%    Now we close the group so that |"| will get its old \cs{catcode}
%    back.
%    \begin{macrocode}
\endgroup
%    \end{macrocode}
%
% \section{Defining \protect\meta{math alphabet identifiers}}
%
% \begin{macro}{\mathfrak}
%    The Fraktur alphabet will be accessed by the command
%    \cn{mathfrak} inside of math mode.
%    \begin{macrocode}
\@ifundefined{mathfrak}{%
    \DeclareMathAlphabet{\mathfrak}{U}{euf}{m}{n}
    \SetMathAlphabet{\mathfrak}{bold}{U}{euf}{b}{n}
}{}
%    \end{macrocode}
% \end{macro}
%
% \begin{macro}{\mathbb}
%      The AMS symbol font B contains the blackboard bold math alphabet.
%      There is only a single weight of this alphabet so it is used in
%      all math versions.
%    \begin{macrocode}
\@ifundefined{mathbb}{%
    \DeclareSymbolFontAlphabet{\mathbb}{AMSb}%
}{}
%    \end{macrocode}
% \end{macro}
%
% \subsection{Setting up the fonts for correct accents in math}
%
%    There are a few \meta{math alphabets} which don't have any or
%    enough accents for math in the corresponding fonts. For example the
%    \cn{mathbb} \meta{math alphabet identifier} comes from a symbol font
%    with none of the normal accents in the correct places. \AmSTeX{}
%    has a sophisticated solution for this problem: all math
%    accents are defined in a way that the font where the accents are
%    taken from depends on the current value of a macro called
%    \cs{accentclass@}. To support this idea \meta{math alphabet
%    identfiers} which come with their own accents should set this macro
%    to the number \texttt{7} (variable family in the terminology of the
%    \TeX{}book); all others should set it to \texttt{0} so that the accents
%    are taken from the \meta{math group} zero in the current \emph{math
%    version}.
%
%    There is a \cs{DeclareFontEncodingDefaults} macro which declares such
%    defaults. For the \pkg{amsfonts} package we set this default in the
%    following way. This information will be ignored unless the \pkg{amsmath}
%    package is also loaded.
%    \begin{macrocode}
\DeclareFontEncodingDefaults{\relax}{\def\accentclass@{7}}
%    \end{macrocode}
%
% \section{Some backward compatibility definitions}
%
%    The following commands are provided for compatibility with pre-1995
%    versions of the \pkg{amsfonts} package. If a \cn{documentclass}
%    command is used the \cs{@obsolete} function will issue a warning
%    saying that the command is obsolete.
%
%    Upgraded to robust commands. [bnb, 1996/09/29]
% \begin{macro}{\frak}
% \begin{macro}{\Bbb}
% \begin{macro}{\bold}
%    \begin{macrocode}
\DeclareRobustCommand{\frak}[1]{%
  {\@subst@obsolete{amsfonts}\frak\mathfrak{#1}}}
\DeclareRobustCommand{\Bbb}[1]{%
  {\@subst@obsolete{amsfonts}\Bbb\mathbb{#1}}}
\DeclareRobustCommand{\bold}[1]{%
  {\@subst@obsolete{amsfonts}\bold\mathbf{#1}}}
%    \end{macrocode}
% \end{macro}
% \end{macro}
% \end{macro}
%
%    The \cs{newsymbol} command has different syntax than
%    \cs{DeclareMathSymbol} so it cannot use the direct substitution
%    function \cs{@subst@obsolete}.
%    \begin{macrocode}
\begingroup \catcode`\"=12 \relax
\gdef\newsymbol#1#2#3#4#5{%
  \@obsolete{amsfonts}\newsymbol\DeclareMathSymbol
  \@ifdefinable#1{%
     \edef\next@
       {\ifcase #2 \or
          \hexnumber@\symAMSa\or
          \hexnumber@\symAMSb\fi}%
     \ifx\next@\@empty
       \PackageError{amsfonts}{\Invalid@@\newsymbol}\@ehd%
     \else
      \global\mathchardef#1"#3\next@#4#5
     \fi}}
\endgroup
%    \end{macrocode}
%
%  \begin{macro}{\@obsolete}
%    This command gives a warning on the first use that the command given
%    as second argument is deprecated/obsolete, with the third argument
%    recommended as a substitute. In compatibility mode we just continue
%    silently.
%    \begin{macrocode}
\long\def\@gobblethree#1#2#3{}
\if@compatibility
  \let\@obsolete\@gobblethree
\else
  \def\@obsolete#1#2#3{\PackageWarning{#1}{%
    Obsolete command \protect#2; \protect#3 should be used instead}}%
\fi
%    \end{macrocode}
%  \end{macro}
%
%  \begin{macro}{\@subst@obsolete}
%    For obsolete commands that have a substitute command.
%    \begin{macrocode}
\def\@subst@obsolete#1#2#3{\@obsolete{#1}#2#3\gdef#2{#3}#2}
%    \end{macrocode}
%  \end{macro}
%
%    \begin{macrocode}
\@ifpackageloaded{stix}{\endinput}{}
%    \end{macrocode}
%    First we load the symbols under the official AMS names and then
%    define the \latex/ names via \cs{let} unless they are already
%    defined (which probably means that the \fn{lasy} fonts are defined).
%    \begin{macrocode}
\begingroup \catcode`\"=12
\DeclareMathSymbol{\square}           {\mathord}{AMSa}{"03}
\DeclareMathSymbol{\lozenge}          {\mathord}{AMSa}{"06}
\ams@DeclareMathSymbol{\vartriangleright} {\mathrel}{AMSa}{"42}
\ams@DeclareMathSymbol{\vartriangleleft}  {\mathrel}{AMSa}{"43}
\ams@DeclareMathSymbol{\trianglerighteq}  {\mathrel}{AMSa}{"44}
\ams@DeclareMathSymbol{\trianglelefteq}   {\mathrel}{AMSa}{"45}
\ams@DeclareMathSymbol{\rightsquigarrow}  {\mathrel}{AMSa}{"20}
%    \end{macrocode}
%    Check if the \pkg{latexsym} package has already been loaded
%    \begin{macrocode}
\@ifpackageloaded{latexsym}{\@tempswafalse}{\@tempswatrue}
\if@tempswa
  \global\let\Box\square
  \global\let\Diamond\lozenge
  \global\let\leadsto\rightsquigarrow
%    \end{macrocode}
%    \cn{lhd} and its relatives look like \cn{vartriangleleft} and its
%    relatives, but the math atom types are different (according to the
%    \latex/ book). So we need to issue different \cs{DeclareMathSymbol}
%    statements.
%    \begin{macrocode}
  \global\let\lhd\@@undefined
  \global\let\unlhd\@@undefined
  \global\let\rhd\@@undefined
  \global\let\unrhd\@@undefined
  \DeclareMathSymbol{\lhd}     {\mathbin}{AMSa}{"43}
  \DeclareMathSymbol{\unlhd}   {\mathbin}{AMSa}{"45}
  \DeclareMathSymbol{\rhd}     {\mathbin}{AMSa}{"42}
  \DeclareMathSymbol{\unrhd}   {\mathbin}{AMSa}{"44}
%    \end{macrocode}
%    No equivalent of the \cn{\Join} symbol in \fn{lasy} is available in
%    \fn{msam} or \fn{msbm} so we make do with a composite of two characters.
%    \begin{macrocode}
\xdef\Join{\mathrel{\mathchar"0\hexnumber@\symAMSb 6F\mkern-13.8mu%
  \mathchar"0\hexnumber@\symAMSb 6E}}
\fi
\endgroup
%</sty>
%    \end{macrocode}
%
% \section{The \texttt{.fd} files}
%
%  \subsection{AMS symbol font A}
%
%    \begin{macrocode}
%<*msa>
\DeclareFontFamily{U}{msa}{}
\DeclareFontShape{U}{msa}{m}{n}{%
     <-6>msam5%
    <6-8>msam7%
    <8->msam10%
}{}
%</msa>
%    \end{macrocode}
%
%  \subsection{AMS symbol font B}
%
%    \begin{macrocode}
%<*msb>
\DeclareFontFamily{U}{msb}{}
\DeclareFontShape{U}{msb}{m}{n}{%
     <-6>msbm5%
    <6-8>msbm7%
    <8->msbm10%
}{}
%</msb>
%    \end{macrocode}
%
%  \subsection{Euler Fraktur}
%
%    \begin{macrocode}
%<*euf>
\DeclareFontFamily{U}{euf}{}
\DeclareFontShape{U}{euf}{m}{n}{%
     <-6>eufm5%
    <6-8>eufm7%
    <8->eufm10%
}{}
\DeclareFontShape{U}{euf}{b}{n}{%
     <-6>eufb5%
    <6-8>eufb7%
    <8->eufb10%
}{}
%</euf>
%    \end{macrocode}
%
%  \subsection{Euler Script}
%
%    \begin{macrocode}
%<*eus>
\DeclareFontFamily{U}{eus}{\skewchar\font'60}
\DeclareFontShape{U}{eus}{m}{n}{%
     <-6>eusm5%
    <6-8>eusm7%
    <8->eusm10%
}{}
\DeclareFontShape{U}{eus}{b}{n}{%
     <-6>eusb5%
    <6-8>eusb7%
    <8->eusb10%
}{}
%</eus>
%    \end{macrocode}
%
%  \subsection{Euler math extension}
%
%    \begin{macrocode}
%<*euex>
\DeclareFontFamily{U}{euex}{}
\DeclareFontShape{U}{euex}{m}{n}{%
       <-7.5>euex7%
    <7.5-8.5>euex8%
    <8.5-9.5>euex9%
    <9.5->euex10%
}{}
%</euex>
%    \end{macrocode}
%
%  \subsection{Euler Math Roman}
%
%    These fonts are nearly |OML| encoded but some characters are
%    missing so we use |U| encoding again.
%    \begin{macrocode}
%<*eur>
\DeclareFontFamily{U}{eur}{\skewchar\font'177}
\DeclareFontShape{U}{eur}{m}{n}{%
     <-6>eurm5%
    <6-8>eurm7%
    <8->eurm10%
  }{}
\DeclareFontShape{U}{eur}{b}{n}{%
     <-6>eurb5%
    <6-8>eurb7%
    <8->eurb10%
}{}
%</eur>
%    \end{macrocode}
%
%    The next line goes into all files and in addition prevents
%    \texttt{docstrip} from adding any further code from the main source
%    file (such as a character table).
%    \begin{macrocode}
\endinput
%    \end{macrocode}
%
% \Finale