doc-src/iman.sty
changeset 140 3a8c68d1d466
parent 110 a931f1b45151
child 293 63a0077dd9f2
     1.1 --- a/doc-src/iman.sty	Mon Nov 22 18:26:46 1993 +0100
     1.2 +++ b/doc-src/iman.sty	Tue Nov 23 10:47:33 1993 +0100
     1.3 @@ -142,18 +142,40 @@
     1.4  \def\@makeschapterhead#1{ { \parindent 0pt \raggedright 
     1.5   \@rulehead{#1} \par \nobreak \vskip 40pt } }
     1.6  
     1.7 +% "itmath.sty" use cmr italic for letters in math mode and get the
     1.8 +%	       usual letter spacing of text mode.
     1.9 +%
    1.10 +% Michael Lawley, April 1993
    1.11 +% (lawley@cit.gu.edu.au)
    1.12 +%
    1.13 +% Derived from itma.sty (of unknown origin).
    1.14  %
    1.15  % MATHCODES
    1.16  %
    1.17  % The mathcodes for the letters A, ..., Z, a, ..., z are changed to
    1.18 -% generate text italic font rather than math italic by default. This makes
    1.19 +% generate text italic rather than math italic by default. This makes
    1.20  % multi-letter identifiers look better. The mathcode for character c
    1.21 -% is set to "7000 (variable family) + "400 (text italic) + c.
    1.22 -% See the TeXBook, page 154.
    1.23 +% is set to "7000 (variable class) + "400 (text italic) + c.
    1.24 +%
    1.25 +% For NFSS the mathcode is "7000 (variable class) + (hex)\itfam + c
    1.26 +% \itfam is probably equal to 7.
    1.27 +%
    1.28 +
    1.29 +\ifx\undefined\hexnumber@
    1.30 +  \def\hexnumber@#1{\ifcase#1 \z@
    1.31 +  \or \@ne \or \tw@ \or \thr@@
    1.32 +  \or 4\or 5\or 6\or 7\or 8\or
    1.33 +  9\or A\or B\or C\or D\or E\or F\fi}
    1.34 +\fi
    1.35  
    1.36  \def\@setmcodes#1#2#3{{\count0=#1 \count1=#3
    1.37 -	\loop \global\mathcode\count0=\count1 \ifnum \count0<#2
    1.38 -	\advance\count0 by1 \advance\count1 by1 \repeat}}
    1.39 +        \loop \global\mathcode\count0=\count1 \ifnum \count0<#2
    1.40 +        \advance\count0 by1 \advance\count1 by1 \repeat}}
    1.41  
    1.42 -\@setmcodes{`A}{`Z}{"7441}
    1.43 -\@setmcodes{`a}{`z}{"7461}
    1.44 +\edef\@tempa{\hexnumber@\itfam}
    1.45 +
    1.46 +\@setmcodes{`A}{`Z}{"7\@tempa 41}
    1.47 +\@setmcodes{`a}{`z}{"7\@tempa 61}
    1.48 +
    1.49 +\ifx\define@mathgroup\undefined\else
    1.50 +	\define@mathgroup\mv@normal{\itfam}{cmr}{m}{it}\fi