<html><head><meta name="color-scheme" content="light dark"></head><body><pre style="word-wrap: break-word; white-space: pre-wrap;">%%
%% This is file `fusering.sty',
%% generated with the docstrip utility.
%%
%% The original source files were:
%%
%% fusering.dtx  (with options: `fusering')
%% 
%% This is a generated file.
%% 
%% Copyright 1998,2001,2002,2004,2010 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, 1998 (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.01 Released on August 30, 2004
%% 
%% The Present Version:
%% Version 5.00 Released on October 01, 2010
%% 
%% 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 fusering.dtx and fusering.ins
%% and the derived file fusering.sty.
%% 
%% =======================================
%% 
%% File: fusering.dtx
%% \CharacterTable
%%  {Upper-case    \A\B\C\D\E\F\G\H\I\J\K\L\M\N\O\P\Q\R\S\T\U\V\W\X\Y\Z
%%   Lower-case    \a\b\c\d\e\f\g\h\i\j\k\l\m\n\o\p\q\r\s\t\u\v\w\x\y\z
%%   Digits        \0\1\2\3\4\5\6\7\8\9
%%   Exclamation   \!     Double quote  \"     Hash (number) \#
%%   Dollar        \$     Percent       \%     Ampersand     \&amp;
%%   Acute accent  \'     Left paren    \(     Right paren   \)
%%   Asterisk      \*     Plus          \+     Comma         \,
%%   Minus         \-     Point         \.     Solidus       \/
%%   Colon         \:     Semicolon     \;     Less than     \&lt;
%%   Equals        \=     Greater than  \&gt;     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.00}
\typeout{       -- Released October 01, 2010 by Shinsaku Fujita}
\def\j@urnalname{fusering}
\def\versi@ndate{October 01, 2010}
\def\versi@nno{ver5.00}
\def\copyrighth@lder{SF} % Shinsaku Fujita
\typeout{XyMTeX Macro File `\j@urnalname' (\versi@nno) &lt;\versi@ndate&gt;%
\space[\copyrighth@lder]}

\@ifundefined{setsixringv}{\input chemstr.sty\relax}{}
\@ifundefined{bzdrv}{\input carom.sty\relax}{}
\@ifundefined{hbonde}{\input hetaromh.sty\relax}{}
\@ifundefined{bonde}{\input hetarom.sty\relax}{}
\unitlength=0.1pt
\def\sixfusev{\@ifnextchar({\@six@fusev(@}{\@six@fusev(@)}}
\def\@six@fusev(#1){\@ifnextchar[{\@six@@fusev(#1)[@}%
{\@six@@fusev(#1)[@]}}
\def\@six@@fusev(#1)[#2]#3#4#5{\@ifnextchar[%
{\@sixfusev(#1)[#2]{#3}{#4}{#5}[@}%
{\@sixfusev(#1)[#2]{#3}{#4}{#5}[@]}}
\def\@sixfusev(#1)[#2]#3#4#5[#6]{%
\iniatom\iniflag%initialize%
\test@vertix@sixv{#3}{a}{b}{c}{d}{e}{f}%
\sixfuseposv{#5}%
\begin{ShiftPicEnv}[1](0,0)(-\yl@shiftii,-\yl@shifti)/%
(800,880)(-\shiftii,-\shifti){sixfusev}%2002/4/30 by S. Fujita
{%
\resetbdsw%
\@bond@fuse@omit{#5}{#6}%
\set@skel@bond{#1}{a}{a}% bond between 1 and 2 \@aaa -&gt; \skbonda etc
\set@skel@bond{#1}{b}{b}% bond between 2 and 3 \@bbb -&gt; \skbondb etc
\set@skel@bond{#1}{c}{c}% bond between 3 and 4 \@ccc -&gt; \skbondc etc
\set@skel@bond{#1}{d}{d}% bond between 4 and 5 \@ddd -&gt; \skbondd etc
\set@skel@bond{#1}{e}{e}% bond between 5 and 6 \@eee -&gt; \skbonde etc
\set@skel@bond{#1}{f}{f}% bond between 6 and 1 \@fff -&gt; \skbondf etc
}%
\@tfor\member:=#2\do{%
\if\member r\relax%
\else\if\member l\relax%
\else\if\member a\relax%
  \bonda%
\else\if\member b\relax%
   \bondb%
\else\if\member c\relax%
   \bondc%
\else\if\member d\relax%
   \bondd%
\else\if\member e\relax%
   \bonde%
\else\if\member f\relax%
   \bondf%
\else\if\member A\relax%left aromatic circle
  \Put@oCircle(0,203){240}%               %circle
\else \expandafter\twoCH@@R\member//%
     \set@fusionadd@sixv
\fi\fi\fi\fi\fi\fi\fi\fi\fi%
}%
\set@hetatom@sixv{#3}{0}{0}{7}{0}%    %atom 1--6%
\setsixringv{#4}{0}{0}{7}{0}%
\end{ShiftPicEnv}%
\sixfuseposv{#5}%for FuseWaring when nested
\iniatom\iniflag}%     %end of \sixfusev macro
\newif\if@sixfuseposv \@sixfuseposvfalse
\def\fuseAx{0}
\def\fuseAy{0}
\def\fuseBx{0}
\def\fuseBy{0}
\def\sixfuseposv#1{%
\global\@sixfuseposvfalse
{\resetbdsw%
\@tfor\memBer:=#1\do{%
\if\memBer a\relax
 \if@sixfuseposv
  \XyMTeXWarning{Double fused bond at bond `a'}%
 \else
  \gdef\fuseAx{0}\gdef\fuseAy{406}%
  \gdef\fuseBx{171}\gdef\fuseBy{303}%
  \global\@sixfuseposvtrue
 \fi
\fi%
\if\memBer A\relax
 \if@sixfuseposv
  \XyMTeXWarning{Double fused bond at bond `A'}%
 \else
  \gdef\fuseBx{0}\gdef\fuseBy{406}%
  \gdef\fuseAx{171}\gdef\fuseAy{303}%
  \global\@sixfuseposvtrue
 \fi
\fi%
\if\memBer b\relax
 \if@sixfuseposv
  \XyMTeXWarning{Double fused bond at bond `b'}%
 \else
  \gdef\fuseAx{171}\gdef\fuseAy{303}%
  \gdef\fuseBx{171}\gdef\fuseBy{103}%
  \global\@sixfuseposvtrue
 \fi
\fi%
\if\memBer B\relax
 \if@sixfuseposv
  \XyMTeXWarning{Double fused bonds at bond `B'}%
 \else
  \gdef\fuseBx{171}\gdef\fuseBy{303}%
  \gdef\fuseAx{171}\gdef\fuseAy{103}%
  \global\@sixfuseposvtrue
 \fi
\fi%
\if\memBer c\relax
 \if@sixfuseposv
  \XyMTeXWarning{Double fused bonds at bond `c'}%
 \else
  \gdef\fuseAx{171}\gdef\fuseAy{103}%
  \gdef\fuseBx{0}\gdef\fuseBy{0}%
  \global\@sixfuseposvtrue
 \fi
\fi%
\if\memBer C\relax
 \if@sixfuseposv
  \XyMTeXWarning{Double fused bonds at bond `C'}%
 \else
  \gdef\fuseBx{171}\gdef\fuseBy{103}%
  \gdef\fuseAx{0}\gdef\fuseAy{0}%
  \global\@sixfuseposvtrue
 \fi
\fi%
\if\memBer d\relax
 \if@sixfuseposv
  \XyMTeXWarning{Double fused bonds at bond `d'}%
 \else
  \gdef\fuseAx{0}\gdef\fuseAy{0}%
  \gdef\fuseBx{-171}\gdef\fuseBy{103}%
  \global\@sixfuseposvtrue
 \fi
\fi%
\if\memBer D\relax
 \if@sixfuseposv
  \XyMTeXWarning{Double fused bonds at bond `D'}%
 \else
  \gdef\fuseBx{0}\gdef\fuseBy{0}%
  \gdef\fuseAx{-171}\gdef\fuseAy{103}%
  \global\@sixfuseposvtrue
 \fi
\fi%
\if\memBer e\relax
 \if@sixfuseposv
  \XyMTeXWarning{Double fused bonds at bond `e'}%
 \else
  \gdef\fuseAx{-171}\gdef\fuseAy{103}%
  \gdef\fuseBx{-171}\gdef\fuseBy{303}%
  \global\@sixfuseposvtrue
 \fi
\fi%
\if\memBer E\relax
 \if@sixfuseposv
  \XyMTeXWarning{Double fused bonds at bond `E'}%
 \else
  \gdef\fuseBx{-171}\gdef\fuseBy{103}%
  \gdef\fuseAx{-171}\gdef\fuseAy{303}%
  \global\@sixfuseposvtrue
 \fi
\fi%
\if\memBer f\relax
 \if@sixfuseposv
  \XyMTeXWarning{Double fused bonds at bond `f'}%
 \else
  \gdef\fuseAx{-171}\gdef\fuseAy{303}%
  \gdef\fuseBx{0}\gdef\fuseBy{406}%
  \global\@sixfuseposvtrue
 \fi
\fi%
\if\memBer F\relax
 \if@sixfuseposv
  \XyMTeXWarning{Double fused bonds at bond `F'}%
 \else
  \gdef\fuseBx{-171}\gdef\fuseBy{303}%
  \gdef\fuseAx{0}\gdef\fuseAy{406}%
  \global\@sixfuseposvtrue
 \fi
\fi}}}% end of the macro \sixfuseposv
\def\@bond@fuse@omit#1#2{%
\ifx#1a\relax\gdef\@aaa{}\fi
\ifx#1b\relax\gdef\@bbb{}\fi
\ifx#1c\relax\gdef\@ccc{}\fi
\ifx#1d\relax\gdef\@ddd{}\fi
\ifx#1e\relax\gdef\@eee{}\fi
\ifx#1f\relax\gdef\@fff{}\fi
\ifx#1A\relax\gdef\@aaa{}\fi
\ifx#1B\relax\gdef\@bbb{}\fi
\ifx#1C\relax\gdef\@ccc{}\fi
\ifx#1D\relax\gdef\@ddd{}\fi
\ifx#1E\relax\gdef\@eee{}\fi
\ifx#1F\relax\gdef\@fff{}\fi
%%%%
\@tfor\memBer:=#2\do{%
\if\memBer a\relax\gdef\@aaa{}%
 \ifx#1a\relax
  \XyMTeXWarning{Double spec. of bond `a' in FUSE and OMIT}\fi
\fi%
\if\memBer A\relax\gdef\@aaa{}%
 \ifx#1a\relax
  \XyMTeXWarning{Double spec. of bond `a' in FUSE and OMIT}\fi
\fi%
\if\memBer b\relax\gdef\@bbb{}%
 \ifx#1b\relax
  \XyMTeXWarning{Double spec. of bond `b' in FUSE and OMIT}\fi
\fi%
\if\memBer B\relax\gdef\@bbb{}%
 \ifx#1b\relax
  \XyMTeXWarning{Double spec. of bond `b' in FUSE and OMIT}\fi
\fi%
\if\memBer c\relax\gdef\@ccc{}%
 \ifx#1c\relax
  \XyMTeXWarning{Double spec. of bond `c' in FUSE and OMIT}\fi
\fi%
\if\memBer C\relax\gdef\@ccc{}%
 \ifx#1c\relax
  \XyMTeXWarning{Double spec. of bond `c' in FUSE and OMIT}\fi
\fi%
\if\memBer d\relax\gdef\@ddd{}%
 \ifx#1d\relax
  \XyMTeXWarning{Double spec. of bond `d' in FUSE and OMIT}\fi
\fi%
\if\memBer D\relax\gdef\@ddd{}%
 \ifx#1d\relax
  \XyMTeXWarning{Double spec. of bond `d' in FUSE and OMIT}\fi
\fi%
\if\memBer e\relax\gdef\@eee{}%
 \ifx#1e\relax
  \XyMTeXWarning{Double spec. of bond `e' in FUSE and OMIT}\fi
\fi%
\if\memBer E\relax\gdef\@eee{}%
 \ifx#1e\relax
  \XyMTeXWarning{Double spec. of bond `e' in FUSE and OMIT}\fi
\fi%
\if\memBer f\relax\gdef\@fff{}%
 \ifx#1f\relax
  \XyMTeXWarning{Double spec. of bond `f' in FUSE and OMIT}\fi
\fi%
\if\memBer F\relax\gdef\@fff{}%
 \ifx#1f\relax
  \XyMTeXWarning{Double spec. of bond `f' in FUSE and OMIT}\fi
\fi%
}}%
\def\sixunitv{\@ifnextchar[{\@six@unitv}{\@six@unitv[@]}}
\def\@six@unitv[#1]#2#3#4{\sixfusev[#1]{#2}{#3}{#4}}
\def\sixfusevi{\@ifnextchar({\@six@fusevi(@}{\@six@fusevi(@)}}
\def\@six@fusevi(#1){\@ifnextchar[{\@six@@fusevi(#1)[@}%
{\@six@@fusevi(#1)[@]}}
\def\@six@@fusevi(#1)[#2]#3#4#5{\@ifnextchar[%
{\@sixfusevi(#1)[#2]{#3}{#4}{#5}[@}%
{\@sixfusevi(#1)[#2]{#3}{#4}{#5}[@]}}
\def\@sixfusevi(#1)[#2]#3#4#5[#6]{%
\iniatom\iniflag%initialize%
\test@vertix@sixv{#3}{d}{c}{b}{a}{f}{e}%
\sixfuseposvi{#5}%
\begin{ShiftPicEnv}[1](0,0)(-\yl@shiftii,-\yl@shifti)/%
(800,880)(-\shiftii,-\shifti){sixfusevi}%2002/4/30 by S. Fujita
{\resetbdsw%
\@bond@fuse@omit{#5}{#6}%
\set@skel@bond{#1}{a}{c}% bond between 1 and 2 \@aaa -&gt; \skbondc etc
\set@skel@bond{#1}{b}{b}% bond between 2 and 3 \@bbb -&gt; \skbondb etc
\set@skel@bond{#1}{c}{a}% bond between 3 and 4 \@ccc -&gt; \skbonda etc
\set@skel@bond{#1}{d}{f}% bond between 4 and 5 \@ddd -&gt; \skbondf etc
\set@skel@bond{#1}{e}{e}% bond between 5 and 6 \@eee -&gt; \skbonde etc
\set@skel@bond{#1}{f}{d}% bond between 6 and 1 \@fff -&gt; \skbondd etc
}%
\@tfor\member:=#2\do{%
\if\member r\relax%
\else\if\member l\relax%
\else\if\member a\relax%
  \bondc%
\else\if\member b\relax%
   \bondb%
\else\if\member c\relax%
   \bonda%
\else\if\member d\relax%
   \bondf%
\else\if\member e\relax%
   \bonde%
\else\if\member f\relax%
   \bondd%
\else\if\member A%left aromatic circle
  \Put@oCircle(0,203){240}%               %circle
\else \expandafter\twoCH@@R\member//%
     \set@fusionadd@sixvi
\fi\fi\fi\fi\fi\fi\fi\fi\fi%
}%
\set@hetatom@sixv{#3}{5}{0}{5}{-1}%    %atom 1--4%
\set@hetatom@sixv{#3}{11}{4}{7}{-1}%   %atom 5 and 6%
\setsixringv{#4}{5}{0}{5}{-1}%    %subst 1--4
\setsixringv{#4}{11}{4}{7}{-1}%   %subst 5 and 6
\end{ShiftPicEnv}%
\sixfuseposvi{#5}%%for FuseWaring when nested
\iniatom\iniflag}%     %end of \sixfusevi macro
\def\sixfuseposvi#1{%
\global\@sixfuseposvfalse
{\resetbdsw%
\@tfor\memBer:=#1\do{%
\if\memBer c\relax
 \if@sixfuseposv
  \XyMTeXWarning{Double fused bonds at bond `c'}%
 \else
  \gdef\fuseBx{0}\gdef\fuseBy{406}%
  \gdef\fuseAx{171}\gdef\fuseAy{303}%
  \global\@sixfuseposvtrue
 \fi
\fi%
\if\memBer C\relax
 \if@sixfuseposv
  \XyMTeXWarning{Double fused bonds at bond `C'}%
 \else
  \gdef\fuseAx{0}\gdef\fuseAy{406}%
  \gdef\fuseBx{171}\gdef\fuseBy{303}%
  \global\@sixfuseposvtrue
 \fi
\fi%
\if\memBer b\relax
 \if@sixfuseposv
  \XyMTeXWarning{Double fused bonds at bond `b'}%
 \else
  \gdef\fuseBx{171}\gdef\fuseBy{303}%
  \gdef\fuseAx{171}\gdef\fuseAy{103}%
  \global\@sixfuseposvtrue
 \fi
\fi%
\if\memBer B\relax
 \if@sixfuseposv
  \XyMTeXWarning{Double fused bonds at bond `B'}%
 \else
  \gdef\fuseAx{171}\gdef\fuseAy{303}%
  \gdef\fuseBx{171}\gdef\fuseBy{103}%
  \global\@sixfuseposvtrue
 \fi
\fi%
\if\memBer a\relax
 \if@sixfuseposv
  \XyMTeXWarning{Double fused bonds at bond `a'}%
 \else
  \gdef\fuseBx{171}\gdef\fuseBy{103}%
  \gdef\fuseAx{0}\gdef\fuseAy{0}%
  \global\@sixfuseposvtrue
 \fi
\fi%
\if\memBer A\relax
 \if@sixfuseposv
  \XyMTeXWarning{Double fused bonds at bond `A'}%
 \else
  \gdef\fuseAx{171}\gdef\fuseAy{103}%
  \gdef\fuseBx{0}\gdef\fuseBy{0}%
  \global\@sixfuseposvtrue
 \fi
\fi%
\if\memBer f\relax
 \if@sixfuseposv
  \XyMTeXWarning{Double fused bonds at bond `f'}%
 \else
  \gdef\fuseBx{0}\gdef\fuseBy{0}%
  \gdef\fuseAx{-171}\gdef\fuseAy{103}%
  \global\@sixfuseposvtrue
 \fi
\fi%
\if\memBer F\relax
 \if@sixfuseposv
  \XyMTeXWarning{Double fused bonds at bond `F'}%
 \else
  \gdef\fuseAx{0}\gdef\fuseAy{0}%
  \gdef\fuseBx{-171}\gdef\fuseBy{103}%
  \global\@sixfuseposvtrue
 \fi
\fi%
\if\memBer e\relax
 \if@sixfuseposv
  \XyMTeXWarning{Double fused bonds at bond `e'}%
 \else
  \gdef\fuseBx{-171}\gdef\fuseBy{103}%
  \gdef\fuseAx{-171}\gdef\fuseAy{303}%
  \global\@sixfuseposvtrue
 \fi
\fi%
\if\memBer E\relax
 \if@sixfuseposv
  \XyMTeXWarning{Double fused bonds at bond `E'}%
 \else
  \gdef\fuseAx{-171}\gdef\fuseAy{103}%
  \gdef\fuseBx{-171}\gdef\fuseBy{303}%
  \global\@sixfuseposvtrue
 \fi
\fi%
\if\memBer d\relax
 \if@sixfuseposv
  \XyMTeXWarning{Double fused bonds at bond `d'}%
 \else
  \gdef\fuseBx{-171}\gdef\fuseBy{303}%
  \gdef\fuseAx{0}\gdef\fuseAy{406}%
  \global\@sixfuseposvtrue
 \fi
\fi%
\if\memBer D\relax
 \if@sixfuseposv
  \XyMTeXWarning{Double fused bonds at bond `D'}%
 \else
  \gdef\fuseAx{-171}\gdef\fuseAy{303}%
  \gdef\fuseBx{0}\gdef\fuseBy{406}%
  \global\@sixfuseposvtrue
 \fi
\fi%
}}}% end of the macro \sixfuseposvi
\def\sixunitvi{\@ifnextchar[{\@six@unitvi}{\@six@unitvi[@]}}
\def\@six@unitvi[#1]#2#3#4{\sixfusevi[#1]{#2}{#3}{#4}}
\def\sixfuseh{\@ifnextchar({\@six@fuseh(@}{\@six@fuseh(@)}}
\def\@six@fuseh(#1){\@ifnextchar[{\@six@@fuseh(#1)[@}%
{\@six@@fuseh(#1)[@]}}
\def\@six@@fuseh(#1)[#2]#3#4#5{\@ifnextchar[%
{\@sixfuseh(#1)[#2]{#3}{#4}{#5}[@}%
{\@sixfuseh(#1)[#2]{#3}{#4}{#5}[@]}}
\def\@sixfuseh(#1)[#2]#3#4#5[#6]{%
\iniatom\iniflag%initialize%
\test@vrtx@sixh{#3}%
\sixfuseposh{#5}%
\begin{ShiftPicEnv}[1](0,0)(-\yl@shiftii,-\yl@shifti)/%
(800,880)(-240,-400){sixfuseh}%2002/4/30 by S. Fujita
{\resetbdsw%
\@bond@fuse@omit{#5}{#6}%
\set@skel@bondh{#1}{a}{a}% bond between 1 and 2 \@aaa -&gt; \hskbonda etc
\set@skel@bondh{#1}{b}{b}% bond between 2 and 3 \@bbb -&gt; \hskbondb etc
\set@skel@bondh{#1}{c}{c}% bond between 3 and 4 \@ccc -&gt; \hskbondc etc
\set@skel@bondh{#1}{d}{d}% bond between 4 and 5 \@ddd -&gt; \hskbondd etc
\set@skel@bondh{#1}{e}{e}% bond between 5 and 6 \@eee -&gt; \hskbonde etc
\set@skel@bondh{#1}{f}{f}% bond between 6 and 1 \@fff -&gt; \hskbondf etc
}%
\@tfor\member:=#2\do{%
\if\member r\relax%
\else \if\member l\relax%
\else \if\member a\relax%
  \hbonda%
\else \if\member b\relax%
   \hbondb%
\else \if\member c\relax%
   \hbondc%
\else \if\member d\relax%
   \hbondd%
\else \if\member e\relax%
   \hbonde%
\else \if\member f\relax%
   \hbondf%
\else \if\member A%left aromatic circle
  \Put@oCircle(203,0){240}%                %circle
\else \expandafter\twoCH@@R\member//%
     \set@fusionadd@sixh
\fi\fi\fi\fi\fi\fi\fi\fi\fi}%
\set@hetatom@sixh{#3}{0}{0}{7}{0}%    %atom 1--6%
\setsixringh{#4}{0}{0}{7}{0}%
\end{ShiftPicEnv}%
\sixfuseposh{#5}%%for FuseWaring when nested
\iniatom\iniflag}%     %end of \sixfuseh macro
\def\sixfuseposh#1{%
\global\@sixfuseposvfalse
{\resetbdsw%
\@tfor\memBer:=#1\do{%
\if\memBer a\relax
 \if@sixfuseposv
  \XyMTeXWarning{Double fused bond at bond `a'}%
 \else
  \gdef\fuseAx{0}\gdef\fuseAy{0}%
  \gdef\fuseBx{103}\gdef\fuseBy{171}%
  \global\@sixfuseposvtrue
 \fi
\fi%
\if\memBer A\relax
 \if@sixfuseposv
  \XyMTeXWarning{Double fused bond at bond `A'}%
 \else
  \gdef\fuseBx{0}\gdef\fuseBy{0}%
  \gdef\fuseAx{103}\gdef\fuseAy{171}%
  \global\@sixfuseposvtrue
 \fi
\fi%
\if\memBer b\relax
 \if@sixfuseposv
  \XyMTeXWarning{Double fused bond at bond `b'}%
 \else
  \gdef\fuseAx{103}\gdef\fuseAy{171}%
  \gdef\fuseBx{303}\gdef\fuseBy{171}%
  \global\@sixfuseposvtrue
 \fi
\fi%
\if\memBer B\relax
 \if@sixfuseposv
  \XyMTeXWarning{Double fused bonds at bond `B'}%
 \else
  \gdef\fuseBx{103}\gdef\fuseBy{171}%
  \gdef\fuseAx{303}\gdef\fuseAy{171}%
  \global\@sixfuseposvtrue
 \fi
\fi%
\if\memBer c\relax
 \if@sixfuseposv
  \XyMTeXWarning{Double fused bonds at bond `c'}%
 \else
  \gdef\fuseAx{303}\gdef\fuseAy{171}%
  \gdef\fuseBx{406}\gdef\fuseBy{0}%
  \global\@sixfuseposvtrue
 \fi
\fi%
\if\memBer C\relax
 \if@sixfuseposv
  \XyMTeXWarning{Double fused bonds at bond `C'}%
 \else
  \gdef\fuseBx{303}\gdef\fuseBy{171}%
  \gdef\fuseAx{406}\gdef\fuseAy{0}%
  \global\@sixfuseposvtrue
 \fi
\fi%
\if\memBer d\relax
 \if@sixfuseposv
  \XyMTeXWarning{Double fused bonds at bond `d'}%
 \else
  \gdef\fuseAx{406}\gdef\fuseAy{0}%
  \gdef\fuseBx{303}\gdef\fuseBy{-171}%
  \global\@sixfuseposvtrue
 \fi
\fi%
\if\memBer D\relax
 \if@sixfuseposv
  \XyMTeXWarning{Double fused bonds at bond `D'}%
 \else
  \gdef\fuseBx{406}\gdef\fuseBy{0}%
  \gdef\fuseAx{303}\gdef\fuseAy{-171}%
  \global\@sixfuseposvtrue
 \fi
\fi%
\if\memBer e\relax
 \if@sixfuseposv
  \XyMTeXWarning{Double fused bonds at bond `e'}%
 \else
  \gdef\fuseAx{303}\gdef\fuseAy{-171}%
  \gdef\fuseBx{103}\gdef\fuseBy{-171}%
  \global\@sixfuseposvtrue
 \fi
\fi%
\if\memBer E\relax
 \if@sixfuseposv
  \XyMTeXWarning{Double fused bonds at bond `E'}%
 \else
  \gdef\fuseBx{303}\gdef\fuseBy{-171}%
  \gdef\fuseAx{103}\gdef\fuseAy{-171}%
  \global\@sixfuseposvtrue
 \fi
\fi%
\if\memBer f\relax
 \if@sixfuseposv
  \XyMTeXWarning{Double fused bonds at bond `f'}%
 \else
  \gdef\fuseAx{103}\gdef\fuseAy{-171}%
  \gdef\fuseBx{0}\gdef\fuseBy{0}%
  \global\@sixfuseposvtrue
 \fi
\fi%
\if\memBer F\relax
 \if@sixfuseposv
  \XyMTeXWarning{Double fused bonds at bond `F'}%
 \else
  \gdef\fuseBx{103}\gdef\fuseBy{-171}%
  \gdef\fuseAx{0}\gdef\fuseAy{0}%
  \global\@sixfuseposvtrue
 \fi
\fi}}}% end of the macro \sixfuseposh
\def\sixunith{\@ifnextchar[{\@six@unith}{\@six@unith[@]}}
\def\@six@unith[#1]#2#3#4{\sixfuseh[#1]{#2}{#3}{#4}}
\def\sixfusehi{\@ifnextchar({\@six@fusehi(@}{\@six@fusehi(@)}}
\def\@six@fusehi(#1){\@ifnextchar[{\@six@@fusehi(#1)[@}%
{\@six@@fusehi(#1)[@]}}
\def\@six@@fusehi(#1)[#2]#3#4#5{\@ifnextchar[%
{\@sixfusehi(#1)[#2]{#3}{#4}{#5}[@}%
{\@sixfusehi(#1)[#2]{#3}{#4}{#5}[@]}}
\def\@sixfusehi(#1)[#2]#3#4#5[#6]{%
\iniatom\iniflag%initialize%
\test@vrtx@sixhi{#3}%
\sixfuseposhi{#5}%
\begin{ShiftPicEnv}[1](0,0)(-\yl@shiftii,-\yl@shifti)/%
(800,880)(-240,-400){sixfusehi}%2002/4/30 by S. Fujita
{\resetbdsw%
\@bond@fuse@omit{#5}{#6}%
\set@skel@bondh{#1}{a}{c}% bond between 1 and 2 \@aaa -&gt; \hskbondc etc
\set@skel@bondh{#1}{b}{b}% bond between 2 and 3 \@bbb -&gt; \hskbondb etc
\set@skel@bondh{#1}{c}{a}% bond between 3 and 4 \@ccc -&gt; \hskbonda etc
\set@skel@bondh{#1}{d}{f}% bond between 4 and 5 \@ddd -&gt; \hskbondf etc
\set@skel@bondh{#1}{e}{e}% bond between 5 and 6 \@eee -&gt; \hskbonde etc
\set@skel@bondh{#1}{f}{d}% bond between 6 and 1 \@fff -&gt; \hskbondd etc
}%
\@tfor\member:=#2\do{%
\if\member r\relax%
\else \if\member l\relax%
\else \if\member a\relax%
  \hbondc%
\else \if\member b\relax%
   \hbondb%
\else \if\member c\relax%
   \hbonda%
\else \if\member d\relax%
   \hbondf%
\else \if\member e\relax%
   \hbonde%
\else \if\member f\relax%
   \hbondd%
\else \if\member A%left aromatic circle
  \Put@oCircle(203,0){240}%                %circle
\else \expandafter\twoCH@@R\member//%
     \set@fusionadd@sixhi
\fi\fi\fi\fi\fi\fi\fi\fi\fi}%
\set@hetatom@sixh{#3}{5}{0}{5}{-1}%               %subst 1--4
\set@hetatom@sixh{#3}{11}{4}{7}{-1}%              %subst 5 and 6
\setsixringh{#4}{5}{0}{5}{-1}%               %subst 1--4
\setsixringh{#4}{11}{4}{7}{-1}%              %subst 5 and 6
\end{ShiftPicEnv}%
\sixfuseposhi{#5}%%for FuseWaring when nested
\iniatom\iniflag}%     %end of \sixfusehi macro
\def\sixfuseposhi#1{%
\global\@sixfuseposvfalse
{\resetbdsw%
\@tfor\memBer:=#1\do{%
\if\memBer C\relax
 \if@sixfuseposv
  \XyMTeXWarning{Double fused bond at bond `C'}%
 \else
  \gdef\fuseAx{0}\gdef\fuseAy{0}%
  \gdef\fuseBx{103}\gdef\fuseBy{171}%
  \global\@sixfuseposvtrue
 \fi
\fi%
\if\memBer c\relax
 \if@sixfuseposv
  \XyMTeXWarning{Double fused bond at bond `c'}%
 \else
  \gdef\fuseBx{0}\gdef\fuseBy{0}%
  \gdef\fuseAx{103}\gdef\fuseAy{171}%
  \global\@sixfuseposvtrue
 \fi
\fi%
\if\memBer B\relax
 \if@sixfuseposv
  \XyMTeXWarning{Double fused bond at bond `B'}%
 \else
  \gdef\fuseAx{103}\gdef\fuseAy{171}%
  \gdef\fuseBx{303}\gdef\fuseBy{171}%
  \global\@sixfuseposvtrue
 \fi
\fi%
\if\memBer b\relax
 \if@sixfuseposv
  \XyMTeXWarning{Double fused bonds at bond `b'}%
 \else
  \gdef\fuseBx{103}\gdef\fuseBy{171}%
  \gdef\fuseAx{303}\gdef\fuseAy{171}%
  \global\@sixfuseposvtrue
 \fi
\fi%
\if\memBer A\relax
 \if@sixfuseposv
  \XyMTeXWarning{Double fused bonds at bond `A'}%
 \else
  \gdef\fuseAx{303}\gdef\fuseAy{171}%
  \gdef\fuseBx{406}\gdef\fuseBy{0}%
  \global\@sixfuseposvtrue
 \fi
\fi%
\if\memBer a\relax
 \if@sixfuseposv
  \XyMTeXWarning{Double fused bonds at bond `a'}%
 \else
  \gdef\fuseBx{303}\gdef\fuseBy{171}%
  \gdef\fuseAx{406}\gdef\fuseAy{0}%
  \global\@sixfuseposvtrue
 \fi
\fi%
\if\memBer F\relax
 \if@sixfuseposv
  \XyMTeXWarning{Double fused bonds at bond `F'}%
 \else
  \gdef\fuseAx{406}\gdef\fuseAy{0}%
  \gdef\fuseBx{303}\gdef\fuseBy{-171}%
  \global\@sixfuseposvtrue
 \fi
\fi%
\if\memBer f\relax
 \if@sixfuseposv
  \XyMTeXWarning{Double fused bonds at bond `f'}%
 \else
  \gdef\fuseBx{406}\gdef\fuseBy{0}%
  \gdef\fuseAx{303}\gdef\fuseAy{-171}%
  \global\@sixfuseposvtrue
 \fi
\fi%
\if\memBer E\relax
 \if@sixfuseposv
  \XyMTeXWarning{Double fused bonds at bond `E'}%
 \else
  \gdef\fuseAx{303}\gdef\fuseAy{-171}%
  \gdef\fuseBx{103}\gdef\fuseBy{-171}%
  \global\@sixfuseposvtrue
 \fi
\fi%
\if\memBer e\relax
 \if@sixfuseposv
  \XyMTeXWarning{Double fused bonds at bond `e'}%
 \else
  \gdef\fuseBx{303}\gdef\fuseBy{-171}%
  \gdef\fuseAx{103}\gdef\fuseAy{-171}%
  \global\@sixfuseposvtrue
 \fi
\fi%
\if\memBer D\relax
 \if@sixfuseposv
  \XyMTeXWarning{Double fused bonds at bond `D'}%
 \else
  \gdef\fuseAx{103}\gdef\fuseAy{-171}%
  \gdef\fuseBx{0}\gdef\fuseBy{0}%
  \global\@sixfuseposvtrue
 \fi
\fi%
\if\memBer d\relax
 \if@sixfuseposv
  \XyMTeXWarning{Double fused bonds at bond `d'}%
 \else
  \gdef\fuseBx{103}\gdef\fuseBy{-171}%
  \gdef\fuseAx{0}\gdef\fuseAy{0}%
  \global\@sixfuseposvtrue
 \fi
\fi}}}% end of the macro \sixfuseposhi
\def\sixunithi{\@ifnextchar[{\@six@unithi}{\@six@unithi[@]}}
\def\@six@unithi[#1]#2#3#4{\sixfusehi[#1]{#2}{#3}{#4}}
\def\fivefusev{\@ifnextchar({\@five@fusev(@}{\@five@fusev(@)}}
\def\@five@fusev(#1){\@ifnextchar[{\@five@@fusev(#1)[@}%
{\@five@@fusev(#1)[@]}}
\def\@five@@fusev(#1)[#2]#3#4#5{\@ifnextchar[%
{\@fivefusev(#1)[#2]{#3}{#4}{#5}[@}%
{\@fivefusev(#1)[#2]{#3}{#4}{#5}[@]}}
\def\@fivefusev(#1)[#2]#3#4#5[#6]{%
\iniatom\iniflag%initialize
\test@vertix@sixv{#3}{d}{c}{b}{f}{e}{@}%
\fivefuseposv{#5}%
\begin{ShiftPicEnv}[1](0,0)(-\yl@shiftii,-\yl@shifti)/%
(800,880)(-\shiftii,-\shifti){fivefusev}%2002/4/30 by S. Fujita
{\resetbdsw%
\@bond@fuse@omit{#5}{#6}%
\set@skel@bond{#1}{a}{c}% bond between 1 and 2 \@aaa -&gt; \skbondc etc
\set@skel@bond{#1}{b}{b}% bond between 2 and 3 \@bbb -&gt; \skbondb etc
\set@skel@longbond{#1}{c}{skbondhoriz}%
      % bond between 3 and 4 \@ccc -&gt; \skbondhoriz etc
\set@skel@bond{#1}{d}{e}% bond between 4 and 5 \@ddd -&gt; \skbonde etc
\set@skel@bond{#1}{e}{d}% bond between 5 and 1 \@eee -&gt; \skbondd etc
}%
\@tfor\member:=#2\do{%
\if\member r%
\else\if\member a\relax%
   \bondc%
\else\if\member b\relax%
  \bondb%
\else\if\member c\relax%
   \bondhoriz%
\else\if\member d\relax%
  \bonde%
\else\if\member e\relax%
  \bondd%
\else
    \expandafter\twoCH@@R\member//%
    \set@fusionadd@fivev
\fi\fi\fi\fi\fi\fi}%
\set@hetatom@sixv{#3}{5}{1}{5}{-1}%   % for 1 to 3
\set@hetatom@sixv{#3}{10}{4}{7}{-1}%  % for 4 to 5
\setsixringv{#4}{5}{1}{5}{-1}%   % for 1 to 3
\setsixringv{#4}{10}{4}{7}{-1}%  % for 4 to 5
\end{ShiftPicEnv}%
{\let\XyMTeXWarning\@gobble
\fivefuseposv{#5}}%%for FuseWaring when nested
\iniatom\iniflag}%end of \fivefusev macro
\def\fivefuseposv#1{%
\global\@sixfuseposvfalse
{\resetbdsw%
\@tfor\memBer:=#1\do{%
\if\memBer c\relax
        \XyMTeXWarning{Not-used fusion at bond `c'}%
\fi
\if\memBer C\relax
        \XyMTeXWarning{Not-used fusion at bond `C'}%
\fi
\if\memBer b\relax
 \if@sixfuseposv
  \XyMTeXWarning{Double fused bonds at bond `b'}%
 \else
  \gdef\fuseBx{171}\gdef\fuseBy{303}%
  \gdef\fuseAx{171}\gdef\fuseAy{103}%
  \global\@sixfuseposvtrue
 \fi
\fi%
\if\memBer B\relax
 \if@sixfuseposv
  \XyMTeXWarning{Double fused bonds at bond `B'}%
 \else
  \gdef\fuseAx{171}\gdef\fuseAy{303}%
  \gdef\fuseBx{171}\gdef\fuseBy{103}%
  \global\@sixfuseposvtrue
 \fi
\fi%
\if\memBer a\relax
 \if@sixfuseposv
  \XyMTeXWarning{Double fused bonds at bond `a'}%
 \else
  \gdef\fuseBx{171}\gdef\fuseBy{103}%
  \gdef\fuseAx{0}\gdef\fuseAy{0}%
  \global\@sixfuseposvtrue
 \fi
\fi%
\if\memBer A\relax
 \if@sixfuseposv
  \XyMTeXWarning{Double fused bonds at bond `A'}%
 \else
  \gdef\fuseAx{171}\gdef\fuseAy{103}%
  \gdef\fuseBx{0}\gdef\fuseBy{0}%
  \global\@sixfuseposvtrue
 \fi
\fi%
\if\memBer e\relax
 \if@sixfuseposv
  \XyMTeXWarning{Double fused bonds at bond `f'}%
 \else
  \gdef\fuseBx{0}\gdef\fuseBy{0}%
  \gdef\fuseAx{-171}\gdef\fuseAy{103}%
  \global\@sixfuseposvtrue
 \fi
\fi%
\if\memBer E\relax
 \if@sixfuseposv
  \XyMTeXWarning{Double fused bonds at bond `F'}%
 \else
  \gdef\fuseAx{0}\gdef\fuseAy{0}%
  \gdef\fuseBx{-171}\gdef\fuseBy{103}%
  \global\@sixfuseposvtrue
 \fi
\fi%
\if\memBer d\relax
 \if@sixfuseposv
  \XyMTeXWarning{Double fused bonds at bond `e'}%
 \else
  \gdef\fuseBx{-171}\gdef\fuseBy{103}%
  \gdef\fuseAx{-171}\gdef\fuseAy{303}%
  \global\@sixfuseposvtrue
 \fi
\fi%
\if\memBer D\relax
 \if@sixfuseposv
  \XyMTeXWarning{Double fused bonds at bond `E'}%
 \else
  \gdef\fuseAx{-171}\gdef\fuseAy{103}%
  \gdef\fuseBx{-171}\gdef\fuseBy{303}%
  \global\@sixfuseposvtrue
 \fi
\fi%
}}}% end of the macro \fivefuseposv
\def\fiveunitv{\@ifnextchar[{\@five@unitv}{\@five@unitv[@]}}
\def\@five@unitv[#1]#2#3#4{\fivefusev[#1]{#2}{#3}{#4}}
\def\fivefusevi{\@ifnextchar({\@five@fusevi(@}{\@five@fusevi(@)}}
\def\@five@fusevi(#1){\@ifnextchar[{\@five@@fusevi(#1)[@}%
{\@five@@fusevi(#1)[@]}}
\def\@five@@fusevi(#1)[#2]#3#4#5{\@ifnextchar[%
{\@fivefusevi(#1)[#2]{#3}{#4}{#5}[@}%
{\@fivefusevi(#1)[#2]{#3}{#4}{#5}[@]}}
\def\@fivefusevi(#1)[#2]#3#4#5[#6]{%
\iniatom\iniflag%initialize
\test@vertix@sixv{#3}{a}{b}{c}{e}{f}{@}%
\fivefuseposvi{#5}%
\begin{ShiftPicEnv}[1](0,0)(-\yl@shiftii,-\yl@shifti)/%
(800,880)(-\shiftii,-\shifti){fivefusevi}%2002/4/30 by S. Fujita
{\resetbdsw%
\@bond@fuse@omit{#5}{#6}%
\set@skel@bond{#1}{a}{a}% bond between 1 and 2 \@aaa -&gt; \skbonda etc
\set@skel@bond{#1}{b}{b}% bond between 2 and 3 \@bbb -&gt; \skbondb etc
\set@skel@longbond{#1}{c}{skbondhorizi}%
      % bond between 3 and 4 \@ccc -&gt; \skbondhorizi etc
\set@skel@bond{#1}{d}{e}% bond between 4 and 5 \@ddd -&gt; \skbonde etc
\set@skel@bond{#1}{e}{f}% bond between 5 and 6 \@eee -&gt; \skbondf etc
}%
\@tfor\member:=#2\do{%
\if\member r%
\else\if\member a\relax%
   \bonda%
\else\if\member b\relax%
  \bondb%
\else\if\member c\relax%
   \bondhorizi%
\else\if\member d\relax%
  \bonde%
\else\if\member e\relax%
  \bondf%
\else
    \expandafter\twoCH@@R\member//%
    \set@fusionadd@fivevi
\fi\fi\fi\fi\fi\fi}%
\set@hetatom@sixv{#3}{0}{0}{4}{0}%  % for 1 to 3
\set@hetatom@sixv{#3}{1}{4}{7}{0}%  % for 4 to 5
\setsixringv{#4}{0}{0}{4}{0}%  % for 1 to 3
\setsixringv{#4}{1}{4}{7}{0}%  % for 4 to 5
\end{ShiftPicEnv}%
{\let\XyMTeXWarning\@gobble
\fivefuseposvi{#5}}%%for FuseWaring when nested
\iniatom\iniflag}%               %end of \fivefusevi macro
\def\fivefuseposvi#1{%
\global\@sixfuseposvfalse
{\resetbdsw%
\@tfor\memBer:=#1\do{%
\if\memBer a\relax
 \if@sixfuseposv
  \XyMTeXWarning{Double fused bond at bond `a'}%
 \else
  \gdef\fuseAx{0}\gdef\fuseAy{406}%
  \gdef\fuseBx{171}\gdef\fuseBy{303}%
  \global\@sixfuseposvtrue
 \fi
\fi%
\if\memBer A\relax
 \if@sixfuseposv
  \XyMTeXWarning{Double fused bond at bond `A'}%
 \else
  \gdef\fuseBx{0}\gdef\fuseBy{406}%
  \gdef\fuseAx{171}\gdef\fuseAy{303}%
  \global\@sixfuseposvtrue
 \fi
\fi%
\if\memBer b\relax
 \if@sixfuseposv
  \XyMTeXWarning{Double fused bond at bond `b'}%
 \else
  \gdef\fuseAx{171}\gdef\fuseAy{303}%
  \gdef\fuseBx{171}\gdef\fuseBy{103}%
  \global\@sixfuseposvtrue
 \fi
\fi%
\if\memBer B\relax
 \if@sixfuseposv
  \XyMTeXWarning{Double fused bonds at bond `B'}%
 \else
  \gdef\fuseBx{171}\gdef\fuseBy{303}%
  \gdef\fuseAx{171}\gdef\fuseAy{103}%
  \global\@sixfuseposvtrue
 \fi
\fi%
\if\memBer c\relax
        \XyMTeXWarning{Not-used fusion at bond `c'}%
\fi
\if\memBer C\relax
        \XyMTeXWarning{Not-used fusion at bond `C'}%
\fi
\if\memBer d\relax
 \if@sixfuseposv
  \XyMTeXWarning{Double fused bonds at bond `d'}%
 \else
  \gdef\fuseAx{-171}\gdef\fuseAy{103}%
  \gdef\fuseBx{-171}\gdef\fuseBy{303}%
  \global\@sixfuseposvtrue
 \fi
\fi%
\if\memBer D\relax
 \if@sixfuseposv
  \XyMTeXWarning{Double fused bonds at bond `D'}%
 \else
  \gdef\fuseBx{-171}\gdef\fuseBy{103}%
  \gdef\fuseAx{-171}\gdef\fuseAy{303}%
  \global\@sixfuseposvtrue
 \fi
\fi%
\if\memBer e\relax
 \if@sixfuseposv
  \XyMTeXWarning{Double fused bonds at bond `e'}%
 \else
  \gdef\fuseAx{-171}\gdef\fuseAy{303}%
  \gdef\fuseBx{0}\gdef\fuseBy{406}%
  \global\@sixfuseposvtrue
 \fi
\fi%
\if\memBer E\relax
 \if@sixfuseposv
  \XyMTeXWarning{Double fused bonds at bond `e'}%
 \else
  \gdef\fuseBx{-171}\gdef\fuseBy{303}%
  \gdef\fuseAx{0}\gdef\fuseAy{406}%
  \global\@sixfuseposvtrue
 \fi
\fi}}}% end of the macro \fivefuseposvi
\def\fiveunitvi{\@ifnextchar[{\@five@unitvi}{\@five@unitvi[@]}}
\def\@five@unitvi[#1]#2#3#4{\fivefusevi[#1]{#2}{#3}{#4}}
\def\fivefuseh{\@ifnextchar({\@five@fuseh(@}{\@five@fuseh(@)}}
\def\@five@fuseh(#1){\@ifnextchar[{\@five@@fuseh(#1)[@}%
{\@five@@fuseh(#1)[@]}}
\def\@five@@fuseh(#1)[#2]#3#4#5{\@ifnextchar[%
{\@fivefuseh(#1)[#2]{#3}{#4}{#5}[@}%
{\@fivefuseh(#1)[#2]{#3}{#4}{#5}[@]}}
\def\@fivefuseh(#1)[#2]#3#4#5[#6]{%
\iniatom\iniflag%initialize
\test@vertix@sixv{#3}{d}{c}{b}{f}{e}{@}%
\fivefuseposh{#5}%
\begin{ShiftPicEnv}[1](0,0)(-\yl@shiftii,-\yl@shifti)/%
(800,880)(-240,-400){fivefuseh}%2002/4/30 by S. Fujita
{\resetbdsw%
\@bond@fuse@omit{#5}{#6}%
\set@skel@bondh{#1}{a}{c}% bond between 1 and 2 \@aaa -&gt; \skbondc etc
\set@skel@bondh{#1}{b}{b}% bond between 2 and 3 \@bbb -&gt; \skbondb etc
\set@skel@longbond{#1}{c}{hskbondvert}%
      % bond between 3 and 4 \@ccc -&gt; \hskbondvert etc
\set@skel@bondh{#1}{d}{e}% bond between 4 and 5 \@ddd -&gt; \skbonde etc
\set@skel@bondh{#1}{e}{d}% bond between 5 and 6 \@eee -&gt; \skbondd etc
}%
\@tfor\member:=#2\do{%
\if\member r%
\else \if\member a\relax%
   \hbondc%
\else \if\member b\relax%
  \hbondb%
\else \if\member c\relax%
   \hbondvert%
\else \if\member d\relax%
  \hbonde%
\else \if\member e\relax%
  \hbondd%
\else \if\member A%left aromatic circle
  \Put@oCircle(233,0){180}%               %circle
\else
    \expandafter\twoCH@@R\member//%
    \set@fusionadd@fiveh
\fi\fi\fi\fi\fi\fi\fi}%
\set@hetatom@sixh{#3}{5}{1}{5}{-1}%   % for 1 to 3
\set@hetatom@sixh{#3}{10}{4}{7}{-1}%  % for 4 to 5
\setsixringh{#4}{5}{1}{5}{-1}%   % for 1 to 3
\setsixringh{#4}{10}{4}{7}{-1}%  % for 4 to 5
\end{ShiftPicEnv}%
{\let\XyMTeXWarning\@gobble
\fivefuseposh{#5}}%for FuseWaring when nested%
\iniatom\iniflag}%  %end of \fivefuseh macro
\def\fivefuseposh#1{%
\global\@sixfuseposvfalse
{\resetbdsw%
\@tfor\memBer:=#1\do{%
\if\memBer c\relax
        \XyMTeXWarning{Not-used fusion at bond `c'}%
\fi
\if\memBer C\relax
        \XyMTeXWarning{Not-used fusion at bond `C'}%
\fi
\if\memBer B\relax
 \if@sixfuseposv
  \XyMTeXWarning{Double fused bond at bond `B'}%
 \else
  \gdef\fuseAx{103}\gdef\fuseAy{171}%
  \gdef\fuseBx{303}\gdef\fuseBy{171}%
  \global\@sixfuseposvtrue
 \fi
\fi%
\if\memBer b\relax
 \if@sixfuseposv
  \XyMTeXWarning{Double fused bonds at bond `b'}%
 \else
  \gdef\fuseBx{103}\gdef\fuseBy{171}%
  \gdef\fuseAx{303}\gdef\fuseAy{171}%
  \global\@sixfuseposvtrue
 \fi
\fi%
\if\memBer A\relax
 \if@sixfuseposv
  \XyMTeXWarning{Double fused bonds at bond `A'}%
 \else
  \gdef\fuseAx{303}\gdef\fuseAy{171}%
  \gdef\fuseBx{406}\gdef\fuseBy{0}%
  \global\@sixfuseposvtrue
 \fi
\fi%
\if\memBer a\relax
 \if@sixfuseposv
  \XyMTeXWarning{Double fused bonds at bond `a'}%
 \else
  \gdef\fuseBx{303}\gdef\fuseBy{171}%
  \gdef\fuseAx{406}\gdef\fuseAy{0}%
  \global\@sixfuseposvtrue
 \fi
\fi%
\if\memBer E\relax
 \if@sixfuseposv
  \XyMTeXWarning{Double fused bonds at bond `E'}%
 \else
  \gdef\fuseAx{406}\gdef\fuseAy{0}%
  \gdef\fuseBx{303}\gdef\fuseBy{-171}%
  \global\@sixfuseposvtrue
 \fi
\fi%
\if\memBer e\relax
 \if@sixfuseposv
  \XyMTeXWarning{Double fused bonds at bond `e'}%
 \else
  \gdef\fuseBx{406}\gdef\fuseBy{0}%
  \gdef\fuseAx{303}\gdef\fuseAy{-171}%
  \global\@sixfuseposvtrue
 \fi
\fi%
\if\memBer D\relax
 \if@sixfuseposv
  \XyMTeXWarning{Double fused bonds at bond `D'}%
 \else
  \gdef\fuseAx{303}\gdef\fuseAy{-171}%
  \gdef\fuseBx{103}\gdef\fuseBy{-171}%
  \global\@sixfuseposvtrue
 \fi
\fi%
\if\memBer d\relax
 \if@sixfuseposv
  \XyMTeXWarning{Double fused bonds at bond `d'}%
 \else
  \gdef\fuseBx{303}\gdef\fuseBy{-171}%
  \gdef\fuseAx{103}\gdef\fuseAy{-171}%
  \global\@sixfuseposvtrue
 \fi
\fi%
}}}% end of the macro \fivefuseposh
\def\fiveunith{\@ifnextchar[{\@five@unith}{\@five@unith[@]}}
\def\@five@unith[#1]#2#3#4{\fivefuseh[#1]{#2}{#3}{#4}}
\def\fivefusehi{\@ifnextchar({\@five@fusehi(@}{\@five@fusehi(@)}}
\def\@five@fusehi(#1){\@ifnextchar[{\@five@@fusehi(#1)[@}%
{\@five@@fusehi(#1)[@]}}
\def\@five@@fusehi(#1)[#2]#3#4#5{\@ifnextchar[%
{\@fivefusehi(#1)[#2]{#3}{#4}{#5}[@}%
{\@fivefusehi(#1)[#2]{#3}{#4}{#5}[@]}}
\def\@fivefusehi(#1)[#2]#3#4#5[#6]{%
\iniatom\iniflag%initialize
\test@vertix@sixv{#3}{a}{b}{c}{e}{f}{@}%
\fivefuseposhi{#5}%
\begin{ShiftPicEnv}[1](0,0)(-\yl@shiftii,-\yl@shifti)/%
(800,880)(-240,-400){fivefusehi}%2002/4/30 by S. Fujita
{\resetbdsw%
\@bond@fuse@omit{#5}{#6}%
\set@skel@bondh{#1}{a}{a}% bond between 1 and 2 \@aaa -&gt; \hskbonda etc
\set@skel@bondh{#1}{b}{b}% bond between 2 and 3 \@bbb -&gt; \hskbondb etc
\set@skel@longbond{#1}{c}{hskbondverti}%
      % bond between 3 and 4 \@ccc -&gt; \hskbondverti etc
\set@skel@bondh{#1}{d}{e}% bond between 4 and 5 \@ddd -&gt; \hskbonde etc
\set@skel@bondh{#1}{e}{f}% bond between 5 and 6 \@eee -&gt; \hskbondf etc
}%
\@tfor\member:=#2\do{%
\if\member r%
\else \if\member a\relax%
   \hbonda%
\else \if\member b\relax%
  \hbondb%
\else \if\member c\relax%
   \hbondverti%
\else \if\member d\relax%
  \hbonde%
\else \if\member e\relax%
  \hbondf%
\else \if\member A%left aromatic circle
  \Put@oCircle(173,0){180}%                %circle
\else
    \expandafter\twoCH@@R\member//%
    \set@fusionadd@fivehi
\fi\fi\fi\fi\fi\fi\fi}%
\set@hetatom@sixh{#3}{0}{0}{4}{0}%  % for 1 to 3
\set@hetatom@sixh{#3}{1}{4}{7}{0}%  % for 4 to 5
\setsixringh{#4}{0}{0}{4}{0}%  % for 1 to 3
\setsixringh{#4}{1}{4}{7}{0}%  % for 4 to 5
\end{ShiftPicEnv}%
{\let\XyMTeXWarning\@gobble
\fivefuseposhi{#5}}%for FuseWaring when nested
\iniatom\iniflag}%      %end of \fivefusehi macro
\def\fivefuseposhi#1{%
\global\@sixfuseposvfalse
{\resetbdsw%
\@tfor\memBer:=#1\do{%
\if\memBer a\relax
 \if@sixfuseposv
  \XyMTeXWarning{Double fused bond at bond `a'}%
 \else
  \gdef\fuseAx{0}\gdef\fuseAy{0}%
  \gdef\fuseBx{103}\gdef\fuseBy{171}%
  \global\@sixfuseposvtrue
 \fi
\fi%
\if\memBer A\relax
 \if@sixfuseposv
  \XyMTeXWarning{Double fused bond at bond `A'}%
 \else
  \gdef\fuseBx{0}\gdef\fuseBy{0}%
  \gdef\fuseAx{103}\gdef\fuseAy{171}%
  \global\@sixfuseposvtrue
 \fi
\fi%
\if\memBer b\relax
 \if@sixfuseposv
  \XyMTeXWarning{Double fused bond at bond `b'}%
 \else
  \gdef\fuseAx{103}\gdef\fuseAy{171}%
  \gdef\fuseBx{303}\gdef\fuseBy{171}%
  \global\@sixfuseposvtrue
 \fi
\fi%
\if\memBer B\relax
 \if@sixfuseposv
  \XyMTeXWarning{Double fused bonds at bond `B'}%
 \else
  \gdef\fuseBx{103}\gdef\fuseBy{171}%
  \gdef\fuseAx{303}\gdef\fuseAy{171}%
  \global\@sixfuseposvtrue
 \fi
\fi%
\if\memBer c\relax
        \XyMTeXWarning{Not-used fusion at bond `c'}%
\fi
\if\memBer C\relax
        \XyMTeXWarning{Not-used fusion at bond `C'}%
\fi
\if\memBer d\relax
 \if@sixfuseposv
  \XyMTeXWarning{Double fused bonds at bond `d'}%
 \else
  \gdef\fuseAx{303}\gdef\fuseAy{-171}%
  \gdef\fuseBx{103}\gdef\fuseBy{-171}%
  \global\@sixfuseposvtrue
 \fi
\fi%
\if\memBer D\relax
 \if@sixfuseposv
  \XyMTeXWarning{Double fused bonds at bond `D'}%
 \else
  \gdef\fuseBx{303}\gdef\fuseBy{-171}%
  \gdef\fuseAx{103}\gdef\fuseAy{-171}%
  \global\@sixfuseposvtrue
 \fi
\fi%
\if\memBer e\relax
 \if@sixfuseposv
  \XyMTeXWarning{Double fused bonds at bond `e'}%
 \else
  \gdef\fuseAx{103}\gdef\fuseAy{-171}%
  \gdef\fuseBx{0}\gdef\fuseBy{0}%
  \global\@sixfuseposvtrue
 \fi
\fi%
\if\memBer E\relax
 \if@sixfuseposv
  \XyMTeXWarning{Double fused bonds at bond `E'}%
 \else
  \gdef\fuseBx{103}\gdef\fuseBy{-171}%
  \gdef\fuseAx{0}\gdef\fuseAy{0}%
  \global\@sixfuseposvtrue
 \fi
\fi}}}% end of the macro \fivefuseposhi
\def\fiveunithi{\@ifnextchar[{\@five@unithi}{\@five@unithi[@]}}
\def\@five@unithi[#1]#2#3#4{\fivefusehi[#1]{#2}{#3}{#4}}
\def\fourfuse{\@ifnextchar({\@four@fuse(@}{\@four@fuse(@)}}
\def\@four@fuse(#1){\@ifnextchar[{\@four@@fuse(#1)[@}%
{\@four@@fuse(#1)[@]}}
\def\@four@@fuse(#1)[#2]#3#4#5{\@ifnextchar[%
{\@fourfuse(#1)[#2]{#3}{#4}{#5}[@}%
{\@fourfuse(#1)[#2]{#3}{#4}{#5}[@]}}
\def\@fourfuse(#1)[#2]#3#4#5[#6]{%
\iniatom\iniflag%initialize
\test@vertix@sixv{#3}{e}{c}{b}{f}{@}{@}%
\fourfusepos{#5}%
\begin{ShiftPicEnv}[1](0,0)(-\yl@shiftii,-\yl@shifti)/%
(800,880)(-571,-137){fourfuse}%2002/4/30 by S. Fujita
(571,137)(171,-103)%
{\resetbdsw%
\@bond@fuse@omit{#5}{#6}%
\Put@Direct(0,0){\set@skel@longbond{#1}{a}{skbondshorizi}}%
       % bond between 1 and 2 \@aaa -&gt; \skbondshorizi etc
\Put@Direct(-142,0){\set@skel@bond{#1}{b}{b}}%
       % bond between 2 and 3 \@bbb -&gt; \skbondb etc
\Put@Direct(0,0){\set@skel@longbond{#1}{c}{skbondshoriz}}%
      % bond between 3 and 4 \@ccc -&gt; \skbondshoriz etc
\Put@Direct(0,0){\set@skel@bond{#1}{d}{e}}%
     % bond between 4 and 1 \@ddd -&gt; \skbonde etc
}%
\@tfor\member:=#2\do{%
\if\member r%
\else\if\member a\relax \Put@Direct(0,0){\bondshorizi}%
\else\if\member b\relax \Put@Direct(-142,0){\bondb}%
\else\if\member c\relax \Put@Direct(0,0){\bondshoriz}%
\else\if\member d\relax \Put@Direct(0,0){\bonde}%
\else
   \expandafter\twoCH@@R\member//%
    \set@fusionadd@fourv
\fi\fi\fi\fi\fi}%
\Put@Direct(-142,0){\set@hetatom@sixv{#3}{5}{1}{4}{-1}%
\storeclipinfo
}% for 2 to 3
\developclipinfo
\Put@Direct(0,0){\set@hetatom@sixv{#3}{4}{4}{6}{0}%
\storeclipinfo
}% for 1
\developclipinfo
\Put@Direct(0,0){\set@hetatom@sixv{#3}{2}{5}{7}{0}
\storeclipinfo
}% for 4
\developclipinfo
\Put@Direct(-142,0){\setsixringv{#4}{5}{1}{4}{-1}}% for 2 to 3
\Put@Direct(0,0){\setsixringv{#4}{4}{4}{6}{0}}% for 1
\Put@Direct(0,0){\setsixringv{#4}{2}{5}{7}{0}}% for 4
\end{ShiftPicEnv}%
\fourfusepos{#5}%%for FuseWaring when nested
\iniatom\iniflag
\global\@smallringswtrue%for permition at a center bond
}%     %end of \fourfuse macro
\def\fourfusepos#1{%
\global\@sixfuseposvfalse
{\resetbdsw%
\@tfor\memBer:=#1\do{%
\if\memBer a\relax
 \if@sixfuseposv
  \XyMTeXWarning{Double fused bond at bond `a'}%
 \else
  \gdef\fuseAx{-171}\gdef\fuseAy{103}%
  \gdef\fuseBx{29}\gdef\fuseBy{103}%
  \global\@sixfuseposvtrue
 \fi
\fi%
\if\memBer A\relax
 \if@sixfuseposv
  \XyMTeXWarning{Double fused bond at bond `A'}%
 \else
  \gdef\fuseBx{-171}\gdef\fuseBy{103}%
  \gdef\fuseAx{29}\gdef\fuseAy{103}%
  \global\@sixfuseposvtrue
 \fi
\fi%
\if\memBer b\relax
 \if@sixfuseposv
  \XyMTeXWarning{Double fused bond at bond `b'}%
 \else
  \gdef\fuseAx{29}\gdef\fuseAy{103}%
  \gdef\fuseBx{29}\gdef\fuseBy{303}%
  \global\@sixfuseposvtrue
 \fi
\fi%
\if\memBer B\relax
 \if@sixfuseposv
  \XyMTeXWarning{Double fused bonds at bond `B'}%
 \else
  \gdef\fuseBx{29}\gdef\fuseBy{103}%
  \gdef\fuseAx{29}\gdef\fuseAy{303}%
  \global\@sixfuseposvtrue
 \fi
\fi%
\if\memBer c\relax
 \if@sixfuseposv
  \XyMTeXWarning{Double fused bonds at bond `c'}%
 \else
  \gdef\fuseAx{29}\gdef\fuseAy{303}%
  \gdef\fuseBx{-171}\gdef\fuseBy{303}%
  \global\@sixfuseposvtrue
 \fi
\fi%
\if\memBer C\relax
 \if@sixfuseposv
  \XyMTeXWarning{Double fused bonds at bond `C'}%
 \else
  \gdef\fuseBx{29}\gdef\fuseBy{303}%
  \gdef\fuseAx{-171}\gdef\fuseAy{303}%
  \global\@sixfuseposvtrue
 \fi
\fi%
\if\memBer d\relax
 \if@sixfuseposv
  \XyMTeXWarning{Double fused bonds at bond `d'}%
 \else
  \gdef\fuseAx{-171}\gdef\fuseAy{303}%
  \gdef\fuseBx{-171}\gdef\fuseBy{103}%
  \global\@sixfuseposvtrue
 \fi
\fi%
\if\memBer D\relax
 \if@sixfuseposv
  \XyMTeXWarning{Double fused bonds at bond `D'}%
 \else
  \gdef\fuseBx{-171}\gdef\fuseBy{303}%
  \gdef\fuseAx{-171}\gdef\fuseAy{103}%
  \global\@sixfuseposvtrue
 \fi
\fi%
}}}% end of the macro \fourfusepos
\def\threefusev{\@ifnextchar({\@three@fusev(@}{\@three@fusev(@)}}
\def\@three@fusev(#1){\@ifnextchar[{\@three@@fusev(#1)[@}%
{\@three@@fusev(#1)[@]}}
\def\@three@@fusev(#1)[#2]#3#4#5{\@ifnextchar[%
{\@threefusev(#1)[#2]{#3}{#4}{#5}[@}%
{\@threefusev(#1)[#2]{#3}{#4}{#5}[@]}}
\def\@threefusev(#1)[#2]#3#4#5[#6]{%
\iniatom\iniflag%initialize
\test@vertix@sixv{#3}{d}{b}{f}{@}{@}{@}%
\threefuseposv{#5}%
\begin{ShiftPicEnv}[1](0,0)(-\yl@shiftii,-\yl@shifti)/%
(800,580)(-468,-240){threefusev}%2002/4/30 by S. Fujita
(468,240)(68,0)%
{\resetbdsw%
\@bond@fuse@omit{#5}{#6}%
\Put@Direct(-68,0){\set@skel@longbond{#1}{a}{skbondtria}}%
       % bond between 1 and 2 \@aaa -&gt; \skbondtria etc
\Put@Direct(0,-132){\set@skel@longbond{#1}{b}{skbondshoriz}}%
       % bond between 2 and 3 \@bbb -&gt; \skbondb etc
\Put@Direct(-68,0){\set@skel@longbond{#1}{c}{skbondtrib}}%
       % bond between 3 and 1 \@ccc -&gt; \skbondtria etc
}%
\@tfor\member:=#2\do{%
\if\member r\relax%
\else\if\member a\relax\Put@Direct(-68,0){\bondtria}%
\else\if\member b\relax\Put@Direct(0,-126){\bondshoriz}%
\else\if\member c\relax\Put@Direct(-68,0){\bondtrib}%
\else\if\member A\relax% aromatic circle
  \Put@oCircle(-70,108){100}%               %circle
\else
   \expandafter\twoCH@@R\member//%
    \set@fusionadd@threev
\fi\fi\fi\fi\fi%
}%
\Put@Direct(-68,0){\set@hetatom@sixv{#3}{3}{3}{5}{0}%
\storeclipinfo
}%subst 1
\developclipinfo
\Put@Direct(-142,-132){\set@hetatom@sixv{#3}{0}{1}{3}{0}%
\storeclipinfo
}%subst 2
\developclipinfo
\Put@Direct(0,-132){\set@hetatom@sixv{#3}{3}{5}{7}{0}%
\storeclipinfo
}%subst 3
\developclipinfo
\Put@Direct(-68,0){\setsixringv{#4}{3}{3}{5}{0}}%subst 1
\Put@Direct(-142,-132){\setsixringv{#4}{0}{1}{3}{0}}%subst 2
\Put@Direct(0,-132){\setsixringv{#4}{3}{5}{7}{0}}%subst 3
\end{ShiftPicEnv}%
\threefuseposv{#5}%%for FuseWaring when nested
\iniatom\iniflag
\global\@smallringswtrue%for permition at a center bond
}%     %end of \threefusev macro
\def\threefuseposv#1{%
\global\@sixfuseposvfalse
{\resetbdsw%
\@tfor\memBer:=#1\do{%
\if\memBer a\relax
 \if@sixfuseposv
  \XyMTeXWarning{Double fused bond at bond `a'}%
 \else
  \gdef\fuseAx{-68}\gdef\fuseAy{0}%
  \gdef\fuseBx{35}\gdef\fuseBy{171}%corrected
  \global\@sixfuseposvtrue
 \fi
\fi%
\if\memBer A\relax
 \if@sixfuseposv
  \XyMTeXWarning{Double fused bond at bond `A'}%
 \else
  \gdef\fuseBx{-74}\gdef\fuseBy{0}%corrected
  \gdef\fuseAx{29}\gdef\fuseAy{171}%
  \global\@sixfuseposvtrue
 \fi
\fi%
\if\memBer b\relax
 \if@sixfuseposv
  \XyMTeXWarning{Double fused bond at bond `b'}%
 \else
  \gdef\fuseAx{29}\gdef\fuseAy{171}%
  \gdef\fuseBx{-171}\gdef\fuseBy{171}%
  \global\@sixfuseposvtrue
 \fi
\fi%
\if\memBer B\relax
 \if@sixfuseposv
  \XyMTeXWarning{Double fused bonds at bond `B'}%
 \else
  \gdef\fuseBx{29}\gdef\fuseBy{171}%
  \gdef\fuseAx{-171}\gdef\fuseAy{171}%
  \global\@sixfuseposvtrue
 \fi
\fi%
\if\memBer c\relax
 \if@sixfuseposv
  \XyMTeXWarning{Double fused bonds at bond `c'}%
 \else
  \gdef\fuseAx{-171}\gdef\fuseAy{171}%
  \gdef\fuseBx{-68}\gdef\fuseBy{0}%
  \global\@sixfuseposvtrue
 \fi
\fi%
\if\memBer C\relax
 \if@sixfuseposv
  \XyMTeXWarning{Double fused bonds at bond `C'}%
 \else
  \gdef\fuseBx{-171}\gdef\fuseBy{171}%
  \gdef\fuseAx{-68}\gdef\fuseAy{0}%
  \global\@sixfuseposvtrue
 \fi
\fi%
}}}% end of the macro \threefuseposv
\def\threefusevi{\@ifnextchar({\@three@fusevi(@}{\@three@fusevi(@)}}
\def\@three@fusevi(#1){\@ifnextchar[{\@three@@fusevi(#1)[@}%
{\@three@@fusevi(#1)[@]}}
\def\@three@@fusevi(#1)[#2]#3#4#5{\@ifnextchar[%
{\@threefusevi(#1)[#2]{#3}{#4}{#5}[@}%
{\@threefusevi(#1)[#2]{#3}{#4}{#5}[@]}}
\def\@threefusevi(#1)[#2]#3#4#5[#6]{%
\iniatom\iniflag%initialize
\test@vertix@sixv{#3}{a}{c}{e}{@}{@}{@}%
\threefuseposvi{#5}%
\begin{ShiftPicEnv}[1](0,0)(-\yl@shiftii,-\yl@shifti)/%
(800,580)(-468,-340){threefusevi}%2002/4/30 by S. Fujita
(468,340)(68,0)%
{\resetbdsw%
\@bond@fuse@omit{#5}{#6}%
\Put@Direct(-68,0){\set@skel@longbond{#1}{a}{skBondtria}}%
       % bond between 1 and 2 \@aaa -&gt; \skBondtria etc
\Put@Direct(0,-275){\set@skel@longbond{#1}{b}{skbondshorizi}}%
       % bond between 2 and 3 \@bbb -&gt; \skbondb etc
\Put@Direct(-68,0){\set@skel@longbond{#1}{c}{skBondtrib}}%
       % bond between 3 and 1 \@ccc -&gt; \skBondtrib etc
}%
\@tfor\member:=#2\do{%
\if\member r\relax%
\else\if\member a\relax\Put@Direct(-68,0){\Bondtria}%
\else\if\member b\relax\Put@Direct(0,-274){\bondshorizi}%
\else\if\member c\relax\Put@Direct(-68,0){\Bondtrib}%
\else\if\member A\relax% aromatic circle
  \Put@oCircle(-70,-108){100}%               %circle
\else
   \expandafter\twoCH@@R\member//%
    \set@fusionadd@threevi
\fi\fi\fi\fi\fi%
}%
\Put@Direct(-68,-406){\set@hetatom@sixv{#3}{0}{0}{2}{0}%
\storeclipinfo
}%subst 1
\developclipinfo
\Put@Direct(0,-275){\set@hetatom@sixv{#3}{2}{4}{6}{0}%
\storeclipinfo
}%subst 3
\developclipinfo
\Put@Direct(-142,-275){\set@hetatom@sixv{#3}{1}{2}{4}{0}%
\storeclipinfo
}%subst 2
\developclipinfo
\Put@Direct(-68,-406){\setsixringv{#4}{0}{0}{2}{0}}%subst 1
\Put@Direct(0,-275){\setsixringv{#4}{2}{4}{6}{0}}%subst 3
\Put@Direct(-142,-275){\setsixringv{#4}{1}{2}{4}{0}}%subst 2
\end{ShiftPicEnv}%
\threefuseposvi{#5}%%for FuseWaring when nested
\iniatom\iniflag
\global\@smallringswtrue%for permition at a center bond
}%     %end of \threefusevi macro
\def\threefuseposvi#1{%
\global\@sixfuseposvfalse
{\resetbdsw%
\@tfor\memBer:=#1\do{%
\if\memBer a\relax
 \if@sixfuseposv
  \XyMTeXWarning{Double fused bond at bond `a'}%
 \else
  \gdef\fuseAx{-68}\gdef\fuseAy{0}%
  \gdef\fuseBx{35}\gdef\fuseBy{-171}%corrected
  \global\@sixfuseposvtrue
 \fi
\fi%
\if\memBer A\relax
 \if@sixfuseposv
  \XyMTeXWarning{Double fused bond at bond `A'}%
 \else
  \gdef\fuseBx{-74}\gdef\fuseBy{0}%corrected
  \gdef\fuseAx{29}\gdef\fuseAy{-171}%
  \global\@sixfuseposvtrue
 \fi
\fi%
\if\memBer b\relax
 \if@sixfuseposv
  \XyMTeXWarning{Double fused bond at bond `b'}%
 \else
  \gdef\fuseAx{29}\gdef\fuseAy{-171}%
  \gdef\fuseBx{-171}\gdef\fuseBy{-171}%
  \global\@sixfuseposvtrue
 \fi
\fi%
\if\memBer B\relax
 \if@sixfuseposv
  \XyMTeXWarning{Double fused bonds at bond `B'}%
 \else
  \gdef\fuseBx{29}\gdef\fuseBy{-171}%
  \gdef\fuseAx{-171}\gdef\fuseAy{-171}%
  \global\@sixfuseposvtrue
 \fi
\fi%
\if\memBer c\relax
 \if@sixfuseposv
  \XyMTeXWarning{Double fused bonds at bond `c'}%
 \else
  \gdef\fuseAx{-171}\gdef\fuseAy{-171}%
  \gdef\fuseBx{-68}\gdef\fuseBy{0}%
  \global\@sixfuseposvtrue
 \fi
\fi%
\if\memBer C\relax
 \if@sixfuseposv
  \XyMTeXWarning{Double fused bonds at bond `C'}%
 \else
  \gdef\fuseBx{-171}\gdef\fuseBy{-171}%
  \gdef\fuseAx{-68}\gdef\fuseAy{0}%
  \global\@sixfuseposvtrue
 \fi
\fi%
}}}% end of the macro \threefuseposvi

\def\threefuseh{\@ifnextchar({\@three@fuseh(@}{\@three@fuseh(@)}}
\def\@three@fuseh(#1){\@ifnextchar[{\@three@@fuseh(#1)[@}%
{\@three@@fuseh(#1)[@]}}
\def\@three@@fuseh(#1)[#2]#3#4#5{\@ifnextchar[%
{\@threefuseh(#1)[#2]{#3}{#4}{#5}[@}%
{\@threefuseh(#1)[#2]{#3}{#4}{#5}[@]}}
\def\@threefuseh(#1)[#2]#3#4#5[#6]{%
\iniatom\iniflag%initialize
\test@vertix@sixv{#3}{d}{f}{b}{@}{@}{@}%tentative use for six-h
\threefuseposh{#5}%
\begin{ShiftPicEnv}[1](0,0)(-\yl@shiftii,-\yl@shifti)/%
(580,700)(-200,-240){threefuseh}%2002/4/30 by S. Fujita
(200,200)%
\iniatom\iniflag%initialize
\test@vertix@sixv{#3}{c}{e}{a}{@}{@}{@}%
\test@vertix@sixv{#3}{b}{d}{f}{@}{@}{@}%
{\resetbdsw%
\@bond@fuse@omit{#5}{#6}%
\Put@Direct(0,0){\set@skel@bond{#1}{a}{c}}%
       % bond between 1 and 2 \@aaa -&gt; \skbondc etc
\Put@Direct(171,-103){\set@skel@bond{#1}{b}{e}}%
       % bond between 2 and 3 \@bbb -&gt; \skbonde etc
\Put@Direct(0,-200){\set@skel@bond{#1}{c}{a}}%
       % bond between 3 and 1 \@ccc -&gt; \skbonda etc
}%
\@tfor\member:=#2\do{%
\if\member r\relax%
\else\if\member a\relax\Put@Direct(0,0){\bondc}%
\else\if\member b\relax\Put@Direct(171,-103){\bonde}%
\else\if\member c\relax\Put@Direct(0,-200){\bonda}%
\else\if\member A\relax% aromatic circle
  \Put@oCircle(70,103){100}%               %circle
\else
   \expandafter\twoCH@@R\member//%
    \set@fusionadd@threeh
\fi\fi\fi\fi\fi%
}%
\iniflag
\Put@Direct(-215,103){\set@hetatom@sixh{#3}{3}{3}{5}{0}%
\storeclipinfo
}%subst 1 &lt;--six h 4
\developclipinfo
\Put@Direct(-103,29){\set@hetatom@sixh{#3}{-1}{1}{3}{0}%
\storeclipinfo
}%subst 3 &lt;--six h 2
\developclipinfo
\Put@Direct(-103,171){\set@hetatom@sixh{#3}{4}{5}{7}{0}%
\storeclipinfo
}%subst 2 &lt;--six h 6
\developclipinfo
\Put@Direct(-235,103){\setsixringh{#4}{3}{3}{5}{0}}%subst 1
\Put@Direct(-103,29){\setsixringh{#4}{-1}{1}{3}{0}}%subst 3
\Put@Direct(-103,171){\setsixringh{#4}{4}{5}{7}{0}}%subst 2
\end{ShiftPicEnv}%
\threefuseposh{#5}%%for FuseWaring when nested
\iniatom\iniflag
\global\@smallringswtrue%for permition at a center bond
}%     %end of \threefuseh macro
\def\threefuseposh#1{%
\global\@sixfuseposvfalse
{\resetbdsw%
\@tfor\memBer:=#1\do{%
\if\memBer a\relax
 \if@sixfuseposv
  \XyMTeXWarning{Double fused bond at bond `a'}%
 \else
  \gdef\fuseAx{171}\gdef\fuseAy{103}%corrected
  \gdef\fuseBx{0}\gdef\fuseBy{0}%
  \global\@sixfuseposvtrue
 \fi
\fi%
\if\memBer A\relax
 \if@sixfuseposv
  \XyMTeXWarning{Double fused bond at bond `A'}%
 \else
  \gdef\fuseBx{171}\gdef\fuseBy{103}%
  \gdef\fuseAx{0}\gdef\fuseAy{0}%
  \global\@sixfuseposvtrue
 \fi
\fi%
\if\memBer b\relax
 \if@sixfuseposv
  \XyMTeXWarning{Double fused bond at bond `b'}%
 \else
  \gdef\fuseAx{0}\gdef\fuseAy{0}%
  \gdef\fuseBx{0}\gdef\fuseBy{200}%
  \global\@sixfuseposvtrue
 \fi
\fi%
\if\memBer B\relax
 \if@sixfuseposv
  \XyMTeXWarning{Double fused bonds at bond `B'}%
 \else
  \gdef\fuseBx{0}\gdef\fuseBy{0}%
  \gdef\fuseAx{0}\gdef\fuseAy{200}%
  \global\@sixfuseposvtrue
 \fi
\fi%
\if\memBer c\relax
 \if@sixfuseposv
  \XyMTeXWarning{Double fused bonds at bond `c'}%
 \else
  \gdef\fuseAx{0}\gdef\fuseAy{200}%
  \gdef\fuseBx{171}\gdef\fuseBy{97}%corrected
  \global\@sixfuseposvtrue
 \fi
\fi%
\if\memBer C\relax
 \if@sixfuseposv
  \XyMTeXWarning{Double fused bonds at bond `C'}%
 \else
  \gdef\fuseBx{0}\gdef\fuseBy{206}%corrected
  \gdef\fuseAx{171}\gdef\fuseAy{103}%
  \global\@sixfuseposvtrue
 \fi
\fi%
}}}% end of the macro \threefuseposh
\def\threefusehi{\@ifnextchar({\@three@fusehi(@}{\@three@fusehi(@)}}
\def\@three@fusehi(#1){\@ifnextchar[{\@three@@fusehi(#1)[@}%
{\@three@@fusehi(#1)[@]}}
\def\@three@@fusehi(#1)[#2]#3#4#5{\@ifnextchar[%
{\@threefusehi(#1)[#2]{#3}{#4}{#5}[@}%
{\@threefusehi(#1)[#2]{#3}{#4}{#5}[@]}}
\def\@threefusehi(#1)[#2]#3#4#5[#6]{%
\iniatom\iniflag%initialize
\test@vertix@sixv{#3}{a}{e}{c}{@}{@}{@}%tentative use for six-h
\threefuseposhi{#5}%
\begin{ShiftPicEnv}[1](0,0)(-\yl@shiftii,-\yl@shifti)/%
(580,700)(-400,-240){threefusehi}%2002/4/30 by S. Fujita
(400,200)%
\iniatom\iniflag%initialize
\test@vertix@sixv{#3}{e}{c}{a}{@}{@}{@}%
\test@vertix@sixv{#3}{f}{d}{b}{@}{@}{@}%
{\resetbdsw%
\@bond@fuse@omit{#5}{#6}%
\Put@Direct(0,0){\set@skel@bond{#1}{a}{d}}%
       % bond between 1 and 2 \@aaa -&gt; \skbondd etc
\Put@Direct(-171,-103){\set@skel@bond{#1}{b}{b}}%
       % bond between 2 and 3 \@bbb -&gt; \skbondb etc
\Put@Direct(0,-200){\set@skel@bond{#1}{c}{f}}%
       % bond between 3 and 1 \@ccc -&gt; \skbondf etc
}%
\@tfor\member:=#2\do{%
\if\member r\relax%
\else\if\member a\relax\Put@Direct(0,0){\bondd}%
\else\if\member b\relax\Put@Direct(-171,-103){\bondb}%
\else\if\member c\relax\Put@Direct(0,-200){\bondf}%
\else\if\member A\relax% aromatic circle
  \Put@oCircle(70,103){100}%               %circle
\else
   \expandafter\twoCH@@R\member//%
    \set@fusionadd@threehi
\fi\fi\fi\fi\fi%
}%
\iniflag
\Put@Direct(-171,103){\set@hetatom@sixh{#3}{0}{0}{2}{0}%
\storeclipinfo
}%subst 1 &lt;--six h 1
\developclipinfo
\Put@Direct(-303,29){\set@hetatom@sixh{#3}{0}{2}{4}{0}%
\storeclipinfo
}%subst 3 &lt;--six h 3
\developclipinfo
\Put@Direct(-303,171){\set@hetatom@sixh{#3}{3}{4}{6}{0}%
\storeclipinfo
}%subst 2 &lt;--six h 5
\developclipinfo
\Put@Direct(-171,103){\setsixringh{#4}{0}{0}{2}{0}}%subst 1
\Put@Direct(-303,29){\setsixringh{#4}{0}{2}{4}{0}}%subst 3
\Put@Direct(-303,171){\setsixringh{#4}{3}{4}{6}{0}}%subst 2
\end{ShiftPicEnv}%
\threefuseposhi{#5}%%for FuseWaring when nested
\iniatom\iniflag
\global\@smallringswtrue%for permition at a center bond
}%     %end of \threefusehi macro
\def\threefuseposhi#1{%
\global\@sixfuseposvfalse
{\resetbdsw%
\@tfor\memBer:=#1\do{%
\if\memBer a\relax
 \if@sixfuseposv
  \XyMTeXWarning{Double fused bond at bond `a'}%
 \else
  \gdef\fuseAx{-171}\gdef\fuseAy{103}%corrected
  \gdef\fuseBx{0}\gdef\fuseBy{0}%
  \global\@sixfuseposvtrue
 \fi
\fi%
\if\memBer A\relax
 \if@sixfuseposv
  \XyMTeXWarning{Double fused bond at bond `A'}%
 \else
  \gdef\fuseBx{-171}\gdef\fuseBy{103}%
  \gdef\fuseAx{0}\gdef\fuseAy{0}%
  \global\@sixfuseposvtrue
 \fi
\fi%
\if\memBer b\relax
 \if@sixfuseposv
  \XyMTeXWarning{Double fused bond at bond `b'}%
 \else
  \gdef\fuseAx{0}\gdef\fuseAy{0}%
  \gdef\fuseBx{0}\gdef\fuseBy{200}%
  \global\@sixfuseposvtrue
 \fi
\fi%
\if\memBer B\relax
 \if@sixfuseposv
  \XyMTeXWarning{Double fused bonds at bond `B'}%
 \else
  \gdef\fuseBx{0}\gdef\fuseBy{0}%
  \gdef\fuseAx{0}\gdef\fuseAy{200}%
  \global\@sixfuseposvtrue
 \fi
\fi%
\if\memBer c\relax
 \if@sixfuseposv
  \XyMTeXWarning{Double fused bonds at bond `c'}%
 \else
  \gdef\fuseAx{0}\gdef\fuseAy{200}%
  \gdef\fuseBx{-171}\gdef\fuseBy{97}%corrected
  \global\@sixfuseposvtrue
 \fi
\fi%
\if\memBer C\relax
 \if@sixfuseposv
  \XyMTeXWarning{Double fused bonds at bond `C'}%
 \else
  \gdef\fuseBx{0}\gdef\fuseBy{206}%corrected
  \gdef\fuseAx{-171}\gdef\fuseAy{103}%
  \global\@sixfuseposvtrue
 \fi
\fi%
}}}% end of the macro \threefuseposhi
\endinput
%%
%% End of file `fusering.sty'.
</pre></body></html>