summaryrefslogtreecommitdiff
path: root/Master/texmf-dist/source/latex/xymtex/base/lewisstruc.dtx
diff options
context:
space:
mode:
Diffstat (limited to 'Master/texmf-dist/source/latex/xymtex/base/lewisstruc.dtx')
-rw-r--r--Master/texmf-dist/source/latex/xymtex/base/lewisstruc.dtx1242
1 files changed, 1242 insertions, 0 deletions
diff --git a/Master/texmf-dist/source/latex/xymtex/base/lewisstruc.dtx b/Master/texmf-dist/source/latex/xymtex/base/lewisstruc.dtx
new file mode 100644
index 00000000000..c09cf229bb1
--- /dev/null
+++ b/Master/texmf-dist/source/latex/xymtex/base/lewisstruc.dtx
@@ -0,0 +1,1242 @@
+% \iffalse meta-comment
+%% File: lewisstruc.dtx
+%
+% Copyright 2009, 2010, 2013 by Shinsaku Fujita
+%
+% This file is part of XyMTeX system.
+% -------------------------------------
+%
+% This file (lewisstruc.sty) is a successor to:
+%
+% %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
+% \typeout{XyMTeX for Drawing Chemical Structural Formulas. Version 1.00}
+% \typeout{ -- Released December 1, 1993 by Shinsaku Fujita}
+% Copyright (C) 1993 by Shinsaku Fujita, all rights reserved.
+%
+% This file is a part of the macro package ``XyMTeX'' which has been
+% designed for typesetting chemical structural formulas.
+%
+% This file is to be contained in the ``xymtex'' directory which is
+% an input directory for TeX. It is a LaTeX optional style file and
+% should be used only within LaTeX, because several macros of the file
+% are based on LaTeX commands.
+%
+% For the review of XyMTeX, see
+% (1) Shinsaku Fujita, ``Typesetting structural formulas with the text
+% formatter TeX/LaTeX'', Computers and Chemistry, in press.
+% The following book deals with an application of TeX/LaTeX to
+% preparation of manuscripts of chemical fields:
+% (2) Shinsaku Fujita, ``LaTeX for Chemists and Biochemists''
+% Tokyo Kagaku Dozin, Tokyo (1993) [in Japanese].
+%
+% This work may be distributed and/or modified under the
+% conditions of the LaTeX Project Public License, either version 1.3
+% of this license or (at your option) any later version.
+% The latest version of this license is in
+% http://www.latex-project.org/lppl.txt
+% and version 1.3 or later is part of all distributions of LaTeX
+% version 2005/12/01 or later.
+%
+% This work has the LPPL maintenance status `maintained'.
+% The Current Maintainer of this work is Shinsaku Fujita.
+%
+% This work consists of the files lewisstruc.dtx and lewisstruc.ins
+% and the derived file lewisstruc.sty.
+%
+% Please report any bugs, comments, suggestions, etc. to:
+% Shinsaku Fujita,
+% Shonan Institute of Chemoinformatics and Mathematical Chemistry
+% Kaneko 479-7 Ooimachi, Ashigara-Kami-Gun, Kanagawa 250-0019 Japan
+% %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
+% \def\j@urnalname{lewisstruc}
+% \def\versi@ndate{November 03, 2009}
+% \def\versi@nno{ver1.00}
+% \def\copyrighth@lder{SF}% Shinsaku Fujita
+% %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
+% \def\j@urnalname{lewisstruc}
+% \def\versi@ndate{October 01, 2010}
+% \def\versi@nno{ver5.00}
+% \def\copyrighth@lder{SF} % Shinsaku Fujita
+% %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
+%
+% \fi
+%
+% \CheckSum{1697}
+%% \CharacterTable
+%% {Upper-case \A\B\C\D\E\F\G\H\I\J\K\L\M\N\O\P\Q\R\S\T\U\V\W\X\Y\Z
+%% Lower-case \a\b\c\d\e\f\g\h\i\j\k\l\m\n\o\p\q\r\s\t\u\v\w\x\y\z
+%% Digits \0\1\2\3\4\5\6\7\8\9
+%% Exclamation \! Double quote \" Hash (number) \#
+%% Dollar \$ Percent \% Ampersand \&
+%% Acute accent \' Left paren \( Right paren \)
+%% Asterisk \* Plus \+ Comma \,
+%% Minus \- Point \. Solidus \/
+%% Colon \: Semicolon \; Less than \<
+%% Equals \= Greater than \> Question mark \?
+%% Commercial at \@ Left bracket \[ Backslash \\
+%% Right bracket \] Circumflex \^ Underscore \_
+%% Grave accent \` Left brace \{ Vertical bar \|
+%% Right brace \} Tilde \~}
+%
+% \setcounter{StandardModuleDepth}{1}
+%
+% \StopEventually{}
+% \MakeShortVerb{\|}
+%
+% \iffalse
+% \changes{v1.00}{2009/11/03}{first edition for LaTeX2e}
+% \changes{v5.00}{2010/10/01}{the LaTeX Project Public License}
+% \changes{v5.01}{2013/08/02}{bug fix}
+% \fi
+%
+% \iffalse
+%<*driver>
+\NeedsTeXFormat{pLaTeX2e}
+% \fi
+\ProvidesFile{lewisstruc.dtx}[2013/08/02 v5.01 lewisstruc package file]
+% \iffalse
+\documentclass{ltxdoc}
+\GetFileInfo{lewisstruc.dtx}
+%
+% %%XyMTeX Logo: Definition 2%%%
+\def\UPSILON{\char'7}
+\def\XyM{X\kern-.30em\smash{%
+\raise.50ex\hbox{\UPSILON}}\kern-.30em{M}}
+\def\XyMTeX{\XyM\kern-.1em\TeX}
+% %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
+\title{Lewis Structures by {\sffamily lewisstruc.sty}
+(\fileversion) of \XyMTeX{}}
+\author{Shinsaku Fujita \\
+Shonan Institute of Chemoinformatics and
+Mathematical Chemistry \\
+Kanagawa, 258-0019 Japan
+}
+\date{\filedate}
+%
+\begin{document}
+ \maketitle
+ \DocInput{lewisstruc.dtx}
+\end{document}
+%</driver>
+% \fi
+%
+% \section{Introduction}\label{lewisstruc:intro}
+%
+% \subsection{Options for {\sffamily docstrip}}
+%
+% \DeleteShortVerb{\|}
+% \begin{center}
+% \begin{tabular}{|l|l|}
+% \hline
+% \emph{option} & \emph{function}\\ \hline
+% lewisstruc & lewisstruc.sty \\
+% driver & driver for this dtx file \\
+% \hline
+% \end{tabular}
+% \end{center}
+% \MakeShortVerb{\|}
+%
+% \subsection{Version Information}
+%
+% \begin{macrocode}
+%<*lewisstruc>
+\typeout{Part of XyMTeX for Drawing Chemical Structural Formulas. Version 5.01}
+\typeout{ -- Released August 02, 2013 by Shinsaku Fujita}
+% %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
+\def\j@urnalname{lewisstruc}
+\def\versi@ndate{August 02, 2013}
+\def\versi@nno{ver5.01}
+\def\copyrighth@lder{SF} % Shinsaku Fujita
+% %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
+\typeout{XyMTeX Macro File `\j@urnalname' (\versi@nno) <\versi@ndate>%
+\space[\copyrighth@lder]}
+% \end{macrocode}
+%
+% The definition of the macro \verb/\LewisTetrahedralA/ uses the command
+% \verb/\tetrahedral/ defined in the \textsf{aliphat} package of
+% the \XyMTeX{} system.
+%
+% \begin{macrocode}
+\RequirePackage{aliphat}
+%\@ifundefined{tetrahedral}{\input aliphat.sty\relax}{}
+% \end{macrocode}
+%
+% \section{Basic Macros}
+% \subsection{Lone Pairs}
+%
+% \begin{macro}{\dotnodimension}
+% A basic command \verb/\dotnodimension/ is used to draw a dot (an electron).
+% \begin{macrocode}
+\def\dotnodimension{\smash{\hbox to0pt{\hss.\hss}}}
+% \end{macrocode}
+% \end{macro}
+%
+% \begin{macro}{\verticalpair}
+% The command \verb/\verticalpair/ is used to draw a vertical lone pair.
+% \begin{macro}{\horizontalpair}
+% The command \verb/\horizontalpair/ is used to draw a vertical lone pair.
+% \begin{macrocode}
+\def\verticalpair{\vbox{%
+\dotnodimension
+\nointerlineskip
+\kern0.3em
+\dotnodimension}}
+\def\horizontalpair{%
+\hbox{\dotnodimension\kern0.3em\dotnodimension}}
+% \end{macrocode}
+% \end{macro}
+% \end{macro}
+%
+% \begin{macro}{\nwlonepair}
+% The command \verb/\nwlonepair/ is used to draw a lone pair located at
+% the northwest position.
+% \begin{macro}{\selonepair}
+% The command \verb/\selonepair/ is used to draw a lone pair at
+% the southest posistion.
+% \begin{macro}{\swlonepair}
+% The command \verb/\swlonepair/ is used to draw a lone pair at
+% the southwest position.
+% \begin{macro}{\nelonepair}
+% The command \verb/\nelonepair/ is used to draw a lone pair at
+% the northeast position.
+% \begin{macrocode}
+\def\nwlonepair{%
+\vtop{\hbox to0.21em{\hss\dotnodimension}%
+\nointerlineskip
+\kern0.21em
+\hbox to0.21em{\dotnodimension\hss}%
+}}
+\def\selonepair{%
+\vbox{\hbox to0.21em{\hss\dotnodimension}%
+\nointerlineskip
+\kern0.21em
+\hbox to0.21em{\dotnodimension\hss}%
+}}
+\def\swlonepair{%
+\vbox{\hbox to0.21em{\dotnodimension\hss}%
+\nointerlineskip
+\kern0.21em
+\hbox to0.21em{\hss\dotnodimension}%
+}}
+\def\nelonepair{%
+\vtop{\hbox to0.21em{\dotnodimension\hss}%
+\nointerlineskip
+\kern0.21em
+\hbox to0.21em{\hss\dotnodimension}%
+}}
+% \end{macrocode}
+% \end{macro}
+% \end{macro}
+% \end{macro}
+% \end{macro}
+%
+% \begin{macro}{\LewisSbond}
+% The command \verb/\LewisSbond/ is used to draw a vertical lone pair
+% used in a horizontal position. For example, \verb/H\LewisSbond H/
+% outputs H:H for representing a hydrogen molecule.
+% \begin{macrocode}
+\def\LewisSbond{\raise0.12em\hbox to0.25em{\hss\verticalpair\hss}}
+% \end{macrocode}
+% \end{macro}
+%
+% \begin{macro}{\overpair}
+% The command \verb/\overpair/ is used to draw a horizontal lone pair
+% at the head of an atom specified by its argument.
+% \begin{macro}{\underpair}
+% The command \verb/\underpair/ is used to draw a horizontal lone pair
+% under an atom specified by its argument.
+% \begin{macrocode}
+\def\overpair#1{\leavevmode\setbox0=\hbox{#1}%
+\vbox{\hbox to\wd0{\hss\horizontalpair\hss}%
+\nointerlineskip\kern0.08em
+\box0}}
+\def\underpair#1{\leavevmode\setbox0=\hbox{#1}%
+\dimen0=\wd0
+\vbox to\ht0{\box0
+\nointerlineskip
+\hbox{\vbox to0pt{\kern0.2em
+\hbox to\dimen0{\hss\horizontalpair\hss}\vss}}%
+\vss}}%bug fix 2013/08/02 \vss added
+% \end{macrocode}
+% \end{macro}
+% \end{macro}
+%
+% \subsection{Atoms Linked by a Lewis Bond}
+%
+% An atom (\verb/OverAtom/) which is attached to the top of an atom (\verb/BaseAtom/)
+% through a Lewis bond is drawn by the following \verb/\overpairover/ command.
+%
+% \begin{verbatim}
+% \overpairover{BaseAtom}{OverAtom}
+% \end{verbatim}
+%
+% \begin{macro}{\overpairover}
+% \begin{macrocode}
+\def\overpairover#1#2{\leavevmode\setbox0=\hbox{#1}%
+\edef\temp@@a{#2}%
+\dimen0=\wd0%
+\ifx\temp@@a\empty\box0\else%
+\vbox{%
+\hbox to\dimen0{\hss#2\hss}%
+\nointerlineskip\kern0.2em
+\hbox to\dimen0{\hss\horizontalpair\hss}%
+\nointerlineskip\kern0.08em
+\hbox{\box0}}\fi}
+% \end{macrocode}
+% \end{macro}
+%
+% An atom (\verb/UnderAtom/) which is attached to the bottom of an atom (\verb/BaseAtom/)
+% through a Lewis bond is drawn by the following \verb/\overpairover/ command.
+%
+% \begin{verbatim}
+% \underpairunder{BaseAtom}{UnderAtom}
+% \end{verbatim}
+%
+% \begin{macro}{\underpairunder}
+% \begin{macrocode}
+\def\underpairunder#1#2{\leavevmode\setbox0=\hbox{#1}%
+\edef\temp@@a{#2}%
+\dimen0=\wd0\dimen1=\ht0
+\ifx\temp@@a\empty\box0\else%
+\vbox to\dimen1{\hbox{\box0}%
+\nointerlineskip
+\hbox{\vbox to0pt{\kern0.18em
+\hbox to\dimen0{\hss\horizontalpair\hss}%
+\nointerlineskip\kern0.08em
+\hbox to\dimen0{\hss#2\hss}%
+\vss}}%
+\vss}\fi}%bug fix2013/08/02
+% \end{macrocode}
+% \end{macro}
+%
+%
+% An atom (\verb/NWAtom/) which is attached to the northwest of an atom (\verb/BaseAtom/)
+% through a Lewis bond is drawn by the following \verb/\leftlonepairover/ command.
+%
+% \begin{verbatim}
+% \leftlonepairover{BaseAtom}{NWAtom}
+% \end{verbatim}
+%
+% \begin{macro}{\leftlonepairover}
+% \begin{macrocode}
+\def\leftlonepairover#1#2{\leavevmode%
+\edef\temp@@{#2}%
+\ifx\temp@@\empty#1\else
+\hbox to0pt{\hss\raise0.9em\hbox{#2}\kern-0.05em\raise0.8em\hbox{\nwlonepair}\kern-0.1em}#1\fi}
+% \end{macrocode}
+% \end{macro}
+%
+% An atom (\verb/NEAtom/) which is attached to the northeast of an atom (\verb/BaseAtom/)
+% through a Lewis bond is drawn by the following \verb/\rightlonepairover/ command.
+%
+% \begin{verbatim}
+% \rightlonepairover{BaseAtom}{NEAtom}
+% \end{verbatim}
+%
+% \begin{macro}{\rightlonepairover}
+% \begin{macrocode}
+\def\rightlonepairover#1#2{\leavevmode%
+#1%
+\edef\temp@@{#2}%
+\ifx\temp@@\empty\else
+\hbox to0pt{\kern-0.1em\raise0.8em\hbox{\nelonepair}\kern-0.05em%
+\raise0.9em\hbox{#2}\hss}\fi}
+% \end{macrocode}
+% \end{macro}
+%
+% An atom (\verb/SWAtom/) which is attached to the southwest of an atom (\verb/BaseAtom/)
+% through a Lewis bond is drawn by the following \verb/\leftlonepairunder/ command.
+%
+% \begin{verbatim}
+% \leftlonepairunder{BaseAtom}{NEAtom}
+% \end{verbatim}
+%
+% \begin{macro}{\leftlonepairunder}
+% \begin{macrocode}
+\def\leftlonepairunder#1#2{\leavevmode%
+\edef\temp@@{#2}%
+\ifx\temp@@\empty#1\else
+\hbox to0pt{\hss\lower0.9em\hbox{#2}\kern-0.05em%
+\lower0.2em\hbox{\swlonepair}\kern-0.1em}#1\fi}
+% \end{macrocode}
+% \end{macro}
+%
+% An atom (\verb/SEAtom/) which is attached to the southeast of an atom (\verb/BaseAtom/)
+% through a Lewis bond is drawn by the following \verb/\rightlonepairunder/ command.
+%
+% \begin{verbatim}
+% \rightlonepairunder{BaseAtom}{SEAtom}
+% \end{verbatim}
+%
+% \begin{macro}{\rightlonepairunder}
+% \begin{macrocode}
+\def\rightlonepairunder#1#2{\leavevmode%
+#1%
+\edef\temp@@{#2}%
+\ifx\temp@@\empty\else
+\hbox to0pt{\kern-0.1em\lower0.2em\hbox{\selonepair}\kern-0.05em%
+\lower0.9em\hbox{#2}\hss}\fi}
+% \end{macrocode}
+% \end{macro}
+%
+%
+% Atoms (W, X, Y, and Z) which are attached to a central atom (A)
+% through Lewis bonds are drawn by the following \verb/\LewistetrahedralA/ command.
+%
+% \begin{verbatim}
+% \LewistetrahedralA{0==A;1==W;2==X;3==Y;4==Z}
+% \end{verbatim}
+%
+% \begin{verbatim}
+% 1
+% W
+% :
+% 4 Z : A : X 2
+% :
+% Y
+% 3
+% \end{verbatim}
+%
+% Each of the atoms can be omitted.
+%
+% \begin{macro}{\LewistetrahedralA}
+% \begin{macrocode}
+\def\LewistetrahedralA#1{\begingroup%
+\let\temp@a=\empty%
+\let\temp@b=\empty%
+\let\temp@c=\empty%
+\let\temp@d=\empty%
+\let\temp@e=\empty%
+\@forsemicol\member:=#1\do{%
+\ifx\member\empty\else
+\expandafter\@m@mb@r\member;\relax%
+\expandafter\threech@r\@membera{}{}%
+\ifx\@memberb\@yl\else
+\ifcase\@tmpa \edef\temp@a{\@memberb}%central atom
+\or\edef\temp@b{\@memberb}%
+\or\edef\temp@c{\@memberb}%
+\or\edef\temp@d{\@memberb}%
+\or\edef\temp@e{\@memberb}%
+\fi%end of ifcase
+\fi\fi
+}%
+\leavevmode%
+\ifx\temp@e\empty
+\ifx\temp@c\empty
+\underpairunder{\overpairover{\temp@a}{\temp@b}}{\temp@d}%
+\else%c not empty
+\underpairunder{\overpairover{\temp@a}{\temp@b}}{\temp@d}%
+\LewisSbond\temp@c
+\fi
+\else%e not empty
+\ifx\temp@c\empty
+\temp@e\LewisSbond\underpairunder{\overpairover{\temp@a}{\temp@b}}{\temp@d}%
+\else
+\temp@e\LewisSbond\underpairunder{\overpairover{\temp@a}{\temp@b}}{\temp@d}%
+\LewisSbond\temp@c
+\fi\fi
+\endgroup
+}
+% \end{macrocode}
+% \end{macro}
+%
+% Atoms (W, X, Y, and Z) which are attached to a central atom (A)
+% through Lewis bonds are drawn by the following \verb/\LewistetrahedralB/ command.
+%
+% \begin{verbatim}
+% \LewistetrahedralB{0==A;1==W;2==X;3==Y;4==Z}
+% \end{verbatim}
+%
+% \begin{verbatim}
+%
+% 4 Z W 1
+% : :
+% A
+% : :
+% 3 Y X 2
+%
+% \end{verbatim}
+%
+% Each of the atoms can be omitted.
+%
+% \begin{macro}{\LewistetrahedralB}
+% \begin{macrocode}
+\def\LewistetrahedralB#1{\begingroup%
+\let\temp@a=\empty%
+\let\temp@b=\empty%
+\let\temp@c=\empty%
+\let\temp@d=\empty%
+\let\temp@e=\empty%
+\@forsemicol\member:=#1\do{%
+\ifx\member\empty\else
+\expandafter\@m@mb@r\member;\relax%
+\expandafter\threech@r\@membera{}{}%
+\ifx\@memberb\@yl\else
+\ifcase\@tmpa \edef\temp@a{\@memberb}%central atom
+\or\edef\temp@b{\@memberb}%
+\or\edef\temp@c{\@memberb}%
+\or\edef\temp@d{\@memberb}%
+\or\edef\temp@e{\@memberb}%
+\fi%end of ifcase
+\fi\fi
+}%
+\leavevmode%
+\rightlonepairover{%
+\leftlonepairover{\leftlonepairunder{%
+\rightlonepairunder{\temp@a}{\temp@c}}{\temp@d}}{\temp@e}}{\temp@b}%
+\endgroup}
+% \end{macrocode}
+% \end{macro}
+%
+% \subsection{Lone Pairs around an Atom}
+%
+% Four lone pairs which are attached to a central atom (A)
+% are drawn by the following \verb/\lonepairAitoiv/ command,
+% where each of the top four argumets takes 0 (absence) or 1 (presence) for
+% representing the absence or presece of a lone pair. The larst argument
+% represents the central atom.
+%
+% \begin{verbatim}
+% \lonepairAitoiv{0 or 1}{0 or 1}{0 or 1}{0 or 1}{A}
+% \end{verbatim}
+%
+% \begin{verbatim}
+% 1
+% :
+% 4 : A : 2
+% :
+% 3
+% \end{verbatim}
+%
+% \begin{macro}{\lonepairAitoiv}
+% \begin{macrocode}
+\def\lonepairAitoiv#1#2#3#4#5{\leavevmode
+\begingroup\setbox0=\hbox{#5}%
+\dimen0=\ht0
+\dimen1=1.22\wd0%
+\setbox1=\hbox to\wd0{\hss%
+\smash{%\raise0.01em
+\hbox to\wd0{\hss%
+\ifnum#4=0\relax
+\phantom{\lower0.05em\hbox to0pt{\hss\vbox to\dimen0{\vss\verticalpair\vss}}}%
+\else
+\lower0.05em\hbox to0pt{\hss\vbox to\dimen0{\vss\verticalpair\vss}}%
+\fi%
+\lower0.2em\hbox{\vbox{\ifnum#1=0\relax
+\phantom{\hbox to\dimen1{\hss\horizontalpair\hss}}%
+\else
+\hbox to\dimen1{\hss\horizontalpair\hss}\fi%
+\nointerlineskip
+\kern0.08em
+\hbox to\dimen1{\hss#5\hss}%
+\nointerlineskip
+\kern0.2em
+\ifnum#3=0\relax
+\phantom{\hbox to\dimen1{\hss\horizontalpair\hss}}%
+\else
+\hbox to\dimen1{\hss\horizontalpair\hss}%
+\fi
+}}%
+\ifnum#2=0\relax
+\phantom{\lower0.05em\hbox to0pt{\vbox to\dimen0{\vss\verticalpair\vss}\hss}}%
+\else
+\lower0.05em\hbox to0pt{\vbox to\dimen0{\vss\verticalpair\vss}\hss}\fi%
+\hss}}\hss}%
+\wd1=\wd0 \ht1=\ht0\box1\endgroup}
+% \end{macrocode}
+% \end{macro}
+%
+% A common code for transforming a command to another command is
+% defined as the command \verb/\fromfourobjects/
+%
+% \begin{macro}{\fromfourobjects}
+% \begin{macrocode}
+\def\fromfourobjects#1#2{%
+\ifnum#1=1234\relax
+\TEMP@Command{1}{1}{1}{1}{#2}%
+\else\ifnum#1=123\relax
+\TEMP@Command{1}{1}{1}{0}{#2}%
+\else\ifnum#1=124\relax
+\TEMP@Command{1}{1}{0}{1}{#2}%
+\else\ifnum#1=134\relax
+\TEMP@Command{1}{0}{1}{1}{#2}%
+\else\ifnum#1=234\relax
+\TEMP@Command{0}{1}{1}{1}{#2}%
+\else\ifnum#1=12\relax
+\TEMP@Command{1}{1}{0}{0}{#2}%
+\else\ifnum#1=13\relax
+\TEMP@Command{1}{0}{1}{0}{#2}%
+\else\ifnum#1=14\relax
+\TEMP@Command{1}{0}{0}{1}{#2}%
+\else\ifnum#1=23\relax
+\TEMP@Command{0}{1}{1}{0}{#2}%
+\else\ifnum#1=24\relax
+\TEMP@Command{0}{1}{0}{1}{#2}%
+\else\ifnum#1=34\relax
+\TEMP@Command{0}{0}{1}{1}{#2}%
+\else\ifnum#1=1\relax
+\TEMP@Command{1}{0}{0}{0}{#2}%
+\else\ifnum#1=2\relax
+\TEMP@Command{0}{1}{0}{0}{#2}%
+\else\ifnum#1=3\relax
+\TEMP@Command{0}{0}{1}{0}{#2}%
+\else\ifnum#1=4\relax
+\TEMP@Command{0}{0}{0}{1}{#2}%
+\else
+\TEMP@Command{1}{1}{1}{1}{#2}%
+\fi\fi\fi\fi\fi
+\fi\fi\fi\fi\fi
+\fi\fi\fi\fi\fi}
+% \end{macrocode}
+% \end{macro}
+%
+% The command \verb/\lonepairAitoiv/ is converted into
+% the command \verb/\lonepairA/, where four lone pairs are
+% specified by a set of numbers 1234, 234, etc as an optional
+% argument. The main argument specifies a central atom.
+%
+% \begin{verbatim}
+% \lonepairA[1234, etc.]{A}
+% \end{verbatim}
+%
+% \begin{verbatim}
+% 1
+% :
+% 4 : A : 2
+% :
+% 3
+% \end{verbatim}
+%
+% \begin{macro}{\lonepairA}
+% \begin{macrocode}
+\def\lonepairA{\@ifnextchar[{\l@nepairA}{\l@nepairA[1234]}}
+\def\l@nepairA[#1]#2{\leavevmode%
+\begingroup\let\TEMP@Command=\lonepairAitoiv%
+\fromfourobjects{#1}{#2}\endgroup}
+% \end{macrocode}
+% \end{macro}
+%
+% Four unpaired electron which are attached to a central atom (A)
+% are drawn by the following \verb/\tetraradical/ command,
+% where each of the top four argumets takes 0 (absence) or 1 (presence) for
+% representing the absence or presece of an unpaired electron. The larst argument
+% represents the central atom.
+%
+% \begin{verbatim}
+% \tetraradical{0 or 1}{0 or 1}{0 or 1}{0 or 1}{A}
+% \end{verbatim}
+%
+% \begin{verbatim}
+% 1
+% .
+% 4 . A . 2
+% .
+% 3
+% \end{verbatim}
+%
+% \begin{macro}{\chemradical}
+% \begin{macro}{\tetraradical}
+% \begin{macrocode}
+\def\chemradical{\hbox to0pt{\hss.\hss}}
+\def\tetraradical#1#2#3#4#5{\leavevmode\setbox0=\hbox{#5}%
+\dimen0=\ht0
+\dimen1=1.22\wd0%
+\setbox1=\hbox to\wd0{\hss%
+\smash{%\raise0.01em
+\hbox to\wd0{\hss%
+\ifnum#4=0\relax
+\phantom{\raise0.02em\hbox to0pt{\hss\vbox to\dimen0{\vss\chemradical\vss}}}%
+\else
+\raise0.02em\hbox to0pt{\hss\vbox to\dimen0{\vss\chemradical\vss}}%
+\fi%
+%\kern0pt
+\lower0.22em\hbox{\vbox{%
+\ifnum#1=0\relax
+\phantom{\hbox to\dimen1{\hss\chemradical\hss}}%
+\else
+\hbox to\dimen1{\hss\chemradical\hss}\fi%
+\nointerlineskip
+\kern0.08em
+\hbox to\dimen1{\hss#5\hss}%
+\nointerlineskip
+%\kern0.2em
+\kern0.12em
+\ifnum#3=0\relax
+\phantom{\hbox to\dimen1{\hss\chemradical\hss}}%
+\else
+\hbox to\dimen1{\hss\chemradical\hss}%
+\fi
+}}%
+%\kern0pt
+\ifnum#2=0\relax
+\phantom{\raise0.02em\hbox to0pt{\vbox to\dimen0{\vss\chemradical\vss}\hss}}%
+\else
+\raise0.02em\hbox to0pt{\vbox to\dimen0{\vss\chemradical\vss}\hss}\fi%
+\hss}}\hss}%
+\wd1=\wd0 \ht1=\ht0\box1}
+% \end{macrocode}
+% \end{macro}
+% \end{macro}
+%
+% The command \verb/\tetraradical/ is converted into
+% the command \verb/\chemradicalA/, where four unpaired electrons are
+% specified by a set of numbers 1234, 234, etc. as an optional
+% argument. The main argument specifies a central atom.
+%
+% \begin{verbatim}
+% \chemradicalA[1234, etc.]{A}
+% \end{verbatim}
+%
+% \begin{verbatim}
+% 1
+% .
+% 4 . A . 2
+% .
+% 3
+% \end{verbatim}
+%
+% \begin{macro}{\chemradicalA}
+% \begin{macrocode}
+\def\chemradicalA{\@ifnextchar[{\chemr@dicalA}{\chemr@dicalA[1234]}}
+\def\chemr@dicalA[#1]#2{\leavevmode
+\begingroup\let\TEMP@Command=\tetraradical%
+\fromfourobjects{#1}{#2}\endgroup}
+% \end{macrocode}
+% \end{macro}
+%
+% Four lone pairs which are attached to a central atom (A) in another mode
+% are drawn by the following \verb/\lonepairBitoiv/ command,
+% where each of the top four argumets takes 0 (absence) or 1 (presence) for
+% representing the absence or presece of a lone pair. The larst argument
+% represents the central atom.
+%
+% \begin{verbatim}
+% \lonepairBitoiv{0 or 1}{0 or 1}{0 or 1}{0 or 1}{A}
+% \end{verbatim}
+%
+% \begin{verbatim}
+% 4 1
+% : :
+% A
+% : :
+% 3 2
+% \end{verbatim}
+%
+% \begin{macro}{\lonepairBitoiv}
+% \begin{macrocode}
+\def\lonepairBitoiv#1#2#3#4#5{\begingroup\setbox0=\hbox{#5}%
+\dimen0=\ht0 \dimen1=1.22\wd0%
+\setbox1=\hbox to\wd0{\hss%
+\smash{\lower0.04em\hbox to0pt{%
+\hss\vbox to\dimen0{\vss%
+\ifnum#4=0\relax \phantom{\nwlonepair}\else
+\nwlonepair\fi%
+\nointerlineskip
+\kern0.45em
+\ifnum#3=0\relax \phantom{\swlonepair}\else
+\swlonepair\fi
+\vss}\kern-0.2em}%
+\hbox to\dimen1{\hss#5\hss}%
+\lower0.04em\hbox to0pt{\kern-0.22em%
+\vbox to\dimen0{\vss%
+\ifnum#1=0\relax \phantom{\nelonepair}\else
+\nelonepair\fi%
+\nointerlineskip
+\kern0.45em
+\ifnum#2=0\relax \phantom{\selonepair}\else
+\selonepair\fi\vss}\hss}%
+}\hss}%
+\ht1=\ht0\box1\endgroup}
+% \end{macrocode}
+% \end{macro}
+%
+% The command \verb/\lonepairBitoiv/ is converted into
+% the command \verb/\lonepairB/, where four lone pairs are
+% specified by a set of numbers 1234, 234, etc as an optional
+% argument. The main argument specifies a central atom.
+%
+% \begin{verbatim}
+% \lonepairB[1234, etc.]{A}
+% \end{verbatim}
+%
+% \begin{verbatim}
+% 4 1
+% : :
+% A
+% : :
+% 3 2
+% \end{verbatim}
+%
+% \begin{macro}{\lonepairB}
+% \begin{macrocode}
+\def\lonepairB{\@ifnextchar[{\l@nepairB}{\l@nepairB[1234]}}
+\def\l@nepairB[#1]#2{\leavevmode%
+\begingroup\let\TEMP@Command=\lonepairBitoiv%
+\fromfourobjects{#1}{#2}\endgroup}
+% \end{macrocode}
+% \end{macro}
+%
+% Four unpaired electron which are attached to a central atom (A) in an alternative mode
+% are drawn by the following \verb/\tetraradicalB/ command,
+% where each of the top four argumets takes 0 (absence) or 1 (presence) for
+% representing the absence or presece of an unpaired electron. The larst argument
+% represents the central atom.
+%
+% \begin{verbatim}
+% \tetraradicalB{0 or 1}{0 or 1}{0 or 1}{0 or 1}{A}
+% \end{verbatim}
+%
+% \begin{verbatim}
+% 4 1
+% . .
+% A
+% . .
+% 3 2
+% \end{verbatim}
+%
+% \begin{macro}{\tetraradicalB}
+% \begin{macrocode}
+\def\tetraradicalB#1#2#3#4#5{\setbox0=\hbox{#5}%
+\dimen0=\ht0 \dimen1=1.22\wd0%
+\setbox1=\hbox to\wd0{\hss%
+\smash{\lower0.009em\hbox to0pt{%
+\hss\vbox to\dimen0{\vss%
+\ifnum#4=0\relax \phantom{\chemradical}\else
+\chemradical\fi%
+\nointerlineskip
+\kern0.7em
+\ifnum#3=0\relax \phantom{\chemradical}\else
+\chemradical\fi
+\vss}\kern-0.05em}%
+\hbox to\dimen1{\hss#5\hss}%
+\lower0.009em\hbox to0pt{\kern-0.05em%
+\vbox to\dimen0{\vss%
+\ifnum#1=0\relax \phantom{\chemradical}\else
+\chemradical\fi%
+\nointerlineskip
+\kern0.7em
+\ifnum#2=0\relax \phantom{\chemradical}\else
+\chemradical\fi\vss}\hss}%
+}\hss}%
+\ht1=\ht0\box1}
+% \end{macrocode}
+% \end{macro}
+%
+% The command \verb/\tetraradicalB/ is converted into
+% the command \verb/\chemradicalB/, where four unpaired electrons are
+% specified by a set of numbers 1234, 234, etc. as an optional
+% argument. The main argument specifies a central atom.
+%
+% \begin{verbatim}
+% \chemradicalB[1234, etc.]{A}
+% \end{verbatim}
+%
+% \begin{verbatim}
+% 4 1
+% . .
+% A
+% . .
+% 3 2
+% \end{verbatim}
+%
+% \begin{macro}{\chemradicalA}
+% \begin{macrocode}
+\def\chemradicalB{\@ifnextchar[{\chemr@dicalB}{\chemr@dicalB[1234]}}
+\def\chemr@dicalB[#1]#2{\leavevmode
+\begingroup\let\TEMP@Command=\tetraradicalB%
+\fromfourobjects{#1}{#2}\endgroup}
+% \end{macrocode}
+% \end{macro}
+%
+% \section{Macros for Nested Structures}
+%
+% The macro \verb/\LewisTetrahedralA/ is defined as an extension of
+% \verb/\LewistetrahedralA/, where it supports a nestec structures.
+% As a basic function of \verb/\LewisTetrahedralA/,
+% atoms (W, X, Y, and Z) which are attached to a central atom (A)
+% through Lewis bonds are drawn by the following \verb/\LewisTetrahedralA/ command.
+%
+% \begin{verbatim}
+% \LewisTetrahedralA{0==A;1==W;2==X;3==Y;4==Z}
+% \end{verbatim}
+%
+% \begin{verbatim}
+% 1
+% W
+% :
+% 4 Z : A : X 2
+% :
+% Y
+% 3
+% \end{verbatim}
+%
+% Each of the atoms can be omitted. The argument of
+% of the macro \verb/\LewisTetrahedralA/ can accommodate a so-called (yl)-function,
+% which can draw a nested structure.
+%
+% \begin{macro}{\LewisTetrahedralA}
+% This macro is based on the definition of the macro \verb/\tetrahedral/
+% defined in the \textsf{aliphat} package.
+% \begin{macrocode}
+\def\LewisTetrahedralA{%
+\@ifnextchar[{\@LewisTetrahedralA[r}{\@LewisTetrahedralA[r]}}
+\def\@LewisTetrahedralA#1]#2{%
+\@ifnextchar<{\@@LewisTetrahedralA#1]{#2}}{\@@LewisTetrahedralA#1]{#2}<,,,>}}
+\def\@@LewisTetrahedralA#1]#2<#3,#4,#5,#6>{%
+\begingroup
+\let\Northbond=\Northlonepair
+\let\Southbond=\Southlonepair
+\let\Eastbond=\Eastlonepair
+\let\Westbond=\Westlonepair
+\let\yltetrahedralposition=\ylLewisTetrahedralAposition
+\@@tetrahedral#1]#2<#3,#4,#5,#6>%
+\endgroup
+\West@bondfalse
+\East@bondfalse
+}%end of macro LewisTetrahedralA
+% \end{macrocode}
+% \end{macro}
+%
+% Note that the innermacros \verb/\Northbond/ etc.\ used in the definition of \verb/\tetrahedral/
+% are replaced by \verb/\Northlonepair/ etc.
+%
+% \begin{macro}{\Northlonepair}
+% \begin{macrocode}
+\def\Northlonepair{%
+\@ifnextchar[{\N@rthlonepair}{\N@rthlonepair[]}}
+\def\N@rthlonepair[#1]{%
+ \if\@tmpb D\relax%
+ \put(0,60){\hbox to0pt{\hss\horizontalpair\hss}}%
+ \put(0,90){\hbox to0pt{\hss\horizontalpair\hss}}%
+ \putlratom{-40}{120}{\@memberb}%==1 upper substituent
+ \else\if\@tmpb T\relax%
+ \put(0,60){\hbox to0pt{\hss\horizontalpair\hss}}%
+ \put(0,90){\hbox to0pt{\hss\horizontalpair\hss}}%
+ \put(0,120){\hbox to0pt{\hss\horizontalpair\hss}}%
+ \putlratom{-40}{150}{\@memberb}%==1 upper substituent
+ \else\if\@tmpb N\relax%normal single bond
+ \Put@Line(0,52)(0,1){110}%
+ \putlratom{-40}{171}{\@memberb}%==1 upper substituent
+ \else
+ \put(0,60){\hbox to0pt{\hss\horizontalpair\hss}}%
+ \putlratom{-40}{90}{\@memberb}%==1 upper substituent
+ \fi\fi\fi%
+}
+% \end{macrocode}
+% \end{macro}
+%
+% \begin{macro}{\Southlonepair}
+% \begin{macrocode}
+\def\Southlonepair{%
+\@ifnextchar[{\S@uthlonepair}{\S@uthlonepair[]}}
+\def\S@uthlonepair[#1]{%
+ \if\@tmpb D\relax%
+ \put(0,-60){\hbox to0pt{\hss\horizontalpair\hss}}%
+ \put(0,-90){\hbox to0pt{\hss\horizontalpair\hss}}%
+ \putlratom{-40}{-180}{\@memberb}%==3 down substituent
+ \else\if\@tmpb T\relax%
+ \put(0,-60){\hbox to0pt{\hss\horizontalpair\hss}}%
+ \put(0,-90){\hbox to0pt{\hss\horizontalpair\hss}}%
+ \put(0,-120){\hbox to0pt{\hss\horizontalpair\hss}}%
+ \putlratom{-40}{-210}{\@memberb}%==3 down substituent
+ \else\if\@tmpb N\relax%normal single bond
+ \Put@Line(0,-48)(0,-1){110}%
+ \putlratom{-40}{-250}{\@memberb}%==1 upper substituent
+ \else
+ \put(0,-60){\hbox to0pt{\hss\horizontalpair\hss}}%
+ \putlratom{-40}{-150}{\@memberb}%==3 down substituent
+ \fi\fi\fi%
+}
+% \end{macrocode}
+% \end{macro}
+%
+% \begin{macro}{\Eastlonepair}
+% \begin{macrocode}
+\def\Eastlonepair{%
+\@ifnextchar[{\E@stlonepair}{\E@stlonepair[]}}
+\def\E@stlonepair[#1]{%
+ \if\@tmpb D\relax%
+ \put(60,-18){\hbox to0pt{\hss\verticalpair\hss}}%
+ \put(90,-18){\hbox to0pt{\hss\verticalpair\hss}}%
+ \putratom{120}{-33}{\@memberb}%==3 down substituent
+ \else\if\@tmpb T\relax%
+ \put(60,-18){\hbox to0pt{\hss\verticalpair\hss}}%
+ \put(90,-18){\hbox to0pt{\hss\verticalpair\hss}}%
+ \put(120,-18){\hbox to0pt{\hss\verticalpair\hss}}%
+ \putratom{150}{-33}{\@memberb}%==3 down substituent
+ \else\if\@tmpb N\relax%normal single bond
+ \Put@Line(50,0)(1,0){140}%
+ \putratom{190}{-33}{\@memberb}%==1 upper substituent
+ \else
+ \put(60,-18){\hbox to0pt{\hss\verticalpair\hss}}%
+ \putratom{90}{-33}{\@memberb}%==3 down substituent
+ \fi\fi\fi%
+}
+% \end{macrocode}
+% \end{macro}
+%
+% \begin{macro}{\Westlonepair}
+% \begin{macrocode}
+\def\Westlonepair{%
+\@ifnextchar[{\W@stlonepair}{\W@stlonepair[]}}
+\def\W@stlonepair[#1]{%
+ \if\@tmpb D\relax%
+ \put(-65,-18){\hbox to0pt{\hss\verticalpair\hss}}%
+ \put(-95,-18){\hbox to0pt{\hss\verticalpair\hss}}%
+ \putlatom{-120}{-33}{\@memberb}%==3 down substituent
+ \else\if\@tmpb T\relax%
+ \put(-65,-18){\hbox to0pt{\hss\verticalpair\hss}}%
+ \put(-95,-18){\hbox to0pt{\hss\verticalpair\hss}}%
+ \put(-125,-18){\hbox to0pt{\hss\verticalpair\hss}}%
+ \putlatom{-150}{-33}{\@memberb}%==3 down substituent
+ \else\if\@tmpb N\relax%normal single bond
+ \Put@Line(-50,0)(-1,0){140}%
+ \putlatom{-190}{-33}{\@memberb}%==1 upper substituent
+ \else
+ \put(-65,-18){\hbox to0pt{\hss\verticalpair\hss}}%
+ \putlatom{-90}{-33}{\@memberb}%==3 down substituent
+ \fi\fi\fi%
+}
+% \end{macrocode}
+% \end{macro}
+%
+% The macro \verb/\LewisTetrahedralA/ supports a (yl)-function, which
+% is based on the x,y-adjustment due to the \verb/\ylLewisTetrahedralAposition/,
+% which is defined in a similar way to \verb/\yltetrahedralposition/ used in
+% the definition of the macro \verb/\tetrahedral/. The original values are
+% left as commented lines in order to compare with the \textsf{aliphat} package
+% of the \XyMTeX{} system.
+%
+% \begin{macro}{\ylLewisTetrahedralAposition}
+% \begin{macrocode}
+\def\ylLewisTetrahedralAposition#1{%
+\@@ylswfalse%%%\@reset@ylsw
+\West@bondfalse
+\East@bondfalse
+\@forsemicol\member:=#1\do{%
+\if@@ylsw\else
+\ifx\member\empty\else
+\expandafter\@m@mb@r\member;\relax
+\expandafter\threech@r\@membera{}{}\relax
+\ifx\@memberb\@yl\relax\@@ylswtrue\else\@@ylswfalse\fi
+\if@@ylsw%
+\ifcase\@tmpa%
+ \or%1
+ \ifno@centeratom%
+ \gdef\@ylii{0}\gdef\@yli{0}\global\@ylswtrue%N subst. on 1
+ \else%
+% \gdef\@ylii{0}\gdef\@yli{-52}\global\@ylswtrue%N subst. on 1
+ \gdef\@ylii{45}\gdef\@yli{33}\global\@ylswtrue%N subst. on 1
+ \fi%
+ \or%2
+ \ifno@centeratom%
+ \gdef\@ylii{0}\gdef\@yli{0}\global\@ylswtrue%
+ \else%
+% \gdef\@ylii{52}\gdef\@yli{0}\global\@ylswtrue%
+ \gdef\@ylii{40}\gdef\@yli{30}\global\@ylswtrue%
+ \fi%
+ \East@bondtrue%W subst. on 1
+ \or%3
+ \ifno@centeratom%
+ \gdef\@ylii{0}\gdef\@yli{0}\global\@ylswtrue%S subst. on 1
+ \else%
+% \gdef\@ylii{0}\gdef\@yli{52}\global\@ylswtrue%S subst. on 1
+ \gdef\@ylii{35}\gdef\@yli{40}\global\@ylswtrue%S subst. on 1
+ \fi%
+ \or%4
+ \ifno@centeratom%
+ \gdef\@ylii{-72}\gdef\@yli{0}\global\@ylswtrue%??????
+ \else%
+% \gdef\@ylii{-52}\gdef\@yli{0}\global\@ylswtrue%
+ \gdef\@ylii{-40}\gdef\@yli{32}\global\@ylswtrue%
+ \fi%
+ \West@bondtrue%E subst. on 1
+\fi%end of ifcase
+\fi\fi\fi}}%
+% \end{macrocode}
+% \end{macro}
+%
+% The macro \verb/\LewisTetrahedralB/ is defined as an extension of
+% \verb/\LewistetrahedralB/, where it supports a nestec structures.
+% As a basic function of \verb/\LewisTetrahedralB/,
+% atoms (W, X, Y, and Z) which are attached to a central atom (A)
+% through Lewis bonds are drawn by the following \verb/\LewisTetrahedralB/ command.
+%
+% \begin{verbatim}
+% \LewisteTrahedralB{0==A;1==W;2==X;3==Y;4==Z}
+% \end{verbatim}
+%
+% \begin{verbatim}
+%
+% 4 Z W 1
+% : :
+% A
+% : :
+% 3 Y X 2
+%
+% \end{verbatim}
+%
+% Each of the atoms can be omitted.
+%
+% \begin{macro}{\LewisTetrahedralB}
+% \begin{macrocode}
+\def\LewisTetrahedralB{%
+\@ifnextchar[{\@LewisTetrahedralB[r}{\@LewisTetrahedralB[r]}}
+\def\@LewisTetrahedralB#1]#2{%
+\begingroup
+\let\NEbond=\NEbondlonepair
+\let\SEbond=\SEbondlonepair
+\let\SWbond=\SWbondlonepair
+\let\NWbond=\NWbondlonepair
+\let\ylsquareposition=\ylLewisTetrahedralBposition
+\@squareplanar#1]{#2}%
+\endgroup
+}%end of macro LewisTetrahedralB
+% \end{macrocode}
+% \end{macro}
+%
+% Note that the inner macros \verb/\NEbond/ etc.\ used in the definition of \verb/\squareplanar/
+% are replaced by \verb/\NEbondlonepair/ etc.
+%
+% \begin{macro}{\NEbondlonepair}
+% \begin{macrocode}
+\def\NEbondlonepair{%
+\begin{sfpicture}(100,300)(0,0)%
+ \if\@tmpb D\relax%
+ \put(50,50){\hbox to0pt{\hss\nelonepair\hss}}%
+ \put(75,75){\hbox to0pt{\hss\nelonepair\hss}}%
+ \putratom{90}{82}{\@memberb}%==1 northeast substituent
+ \else\if\@tmpb T\relax%
+ \put(50,50){\hbox to0pt{\hss\nelonepair\hss}}%
+ \put(75,75){\hbox to0pt{\hss\nelonepair\hss}}%
+ \put(100,100){\hbox to0pt{\hss\nelonepair\hss}}%
+ \putratom{115}{107}{\@memberb}%==1 northeast substituent
+ \else\if\@tmpb N\relax%normal single bond
+ \Put@Line(40,47)(1,1){95}%
+ \putratom{145}{137}{\@memberb}%==1 (northeast substituent)
+ \else
+ \put(50,50){\hbox to0pt{\hss\nelonepair\hss}}%
+ \putratom{65}{57}{\@memberb}%==1 northeast substituent
+ \fi\fi\fi%
+\end{sfpicture}%
+}
+% \end{macrocode}
+% \end{macro}
+%
+% \begin{macro}{\SEbondlonepair}
+% \begin{macrocode}
+\def\SEbondlonepair{%
+\begin{sfpicture}(100,300)(0,0)%
+ \if\@tmpb D\relax%
+ \put(50,-50){\hbox to0pt{\hss\selonepair\hss}}%
+ \put(75,-75){\hbox to0pt{\hss\selonepair\hss}}%
+ \putratom{90}{-148}{\@memberb}%==2 southeast substituent
+ \else\if\@tmpb T\relax%
+ \put(50,-50){\hbox to0pt{\hss\selonepair\hss}}%
+ \put(75,-75){\hbox to0pt{\hss\selonepair\hss}}%
+ \put(100,-100){\hbox to0pt{\hss\selonepair\hss}}%
+ \putratom{115}{-173}{\@memberb}%==2 southeast substituent
+ \else\if\@tmpb N\relax%normal single bond
+ \Put@Line(40,-47)(1,-1){95}%
+ \putratom{145}{-203}{\@memberb}%==2 (southeast substituent)
+ \else
+ \put(50,-50){\hbox to0pt{\hss\selonepair\hss}}%
+ \putratom{65}{-123}{\@memberb}%==2 southeast substituent
+ \fi\fi\fi%
+\end{sfpicture}%
+}
+% \end{macrocode}
+% \end{macro}
+%
+% \begin{macro}{\SWbondlonepair}
+% \begin{macrocode}
+\def\SWbondlonepair{%
+\begin{sfpicture}(100,300)(0,0)%
+ \if\@tmpb D\relax%
+ \put(-50,-50){\hbox to0pt{\hss\swlonepair\hss}}%
+ \put(-75,-75){\hbox to0pt{\hss\swlonepair\hss}}%
+ \putlatom{-90}{-148}{\@memberb}%==3 southeast substituent
+ \else\if\@tmpb T\relax%
+ \put(-50,-50){\hbox to0pt{\hss\swlonepair\hss}}%
+ \put(-75,-75){\hbox to0pt{\hss\swlonepair\hss}}%
+ \put(-100,-100){\hbox to0pt{\hss\swlonepair\hss}}%
+ \putlatom{-115}{-173}{\@memberb}%==3 southeast substituent
+ \else\if\@tmpb N\relax%normal single bond
+ \Put@Line(-50,-47)(-1,-1){95}%
+ \putlatom{-163}{-203}{\@memberb}%==3 (southwest substituent)
+ \else
+ \put(-50,-50){\hbox to0pt{\hss\swlonepair\hss}}%
+ \putlatom{-65}{-123}{\@memberb}%==3 southeast substituent
+ \fi\fi\fi%
+\end{sfpicture}%
+}
+% \end{macrocode}
+% \end{macro}
+%
+%
+% \begin{macro}{\NWbondlonepair}
+% \begin{macrocode}
+\def\NWbondlonepair{%
+\begin{sfpicture}(100,300)(0,0)%
+ \if\@tmpb D\relax%
+ \put(-50,50){\hbox to0pt{\hss\nwlonepair\hss}}%
+ \put(-75,75){\hbox to0pt{\hss\nwlonepair\hss}}%
+ \putlatom{-90}{82}{\@memberb}%==4 northwest substituent
+ \else\if\@tmpb T\relax%
+ \put(-50,50){\hbox to0pt{\hss\nwlonepair\hss}}%
+ \put(-75,75){\hbox to0pt{\hss\nwlonepair\hss}}%
+ \put(-100,100){\hbox to0pt{\hss\nwlonepair\hss}}%
+ \putlatom{-115}{107}{\@memberb}%==4 northwest substituent
+ \else\if\@tmpb N\relax%normal single bond
+ \Put@Line(-40,47)(-1,1){95}%
+ \putlatom{-145}{137}{\@memberb}%==4 (northwest substituent)
+ \else
+ \put(-50,50){\hbox to0pt{\hss\nwlonepair\hss}}%
+ \putlatom{-65}{57}{\@memberb}%==1 northwest substituent
+ \fi\fi\fi%
+\end{sfpicture}%
+}
+% \end{macrocode}
+% \end{macro}
+%
+% The macro \verb/\LewisTetrahedralB/ supports a (yl)-function, which
+% is based on the x,y-adjustment due to the \verb/\ylLewisTetrahedralBposition/,
+% which is defined in a similar way to \verb/\ylsquareposition/ used in
+% the definition of the macro \verb/\squaraplanar/ (renamed from \verb/\square/).
+% The original values are left as commented lines in order to compare
+% with the \textsf{aliphat} package of the \XyMTeX{} system.
+%
+% \begin{macro}{\ylLewisTetrahedralBposition}
+% \begin{macrocode}
+\def\ylLewisTetrahedralBposition#1{%
+\@@ylswfalse%%%\@reset@ylsw
+\@forsemicol\member:=#1\do{%
+\if@@ylsw\else
+\ifx\member\empty\else
+\expandafter\@m@mb@r\member;\relax
+\expandafter\threech@r\@membera{}{}\relax
+\ifx\@memberb\@yl\relax\@@ylswtrue\else\@@ylswfalse\fi
+\if@@ylsw
+\ifcase\@tmpa
+ \or%
+% \gdef\@ylii{-40}\gdef\@yli{-47}\global\@ylswtrue% NE subst. on 1
+ \gdef\@ylii{-28}\gdef\@yli{40}\global\@ylswtrue% NE subst. on 1
+ \or%2
+% \gdef\@ylii{-40}\gdef\@yli{47}\global\@ylswtrue% SE subst. on 2
+ \gdef\@ylii{-28}\gdef\@yli{35}\global\@ylswtrue% SE subst. on 2
+ \or%3
+% \gdef\@ylii{50}\gdef\@yli{47}\global\@ylswtrue% SW subst. on 3
+ \gdef\@ylii{35}\gdef\@yli{22}\global\@ylswtrue% SW subst. on 3
+ \or%4
+% \gdef\@ylii{50}\gdef\@yli{-47}\global\@ylswtrue% NW subst. on 4
+ \gdef\@ylii{35}\gdef\@yli{40}\global\@ylswtrue% NW subst. on 4
+\fi%end of ifcase
+\fi\fi\fi}}%
+\endinput
+%</lewisstruc>
+% \end{macrocode}
+% \end{macro}
+%
+% \Finale
+%
+\endinput