diff options
Diffstat (limited to 'macros/latex/contrib/xymtex/base/methylen.sty')
-rw-r--r-- | macros/latex/contrib/xymtex/base/methylen.sty | 3484 |
1 files changed, 3484 insertions, 0 deletions
diff --git a/macros/latex/contrib/xymtex/base/methylen.sty b/macros/latex/contrib/xymtex/base/methylen.sty new file mode 100644 index 0000000000..f456e4a3d4 --- /dev/null +++ b/macros/latex/contrib/xymtex/base/methylen.sty @@ -0,0 +1,3484 @@ +%% +%% This is file `methylen.sty', +%% generated with the docstrip utility. +%% +%% The original source files were: +%% +%% methylen.dtx (with options: `methylen') +%% +%% This is a generated file. +%% +%% Copyright 1998, 2001,2002,2004,2005,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 file is part of the XyMTeX system. +%% ======================================= +%% Old Versions: +%% Version 1.02 Released on October 31, 1996 (private version) +%% 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 (private version) +%% Version 4.00 Released on August 30, 2004 +%% Version 4.03 Released on July 20, 2005 +%% Version 5.00 Released on October 01, 2010 +%% Version 5.01b Released on March 29, 2013 +%% Version 5.01bb Released on June 22, 2013 +%% Version 5.01bbb Released on June 27, 2013 +%% +%% The Present Version: +%% Version 5.01 Released on July 20, 2013 +%% +%% 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 methylen.dtx and methylen.ins +%% and the derived file methylen.sty. +%% +%% ======================================= +%% +%% File: methylen.dtx +\def\copyrighth@lder{SF} % Shinsaku Fujita +%% \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{methylen} +\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}{} +\@ifundefined{Westbond}{\input aliphat.sty\relax}{} +\@ifundefined{bzdrv}{\input carom.sty\relax}{} +\@ifundefined{hbonde}{\input hetaromh.sty\relax}{} +\unitlength=0.1pt +\newif\if@wrongbdWa \@wrongbdWafalse +\newif\if@wrongbdWd \@wrongbdWdfalse +\newif\if@wrongbdWaL \@wrongbdWaLfalse +\newif\if@wrongbdWdL \@wrongbdWdLfalse +\def\@methsubsta{% +\if@aclip% %clipping + \if\@tmpb S%single bond + \ifx\@tmpc\empty% + \yl@xdiff=31\relax + \yl@ydiff=-17\relax + \Put@Line(0,436)(0,1){110}% % single bond at 1 + \putlratom{-31}{563}{\@memberb}% % left or right type + \else\if\@tmpc B%(B) beta + \yl@xdiff=-36\relax + \yl@ydiff=-27\relax + {% + \thicklines% + \Put@Line(-18,436)(-3,5){60}% % single bond at 1 + }% + \putlatom{-42}{563}{\@memberb}% % left type + \else\if\@tmpc A%(A) alpha + \yl@xdiff=37\relax + \yl@ydiff=-27\relax + \dotorline(18,436)(3,5){60}/(18,436)(72,526)% + \putratom{41}{563}{\@memberb}% % right type + \else\if\@tmpc b%(b) beta + \yl@xdiff=-36\relax + \yl@ydiff=-27\relax + \putlatom{-42}{563}{\@memberb}% % left type + \Put@Line(-18,436)(-3,5){60}% % single bond at 1 + \else\if\@tmpc a%(a) alpha + \yl@xdiff=37\relax + \yl@ydiff=-27\relax + \Put@Line(18,436)(3,5){60}% % single bond at 1 + \putratom{41}{563}{\@memberb}% % right type + \else\if\@tmpc U% undefined + \yl@xdiff=-36\relax + \yl@ydiff=-27\relax + {% + \WaveBonds% + \Put@Line(-18,436)(-3,5){60}% % single bond at 1 + }% + \putlatom{-42}{563}{\@memberb}% % left type + \else\if\@tmpc V% undefined + \yl@xdiff=37\relax + \yl@ydiff=-27\relax + {% + \WaveBonds% + \Put@Line(18,436)(3,5){60}% % wavy single bond at 1 + }% + \putratom{41}{563}{\@memberb}% % right type + \else\if\@tmpc d%(d) alpha + \yl@xdiff=-36\relax + \yl@ydiff=-27\relax + \dotorline(-18,436)(-3,5){60}/(-18,436)(-72,536)% + \putlatom{-42}{563}{\@memberb}% % left type + \else\if\@tmpc u%(u) beta + \yl@xdiff=37\relax + \yl@ydiff=-27\relax + {% + \thicklines% + \Put@Line(18,436)(3,5){60}% % single bond at 1 + }% + \putratom{41}{563}{\@memberb}% % right type + \fi\fi + \fi\fi\fi\fi\fi\fi\fi% + \else\if\@tmpb D%double bond + \yl@xdiff=31\relax + \yl@ydiff=-17\relax + \putlratom{-31}{563}{\@memberb}% % left or right type + \Put@Line(-12,436)(0,1){110}% % double bond at 1 + \Put@Line(12,436)(0,1){110}% % double bond at 1 + \else\if\@tmpb B%beta single bond + \yl@xdiff=31\relax + \yl@ydiff=-17\relax + \putlratom{-31}{563}{\@memberb}% % left or right type + {% + \thicklines% + \Put@Line(0,436)(0,1){110}% % single bond at 1 + }% + \else\if\@tmpb A%alpha single bond + \yl@xdiff=31\relax + \yl@ydiff=-17\relax + \putlratom{-31}{563}{\@memberb}% % left or right type + \dotorline(0,436)(0,1){110}/(0,436)(0,546)% + \else\if\@tmpb U% undefined + \yl@xdiff=31\relax + \yl@ydiff=-17\relax + \putlratom{-31}{563}{\@memberb}% % left or right type + {% + \WaveBonds% + \Put@Line(0,436)(0,1){110}% % single bond at 1 + }% + \else\if\@tmpb W%beta single bond + \ifx\@tmpc\empty% + \yl@xdiff=-10\relax + \yl@ydiff=46\relax + \if@wrongbdWa + \XyMTeXWarning{Wrong Bond-Modifier (W)}% + \fi + \Put@Line(40,382)(5,-3){100}% % single bond at 1 + \putratom{150}{276}{\@memberb}% % left or right type + \else\if\@tmpc U%beta undefined + \yl@xdiff=-10\relax + \yl@ydiff=46\relax + {% + \WaveBonds% + \Put@Line(40,382)(5,-3){100}% % single bond at 1 + }% + \putratom{150}{276}{\@memberb}% % left or right type + \else\if\@tmpc B%beta + \yl@xdiff=-10\relax + \yl@ydiff=46\relax + {% + \thicklines% + \Put@Line(40,382)(5,-3){100}% % single bond at 1 + }% + \putratom{150}{276}{\@memberb}% % left or right type + \else\if\@tmpc A%alpha + \yl@xdiff=-10\relax + \yl@ydiff=46\relax + \dotorline(40,382)(5,-3){100}/(40,382)(140,322)% + \putratom{150}{276}{\@memberb}% % left or right type + \fi\fi\fi\fi + \else% + \yl@xdiff=31\relax + \yl@ydiff=-17\relax + \putlratom{-31}{563}{\@memberb}% % left or right type + \Put@Line(0,436)(0,1){110}% % single bond at 1 + \fi\fi\fi\fi\fi\fi% +\else% % no clipping + \if\@tmpb S%single bond + \ifx\@tmpc\empty% + \yl@xdiff=31\relax + \yl@ydiff=-17\relax + \Put@Line(0,406)(0,1){140}% % single bond at 1 + \putlratom{-31}{563}{\@memberb}% % left or right type + \else\if\@tmpc B%(B) beta + \yl@xdiff=-30\relax + \yl@ydiff=-37\relax + \putlatom{-42}{563}{\@memberb}% % left type + {% + \thicklines% + \Put@Line(0,406)(-3,5){72}% % single bond at 1 + }% + \else\if\@tmpc A%(A) alpha + \yl@xdiff=31\relax + \yl@ydiff=-37\relax + \putratom{41}{563}{\@memberb}% % right type + \dotorline(0,406)(3,5){72}/(0,406)(72,526)% + \else\if\@tmpc b%(b) beta + \yl@xdiff=-30\relax + \yl@ydiff=-37\relax + \putlatom{-42}{563}{\@memberb}% % left type + \Put@Line(0,406)(-3,5){72}% % single bond at 1 + \else\if\@tmpc a%(a) alpha + \yl@xdiff=31\relax + \yl@ydiff=-37\relax + \putratom{41}{563}{\@memberb}% % right type + \Put@Line(0,406)(3,5){72}% % single bond at 1 + \else\if\@tmpc U% undefined + \yl@xdiff=-30\relax + \yl@ydiff=-37\relax + {% + \WaveBonds% + \Put@Line(0,406)(-3,5){72}% % single bond at 1 + }% + \putlatom{-42}{563}{\@memberb}% % left type + \else\if\@tmpc V% undefined + \yl@xdiff=31\relax + \yl@ydiff=-37\relax + {% + \WaveBonds% + \Put@Line(0,406)(3,5){72}% % wavy single bond at 1 + }% + \putratom{41}{563}{\@memberb}% % right type + \else\if\@tmpc d%(d) alpha + \yl@xdiff=-30\relax + \yl@ydiff=-37\relax + \dotorline(0,406)(-3,5){72}/(0,406)(-72,526)% + \putlatom{-42}{563}{\@memberb}% % left type + \else\if\@tmpc u%(u) beta + \yl@xdiff=31\relax + \yl@ydiff=-37\relax + {% + \thicklines% + \Put@Line(0,406)(3,5){72}% % single bond at 1 + }% + \putratom{41}{563}{\@memberb}% % right type + \fi\fi\fi\fi + \fi\fi\fi\fi\fi% + \else\if\@tmpb D%double bond + \yl@xdiff=31\relax + \yl@ydiff=-17\relax + \putlratom{-31}{563}{\@memberb}% % left or right type + \Put@Line(-12,406)(0,1){140}% % double bond at 1 + \Put@Line(12,406)(0,1){140}% % double bond at 1 + \else\if\@tmpb B%beta single bond + \yl@xdiff=31\relax + \yl@ydiff=-17\relax + \putlratom{-31}{563}{\@memberb}% % left or right type + {% + \thicklines% + \Put@Line(0,406)(0,1){140}% % single bond at 1 + }% + \else\if\@tmpb A%alpha single bond + \yl@xdiff=31\relax + \yl@ydiff=-17\relax + \putlratom{-31}{563}{\@memberb}% % left or right type + \dotorline(0,406)(0,1){140}/(0,406)(0,546)% + \else\if\@tmpb U%undefined + \yl@xdiff=31\relax + \yl@ydiff=-17\relax + \putlratom{-31}{563}{\@memberb}% % left or right type + {% + \WaveBonds% + \Put@Line(0,406)(0,1){140}% % single bond at 1 + }% + \else\if\@tmpb W%beta single bond + \ifx\@tmpc\empty% + \yl@xdiff=-10\relax + \yl@ydiff=58\relax + \if@wrongbdWa + \XyMTeXWarning{Wrong Bond-Modifier (W)}% + \fi + \Put@Line(0,406)(5,-3){120}% % single bond at 1 + \putratom{130}{276}{\@memberb}% % left or right type + \else\if\@tmpc U%beta undefined + \yl@xdiff=-10\relax + \yl@ydiff=58\relax + {% + \WaveBonds% + \Put@Line(0,406)(5,-3){120}% % single bond at 1 + }% + \putratom{130}{276}{\@memberb}% % left or right type + \else\if\@tmpc B%beta + \yl@xdiff=-10\relax + \yl@ydiff=58\relax + {% + \thicklines% + \Put@Line(0,406)(5,-3){120}% % single bond at 1 + }% + \putratom{130}{276}{\@memberb}% % left or right type + \else\if\@tmpc A%alpha + \yl@xdiff=-10\relax + \yl@ydiff=58\relax + \dotorline(0,406)(5,-3){120}/(0,406)(120,334)% + \putratom{130}{276}{\@memberb}% % left or right type + \fi\fi\fi\fi + \else% + \yl@xdiff=31\relax + \yl@ydiff=-17\relax + \putlratom{-31}{563}{\@memberb}% % left or right type + \Put@Line(0,406)(0,1){140}% % single bond at 1 + \fi\fi\fi\fi\fi\fi% + \fi}% +\def\@methsubstd{% +\if@clip %clipping + \if\@tmpb S%single bond + \ifx\@tmpc\empty% + \yl@xdiff=31\relax + \yl@ydiff=90\relax + \putlratom{-31}{-230}{\@memberb}% % left or right type + \Put@Line(0,-30)(0,-1){110}% % single bond at 4 + \else\if\@tmpc B%(B) beta + \yl@xdiff=-36\relax + \yl@ydiff=100\relax + {% + \thicklines% + \Put@Line(-18,-30)(-3,-5){60}% % single bond at 4 + }% + \putlatom{-42}{-230}{\@memberb}% % left type + \else\if\@tmpc A%(A) alpha + \yl@xdiff=37\relax + \yl@ydiff=100\relax + \dotorline(18,-30)(3,-5){60}/(18,-30)(72,-120)% + \putratom{41}{-230}{\@memberb}% % right type + \else\if\@tmpc b%(b) beta + \yl@xdiff=-36\relax + \yl@ydiff=100\relax + \putlatom{-42}{-230}{\@memberb}% % left type + \Put@Line(-18,-30)(-3,-5){60}% % single bond at 4 + \else\if\@tmpc a%(a) alpha + \yl@xdiff=37\relax + \yl@ydiff=100\relax + \putratom{41}{-230}{\@memberb}% % right type + \Put@Line(18,-30)(3,-5){60}% % single bond at 4 + \else\if\@tmpc U% undefined + \yl@xdiff=-36\relax + \yl@ydiff=100\relax + {% + \WaveBonds% + \Put@Line(-18,-30)(-3,-5){60}% % single bond at 4 + }% + \putlatom{-42}{-230}{\@memberb}% % left type + \else\if\@tmpc V% undefined + \yl@xdiff=37\relax + \yl@ydiff=100\relax + {% + \WaveBonds% + \Put@Line(18,-30)(3,-5){60}% % wavy single bond at 1 + }% + \putratom{41}{-230}{\@memberb}% % right type + \else\if\@tmpc d%(d) alpha + \yl@xdiff=-36\relax + \yl@ydiff=100\relax + \dotorline(-18,-30)(-3,-5){60}/(-18,-30)(-78,-130)% + \putlatom{-42}{-230}{\@memberb}% % left type + \else\if\@tmpc u%(u) beta + \yl@xdiff=37\relax + \yl@ydiff=100\relax + {% + \thicklines% + \Put@Line(18,-30)(3,-5){60}% % single bond at 4 + }% + \putratom{41}{-230}{\@memberb}% % right type + \fi\fi\fi\fi + \fi\fi\fi\fi\fi% + \else\if\@tmpb D%double bond + \yl@xdiff=31\relax + \yl@ydiff=90\relax + \putlratom{-31}{-230}{\@memberb}% % left or right type + \Put@Line(-12,-30)(0,-1){110}% % double bond at 4 + \Put@Line(12,-30)(0,-1){110}% % double bond at 4 + \else\if\@tmpb B%beta single bond + \yl@xdiff=31\relax + \yl@ydiff=90\relax + \putlratom{-31}{-230}{\@memberb}% % left or right type + {% + \thicklines% + \Put@Line(0,-30)(0,-1){110}% % single bond at 4 + }% + \else\if\@tmpb A%alpha single bond + \yl@xdiff=31\relax + \yl@ydiff=90\relax + \putlratom{-31}{-230}{\@memberb}% % left or right type + \dotorline(0,-30)(0,-1){110}/(0,-30)(0,-140)% + \else\if\@tmpb U% undefined + \yl@xdiff=31\relax + \yl@ydiff=90\relax + \putlratom{-31}{-230}{\@memberb}% % left or right type + {% + \WaveBonds% + \Put@Line(0,-30)(0,-1){110}% % single bond at 4 + }% + \else\if\@tmpb W%beta single bond + \ifx\@tmpc\empty% + \yl@xdiff=-10\relax + \yl@ydiff=30\relax + \putlratom{150}{54}{\@memberb}% % left or right type + \Put@Line(40,24)(5,3){100}% % single bond at 4 + \if@wrongbdWd + \XyMTeXWarning{Wrong Bond-Modifier (W)}% + \fi + \else\if\@tmpc U%beta undefined + \yl@xdiff=-10\relax + \yl@ydiff=30\relax + {% + \WaveBonds% + \Put@Line(40,24)(5,3){100}% % single bond at 4 + }% + \putlratom{150}{54}{\@memberb}% % left or right type + \else\if\@tmpc B%beta + \yl@xdiff=-10\relax + \yl@ydiff=30\relax + {% + \thicklines% + \Put@Line(40,24)(5,3){100}% % single bond at 4 + }% + \putlratom{150}{54}{\@memberb}% % left or right type + \else\if\@tmpc A%alpha + \yl@xdiff=-10\relax + \yl@ydiff=30\relax + \dotorline(40,24)(5,3){100}/(40,24)(140,84)% + \putlratom{150}{54}{\@memberb}% % left or right type + \fi\fi\fi\fi + \else% + \yl@xdiff=31\relax + \yl@ydiff=90\relax + \putlratom{-31}{-230}{\@memberb}% % left or right type + \Put@Line(0,-30)(0,-1){110}% % single bond at 4 + \fi\fi\fi\fi\fi\fi% + \else% no clipping + \if\@tmpb S%single bond + \ifx\@tmpc\empty% + \yl@xdiff=31\relax + \yl@ydiff=90\relax + \putlratom{-31}{-230}{\@memberb}% % left or right type + \Put@Line(0,0)(0,-1){140}% % single bond at 4 + \else\if\@tmpc B%(B) beta + \yl@xdiff=-30\relax + \yl@ydiff=110\relax + \putlatom{-42}{-230}{\@memberb}% % left type + {% + \thicklines% + \Put@Line(0,0)(-3,-5){72}% % single bond at 4 + }% + \else\if\@tmpc A%(A) alpha + \yl@xdiff=31\relax + \yl@ydiff=110\relax + \putratom{41}{-230}{\@memberb}% % right type + \dotorline(0,0)(3,-5){72}/(0,0)(72,-120)% + \else\if\@tmpc b%(b) beta + \yl@xdiff=-30\relax + \yl@ydiff=110\relax + \putlatom{-42}{-230}{\@memberb}% % left type + \Put@Line(0,0)(-3,-5){72}% % single bond at 4 + \else\if\@tmpc a%(a) alpha + \yl@xdiff=31\relax + \yl@ydiff=110\relax + \putratom{41}{-230}{\@memberb}% % right type + \Put@Line(0,0)(3,-5){72}% % single bond at 4 + \else\if\@tmpc U% undefined + \yl@xdiff=-30\relax + \yl@ydiff=110\relax + {% + \WaveBonds% + \Put@Line(0,0)(-3,-5){72}% % single bond at 4 + }% + \putlatom{-42}{-230}{\@memberb}% % left type + \else\if\@tmpc V% undefined + \yl@xdiff=31\relax + \yl@ydiff=110\relax + {% + \WaveBonds% + \Put@Line(0,0)(3,-5){72}% % wavy single bond at 1 + }% + \putratom{41}{-230}{\@memberb}% % right type + \else\if\@tmpc d%(d) alpha + \yl@xdiff=-30\relax + \yl@ydiff=110\relax + \dotorline(0,0)(-3,-5){72}/(0,0)(-72,-120)% + \putlatom{-42}{-230}{\@memberb}% % left type + \else\if\@tmpc u%(u) beta + \yl@xdiff=31\relax + \yl@ydiff=110\relax + {% + \thicklines% + \Put@Line(0,0)(3,-5){72}% % single bond at 4 + }% + \putratom{41}{-230}{\@memberb}% % right type + \fi\fi\fi\fi + \fi\fi\fi\fi\fi% + \else\if\@tmpb D%double bond + \yl@xdiff=31\relax + \yl@ydiff=90\relax + \putlratom{-31}{-230}{\@memberb}% % left or right type + \Put@Line(-12,0)(0,-1){140}% % double bond at 4 + \Put@Line(12,0)(0,-1){140}% % double bond at 4 + \else\if\@tmpb B%beta single bond + \yl@xdiff=31\relax + \yl@ydiff=90\relax + \putlratom{-31}{-230}{\@memberb}% % left or right type + {% + \thicklines% + \Put@Line(0,0)(0,-1){140}% % single bond at 4 + }% + \else\if\@tmpb A%alpha single bond + \yl@xdiff=31\relax + \yl@ydiff=90\relax + \putlratom{-31}{-230}{\@memberb}% % left or right type + \dotorline(0,0)(0,-1){140}/(0,0)(0,-140)% + \else\if\@tmpb U% undefined + \yl@xdiff=31\relax + \yl@ydiff=90\relax + \putlratom{-31}{-230}{\@memberb}% % left or right type + {% + \WaveBonds% + \Put@Line(0,0)(0,-1){140}% % single bond at 4 + }% + \else\if\@tmpb W%beta single bond + \ifx\@tmpc\empty% + \yl@xdiff=-10\relax + \yl@ydiff=30\relax + \putlratom{150}{54}{\@memberb}% % left or right type + \Put@Line(0,0)(5,3){140}% % single bond at 4 + \if@wrongbdWd + \XyMTeXWarning{Wrong Bond-Modifier (W)}% + \fi + \else\if\@tmpc U%beta undefined + \yl@xdiff=-10\relax + \yl@ydiff=30\relax + {% + \WaveBonds% + \Put@Line(0,0)(5,3){140}% % single bond at 4 + }% + \putlratom{150}{54}{\@memberb}% % left or right type + \else\if\@tmpc B%beta + \yl@xdiff=-10\relax + \yl@ydiff=30\relax + {% + \thicklines% + \Put@Line(0,0)(5,3){140}% % single bond at 4 + }% + \putlratom{150}{54}{\@memberb}% % left or right type + \else\if\@tmpc A%alpha + \yl@xdiff=-10\relax + \yl@ydiff=30\relax + \dotorline(0,0)(5,3){140}/(0,0)(140,84)% + \putlratom{150}{54}{\@memberb}% % left or right type + \fi\fi\fi\fi + \else% + \yl@xdiff=31\relax + \yl@ydiff=90\relax + \putlratom{-31}{-230}{\@memberb}% % left or right type + \Put@Line(0,0)(0,-1){140}% % single bond at 4 + \fi\fi\fi\fi\fi\fi% + \fi}% +\def\@methsubstdL{% +\if@clip %clipping + \if\@tmpb S%single bond + \ifx\@tmpc\empty% + \yl@xdiff=31\relax + \yl@ydiff=90\relax + \Put@Line(0,-30)(0,-1){110}% % single bond at 4 + \putlratom{-31}{-230}{\@memberb}% % left or right type + \else\if\@tmpc B%(B) beta + \yl@xdiff=-36\relax + \yl@ydiff=100\relax + {% + \thicklines% + \Put@Line(-18,-30)(-3,-5){60}% % single bond at 4 + }% + \putlatom{-42}{-230}{\@memberb}% % left type + \else\if\@tmpc A%(A) alpha + \yl@xdiff=37\relax + \yl@ydiff=100\relax + \dotorline(18,-30)(3,-5){60}/(18,-30)(72,-120)% + \putratom{41}{-230}{\@memberb}% % right type + \else\if\@tmpc b%(b) beta + \yl@xdiff=-36\relax + \yl@ydiff=100\relax + \Put@Line(-18,-30)(-3,-5){60}% % single bond at 4 + \putlatom{-42}{-230}{\@memberb}% % left type + \else\if\@tmpc a%(a) alpha + \yl@xdiff=37\relax + \yl@ydiff=100\relax + \Put@Line(18,-30)(3,-5){60}% % single bond at 4 + \putratom{41}{-230}{\@memberb}% % right type + \else\if\@tmpc U%(U) beta undefined%bug fix 2013/06/27 V-->U + \yl@xdiff=-36\relax + \yl@ydiff=100\relax + {% + \WaveBonds% + \Put@Line(-18,-30)(-3,-5){60}% % single bond at 4 + }% + \putlatom{-42}{-230}{\@memberb}% % left type + \else\if\@tmpc V%(V) alpha undefined%bug fix 2013/06/27 U-->V + \yl@xdiff=37\relax + \yl@ydiff=100\relax + {% + \WaveBonds% + \Put@Line(18,-30)(3,-5){60}% % single bond at 4 + }% + \putratom{41}{-230}{\@memberb}% % right type + \else\if\@tmpc d%(d) alpha + \yl@xdiff=-36\relax + \yl@ydiff=100\relax + \dotorline(-18,-30)(-3,-5){60}/(-18,-30)(-78,-130)% + \putlatom{-42}{-230}{\@memberb}% % left type + \else\if\@tmpc u%(u) beta + \yl@xdiff=37\relax + \yl@ydiff=100\relax + {% + \thicklines% + \Put@Line(18,-30)(3,-5){60}% % single bond at 4 + }% + \putratom{41}{-230}{\@memberb}% % right type + \fi\fi + \fi\fi\fi\fi\fi\fi\fi% + \else\if\@tmpb D%double bond + \yl@xdiff=31\relax + \yl@ydiff=90\relax + \Put@Line(-12,-30)(0,-1){110}% % double bond at 4 + \Put@Line(12,-30)(0,-1){110}% % double bond at 4 + \putlratom{-31}{-230}{\@memberb}% % left or right type + \else\if\@tmpb B%beta single bond + \yl@xdiff=31\relax + \yl@ydiff=90\relax + {% + \thicklines% + \Put@Line(0,-30)(0,-1){110}% % single bond at 4 + }% + \putlratom{-31}{-230}{\@memberb}% % left or right type + \else\if\@tmpb A%alpha single bond + \yl@xdiff=31\relax + \yl@ydiff=90\relax + \dotorline(0,-30)(0,-1){110}/(0,-30)(0,-140)% + \putlratom{-31}{-230}{\@memberb}% % left or right type + \else\if\@tmpb U% undefined + \yl@xdiff=31\relax + \yl@ydiff=90\relax + {% + \WaveBonds% + \Put@Line(0,-30)(0,-1){110}% % single bond at 4 + }% + \putlratom{-31}{-230}{\@memberb}% % left or right type + \else\if\@tmpb W%beta single bond + \ifx\@tmpc\empty% + \yl@xdiff=10\relax + \yl@ydiff=30\relax + \Put@Line(-40,24)(-5,3){100}% % single bond at 4 + \putlatom{-150}{54}{\@memberb}% % lefttype + \if@wrongbdWdL + \XyMTeXWarning{Wrong Bond-Modifier (W)}% + \fi + \else\if\@tmpc U%beta undefined + \yl@xdiff=10\relax + \yl@ydiff=30\relax + {% + \WaveBonds% + \Put@Line(-40,24)(-5,3){100}% % single bond at 4 + }% + \putlatom{-150}{54}{\@memberb}% % left type + \else\if\@tmpc B%beta + \yl@xdiff=10\relax + \yl@ydiff=30\relax + {% + \thicklines% + \Put@Line(-40,24)(-5,3){100}% % single bond at 4 + }% + \putlatom{-150}{54}{\@memberb}% % left type + \else\if\@tmpc A%alpha + \yl@xdiff=10\relax + \yl@ydiff=30\relax + \dotorline(-40,24)(-5,3){100}/(-40,24)(-140,84)% + \putlatom{-150}{54}{\@memberb}% % left type + \fi\fi\fi\fi + \else% + \yl@xdiff=31\relax + \yl@ydiff=90\relax + \Put@Line(0,-30)(0,-1){110}% % single bond at 4 + \putlratom{-31}{-230}{\@memberb}% % left or right type + \fi\fi\fi\fi\fi\fi% +\else% no clipping + \if\@tmpb S%single bond + \ifx\@tmpc\empty% + \yl@xdiff=31\relax + \yl@ydiff=90\relax + \Put@Line(0,0)(0,-1){140}% % single bond at 4 + \putlratom{-31}{-230}{\@memberb}% % left or right type + \else\if\@tmpc B%(B) beta + \yl@xdiff=-30\relax + \yl@ydiff=110\relax + {% + \thicklines% + \Put@Line(0,0)(-3,-5){72}% % single bond at 4 + }% + \putlatom{-42}{-230}{\@memberb}% % left type + \else\if\@tmpc A%(A) alpha + \yl@xdiff=31\relax + \yl@ydiff=110\relax + \dotorline(0,0)(3,-5){72}/(0,0)(72,-120)% + \putratom{41}{-230}{\@memberb}% % right type + \else\if\@tmpc b%(b) beta + \yl@xdiff=-30\relax + \yl@ydiff=110\relax + \Put@Line(0,0)(-3,-5){72}% % single bond at 4 + \putlatom{-42}{-230}{\@memberb}% % left type + \else\if\@tmpc a%(a) alpha + \yl@xdiff=31\relax + \yl@ydiff=110\relax + \Put@Line(0,0)(3,-5){72}% % single bond at 4 + \putratom{41}{-230}{\@memberb}% % right type + \else\if\@tmpc U%(U) beta undefined%bug fix 2013/06/27 V-->U + \yl@xdiff=-30\relax + \yl@ydiff=110\relax + {% + \WaveBonds% + \Put@Line(0,0)(-3,-5){72}% % single bond at 4 + }% + \putlatom{-42}{-230}{\@memberb}% % left type + \else\if\@tmpc V%(V) alpha undefined%bug fix 2013/06/27 U-->V + \yl@xdiff=31\relax + \yl@ydiff=110\relax + {% + \WaveBonds% + \Put@Line(0,0)(3,-5){72}% % single bond at 4 + }% + \putratom{41}{-230}{\@memberb}% % right type + \else\if\@tmpc d%(d) alpha + \yl@xdiff=-30\relax + \yl@ydiff=110\relax + \dotorline(0,0)(-3,-5){72}/(0,0)(-72,-120)% + \putlatom{-42}{-230}{\@memberb}% % left type + \else\if\@tmpc u%(u) beta + \yl@xdiff=31\relax + \yl@ydiff=110\relax + {% + \thicklines% + \Put@Line(0,0)(3,-5){72}% % single bond at 4 + }% + \putratom{41}{-230}{\@memberb}% % right type + \fi\fi + \fi\fi\fi\fi\fi\fi\fi% + \else\if\@tmpb D%double bond + \yl@xdiff=31\relax + \yl@ydiff=90\relax + \Put@Line(-12,0)(0,-1){140}% % double bond at 4 + \Put@Line(12,0)(0,-1){140}% % double bond at 4 + \putlratom{-31}{-230}{\@memberb}% % left or right type + \else\if\@tmpb B%beta single bond + \yl@xdiff=31\relax + \yl@ydiff=90\relax + {% + \thicklines% + \Put@Line(0,0)(0,-1){140}% % single bond at 4 + }% + \putlratom{-31}{-230}{\@memberb}% % left or right type + \else\if\@tmpb A%alpha single bond + \yl@xdiff=31\relax + \yl@ydiff=90\relax + \dotorline(0,0)(0,-1){140}/(0,0)(0,-140)% + \putlratom{-31}{-230}{\@memberb}% % left or right type + \else\if\@tmpb U%beta undefined + \yl@xdiff=31\relax + \yl@ydiff=90\relax + {% + \WaveBonds% + \Put@Line(0,0)(0,-1){140}% % single bond at 4 + }% + \putlratom{-31}{-230}{\@memberb}% % left or right type + \else\if\@tmpb W%beta single bond + \ifx\@tmpc\empty% + \yl@xdiff=10\relax + \yl@ydiff=30\relax + \Put@Line(0,0)(-5,3){140}% % single bond at 4 + \putlatom{-150}{54}{\@memberb}% % left type + \if@wrongbdWdL + \XyMTeXWarning{Wrong Bond-Modifier (W)}% + \fi + \else\if\@tmpc U%beta undefined + \yl@xdiff=10\relax + \yl@ydiff=30\relax + {% + \WaveBonds% + \Put@Line(0,0)(-5,3){140}% % single bond at 4 + }% + \putlatom{-150}{54}{\@memberb}% % left type + \else\if\@tmpc B%beta + \yl@xdiff=10\relax + \yl@ydiff=30\relax + {% + \thicklines% + \Put@Line(0,0)(-5,3){140}% % single bond at 4 + }% + \putlatom{-150}{54}{\@memberb}% % left type + \else\if\@tmpc A%alpha + \yl@xdiff=10\relax + \yl@ydiff=30\relax + \dotorline(0,0)(-5,3){140}/(0,0)(-140,84)% + \putlatom{-150}{54}{\@memberb}% % left type + \fi\fi\fi\fi + \else% + \yl@xdiff=31\relax + \yl@ydiff=90\relax + \Put@Line(0,0)(0,-1){140}% % single bond at 4 + \putlratom{-31}{-230}{\@memberb}% % left or right type + \fi\fi\fi\fi\fi\fi% + \fi}%end of \@methsubstdL +\def\@methsubstaL{% +\if@aclip% %clipping + \if\@tmpb S%single bond + \ifx\@tmpc\empty% + \yl@xdiff=31\relax + \yl@ydiff=-17\relax + \Put@Line(0,436)(0,1){110}% % single bond at 1 + \putlratom{-31}{563}{\@memberb}% % left or right type + \else\if\@tmpc B%(B) beta + \yl@xdiff=-36\relax + \yl@ydiff=-27\relax + {% + \thicklines% + \Put@Line(-18,436)(-3,5){60}% % single bond at 1 + }% + \putlatom{-42}{563}{\@memberb}% % left type + \else\if\@tmpc A%(A) alpha + \yl@xdiff=37\relax + \yl@ydiff=-27\relax + \dotorline(18,436)(3,5){60}/(18,436)(72,526)% + \putratom{41}{563}{\@memberb}% % right type + \else\if\@tmpc b%(b) beta + \yl@xdiff=-36\relax + \yl@ydiff=-27\relax + \Put@Line(-18,436)(-3,5){60}% % single bond at 1 + \putlatom{-42}{563}{\@memberb}% % left type + \else\if\@tmpc a%(a) alpha + \yl@xdiff=37\relax + \yl@ydiff=-27\relax + \Put@Line(18,436)(3,5){60}% % single bond at 1 + \putratom{41}{563}{\@memberb}% % right type + \else\if\@tmpc U%(U) beta undefined%bug fix 2013/06/27 V-->U + \yl@xdiff=-36\relax + \yl@ydiff=-27\relax + {% + \WaveBonds% + \Put@Line(-18,436)(-3,5){60}% % single bond at 1 + }% + \putlatom{-42}{563}{\@memberb}% % left type + \else\if\@tmpc V%(V) alpha undefined%bug fix 2013/06/27 U-->V + \yl@xdiff=37\relax + \yl@ydiff=-27\relax + {% + \WaveBonds% + \Put@Line(18,436)(3,5){60}% % single bond at 1 + }% + \putratom{41}{563}{\@memberb}% % right type + \else\if\@tmpc d%(d) alpha + \yl@xdiff=-36\relax + \yl@ydiff=-27\relax + \dotorline(-18,436)(-3,5){60}/(-18,436)(-78,536)% + \putlatom{-42}{563}{\@memberb}% % left type + \else\if\@tmpc u%(u) beta + \yl@xdiff=37\relax + \yl@ydiff=-27\relax + {% + \thicklines% + \Put@Line(18,436)(3,5){60}% % single bond at 1 + }% + \putratom{41}{563}{\@memberb}% % right type + \fi\fi + \fi\fi\fi\fi\fi\fi\fi% + \else\if\@tmpb D%double bond + \yl@xdiff=31\relax + \yl@ydiff=-17\relax + \Put@Line(-12,436)(0,1){110}% % double bond at 1 + \Put@Line(12,436)(0,1){110}% % double bond at 1 + \putlratom{-31}{563}{\@memberb}% % left or right type + \else\if\@tmpb B%beta single bond + \yl@xdiff=31\relax + \yl@ydiff=-17\relax + {% + \thicklines% + \Put@Line(0,436)(0,1){110}% % single bond at 1 + }% + \putlratom{-31}{563}{\@memberb}% % left or right type + \else\if\@tmpb A%alpha single bond + \yl@xdiff=31\relax + \yl@ydiff=-17\relax + \dotorline(0,436)(0,1){110}/(0,436)(0,546)% + \putlratom{-31}{563}{\@memberb}% % left or right type + \else\if\@tmpb U%beta undefined + \yl@xdiff=31\relax + \yl@ydiff=-17\relax + {% + \WaveBonds% + \Put@Line(0,436)(0,1){110}% % single bond at 1 + }% + \putlratom{-31}{563}{\@memberb}% % left or right type + \else\if\@tmpb W%beta single bond + \ifx\@tmpc\empty% + \yl@xdiff=10\relax + \yl@ydiff=46\relax + \Put@Line(-40,382)(-5,-3){100}% % single bond at 1 + \putlatom{-150}{276}{\@memberb}% % left type + \if@wrongbdWaL + \XyMTeXWarning{Wrong Bond-Modifier (W)}% + \fi + \else\if\@tmpc U%undefined + \yl@xdiff=10\relax + \yl@ydiff=46\relax + {% + \WaveBonds% + \Put@Line(-40,382)(-5,-3){100}% % single bond at 1 + }% + \putlatom{-150}{276}{\@memberb}% % left type + \else\if\@tmpc B%beta + \yl@xdiff=10\relax + \yl@ydiff=46\relax + {% + \thicklines% + \Put@Line(-40,382)(-5,-3){100}% % single bond at 1 + }% + \putlatom{-150}{276}{\@memberb}% % left type + \else\if\@tmpc A%alpha + \yl@xdiff=10\relax + \yl@ydiff=46\relax + \dotorline(-40,382)(-5,-3){100}/(-40,382)(-140,322)% + \putlatom{-150}{276}{\@memberb}% % left type + \fi\fi\fi\fi + \else% + \yl@xdiff=31\relax + \yl@ydiff=-17\relax + \Put@Line(0,436)(0,1){110}% % single bond at 1 + \putlratom{-31}{563}{\@memberb}% % left or right type + \fi\fi\fi\fi\fi\fi% +\else% % no clipping + \if\@tmpb S%single bond + \ifx\@tmpc\empty% + \yl@xdiff=31\relax + \yl@ydiff=-17\relax + \Put@Line(0,406)(0,1){140}% % single bond at 1 + \putlratom{-31}{563}{\@memberb}% % left or right type + \else\if\@tmpc B%(B) beta + \yl@xdiff=-30\relax + \yl@ydiff=-37\relax + {% + \thicklines% + \Put@Line(0,406)(-3,5){72}% % single bond at 1 + }% + \putlatom{-42}{563}{\@memberb}% % left type + \else\if\@tmpc A%(A) alpha + \yl@xdiff=31\relax + \yl@ydiff=-37\relax + \dotorline(0,406)(3,5){72}/(0,406)(72,526)% + \putratom{41}{563}{\@memberb}% % right type + \else\if\@tmpc b%(b) beta + \yl@xdiff=-30\relax + \yl@ydiff=-37\relax + \Put@Line(0,406)(-3,5){72}% % single bond at 1 + \putlatom{-42}{563}{\@memberb}% % left type + \else\if\@tmpc a%(a) alpha + \yl@xdiff=31\relax + \yl@ydiff=-37\relax + \Put@Line(0,406)(3,5){72}% % single bond at 1 + \putratom{41}{563}{\@memberb}% % right type + \else\if\@tmpc V%(V) beta undefined + \yl@xdiff=-30\relax + \yl@ydiff=-37\relax + {% + \WaveBonds% + \Put@Line(0,406)(-3,5){72}% % single bond at 1 + }% + \putlatom{-42}{563}{\@memberb}% % left type + \else\if\@tmpc U%(U) alpha undefined + \yl@xdiff=31\relax + \yl@ydiff=-37\relax + {% + \WaveBonds% + \Put@Line(0,406)(3,5){72}% % single bond at 1 + }% + \putratom{41}{563}{\@memberb}% % right type + \else\if\@tmpc d%(d) alpha + \yl@xdiff=-30\relax + \yl@ydiff=-37\relax + \dotorline(0,406)(-3,5){72}/(0,406)(-72,526)% + \putlatom{-42}{563}{\@memberb}% % left type + \else\if\@tmpc u%(u) beta + \yl@xdiff=31\relax + \yl@ydiff=-37\relax + {% + \thicklines% + \Put@Line(0,406)(3,5){72}% % single bond at 1 + }% + \putratom{41}{563}{\@memberb}% % right type + \fi\fi + \fi\fi\fi\fi\fi\fi\fi% + \else\if\@tmpb D%double bond + \yl@xdiff=31\relax + \yl@ydiff=-17\relax + \Put@Line(-12,406)(0,1){140}% % double bond at 1 + \Put@Line(12,406)(0,1){140}% % double bond at 1 + \putlratom{-31}{563}{\@memberb}% % left or right type + \else\if\@tmpb B%beta single bond + \yl@xdiff=31\relax + \yl@ydiff=-17\relax + {% + \thicklines% + \Put@Line(0,406)(0,1){140}% % single bond at 1 + }% + \putlratom{-31}{563}{\@memberb}% % left or right type + \else\if\@tmpb A%alpha single bond + \yl@xdiff=31\relax + \yl@ydiff=-17\relax + \dotorline(0,406)(0,1){140}/(0,406)(0,546)% + \putlratom{-31}{563}{\@memberb}% % left or right type + \else\if\@tmpb U%beta undefined + \yl@xdiff=31\relax + \yl@ydiff=-17\relax + {% + \WaveBonds% + \Put@Line(0,406)(0,1){140}% % single bond at 1 + }% + \putlratom{-31}{563}{\@memberb}% % left or right type + \else\if\@tmpb W%beta single bond + \ifx\@tmpc\empty% + \yl@xdiff=10\relax + \yl@ydiff=58\relax + \Put@Line(0,406)(-5,-3){120}% % single bond at 1 + \putlatom{-130}{276}{\@memberb}% % left type + \if@wrongbdWaL + \XyMTeXWarning{Wrong Bond-Modifier (W)}% + \fi + \else\if\@tmpc U%undefined + \yl@xdiff=10\relax + \yl@ydiff=58\relax + {% + \WaveBonds% + \Put@Line(0,406)(-5,-3){120}% % single bond at 1 + }% + \putlatom{-130}{276}{\@memberb}% % left type + \else\if\@tmpc B%beta + \yl@xdiff=10\relax + \yl@ydiff=58\relax + {% + \thicklines% + \Put@Line(0,406)(-5,-3){120}% % single bond at 1 + }% + \putlatom{-130}{276}{\@memberb}% % left type + \else\if\@tmpc A%alpha + \yl@xdiff=10\relax + \yl@ydiff=58\relax + \dotorline(0,406)(-5,-3){120}/(0,406)(-120,334)% + \putlatom{-130}{276}{\@memberb}% % left type + \fi\fi\fi\fi + \else% + \yl@xdiff=31\relax + \yl@ydiff=-17\relax + \Put@Line(0,406)(0,1){140}% % single bond at 1 + \putlratom{-31}{563}{\@memberb}% % left or right type + \fi\fi\fi\fi\fi\fi% + \fi}% +\def\SKbondB{% + \ifx\bbb\empty% + \ifx\ccc\empty% + \Put@Line(0,406)(5,-3){171}% %bond 1-2 + \else% + \Put@Line(0,406)(5,-3){136}% %bond 1-2 + \fi% + \else% + \ifx\ccc\empty% + \Put@Line(35,385)(5,-3){136}% %bond 1-2 + \else% + \Put@Line(35,385)(5,-3){100}% %bond 1-2 + \fi% + \fi}% +\def\SKbondA{% + \ifx\bbb\empty% + \ifx\aaa\empty% + \Put@Line(0,406)(-5,-3){171}% %bond 1-6 + \else% + \Put@Line(0,406)(-5,-3){136}% %bond 1-6 + \fi% + \else% + \ifx\aaa\empty% + \Put@Line(-35,385)(-5,-3){136}% %bond 1-6 + \else% + \Put@Line(-35,385)(-5,-3){100}% %bond 1-6 + \fi% + \fi}% +\def\SKbondBi{% + \begin{sfpicture}(0,0)(0,0) + \ifx\bbb\empty% + \ifx\ccc\empty% + \Put@Line(0,0)(5,3){171}% %bond 4-3 + \else% + \Put@Line(0,0)(5,3){136}% %bond 4-3 + \fi% + \else% + \ifx\ccc\empty% + \Put@Line(35,21)(5,3){138}% %bond 4-3 + \else% + \Put@Line(35,21)(5,3){100}% %bond 4-3 + \fi% + \fi\end{sfpicture}}% +\def\SKbondAi{% + \begin{sfpicture}(0,0)(0,0) + \ifx\bbb\empty% + \ifx\aaa\empty% + \Put@Line(0,0)(-5,3){171}% %bond 4-5 + \else% + \Put@Line(0,0)(-5,3){136}% %bond 4-5 + \fi% + \else% + \ifx\aaa\empty% + \Put@Line(-35,21)(-5,3){138}% %bond 4-5 + \else% + \Put@Line(-35,21)(-5,3){100}% %bond 4-5 + \fi% + \fi\end{sfpicture}}% +\def\bondB{% + \ifx\bbb\empty% + \ifx\ccc\empty% + \Put@Line(6,364)(5,-3){126}% %double bond 1-2 + \else% + \Put@Line(6,364)(5,-3){100}% %double bond 1-2 + \fi% + \else% + \ifx\ccc\empty% + \Put@Line(35,340)(5,-3){100}% %double bond 1-2 + \else% + \Put@Line(35,352)(5,-3){100}% %double bond 1-2 + \fi% % line <1OO not available + \fi% + }% +\def\bondBB{% + \ifx\bbb\empty% + \ifx\ccc\empty% + \Put@Line(42,420)(5,-3){126}% %double bond 1-2 + \else% + \Put@Line(42,420)(5,-3){100}% %double bond 1-2 + \fi% + \else% + \ifx\ccc\empty% + \Put@Line(52,412)(5,-3){110}% %double bond 1-2 + \else% + \Put@Line(52,412)(5,-3){100}% %double bond 1-2 + \fi% % line <1OO not available + \fi% + }% +\def\bondA{% + \ifx\bbb\empty% + \ifx\aaa\empty% + \Put@Line(-6,364)(-5,-3){126}% %double bond 1-6 + \else% + \Put@Line(-6,364)(-5,-3){100}% %double bond 1-6 + \fi% + \else% + \ifx\aaa\empty% + \Put@Line(-35,340)(-5,-3){100}% %double bond 1-6 + \else% + \Put@Line(-35,352)(-5,-3){100}% %double bond 1-6 + \fi% % line <1OO not available + \fi% +}% +\def\bondAA{% + \ifx\bbb\empty% + \ifx\aaa\empty% + \Put@Line(-42,420)(-5,-3){126}% %double bond 1-6 + \else% + \Put@Line(-42,420)(-5,-3){100}% %double bond 1-6 + \fi% + \else% + \ifx\aaa\empty% + \Put@Line(-52,412)(-5,-3){100}% %double bond 1-6 + \else% + \Put@Line(-52,412)(-5,-3){100}% %double bond 1-6 + \fi% % line <1OO not available + \fi% +}% + \def\bondBi{% + \ifx\bbb\empty% + \ifx\ccc\empty% + \Put@Line(6,42)(5,3){126}% %double bond 4-3 + \else% + \Put@Line(6,42)(5,3){100}% %double bond 4-3 + \fi% + \else% + \ifx\ccc\empty% + \Put@Line(35,66)(5,3){100}% %double bond 4-3 + \else% + \Put@Line(35,60)(5,3){100}% %double bond 4-3 + \fi% % line <1OO not available + \fi% +}% + \def\bondBBi{% + \ifx\bbb\empty% + \ifx\ccc\empty% + \Put@Line(42,-14)(5,3){126}% %double bond 1-6 + \else% + \Put@Line(30,-14)(5,3){100}% %double bond 1-6 + \fi% + \else% + \ifx\ccc\empty% + \Put@Line(52,0)(5,3){100}% %double bond 1-6 + \else% + \Put@Line(52,0)(5,3){100}% %double bond 4-5 + \fi% % line <1OO not available + \fi% +}% + + \def\bondAi{% + \ifx\bbb\empty% + \ifx\aaa\empty% + \Put@Line(-6,42)(-5,3){126}% %double bond 4-5 + \else% + \Put@Line(-6,42)(-5,3){100}% %double bond 4-5 + \fi% + \else% + \ifx\aaa\empty% + \Put@Line(-35,66)(-5,3){100}% %double bond 4-5 + \else% + \Put@Line(-35,60)(-5,3){100}% %double bond 4-5 + \fi% % line <1OO not available + \fi% + }% + \def\bondAAi{% + \ifx\bbb\empty% + \ifx\aaa\empty% + \Put@Line(-42,-14)(-5,3){126}% %double bond 1-6 + \else% + \Put@Line(-42,-14)(-5,3){100}% %double bond 1-6 + \fi% + \else% + \ifx\aaa\empty% + \Put@Line(-52,6)(-5,3){100}% %double bond 1-6 + \else% + \Put@Line(-52,0)(-5,3){100}% %double bond 4-5 + \fi% % line <1OO not available + \fi% + }% +\newif\if@adoublebond \@adoublebondfalse +\newif\if@bdoublebond \@bdoublebondfalse +\newif\if@Adoublebond \@Adoublebondfalse +\newif\if@Bdoublebond \@Bdoublebondfalse +\def\reset@double{% +\@adoublebondfalse\@bdoublebondfalse +\@Adoublebondfalse\@Bdoublebondfalse} +\newif\if@linterchainsw \@linterchainswfalse +\newif\if@rinterchainsw \@rinterchainswfalse +\def\reset@interchainsw{\@linterchainswfalse\@rinterchainswfalse} +\def\@@trimethylene#1#2#3#4{% +\leavevmode +\iniatom\iniflag%initialize +\test@vrtx@trimethy{#1}{#4}% +\begin{sfpicture}(450,480)(0,0)% + \Put@Direct(171,-303){\SKbondB}% bond between 1 and 2 + \Put@Direct(171,-303){\SKbondA}% bond between 1 and 6 +\if@adoublebond\relax\Put@Direct(171,-303){\bondA}\fi +\if@bdoublebond\relax\Put@Direct(171,-303){\bondB}\fi +\if@Adoublebond\relax\Put@Direct(171,-303){\bondAA}\fi +\if@Bdoublebond\relax\Put@Direct(171,-303){\bondBB}\fi +\test@termcnt=#3\relax +\set@hetatom@methyl{#1}{#4}{0}{4}{0}% +\@forsemicol\member:=#2\do{% +\ifx\member\empty\else +\expandafter\@m@mb@r\member;\relax% +\expandafter\threech@r\@membera{}{}% +\@tmpaa=\@tmpa \advance\@tmpaa by#4\relax +\ifx\@memberb\@yl\else +\ifcase\@tmpaa%0 omit +\or + \ifcase#3 + \setBScolor{\if@aclip \@cliptrue \else \@clipfalse\fi + \Put@Direct(0,0){\@methsubstdL}}% + \or\relax + \or + \setBScolor{\if@aclip \@cliptrue \else \@clipfalse\fi + \Put@Direct(0,0){\@methsubstdL}}% + \fi +\or +\setBScolor{\if@bclip \@acliptrue \else \@aclipfalse\fi + \Put@Direct(171,-303){\@methsubsta}}% +\or + \ifcase#3 + \setBScolor{\if@cclip \@cliptrue\else \@clipfalse\fi + \Put@Direct(342,0){\@methsubstd}}% + \or + \setBScolor{\if@cclip \@cliptrue\else \@clipfalse\fi + \Put@Direct(342,0){\@methsubstd}}% + \or\relax + \fi +\fi%end of ifcase +\fi\fi +}% +\end{sfpicture}}% end of \@@trimethylene +\def\test@vrtx@trimethy#1#2{% +\@forsemicol\member:=#1\do{% +\ifx\member\empty\else +\expandafter\@m@mb@r\member;\relax% +\expandafter\twoch@r\@membera{}% +\@tmpaa=\@tmpa \advance\@tmpaa by#2\relax +\ifcase\@tmpaa% + \or \if\@tmpb s\relax \xdef\aaa{}\else\if\@tmpb h\relax + \xdef\aaa{@}\else\xdef\aaa{@}\fi\fi + \or \if\@tmpb s\relax \xdef\bbb{}\else\if\@tmpb h\relax + \xdef\bbb{@}\else\xdef\bbb{@}\fi\fi + \or \if\@tmpb s\relax \xdef\ccc{}\else\if\@tmpb h\relax + \xdef\ccc{@}\else\xdef\ccc{@}\fi\fi +\fi\fi}} +\def\yltrimethyleneposition#1#2#3#4{% +\iniatom\iniflag%initialize2013/06/22 +\reset@@yl%%2013/07/20bug fix +\@forsemicol\member:=#1\do{% +\ifx\member\empty\else +\expandafter\@m@mb@r\member;\relax% +\expandafter\twoch@r\@membera{}% +\@tmpaa=\@tmpa \advance\@tmpaa by#4\relax +\if\@tmpb s\else%2013/06/22added for bug fix +\ifcase\@tmpaa% + \or \def\aaa{@}%\def\aaa{\@memberb}% + \or \def\bbb{@}%\def\bbb{\@memberb}% + \or \def\ccc{@}%\def\ccc{\@memberb}% +\fi\fi +\fi +}% +\@@ylswfalse%%%\@reset@ylsw +\@forsemicol\member:=#2\do{\expandafter\@m@mb@r\member;\relax% +\expandafter\threech@r\@membera{}{}% +\@tmpaa=\@tmpa \advance\@tmpaa by#4\relax +\ifx\@memberb\@yl\relax\@@ylswtrue\else\@@ylswfalse\fi +\if@@ylsw +\ifcase\@tmpaa%0 omit +\or + \ifcase#3 + \ifx\aaa\empty + \gdef\@ylii{0}\gdef\@yli{0}\global\@ylswtrue% subst. on 1 + \else + \if@linterchainsw%interchain position + \gdef\@ylii{0}\gdef\@yli{40}\global\@ylswtrue% subst. on 1 + \else% terminal position + \gdef\@ylii{0}\gdef\@yli{0}\global\@ylswtrue% subst. on 1%bug fix 2013/03/29 + \fi + \fi + \or\relax + \or + \ifx\aaa\empty + \gdef\@ylii{0}\gdef\@yli{0}\global\@ylswtrue% subst. on 1 + \else + \if@linterchainsw%interchain position + \gdef\@ylii{0}\gdef\@yli{40}\global\@ylswtrue% subst. on 1 + \else% terminal position + \gdef\@ylii{40}\gdef\@yli{-24}\global\@ylswtrue% subst. on 1 + \fi + \fi + \fi +\or + \ifx\bbb\empty + \gdef\@ylii{-171}\gdef\@yli{-103}\global\@ylswtrue% subst. on 2 + \else + \gdef\@ylii{-171}\gdef\@yli{-133}\global\@ylswtrue% subst. on 2 + \fi +\or + \ifcase#3 + \ifx\ccc\empty + \gdef\@ylii{-342}\gdef\@yli{0}\global\@ylswtrue% subst. on 3 + \else + \if@rinterchainsw%interchain position + \gdef\@ylii{-342}\gdef\@yli{40}\global\@ylswtrue% subst. on 3 + \else + \gdef\@ylii{-382}\gdef\@yli{-24}\global\@ylswtrue% subst. on 3 + \fi + \fi + \or + \ifx\ccc\empty + \gdef\@ylii{-342}\gdef\@yli{0}\global\@ylswtrue% subst. on 3 + \else + \if@rinterchainsw%interchain position + \gdef\@ylii{-342}\gdef\@yli{40}\global\@ylswtrue% subst. on 3 + \else + \gdef\@ylii{-382}\gdef\@yli{-24}\global\@ylswtrue% subst. on 3 + \fi + \fi + \or\relax + \fi +\fi%end of ifcase +\fi}}% end of \yltrimethyleneposition +\newcount\test@termcnt +\def\set@hetatom@methyl#1#2#3#4#5{% +\@forsemicol\member:=#1\do{% +\ifx\member\empty\else +\expandafter\@m@mb@r\member;\relax% +\expandafter\twoCH@R\@membera//% +\ifnum#5 < 0\relax% +\@tmpaa=-\@tmpa\relax \advance\@tmpaa by#2\relax% +\else\@tmpaa=\@tmpa\relax \advance\@tmpaa by#2\relax \fi +\ifnum\@tmpaa >#3\relax% +\ifnum\@tmpaa <#4\relax% +\ifcase\@tmpaa% +\or%position 1 <--- position 6 of set@hetatom@sixv + \ifnum\test@termcnt=1\else%not terminal point (left) + \if\@tmpb h\relax% + \@acliptrue% + \putlatom{0}{30}{\@memberb}% % right type + \else\if\@tmpb s\relax% + \@aclipfalse% + \putlatom{0}{0}{\@memberb}% % right type + \else\if\@tmpb a\relax%omit fused position + \else + \@acliptrue% + \putlatom{36}{-23}{\@memberb}% % left type + \fi\fi\fi + \fi +\or%position 2 <--- position 1 of set@hetatom@sixv + \if\@tmpb h\relax% + \@bcliptrue% + \putratom{171}{53}{\@memberb}% % right type + \else\if\@tmpb s\relax% + \@bclipfalse% + \putratom{171}{103}{\@memberb}% % right type + \else\if\@tmpb a\relax%omit fused position + \else + \@bcliptrue% + \putratom{140}{65}{\@memberb}% % right type + \fi\fi\fi +\or%position 3 <--- position 2 of set@hetatom@sixv + \ifnum\test@termcnt=2\else%not terminal point (right) + \if\@tmpb h\relax + \@ccliptrue% + \putratom{330}{30}{\@memberb}% % right type + \else\if\@tmpb s\relax + \@cclipfalse% + \putratom{346}{0}{\@memberb}% % right type + \else\if\@tmpb a\relax%omit fused position + \else + \@ccliptrue% + \putratom{306}{-23}{\@memberb}% % right type + \fi\fi\fi + \fi +\fi% end of ifcase +\fi\fi\fi}}% end of the macro \set@hetatom@methyl +\def\trimethylene{% +\@ifnextchar[{\@trimethylene[@}{\@trimethylene[]}} +\def\@trimethylene[#1]#2#3{% +\iniflag\iniatom% +\@reset@ylsw% +\reset@interchainsw% +\yltrimethyleneposition{#2}{#3}{0}{0}% +\begin{ShiftPicEnv}(0,0)(-\yl@shiftii,-\yl@shifti)/% +(450,480)(-50,-180){trimethylene}%2002/4/30 by S. Fujita +(50,180)% +\reset@double% +\@tfor\member:=#1\do{% +\if\member a\relax +\@adoublebondtrue +\else\if\member b\relax +\@bdoublebondtrue +\else\if\member A\relax +\@Adoublebondtrue +\else\if\member B\relax +\@Bdoublebondtrue% +\fi\fi\fi\fi}% +\@wrongbdWatrue% +\@wrongbdWdfalse% + \Put@Direct(0,0){\@@trimethylene{#2}{#3}{0}{0}}% +{\reset@double% +\@tfor\member:=#1\do{% +\if\member a\relax%dummy +\else\if\member b\relax%dummy +\else\if\member A\relax%dummy +\else\if\member B\relax%dummy +\else + \expandafter\twoCH@@R\member//% + \set@fusion@trimeth% +\fi\fi\fi\fi}}% +\end{ShiftPicEnv}% +}% end of \trimethylene \@trimethylene +\def\set@fusion@trimeth{% +\if\@@tmpa a\relax% + \putlratom{0}{0}{\@@tmpb}% % bond fused + \FuseWarning{-171}{-103}% + {\fuseAx}{\fuseAy}{\fuseBx}{\fuseBy}{a}% + \else\if\@@tmpa A\relax% + \putlratom{171}{103}{\@@tmpb}% % bond fused + \FuseWarning{171}{103}% + {\fuseAx}{\fuseAy}{\fuseBx}{\fuseBy}{A}% + \else\if\@@tmpa b\relax% + \putlratom{171}{103}{\@@tmpb}% % bond fused + \FuseWarning{-171}{103}% + {\fuseAx}{\fuseAy}{\fuseBx}{\fuseBy}{b}% + \else\if\@@tmpa B\relax% + \putlratom{342}{0}{\@@tmpb}% % bond fused + \FuseWarning{171}{-103}% + {\fuseAx}{\fuseAy}{\fuseBx}{\fuseBy}{B}% + \fi\fi\fi\fi +\global\let\FuseWarning=\FuseW@rning%added 2010/10/01 +}% end of the macro \set@fusion@trimeth +\def\@@trimethylenei#1#2#3#4{% +\leavevmode +\iniatom\iniflag%initialize +\test@vrtx@trimethy{#1}{#4}% +\begin{sfpicture}(450,480)(0,0) + \Put@Direct(171,0){\SKbondAi}% bond between 1 and 2 + \Put@Direct(171,0){\SKbondBi}% bond between 2 and 3 +\if@adoublebond\relax\Put@Direct(171,0){\bondAi}\fi +\if@bdoublebond\relax\Put@Direct(171,0){\bondBi}\fi +\if@Adoublebond\relax\Put@Direct(171,0){\bondAAi}\fi +\if@Bdoublebond\relax\Put@Direct(171,0){\bondBBi}\fi +\test@termcnt=#3\relax +\set@hetatom@methyli{#1}{#4}{0}{4}{0}% +\@forsemicol\member:=#2\do{% +\ifx\member\empty\else +\expandafter\@m@mb@r\member;\relax% +\expandafter\threech@r\@membera{}{}% +\@tmpaa=\@tmpa \advance\@tmpaa by#4\relax +\ifx\@memberb\@yl\else +\ifcase\@tmpaa%0 omit +\or + \ifcase#3 + \setBScolor{\Put@Direct(0,-303){\@methsubstaL}}% + \or\relax + \or + \setBScolor{\Put@Direct(0,-303){\@methsubstaL}}% + \fi +\or +\setBScolor{\if@bclip \@cliptrue \else \@clipfalse\fi + \Put@Direct(171,0){\@methsubstd}}% +\or + \ifcase#3 + \setBScolor{\if@cclip \@acliptrue\else \@aclipfalse\fi + \Put@Direct(342,-303){\@methsubsta}}% + \or + \setBScolor{\if@cclip \@acliptrue\else \@aclipfalse\fi + \Put@Direct(342,-303){\@methsubsta}}% + \or\relax + \fi +\fi%end of ifcase +\fi\fi +}% +\end{sfpicture}}% end of \@@trimethylenei +\def\yltrimethyleneiposition#1#2#3#4{% +\iniatom\iniflag%initialize2013/06/22 +\reset@@yl%%2013/07/20bug fix +\@forsemicol\member:=#1\do{% +\ifx\member\empty\else +\expandafter\@m@mb@r\member;\relax% +\expandafter\twoCH@R\@membera//% +\@tmpaa=\@tmpa \advance\@tmpaa by#4\relax +\if\@tmpb s\else%2013/06/22added for bug fix +\ifcase\@tmpaa% + \or \def\aaa{@}%\def\aaa{\@memberb}% + \or \def\bbb{@}%\def\bbb{\@memberb}% + \or \def\ccc{@}%\def\ccc{\@memberb}% +\fi\fi +\fi +}% +\@@ylswfalse%%%\@reset@ylsw +\@forsemicol\member:=#2\do{\expandafter\@m@mb@r\member;\relax% +\expandafter\threech@r\@membera{}{}% +\@tmpaa=\@tmpa \advance\@tmpaa by#4\relax +\ifx\@memberb\@yl\relax\@@ylswtrue\else\@@ylswfalse\fi +\if@@ylsw +\ifcase\@tmpaa%0 omit +\or%%%%%%position 1 + \ifcase#3 + \ifx\aaa\empty +%% \gdef\@ylii{0}\gdef\@yli{0}\global\@ylswtrue% subst. on 1 + \gdef\@ylii{0}\gdef\@yli{-103}\global\@ylswtrue% subst. on 1 + \else + \if@linterchainsw%interchain position + \gdef\@ylii{0}\gdef\@yli{-133}\global\@ylswtrue% subst. on 1 + \else% terminal position +%% \gdef\@ylii{40}\gdef\@yli{-24}\global\@ylswtrue% subst. on 1 + \gdef\@ylii{40}\gdef\@yli{-79}\global\@ylswtrue% subst. on 1 + \fi + \fi + \or\relax + \or + \ifx\aaa\empty +%% \gdef\@ylii{0}\gdef\@yli{0}\global\@ylswtrue% subst. on 1 + \gdef\@ylii{0}\gdef\@yli{-103}\global\@ylswtrue% subst. on 1 + \else + \if@linterchainsw%interchain position + \gdef\@ylii{0}\gdef\@yli{-133}\global\@ylswtrue% subst. on 1 + \else% terminal position +%% \gdef\@ylii{40}\gdef\@yli{-24}\global\@ylswtrue% subst. on 1 + \gdef\@ylii{40}\gdef\@yli{-79}\global\@ylswtrue% subst. on 1 + \fi + \fi + \fi +\or%%%%%%%%position 2 + \ifx\bbb\empty +%% \gdef\@ylii{-171}\gdef\@yli{-103}\global\@ylswtrue% subst. on 2 + \gdef\@ylii{-171}\gdef\@yli{0}\global\@ylswtrue% subst. on 2 + \else +%% \gdef\@ylii{-171}\gdef\@yli{-133}\global\@ylswtrue% subst. on 2 + \gdef\@ylii{-171}\gdef\@yli{50}\global\@ylswtrue% subst. on 2 + \fi +\or%%%%%%%%position 3 + \ifcase#3 + \ifx\ccc\empty +%% \gdef\@ylii{-342}\gdef\@yli{0}\global\@ylswtrue% subst. on 3 + \gdef\@ylii{-342}\gdef\@yli{-103}\global\@ylswtrue% subst. on 3 + \else + \if@rinterchainsw%interchain position +%% \gdef\@ylii{-342}\gdef\@yli{40}\global\@ylswtrue% subst. on 3 + \gdef\@ylii{-342}\gdef\@yli{-133}\global\@ylswtrue% subst. on 3 + \else +%% \gdef\@ylii{-382}\gdef\@yli{-24}\global\@ylswtrue% subst. on 3 + \gdef\@ylii{-382}\gdef\@yli{-79}\global\@ylswtrue% subst. on 3 + \fi + \fi + \or + \ifx\ccc\empty + \gdef\@ylii{-342}\gdef\@yli{-103}\global\@ylswtrue% subst. on 3 + \else + \if@rinterchainsw%interchain position + \gdef\@ylii{-342}\gdef\@yli{-133}\global\@ylswtrue% subst. on 3 + \else + \gdef\@ylii{-382}\gdef\@yli{-79}\global\@ylswtrue% subst. on 3 + \fi + \fi + \or\relax + \fi +\fi%end of ifcase +\fi}}% end of \yltrimethyleneiposition +\def\set@hetatom@methyli#1#2#3#4#5{% +\@forsemicol\member:=#1\do{% +\ifx\member\empty\else +\expandafter\@m@mb@r\member;\relax% +\expandafter\twoch@r\@membera{}% +\ifnum#5 < 0\relax% +\@tmpaa=-\@tmpa\relax \advance\@tmpaa by#2\relax% +\else\@tmpaa=\@tmpa\relax \advance\@tmpaa by#2\relax \fi +\ifnum\@tmpaa >#3\relax% +\ifnum\@tmpaa <#4\relax% +\ifcase\@tmpaa% +\or%position 1 <-- \set@hetatom@sixv position 5 + \ifnum\test@termcnt=1\else%not terminal point (left) + \if\@tmpb h\relax + \@acliptrue% + \putlatom{0}{70}{\@memberb}% % right type + \else\if\@tmpb s\relax + \@aclipfalse% + \putlatom{0}{103}{\@memberb}% % right type + \else\if\@tmpb a\relax%omit fused position + \else + \@acliptrue% + \putlatom{36}{65}{\@memberb}% % left type + \fi\fi\fi + \fi +\or%position 2 <-- \set@hetatom@sixv position 4 + \if\@tmpb h\relax + \@bcliptrue% + \putratom{171}{50}{\@memberb}% % right type + \else\if\@tmpb s\relax + \@bclipfalse% + \putratom{171}{0}{\@memberb}% % right type + \else\if\@tmpb a\relax%omit fused position + \else + \@bcliptrue% + \putratom{140}{-23}{\@memberb}% % right type + \fi\fi\fi +\or%position 3 <-- \set@hetatom@sixv position 3 + \ifnum\test@termcnt=2\else%not terminal point (right) + \if\@tmpb h\relax + \@ccliptrue% + \putratom{342}{70}{\@memberb}% % right type + \else\if\@tmpb s\relax + \@cclipfalse% + \putratom{342}{103}{\@memberb}% % right type + \else\if\@tmpb a\relax%omit fused position + \else + \@ccliptrue% + \putratom{306}{65}{\@memberb}% % right type + \fi\fi\fi + \fi +\fi% end of ifcase +\fi\fi\fi}}% end of the macro \set@hetatom@methyli +\def\trimethylenei{% +\@ifnextchar[{\@trimethylenei[@}{\@trimethylenei[]}} +\def\@trimethylenei[#1]#2#3{% +\iniflag\iniatom% +\@reset@ylsw% +\reset@interchainsw% +\yltrimethyleneiposition{#2}{#3}{0}{0}% +\begin{ShiftPicEnv}(0,0)(-\yl@shiftii,-\yl@shifti)/% +(450,480)(-50,-180){trimethylenei}%2002/4/30 by S. Fujita +(50,180)% +\reset@double% +\@tfor\member:=#1\do{% +\if\member a\relax +\@adoublebondtrue +\else\if\member b\relax +\@bdoublebondtrue +\else\if\member A\relax +\@Adoublebondtrue +\else\if\member B\relax +\@Bdoublebondtrue +\fi\fi\fi\fi}% +\@wrongbdWafalse +\@wrongbdWdtrue + \Put@Direct(0,0){\@@trimethylenei{#2}{#3}{0}{0}}% +{\reset@double% +\@tfor\member:=#1\do{% +\if\member a\relax%dummy +\else\if\member b\relax%dummy +\else\if\member A\relax%dummy +\else\if\member B\relax%dummy +\else + \expandafter\twoCH@@R\member//% + \set@fusion@trimethi +\fi\fi\fi\fi}}% +\end{ShiftPicEnv}% +}% end of \trimethylenei +\def\set@fusion@trimethi{% +\if\@@tmpa a\relax% + \putlratom{0}{103}{\@@tmpb}% % bond fused + \FuseWarning{-171}{103}% + {\fuseAx}{\fuseAy}{\fuseBx}{\fuseBy}{a}% + \else\if\@@tmpa A\relax% + \putlratom{171}{0}{\@@tmpb}% % bond fused + \FuseWarning{171}{-103}% + {\fuseAx}{\fuseAy}{\fuseBx}{\fuseBy}{A}% + \else\if\@@tmpa b\relax% + \putlratom{171}{0}{\@@tmpb}% % bond fused + \FuseWarning{-171}{-103}% + {\fuseAx}{\fuseAy}{\fuseBx}{\fuseBy}{b}% + \else\if\@@tmpa B\relax% + \putlratom{342}{103}{\@@tmpb}% % bond fused + \FuseWarning{171}{103}% + {\fuseAx}{\fuseAy}{\fuseBx}{\fuseBy}{B}% + \fi\fi\fi\fi +\global\let\FuseWarning=\FuseW@rning%added 2010/10/01 +}% end of the macro \set@fusion@trimethi +\def\@@dimethylene#1#2#3#4{% +\leavevmode +\iniatom\iniflag%initialize +\test@vrtx@dimethy{#1}{#4}% +\begin{sfpicture}(250,480)(0,0)% + \Put@Direct(171,-303){\SKbondA}% bond between 1 and 2 +\if@adoublebond + \Put@Direct(171,-303){\bondA}%upper side double bond +\else\if@Adoublebond + \Put@Direct(171,-303){\bondAA}%lower side double bond +\fi\fi% +\test@termcnt=#3\relax +\set@hetatom@methyl{#1}{#4}{0}{3}{0}% +\@forsemicol\member:=#2\do{% +\ifx\member\empty\else +\expandafter\@m@mb@r\member;\relax% +\expandafter\threech@r\@membera{}{}% +\@tmpaa=\@tmpa \advance\@tmpaa by#4\relax +\ifx\@memberb\@yl\else +\ifcase\@tmpaa%0 omit +\or + \ifcase#3 + \setBScolor{\if@aclip \@cliptrue \else \@clipfalse\fi + \Put@Direct(0,0){\@methsubstdL}}% + \or\relax + \or + \setBScolor{\if@aclip \@cliptrue \else \@clipfalse\fi + \Put@Direct(0,0){\@methsubstdL}}% + \fi +\or + \ifcase#3 + \setBScolor{\if@bclip \@acliptrue \else \@aclipfalse\fi + \Put@Direct(171,-303){\@methsubsta}}% + \or + \setBScolor{\if@bclip \@acliptrue \else \@aclipfalse\fi + \Put@Direct(171,-303){\@methsubsta}}% + \or\relax + \fi +\fi%end of ifcase +\fi\fi% +}% +\end{sfpicture}}% end of \@@dimethylene +\def\test@vrtx@dimethy#1#2{% +\@forsemicol\member:=#1\do{% +\ifx\member\empty\else +\expandafter\@m@mb@r\member;\relax% +\expandafter\twoch@r\@membera{}% +\@tmpaa=\@tmpa \advance\@tmpaa by#2\relax +\ifcase\@tmpaa% + \or \if\@tmpb s\relax \xdef\aaa{}\else\if\@tmpb h\relax + \xdef\aaa{@}\else\xdef\aaa{@}\fi\fi + \or \if\@tmpb s\relax \xdef\bbb{}\else\if\@tmpb h\relax + \xdef\bbb{@}\else\xdef\bbb{@}\fi\fi +\fi\fi}} +\def\yldimethyleneposition#1#2#3#4{% +\iniatom\iniflag%initialize2013/06/22 +\reset@@yl%%2013/07/20bug fix +\@forsemicol\member:=#1\do{% +\ifx\member\empty\else +\expandafter\@m@mb@r\member;\relax% +\expandafter\twoch@r\@membera{}% +\@tmpaa=\@tmpa \advance\@tmpaa by#4\relax +\if\@tmpb s\else%2013/06/22added for bug fix +\ifcase\@tmpaa% + \or \def\aaa{@}%\def\aaa{\@memberb}%2013/06/22 + \or \def\bbb{@}%\def\bbb{\@memberb}%2013/06/22 +\fi\fi +\fi +}% +\@@ylswfalse%%%\@reset@ylsw +\@forsemicol\member:=#2\do{% +\ifx\member\empty\else +\expandafter\@m@mb@r\member;\relax% +\expandafter\threech@r\@membera{}{}% +\@tmpaa=\@tmpa \advance\@tmpaa by#4\relax +\ifx\@memberb\@yl\relax\@@ylswtrue\else\@@ylswfalse\fi +\if@@ylsw +\ifcase\@tmpaa%0 omit +\or + \ifcase#3 + \ifx\aaa\empty + \gdef\@ylii{0}\gdef\@yli{0}\global\@ylswtrue% subst. on 1 + \else + \if@linterchainsw%interchain position + \gdef\@ylii{0}\gdef\@yli{40}\global\@ylswtrue% subst. on 1 + \else%terminal position + \gdef\@ylii{40}\gdef\@yli{-24}\global\@ylswtrue% subst. on 1 + \fi + \fi + \or\relax + \or + \ifx\aaa\empty + \gdef\@ylii{0}\gdef\@yli{0}\global\@ylswtrue% subst. on 1 + \else + \if@linterchainsw%interchain position + \gdef\@ylii{0}\gdef\@yli{40}\global\@ylswtrue% subst. on 1 + \else%terminal position + \gdef\@ylii{40}\gdef\@yli{-24}\global\@ylswtrue% subst. on 1 + \fi + \fi + \fi +\or + \ifcase#3 + \ifx\bbb\empty + \gdef\@ylii{-171}\gdef\@yli{-103}\global\@ylswtrue% subst. on 2 + \else + \if@rinterchainsw%interchain position + \gdef\@ylii{-171}\gdef\@yli{-133}\global\@ylswtrue% subst. on 2 + \else%terminal position + \gdef\@ylii{-211}\gdef\@yli{-93}\global\@ylswtrue% subst. on 2 + \fi + \fi + \or + \ifx\bbb\empty + \gdef\@ylii{-171}\gdef\@yli{-103}\global\@ylswtrue% subst. on 2 + \else + \if@rinterchainsw%interchain position + \gdef\@ylii{-171}\gdef\@yli{-133}\global\@ylswtrue% subst. on 2 + \else%terminal position + \gdef\@ylii{-211}\gdef\@yli{-93}\global\@ylswtrue% subst. on 2 + \fi + \fi + \or \relax + \fi +\fi%end of ifcase +\fi\fi}}% end of \yldimethyleneposition +\def\dimethylene{% +\@ifnextchar[{\@dimethylene[@}{\@dimethylene[]}} +\def\@dimethylene[#1]#2#3{% +\iniflag\iniatom% +\@reset@ylsw% +\reset@interchainsw% +\yldimethyleneposition{#2}{#3}{0}{0}% +\begin{ShiftPicEnv}(0,0)(-\yl@shiftii,-\yl@shifti)/% +(250,480)(-50,-180){dimethylene}%2002/4/30 by S. Fujita +(50,180)% +\reset@double% +\@tfor\member:=#1\do{% +\if\member a\relax +\@adoublebondtrue +\else\if\member A\relax +\@Adoublebondtrue +\fi\fi}% +\@wrongbdWafalse +\@wrongbdWdfalse + \Put@Direct(0,0){\@@dimethylene{#2}{#3}{0}{0}}% +{\reset@double% +\@tfor\member:=#1\do{% +\if\member a\relax%dummy +\else\if\member A\relax%dummy +\else + \expandafter\twoCH@@R\member//% + \set@fusion@dimeth +\fi\fi}}% +\end{ShiftPicEnv}% +}% end of \dimethylene +\def\set@fusion@dimeth{% +\if\@@tmpa a\relax% + \putlratom{0}{0}{\@@tmpb}% % bond fused + \FuseWarning{-171}{-103}% + {\fuseAx}{\fuseAy}{\fuseBx}{\fuseBy}{a}% + \else\if\@@tmpa A\relax% + \putlratom{171}{103}{\@@tmpb}% % bond fused + \FuseWarning{171}{103}% + {\fuseAx}{\fuseAy}{\fuseBx}{\fuseBy}{A}% + \fi\fi +\global\let\FuseWarning=\FuseW@rning%added 2010/10/01 +}% end of the macro \set@fusion@dimeth +\def\@@dimethylenei#1#2#3#4{% +\leavevmode +\iniatom\iniflag%initialize +\test@vrtx@dimethy{#1}{#4}% +\begin{sfpicture}(250,480)(0,0)% + \Put@Direct(171,0){\SKbondAi}% bond between 1 and 2 +\if@adoublebond + \Put@Direct(171,0){\bondAi}%upper side double bond +\else\if@Adoublebond + \Put@Direct(171,0){\bondAAi}%lower side double bond +\fi\fi% +\test@termcnt=#3\relax +\set@hetatom@methyli{#1}{#4}{0}{3}{0}% +\@forsemicol\member:=#2\do{% +\ifx\member\empty\else +\expandafter\@m@mb@r\member;\relax% +\expandafter\threech@r\@membera{}{}% +\@tmpaa=\@tmpa \advance\@tmpaa by#4\relax +\ifx\@memberb\@yl\else +\ifcase\@tmpaa%0 omit +\or + \ifcase#3 + \setBScolor{\Put@Direct(0,-303){\@methsubstaL}}% + \or\relax + \or + \setBScolor{\Put@Direct(0,-303){\@methsubstaL}}% + \fi +\or + \ifcase#3 + \setBScolor{\if@bclip \@cliptrue \else \@clipfalse\fi + \Put@Direct(171,0){\@methsubstd}}% + \or + \setBScolor{\if@bclip \@cliptrue \else \@clipfalse\fi + \Put@Direct(171,0){\@methsubstd}}% + \or\relax + \fi +\fi%end of ifcase +\fi\fi% +}% +\end{sfpicture}}% end of \@@dimethylenei +\def\yldimethyleneiposition#1#2#3#4{% +\iniatom\iniflag%initialize2013/06/22 +\reset@@yl%%2013/07/20bug fix +\@forsemicol\member:=#1\do{% +\ifx\member\empty\else +\expandafter\@m@mb@r\member;\relax% +\expandafter\twoch@r\@membera{}% +\@tmpaa=\@tmpa \advance\@tmpaa by#4\relax +\if\@tmpb s\else%2013/06/22added for bug fix +\ifcase\@tmpaa% + \or \def\aaa{@}%\def\aaa{\@memberb}%2013/06/22 + \or \def\bbb{@}%\def\bbb{\@memberb}%2013/06/22 +\fi\fi +\fi +}% +\@@ylswfalse%%%\@reset@ylsw +\@forsemicol\member:=#2\do{\expandafter\@m@mb@r\member;\relax% +\expandafter\threech@r\@membera{}{}% +\@tmpaa=\@tmpa \advance\@tmpaa by#4\relax +\ifx\@memberb\@yl\relax\@@ylswtrue\else\@@ylswfalse\fi +\if@@ylsw +\ifcase\@tmpaa%0 omit +\or%%%%%%%%position 1 + \ifcase#3 + \ifx\aaa\empty + \gdef\@ylii{0}\gdef\@yli{-103}\global\@ylswtrue% subst. on 1 + \else + \if@linterchainsw%interchain position + \gdef\@ylii{0}\gdef\@yli{-133}\global\@ylswtrue% subst. on 1 + \else%terminal position + \gdef\@ylii{40}\gdef\@yli{-79}\global\@ylswtrue% subst. on 1 + \fi + \fi + \or\relax + \or + \ifx\aaa\empty + \gdef\@ylii{0}\gdef\@yli{-103}\global\@ylswtrue% subst. on 1 + \else + \if@linterchainsw%interchain position + \gdef\@ylii{0}\gdef\@yli{-133}\global\@ylswtrue% subst. on 1 + \else%terminal position + \gdef\@ylii{40}\gdef\@yli{-79}\global\@ylswtrue% subst. on 1 + \fi + \fi + \fi +\or%%%%%%%%position 2 + \ifcase#3 + \ifx\bbb\empty + \gdef\@ylii{-171}\gdef\@yli{0}\global\@ylswtrue% subst. on 2 + \else + \if@rinterchainsw%interchain position + \gdef\@ylii{-171}\gdef\@yli{33}\global\@ylswtrue% subst. on 2 + \else%terminal position + % \gdef\@ylii{-211}\gdef\@yli{-93}\global\@ylswtrue% subst. on 2 + \gdef\@ylii{-211}\gdef\@yli{-10}\global\@ylswtrue% subst. on 2 + \fi + \fi + \or + \ifx\bbb\empty + \gdef\@ylii{-171}\gdef\@yli{0}\global\@ylswtrue% subst. on 2 + \else + \if@rinterchainsw%interchain position + \gdef\@ylii{-171}\gdef\@yli{33}\global\@ylswtrue% subst. on 2 + \else%terminal position + \gdef\@ylii{-211}\gdef\@yli{-10}\global\@ylswtrue% subst. on 2 + \fi + \fi + \or \relax + \fi +\fi%end of ifcase +\fi}}% end of \yldimethyleneiposition +\def\dimethylenei{% +\@ifnextchar[{\@dimethylenei[@}{\@dimethylenei[]}} +\def\@dimethylenei[#1]#2#3{% +\iniflag\iniatom% +\@reset@ylsw% +\reset@interchainsw% +\yldimethyleneiposition{#2}{#3}{0}{0}% +\begin{ShiftPicEnv}(0,0)(-\yl@shiftii,-\yl@shifti)/% +(250,480)(-50,-180){dimethylenei}%2002/4/30 by S. Fujita +(50,180)% +\reset@double% +\@tfor\member:=#1\do{% +\if\member a\relax +\@adoublebondtrue +\else\if\member A\relax +\@Adoublebondtrue +\fi\fi}% +\@wrongbdWafalse +\@wrongbdWdfalse + \Put@Direct(0,0){\@@dimethylenei{#2}{#3}{0}{0}}% +{\reset@double% +\@tfor\member:=#1\do{% +\if\member a\relax%dummy +\else\if\member A\relax%dummy +\else + \expandafter\twoCH@@R\member//% + \set@fusion@dimethi +\fi\fi}}% +\end{ShiftPicEnv}% +}% end of \dimethylenei +\def\set@fusion@dimethi{% +\if\@@tmpa a\relax% + \putlratom{0}{103}{\@@tmpb}% % bond fused + \FuseWarning{-171}{103}% + {\fuseAx}{\fuseAy}{\fuseBx}{\fuseBy}{a}% + \else\if\@@tmpa A\relax% + \putlratom{171}{0}{\@@tmpb}% % bond fused + \FuseWarning{171}{-103}% + {\fuseAx}{\fuseAy}{\fuseBx}{\fuseBy}{A}% +\fi\fi +\global\let\FuseWarning=\FuseW@rning%added 2010/10/01 +}% end of the macro \set@fusion@dimethi +\def\tetramethylene{% +\@ifnextchar[{\@tetramethylene[@}{\@tetramethylene[]}} +\def\@tetramethylene[#1]#2#3{% +\iniflag\iniatom% +\@reset@ylsw% +{\@linterchainswfalse% +\@rinterchainswtrue% +\yltrimethyleneposition{#2}{#3}{0}{0}}% +\if@ylsw \ifx\@@ylii\empty +\def\@@ylii{0}\def\@@yli{0}\fi +\else +{\@rinterchainswfalse% +\@linterchainswtrue% +\yldimethyleneposition{#2}{#3}{1}{-2}}% +\if@ylsw \ifx\@@ylii\empty +\def\@@ylii{-342}\def\@@yli{0}\fi\fi +\fi +\begin{ShiftPicEnvB}(0,0)(-\yl@shiftii,-\yl@shifti)/% +(900,480)(-200,-180){tetramethylene}%2002/4/30 by S. Fujita +(200,180)% +{\reset@double% +\@tfor\member:=#1\do{% +\if\member a\relax +\@adoublebondtrue +\else\if\member b\relax +\@bdoublebondtrue +\else\if\member A\relax +\@Adoublebondtrue +\else\if\member B\relax +\@Bdoublebondtrue +\fi\fi\fi\fi}% +\@wrongbdWatrue +\@wrongbdWdtrue +\Put@Direct(0,0){\@@trimethylene{#2}{#3}{0}{0}}}% +{\reset@double% +\@tfor\member:=#1\do{% +\if\member c\relax +\@adoublebondtrue +\else\if\member C\relax +\@Adoublebondtrue +\fi\fi}% +\@wrongbdWafalse +\@wrongbdWdtrue +\Put@Direct(342,0){\@@dimethylene{#2}{#3}{1}{-2}}}% +{\reset@double% +\@tfor\member:=#1\do{% +\if\member a\relax%dummy +\else\if\member b\relax%dummy +\else\if\member A\relax%dummy +\else\if\member B\relax%dummy +\else\if\member c\relax%dummy +\else\if\member C\relax%dummy +\else + \expandafter\twoCH@@R\member//% + \set@fusion@tetrameth +\fi\fi +\fi\fi\fi\fi}}% +\end{ShiftPicEnvB}% +}% end of \tetramethylene +\def\set@fusion@tetrameth{% +\if\@@tmpa a\relax% + \putlratom{0}{0}{\@@tmpb}% % bond fused + \FuseWarning{-171}{-103}% + {\fuseAx}{\fuseAy}{\fuseBx}{\fuseBy}{a}% + \else\if\@@tmpa A\relax% + \putlratom{171}{103}{\@@tmpb}% % bond fused + \FuseWarning{171}{103}% + {\fuseAx}{\fuseAy}{\fuseBx}{\fuseBy}{A}% + \else\if\@@tmpa b\relax% + \putlratom{171}{103}{\@@tmpb}% % bond fused + \FuseWarning{-171}{103}% + {\fuseAx}{\fuseAy}{\fuseBx}{\fuseBy}{b}% + \else\if\@@tmpa B\relax% + \putlratom{342}{0}{\@@tmpb}% % bond fused + \FuseWarning{171}{-103}% + {\fuseAx}{\fuseAy}{\fuseBx}{\fuseBy}{B}% + \else\if\@@tmpa c\relax% + \putlratom{342}{0}{\@@tmpb}% % bond fused + \FuseWarning{-171}{-103}% + {\fuseAx}{\fuseAy}{\fuseBx}{\fuseBy}{c}% + \else\if\@@tmpa C\relax% + \putlratom{513}{103}{\@@tmpb}% % bond fused + \FuseWarning{171}{103}% + {\fuseAx}{\fuseAy}{\fuseBx}{\fuseBy}{C}% + \fi\fi + \fi\fi\fi\fi +\global\let\FuseWarning=\FuseW@rning%added 2010/10/01 +}% end of the macro \set@fusion@tetrameth +\def\tetramethylenei{% +\@ifnextchar[{\@tetramethylenei[@}{\@tetramethylenei[]}} +\def\@tetramethylenei[#1]#2#3{% +\iniflag\iniatom% +\@reset@ylsw% +{\@linterchainswfalse% +\@rinterchainswtrue% +\yltrimethyleneiposition{#2}{#3}{0}{0}}% +\if@ylsw \ifx\@@ylii\empty +\def\@@ylii{0}\def\@@yli{0}\fi +\else +{\@rinterchainswfalse% +\@linterchainswtrue% +\yldimethyleneiposition{#2}{#3}{1}{-2}}% +\if@ylsw \ifx\@@ylii\empty +\def\@@ylii{-342}\def\@@yli{0}\fi\fi +\fi +\begin{ShiftPicEnvB}(0,0)(-\yl@shiftii,-\yl@shifti)/% +(900,480)(-200,-180){tetramethylenei}%2002/4/30 by S. Fujita +(200,180)% +{\reset@double% +\@tfor\member:=#1\do{% +\if\member a\relax +\@adoublebondtrue +\else\if\member b\relax +\@bdoublebondtrue +\else\if\member A\relax +\@Adoublebondtrue +\else\if\member B\relax +\@Bdoublebondtrue +\fi\fi\fi\fi}% +\@wrongbdWatrue +\@wrongbdWdtrue +\Put@Direct(0,0){\@@trimethylenei{#2}{#3}{0}{0}}}% +{\reset@double% +\@tfor\member:=#1\do{% +\if\member c\relax +\@adoublebondtrue +\else\if\member C\relax +\@Adoublebondtrue +\fi\fi}% +\@wrongbdWatrue +\@wrongbdWdfalse +\Put@Direct(342,0){\@@dimethylenei{#2}{#3}{1}{-2}}}% +{\reset@double% +\@tfor\member:=#1\do{% +\if\member a\relax +\else\if\member b\relax +\else\if\member A\relax +\else\if\member B\relax +\else\if\member c\relax%dummy +\else\if\member C\relax%dummy +\else + \expandafter\twoCH@@R\member//% + \set@fusion@tetramethi +\fi\fi +\fi\fi\fi\fi}}% +\end{ShiftPicEnvB}% +}%end of \tetramethylenei +\def\set@fusion@tetramethi{% +\if\@@tmpa a\relax% + \putlratom{0}{103}{\@@tmpb}% % bond fused + \FuseWarning{-171}{103}% + {\fuseAx}{\fuseAy}{\fuseBx}{\fuseBy}{a}% + \else\if\@@tmpa A\relax% + \putlratom{171}{0}{\@@tmpb}% % bond fused + \FuseWarning{171}{-103}% + {\fuseAx}{\fuseAy}{\fuseBx}{\fuseBy}{A}% + \else\if\@@tmpa b\relax% + \putlratom{171}{0}{\@@tmpb}% % bond fused + \FuseWarning{-171}{-103}% + {\fuseAx}{\fuseAy}{\fuseBx}{\fuseBy}{b}% + \else\if\@@tmpa B\relax% + \putlratom{342}{103}{\@@tmpb}% % bond fused + \FuseWarning{171}{103}% + {\fuseAx}{\fuseAy}{\fuseBx}{\fuseBy}{B}% + \else\if\@@tmpa c\relax% + \putlratom{342}{103}{\@@tmpb}% % bond fused + \FuseWarning{-171}{103}% + {\fuseAx}{\fuseAy}{\fuseBx}{\fuseBy}{c}% + \else\if\@@tmpa C\relax% + \putlratom{513}{0}{\@@tmpb}% % bond fused + \FuseWarning{171}{-103}% + {\fuseAx}{\fuseAy}{\fuseBx}{\fuseBy}{C}% + \fi\fi + \fi\fi\fi\fi +\global\let\FuseWarning=\FuseW@rning%added 2010/10/01 +}% end of the macro \set@fusion@tetramethi +\def\tetramethylenecup{% +\@ifnextchar[{\@tetramethylenecup[@}{\@tetramethylenecup[]}} +\def\@tetramethylenecup[#1]#2#3{% +\iniflag\iniatom% +\@reset@ylsw% +{\@linterchainswfalse% +\@rinterchainswtrue% +\yldimethyleneiposition{#2}{#3}{0}{0}}% +\if@ylsw \ifx\@@ylii\empty +\def\@@ylii{0}\def\@@yli{0}\fi +\else +{\@rinterchainswfalse% +\@linterchainswtrue% +\yldimethyleneposition{#2}{#3}{0}{-2}}% +\fi +\if@ylsw \ifx\@@ylii\empty +\def\@@ylii{-371}\def\@@yli{0}\fi\fi +\begin{ShiftPicEnvB}(0,0)(-\yl@shiftii,-\yl@shifti)/% +(900,480)(-200,-180){tetramethylenecup}%2002/4/30 by S. Fujita +(200,180)% +{\reset@double% +\@tfor\member:=#1\do{% +\if\member a\relax +\@adoublebondtrue +\else\if\member A\relax +\@Adoublebondtrue +\fi\fi}% +\@wrongbdWafalse +\@wrongbdWdtrue +\Put@Direct(0,0){\@@dimethylenei{#2}{#3}{0}{0}}}% +{\@forsemicol\member:=#2\do{% +\ifx\member\empty\else +\expandafter\@m@mb@r\member;\relax% +\expandafter\twoch@r\@membera{}% +\ifcase\@tmpa% + \or \relax% + \or \if\@tmpb s\relax\else\if\@tmpb h\relax + \xdef\fff{@}\xdef\bbb{@}\else + \xdef\fff{@}\xdef\bbb{@}\fi\fi + \or \if\@tmpb s\relax\else\if\@tmpb h\relax + \xdef\eee{@}\xdef\ccc{@}\else + \xdef\eee{@}\xdef\ccc{@}\fi\fi +\fi\fi}% +\Put@Direct(68,171){\hskbonde}% +\reset@double% +\@tfor\member:=#1\do{% + \if\member b\relax + \@bdoublebondtrue + \Put@Direct(68,171){\hbonde}% + \else\if\member B\relax + \@bdoublebondtrue + \Put@Direct(68,-171){\hbondb}% + \fi\fi}}% +{\reset@double% +\@tfor\member:=#1\do{% +\if\member c\relax +\@adoublebondtrue +\else\if\member C\relax +\@Adoublebondtrue +\else\if\member d\relax +\@bdoublebondtrue +\else\if\member D\relax +\@Bdoublebondtrue +\fi\fi\fi\fi}% + \@wrongbdWafalse + \@wrongbdWdLtrue +\Put@Direct(371,0){\@@dimethylene{#2}{#3}{0}{-2}}}% +{\reset@double% +\@tfor\member:=#1\do{% +\if\member a\relax%dummy +\else\if\member A\relax%dummy +\else\if\member b\relax%dummy +\else\if\member B\relax%dummy +\else\if\member c\relax%dummy +\else\if\member C\relax%dummy +\else + \expandafter\twoCH@@R\member//% + \set@fusion@tetracup% for all bonds +\fi\fi\fi\fi +\fi\fi}}% +\end{ShiftPicEnvB}% +}% end of \tetramethylenecup +\def\set@fusion@tetracup{% +\if\@@tmpa a\relax% + \putlratom{0}{103}{\@@tmpb}% % bond fused + \FuseWarning{-171}{103}% + {\fuseAx}{\fuseAy}{\fuseBx}{\fuseBy}{a}% + \else\if\@@tmpa A\relax% + \putlratom{171}{0}{\@@tmpb}% % bond fused + \FuseWarning{171}{-103}% + {\fuseAx}{\fuseAy}{\fuseBx}{\fuseBy}{A}% + \else\if\@@tmpa b\relax% + \putlratom{171}{0}{\@@tmpb}% % bond fused + \FuseWarning{-200}{0}% + {\fuseAx}{\fuseAy}{\fuseBx}{\fuseBy}{b}% + \else\if\@@tmpa B\relax% + \putlratom{371}{0}{\@@tmpb}% % bond fused + \FuseWarning{200}{0}% + {\fuseAx}{\fuseAy}{\fuseBx}{\fuseBy}{B}% + \else\if\@@tmpa c\relax% + \putlratom{371}{0}{\@@tmpb}% % bond fused + \FuseWarning{-171}{-103}% + {\fuseAx}{\fuseAy}{\fuseBx}{\fuseBy}{c}% + \else\if\@@tmpa C\relax% + \putlratom{542}{103}{\@@tmpb}% % bond fused + \FuseWarning{171}{103}% + {\fuseAx}{\fuseAy}{\fuseBx}{\fuseBy}{C}% + \fi\fi + \fi\fi\fi\fi +\global\let\FuseWarning=\FuseW@rning%added 2010/10/01 +}% end of the macro \set@fusion@tetracup +\def\tetramethylenecap{% +\@ifnextchar[{\@tetramethylenecap[@}{\@tetramethylenecap[]}} +\def\@tetramethylenecap[#1]#2#3{% +\iniflag\iniatom% +\@reset@ylsw% +{\@linterchainswfalse% +\@rinterchainswtrue% +\yldimethyleneposition{#2}{#3}{0}{0}}% +\if@ylsw \ifx\@@ylii\empty +\def\@@ylii{0}\def\@@yli{0}\fi +\else +{\@rinterchainswfalse% +\@linterchainswtrue% +\yldimethyleneiposition{#2}{#3}{0}{-2}}% +\fi +\if@ylsw \ifx\@@ylii\empty +\def\@@ylii{-371}\def\@@yli{0}\fi\fi +\begin{ShiftPicEnvB}(0,0)(-\yl@shiftii,-\yl@shifti)/% +(900,480)(-200,-180){tetramethylenecap}%2002/4/30 by S. Fujita +(200,180)% +{\reset@double% +\@tfor\member:=#1\do{% +\if\member a\relax +\@adoublebondtrue +\else\if\member A\relax +\@Adoublebondtrue +\fi\fi}% +\@wrongbdWatrue +\Put@Direct(0,0){\@@dimethylene{#2}{#3}{0}{0}}}% +{\@forsemicol\member:=#2\do{% +\ifx\member\empty\else +\expandafter\@m@mb@r\member;\relax% +\expandafter\twoch@r\@membera{}% +\ifcase\@tmpa% + \or \relax% + \or \if\@tmpb s\relax\else\if\@tmpb h\relax + \xdef\fff{@}\xdef\bbb{@}\else + \xdef\fff{@}\xdef\bbb{@}\fi\fi + \or \if\@tmpb s\relax\else\if\@tmpb h\relax + \xdef\eee{@}\xdef\ccc{@}\else + \xdef\eee{@}\xdef\ccc{@}\fi\fi +\fi\fi}% +\Put@Direct(68,-68){\hskbondb}% +\reset@double% +\@tfor\member:=#1\do{% + \if\member b\relax + \@bdoublebondtrue + \Put@Direct(68,-68){\hbondb}% + \else\if\member B\relax + \@bdoublebondtrue + \Put@Direct(68,274){\hbonde}% + \fi\fi}}% +{\reset@double% +\@tfor\member:=#1\do{% +\if\member c\relax +\@adoublebondtrue +\else\if\member C\relax +\@Adoublebondtrue +\else\if\member d\relax +\@bdoublebondtrue +\else\if\member D\relax +\@Bdoublebondtrue +\fi\fi\fi\fi}% + \@wrongbdWaLtrue +\Put@Direct(371,0){\@@dimethylenei{#2}{#3}{0}{-2}}}% +{\reset@double% +\@tfor\member:=#1\do{% +\if\member a\relax%dummy +\else\if\member A\relax%dummy +\else\if\member b\relax%dummy +\else\if\member B\relax%dummy +\else\if\member c\relax%dummy +\else\if\member C\relax%dummy +\else + \expandafter\twoCH@@R\member//% + \set@fusion@tetracap% for all bonds +\fi\fi\fi\fi +\fi\fi}}% +\end{ShiftPicEnvB}% +}% end of \tetramethylenecap +\def\set@fusion@tetracap{% +\if\@@tmpa a\relax% + \putlratom{0}{0}{\@@tmpb}% % bond fused + \FuseWarning{-171}{-103}% + {\fuseAx}{\fuseAy}{\fuseBx}{\fuseBy}{a}% + \else\if\@@tmpa A\relax% + \putlratom{171}{103}{\@@tmpb}% % bond fused + \FuseWarning{171}{103}% + {\fuseAx}{\fuseAy}{\fuseBx}{\fuseBy}{A}% + \else\if\@@tmpa b\relax% + \putlratom{171}{103}{\@@tmpb}% % bond fused + \FuseWarning{-200}{0}% + {\fuseAx}{\fuseAy}{\fuseBx}{\fuseBy}{b}% + \else\if\@@tmpa B\relax% + \putlratom{371}{103}{\@@tmpb}% % bond fused + \FuseWarning{200}{0}% + {\fuseAx}{\fuseAy}{\fuseBx}{\fuseBy}{B}% + \else\if\@@tmpa c\relax% + \putlratom{371}{103}{\@@tmpb}% % bond fused + \FuseWarning{-171}{103}% + {\fuseAx}{\fuseAy}{\fuseBx}{\fuseBy}{c}% + \else\if\@@tmpa C\relax% + \putlratom{542}{0}{\@@tmpb}% % bond fused + \FuseWarning{171}{-103}% + {\fuseAx}{\fuseAy}{\fuseBx}{\fuseBy}{C}% + \fi\fi + \fi\fi\fi\fi +\global\let\FuseWarning=\FuseW@rning%added 2010/10/01 +}% end of the macro \set@fusion@tetracap +\def\pentamethylene{% +\@ifnextchar[{\@pentamethylene[@}{\@pentamethylene[]}} +\def\@pentamethylene[#1]#2#3{% +\iniflag\iniatom% +\@reset@ylsw% +{\@linterchainswfalse% +\@rinterchainswtrue% +\yltrimethyleneposition{#2}{#3}{0}{0}}% +\if@ylsw \ifx\@@ylii\empty +\def\@@ylii{0}\def\@@yli{0}\fi +\else +{\@rinterchainswfalse% +\@linterchainswtrue% +\yltrimethyleneposition{#2}{#3}{1}{-2}}% +\if@ylsw \ifx\@@ylii\empty +\def\@@ylii{-342}\def\@@yli{0}\fi\fi +\fi +\begin{ShiftPicEnvB}(0,0)(-\yl@shiftii,-\yl@shifti)/% +(1100,480)(-200,-180){pentamethylene}%2002/4/30 by S. Fujita +(200,180)% +{\reset@double% +\@tfor\member:=#1\do{% +\if\member a\relax +\@adoublebondtrue +\else\if\member b\relax +\@bdoublebondtrue +\else\if\member A\relax +\@Adoublebondtrue +\else\if\member B\relax +\@Bdoublebondtrue +\fi\fi\fi\fi}% +\@wrongbdWatrue +\@wrongbdWdtrue +\Put@Direct(0,0){\@@trimethylene{#2}{#3}{0}{0}}}% +{\reset@double% +\@tfor\member:=#1\do{% +\if\member c\relax +\@adoublebondtrue +\else\if\member d\relax +\@bdoublebondtrue +\else\if\member C\relax +\@Adoublebondtrue +\else\if\member D\relax +\@Bdoublebondtrue +\fi\fi\fi\fi}% +\@wrongbdWatrue +\@wrongbdWdfalse +\Put@Direct(342,0){\@@trimethylene{#2}{#3}{1}{-2}}}% +{\reset@double% +\@tfor\member:=#1\do{% +\if\member a\relax%dummy +\else\if\member b\relax%dummy +\else\if\member A\relax%dummy +\else\if\member B\relax%dummy +\else\if\member c\relax%dummy +\else\if\member C\relax%dummy +\else\if\member d\relax%dummy +\else\if\member D\relax%dummy +\else + \expandafter\twoCH@@R\member//% + \set@fusion@pentameth% for all bonds +\fi\fi\fi\fi +\fi\fi\fi\fi}}% +\end{ShiftPicEnvB}% +}% end of \pentamethylene +\def\set@fusion@pentameth{% +\if\@@tmpa a\relax% + \putlratom{0}{0}{\@@tmpb}% % bond fused + \FuseWarning{-171}{-103}% + {\fuseAx}{\fuseAy}{\fuseBx}{\fuseBy}{a}% + \else\if\@@tmpa A\relax% + \putlratom{171}{103}{\@@tmpb}% % bond fused + \FuseWarning{171}{103}% + {\fuseAx}{\fuseAy}{\fuseBx}{\fuseBy}{A}% + \else\if\@@tmpa b\relax% + \putlratom{171}{103}{\@@tmpb}% % bond fused + \FuseWarning{-171}{103}% + {\fuseAx}{\fuseAy}{\fuseBx}{\fuseBy}{b}% + \else\if\@@tmpa B\relax% + \putlratom{342}{0}{\@@tmpb}% % bond fused + \FuseWarning{171}{-103}% + {\fuseAx}{\fuseAy}{\fuseBx}{\fuseBy}{B}% + \else\if\@@tmpa c\relax% + \putlratom{342}{0}{\@@tmpb}% % bond fused + \FuseWarning{-171}{-103}% + {\fuseAx}{\fuseAy}{\fuseBx}{\fuseBy}{c}% + \else\if\@@tmpa C\relax% + \putlratom{513}{103}{\@@tmpb}% % bond fused + \FuseWarning{171}{103}% + {\fuseAx}{\fuseAy}{\fuseBx}{\fuseBy}{C}% + \else\if\@@tmpa d\relax% + \putlratom{513}{103}{\@@tmpb}% % bond fused + \FuseWarning{-171}{103}% + {\fuseAx}{\fuseAy}{\fuseBx}{\fuseBy}{d}% + \else\if\@@tmpa D\relax% + \putlratom{684}{0}{\@@tmpb}% % bond fused + \FuseWarning{171}{-103}% + {\fuseAx}{\fuseAy}{\fuseBx}{\fuseBy}{D}% + \fi\fi\fi\fi + \fi\fi\fi\fi +\global\let\FuseWarning=\FuseW@rning%added 2010/10/01 +}% end of the macro \set@fusion@pentameth +\def\pentamethylenei{% +\@ifnextchar[{\@pentamethylenei[@}{\@pentamethylenei[]}} +\def\@pentamethylenei[#1]#2#3{% +\iniflag\iniatom% +\@reset@ylsw% +{\@linterchainswfalse% +\@rinterchainswtrue% +\yltrimethyleneiposition{#2}{#3}{0}{0}}% +\if@ylsw \ifx\@@ylii\empty +\def\@@ylii{0}\def\@@yli{0}\fi +\else +{\@rinterchainswfalse% +\@linterchainswtrue% +\yltrimethyleneiposition{#2}{#3}{1}{-2}}% +\if@ylsw \ifx\@@ylii\empty +\def\@@ylii{-342}\def\@@yli{0}\fi\fi +\fi +\begin{ShiftPicEnvB}(0,0)(-\yl@shiftii,-\yl@shifti)/% +(1100,480)(-200,-180){pentamethylenei}%2002/4/30 by S. Fujita +(200,180)% +{\reset@double% +\@tfor\member:=#1\do{% +\if\member a\relax +\@adoublebondtrue +\else\if\member b\relax +\@bdoublebondtrue +\else\if\member A\relax +\@Adoublebondtrue +\else\if\member B\relax +\@Bdoublebondtrue +\fi\fi\fi\fi}% +\@wrongbdWatrue +\@wrongbdWdtrue +\Put@Direct(0,0){\@@trimethylenei{#2}{#3}{0}{0}}}% +{\reset@double% +\@tfor\member:=#1\do{% +\if\member c\relax +\@adoublebondtrue +\else\if\member d\relax +\@bdoublebondtrue +\else\if\member C\relax +\@Adoublebondtrue +\else\if\member D\relax +\@Bdoublebondtrue +\fi\fi\fi\fi}% +\@wrongbdWafalse +\@wrongbdWdtrue +\Put@Direct(342,0){\@@trimethylenei{#2}{#3}{1}{-2}}}% +{\reset@double% +\@tfor\member:=#1\do{% +\if\member a\relax%dummy +\else\if\member b\relax%dummy +\else\if\member A\relax%dummy +\else\if\member B\relax%dummy +\else\if\member c\relax%dummy +\else\if\member C\relax%dummy +\else\if\member d\relax%dummy +\else\if\member D\relax%dummy +\else + \expandafter\twoCH@@R\member//% + \set@fusion@pentamethi% for all bonds +\fi\fi\fi\fi +\fi\fi\fi\fi}}% +\end{ShiftPicEnvB}% +}% end of \pentamethylenei +\def\set@fusion@pentamethi{% +\if\@@tmpa a\relax% + \putlratom{0}{103}{\@@tmpb}% % bond fused + \FuseWarning{-171}{103}% + {\fuseAx}{\fuseAy}{\fuseBx}{\fuseBy}{a}% + \else\if\@@tmpa A\relax% + \putlratom{171}{0}{\@@tmpb}% % bond fused + \FuseWarning{171}{-103}% + {\fuseAx}{\fuseAy}{\fuseBx}{\fuseBy}{A}% + \else\if\@@tmpa b\relax% + \putlratom{171}{0}{\@@tmpb}% % bond fused + \FuseWarning{-171}{-103}% + {\fuseAx}{\fuseAy}{\fuseBx}{\fuseBy}{b}% + \else\if\@@tmpa B\relax% + \putlratom{342}{103}{\@@tmpb}% % bond fused + \FuseWarning{171}{103}% + {\fuseAx}{\fuseAy}{\fuseBx}{\fuseBy}{B}% + \else\if\@@tmpa c\relax% + \putlratom{342}{103}{\@@tmpb}% % bond fused + \FuseWarning{-171}{103}% + {\fuseAx}{\fuseAy}{\fuseBx}{\fuseBy}{c}% + \else\if\@@tmpa C\relax% + \putlratom{513}{0}{\@@tmpb}% % bond fused + \FuseWarning{171}{103}% + {\fuseAx}{\fuseAy}{\fuseBx}{\fuseBy}{C}% + \else\if\@@tmpa d\relax% + \putlratom{513}{0}{\@@tmpb}% % bond fused + \FuseWarning{-171}{-103}% + {\fuseAx}{\fuseAy}{\fuseBx}{\fuseBy}{d}% + \else\if\@@tmpa D\relax% + \putlratom{684}{103}{\@@tmpb}% % bond fused + \FuseWarning{171}{103}% + {\fuseAx}{\fuseAy}{\fuseBx}{\fuseBy}{D}% + \fi\fi\fi\fi + \fi\fi\fi\fi +\global\let\FuseWarning=\FuseW@rning%added 2010/10/01 +}% end of the macro \set@fusion@pentamethi +\newif\if@normorinvsw \@normorinvswfalse +\def\set@normaldirection{% +\@normorinvswfalse +\let\@yltrinormorinv=\yltrimethyleneposition +\let\@yldinormorinv=\yldimethyleneposition +\let\@@trinormorinv=\@@trimethylene +\let\@@dinormorinv=\@@dimethylene} +\def\set@inversedirection{% +\@normorinvswtrue +\let\@yltrinormorinv=\yltrimethyleneiposition +\let\@yldinormorinv=\yldimethyleneiposition +\let\@@trinormorinv=\@@trimethylenei +\let\@@dinormorinv=\@@dimethylenei} +\def\hexamethylene{% +\@ifnextchar[{\set@normaldirection\@hexamethylene[@}{% +\set@normaldirection\@hexamethylene[]}} +\def\hexamethylenei{% +\@ifnextchar[{\set@inversedirection\@hexamethylene[@}{% +\set@inversedirection\@hexamethylene[]}} +\def\@hexamethylene[#1]#2#3{% +\iniflag\iniatom% +\@reset@ylsw% +{\@linterchainswfalse% +\@rinterchainswtrue% +\@yltrinormorinv{#2}{#3}{0}{0}}% +\if@ylsw \ifx\@@ylii\empty +\def\@@ylii{0}\def\@@yli{0}\fi +\else +{\@rinterchainswtrue% +\@linterchainswtrue% +\@yltrinormorinv{#2}{#3}{1}{-2}}% +\fi +\if@ylsw \ifx\@@ylii\empty +\def\@@ylii{-342}\def\@@yli{0}\fi +\else +{\@rinterchainswfalse% +\@linterchainswtrue% +\@yldinormorinv{#2}{#3}{1}{-4}}% +\fi +\if@ylsw \ifx\@@ylii\empty +\def\@@ylii{-684}\def\@@yli{0}\fi\fi +\begin{ShiftPicEnvB}(0,0)(-\yl@shiftii,-\yl@shifti)/% +(1100,480)(-200,-180){hexamethylene}%2002/4/30 by S. Fujita +(200,180)% +{\reset@double% +\@tfor\member:=#1\do{% +\if\member a\relax +\@adoublebondtrue +\else\if\member b\relax +\@bdoublebondtrue +\else\if\member A\relax +\@Adoublebondtrue +\else\if\member B\relax +\@Bdoublebondtrue +\fi\fi\fi\fi}% +\@wrongbdWatrue +\@wrongbdWdtrue +\Put@Direct(0,0){\@@trinormorinv{#2}{#3}{0}{0}}}% +{\reset@double% +\@tfor\member:=#1\do{% +\if\member c\relax +\@adoublebondtrue +\else\if\member d\relax +\@bdoublebondtrue +\else\if\member C\relax +\@Adoublebondtrue +\else\if\member D\relax +\@Bdoublebondtrue +\fi\fi\fi\fi}% +\@wrongbdWatrue +\@wrongbdWdtrue +\Put@Direct(342,0){\@@trinormorinv{#2}{#3}{1}{-2}}}% +{\reset@double% +\@tfor\member:=#1\do{% +\if\member e\relax +\@adoublebondtrue +\else\if\member E\relax +\@Adoublebondtrue +\fi\fi}% +\if@normorinvsw% inverse + \@wrongbdWatrue + \@wrongbdWdfalse +\else% normal + \@wrongbdWafalse + \@wrongbdWdtrue +\fi +\Put@Direct(684,0){\@@dinormorinv{#2}{#3}{1}{-4}}}% +{\reset@double% +\@tfor\member:=#1\do{% +\if\member a\relax%dummy +\else\if\member b\relax%dummy +\else\if\member A\relax%dummy +\else\if\member B\relax%dummy +\else\if\member c\relax%dummy +\else\if\member C\relax%dummy +\else\if\member d\relax%dummy +\else\if\member D\relax%dummy +\else\if\member e\relax%dummy +\else\if\member E\relax%dummy +\else + \expandafter\twoCH@@R\member//% + \set@fusion@hexameth% for all bonds +\fi\fi\fi\fi\fi\fi +\fi\fi\fi\fi}}% +\end{ShiftPicEnvB}% +}% end of \@hexamethylene +\def\set@fusion@hexameth{% +\if@normorinvsw + \if\@@tmpa e\relax% + \putlratom{684}{103}{\@@tmpb}% % bond fused + \FuseWarning{-171}{103}% + {\fuseAx}{\fuseAy}{\fuseBx}{\fuseBy}{e}% + \else\if\@@tmpa E\relax% + \putlratom{855}{0}{\@@tmpb}% % bond fused + \FuseWarning{171}{-103}% + {\fuseAx}{\fuseAy}{\fuseBx}{\fuseBy}{E}% + \else + \set@fusion@pentamethi + \fi\fi +\else + \if\@@tmpa e\relax% + \putlratom{684}{0}{\@@tmpb}% % bond fused + \FuseWarning{-171}{-103}% + {\fuseAx}{\fuseAy}{\fuseBx}{\fuseBy}{e}% + \else\if\@@tmpa E\relax% + \putlratom{855}{103}{\@@tmpb}% % bond fused + \FuseWarning{171}{103}% + {\fuseAx}{\fuseAy}{\fuseBx}{\fuseBy}{E}% + \else + \set@fusion@pentameth + \fi\fi +\fi +\global\let\FuseWarning=\FuseW@rning%added 2010/10/01 +}% end of the macro \set@fusion@hexameth +\def\heptamethylene{% +\@ifnextchar[{\set@normaldirection\@heptamethylene[@}{% +\set@normaldirection\@heptamethylene[]}} +\def\heptamethylenei{% +\@ifnextchar[{\set@inversedirection\@heptamethylene[@}{% +\set@inversedirection\@heptamethylene[]}} +\def\@heptamethylene[#1]#2#3{% +\iniflag\iniatom% +\@reset@ylsw% +{\@linterchainswfalse% +\@rinterchainswtrue% +\@yltrinormorinv{#2}{#3}{0}{0}}% +\if@ylsw \ifx\@@ylii\empty +\def\@@ylii{0}\def\@@yli{0}\fi +\else +{\@rinterchainswtrue% +\@linterchainswtrue% +\@yltrinormorinv{#2}{#3}{1}{-2}}% +\fi +\if@ylsw \ifx\@@ylii\empty +\def\@@ylii{-342}\def\@@yli{0}\fi +\else +{\@rinterchainswfalse% +\@linterchainswtrue% +\@yltrinormorinv{#2}{#3}{1}{-4}}% +\fi +\if@ylsw \ifx\@@ylii\empty +\def\@@ylii{-684}\def\@@yli{0}\fi\fi +\begin{ShiftPicEnvB}(0,0)(-\yl@shiftii,-\yl@shifti)/% +(1450,480)(-200,-180){heptamethylene}%2002/4/30 by S. Fujita +(200,180)% +{\reset@double% +\@tfor\member:=#1\do{% +\if\member a\relax +\@adoublebondtrue +\else\if\member b\relax +\@bdoublebondtrue +\else\if\member A\relax +\@Adoublebondtrue +\else\if\member B\relax +\@Bdoublebondtrue +\fi\fi\fi\fi}% +\@wrongbdWatrue +\@wrongbdWdtrue +\Put@Direct(0,0){\@@trinormorinv{#2}{#3}{0}{0}}}% +{\reset@double% +\@tfor\member:=#1\do{% +\if\member c\relax +\@adoublebondtrue +\else\if\member d\relax +\@bdoublebondtrue +\else\if\member C\relax +\@Adoublebondtrue +\else\if\member D\relax +\@Bdoublebondtrue +\fi\fi\fi\fi}% +\@wrongbdWatrue +\@wrongbdWdtrue +\Put@Direct(342,0){\@@trinormorinv{#2}{#3}{1}{-2}}}% +{\reset@double% +\@tfor\member:=#1\do{% +\if\member e\relax +\@adoublebondtrue +\else\if\member E\relax +\@Adoublebondtrue +\else\if\member f\relax +\@bdoublebondtrue +\else\if\member F\relax +\@Bdoublebondtrue +\fi\fi\fi\fi}% +\if@normorinvsw% inverse +\@wrongbdWafalse +\@wrongbdWdtrue +\else%normal +\@wrongbdWatrue +\@wrongbdWdfalse +\fi +\Put@Direct(684,0){\@@trinormorinv{#2}{#3}{1}{-4}}}% +{\reset@double% +\@tfor\member:=#1\do{% +\if\member a\relax%dummy +\else\if\member b\relax%dummy +\else\if\member A\relax%dummy +\else\if\member B\relax%dummy +\else\if\member c\relax%dummy +\else\if\member C\relax%dummy +\else\if\member d\relax%dummy +\else\if\member D\relax%dummy +\else\if\member e\relax%dummy +\else\if\member E\relax%dummy +\else\if\member f\relax%dummy +\else\if\member F\relax%dummy +\else + \expandafter\twoCH@@R\member//% + \set@fusion@heptameth% for all bonds +\fi\fi\fi\fi\fi\fi\fi\fi +\fi\fi\fi\fi}}% +\end{ShiftPicEnvB}% +}% end of \@heptamethylene +\def\set@fusion@heptameth{% +\if@normorinvsw + \if\@@tmpa e\relax% + \putlratom{684}{103}{\@@tmpb}% % bond fused + \FuseWarning{-171}{103}% + {\fuseAx}{\fuseAy}{\fuseBx}{\fuseBy}{e}% + \else\if\@@tmpa E\relax% + \putlratom{855}{0}{\@@tmpb}% % bond fused + \FuseWarning{171}{-103}% + {\fuseAx}{\fuseAy}{\fuseBx}{\fuseBy}{E}% + \else\if\@@tmpa f\relax% + \putlratom{855}{0}{\@@tmpb}% % bond fused + \FuseWarning{-171}{-103}% + {\fuseAx}{\fuseAy}{\fuseBx}{\fuseBy}{f}% + \else\if\@@tmpa F\relax% + \putlratom{1027}{103}{\@@tmpb}% % bond fused + \FuseWarning{171}{103}% + {\fuseAx}{\fuseAy}{\fuseBx}{\fuseBy}{F}% + \else + \set@fusion@pentamethi + \fi\fi\fi\fi +\else + \if\@@tmpa e\relax% + \putlratom{684}{0}{\@@tmpb}% % bond fused + \FuseWarning{-171}{-103}% + {\fuseAx}{\fuseAy}{\fuseBx}{\fuseBy}{e}% + \else\if\@@tmpa E\relax% + \putlratom{855}{103}{\@@tmpb}% % bond fused + \FuseWarning{171}{103}% + {\fuseAx}{\fuseAy}{\fuseBx}{\fuseBy}{E}% + \else\if\@@tmpa f\relax% + \putlratom{855}{103}{\@@tmpb}% % bond fused + \FuseWarning{-171}{103}% + {\fuseAx}{\fuseAy}{\fuseBx}{\fuseBy}{f}% + \else\if\@@tmpa F\relax% + \putlratom{1027}{0}{\@@tmpb}% % bond fused + \FuseWarning{171}{-103}% + {\fuseAx}{\fuseAy}{\fuseBx}{\fuseBy}{F}% + \else + \set@fusion@pentameth + \fi\fi\fi\fi +\fi +\global\let\FuseWarning=\FuseW@rning%added 2010/10/01 +}% end of the macro \set@fusion@heptameth +\def\octamethylene{% +\@ifnextchar[{\set@normaldirection\@octamethylene[@}{% +\set@normaldirection\@octamethylene[]}} +\def\octamethylenei{% +\@ifnextchar[{\set@inversedirection\@octamethylene[@}{% +\set@inversedirection\@octamethylene[]}} +\def\@octamethylene[#1]#2#3{% +\iniflag\iniatom% +\@reset@ylsw% +{\@linterchainswfalse% +\@rinterchainswtrue% +\@yltrinormorinv{#2}{#3}{0}{0}}% +\if@ylsw \ifx\@@ylii\empty +\def\@@ylii{0}\def\@@yli{0}\fi +\else +{\@rinterchainswtrue% +\@linterchainswtrue% +\@yltrinormorinv{#2}{#3}{1}{-2}}% +\fi +\if@ylsw \ifx\@@ylii\empty +\def\@@ylii{-342}\def\@@yli{0}\fi +\else +{\@rinterchainswtrue% +\@linterchainswtrue% +\@yltrinormorinv{#2}{#3}{1}{-4}}% +\fi +\if@ylsw \ifx\@@ylii\empty +\def\@@ylii{-684}\def\@@yli{0}\fi +\else +{\@rinterchainswfalse% +\@linterchainswtrue% +\@yldinormorinv{#2}{#3}{1}{-6}}% +\fi +\if@ylsw \ifx\@@ylii\empty +\def\@@ylii{-1026}\def\@@yli{0}\fi\fi +\begin{ShiftPicEnvB}(0,0)(-\yl@shiftii,-\yl@shifti)/% +(1620,480)(-200,-180){octamethylene}%2002/4/30 by S. Fujita +(200,180)% +{\reset@double% +\@tfor\member:=#1\do{% +\if\member a\relax +\@adoublebondtrue +\else\if\member b\relax +\@bdoublebondtrue +\else\if\member A\relax +\@Adoublebondtrue +\else\if\member B\relax +\@Bdoublebondtrue +\fi\fi\fi\fi}% +\@wrongbdWatrue +\@wrongbdWdtrue +\Put@Direct(0,0){\@@trinormorinv{#2}{#3}{0}{0}}}% +{\reset@double% +\@tfor\member:=#1\do{% +\if\member c\relax +\@adoublebondtrue +\else\if\member d\relax +\@bdoublebondtrue +\else\if\member C\relax +\@Adoublebondtrue +\else\if\member D\relax +\@Bdoublebondtrue +\fi\fi\fi\fi}% +\@wrongbdWatrue +\@wrongbdWdtrue +\Put@Direct(342,0){\@@trinormorinv{#2}{#3}{1}{-2}}}% +{\reset@double% +\@tfor\member:=#1\do{% +\if\member e\relax +\@adoublebondtrue +\else\if\member E\relax +\@Adoublebondtrue +\else\if\member f\relax +\@bdoublebondtrue +\else\if\member F\relax +\@Bdoublebondtrue +\fi\fi\fi\fi}% +\@wrongbdWatrue +\@wrongbdWdtrue +\Put@Direct(684,0){\@@trinormorinv{#2}{#3}{1}{-4}}}% +{\reset@double% +\@tfor\member:=#1\do{% +\if\member g\relax +\@adoublebondtrue +\else\if\member G\relax +\@Adoublebondtrue +\fi\fi}% +\if@normorinvsw% inverse +\@wrongbdWatrue +\@wrongbdWdfalse +\else% normal +\@wrongbdWafalse +\@wrongbdWdtrue +\fi +\Put@Direct(1026,0){\@@dinormorinv{#2}{#3}{1}{-6}}}% +{\reset@double% +\@tfor\member:=#1\do{% +\if\member a\relax%dummy +\else\if\member b\relax%dummy +\else\if\member A\relax%dummy +\else\if\member B\relax%dummy +\else\if\member c\relax%dummy +\else\if\member C\relax%dummy +\else\if\member d\relax%dummy +\else\if\member D\relax%dummy +\else\if\member e\relax%dummy +\else\if\member E\relax%dummy +\else\if\member f\relax%dummy +\else\if\member F\relax%dummy +\else\if\member g\relax%dummy +\else\if\member G\relax%dummy +\else + \expandafter\twoCH@@R\member//% + \set@fusion@octameth% for all bonds +\fi\fi\fi\fi\fi\fi\fi\fi\fi\fi +\fi\fi\fi\fi}}% +\end{ShiftPicEnvB}% +}% end of \@octamethylene +\def\set@fusion@octameth{% +\if@normorinvsw + \if\@@tmpa e\relax% + \putlratom{684}{103}{\@@tmpb}% % bond fused + \FuseWarning{-171}{103}% + {\fuseAx}{\fuseAy}{\fuseBx}{\fuseBy}{e}% + \else\if\@@tmpa E\relax% + \putlratom{855}{0}{\@@tmpb}% % bond fused + \FuseWarning{171}{-103}% + {\fuseAx}{\fuseAy}{\fuseBx}{\fuseBy}{E}% + \else\if\@@tmpa f\relax% + \putlratom{855}{0}{\@@tmpb}% % bond fused + \FuseWarning{-171}{-103}% + {\fuseAx}{\fuseAy}{\fuseBx}{\fuseBy}{f}% + \else\if\@@tmpa F\relax% + \putlratom{1027}{103}{\@@tmpb}% % bond fused + \FuseWarning{171}{103}% + {\fuseAx}{\fuseAy}{\fuseBx}{\fuseBy}{F}% + \else\if\@@tmpa g\relax% + \putlratom{1027}{103}{\@@tmpb}% % bond fused + \FuseWarning{-171}{103}% + {\fuseAx}{\fuseAy}{\fuseBx}{\fuseBy}{g}% + \else\if\@@tmpa G\relax% + \putlratom{1198}{0}{\@@tmpb}% % bond fused + \FuseWarning{171}{-103}% + {\fuseAx}{\fuseAy}{\fuseBx}{\fuseBy}{G}% + \else + \set@fusion@pentamethi + \fi\fi\fi\fi\fi\fi +\else + \if\@@tmpa e\relax% + \putlratom{684}{0}{\@@tmpb}% % bond fused + \FuseWarning{-171}{-103}% + {\fuseAx}{\fuseAy}{\fuseBx}{\fuseBy}{e}% + \else\if\@@tmpa E\relax% + \putlratom{855}{103}{\@@tmpb}% % bond fused + \FuseWarning{171}{103}% + {\fuseAx}{\fuseAy}{\fuseBx}{\fuseBy}{E}% + \else\if\@@tmpa f\relax% + \putlratom{855}{103}{\@@tmpb}% % bond fused + \FuseWarning{-171}{103}% + {\fuseAx}{\fuseAy}{\fuseBx}{\fuseBy}{f}% + \else\if\@@tmpa F\relax% + \putlratom{1027}{0}{\@@tmpb}% % bond fused + \FuseWarning{171}{-103}% + {\fuseAx}{\fuseAy}{\fuseBx}{\fuseBy}{F}% + \else\if\@@tmpa g\relax% + \putlratom{1027}{0}{\@@tmpb}% % bond fused + \FuseWarning{-171}{-103}% + {\fuseAx}{\fuseAy}{\fuseBx}{\fuseBy}{g}% + \else\if\@@tmpa G\relax% + \putlratom{1198}{103}{\@@tmpb}% % bond fused + \FuseWarning{171}{103}% + {\fuseAx}{\fuseAy}{\fuseBx}{\fuseBy}{G}% + \else + \set@fusion@pentameth + \fi\fi\fi\fi\fi\fi +\fi +\global\let\FuseWarning=\FuseW@rning%added 2010/10/01 +}% end of the macro \set@fusion@octameth +\def\nonamethylene{% +\@ifnextchar[{\set@normaldirection\@nonamethylene[@}{% +\set@normaldirection\@nonamethylene[]}} + +\def\nonamethylenei{% +\@ifnextchar[{\set@inversedirection\@nonamethylene[@}{% +\set@inversedirection\@nonamethylene[]}} +\def\@nonamethylene[#1]#2#3{% +\iniflag\iniatom% +\@reset@ylsw% +{\@linterchainswfalse% +\@rinterchainswtrue% +\@yltrinormorinv{#2}{#3}{0}{0}}% +\if@ylsw \ifx\@@ylii\empty +\def\@@ylii{0}\def\@@yli{0}\fi +\else +{\@rinterchainswtrue% +\@linterchainswtrue% +\@yltrinormorinv{#2}{#3}{1}{-2}}% +\fi +\if@ylsw \ifx\@@ylii\empty +\def\@@ylii{-342}\def\@@yli{0}\fi +\else +{\@rinterchainswtrue% +\@linterchainswtrue% +\@yltrinormorinv{#2}{#3}{1}{-4}}% +\fi +\if@ylsw \ifx\@@ylii\empty +\def\@@ylii{-684}\def\@@yli{0}\fi +\else +{\@rinterchainswfalse% +\@linterchainswtrue% +\@yltrinormorinv{#2}{#3}{1}{-6}}% +\fi +\if@ylsw \ifx\@@ylii\empty +\def\@@ylii{-1026}\def\@@yli{0}\fi\fi +\begin{ShiftPicEnvB}(0,0)(-\yl@shiftii,-\yl@shifti)/% +(1790,480)(-200,-180){nonamethylene}%2002/4/30 by S. Fujita +(200,180)% +{\reset@double% +\@tfor\member:=#1\do{% +\if\member a\relax +\@adoublebondtrue +\else\if\member b\relax +\@bdoublebondtrue +\else\if\member A\relax +\@Adoublebondtrue +\else\if\member B\relax +\@Bdoublebondtrue +\fi\fi\fi\fi}% +\@wrongbdWatrue +\@wrongbdWdtrue +\Put@Direct(0,0){\@@trinormorinv{#2}{#3}{0}{0}}}% +{\reset@double% +\@tfor\member:=#1\do{% +\if\member c\relax +\@adoublebondtrue +\else\if\member d\relax +\@bdoublebondtrue +\else\if\member C\relax +\@Adoublebondtrue +\else\if\member D\relax +\@Bdoublebondtrue +\fi\fi\fi\fi}% +\@wrongbdWatrue +\@wrongbdWdtrue +\Put@Direct(342,0){\@@trinormorinv{#2}{#3}{1}{-2}}}% +{\reset@double% +\@tfor\member:=#1\do{% +\if\member e\relax +\@adoublebondtrue +\else\if\member E\relax +\@Adoublebondtrue +\else\if\member f\relax +\@bdoublebondtrue +\else\if\member F\relax +\@Bdoublebondtrue +\fi\fi\fi\fi}% +\@wrongbdWatrue +\@wrongbdWdtrue +\Put@Direct(684,0){\@@trinormorinv{#2}{#3}{1}{-4}}}% +{\reset@double% +\@tfor\member:=#1\do{% +\if\member g\relax +\@adoublebondtrue +\else\if\member G\relax +\@Adoublebondtrue +\else\if\member h\relax +\@bdoublebondtrue +\else\if\member H\relax +\@Bdoublebondtrue +\fi\fi\fi\fi}% +\if@normorinvsw% inverse +\@wrongbdWafalse +\@wrongbdWdtrue +\else% normal +\@wrongbdWatrue +\@wrongbdWdfalse +\fi +\Put@Direct(1026,0){\@@trinormorinv{#2}{#3}{1}{-6}}}% +{\reset@double% +\@tfor\member:=#1\do{% +\if\member a\relax%dummy +\else\if\member b\relax%dummy +\else\if\member A\relax%dummy +\else\if\member B\relax%dummy +\else\if\member c\relax%dummy +\else\if\member C\relax%dummy +\else\if\member d\relax%dummy +\else\if\member D\relax%dummy +\else\if\member e\relax%dummy +\else\if\member E\relax%dummy +\else\if\member f\relax%dummy +\else\if\member F\relax%dummy +\else\if\member g\relax%dummy +\else\if\member G\relax%dummy +\else\if\member h\relax%dummy +\else\if\member H\relax%dummy +\else + \expandafter\twoCH@@R\member//% + \set@fusion@nonameth% for all bonds +\fi\fi\fi\fi\fi\fi\fi\fi\fi\fi\fi\fi +\fi\fi\fi\fi}}% +\end{ShiftPicEnvB}% +}% end of \@nonamethylene +\def\set@fusion@nonameth{% +\if@normorinvsw + \if\@@tmpa h\relax% + \putlratom{1198}{0}{\@@tmpb}% % bond fused + \FuseWarning{-171}{-103}% + {\fuseAx}{\fuseAy}{\fuseBx}{\fuseBy}{h}% + \else\if\@@tmpa H\relax% + \putlratom{1369}{103}{\@@tmpb}% % bond fused + \FuseWarning{171}{103}% + {\fuseAx}{\fuseAy}{\fuseBx}{\fuseBy}{H}% + \else + \set@fusion@octameth + \fi\fi +\else + \if\@@tmpa h\relax% + \putlratom{1198}{103}{\@@tmpb}% % bond fused + \FuseWarning{-171}{103}% + {\fuseAx}{\fuseAy}{\fuseBx}{\fuseBy}{h}% + \else\if\@@tmpa H\relax% + \putlratom{1369}{0}{\@@tmpb}% % bond fused + \FuseWarning{171}{-103}% + {\fuseAx}{\fuseAy}{\fuseBx}{\fuseBy}{H}% + \else + \set@fusion@octameth + \fi\fi +\fi +\global\let\FuseWarning=\FuseW@rning%added 2010/10/01 +}% end of the macro \set@fusion@nonameth +\def\decamethylene{% +\@ifnextchar[{\set@normaldirection\@decamethylene[@}{% +\set@normaldirection\@decamethylene[]}} +\def\decamethylenei{% +\@ifnextchar[{\set@inversedirection\@decamethylene[@}{% +\set@inversedirection\@decamethylene[]}} +\def\@decamethylene[#1]#2#3{% +\iniflag\iniatom% +\@reset@ylsw% +{\@linterchainswfalse% +\@rinterchainswtrue% +\@yltrinormorinv{#2}{#3}{0}{0}}% +\if@ylsw \ifx\@@ylii\empty +\def\@@ylii{0}\def\@@yli{0}\fi +\else +{\@rinterchainswtrue% +\@linterchainswtrue% +\@yltrinormorinv{#2}{#3}{1}{-2}}% +\fi +\if@ylsw \ifx\@@ylii\empty +\def\@@ylii{-342}\def\@@yli{0}\fi +\else +{\@rinterchainswtrue% +\@linterchainswtrue% +\@yltrinormorinv{#2}{#3}{1}{-4}}% +\fi +\if@ylsw \ifx\@@ylii\empty +\def\@@ylii{-684}\def\@@yli{0}\fi +\else +{\@rinterchainswtrue% +\@linterchainswtrue% +\@yltrinormorinv{#2}{#3}{1}{-6}}% +\fi +\if@ylsw \ifx\@@ylii\empty +\def\@@ylii{-1026}\def\@@yli{0}\fi +\else +{\@rinterchainswfalse% +\@linterchainswtrue% +\@yldinormorinv{#2}{#3}{1}{-8}}% +\fi +\if@ylsw \ifx\@@ylii\empty +\def\@@ylii{-1368}\def\@@yli{0}\fi\fi +\begin{ShiftPicEnvB}(0,0)(-\yl@shiftii,-\yl@shifti)/% +(1960,480)(-200,-180){decamethylene}%2002/4/30 by S. Fujita +(200,180)% +{\reset@double% +\@tfor\member:=#1\do{% +\if\member a\relax +\@adoublebondtrue +\else\if\member b\relax +\@bdoublebondtrue +\else\if\member A\relax +\@Adoublebondtrue +\else\if\member B\relax +\@Bdoublebondtrue +\fi\fi\fi\fi}% +\@wrongbdWatrue +\@wrongbdWdtrue +\Put@Direct(0,0){\@@trinormorinv{#2}{#3}{0}{0}}}% +{\reset@double% +\@tfor\member:=#1\do{% +\if\member c\relax +\@adoublebondtrue +\else\if\member d\relax +\@bdoublebondtrue +\else\if\member C\relax +\@Adoublebondtrue +\else\if\member D\relax +\@Bdoublebondtrue +\fi\fi\fi\fi}% +\@wrongbdWatrue +\@wrongbdWdtrue +\Put@Direct(342,0){\@@trinormorinv{#2}{#3}{1}{-2}}}% +{\reset@double% +\@tfor\member:=#1\do{% +\if\member e\relax +\@adoublebondtrue +\else\if\member E\relax +\@Adoublebondtrue +\else\if\member f\relax +\@bdoublebondtrue +\else\if\member F\relax +\@Bdoublebondtrue +\fi\fi\fi\fi}% +\@wrongbdWatrue +\@wrongbdWdtrue +\Put@Direct(684,0){\@@trinormorinv{#2}{#3}{1}{-4}}}% +{\reset@double% +\@tfor\member:=#1\do{% +\if\member g\relax +\@adoublebondtrue +\else\if\member G\relax +\@Adoublebondtrue +\else\if\member h\relax +\@bdoublebondtrue +\else\if\member H\relax +\@Bdoublebondtrue +\fi\fi\fi\fi}% +\@wrongbdWatrue +\@wrongbdWdtrue +\Put@Direct(1026,0){\@@trinormorinv{#2}{#3}{1}{-6}}}% +{\reset@double% +\@tfor\member:=#1\do{% +\if\member i\relax +\@adoublebondtrue +\else\if\member I\relax +\@Adoublebondtrue +\fi\fi}% +\if@normorinvsw% inverse +\@wrongbdWatrue +\@wrongbdWdfalse +\else% normal +\@wrongbdWafalse +\@wrongbdWdtrue +\fi +\Put@Direct(1368,0){\@@dinormorinv{#2}{#3}{1}{-8}}}% +{\reset@double% +\@tfor\member:=#1\do{% +\if\member a\relax%dummy +\else\if\member b\relax%dummy +\else\if\member A\relax%dummy +\else\if\member B\relax%dummy +\else\if\member c\relax%dummy +\else\if\member C\relax%dummy +\else\if\member d\relax%dummy +\else\if\member D\relax%dummy +\else\if\member e\relax%dummy +\else\if\member E\relax%dummy +\else\if\member f\relax%dummy +\else\if\member F\relax%dummy +\else\if\member g\relax%dummy +\else\if\member G\relax%dummy +\else\if\member h\relax%dummy +\else\if\member H\relax%dummy +\else\if\member i\relax%dummy +\else\if\member I\relax%dummy +\else + \expandafter\twoCH@@R\member//% + \set@fusion@decameth% for all bonds +\fi\fi\fi\fi\fi\fi\fi\fi\fi\fi\fi\fi\fi\fi +\fi\fi\fi\fi}}% +\end{ShiftPicEnvB}% +}% end \@decamethylene +\def\set@fusion@decameth{% +\if@normorinvsw + \if\@@tmpa h\relax% + \putlratom{1198}{0}{\@@tmpb}% % bond fused + \FuseWarning{-171}{-103}% + {\fuseAx}{\fuseAy}{\fuseBx}{\fuseBy}{h}% + \else\if\@@tmpa H\relax% + \putlratom{1369}{103}{\@@tmpb}% % bond fused + \FuseWarning{171}{103}% + {\fuseAx}{\fuseAy}{\fuseBx}{\fuseBy}{H}% + \else\if\@@tmpa i\relax% + \putlratom{1369}{103}{\@@tmpb}% % bond fused + \FuseWarning{-171}{103}% + {\fuseAx}{\fuseAy}{\fuseBx}{\fuseBy}{i}% + \else\if\@@tmpa I\relax% + \putlratom{1540}{0}{\@@tmpb}% % bond fused + \FuseWarning{171}{-103}% + {\fuseAx}{\fuseAy}{\fuseBx}{\fuseBy}{I}% + \else + \set@fusion@octameth + \fi\fi\fi\fi +\else + \if\@@tmpa h\relax% + \putlratom{1198}{103}{\@@tmpb}% % bond fused + \FuseWarning{-171}{103}% + {\fuseAx}{\fuseAy}{\fuseBx}{\fuseBy}{h}% + \else\if\@@tmpa H\relax% + \putlratom{1369}{0}{\@@tmpb}% % bond fused + \FuseWarning{171}{-103}% + {\fuseAx}{\fuseAy}{\fuseBx}{\fuseBy}{H}% + \else\if\@@tmpa i\relax% + \putlratom{1369}{0}{\@@tmpb}% % bond fused + \FuseWarning{-171}{-103}% + {\fuseAx}{\fuseAy}{\fuseBx}{\fuseBy}{i}% + \else\if\@@tmpa I\relax% + \putlratom{1540}{103}{\@@tmpb}% % bond fused + \FuseWarning{171}{103}% + {\fuseAx}{\fuseAy}{\fuseBx}{\fuseBy}{I}% + \else + \set@fusion@octameth + \fi\fi\fi\fi +\fi% +\global\let\FuseWarning=\FuseW@rning%added 2010/10/01 +}% end of the macro \set@fusion@decameth +\endinput +%% +%% End of file `methylen.sty'. |