%%
%% 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'.