summaryrefslogtreecommitdiff
path: root/macros/plain/contrib/zztex/tex/zzlucida.tex
blob: 6bfc5e555400288e3e2285c1af94bcb1485b3f42 (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
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
%
% Module:    ZzTeX Lucida Math Font Support
%
% Synopsis:  This module contains various definitions and redefinitions
%            necessary to use the Lucida math fonts.
%
% Note:      This module assumes the user is generating PostScript output.
%
% Author:    Paul C. Anagnostopoulos
% Created:   27 June 1992
%
% Copyright 1989--2020 by Paul C. Anagnostopoulos
% under The MIT License (opensource.org/licenses/MIT)
%
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%

%                       Type Styles
%                       ---- ------

\setstyleskewchar{\msy}{"7F}
\setstyleskewchar{\msy}{"30}

%                       Redefine Math Characters
%                       -------- ---- ----------


\zmchar \Gamma                  \classvarfam \mexfam {D0}
\zmchar \Delta                  \classvarfam \mexfam {D1}
\zmchar \Theta                  \classvarfam \mexfam {D2}
\zmchar \Lambda                 \classvarfam \mexfam {D3}
\zmchar \Xi                     \classvarfam \mexfam {D4}
\zmchar \Pi                     \classvarfam \mexfam {D5}
\zmchar \Sigma                  \classvarfam \mexfam {D6}
\zmchar \Upsilon                \classvarfam \mexfam {D7}
\zmchar \Phi                    \classvarfam \mexfam {D8}
\zmchar \Psi                    \classvarfam \mexfam {D9}
\zmchar \Omega                  \classvarfam \mexfam {DA}

\zmchar {`=}                    \classrel    \msyfam {83}
\zmchar {`+}                    \classbinop  \msyfam {82}

\definemathdelimiter {`/}       \classord    \mitfam {3D} \mexfam {0E}

\zmchar {`(}                    \classopen   \mitfam {84}
\definemathdelimiter {`(}       \classord    \mitfam {84} \mexfam {00}
\zmchar {`)}                    \classclose  \mitfam {85}
\definemathdelimiter {`)}       \classord    \mitfam {85} \mexfam {01}

\zmchar {`[}                    \classopen   \mitfam {86}
\definemathdelimiter {`[}       \classord    \mitfam {86} \mexfam {02}
\zmchar {`]}                    \classclose  \mitfam {87}
\definemathdelimiter {`]}       \classord    \mitfam {87} \mexfam {03}

\zmchar \angle                  \classord    \msyfam {8B}
\zmchar \bowtie                 \classrel    \mitfam {F6}
\zmchar \cong                   \classrel    \msyfam {9B}
\zmchar \doteq                  \classrel    \msyfam {C9}
\zmchar \models                 \classrel    \msyfam {EE}

  \if \zusemar
\zmchar \hbar                   \classord   \mitfam {9D}
\zmchar \hookleftarrow          \classrel   \marfam {3C}
\zmchar \hookrightarrow         \classrel   \marfam {3E}
\zmchar \leftrightharpoons      \classrel   \marfam {79}
\zmchar \mapsto                 \classrel   \marfam {2C}
\zmchar \neq                    \classrel   \marfam {94}
\zmchar \rightleftharpoons      \classrel   \marfam {7A}
  \fi

%                       New Math Characters
%                       --- ---- ----------


  \if \zusemar
\zmchar \notapprox              \classrel  \marfam {98}
\zmchar \notasymp               \classrel  \marfam {F3}
\zmchar \notcong                \classrel  \marfam {99}
\zmchar \noteq                  \classrel  \marfam {94}
\zmchar \notequiv               \classrel  \marfam {95}
\zmchar \notgeq                 \classrel  \marfam {9D}
\zmchar \notgreater             \classrel  \marfam {9B}
\zmchar \notin                  \classrel  \marfam {1D}
\zmchar \notleq                 \classrel  \marfam {9C}
\zmchar \notless                \classrel  \marfam {9A}
\zmchar \notmid                 \classrel  \marfam {F6}
\zmchar \notmodels              \classrel  \marfam {F9}
\zmchar \notni                  \classrel  \marfam {1F}
\zmchar \notparallel            \classrel  \marfam {F7}
\zmchar \notprec                \classrel  \marfam {E5}
\zmchar \notpreceq              \classrel  \marfam {E7}
\zmchar \notsim                 \classrel  \marfam {96}
\zmchar \notsimeq               \classrel  \marfam {97}
\zmchar \notsqsubseteq          \classrel  \marfam {D4}
\zmchar \notsqsupseteq          \classrel  \marfam {D5}
\zmchar \notsubset              \classrel  \marfam {C6}
\zmchar \notsubseteq            \classrel  \marfam {C8}
\zmchar \notsucc                \classrel  \marfam {E6}
\zmchar \notsucceq              \classrel  \marfam {E8}
\zmchar \notsupset              \classrel  \marfam {C7}
\zmchar \notsupseteq            \classrel  \marfam {C9}
\zmchar \notvdash               \classrel  \marfam {F8}
  \fi

%                       Redefine General Tools
%                       -------- ------- -----


\def \big #1{{\hbox{$\left#1\vbox to 8.2pt{}\right.\zmnosp$}}}
\def \Big #1{{\hbox{$\left#1\vbox to 10.8pt{}\right.\zmnosp$}}}
\def \bigg #1{{\hbox{$\left#1\vbox to 13.42pt{}\right.\zmnosp$}}}
\def \Bigg #1{{\hbox{$\left#1\vbox to 16.03pt{}\right.\zmnosp$}}}
\def \biggg #1{{\hbox{$\left#1\vbox to 17.72pt{}\right.\zmnosp$}}}
\def \Biggg #1{{\hbox{$\left#1\vbox to 21.25pt{}\right.\zmnosp$}}}

\def \bigggl {\mathopen\biggg}
\def \Bigggl {\mathopen\Biggg}
\def \bigggr {\mathclose\biggg}
\def \Bigggr {\mathclose\Biggg}

\def \joinrel {\mathrel{\mkern -4mu}}

\def \mathstrut {\vphantom{f}}

\def \matrix #1{%
  \null\nonscript\,%
  \vcenter{\normalbaselines
           \ialign{\hfil $##$\hfil&& \quad \hfil $##$\hfil \crcr
                   \mathstrut\crcr
                   \noalign{\kern -0.9\baselineskip}%
                   #1\crcr
                   \mathstrut\crcr
                   \noalign{\kern -0.9\baselineskip}}}%
  \nonscript\,}

\def \zroot #1#2{%                                      {\style}{radicand}
  \setbox\zboxa = \hbox{$#1\sqrt{#2}$}%
  \tdimena = \ht\zboxa
  \advance \tdimena by -\dp\zboxa
  \mkern 5mu \raise .6\tdimena \copy\zrootbox \mkern -8mu \box\zboxa}