Initial commit

1 files changed, 1242 insertions, 0 deletions

diff --git a/macros/latex/contrib/xymtex/base/lewisstruc.dtx b/macros/latex/contrib/xymtex/base/lewisstruc.dtx
new file mode 100644
index 0000000000..c09cf229bb
--- /dev/null
+++ b/macros/latex/contrib/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