summaryrefslogtreecommitdiff
path: root/macros/latex/contrib/xymtex/base/aliphat.sty
diff options
context:
space:
mode:
Diffstat (limited to 'macros/latex/contrib/xymtex/base/aliphat.sty')
-rw-r--r--macros/latex/contrib/xymtex/base/aliphat.sty2477
1 files changed, 2477 insertions, 0 deletions
diff --git a/macros/latex/contrib/xymtex/base/aliphat.sty b/macros/latex/contrib/xymtex/base/aliphat.sty
new file mode 100644
index 0000000000..73337f41be
--- /dev/null
+++ b/macros/latex/contrib/xymtex/base/aliphat.sty
@@ -0,0 +1,2477 @@
+%%
+%% This is file `aliphat.sty',
+%% generated with the docstrip utility.
+%%
+%% The original source files were:
+%%
+%% aliphat.dtx (with options: `aliphat')
+%%
+%% This is a generated file.
+%%
+%% Copyright 1996, 1998, 2001, 2002, 2004, 2005, 2009, 2010, 2013 by Shinsaku Fujita
+%%
+%% This file is part of the XyMTeX system.
+%% =======================================
+%%
+%% Old Versions:
+%% Version 1.01 Released on August 16, 1996
+%% Version 1.02 Released on October 31, 1996
+%% Version 2.00 Released on December 25, 1998
+%% Version 2.01 Released on June 20, 2001 (private version)
+%% Version 3.00 Released on April 30, 2002
+%% Version 4.00 Released on May 30, 2002
+%% Version 4.01 Released on August 30, 2004
+%% Version 4.02 Released on December 20, 2004
+%% Version 4.03 Released on July 20, 2005
+%% Version 4.05 Released on September 07, 2009
+%% Version 5.00 Released on October 01, 2010
+%% Version 5.01b Released on April 02, 2013
+%%
+%% The Present Version:
+%% Version 5.01 Released on July 20, 2013
+%%
+%% Copyright (C) 1996, 1998, 2001, 2002, 2004, 2005, 2009, 2010, 2013 by Shinsaku Fujita,
+%% all rights reserved.
+%% This style file is created for drawing chemical structural formulas
+%% This style file is to be contained in the ``xymtex'' directory which
+%% is an input directory for TeX.
+%%
+%% 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 aliphat.dtx and aliphat.ins
+%% and the derived file aliphat.sty.
+%%
+%% =======================================
+%%
+%% File: aliphat.dtx
+%% \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 \~}
+\typeout{XyMTeX for Drawing Chemical Structural Formulas. Version 5.01}
+\typeout{ -- Released July 20, 2013 by Shinsaku Fujita}
+\def\j@urnalname{aliphat}
+\def\versi@ndate{July 20, 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]}
+\@ifundefined{setsixringv}{\input chemstr.sty\relax}{}
+\unitlength=0.1pt
+\newif\ifno@centeratom \no@centeratomfalse
+\def\Northbond{%
+\@ifnextchar[{\N@rthbond}{\N@rthbond[]}}
+\def\N@rthbond[#1]{%
+\yl@xdiff=40
+\yl@ydiff=-15
+\def\@tempXX{#1}%
+\ifx\@tempXX\empty
+\@tempcnta=100\relax
+\@tempcntb=100\relax
+\else
+\@tempcnta=#1\relax
+\@tempcntb=#1\relax
+\fi
+\ifno@centeratom
+\advance\@tempcnta by52\relax
+\advance\@tempcntb by52\relax
+\fi
+\edef\@tempcntavaluea{\the\@tempcnta}%
+\@tempcnta=\@tempcntb
+\ifno@centeratom\else%%added2013/4/2
+\advance\@tempcnta by52\relax
+\fi
+\edef\@tempcntavalueb{\the\@tempcnta}%
+\@tempcnta=\@tempcntb
+\ifno@centeratom
+\advance\@tempcnta by15\relax%%67-52=15added2013/4/2
+\else
+\advance\@tempcnta by67\relax
+\fi
+\edef\@tempcntavaluec{\the\@tempcnta}%
+\begin{sfpicture}(0,0)(0,0)
+\ifno@centeratom%
+ \if\@tmpb D\relax%
+ \Multiput@Direct(-13,0)(26,0){2}{\Put@Line(0,0)(0,1){\@tempcntavaluea}}%2010/10/01
+ \else\if\@tmpb T\relax%
+ \Multiput@Direct(-20,0)(20,0){3}{\Put@Line(0,0)(0,1){\@tempcntavaluea}}%2010/10/01
+ \else\if\@tmpb B%(B) beta <-- alpha 2002/6/13
+ {\thicklines\Put@Line(-8,0)(0,1){\@tempcntavaluea}}% single bond (alpha)
+ \else\if\@tmpb A%(A) alpha <-- beta 2002/6/13
+ \dotorline(0,0)(0,1){\@tempcntavaluea}/(0,0)(0,\@tempcntavalueb)%
+ \else\if\@tmpb S%
+ \Put@Line(0,0)(0,1){\@tempcntavaluea}%
+ \else\if\@tmpb U% undefined
+ {%
+ \WaveBonds%
+ \Put@Line(0,0)(0,1){\@tempcntavaluea}%
+ }%
+ \else \Put@Line(0,0)(0,1){\@tempcntavaluea}%
+ \fi\fi\fi\fi\fi\fi%
+ \else%
+ \if\@tmpb D\relax%
+ \Multiput@Direct(-13,52)(26,0){2}{\Put@Line(0,0)(0,1){\@tempcntavaluea}}%2010/10/01
+ \else\if\@tmpb T\relax%
+ \Multiput@Direct(-20,52)(20,0){3}{\Put@Line(0,0)(0,1){\@tempcntavaluea}}%2010/10/01
+ \else\if\@tmpb B%(B) beta <-- alpha 2002/6/13
+ {\thicklines\Put@Line(-8,52)(0,1){\@tempcntavaluea}}% single bond (alpha)
+ \else\if\@tmpb A%(A) alpha <-- beta 2002/6/13
+ \dotorline(0,52)(0,1){\@tempcntavaluea}/(0,52)(0,\@tempcntavalueb)%
+ \else\if\@tmpb S%
+ \Put@Line(0,52)(0,1){\@tempcntavaluea}%
+ \else\if\@tmpb U% undefined
+ {%
+ \WaveBonds%
+ \Put@Line(0,52)(0,1){\@tempcntavaluea}%
+ }%
+ \else \Put@Line(0,52)(0,1){\@tempcntavaluea}%
+ \fi\fi\fi\fi\fi\fi%
+ \fi%
+ \putlratom{-40}{\@tempcntavaluec}{\@memberb}%==1 upper substituent
+\end{sfpicture}}%End of Northbond
+\def\Eastbond{%
+\@ifnextchar[{\E@stbond}{\E@stbond[]}}
+\def\E@stbond[#1]{%
+\yl@xdiff=-10
+\yl@ydiff=33
+\edef\@tempXX{#1}%
+\ifx\@tempXX\empty
+\@tempcnta=140\relax
+\@tempcntb=140\relax
+\else
+\@tempcnta=#1\relax
+\@tempcntb=#1\relax
+\fi
+\ifno@centeratom%
+\advance\@tempcnta by50\relax
+\advance\@tempcntb by50\relax
+\fi
+\edef\@tempcntavaluea{\the\@tempcnta}%
+\@tempcnta=\@tempcntb
+\ifno@centeratom\else%%added 2013/4/2
+\advance\@tempcnta by63\relax
+\fi
+\edef\@tempcntavalueb{\the\@tempcnta}%
+\@tempcnta=\@tempcntb
+\ifno@centeratom
+\advance\@tempcnta by13\relax%%63-50=13added 2013/4/2
+\else
+\advance\@tempcnta by50\relax
+\fi
+\edef\@tempcntavaluec{\the\@tempcnta}%
+\begin{sfpicture}(0,0)(0,0)
+ \ifno@centeratom%
+ \if\@tmpb D\relax%
+ \Multiput@Direct(0,-13)(0,26){2}{\Put@Line(0,0)(1,0){\@tempcntavaluea}}%2010/10/01
+ \else\if\@tmpb T\relax%
+ \Multiput@Direct(0,-20)(0,20){3}{\Put@Line(0,0)(1,0){\@tempcntavaluea}}%2010/10/01
+ \else\if\@tmpb B%(B) beta <-- alpha 2002/6/13
+ {\thicklines\Put@Line(0,0)(1,0){\@tempcntavaluea}}% single bond (alpha)
+ \else\if\@tmpb A%(A) alpha <-- beta 2002/6/13
+ \dotorline(0,0)(1,0){\@tempcntavaluea}/(0,0)(\@tempcntavaluec,0)%
+ \else\if\@tmpb S%
+ \Put@Line(0,0)(1,0){\@tempcntavaluea}%
+ \else\if\@tmpb U% undefined
+ {%
+ \WaveBonds%
+ \Put@Line(0,0)(1,0){\@tempcntavaluea}%
+ }%
+ \else \Put@Line(0,0)(1,0){\@tempcntavaluea}%
+ \fi\fi\fi\fi\fi\fi%
+ \else%
+ \if\@tmpb D\relax%
+ \Multiput@Direct(50,-13)(0,26){2}{\Put@Line(0,0)(1,0){\@tempcntavaluea}}%2010/10/01
+ \else\if\@tmpb T\relax%
+ \Multiput@Direct(50,-20)(0,20){3}{\Put@Line(0,0)(1,0){\@tempcntavaluea}}%2010/10/01
+ \else\if\@tmpb B%(B) beta <-- alpha 2002/6/13
+ {\thicklines\Put@Line(50,0)(1,0){\@tempcntavaluea}}% single bond (alpha)
+ \else\if\@tmpb A%(A) alpha <-- beta 2002/6/13
+ \dotorline(50,0)(1,0){\@tempcntavaluea}/(50,0)(\@tempcntavaluec,0)%
+ \else\if\@tmpb S%
+ \Put@Line(50,0)(1,0){\@tempcntavaluea}%
+ \else\if\@tmpb U% undefined
+ {%
+ \WaveBonds%
+ \Put@Line(50,0)(1,0){\@tempcntavaluea}%
+ }%
+ \else \Put@Line(50,0)(1,0){\@tempcntavaluea}%
+ \fi\fi\fi\fi\fi\fi%
+ \fi%
+ \putratom{\@tempcntavalueb}{-33}{\@memberb}%==2 right substituent
+\end{sfpicture}}%End of Eastbond
+\def\Southbond{%
+\@ifnextchar[{\S@uthbond}{\S@uthbond[]}}
+\def\S@uthbond[#1]{%
+\yl@xdiff=40
+\yl@ydiff=95
+\def\@tempXX{#1}%
+\ifx\@tempXX\empty
+\@tempcnta=100\relax
+\@tempcntb=100\relax
+\else
+\@tempcnta=#1\relax
+\@tempcntb=#1\relax
+\fi
+\ifno@centeratom
+\advance\@tempcnta by48\relax
+\advance\@tempcntb by48\relax
+\fi
+\edef\@tempcntavaluea{\the\@tempcnta}%
+\@tempcnta=-\@tempcntb
+\ifno@centeratom\else%%added2013/4/2
+\advance\@tempcnta by-48\relax
+\fi
+\edef\@tempcntavalueb{\the\@tempcnta}%
+\@tempcnta=-\@tempcntb
+\ifno@centeratom
+\advance\@tempcnta by-90\relax%%143-48=98 (-8) added2013/4/2
+\else
+\advance\@tempcnta by-143\relax
+\fi
+\edef\@tempcntavaluec{\the\@tempcnta}%
+\begin{sfpicture}(0,0)(0,0)
+ \ifno@centeratom%
+ \if\@tmpb D\relax%
+ \Multiput@Direct(-13,0)(26,0){2}{\Put@Line(0,0)(0,-1){\@tempcntavaluea}}%2010/10/01
+ \else\if\@tmpb T\relax%
+ \Multiput@Direct(-20,0)(20,0){3}{\Put@Line(0,0)(0,-1){\@tempcntavaluea}}%2010/10/01
+ \else\if\@tmpb B%(B) beta <-- alpha 2002/6/13
+ {\thicklines\Put@Line(-8,0)(0,-1){\@tempcntavaluea}}% single bond (alpha)
+ \else\if\@tmpb A%(A) alpha <-- beta 2002/6/13
+ \dotorline(0,0)(0,-1){\@tempcntavaluea}/(0,0)(0,\@tempcntavalueb)%
+ \else\if\@tmpb S%
+ \Put@Line(0,-0)(0,-1){\@tempcntavaluea}%
+ \else\if\@tmpb U% undefined
+ {%
+ \WaveBonds%
+ \Put@Line(0,-0)(0,-1){\@tempcntavaluea}%
+ }%
+ \else \Put@Line(0,0)(0,-1){\@tempcntavaluea}%
+ \fi\fi\fi\fi\fi\fi%
+ \else%
+ \if\@tmpb D\relax%
+ \Multiput@Direct(-13,-48)(26,0){2}{\Put@Line(0,0)(0,-1){\@tempcntavaluea}}%2010/10/01
+ \else\if\@tmpb T\relax%
+ \Multiput@Direct(-20,-48)(20,0){3}{\Put@Line(0,0)(0,-1){\@tempcntavaluea}}%2010/10/01
+ \else\if\@tmpb B%(B) beta <-- alpha 2002/6/13
+ {\thicklines\Put@Line(-8,-48)(0,-1){\@tempcntavaluea}}% single bond (alpha)
+ \else\if\@tmpb A%(A) alpha <-- beta 2002/6/13
+ \dotorline(0,-48)(0,-1){\@tempcntavaluea}/(0,-48)(0,\@tempcntavalueb)%
+ \else\if\@tmpb S%
+ \Put@Line(0,-48)(0,-1){\@tempcntavaluea}%
+ \else\if\@tmpb U% undefined
+ {%
+ \WaveBonds%
+ \Put@Line(0,-48)(0,-1){\@tempcntavaluea}%
+ }%
+ \else \Put@Line(0,-48)(0,-1){\@tempcntavaluea}%
+ \fi\fi\fi\fi\fi\fi%
+ \fi%
+ \putlratom{-40}{\@tempcntavaluec}{\@memberb}%==3 down substituent
+\end{sfpicture}}%End of Southbond
+
+\def\Westbond{%
+\@ifnextchar[{\W@stbond}{\W@stbond[]}}
+\def\W@stbond[#1]{%
+\yl@xdiff=10
+\yl@ydiff=33
+\def\@tempXX{#1}%
+\ifx\@tempXX\empty
+\@tempcnta=140\relax
+\@tempcntb=140\relax
+\else
+\@tempcnta=#1\relax
+\@tempcntb=#1\relax
+\fi
+\ifno@centeratom
+\advance\@tempcnta by50\relax
+\advance\@tempcntb by50\relax
+\fi
+\edef\@tempcntavaluea{\the\@tempcnta}%
+\@tempcnta=-\@tempcntb
+\ifno@centeratom\else%%added 2013/4/2
+\advance\@tempcnta by-63\relax
+\fi
+\edef\@tempcntavalueb{\the\@tempcnta}%
+\@tempcnta=\@tempcntb
+\ifno@centeratom
+\advance\@tempcnta by-13\relax%%63-50=13 added 2013/4/2
+\else%
+\advance\@tempcnta by50\relax
+\fi
+\edef\@tempcntavaluec{\the\@tempcnta}%
+\begin{sfpicture}(0,0)(0,0)
+ \ifno@centeratom%
+ \if\@tmpb D\relax%
+ \Multiput@Direct(0,-13)(0,26){2}{\Put@Line(0,0)(-1,0){\@tempcntavaluea}}%2010/10/01
+ \else\if\@tmpb T\relax%
+ \Multiput@Direct(0,-20)(0,20){3}{\Put@Line(0,0)(-1,0){\@tempcntavaluea}}%2010/10/01
+ \else\if\@tmpb B%(B) beta <-- alpha 2002/6/13
+ {\thicklines\Put@Line(0,0)(-1,0){\@tempcntavaluea}}% single bond (alpha)
+ \else\if\@tmpb A%(A) alpha <-- beta 2002/6/13
+%% \dotorline(0,0)(-1,0){\@tempcntavaluea}/(\@tempcntavalueb,0)(-40,0)%
+ \dotorline(0,0)(-1,0){\@tempcntavaluea}/(0,0)(\@tempcntavalueb,0)%2013/04/02
+ \else\if\@tmpb S%
+ \Put@Line(0,0)(-1,0){\@tempcntavaluea}%
+ \else\if\@tmpb U% undefine
+ {%
+ \WaveBonds%
+ \Put@Line(0,0)(-1,0){\@tempcntavaluea}%
+ }%
+ \else \Put@Line(0,0)(-1,0){\@tempcntavaluea}%
+ \fi\fi\fi\fi\fi\fi%
+ \else%
+ \if\@tmpb D\relax%
+ \Multiput@Direct(-50,-13)(0,26){2}{\Put@Line(0,0)(-1,0){\@tempcntavaluea}}%2010/10/01
+ \else\if\@tmpb T\relax%
+ \Multiput@Direct(-50,-20)(0,20){3}{\Put@Line(0,0)(-1,0){\@tempcntavaluea}}%2010/10/01
+ \else\if\@tmpb B%(B) beta <-- alpha 2002/6/13
+ {\thicklines\Put@Line(-50,0)(-1,0){\@tempcntavaluea}}% single bond (alpha)
+ \else\if\@tmpb A%(A) alpha <-- beta 2002/6/13
+%% \dotorline(-50,0)(-1,0){\@tempcntavaluea}/(\@tempcntavalueb,0)(-40,0)%
+ \dotorline(-50,0)(-1,0){\@tempcntavaluea}/(-40,0)(\@tempcntavalueb,0)%%2013/06/16
+ \else\if\@tmpb S%
+ \Put@Line(-50,0)(-1,0){\@tempcntavaluea}%
+ \else\if\@tmpb U% undefined
+ {%
+ \WaveBonds%
+ \Put@Line(-50,0)(-1,0){\@tempcntavaluea}%
+ }%
+ \else \Put@Line(-50,0)(-1,0){\@tempcntavaluea}%
+ \fi\fi\fi\fi\fi\fi%
+ \fi%
+ \putlatom{\@tempcntavalueb}{-33}{\@memberb}%==4 left substituent
+\end{sfpicture}}%End of Westbond
+\def\NEBond{%degree 120
+\yl@xdiff=-9
+\yl@ydiff=13
+\begin{sfpicture}(100,300)(0,0)
+ \if\@tmpb D\relax%
+ \Put@Line(33,48)(5,3){121}%
+ \Put@Line(47,26)(5,3){121}%northeast double bond
+ \else\if\@tmpb T\relax%
+ \Put@Line(31,52)(5,3){121}%
+ \Put@Line(40,37)(5,3){121}%
+ \Put@Line(49,22)(5,3){121}%northeast triple bond
+ \else\if\@tmpb B%(B) beta
+ {\thicklines\Put@Line(40,47)(5,3){121}}% single bond (alpha)
+ \else\if\@tmpb A%(A) alpha
+ \dotorline(40,47)(5,3){121}/(40,47)(161,120)%
+ \else\if\@tmpb S%
+ \Put@Line(40,47)(5,3){121}%
+ \else\if\@tmpb U% undefined
+ {%
+ \WaveBonds%
+ \Put@Line(40,47)(5,3){121}%
+ }%
+ \else \Put@Line(40,47)(5,3){121}%
+ \fi\fi\fi\fi\fi\fi%
+ \putratom{170}{107}{\@memberb}%==2 (northeast substituent)
+\end{sfpicture}}%
+\def\NEbond{%degree 90
+\yl@xdiff=-5
+\yl@ydiff=10
+\begin{sfpicture}(100,300)(0,0)
+ \if\@tmpb D\relax%
+ \Put@Line(31,46)(1,1){100}%
+ \Put@Line(49,28)(1,1){100}%northeast double bond
+ \else\if\@tmpb T\relax%
+ \Put@Line(27,50)(1,1){100}%
+ \Put@Line(40,37)(1,1){100}%
+ \Put@Line(53,24)(1,1){100}%northeast triple bond
+ \else\if\@tmpb B%(B) beta
+ {\thicklines\Put@Line(40,47)(1,1){100}}% single bond (alpha)
+ \else\if\@tmpb A%(A) alpha
+ \dotorline(40,47)(1,1){100}/(40,47)(140,147)%
+ \else\if\@tmpb S%
+ \Put@Line(40,47)(1,1){100}%
+ \else\if\@tmpb U% undefined
+ {%
+ \WaveBonds%
+ \Put@Line(40,47)(1,1){100}%
+ }%
+ \else \Put@Line(40,47)(1,1){100}%
+ \fi\fi\fi\fi\fi\fi%
+ \putratom{145}{137}{\@memberb}%==2 (northeast substituent)
+\end{sfpicture}}%
+\def\SEBond{%degree 120
+\yl@xdiff=-9
+\yl@ydiff=67
+\begin{sfpicture}(100,300)(0,0)
+ \if\@tmpb D\relax%
+ \Put@Line(33,-48)(5,-3){121}%
+ \Put@Line(47,-26)(5,-3){121}%southeast double bond
+ \else\if\@tmpb T\relax%
+ \Put@Line(31,-52)(5,-3){121}%
+ \Put@Line(40,-37)(5,-3){121}%
+ \Put@Line(49,-22)(5,-3){121}%southeast triple bond
+ \else\if\@tmpb B%(B) beta
+ {\thicklines\Put@Line(40,-47)(5,-3){121}}% single bond (alpha)
+ \else\if\@tmpb A%(A) alpha
+ \dotorline(40,-47)(5,-3){121}/(40,-47)(161,-120)%
+ \else\if\@tmpb S%
+ \Put@Line(40,-47)(5,-3){121}%
+ \else\if\@tmpb U% undefined
+ {%
+ \WaveBonds%
+ \Put@Line(40,-47)(5,-3){121}%
+ }%
+ \else \Put@Line(40,-47)(5,-3){121}%
+ \fi\fi\fi\fi\fi\fi%
+ \putratom{170}{-187}{\@memberb}%==2 (southeast substituent)
+\end{sfpicture}}%
+\def\SEbond{%degree 90
+\yl@xdiff=-5
+\yl@ydiff=56
+\begin{sfpicture}(100,300)(0,0)
+ \if\@tmpb D\relax%
+ \Put@Line(31,-46)(1,-1){100}%
+ \Put@Line(49,-28)(1,-1){100}%southeast double bond
+ \else\if\@tmpb T\relax%
+ \Put@Line(27,-50)(1,-1){100}%
+ \Put@Line(40,-37)(1,-1){100}%
+ \Put@Line(53,-24)(1,-1){100}%southeast triple bond
+ \else\if\@tmpb B%(B) beta
+ {\thicklines\Put@Line(53,-47)(1,-1){100}}% single bond (alpha)
+ \else\if\@tmpb A%(A) alpha
+ \dotorline(40,-47)(1,-1){100}/(40,-47)(140,-147)%
+ \else\if\@tmpb S%
+ \Put@Line(40,-47)(1,-1){100}%
+ \else\if\@tmpb U% undefined
+ {%
+ \WaveBonds%
+ \Put@Line(40,-47)(1,-1){100}%
+ }%
+ \else \Put@Line(40,-47)(1,-1){100}%
+ \fi\fi\fi\fi\fi\fi%
+ \putratom{145}{-203}{\@memberb}%==3 (southeast substituent)
+\end{sfpicture}}%
+\def\NWBond{%
+\begin{sfpicture}(100,300)(0,0)
+\yl@xdiff=9
+\yl@ydiff=13
+ \if\@tmpb D\relax%
+ \Put@Line(-59,48)(-5,3){121}%
+ \Put@Line(-73,26)(-5,3){121}%northwest double bond
+ \else\if\@tmpb T\relax%
+ \Put@Line(-57,52)(-5,3){121}%
+ \Put@Line(-66,37)(-5,3){121}%
+ \Put@Line(-75,22)(-5,3){121}%northwest triple bond
+ \else\if\@tmpb B%(B) beta
+ {\thicklines\Put@Line(-66,47)(-5,3){121}}% single bond (alpha)
+ \else\if\@tmpb A%(A) alpha
+ \dotorline(-66,47)(-5,3){121}/(-66,47)(-187,120)%
+ \else\if\@tmpb S%
+ \Put@Line(-66,47)(-5,3){121}%
+ \else\if\@tmpb U% undefined
+ {%
+ \WaveBonds%
+ \Put@Line(-66,47)(-5,3){121}%
+ }%
+ \else \Put@Line(-66,47)(-5,3){121}%
+ \fi\fi\fi\fi\fi\fi%
+ \putlatom{-196}{107}{\@memberb}%==2 (northwest substituent)
+\end{sfpicture}}%
+\def\NWbond{%
+\begin{sfpicture}(100,300)(0,0)
+\yl@xdiff=13
+\yl@ydiff=10
+ \if\@tmpb D\relax%
+ \Put@Line(-41,46)(-1,1){100}%
+ \Put@Line(-59,28)(-1,1){100}%northwest double bond
+ \else\if\@tmpb T\relax%
+ \Put@Line(-37,50)(-1,1){100}%
+ \Put@Line(-50,37)(-1,1){100}%
+ \Put@Line(-63,24)(-1,1){100}%northwest triple bond
+ \else\if\@tmpb B%(B) beta
+ {\thicklines\Put@Line(-50,47)(-1,1){100}}% single bond (alpha)
+ \else\if\@tmpb A%(A) alpha
+ \dotorline(-50,47)(-1,1){100}/(-50,47)(-137,147)%
+ \else\if\@tmpb S%
+ \Put@Line(-50,47)(-1,1){100}%
+ \else\if\@tmpb U% undefined
+ {%
+ \WaveBonds%
+ \Put@Line(-50,47)(-1,1){100}%
+ }%
+ \else \Put@Line(-50,47)(-1,1){100}%
+ \fi\fi\fi\fi\fi\fi%
+ \putlatom{-163}{137}{\@memberb}%==2 (northwest substituent)
+\end{sfpicture}}%
+\def\SWBond{%
+\yl@xdiff=9
+\yl@ydiff=67
+\begin{sfpicture}(100,300)(0,0)
+ \if\@tmpb D\relax%
+ \Put@Line(-59,-48)(-5,-3){121}%
+ \Put@Line(-73,-26)(-5,-3){121}%southwest double bond
+ \else\if\@tmpb T\relax%
+ \Put@Line(-57,-52)(-5,-3){121}%
+ \Put@Line(-66,-37)(-5,-3){121}%
+ \else\if\@tmpb B%(B) beta
+ \Put@Line(-75,-22)(-5,-3){121}%southwest triple bond
+ {\thicklines\Put@Line(-66,-47)(-5,-3){121}}% single bond (alpha)
+ \else\if\@tmpb A%(A) alpha
+ \dotorline(-66,-47)(-5,-3){121}/(-66,-47)(-187,-120)%
+ \else\if\@tmpb S%
+ \Put@Line(-66,-47)(-5,-3){121}%
+ \else\if\@tmpb U% undefined
+ {%
+ \WaveBonds%
+ \Put@Line(-66,-47)(-5,-3){121}%
+ }%
+ \else \Put@Line(-66,-47)(-5,-3){121}%
+ \fi\fi\fi\fi\fi\fi%
+ \putlatom{-196}{-187}{\@memberb}%==2 (southwest substituent)
+\end{sfpicture}}%
+\def\SWbond{%
+\yl@xdiff=13
+\yl@ydiff=56
+\begin{sfpicture}(100,300)(0,0)
+ \if\@tmpb D\relax%
+ \Put@Line(-41,-46)(-1,-1){100}%
+ \Put@Line(-59,-28)(-1,-1){100}%southwest double bond
+ \else\if\@tmpb T\relax%
+ \Put@Line(-37,-50)(-1,-1){100}%
+ \Put@Line(-50,-37)(-1,-1){100}%
+ \Put@Line(-63,-24)(-1,-1){100}%southwest triple bond
+ \else\if\@tmpb B%(B) beta
+ {\thicklines\Put@Line(-50,-47)(-1,-1){100}}% single bond (alpha)
+ \else\if\@tmpb A%(A) alpha
+ \dotorline(-50,-47)(-1,-1){100}/(-50,-47)(-137,-147)%
+ \else\if\@tmpb S%
+ \Put@Line(-50,-47)(-1,-1){100}%
+ \else\if\@tmpb U% undefined
+ {%
+ \WaveBonds%
+ \Put@Line(-50,-47)(-1,-1){100}%
+ }%
+ \else \Put@Line(-50,-47)(-1,-1){100}%
+ \fi\fi\fi\fi\fi\fi%
+ \putlatom{-163}{-203}{\@memberb}%==3 (southwest substituent)
+\end{sfpicture}}%
+\def\NEBOND{%degree 120
+\yl@xdiff=-1
+\yl@ydiff=-10
+\begin{sfpicture}(100,300)(0,0)
+ \if\@tmpb D\relax%
+ \Put@Line(48,33)(3,5){72}%
+ \Put@Line(26,47)(3,5){72}%northeast double bond
+ \else\if\@tmpb T\relax%
+ \Put@Line(52,31)(3,5){72}%
+ \Put@Line(37,40)(3,5){72}%
+ \Put@Line(22,49)(3,5){72}%northeast triple bond
+ \else\if\@tmpb B%(B) beta
+ {\thicklines\Put@Line(40,47)(3,5){72}}% single bond (alpha)
+ \else\if\@tmpb A%(A) alpha
+ \dotorline(47,40)(3,5){72}/(47,40)(120,161)%
+ \else\if\@tmpb S%
+ \Put@Line(47,40)(3,5){72}%
+ \else\if\@tmpb U% undefined
+ {%
+ \WaveBonds%
+ \Put@Line(47,40)(3,5){72}%
+ }%
+ \else \Put@Line(47,40)(3,5){72}%
+ \fi\fi\fi\fi\fi\fi%
+ \putratom{120}{170}{\@memberb}%==2 (northeast substituent)
+\end{sfpicture}}%
+\def\SEBOND{%degree 120
+\yl@xdiff=-1
+\yl@ydiff=70
+\begin{sfpicture}(100,300)(0,0)
+ \if\@tmpb D\relax%
+ \Put@Line(48,-33)(3,-5){72}%
+ \Put@Line(26,-47)(3,-5){72}%southeast double bond
+ \else\if\@tmpb T\relax%
+ \Put@Line(52,-31)(3,-5){72}%
+ \Put@Line(37,-40)(3,-5){72}%
+ \Put@Line(22,-49)(3,-5){72}%southeast triple bond
+ \else\if\@tmpb B%(B) beta
+ {\thicklines\Put@Line(47,-40)(3,-5){72}}% single bond (alpha)
+ \else\if\@tmpb A%(A) alpha
+ \dotorline(47,-40)(3,-5){72}/(47,-40)(120,-161)%
+ \else\if\@tmpb S%
+ \Put@Line(47,-40)(3,-5){72}%
+ \else\if\@tmpb U% undefined
+ {%
+ \WaveBonds%
+ \Put@Line(47,-40)(3,-5){72}%
+ }%
+ \else \Put@Line(47,-40)(3,-5){72}%
+ \fi\fi\fi\fi\fi\fi%
+ \putratom{120}{-230}{\@memberb}%==2 (southeast substituent)
+\end{sfpicture}}%
+\def\NWBOND{%
+\yl@xdiff=1
+\yl@ydiff=-10
+\begin{sfpicture}(100,300)(0,0)
+ \if\@tmpb D\relax%
+ \Put@Line(-48,33)(-3,5){72}%
+ \Put@Line(-26,47)(-3,5){72}%northwest double bond
+ \else\if\@tmpb T\relax%
+ \Put@Line(-52,31)(-3,5){72}%
+ \Put@Line(-37,40)(-3,5){72}%
+ \Put@Line(-22,49)(-3,5){72}%northwest triple bond
+ \else\if\@tmpb B%(B) beta
+ {\thicklines\Put@Line(-40,47)(-3,5){72}}% single bond (alpha)
+ \else\if\@tmpb A%(A) alpha
+ \dotorline(-47,40)(-3,5){72}/(-47,40)(-120,161)%
+ \else\if\@tmpb S%
+ \Put@Line(-47,40)(-3,5){72}%
+ \else\if\@tmpb U% undefined
+ {%
+ \WaveBonds%
+ \Put@Line(-47,40)(-3,5){72}%
+ }%
+ \else \Put@Line(-47,40)(-3,5){72}%
+ \fi\fi\fi\fi\fi\fi%
+ \putlatom{-120}{170}{\@memberb}%==2 (northwest substituent)
+\end{sfpicture}}%
+\def\SWBOND{%
+\yl@xdiff=1
+\yl@ydiff=70
+\begin{sfpicture}(100,300)(0,0)
+ \if\@tmpb D\relax%
+ \Put@Line(-48,-33)(-3,-5){72}%
+ \Put@Line(-26,-47)(-3,-5){72}%southwest double bond
+ \else\if\@tmpb T\relax%
+ \Put@Line(-52,-31)(-3,-5){72}%
+ \Put@Line(-37,-40)(-3,-5){72}%
+ \Put@Line(-22,-49)(-3,-5){72}%southwest triple bond
+ \else\if\@tmpb B%(B) beta
+ {\thicklines\Put@Line(-47,-40)(-3,-5){72}}% single bond (alpha)
+ \else\if\@tmpb A%(A) alpha
+ \dotorline(-47,-40)(-3,-5){72}/(-47,-40)(-120,-161)%
+ \else\if\@tmpb S%
+ \Put@Line(-47,-40)(-3,-5){72}%
+ \else\if\@tmpb U% undefined
+ {%
+ \WaveBonds%
+ \Put@Line(-47,-40)(-3,-5){72}%
+ }%
+ \else \Put@Line(-47,-40)(-3,-5){72}%
+ \fi\fi\fi\fi\fi\fi%
+ \putlatom{-120}{-230}{\@memberb}%==2 (southwest substituent)
+\end{sfpicture}}%
+\def\tetrahedral{\@ifnextchar[{\@tetrahedral[r}{\@tetrahedral[r]}}
+\def\@tetrahedral#1]#2{%
+\@ifnextchar<{\@@tetrahedral#1]{#2}}{\@@tetrahedral#1]{#2}<,,,>}}%bug @ added 2009/11/07
+\def\@@tetrahedral#1]#2<#3,#4,#5,#6>{%
+\@reset@ylsw%
+\West@bondfalse
+\East@bondfalse
+\centralatomcheck{#2}%
+\yltetrahedralposition{#2}%
+\if@ylsw \ifx\@@ylii\empty
+\def\@@ylii{0}\def\@@yli{0}\fi
+\fi
+\begin{ShiftPicEnvB}(0,0)(-\yl@shiftii,-\yl@shifti)/%
+(600,600)(-300,-300){tetrahedral}%2002/4/30 by S. Fujita
+(300,300)%
+\@tfor\member:=#1\do{%
+ \expandafter\twoch@@r\member{}{}%
+ \if\@@tmpa 0\relax {\putratom{47}{50}{\scriptsize\@@tmpb}}\fi}%
+%%%%%%%%%%%%%%%%%%%%%%
+%%%%%%%%%%%%%%%%%%%%%%
+\@tempdima=0pt
+\@forsemicol\member:=#2\do{%
+\ifx\member\empty\else
+\expandafter\@m@mb@r\member;\relax%
+\expandafter\threech@r\@membera{}{}%
+\ifx\@memberb\@yl\else
+\ifcase\@tmpa%central atom
+\setbox9=\hbox{\@memberb}%
+\ifdim\wd9<0.72em
+\@tempdima=0.72em
+{\putlratom{-40}{-33}{\hbox to.72em{\hss\@memberb\hss}}}%
+\else
+\ifWest@bond
+\@tempdima=\wd9
+{\putlratom{-40}{-33}{\hbox to.72em{\hss\@memberb}}}%central atom
+%%%\global\West@bondfalse
+\else
+\@tempdima=\wd9
+{\putlratom{-40}{-33}{\hbox to.72em{\@memberb\hss}}}%central atom
+\fi\fi
+\else%%no action
+\fi%end of ifcase%
+\fi\fi}%
+%%%%%%%%%%%%%%%%%%%%%%
+%%setting four bonds%%
+%%%%%%%%%%%%%%%%%%%%%%
+\@forsemicol\member:=#2\do{%
+\ifx\member\empty\else
+\expandafter\@m@mb@r\member;\relax%
+\expandafter\threech@r\@membera{}{}%
+\ifx\@memberb\@yl\else
+\ifcase\@tmpa
+\or
+\ifWest@bond
+\setBScolor{\Put@Direct(0,0){\kern-\@tempdima\kern0.72em\Northbond[#3]}}%
+\else
+\setBScolor{\Put@Direct(0,0){\Northbond[#3]}}%
+\fi
+\or{%
+\ifWest@bond
+\setBScolor{\Put@Direct(0,0){\kern-\@tempdima\kern0.72em\Westbond[#4]}}%
+\else
+\setBScolor{\Put@Direct(0,0){\Westbond[#4]}}%
+\fi
+}%
+\or
+\ifWest@bond
+\setBScolor{\Put@Direct(0,0){\kern-\@tempdima\kern0.72em\Southbond[#5]}}%
+\else
+\setBScolor{\Put@Direct(0,0){\Southbond[#5]}}%
+\fi
+\or{%
+\ifno@centeratom%
+\setBScolor{\Put@Direct(0,0){\Eastbond[#6]}}%
+\else%
+\setBScolor{\Put@Direct(0,0){\kern\@tempdima\kern-0.72em\Eastbond[#6]}}%
+\fi}%
+\fi%end of ifcase
+\fi\fi}%
+\end{ShiftPicEnvB}%
+\West@bondfalse
+\East@bondfalse
+}%end of macro tetrahedral
+\def\centralatomcheck#1{%
+\no@centeratomtrue%
+\@forsemicol\member:=#1\do{%
+\ifx\member\empty\else
+\expandafter\@m@mb@r\member;\relax
+\expandafter\threech@r\@membera{}{}\relax
+\ifcase\@tmpa\relax%
+\no@centeratomfalse%
+\else%no action
+\fi\fi%
+}}
+\newif\ifEast@bond
+\newif\ifWest@bond
+\def\yltetrahedralposition#1{%
+\@@ylswfalse%%%\@reset@ylsw
+\reset@@yl%%2013/07/30bug fix
+\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%
+ \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
+ \fi%
+ \or%
+ \ifno@centeratom%
+ \gdef\@ylii{0}\gdef\@yli{0}\global\@ylswtrue%
+ \else%
+ \gdef\@ylii{52}\gdef\@yli{0}\global\@ylswtrue%
+ \fi%
+ \East@bondtrue%W subst. on 1
+ \or%
+ \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
+ \fi%
+ \or%
+ \ifno@centeratom%
+ \gdef\@ylii{-72}\gdef\@yli{0}\global\@ylswtrue%??????
+ \else%
+ \gdef\@ylii{-52}\gdef\@yli{0}\global\@ylswtrue%
+ \fi%
+ \West@bondtrue%E subst. on 1
+\fi%end of ifcase
+\fi\fi\fi}}%
+\def\divalenth#1#2{%
+\@reset@ylsw%
+\yldivalenthposition{#1}{#2}%
+\if@ylsw \ifx\@@ylii\empty
+\def\@@ylii{0}\def\@@yli{0}\fi
+\fi
+\begin{ShiftPicEnvB}(0,0)(-\yl@shiftii,-\yl@shifti)/%
+(600,400)(-300,-200){\divalenth}%2002/4/30 by S. Fujita
+(300,200)%
+{\expandafter\@m@mb@r#1;\relax
+ \putratom{-30}{-33}{\@memberb}}%
+\@forsemicol\member:=#2\do{%
+\ifx\member\empty\else
+\expandafter\@m@mb@r\member;\relax%
+\expandafter\threech@r\@membera{}{}%
+\ifx\@memberb\@yl\else
+\ifcase\@tmpa
+\or\setBScolor{\Put@Direct(0,0){\Westbond}}%
+\or\setBScolor{\Put@Direct(\the\@tempcnta,0){\Eastbond}}%
+\fi%end of ifcase
+\fi\fi}%
+\end{ShiftPicEnvB}%
+}%end of macro tetrahedral
+\def\yldivalenthposition#1#2{%
+{\expandafter\@m@mb@r#1;\relax
+ \setbox0=\hbox{\@memberb}%
+ \@tempcnta=\wd0
+ \@tempcntb=\unitlength
+ \divide\@tempcnta by\@tempcntb
+ \global\advance\@tempcnta by-62%
+ \@tempcntb=\@tempcnta \global\advance\@tempcntb by50\relax
+ }%
+\@@ylswfalse%
+\@forsemicol\member:=#2\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{50}\gdef\@yli{0}\global\@ylswtrue%W subst. on 1
+ \or \edef\@ylii{-\the\@tempcntb}\gdef\@yli{0}\global\@ylswtrue%E subst. on 1
+\fi%end of ifcase
+\fi\fi\fi}}%
+\def\rtrigonal{\@ifnextchar[{\@rtrigonal[r}{\@rtrigonal[r]}}
+\def\@rtrigonal#1]#2{%
+\begingroup
+\@reset@ylsw%
+\West@bondfalse
+\East@bondfalse
+\ylrtrigonalposition{#2}%
+\if@ylsw \ifx\@@ylii\empty
+\def\@@ylii{0}\def\@@yli{0}\fi
+\fi
+\begin{ShiftPicEnvB}(0,0)(-\yl@shiftii,-\yl@shifti)/%
+(600,600)(-300,-300){rtrigonal}%2002/4/30 by S. Fujita
+(300,300)%
+\@tfor\member:=#1\do{%
+ \expandafter\twoch@@r\member{}{}%
+ \if\@@tmpa 0\relax {\putratom{-27}{50}{\scriptsize\@@tmpb}}\fi}%
+\@forsemicol\member:=#2\do{%
+\ifx\member\empty\else
+\expandafter\@m@mb@r\member;\relax%
+\expandafter\threech@r\@membera{}{}%
+\ifx\@memberb\@yl\else
+\ifcase\@tmpa {\putlratom{-40}{-33}{\@memberb}}%central atom
+\or\setBScolor{\Put@Direct(0,0){\Westbond}}%
+\or\setBScolor{\Put@Direct(0,0){\SEbond}}%
+\or\setBScolor{\Put@Direct(0,0){\NEbond}}%
+\fi%end of ifcase
+\fi\fi}%
+\end{ShiftPicEnvB}%
+\endgroup}%end of macro rtrigonal
+\def\ylrtrigonalposition#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{52}\gdef\@yli{0}\global\@ylswtrue% W subst. on 1
+ \or \gdef\@ylii{-40}\gdef\@yli{47}\global\@ylswtrue% SE subst. on 1
+ \or \gdef\@ylii{-40}\gdef\@yli{-47}\global\@ylswtrue% NE subst. on 1
+\fi%end of ifcase
+\fi\fi\fi}}%
+\def\Rtrigonal{\@ifnextchar[{\@Rtrigonal[r}{\@Rtrigonal[r]}}
+\def\@Rtrigonal#1]#2{%
+\begingroup
+\@reset@ylsw%
+\West@bondfalse
+\East@bondfalse
+\ylRtrigonalposition{#2}%
+\if@ylsw \ifx\@@ylii\empty
+\def\@@ylii{0}\def\@@yli{0}\fi
+\fi
+\begin{ShiftPicEnvB}(0,0)(-\yl@shiftii,-\yl@shifti)/%
+(600,600)(-300,-300){Rtrigonal}%2002/4/30 by S. Fujita
+(300,300)%
+\@tfor\member:=#1\do{%
+ \expandafter\twoch@@r\member{}{}%
+ \if\@@tmpa 0\relax {\putratom{-27}{50}{\scriptsize\@@tmpb}}\fi}%
+\@forsemicol\member:=#2\do{%
+\ifx\member\empty\else
+\expandafter\@m@mb@r\member;\relax%
+\expandafter\threech@r\@membera{}{}%
+\ifx\@memberb\@yl\else
+\ifcase\@tmpa {\putlratom{-40}{-33}{\@memberb}}%central atom
+\or\setBScolor{\Put@Direct(0,0){\Westbond}}%
+\or\setBScolor{\Put@Direct(0,0){\SEBOND}}%
+\or\setBScolor{\Put@Direct(0,0){\NEBOND}}%
+\fi%end of ifcase
+\fi\fi}%
+\end{ShiftPicEnvB}%
+\endgroup}%end of macro Rtrigonal
+\def\ylRtrigonalposition#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{52}\gdef\@yli{0}\global\@ylswtrue% W subst. on 1
+ \or \gdef\@ylii{-47}\gdef\@yli{40}\global\@ylswtrue% SE subst. on 1
+ \or \gdef\@ylii{-47}\gdef\@yli{-40}\global\@ylswtrue% NE subst. on 1
+\fi%end of ifcase
+\fi\fi\fi}}%
+\def\ltrigonal{\@ifnextchar[{\@ltrigonal[r}{\@ltrigonal[r]}}
+\def\@ltrigonal#1]#2{%
+\begingroup
+\@reset@ylsw%
+\West@bondfalse
+\East@bondfalse
+\ylltrigonalposition{#2}%
+\if@ylsw \ifx\@@ylii\empty
+\def\@@ylii{0}\def\@@yli{0}\fi
+\fi
+\begin{ShiftPicEnvB}(0,0)(-\yl@shiftii,-\yl@shifti)/%
+(600,600)(-300,-300){ltrigonal}%2002/4/30 by S. Fujita
+(300,300)%
+\@tfor\member:=#1\do{%
+ \expandafter\twoch@@r\member{}{}%
+ \if\@@tmpa 0\relax {\putratom{-27}{50}{\scriptsize\@@tmpb}}\fi}%
+\@tempdima=0pt
+\@forsemicol\member:=#2\do{%
+\ifx\member\empty\else
+\expandafter\@m@mb@r\member;\relax%
+\expandafter\threech@r\@membera{}{}%
+\ifx\@memberb\@yl\else
+\ifcase\@tmpa
+\setbox9=\hbox{\@memberb}%
+\ifdim\wd9<0.72em
+\@tempdima=0.72em
+{\putlratom{-40}{-33}{\hbox to.72em{\hss\@memberb\hss}}}%central atom
+\else
+\ifWest@bond
+\@tempdima=\wd9
+{\putlratom{-40}{-33}{\hbox to.72em{\hss\@memberb}}}%central atom
+\else
+\@tempdima=\wd9
+{\putlratom{-40}{-33}{\hbox to.72em{\@memberb\hss}}}%central atom
+\fi\fi
+\else%%no action
+\fi%end of ifcase
+\fi\fi}%
+%%%%%
+\@forsemicol\member:=#2\do{%
+\ifx\member\empty\else
+\expandafter\@m@mb@r\member;\relax%
+\expandafter\threech@r\@membera{}{}%
+\ifx\@memberb\@yl\else
+\ifcase\@tmpa
+\or{%
+\advance\@tempdima by-0.72em
+\setBScolor{\Put@Direct(0,0){\kern\@tempdima\Eastbond}}}%
+\or{%
+\ifWest@bond
+\setBScolor{\Put@Direct(0,0){\kern-\@tempdima\kern0.72em\NWbond}}%
+\else
+\setBScolor{\Put@Direct(0,0){\NWbond}}%
+\fi
+}%
+\or{%
+\ifWest@bond
+\setBScolor{\Put@Direct(0,0){\kern-\@tempdima\kern0.72em\SWbond}}%
+\else
+\setBScolor{\Put@Direct(0,0){\SWbond}}%
+\fi
+}%
+\fi%end of ifcase
+\fi\fi}%
+\end{ShiftPicEnvB}%
+\West@bondfalse
+\East@bondfalse
+\endgroup}%end of macro ltrigonal
+\def\ylltrigonalposition#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{-52}\gdef\@yli{0}\global\@ylswtrue% E subst. on 1
+ \West@bondtrue%
+ \or \gdef\@ylii{50}\gdef\@yli{-47}\global\@ylswtrue% NW subst. on 1
+ \or \gdef\@ylii{50}\gdef\@yli{47}\global\@ylswtrue% SW subst. on 1
+\fi%end of ifcase
+\fi\fi\fi}}%
+\def\Ltrigonal{\@ifnextchar[{\@Ltrigonal[r}{\@Ltrigonal[r]}}
+\def\@Ltrigonal#1]#2{%
+\begingroup
+\@reset@ylsw%
+\West@bondfalse
+\East@bondfalse
+\ylLtrigonalposition{#2}%
+\if@ylsw \ifx\@@ylii\empty
+\def\@@ylii{0}\def\@@yli{0}\fi
+\fi
+\begin{ShiftPicEnvB}(0,0)(-\yl@shiftii,-\yl@shifti)/%
+(600,600)(-300,-300){Ltrigonal}%2002/4/30 by S. Fujita
+(300,300)%
+\@tfor\member:=#1\do{%
+ \expandafter\twoch@@r\member{}{}%
+ \if\@@tmpa 0\relax {\putratom{-27}{50}{\scriptsize\@@tmpb}}\fi}%
+\@tempdima=0pt
+\@forsemicol\member:=#2\do{%
+\ifx\member\empty\else
+\expandafter\@m@mb@r\member;\relax%
+\expandafter\threech@r\@membera{}{}%
+\ifx\@memberb\@yl\else
+\ifcase\@tmpa
+\setbox9=\hbox{\@memberb}%
+\ifdim\wd9<0.72em
+\@tempdima=0.72em
+{\putlratom{-40}{-33}{\hbox to.72em{\hss\@memberb\hss}}}%central atom
+\else
+\ifWest@bond
+\@tempdima=\wd9
+{\putlratom{-40}{-33}{\hbox to.72em{\hss\@memberb}}}%central atom
+%%%%\global\West@bondfalse
+\else
+\@tempdima=\wd9
+{\putlratom{-40}{-33}{\hbox to.72em{\@memberb\hss}}}%central atom
+\fi\fi
+\else%%no action
+\fi%end of ifcase
+\fi\fi}%
+%%%%%
+\@forsemicol\member:=#2\do{%
+\ifx\member\empty\else
+\expandafter\@m@mb@r\member;\relax%
+\expandafter\threech@r\@membera{}{}%
+\ifx\@memberb\@yl\else
+\ifcase\@tmpa
+\or{%
+\advance\@tempdima by-0.72em
+\setBScolor{\Put@Direct(0,0){\kern\@tempdima\Eastbond}}}%
+\or{%
+\ifWest@bond
+\setBScolor{\Put@Direct(0,0){\kern-\@tempdima\kern0.72em\NWBOND}}%
+\else
+\setBScolor{\Put@Direct(0,0){\NWBOND}}%
+\fi
+}%
+\or{%
+\ifWest@bond
+\setBScolor{\Put@Direct(0,0){\kern-\@tempdima\kern0.72em\SWBOND}}%
+\else
+\setBScolor{\Put@Direct(0,0){\SWBOND}}%
+\fi
+}%
+\fi%end of ifcase
+\fi\fi}%
+\end{ShiftPicEnvB}%
+\West@bondfalse
+\East@bondfalse
+\endgroup}%end of macro Ltrigonal
+\def\ylLtrigonalposition#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{-52}\gdef\@yli{0}\global\@ylswtrue% E subst. on 1
+ \West@bondtrue%
+ \or \gdef\@ylii{47}\gdef\@yli{-40}\global\@ylswtrue% NWB subst. on 1
+ \or \gdef\@ylii{47}\gdef\@yli{40}\global\@ylswtrue% SWB subst. on 1
+\fi%end of ifcase
+\fi\fi\fi}}%
+\def\utrigonal{\@ifnextchar[{\@utrigonal[r}{\@utrigonal[r]}}
+\def\@utrigonal#1]#2{%
+\begingroup
+\@reset@ylsw%
+\centralatomcheck{#2}%2013/04/01 added
+\ylutrigonalposition{#2}%
+\if@ylsw \ifx\@@ylii\empty
+\def\@@ylii{0}\def\@@yli{0}\fi
+\fi
+\begin{ShiftPicEnvB}(0,0)(-\yl@shiftii,-\yl@shifti)/%
+(600,600)(-300,-300){utrigonal}%2002/4/30 by S. Fujita
+(300,300)%
+\@tfor\member:=#1\do{%
+ \expandafter\twoch@@r\member{}{}%
+ \if\@@tmpa 0\relax {\putratom{-27}{50}{\scriptsize\@@tmpb}}\fi}%
+\@forsemicol\member:=#2\do{%
+\ifx\member\empty\else
+\expandafter\@m@mb@r\member;\relax%
+\expandafter\threech@r\@membera{}{}%
+\ifx\@memberb\@yl\else
+\ifcase\@tmpa
+{\putlratom{-40}{-33}{\@memberb}}%central atom
+\or\setBScolor{\Put@Direct(0,0){\Southbond}}%
+\or\setBScolor{\Put@Direct(0,0){\NEbond}}%
+\or\setBScolor{\Put@Direct(0,0){\NWbond}}%
+\fi%end of ifcase
+\fi\fi}%
+\end{ShiftPicEnvB}%
+\endgroup}%end of macro utrigonal
+\def\ylutrigonalposition#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{0}\gdef\@yli{52}\global\@ylswtrue%S subst. on 1
+ \or \gdef\@ylii{-40}\gdef\@yli{-47}\global\@ylswtrue% NE subst. on 1
+ \or \gdef\@ylii{50}\gdef\@yli{-47}\global\@ylswtrue% NW subst. on 1
+\fi%end of ifcase
+\fi\fi\fi}}%
+\def\Utrigonal{\@ifnextchar[{\@Utrigonal[r}{\@Utrigonal[r]}}
+\def\@Utrigonal#1]#2{%
+\begingroup
+\@reset@ylsw%
+\ylUtrigonalposition{#2}%
+\if@ylsw \ifx\@@ylii\empty
+\def\@@ylii{0}\def\@@yli{0}\fi
+\fi
+\begin{ShiftPicEnvB}(0,0)(-\yl@shiftii,-\yl@shifti)/%
+(600,600)(-300,-300){Utrigonal}%2002/4/30 by S. Fujita
+(300,300)%
+\@tfor\member:=#1\do{%
+ \expandafter\twoch@@r\member{}{}%
+ \if\@@tmpa 0\relax {\putratom{-27}{50}{\scriptsize\@@tmpb}}\fi}%
+\@forsemicol\member:=#2\do{%
+\ifx\member\empty\else
+\expandafter\@m@mb@r\member;\relax%
+\expandafter\threech@r\@membera{}{}%
+\ifx\@memberb\@yl\else
+\ifcase\@tmpa
+{\putlratom{-40}{-33}{\@memberb}}%central atom
+\or\setBScolor{\Put@Direct(0,0){\Southbond}}%
+\or\setBScolor{\Put@Direct(0,0){\NEBond}}%
+\or\setBScolor{\Put@Direct(0,0){\NWBond}}%
+\fi%end of ifcase
+\fi\fi}%
+\end{ShiftPicEnvB}%
+\endgroup}%end of macro Utrigonal
+\def\ylUtrigonalposition#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{0}\gdef\@yli{52}\global\@ylswtrue%S subst. on 1
+ \or \gdef\@ylii{-40}\gdef\@yli{-47}\global\@ylswtrue% NEB subst. on 1
+ \or \gdef\@ylii{66}\gdef\@yli{-47}\global\@ylswtrue% NWB subst. on 1
+\fi%end of ifcase
+\fi\fi\fi}}%
+\def\dtrigonal{\@ifnextchar[{\@dtrigonal[r}{\@dtrigonal[r]}}
+\def\@dtrigonal#1]#2{%
+\begingroup
+\@reset@ylsw%
+\yldtrigonalposition{#2}%
+\if@ylsw \ifx\@@ylii\empty
+\def\@@ylii{0}\def\@@yli{0}\fi
+\fi
+\begin{ShiftPicEnvB}(0,0)(-\yl@shiftii,-\yl@shifti)/%
+(600,600)(-300,-300){dtrigonal}%2002/4/30 by S. Fujita
+(300,300)%
+\@tfor\member:=#1\do{%
+ \expandafter\twoch@@r\member{}{}%
+ \if\@@tmpa 0\relax {\putratom{37}{50}{\scriptsize\@@tmpb}}\fi}%
+\@forsemicol\member:=#2\do{%
+\ifx\member\empty\else
+\expandafter\@m@mb@r\member;\relax%
+\expandafter\threech@r\@membera{}{}%
+\ifx\@memberb\@yl\else
+\ifcase\@tmpa
+{\putlratom{-40}{-33}{\@memberb}}%central atom
+\or\setBScolor{\Put@Direct(0,0){\Northbond}}%
+\or\setBScolor{\Put@Direct(0,0){\SEbond}}%
+\or\setBScolor{\Put@Direct(0,0){\SWbond}}%
+\fi%end of ifcase
+\fi\fi}%
+\end{ShiftPicEnvB}%
+\endgroup}%end of macro dtrigonal
+\def\yldtrigonalposition#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{0}\gdef\@yli{-52}\global\@ylswtrue%N subst. on 1
+ \or \gdef\@ylii{-40}\gdef\@yli{47}\global\@ylswtrue% SE subst. on 1
+ \or \gdef\@ylii{50}\gdef\@yli{47}\global\@ylswtrue% SW subst. on 1
+\fi%end of ifcase
+\fi\fi\fi}}%
+\def\Dtrigonal{\@ifnextchar[{\@Dtrigonal[r}{\@Dtrigonal[r]}}
+\def\@Dtrigonal#1]#2{%
+\begingroup
+\@reset@ylsw%
+\ylDtrigonalposition{#2}%
+\if@ylsw \ifx\@@ylii\empty
+\def\@@ylii{0}\def\@@yli{0}\fi
+\fi
+\begin{ShiftPicEnvB}(0,0)(-\yl@shiftii,-\yl@shifti)/%
+(600,600)(-300,-300){Dtrigonal}%2002/4/30 by S. Fujita
+(300,300)%
+\@tfor\member:=#1\do{%
+ \expandafter\twoch@@r\member{}{}%
+ \if\@@tmpa 0\relax {\putratom{37}{50}{\scriptsize\@@tmpb}}\fi}%
+\@forsemicol\member:=#2\do{%
+\ifx\member\empty\else
+\expandafter\@m@mb@r\member;\relax%
+\expandafter\threech@r\@membera{}{}%
+\ifx\@memberb\@yl\else
+\ifcase\@tmpa
+{\putlratom{-40}{-33}{\@memberb}}%central atom
+\or\setBScolor{\Put@Direct(0,0){\Northbond}}%
+\or\setBScolor{\Put@Direct(0,0){\SEBond}}%
+\or\setBScolor{\Put@Direct(0,0){\SWBond}}%
+\fi%end of ifcase
+\fi\fi}%
+\end{ShiftPicEnvB}%
+\endgroup}%end of macro Dtrigonal
+\def\ylDtrigonalposition#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{0}\gdef\@yli{-52}\global\@ylswtrue%N subst. on 1
+ \or \gdef\@ylii{-40}\gdef\@yli{47}\global\@ylswtrue% SEB subst. on 1
+ \or \gdef\@ylii{66}\gdef\@yli{47}\global\@ylswtrue% SWB subst. on 1
+\fi%end of ifcase
+\fi\fi\fi}}%
+\def\ethylene{\@ifnextchar[{\@ethylene}{\@ethylene[]}}
+\def\@ethylene[#1]#2#3{%
+\@reset@ylsw%
+\ylethylenepositiona{#3}%
+\if@ylsw \ifx\@@ylii\empty
+\def\@@ylii{0}\def\@@yli{0}\fi
+\else
+\ylethylenepositionb{#3}%
+\fi
+\if@ylsw \ifx\@@ylii\empty
+\def\@@ylii{-230}\def\@@yli{0}\fi
+\fi
+\begin{ShiftPicEnvB}(0,0)(-\yl@shiftii,-\yl@shifti)/%
+(800,600)(-300,-300){ethylene}%2002/4/30 by S. Fujita
+(300,300)%
+{\def\aaa{#1}\ifx\aaa\empty%
+ \Multiput@Direct(42,-13)(0,25){2}{\Put@Line(0,0)(1,0){140}}\fi%2010/10/01
+}%
+\@tfor\member:=#1\do{%
+ \expandafter\twoch@@r\member{}{}%
+ \if\@@tmpa 1\relax {\putratom{-27}{60}{\scriptsize\@@tmpb}}%
+ \else\if\@@tmpa 2\relax {\putratom{203}{60}{\scriptsize\@@tmpb}}%
+ \else\if\@@tmpa d\relax%
+ {\Multiput@Direct(42,-13)(0,25){2}{\Put@Line(0,0)(1,0){140}}}%2010/10/01
+ \else\if\@@tmpa t\relax%
+ {\Multiput@Direct(42,-20)(0,20){3}{\Put@Line(0,0)(1,0){140}}}%2010/10/01
+ \fi\fi\fi\fi}%
+{\def\aaa{#2}%
+\ifx\aaa\empty%
+\putratom{-40}{-33}{C}%central atom
+\putratom{190}{-33}{C}%central atom
+\else%
+\@forsemicol\member:=#2\do{%
+\ifx\member\empty\else
+\expandafter\@m@mb@r\member;\relax%
+\expandafter\threech@r\@membera{}{}%
+\ifcase\@tmpa%
+\or\putratom{-40}{-33}{\@memberb}%central atom
+\or\putratom{190}{-33}{\@memberb}%central atom
+\fi\fi}%end of ifcase
+\fi%
+}%
+\@forsemicol\member:=#3\do{%
+\ifx\member\empty\else
+\expandafter\@m@mb@r\member;\relax%
+\expandafter\threech@r\@membera{}{}%
+\ifx\@memberb\@yl\else
+\ifcase\@tmpa%
+\or\setBScolor{\Put@Direct(0,0){\NWbond}}%
+\or\setBScolor{\Put@Direct(0,0){\SWbond}}%
+\or\setBScolor{\Put@Direct(230,0){\SEbond}}%
+\or\setBScolor{\Put@Direct(230,0){\NEbond}}%
+\fi%end of ifcase
+\fi\fi}%
+\end{ShiftPicEnvB}%
+}%end of macro ethylene
+\let\ethyleneh=\ethylene
+\def\ylethylenepositiona#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{50}\gdef\@yli{-47}\global\@ylswtrue% NW subst. on 1
+ \or \gdef\@ylii{50}\gdef\@yli{47}\global\@ylswtrue% SW subst. on 1
+\fi%end of ifcase
+\fi\fi\fi}}%
+\def\ylethylenepositionb#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%omit
+ \or%omit
+ \or \gdef\@ylii{-40}\gdef\@yli{47}\global\@ylswtrue% SE subst. on 1
+ \or \gdef\@ylii{-40}\gdef\@yli{-47}\global\@ylswtrue% NE subst. on 1
+\fi%end of ifcase
+\fi\fi\fi}}%
+\def\Ethylene{\@ifnextchar[{\@Ethylene}{\@Ethylene[]}}%bug \@ethylene --> \@Ethylene
+\def\@Ethylene[#1]#2#3{%
+\@reset@ylsw%
+\ylethylenepositiona{#3}%
+\if@ylsw \ifx\@@ylii\empty
+\def\@@ylii{0}\def\@@yli{0}\fi
+\else
+\ylethylenepositionb{#3}%
+\fi
+\if@ylsw \ifx\@@ylii\empty
+\def\@@ylii{-230}\def\@@yli{0}\fi
+\fi
+\begin{ShiftPicEnvB}(0,0)(-\yl@shiftii,-\yl@shifti)/%
+(800,600)(-300,-300){Ethylene}%2002/4/30 by S. Fujita
+(300,300)%
+{\def\aaa{#1}\ifx\aaa\empty%
+ \Multiput@Direct(42,-13)(0,25){2}{\Put@Line(0,0)(1,0){140}}\fi%2010/10/01
+}%
+\@tfor\member:=#1\do{%
+ \expandafter\twoch@@r\member{}{}%
+ \if\@@tmpa 1\relax {\putratom{-27}{60}{\scriptsize\@@tmpb}}%
+ \else\if\@@tmpa 2\relax {\putratom{203}{60}{\scriptsize\@@tmpb}}%
+ \else\if\@@tmpa d\relax%
+ {\Multiput@Direct(42,-13)(0,25){2}{\Put@Line(0,0)(1,0){140}}}%2010/10/01
+ \else\if\@@tmpa t\relax%
+ {\Multiput@Direct(42,-20)(0,20){3}{\Put@Line(0,0)(1,0){140}}}%2010/10/01
+ \fi\fi\fi\fi}%
+{\def\aaa{#2}%
+\ifx\aaa\empty%
+\putratom{-40}{-33}{C}%central atom
+\putratom{190}{-33}{C}%central atom
+\else%
+\@forsemicol\member:=#2\do{%
+\ifx\member\empty\else
+\expandafter\@m@mb@r\member;\relax%
+\expandafter\threech@r\@membera{}{}%
+\ifcase\@tmpa%
+\or\putratom{-40}{-33}{\@memberb}%central atom
+\or\putratom{190}{-33}{\@memberb}%central atom
+\fi\fi}%end of ifcase
+\fi%
+}%
+\@forsemicol\member:=#3\do{%
+\ifx\member\empty\else
+\expandafter\@m@mb@r\member;\relax%
+\expandafter\threech@r\@membera{}{}%
+\ifx\@memberb\@yl\else
+\ifcase\@tmpa%
+\or\setBScolor{\Put@Direct(0,0){\NWBOND}}%
+\or\setBScolor{\Put@Direct(0,0){\SWBOND}}%
+\or\setBScolor{\Put@Direct(230,0){\SEBOND}}%
+\or\Put@Direct(230,0){\NEBOND}%
+\fi%end of ifcase
+\fi\fi}%
+\end{ShiftPicEnvB}%
+}%end of macro Ethylene
+\let\Ethyleneh=\Ethylene
+\def\ethylenev{\@ifnextchar[{\@ethylenev}{\@ethylenev[]}}
+\def\@ethylenev[#1]#2#3{%
+\@reset@ylsw%
+\ylethylenevpositiona{#3}%
+\if@ylsw \ifx\@@ylii\empty
+\def\@@ylii{0}\def\@@yli{0}\fi
+\else
+\ylethylenevpositionb{#3}%
+\fi
+\if@ylsw \ifx\@@ylii\empty
+\def\@@ylii{0}\def\@@yli{-230}\fi
+\fi
+\begin{ShiftPicEnvB}(0,0)(-\yl@shiftii,-\yl@shifti)/%
+(600,800)(-300,-300){ethylenev}%2002/4/30 by S. Fujita
+(300,300)%
+\def\aaa{#1}\ifx\aaa\empty%
+ \Put@Line(-20,47)(0,1){140}% vertical
+ \Put@Line(6,47)(0,1){140}\fi% double bond
+\@tfor\member:=#1\do{%
+ \expandafter\twoch@@r\member{}{}%
+ \if\@@tmpa 1\relax \putratom{37}{0}{\scriptsize\@@tmpb}
+ \else\if\@@tmpa 2\relax \putratom{37}{216}{\scriptsize\@@tmpb}
+ \else\if\@@tmpa d\relax%
+ \Put@Line(-13,47)(0,1){140}% vertical
+ \Put@Line(13,47)(0,1){140}% double bond
+ \else\if\@@tmpa t\relax%
+ \Put@Line(-20,47)(0,1){140}% vertical
+ \Put@Line(-0,47)(0,1){140}% triple bond
+ \Put@Line(20,47)(0,1){140}%
+ \fi\fi\fi\fi}%
+\def\aaa{#2}%
+\ifx\aaa\empty%
+\putratom{-40}{-33}{C}%central atom
+\putratom{-40}{197}{C}%central atom
+\else%
+\@forsemicol\member:=#2\do{%
+\ifx\member\empty\else
+\expandafter\@m@mb@r\member;\relax%
+\expandafter\threech@r\@membera{}{}%
+\ifcase\@tmpa%
+\or\putratom{-40}{-33}{\@memberb}%central atom
+\or\putratom{-40}{197}{\@memberb}%central atom
+\fi\fi}%end of ifcase
+\fi%
+\@forsemicol\member:=#3\do{%
+\ifx\member\empty\else
+\expandafter\@m@mb@r\member;\relax%
+\expandafter\threech@r\@membera{}{}%
+\ifx\@memberb\@yl\else
+\ifcase\@tmpa%
+\or\setBScolor{\Put@Direct(0,0){\SWbond}}%
+\or\setBScolor{\Put@Direct(0,0){\SEbond}}%
+\or\setBScolor{\Put@Direct(0,230){\NEbond}}%
+\or\setBScolor{\Put@Direct(0,230){\NWbond}}%
+\fi%end of ifcase
+\fi\fi}%
+\end{ShiftPicEnvB}%
+}%end of macro ethylenev
+\def\ylethylenevpositiona#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{50}\gdef\@yli{47}\global\@ylswtrue% SW subst. on 1
+ \or \gdef\@ylii{-40}\gdef\@yli{47}\global\@ylswtrue% SE subst. on 1
+\fi%end of ifcase
+\fi\fi\fi}}%
+\def\ylethylenevpositionb#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%omit
+ \or%omit
+ \or \gdef\@ylii{-40}\gdef\@yli{-47}\global\@ylswtrue% NE subst. on 1
+ \or \gdef\@ylii{50}\gdef\@yli{-47}\global\@ylswtrue% NW subst. on 1
+\fi%end of ifcase
+\fi\fi\fi}}%
+\def\Ethylenev{\@ifnextchar[{\@Ethylenev}{\@Ethylenev[]}}
+\def\@Ethylenev[#1]#2#3{%
+\@reset@ylsw%
+\ylethylenevpositiona{#3}%
+\if@ylsw \ifx\@@ylii\empty
+\def\@@ylii{0}\def\@@yli{0}\fi
+\else
+\ylethylenevpositionb{#3}%
+\fi
+\if@ylsw \ifx\@@ylii\empty
+\def\@@ylii{0}\def\@@yli{-230}\fi
+\fi
+\begin{ShiftPicEnvB}(0,0)(-\yl@shiftii,-\yl@shifti)/%
+(600,800)(-300,-300){Ethylenev}%2002/4/30 by S. Fujita
+(300,300)%
+\def\aaa{#1}\ifx\aaa\empty%
+ \Put@Line(-20,47)(0,1){140}% vertical
+ \Put@Line(6,47)(0,1){140}\fi% double bond
+\@tfor\member:=#1\do{%
+ \expandafter\twoch@@r\member{}{}%
+ \if\@@tmpa 1\relax \putratom{37}{0}{\scriptsize\@@tmpb}
+ \else\if\@@tmpa 2\relax \putratom{37}{216}{\scriptsize\@@tmpb}
+ \else\if\@@tmpa d\relax%
+ \Put@Line(-13,47)(0,1){140}% vertical
+ \Put@Line(13,47)(0,1){140}% double bond
+ \else\if\@@tmpa t\relax%
+ \Put@Line(-20,47)(0,1){140}% vertical
+ \Put@Line(-0,47)(0,1){140}% triple bond
+ \Put@Line(20,47)(0,1){140}%
+ \fi\fi\fi\fi}%
+\def\aaa{#2}%
+\ifx\aaa\empty%
+\putratom{-40}{-33}{C}%central atom
+\putratom{-40}{197}{C}%central atom
+\else%
+\@forsemicol\member:=#2\do{%
+\ifx\member\empty\else
+\expandafter\@m@mb@r\member;\relax%
+\expandafter\threech@r\@membera{}{}%
+\ifcase\@tmpa%
+\or\putratom{-40}{-33}{\@memberb}%central atom
+\or\putratom{-40}{197}{\@memberb}%central atom
+\fi\fi}%end of ifcase
+\fi%
+\@forsemicol\member:=#3\do{%
+\ifx\member\empty\else
+\expandafter\@m@mb@r\member;\relax%
+\expandafter\threech@r\@membera{}{}%
+\ifx\@memberb\@yl\else
+\ifcase\@tmpa%
+\or\setBScolor{\Put@Direct(0,0){\SWBond}}%
+\or\setBScolor{\Put@Direct(0,0){\SEBond}}%
+\or\setBScolor{\Put@Direct(0,230){\NEBond}}%
+\or\setBScolor{\Put@Direct(0,230){\NWBond}}%
+\fi%end of ifcase
+\fi\fi}%
+\end{ShiftPicEnvB}%
+}%end of macro Ethylenev
+\def\squareplanar{\@ifnextchar[{\@squareplanar[r}{\@squareplanar[r]}}
+\def\@squareplanar#1]#2{%
+\@reset@ylsw%
+\ylsquareposition{#2}%
+\if@ylsw \ifx\@@ylii\empty
+\def\@@ylii{0}\def\@@yli{0}\fi
+\fi
+\begin{ShiftPicEnvB}(0,0)(-\yl@shiftii,-\yl@shifti)/%
+(600,600)(-300,-300){square}%2002/4/30 by S. Fujita
+(300,300)%
+\@tfor\member:=#1\do{%
+ \expandafter\twoch@@r\member{}{}%
+ \if\@@tmpa 0\relax {\putratom{37}{0}{\scriptsize\@@tmpb}}\fi}%
+\@forsemicol\member:=#2\do{%
+\ifx\member\empty\else
+\expandafter\@m@mb@r\member;\relax%
+\expandafter\threech@r\@membera{}{}%
+\ifx\@memberb\@yl\else
+\ifcase\@tmpa {\putlratom{-40}{-33}{\@memberb}}%central atom
+\or\setBScolor{\Put@Direct(0,0){\NEbond}}%
+\or\setBScolor{\Put@Direct(0,0){\SEbond}}%
+\or\setBScolor{\Put@Direct(0,0){\SWbond}}%
+\or\setBScolor{\Put@Direct(0,0){\NWbond}}%
+\fi%end of ifcase
+\fi\fi}%
+\end{ShiftPicEnvB}%
+}%end of macro squareplanar
+\let\squarecomplex=\squareplanar
+\let\square=\squarplanar%combatible to the old version (<4.04)
+\def\ylsquareposition#1{%
+\@@ylswfalse%%%\@reset@ylsw
+\reset@@yl%%2013/07/30bug fix
+\@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
+ \or \gdef\@ylii{-40}\gdef\@yli{47}\global\@ylswtrue% SE subst. on 1
+ \or \gdef\@ylii{50}\gdef\@yli{47}\global\@ylswtrue% SW subst. on 1
+ \or \gdef\@ylii{50}\gdef\@yli{-47}\global\@ylswtrue% NW subst. on 1
+\fi%end of ifcase
+\fi\fi\fi}}%
+\def\tetrastereo{\@ifnextchar[{\@tetrastereo[r}{\@tetrastereo[r]}}
+\def\@tetrastereo#1]#2{%
+\begin{sfpicture}(600,600)(-300,-300)
+ \OrigptOutput(300,300){tetrastereo}
+\Put@oCircle(0,0){200}%
+\@tfor\member:=#1\do{%
+ \expandafter\twoch@@r\member{}{}%
+ \if\@@tmpa 0\relax \putratom{87}{90}{\scriptsize\@@tmpb}\fi}%
+\@forsemicol\member:=#2\do{%
+\ifx\member\empty\else
+\expandafter\@m@mb@r\member;\relax%
+\expandafter\threech@r\@membera{}{}%
+\ifcase\@tmpa \putlratom{-40}{-33}{\@memberb}%central atom
+\or%
+ \setBScolor{\Put@Line(0,100)(0,1){70}}% behind
+ \putlratom{-30}{180}{\@memberb}% and up
+\or%
+ {\thicklines%
+ \setBScolor{\Put@Line(-60,10)(-5,2){140}}% in front
+ \putlatom{-205}{30}{\@memberb}}% and left
+\or%
+ \setBScolor{\Put@Line(0,-100)(0,-1){90}}% behind and
+ \putlratom{-30}{-260}{\@memberb}% down
+\or%
+ {\thicklines%
+ \setBScolor{\Put@Line(60,10)(5,2){140}}% in front
+ \putratom{210}{30}{\@memberb}}% and right
+\fi\fi}%end of ifcase
+\end{sfpicture}}%end of macro tetrastereo
+\def\dtetrastereo{\@ifnextchar[{\@dtetrastereo[r}{\@dtetrastereo[r]}}
+\def\@dtetrastereo#1]#2{%
+\begin{sfpicture}(600,600)(-300,-300)
+ \OrigptOutput(300,300){dtetrastereo}
+\Put@oCircle(0,0){200}%
+\@tfor\member:=#1\do{%
+ \expandafter\twoch@@r\member{}{}%
+ \if\@@tmpa 0\relax \putratom{87}{90}{\scriptsize\@@tmpb}\fi}%
+\@forsemicol\member:=#2\do{%
+\ifx\member\empty\else
+\expandafter\@m@mb@r\member;\relax%
+\expandafter\threech@r\@membera{}{}%
+\ifcase\@tmpa \putlratom{-40}{-33}{\@memberb}%central atom
+\or%
+ \setBScolor{\Put@Line(0,100)(0,1){70}}% behind
+ \putlratom{-30}{180}{\@memberb}% and up
+\or%
+ \setBScolor{\Put@Line(-94,-10)(-5,-2){108}}% in back
+ \putlatom{-205}{-110}{\@memberb}% and left
+\or%
+ {\thicklines%
+ \setBScolor{\Put@Line(0,-50)(0,-1){150}}% behind and
+ \putlratom{-30}{-260}{\@memberb}}% down
+\or%
+ \setBScolor{\Put@Line(94,-10)(5,-2){108}}% in back
+ \putratom{210}{-110}{\@memberb}% and right
+\fi\fi}%end of ifcase
+\end{sfpicture}}%end of macro dtetrastereo
+\def\ethanestereo{\@ifnextchar[{\@ethanestereo}{\@ethanestereo[]}}
+\def\@ethanestereo[#1]#2#3{%
+\begin{sfpicture}(600,800)(-300,-300)
+ \OrigptOutput(300,300){ethanestereo}
+\Put@oCircle(0,0){200}%
+\Put@oCircle(0,270){200}%
+\Put@Line(0,100)(0,1){70}% central bond
+\@tfor\member:=#1\do{%
+ \expandafter\twoch@@r\member{}{}%
+ \if\@@tmpa 1\relax \putratom{87}{90}{\scriptsize\@@tmpb}
+ \else\if\@@tmpa 2\relax \putratom{87}{360}{\scriptsize\@@tmpb}
+ \fi\fi}%
+\def\aaa{#2}%
+\ifx\aaa\empty\else%
+\@forsemicol\member:=#2\do{%
+\ifx\member\empty\else
+\expandafter\@m@mb@r\member;\relax%
+\expandafter\threech@r\@membera{}{}%
+\ifcase\@tmpa%
+\or\putratom{-40}{-33}{\@memberb}%central atom
+\or\putratom{-40}{237}{\@memberb}%central atom
+\fi\fi}%end of ifcase
+\fi%
+\@forsemicol\member:=#3\do{%
+\ifx\member\empty\else
+\expandafter\@m@mb@r\member;\relax%
+\expandafter\threech@r\@membera{}{}%
+\ifcase\@tmpa \putlratom{-40}{-33}{\@memberb}%central atom
+\or%
+ \setBScolor{\Put@Line(-94,-10)(-5,-2){108}}% in back
+ \putlatom{-205}{-110}{\@memberb}% and left
+\or%
+ {\thicklines%
+ \setBScolor{\Put@Line(0,-50)(0,-1){150}}% behind and
+ \putlratom{-30}{-260}{\@memberb}}% down
+\or%
+ \setBScolor{\Put@Line(94,-10)(5,-2){108}}% in back
+ \putratom{210}{-110}{\@memberb}% and right
+\or%
+ {\thicklines%
+ \setBScolor{\Put@Line(60,280)(5,2){140}}% in front
+ \putratom{210}{300}{\@memberb}}% and right
+\or%
+ \setBScolor{\Put@Line(0,370)(0,1){70}}% behind
+ \putlratom{-30}{450}{\@memberb}% and up
+\or%
+ {\thicklines%
+ \setBScolor{\Put@Line(-60,280)(-5,2){140}}% in front
+ \putlatom{-205}{300}{\@memberb}}% and left
+\fi\fi}%end of ifcase
+\end{sfpicture}}%end of macro ethanestereo
+\def\rtetrahedralS{\@ifnextchar[{\@rtetrahedralS[r}{\@rtetrahedralS[r]}}
+\def\@rtetrahedralS#1]#2{%
+\begingroup
+\@reset@ylsw%
+\centralatomcheck{#2}%
+\ifno@centeratom\relax\@clipfusefalse\else\@clipfusetrue\fi%
+\ylrtetrahedralSposition{#2}%
+\if@ylsw \ifx\@@ylii\empty
+\def\@@ylii{0}\def\@@yli{0}\fi
+\fi
+\begin{ShiftPicEnvB}(0,0)(-\yl@shiftii,-\yl@shifti)/%
+(600,600)(-300,-300){rtetrahedralS}%2002/4/30 by S. Fujita
+(300,300)%
+\@tfor\member:=#1\do{%
+ \expandafter\twoch@@r\member{}{}%
+ \if\@@tmpa 0\relax {\putratom{-27}{50}{\scriptsize\@@tmpb}}\fi}%
+\@forsemicol\member:=#2\do{%
+\ifx\member\empty\else
+\expandafter\@m@mb@r\member;\relax%
+\expandafter\threech@r\@membera{}{}%
+\ifx\@memberb\@yl\else
+\ifcase\@tmpa {\putlratom{-40}{-33}{\@memberb}}%central atom
+\or\setBScolor{\setatombondh}%1 (-1,0)
+\or\setBScolor{\setatombondF}%2 (3,5)
+\or\setBScolor{\setatombonde}%3 (5,-3)
+\or\setBScolor{\setatombondE}%4 (3,-5)
+\fi%end of ifcase
+\fi\fi}%
+\end{ShiftPicEnvB}%
+\endgroup}%end of macro rtetrahedralS
+\def\ylrtetrahedralSposition#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\relax
+ \or
+ \ifno@centeratom%
+ \gdef\@ylii{0}\gdef\@yli{0}\global\@ylswtrue%W subst. on 1
+ \else
+ \gdef\@ylii{52}\gdef\@yli{0}\global\@ylswtrue%W subst. on 1
+ \fi
+ \or
+ \ifno@centeratom%
+ \gdef\@ylii{0}\gdef\@yli{0}\global\@ylswtrue%N subst. on 2
+ \else
+ \gdef\@ylii{-40}\gdef\@yli{-47}\global\@ylswtrue%N subst. on 2
+ \fi
+ \or
+ \ifno@centeratom%
+ \gdef\@ylii{0}\gdef\@yli{0}\global\@ylswtrue%SE subst. on 3
+ \else
+ \gdef\@ylii{-40}\gdef\@yli{20}\global\@ylswtrue%SE subst. on 3
+ \fi
+ \or
+ \ifno@centeratom%
+ \gdef\@ylii{0}\gdef\@yli{0}\global\@ylswtrue%SE subst. on 3
+ \else
+ \gdef\@ylii{-20}\gdef\@yli{47}\global\@ylswtrue%SE subst. on 3
+ \fi%
+\fi%end of ifcase
+\fi\fi\fi}}%
+\def\ltetrahedralS{\@ifnextchar[{\@ltetrahedralS[r}{\@ltetrahedralS[r]}}
+\def\@ltetrahedralS#1]#2{%
+\begingroup
+\@reset@ylsw%
+\centralatomcheck{#2}%
+\ifno@centeratom\relax\@clipfusefalse\else\@clipfusetrue\fi%
+\ylltetrahedralSposition{#2}%
+\if@ylsw \ifx\@@ylii\empty
+\def\@@ylii{0}\def\@@yli{0}\fi
+\fi
+\begin{ShiftPicEnvB}(0,0)(-\yl@shiftii,-\yl@shifti)/%
+(600,600)(-300,-300){ltetrahedralS}%2002/4/30 by S. Fujita
+(300,300)%
+\@tfor\member:=#1\do{%
+ \expandafter\twoch@@r\member{}{}%
+ \if\@@tmpa 0\relax {\putratom{-27}{50}{\scriptsize\@@tmpb}}\fi}%
+\@forsemicol\member:=#2\do{%
+\ifx\member\empty\else
+\expandafter\@m@mb@r\member;\relax%
+\expandafter\threech@r\@membera{}{}%
+\ifx\@memberb\@yl\else
+\ifcase\@tmpa {\putlratom{-40}{-33}{\@memberb}}%central atom
+\or\setBScolor{\setatombondb}%1 (1,0)
+\or\setBScolor{\setatombondD}%2 (-3,5)
+\or\setBScolor{\setatombondg}%3 (-5,-3)
+\or\setBScolor{\setatombondG}%4 (-3,-5)
+\fi%end of ifcase
+\fi\fi}%
+\end{ShiftPicEnvB}%
+\endgroup}%end of macro ltetrahedralS
+\def\ylltetrahedralSposition#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\relax
+ \or
+ \ifno@centeratom%
+ \gdef\@ylii{0}\gdef\@yli{0}\global\@ylswtrue%W subst. on 1
+ \else
+ \gdef\@ylii{-52}\gdef\@yli{0}\global\@ylswtrue%W subst. on 1
+ \fi
+ \or
+ \ifno@centeratom%
+ \gdef\@ylii{0}\gdef\@yli{0}\global\@ylswtrue%N subst. on 2
+ \else
+ \gdef\@ylii{40}\gdef\@yli{-47}\global\@ylswtrue%N subst. on 2
+ \fi
+ \or
+ \ifno@centeratom%
+ \gdef\@ylii{0}\gdef\@yli{0}\global\@ylswtrue%SE subst. on 3
+ \else
+ \gdef\@ylii{40}\gdef\@yli{20}\global\@ylswtrue%SE subst. on 3
+ \fi
+ \or
+ \ifno@centeratom%
+ \gdef\@ylii{0}\gdef\@yli{0}\global\@ylswtrue%SE subst. on 3
+ \else
+ \gdef\@ylii{20}\gdef\@yli{47}\global\@ylswtrue%SE subst. on 3
+ \fi%
+\fi%end of ifcase
+\fi\fi\fi}}%
+\def\dtetrahedralS{\@ifnextchar[{\@dtetrahedralS[r}{\@dtetrahedralS[r]}}
+\def\@dtetrahedralS#1]#2{%
+\begingroup
+\@reset@ylsw%
+\centralatomcheck{#2}%
+\ifno@centeratom\relax\@clipfusefalse\else\@clipfusetrue\fi%
+\yldtetrahedralSposition{#2}%
+\if@ylsw \ifx\@@ylii\empty
+\def\@@ylii{0}\def\@@yli{0}\fi
+\fi
+\begin{ShiftPicEnvB}(0,0)(-\yl@shiftii,-\yl@shifti)/%
+(600,600)(-300,-300){dtetrahedralS}%2002/4/30 by S. Fujita
+(300,300)%
+\@tfor\member:=#1\do{%
+ \expandafter\twoch@@r\member{}{}%
+ \if\@@tmpa 0\relax {\putratom{-27}{50}{\scriptsize\@@tmpb}}\fi}%
+\@forsemicol\member:=#2\do{%
+\ifx\member\empty\else
+\expandafter\@m@mb@r\member;\relax%
+\expandafter\threech@r\@membera{}{}%
+\ifx\@memberb\@yl\else
+\ifcase\@tmpa {\putlratom{-40}{-33}{\@memberb}}%central atom
+\or\setBScolor{\setatombonda}%1 (0,1)
+\or\setBScolor{\setatombonde}%5 (5,-3)
+\or\setBScolor{\setatombondg}%3 (-5,-3)
+\or\setBScolor{\setatombondG}%4 (-3,-5)
+\fi%end of ifcase
+\fi\fi}%
+\end{ShiftPicEnvB}%
+\endgroup}%end of macro dtetrahedralS
+\def\yldtetrahedralSposition#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\relax
+ \or
+ \ifno@centeratom%
+ \gdef\@ylii{0}\gdef\@yli{0}\global\@ylswtrue%N subst. on 1
+ \else
+ \gdef\@ylii{0}\gdef\@yli{-47}\global\@ylswtrue%N subst. on 1
+ \fi
+ \or
+ \ifno@centeratom%
+ \gdef\@ylii{0}\gdef\@yli{0}\global\@ylswtrue%W subst. on 2
+ \else
+ \gdef\@ylii{-42}\gdef\@yli{20}\global\@ylswtrue%W subst. on 2
+ \fi
+ \or
+ \ifno@centeratom%
+ \gdef\@ylii{0}\gdef\@yli{0}\global\@ylswtrue%SE subst. on 3
+ \else
+ \gdef\@ylii{40}\gdef\@yli{20}\global\@ylswtrue%SE subst. on 3
+ \fi
+ \or
+ \ifno@centeratom%
+ \gdef\@ylii{0}\gdef\@yli{0}\global\@ylswtrue%SE subst. on 3
+ \else
+ \gdef\@ylii{20}\gdef\@yli{47}\global\@ylswtrue%SE subst. on 3
+ \fi%
+\fi%end of ifcase
+\fi\fi\fi}}%
+\def\DtetrahedralS{\@ifnextchar[{\@DtetrahedralS[r}{\@DtetrahedralS[r]}}
+\def\@DtetrahedralS#1]#2{%
+\begingroup
+\@reset@ylsw%
+\centralatomcheck{#2}%
+\ifno@centeratom\relax\@clipfusefalse\else\@clipfusetrue\fi%
+\ylDtetrahedralSposition{#2}%
+\if@ylsw \ifx\@@ylii\empty
+\def\@@ylii{0}\def\@@yli{0}\fi
+\fi
+\begin{ShiftPicEnvB}(0,0)(-\yl@shiftii,-\yl@shifti)/%
+(600,600)(-300,-300){DtetrahedralS}%2002/4/30 by S. Fujita
+(300,300)%
+\@tfor\member:=#1\do{%
+ \expandafter\twoch@@r\member{}{}%
+ \if\@@tmpa 0\relax {\putratom{-27}{50}{\scriptsize\@@tmpb}}\fi}%
+\@forsemicol\member:=#2\do{%
+\ifx\member\empty\else
+\expandafter\@m@mb@r\member;\relax%
+\expandafter\threech@r\@membera{}{}%
+\ifx\@memberb\@yl\else
+\ifcase\@tmpa {\putlratom{-40}{-33}{\@memberb}}%central atom
+\or\setBScolor{\setatombonda}%1 (0,1)
+\or\setBScolor{\setatombondg}%5 (-5,-3)
+\or\setBScolor{\setatombonde}%3 (5,-3)
+\or\setBScolor{\setatombondE}%4 (3,-5)
+\fi%end of ifcase
+\fi\fi}%
+\end{ShiftPicEnvB}%
+\endgroup}%end of macro DtetrahedralS
+\def\ylDtetrahedralSposition#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\relax
+ \or
+ \ifno@centeratom%
+ \gdef\@ylii{0}\gdef\@yli{0}\global\@ylswtrue%W subst. on 1
+ \else
+ \gdef\@ylii{0}\gdef\@yli{-47}\global\@ylswtrue%W subst. on 1
+ \fi
+ \or
+ \ifno@centeratom%
+ \gdef\@ylii{0}\gdef\@yli{0}\global\@ylswtrue%N subst. on 2
+ \else
+ \gdef\@ylii{40}\gdef\@yli{20}\global\@ylswtrue%N subst. on 2
+ \fi
+ \or
+ \ifno@centeratom%
+ \gdef\@ylii{0}\gdef\@yli{0}\global\@ylswtrue%SE subst. on 3
+ \else
+ \gdef\@ylii{-40}\gdef\@yli{20}\global\@ylswtrue%SE subst. on 3
+ \fi
+ \or
+ \ifno@centeratom%
+ \gdef\@ylii{0}\gdef\@yli{0}\global\@ylswtrue%SE subst. on 3
+ \else
+ \gdef\@ylii{-20}\gdef\@yli{47}\global\@ylswtrue%SE subst. on 3
+ \fi%
+\fi%end of ifcase
+\fi\fi\fi}}%
+\def\utetrahedralS{\@ifnextchar[{\@utetrahedralS[r}{\@utetrahedralS[r]}}
+\def\@utetrahedralS#1]#2{%
+\begingroup
+\@reset@ylsw%
+\centralatomcheck{#2}%
+\ifno@centeratom\relax\@clipfusefalse\else\@clipfusetrue\fi%
+\ylutetrahedralSposition{#2}%
+\if@ylsw \ifx\@@ylii\empty
+\def\@@ylii{0}\def\@@yli{0}\fi
+\fi
+\begin{ShiftPicEnvB}(0,0)(-\yl@shiftii,-\yl@shifti)/%
+(600,600)(-300,-300){utetrahedralS}%2002/4/30 by S. Fujita
+(300,300)%
+\@tfor\member:=#1\do{%
+ \expandafter\twoch@@r\member{}{}%
+ \if\@@tmpa 0\relax {\putratom{-27}{50}{\scriptsize\@@tmpb}}\fi}%
+\@forsemicol\member:=#2\do{%
+\ifx\member\empty\else
+\expandafter\@m@mb@r\member;\relax%
+\expandafter\threech@r\@membera{}{}%
+\ifx\@memberb\@yl\else
+\ifcase\@tmpa {\putlratom{-40}{-33}{\@memberb}}%central atom
+\or\setBScolor{\setatombondc}%8 (0,-1)
+\or\setBScolor{\setatombondf}%3 (5,3)
+\or\setBScolor{\setatombondD}%1 (-3,5)
+\or\setBScolor{\setatombondd}%3 (-5,3)
+\fi%end of ifcase
+\fi\fi}%
+\end{ShiftPicEnvB}%
+\endgroup}%end of macro utetrahedralS
+\def\ylutetrahedralSposition#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\relax
+ \or
+ \ifno@centeratom%
+ \gdef\@ylii{0}\gdef\@yli{0}\global\@ylswtrue%N subst. on 1
+ \else
+ \gdef\@ylii{0}\gdef\@yli{47}\global\@ylswtrue%N subst. on 1
+ \fi
+ \or
+ \ifno@centeratom%
+ \gdef\@ylii{0}\gdef\@yli{0}\global\@ylswtrue%W subst. on 2
+ \else
+ \gdef\@ylii{-42}\gdef\@yli{-20}\global\@ylswtrue%W subst. on 2
+ \fi
+ \or
+ \ifno@centeratom%
+ \gdef\@ylii{0}\gdef\@yli{0}\global\@ylswtrue%SE subst. on 3
+ \else
+ \gdef\@ylii{20}\gdef\@yli{-47}\global\@ylswtrue%SE subst. on 3
+ \fi%
+ \or
+ \ifno@centeratom%
+ \gdef\@ylii{0}\gdef\@yli{0}\global\@ylswtrue%SE subst. on 3
+ \else
+ \gdef\@ylii{40}\gdef\@yli{-20}\global\@ylswtrue%SE subst. on 3
+ \fi
+\fi%end of ifcase
+\fi\fi\fi}}%
+\def\UtetrahedralS{\@ifnextchar[{\@UtetrahedralS[r}{\@UtetrahedralS[r]}}
+\def\@UtetrahedralS#1]#2{%
+\begingroup
+\@reset@ylsw%
+\centralatomcheck{#2}%
+\ifno@centeratom\relax\@clipfusefalse\else\@clipfusetrue\fi%
+\ylUtetrahedralSposition{#2}%
+\if@ylsw \ifx\@@ylii\empty
+\def\@@ylii{0}\def\@@yli{0}\fi
+\fi
+\begin{ShiftPicEnvB}(0,0)(-\yl@shiftii,-\yl@shifti)/%
+(600,600)(-300,-300){UtetrahedralS}%2002/4/30 by S. Fujita
+(300,300)%
+\@tfor\member:=#1\do{%
+ \expandafter\twoch@@r\member{}{}%
+ \if\@@tmpa 0\relax {\putratom{-27}{50}{\scriptsize\@@tmpb}}\fi}%
+\@forsemicol\member:=#2\do{%
+\ifx\member\empty\else
+\expandafter\@m@mb@r\member;\relax%
+\expandafter\threech@r\@membera{}{}%
+\ifx\@memberb\@yl\else
+\ifcase\@tmpa {\putlratom{-40}{-33}{\@memberb}}%central atom
+\or\setBScolor{\setatombondc}%1 (0,-1)
+\or\setBScolor{\setatombondd}%2 (-5,3)
+\or\setBScolor{\setatombondF}%3 (3,5)
+\or\setBScolor{\setatombondf}%4 (5,3)
+\fi%end of ifcase
+\fi\fi}%
+\end{ShiftPicEnvB}%
+\endgroup}%end of macro UtetrahedralS
+\def\ylUtetrahedralSposition#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\relax
+ \or
+ \ifno@centeratom%
+ \gdef\@ylii{0}\gdef\@yli{0}\global\@ylswtrue%W subst. on 1
+ \else
+ \gdef\@ylii{0}\gdef\@yli{47}\global\@ylswtrue%W subst. on 1
+ \fi
+ \or
+ \ifno@centeratom%
+ \gdef\@ylii{0}\gdef\@yli{0}\global\@ylswtrue%N subst. on 2
+ \else
+ \gdef\@ylii{40}\gdef\@yli{-20}\global\@ylswtrue%N subst. on 2
+ \fi
+ \or
+ \ifno@centeratom%
+ \gdef\@ylii{0}\gdef\@yli{0}\global\@ylswtrue%SE subst. on 3
+ \else
+ \gdef\@ylii{-20}\gdef\@yli{-47}\global\@ylswtrue%SE subst. on 3
+ \fi%
+ \or
+ \ifno@centeratom%
+ \gdef\@ylii{0}\gdef\@yli{0}\global\@ylswtrue%SE subst. on 3
+ \else
+ \gdef\@ylii{-40}\gdef\@yli{-20}\global\@ylswtrue%SE subst. on 3
+ \fi
+\fi%end of ifcase
+\fi\fi\fi}}%
+\def\htetrahedralS{\@ifnextchar[{\@htetrahedralS[r}{\@htetrahedralS[r]}}
+\def\@htetrahedralS#1]#2{%
+\begingroup
+\@reset@ylsw%
+\centralatomcheck{#2}%
+\ifno@centeratom\relax\@clipfusefalse\else\@clipfusetrue\fi%
+\ylhtetrahedralSposition{#2}%
+\if@ylsw \ifx\@@ylii\empty
+\def\@@ylii{0}\def\@@yli{0}\fi
+\fi
+\begin{ShiftPicEnvB}(0,0)(-\yl@shiftii,-\yl@shifti)/%
+(600,600)(-300,-300){htetrahedralS}%2002/4/30 by S. Fujita
+(300,300)%
+\@tfor\member:=#1\do{%
+ \expandafter\twoch@@r\member{}{}%
+ \if\@@tmpa 0\relax {\putratom{-27}{50}{\scriptsize\@@tmpb}}\fi}%
+\@forsemicol\member:=#2\do{%
+\ifx\member\empty\else
+\expandafter\@m@mb@r\member;\relax%
+\expandafter\threech@r\@membera{}{}%
+\ifx\@memberb\@yl\else
+\ifcase\@tmpa {\putlratom{-40}{-33}{\@memberb}}%central atom
+\or\setBScolor{\setatombondg}%5 (-5,-3)
+\or\setBScolor{\setatombonde}%5 (5,-3)
+\or\setBScolor{\setatombondF}%1 (3,5)
+\or\setBScolor{\setatombondD}%1 (-3,5)
+\fi%end of ifcase
+\fi\fi}%
+\end{ShiftPicEnvB}%
+\endgroup}%end of macro htetrahedralS
+\def\ylhtetrahedralSposition#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\relax
+ \or
+ \ifno@centeratom%
+ \gdef\@ylii{0}\gdef\@yli{0}\global\@ylswtrue%W subst. on 1
+ \else
+ \gdef\@ylii{40}\gdef\@yli{30}\global\@ylswtrue%W subst. on 1
+ \fi
+ \or
+ \ifno@centeratom%
+ \gdef\@ylii{0}\gdef\@yli{0}\global\@ylswtrue%N subst. on 2
+ \else
+ \gdef\@ylii{-40}\gdef\@yli{30}\global\@ylswtrue%N subst. on 2
+ \fi
+ \or
+ \ifno@centeratom%
+ \gdef\@ylii{0}\gdef\@yli{0}\global\@ylswtrue%SE subst. on 3
+ \else
+ \gdef\@ylii{-20}\gdef\@yli{-47}\global\@ylswtrue%SE subst. on 3
+ \fi%
+ \or
+ \ifno@centeratom%
+ \gdef\@ylii{0}\gdef\@yli{0}\global\@ylswtrue%SE subst. on 3
+ \else
+ \gdef\@ylii{40}\gdef\@yli{-47}\global\@ylswtrue%SE subst. on 3
+ \fi
+\fi%end of ifcase
+\fi\fi\fi}}%
+\def\RtetrahedralS{\@ifnextchar[{\@RtetrahedralS[r}{\@RtetrahedralS[r]}}
+\def\@RtetrahedralS#1]#2{%
+\begingroup
+\@reset@ylsw%
+\centralatomcheck{#2}%
+\ifno@centeratom\relax\@clipfusefalse\else\@clipfusetrue\fi%
+\ylRtetrahedralSposition{#2}%
+\if@ylsw \ifx\@@ylii\empty
+\def\@@ylii{0}\def\@@yli{0}\fi
+\fi
+\begin{ShiftPicEnvB}(0,0)(-\yl@shiftii,-\yl@shifti)/%
+(600,600)(-300,-300){RtetrahedralS}%2002/4/30 by S. Fujita
+(300,300)%
+\@tfor\member:=#1\do{%
+ \expandafter\twoch@@r\member{}{}%
+ \if\@@tmpa 0\relax {\putratom{-27}{50}{\scriptsize\@@tmpb}}\fi}%
+\@forsemicol\member:=#2\do{%
+\ifx\member\empty\else
+\expandafter\@m@mb@r\member;\relax%
+\expandafter\threech@r\@membera{}{}%
+\ifx\@memberb\@yl\else
+\ifcase\@tmpa {\putlratom{-40}{-33}{\@memberb}}%central atom
+\or
+\setBScolor{\setatombondh}%1 (-1,0)
+\or\setBScolor{\setatombondE}%7 (3,-5)
+\or\setBScolor{\setatombondF}%2 (3,5)
+\or\setBScolor{\setatombondf}%3 (5,3)
+\fi%end of ifcase
+\fi\fi}%
+\end{ShiftPicEnvB}%
+\endgroup}%end of macro RtetrahedralS
+\def\ylRtetrahedralSposition#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\relax
+ \or
+ \ifno@centeratom%
+ \gdef\@ylii{0}\gdef\@yli{0}\global\@ylswtrue%W subst. on 1
+ \else
+ \gdef\@ylii{52}\gdef\@yli{0}\global\@ylswtrue%W subst. on 1
+ \fi
+ \or
+ \ifno@centeratom%
+ \gdef\@ylii{0}\gdef\@yli{0}\global\@ylswtrue%N subst. on 2
+ \else
+ \gdef\@ylii{-40}\gdef\@yli{47}\global\@ylswtrue%N subst. on 2
+ \fi
+ \or
+ \ifno@centeratom%
+ \gdef\@ylii{0}\gdef\@yli{0}\global\@ylswtrue%SE subst. on 3
+ \else
+ \gdef\@ylii{-40}\gdef\@yli{-47}\global\@ylswtrue%SE subst. on 3
+ \fi
+ \or
+ \ifno@centeratom%
+ \gdef\@ylii{0}\gdef\@yli{0}\global\@ylswtrue%SE subst. on 3
+ \else
+ \gdef\@ylii{-20}\gdef\@yli{-20}\global\@ylswtrue%SE subst. on 3
+ \fi%
+\fi%end of ifcase
+\fi\fi\fi}}%
+\def\LtetrahedralS{\@ifnextchar[{\@LtetrahedralS[r}{\@LtetrahedralS[r]}}
+\def\@LtetrahedralS#1]#2{%
+\begingroup
+\@reset@ylsw%
+\centralatomcheck{#2}%
+\ifno@centeratom\relax\@clipfusefalse\else\@clipfusetrue\fi%
+\ylLtetrahedralSposition{#2}%
+\if@ylsw \ifx\@@ylii\empty
+\def\@@ylii{0}\def\@@yli{0}\fi
+\fi
+\begin{ShiftPicEnvB}(0,0)(-\yl@shiftii,-\yl@shifti)/%
+(600,600)(-300,-300){LtetrahedralS}%2002/4/30 by S. Fujita
+(300,300)%
+\@tfor\member:=#1\do{%
+ \expandafter\twoch@@r\member{}{}%
+ \if\@@tmpa 0\relax {\putratom{-27}{50}{\scriptsize\@@tmpb}}\fi}%
+\@forsemicol\member:=#2\do{%
+\ifx\member\empty\else
+\expandafter\@m@mb@r\member;\relax%
+\expandafter\threech@r\@membera{}{}%
+\ifx\@memberb\@yl\else
+\ifcase\@tmpa {\putlratom{-40}{-33}{\@memberb}}%central atom
+\or
+\setBScolor{\setatombondb}%1 (1,0)
+\or\setBScolor{\setatombondG}%2 (-3,-5)
+\or\setBScolor{\setatombondD}%3 (-3,5)
+\or\setBScolor{\setatombondd}%4 (-5,3)
+\fi%end of ifcase
+\fi\fi}%
+\end{ShiftPicEnvB}%
+\endgroup}%end of macro LtetrahedralS
+\def\ylLtetrahedralSposition#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\relax
+ \or
+ \ifno@centeratom%
+ \gdef\@ylii{0}\gdef\@yli{0}\global\@ylswtrue%W subst. on 1
+ \else
+ \gdef\@ylii{-52}\gdef\@yli{0}\global\@ylswtrue%W subst. on 1
+ \fi
+ \or
+ \ifno@centeratom%
+ \gdef\@ylii{0}\gdef\@yli{0}\global\@ylswtrue%N subst. on 2
+ \else
+ \gdef\@ylii{40}\gdef\@yli{47}\global\@ylswtrue%N subst. on 2
+ \fi
+ \or
+ \ifno@centeratom%
+ \gdef\@ylii{0}\gdef\@yli{0}\global\@ylswtrue%SE subst. on 3
+ \else
+ \gdef\@ylii{40}\gdef\@yli{-47}\global\@ylswtrue%SE subst. on 3
+ \fi
+ \or
+ \ifno@centeratom%
+ \gdef\@ylii{0}\gdef\@yli{0}\global\@ylswtrue%SE subst. on 3
+ \else
+ \gdef\@ylii{20}\gdef\@yli{-20}\global\@ylswtrue%SE subst. on 3
+ \fi%
+\fi%end of ifcase
+\fi\fi\fi}}%
+\def\utrigpyramid{\@ifnextchar[{\@utrigpyramid[r}{\@utrigpyramid[r]}}
+\def\@utrigpyramid#1]#2{%
+\begingroup
+\@reset@ylsw%
+\centralatomcheck{#2}%
+\ifno@centeratom\relax\@clipfusefalse\else\@clipfusetrue\fi%
+\ylutrigpyramidposition{#2}%
+\if@ylsw \ifx\@@ylii\empty
+\def\@@ylii{0}\def\@@yli{0}\fi
+\fi
+\begin{ShiftPicEnvB}(0,0)(-\yl@shiftii,-\yl@shifti)/%
+(600,600)(-300,-300){utrigpyramid}%2002/4/30 by S. Fujita
+(300,300)%
+\@tfor\member:=#1\do{%
+ \expandafter\twoch@@r\member{}{}%
+ \if\@@tmpa 0\relax {\putratom{-27}{50}{\scriptsize\@@tmpb}}\fi}%
+\@forsemicol\member:=#2\do{%
+\ifx\member\empty\else
+\expandafter\@m@mb@r\member;\relax%
+\expandafter\threech@r\@membera{}{}%
+\ifx\@memberb\@yl\else
+\ifcase\@tmpa {\putlratom{-40}{-33}{\@memberb}}%central atom
+\or\setBScolor{\setatombondc}%1 (0,-1)
+\or\setBScolor{\setatombondF}%2 (3,5)
+\or\setBScolor{\setatombondD}%3 (-3,5)
+\or{\let\dotorline=\d@t@rline \setBScolor{\setatombondh}}%4 (-1,0)
+\or{\let\dotorline=\d@t@rline \setBScolor{\setatombondb}}%5 (1,0)
+\fi%end of ifcase
+\fi\fi}%
+\end{ShiftPicEnvB}%
+\endgroup}%end of macro utrigpyramid
+\def\ylutrigpyramidposition#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\relax
+ \or
+ \ifno@centeratom%
+ \gdef\@ylii{0}\gdef\@yli{0}\global\@ylswtrue%W subst. on 1
+ \else
+ \gdef\@ylii{0}\gdef\@yli{47}\global\@ylswtrue%W subst. on 1
+ \fi
+ \or
+ \ifno@centeratom%
+ \gdef\@ylii{0}\gdef\@yli{0}\global\@ylswtrue%N subst. on 2
+ \else
+ \gdef\@ylii{-20}\gdef\@yli{-47}\global\@ylswtrue%N subst. on 2
+ \fi
+ \or
+ \ifno@centeratom%
+ \gdef\@ylii{0}\gdef\@yli{0}\global\@ylswtrue%SE subst. on 3
+ \else
+ \gdef\@ylii{20}\gdef\@yli{-47}\global\@ylswtrue%SE subst. on 3
+ \fi%
+ \or
+ \ifno@centeratom%
+ \gdef\@ylii{0}\gdef\@yli{0}\global\@ylswtrue%SE subst. on 3
+ \else
+ \gdef\@ylii{40}\gdef\@yli{0}\global\@ylswtrue%SE subst. on 3
+ \fi
+ \or
+ \ifno@centeratom%
+ \gdef\@ylii{0}\gdef\@yli{0}\global\@ylswtrue%SE subst. on 3
+ \else
+ \gdef\@ylii{-40}\gdef\@yli{0}\global\@ylswtrue%SE subst. on 3
+ \fi
+\fi%end of ifcase
+\fi\fi\fi}}%
+\def\dtrigpyramid{\@ifnextchar[{\@dtrigpyramid[r}{\@dtrigpyramid[r]}}
+\def\@dtrigpyramid#1]#2{%
+\begingroup
+\@reset@ylsw%
+\centralatomcheck{#2}%
+\ifno@centeratom\relax\@clipfusefalse\else\@clipfusetrue\fi%
+\yldtrigpyramidposition{#2}%
+\if@ylsw \ifx\@@ylii\empty
+\def\@@ylii{0}\def\@@yli{0}\fi
+\fi
+\begin{ShiftPicEnvB}(0,0)(-\yl@shiftii,-\yl@shifti)/%
+(600,600)(-300,-300){dtrigpyramid}%2002/4/30 by S. Fujita
+(300,300)%
+\@tfor\member:=#1\do{%
+ \expandafter\twoch@@r\member{}{}%
+ \if\@@tmpa 0\relax {\putratom{-27}{50}{\scriptsize\@@tmpb}}\fi}%
+\@forsemicol\member:=#2\do{%
+\ifx\member\empty\else
+\expandafter\@m@mb@r\member;\relax%
+\expandafter\threech@r\@membera{}{}%
+\ifx\@memberb\@yl\else
+\ifcase\@tmpa {\putlratom{-40}{-33}{\@memberb}}%central atom
+\or\setBScolor{\setatombonda}%1 (0,1)
+\or\setBScolor{\setatombondE}%2 (3,-5)
+\or\setBScolor{\setatombondG}%3 (-3,-5)
+\or{\let\dotorline=\d@t@rline \setBScolor{\setatombondh}}%4 (-1,0)
+\or{\let\dotorline=\d@t@rline \setBScolor{\setatombondb}}%5 (1,0)
+\fi%end of ifcase
+\fi\fi}%
+\end{ShiftPicEnvB}%
+\endgroup}%end of macro dtrigpyramid
+\def\yldtrigpyramidposition#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\relax
+ \or
+ \ifno@centeratom%
+ \gdef\@ylii{0}\gdef\@yli{0}\global\@ylswtrue%W subst. on 1
+ \else
+ \gdef\@ylii{0}\gdef\@yli{-47}\global\@ylswtrue%W subst. on 1
+ \fi
+ \or
+ \ifno@centeratom%
+ \gdef\@ylii{0}\gdef\@yli{0}\global\@ylswtrue%N subst. on 2
+ \else
+ \gdef\@ylii{-20}\gdef\@yli{47}\global\@ylswtrue%N subst. on 2
+ \fi
+ \or
+ \ifno@centeratom%
+ \gdef\@ylii{0}\gdef\@yli{0}\global\@ylswtrue%SE subst. on 3
+ \else
+ \gdef\@ylii{20}\gdef\@yli{47}\global\@ylswtrue%SE subst. on 3
+ \fi%
+ \or
+ \ifno@centeratom%
+ \gdef\@ylii{0}\gdef\@yli{0}\global\@ylswtrue%SE subst. on 3
+ \else
+ \gdef\@ylii{40}\gdef\@yli{0}\global\@ylswtrue%SE subst. on 3
+ \fi
+ \or
+ \ifno@centeratom%
+ \gdef\@ylii{0}\gdef\@yli{0}\global\@ylswtrue%SE subst. on 3
+ \else
+ \gdef\@ylii{-40}\gdef\@yli{0}\global\@ylswtrue%SE subst. on 3
+ \fi
+\fi%end of ifcase
+\fi\fi\fi}}%
+\endinput
+%%
+%% End of file `aliphat.sty'.