summaryrefslogtreecommitdiff
path: root/macros/latex/contrib/xymtex/base/methylen.sty
diff options
context:
space:
mode:
Diffstat (limited to 'macros/latex/contrib/xymtex/base/methylen.sty')
-rw-r--r--macros/latex/contrib/xymtex/base/methylen.sty3484
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'.