blob: ce8c3efb36363cba9073a62673c0634b9ae5f987 (
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
|
%
% this is a substitute if the wasy fonts are missing
%
\font\tenwasy = lasy10
\font\wasyb = lasyb10
\font\ninewasy = lasy9
\font\eightwasy = lasy8
\font\sevenwasy = lasy7
\font\fivewasy = lasy5
\newfam\wasyfam
\newcount\wasyfamcount
\wasyfamcount=\wasyfam \multiply\wasyfamcount by 256
\def\wasy{\fam\wasyfam\tenwasy}
\textfont\wasyfam=\tenwasy
\scriptfont\wasyfam=\sevenwasy
\scriptscriptfont\wasyfam=\fivewasy
\let\wsl\sl \let\wbf\bf
%%%%%% special macro
\def\overstrike#1#2{{\setbox0\hbox{$#2$}\hbox to \wd0{\hss
$#1$\hss}\kern-\wd0\box0}}
%%%%%%%%%%%%%%%%%%%%%% <) angle
\def\varangle{\hbox{$<$\lower 0.5pt\hbox{\kern -0.5em\tt)}}}
%%%%%%%%%%%%%%%%%%%%%% < approx, > approx
\def\apprle{\mathrel{\mathpalette\buildover{<\sim {-1.15pt}{-0.25pt}}}}
\def\apprge{\mathrel{\mathpalette\buildover{>\sim {-1.15pt}{-0.25pt}}}}
\newdimen\buildraise\newdimen\buildspace
\def\buildover#1#2{\getargs#2\raise\buildraise\vbox{%
\resetall{\buildspace}\halign{$#1\hfil##\hfil$\crcr
\buildtop\crcr\buildbot\crcr}}}
\def\getargs#1#2#3#4{\def\buildtop{#1}\def\buildbot{#2}%
\global\buildraise=#3\global\buildspace=#4\relax}
\def\resetall#1{\mathsurround=0pt\everycr={}\tabskip=0pt
\baselineskip=0pt\lineskiplimit=0pt\lineskip=#1}
%%%%%%%%%%%%%%%%%%%%%% >O<
\def\currency{\hbox{\tt\kern -1.0pt
\lower 4.4pt\hbox to 0pt{\char"13\hss}%
\lower 1.3pt\hbox to 0pt{\kern 0.82pt\char"12\hss}%
\kern 2.9pt{\tensy\char"0E}\kern -3.3pt%
\lower 1.3pt\hbox to 0pt{\char"13\hss}%
\lower 4.4pt\hbox to 0pt{%
\kern 0.82pt\char"12\hss}\kern 4.2pt}}
\def\euro{\leavevmode\hbox{\kern 0.03em
\vrule height 0.7ex depth -0.6ex width 0.5em
\kern -0.47em
\vrule height 1.0ex depth -0.9ex width 0.5em
\kern -0.5em C}}
\def\z{{\teni 3}}
%%%%%%%%%%%%%%%%%%%%%%
\def\clock{\hbox{\kern 1pt
\vrule width 0.4pt height 3.6pt depth -1.2pt
\vrule width 0.4pt height 1.2pt depth -0.8pt\kern -0.4pt
\vrule width 0.4pt height 4.0pt depth -3.6pt
\vrule width 0.4pt height 0.8pt depth -0.4pt\kern -0.4pt
\vrule width 0.4pt height 4.4pt depth -4.0pt
\vrule width 2.4pt height 0.4pt depth 0.0pt\kern -2.4pt
\vrule width 2.4pt height 4.8pt depth -4.4pt\kern -1.4pt
\vrule width 0.4pt height 3.6pt depth -2.2pt
\vrule width 1.0pt height 2.6pt depth -2.2pt
\vrule width 0.4pt height 0.8pt depth -0.4pt\kern -0.4pt
\vrule width 0.4pt height 4.4pt depth -4.0pt
\vrule width 0.4pt height 1.2pt depth -0.8pt\kern -0.4pt
\vrule width 0.4pt height 4.0pt depth -3.6pt
\vrule width 0.4pt height 3.6pt depth -1.2pt
\kern 1pt}}
%%%%%%%%%%%%%%%%%%%%%% bell
\def\bell{\hbox{\kern 1pt
\vrule width 0.8pt height 0.8pt depth 0pt
\vrule width 1.0pt height 4.5pt depth 0pt
\vrule width 0.8pt height 5.3pt depth 0.8pt
\vrule width 1.0pt height 4.5pt depth 0pt
\vrule width 0.8pt height 0.8pt depth 0pt
\kern 1pt}}
%%%%%%%%%%%%%%%%%%%%%% note
\def\eighthnote{\hbox{\kern 0.5pt\lower 0.2pt
\hbox{\sevensy\char"0F\kern -0.9pt}%
\vrule width 0.2pt height 6.8pt depth -1.4pt
\raise 0.8pt\hbox{\tt\kern -1.3pt\char"12}\kern -1pt}}
%%%%%%%%%%%%%%%%%%%%%%
\def\phone{\hbox{Tel.}}
\def\Box{\hbox{\wasy\char"32}}\let\Square\Box
\def\Diamond{\hbox{\wasy\char"33}}
\def\RIGHTarrow{{\wasy\char"03}}
\def\LEFTarrow{{\wasy\char"01}}
%%%%%%%%%%%%%%%%%%%%%%
\def\notbackslash{\overstrike{\backslash}{-}}
\def\notslash{\overstrike{/}{-}}
\def\APLnot#1{\overstrike{\sim}{#1}}
\def\APLcirc#1{\overstrike{\circ}{#1}}
\def\APLvert#1{\overstrike{\vert}{#1}}
\def\APLminus{\raise0.7ex\hbox{$-$}}
\def\diameter{\overstrike{\circ}{/}}
%%%%%%%%%%%%%%%%%%%%%%
\def\AC{\hbox{\kern0.5pt\wasy\char"3A\kern0.5pt}}
\def\HF{\lower0.9pt\hbox to 0pt{\kern0.5pt\wasy\char"3A\hss}%
\raise0.9pt\hbox{\kern0.5pt\wasy\char"3A\kern0.5pt}}
\def\VHF{\lower1.7pt\hbox to 0pt{\kern0.5pt\wasy\char"3A\hss}%
\hbox to 0pt{\kern0.5pt\wasy\char"3A\kern0.5pt\hss}%
\raise1.7pt\hbox{\kern0.5pt\wasy\char"3A\kern0.5pt}}
%%%%%%%%%%%%%%%%%%%%%%
\def\iint{\int\mkern -2mu\int}
\def\iiint{\int\mkern -2mu\int\mkern -2mu\int}
%%%%%% math characters
\def\Bowtie{\hbox{\wasy\char"31}}
%%%%%% special characters
\def\permil{\ifmmode{^0\!{/}\!{}_{00}}\else$^0\!{/}\!{}_{00}$\fi}
\def\agemO{{\wasy\char"30}}
\def\Dh{\leavevmode{\setbox0\hbox{D}%
\hbox to\wd0{\kern 0.04em\char32\hss D}}}
\def\cent{\overstrike/{\rm c}}
\def\thorn{\overstrike{\rm b}{\rm p}}
\def\astrosun{\hbox{\tensy\char"0C}}
\let\Paragraph\S
%%%%%% math operators as mathchars
\def\wasymathchardef#1#2{%
\count"FF=\wasyfamcount
\advance\count"FF by"#1
\mathchardef#2\count"FF}
\wasymathchardef{3001}{\lhd}
\wasymathchardef{3001}{\LHD}
\wasymathchardef{3003}{\rhd}
\wasymathchardef{3003}{\RHD}
\wasymathchardef{3002}{\unlhd}
\wasymathchardef{3004}{\unrhd}
\wasymathchardef{303C}{\sqsubset}
\wasymathchardef{303D}{\sqsupset}
\wasymathchardef{303B}{\leadsto}
%%%%%%%%%%%%%%%%%%%%%%
\let\newpropto\relax
\let\newint\relax
|
