diff options
Diffstat (limited to 'macros/latex/contrib/xymtex/base/aliphat.sty')
-rw-r--r-- | macros/latex/contrib/xymtex/base/aliphat.sty | 2477 |
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'. |