blob: 0446926b92a0edbf90413a32a49c04deb56fd2f4 (
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
|
% Definitions and stuff for chemistry, equilibrium symbols :
% \eqbm -- unlabeled equilibrium (longer than harpoons)
% \eqbmlab~#1_#2 -- long equilibrium sign with forward (#1) and backward (#2)
% labels
% \yields -- long right arrow
% \yieldslab~#1 -- `` `` `` with a label above (#1)
% To typeset chemical equations,
% type \rm just after the $ or $$. Also, when using \eq}align or
% \eq}aligno, type \cr\rm wherever you would normally type \cr.
% The labels on \eq}bmlab and \yieldslab come out in italic automatically
% (use \rm to get roman). Elsewhere, italicize variables like K_W or N_0
% using \cit.
%
\def\cit{\fam=-1} \% Chemistry ITalic
\def\longrharpup{\relbar\joinrel\rightharpoonup}
\def\longlharpdn{\leftharpoondown\joinrel\relbar}
\def\rlPOON#1{\vcenter{\hbox{\ooalign{\raise2.3pt
\hbox{$#1\longrharpup$}\crcr $#1\longlharpdn$}}}}
\def\eqbm{\mathrel{\mathpalette\rlPOON{}}\rm}
\def\eqbmlab#1_#2{\mathrel{\mathop{\eqbm}\limits~{#1}_{#2}}\rm}
\def\yields{\longrightarrow\rm}
\def\yieldslab~#1{\mathrel{\mathop{\longrightarrow}\limits~{#1}} \rm}
$$A\eqbm B$$
$$A\eqbmlab A_B$$
$$A\yieldslab~x$$
\bye
\fontdimen16\twelvesymboltext=3.24pt
\fontdimen17\twelvesymboltext=3.24pt
\fontdimen16\twelvesymbolscript=2.65pt
\fontdimen17\twelvesymbolscript=2.65pt
|