summaryrefslogtreecommitdiff
path: root/info/examples/ltt/echem.sty
diff options
context:
space:
mode:
Diffstat (limited to 'info/examples/ltt/echem.sty')
-rw-r--r--info/examples/ltt/echem.sty81
1 files changed, 81 insertions, 0 deletions
diff --git a/info/examples/ltt/echem.sty b/info/examples/ltt/echem.sty
new file mode 100644
index 0000000000..1e1bd08fe0
--- /dev/null
+++ b/info/examples/ltt/echem.sty
@@ -0,0 +1,81 @@
+% ECHEM.STY
+\RequirePackage{calc}
+
+\newsavebox{\cbox}
+
+% Symbol fuer einzelnes Elektron
+\newcommand{\echdot}
+{{\unitlength=.08\baselineskip%
+ \begin{picture}(0,0)
+ \put(0,0){\circle*{2}}
+ \end{picture}}}
+% liegender Balken fuer Elektronenpaar
+\newcommand{\echhbar}
+{{\unitlength=.08\baselineskip%
+ \linethickness{0.8\unitlength}%
+ \begin{picture}(0,0)
+ \put(-3,0){\line(1,0){6}}
+ \end{picture}}}
+% aufrechter Balken fuer Elektronenpaar
+\newcommand{\echvbar}
+{{\unitlength=.08\baselineskip%
+ \linethickness{0.8\unitlength}%
+ \begin{picture}(2,0)(-1,0)
+ \put(0,-3){\line(0,1){6}}
+ \end{picture}}}
+
+% die horizontalen Symbole (upper und lower)
+\newcommand{\hdu}[2][\echdot]
+{\sbox{\cbox}{#2}%
+ \makebox[0pt][l]{\raisebox{1.3\ht\cbox}
+ {\makebox[\wd\cbox]{#1}}}%
+}
+\newcommand{\hddu}[1]
+{\sbox{\cbox}{#1}%
+ \makebox[0pt][l]{\raisebox{1.3\ht\cbox}
+ {\makebox[\wd\cbox]
+ {\echdot\hspace*{0.6\ht\cbox}\echdot}}}%
+}
+\newcommand{\hdl}[2][\echdot]
+{\sbox{\cbox}{#2}%
+ \makebox[0pt][l]{\raisebox{-\dp\cbox-0.3\ht\cbox}
+ {\makebox[\wd\cbox]{#1}}}%
+}
+\newcommand{\hddl}[1]
+{\sbox{\cbox}{#1}%
+ \makebox[0pt][l]{\raisebox{-\dp\cbox-0.3\ht\cbox}
+ {\makebox[\wd\cbox]
+ {\echdot\hspace*{0.6\ht\cbox}\echdot}}}%
+}
+
+% die vertikalen Symbole
+\newcommand{\vd}[2][\echdot]
+{\sbox{\cbox}{#2}\hspace*{0.1\ht\cbox}%
+ \raisebox{0.5\ht\cbox}{#1}%
+ \hspace*{0.1\ht\cbox}%
+}
+\newcommand{\vdd}[1]
+{\sbox{\cbox}{#1}\hspace*{0.1\ht\cbox}%
+ \makebox[0pt][l]{\raisebox{0.2\ht\cbox}{\echdot}}%
+ \raisebox{0.8\ht\cbox}{\echdot}%
+ \hspace*{0.1\ht\cbox}%
+}
+
+% liegende eckige Klammer unten
+\newcommand{\atomconnect}[3]
+{\sbox{\cbox}{#1#2#3}%
+ \makebox[0pt][l]%
+ {\raisebox{-\dp\cbox-.5em}[0pt][1em]%
+ {\makebox[\wd\cbox][l]{%
+ \sbox{\cbox}{#1}\hspace{.5\wd\cbox}%
+ \rule{0.5pt}{0.5em}\hrulefill\rule{0.5pt}{0.5em}%
+ \sbox{\cbox}{#3}\hspace{.5\wd\cbox}}%
+ }}%
+ #1#2#3}
+
+% einige hilfreiche Abk"urzungen
+\newcommand{\2}{\ensuremath{_2}}
+\renewcommand{\3}{\ensuremath{_3}}
+\newcommand{\sbond}{\,\ensuremath{\cdot}\,}
+\newcommand{\dbond}{\,=\,}
+