summaryrefslogtreecommitdiff
path: root/macros/latex/contrib/xymtex/base/fusering.sty
diff options
context:
space:
mode:
Diffstat (limited to 'macros/latex/contrib/xymtex/base/fusering.sty')
-rw-r--r--macros/latex/contrib/xymtex/base/fusering.sty1910
1 files changed, 1910 insertions, 0 deletions
diff --git a/macros/latex/contrib/xymtex/base/fusering.sty b/macros/latex/contrib/xymtex/base/fusering.sty
new file mode 100644
index 0000000000..c672fd53a5
--- /dev/null
+++ b/macros/latex/contrib/xymtex/base/fusering.sty
@@ -0,0 +1,1910 @@
+%%
+%% 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 \&
+%% 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.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) <\versi@ndate>%
+\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 -> \skbonda etc
+\set@skel@bond{#1}{b}{b}% bond between 2 and 3 \@bbb -> \skbondb etc
+\set@skel@bond{#1}{c}{c}% bond between 3 and 4 \@ccc -> \skbondc etc
+\set@skel@bond{#1}{d}{d}% bond between 4 and 5 \@ddd -> \skbondd etc
+\set@skel@bond{#1}{e}{e}% bond between 5 and 6 \@eee -> \skbonde etc
+\set@skel@bond{#1}{f}{f}% bond between 6 and 1 \@fff -> \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 -> \skbondc etc
+\set@skel@bond{#1}{b}{b}% bond between 2 and 3 \@bbb -> \skbondb etc
+\set@skel@bond{#1}{c}{a}% bond between 3 and 4 \@ccc -> \skbonda etc
+\set@skel@bond{#1}{d}{f}% bond between 4 and 5 \@ddd -> \skbondf etc
+\set@skel@bond{#1}{e}{e}% bond between 5 and 6 \@eee -> \skbonde etc
+\set@skel@bond{#1}{f}{d}% bond between 6 and 1 \@fff -> \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 -> \hskbonda etc
+\set@skel@bondh{#1}{b}{b}% bond between 2 and 3 \@bbb -> \hskbondb etc
+\set@skel@bondh{#1}{c}{c}% bond between 3 and 4 \@ccc -> \hskbondc etc
+\set@skel@bondh{#1}{d}{d}% bond between 4 and 5 \@ddd -> \hskbondd etc
+\set@skel@bondh{#1}{e}{e}% bond between 5 and 6 \@eee -> \hskbonde etc
+\set@skel@bondh{#1}{f}{f}% bond between 6 and 1 \@fff -> \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 -> \hskbondc etc
+\set@skel@bondh{#1}{b}{b}% bond between 2 and 3 \@bbb -> \hskbondb etc
+\set@skel@bondh{#1}{c}{a}% bond between 3 and 4 \@ccc -> \hskbonda etc
+\set@skel@bondh{#1}{d}{f}% bond between 4 and 5 \@ddd -> \hskbondf etc
+\set@skel@bondh{#1}{e}{e}% bond between 5 and 6 \@eee -> \hskbonde etc
+\set@skel@bondh{#1}{f}{d}% bond between 6 and 1 \@fff -> \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 -> \skbondc etc
+\set@skel@bond{#1}{b}{b}% bond between 2 and 3 \@bbb -> \skbondb etc
+\set@skel@longbond{#1}{c}{skbondhoriz}%
+ % bond between 3 and 4 \@ccc -> \skbondhoriz etc
+\set@skel@bond{#1}{d}{e}% bond between 4 and 5 \@ddd -> \skbonde etc
+\set@skel@bond{#1}{e}{d}% bond between 5 and 1 \@eee -> \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 -> \skbonda etc
+\set@skel@bond{#1}{b}{b}% bond between 2 and 3 \@bbb -> \skbondb etc
+\set@skel@longbond{#1}{c}{skbondhorizi}%
+ % bond between 3 and 4 \@ccc -> \skbondhorizi etc
+\set@skel@bond{#1}{d}{e}% bond between 4 and 5 \@ddd -> \skbonde etc
+\set@skel@bond{#1}{e}{f}% bond between 5 and 6 \@eee -> \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 -> \skbondc etc
+\set@skel@bondh{#1}{b}{b}% bond between 2 and 3 \@bbb -> \skbondb etc
+\set@skel@longbond{#1}{c}{hskbondvert}%
+ % bond between 3 and 4 \@ccc -> \hskbondvert etc
+\set@skel@bondh{#1}{d}{e}% bond between 4 and 5 \@ddd -> \skbonde etc
+\set@skel@bondh{#1}{e}{d}% bond between 5 and 6 \@eee -> \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 -> \hskbonda etc
+\set@skel@bondh{#1}{b}{b}% bond between 2 and 3 \@bbb -> \hskbondb etc
+\set@skel@longbond{#1}{c}{hskbondverti}%
+ % bond between 3 and 4 \@ccc -> \hskbondverti etc
+\set@skel@bondh{#1}{d}{e}% bond between 4 and 5 \@ddd -> \hskbonde etc
+\set@skel@bondh{#1}{e}{f}% bond between 5 and 6 \@eee -> \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 -> \skbondshorizi etc
+\Put@Direct(-142,0){\set@skel@bond{#1}{b}{b}}%
+ % bond between 2 and 3 \@bbb -> \skbondb etc
+\Put@Direct(0,0){\set@skel@longbond{#1}{c}{skbondshoriz}}%
+ % bond between 3 and 4 \@ccc -> \skbondshoriz etc
+\Put@Direct(0,0){\set@skel@bond{#1}{d}{e}}%
+ % bond between 4 and 1 \@ddd -> \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 -> \skbondtria etc
+\Put@Direct(0,-132){\set@skel@longbond{#1}{b}{skbondshoriz}}%
+ % bond between 2 and 3 \@bbb -> \skbondb etc
+\Put@Direct(-68,0){\set@skel@longbond{#1}{c}{skbondtrib}}%
+ % bond between 3 and 1 \@ccc -> \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 -> \skBondtria etc
+\Put@Direct(0,-275){\set@skel@longbond{#1}{b}{skbondshorizi}}%
+ % bond between 2 and 3 \@bbb -> \skbondb etc
+\Put@Direct(-68,0){\set@skel@longbond{#1}{c}{skBondtrib}}%
+ % bond between 3 and 1 \@ccc -> \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 -> \skbondc etc
+\Put@Direct(171,-103){\set@skel@bond{#1}{b}{e}}%
+ % bond between 2 and 3 \@bbb -> \skbonde etc
+\Put@Direct(0,-200){\set@skel@bond{#1}{c}{a}}%
+ % bond between 3 and 1 \@ccc -> \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 <--six h 4
+\developclipinfo
+\Put@Direct(-103,29){\set@hetatom@sixh{#3}{-1}{1}{3}{0}%
+\storeclipinfo
+}%subst 3 <--six h 2
+\developclipinfo
+\Put@Direct(-103,171){\set@hetatom@sixh{#3}{4}{5}{7}{0}%
+\storeclipinfo
+}%subst 2 <--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 -> \skbondd etc
+\Put@Direct(-171,-103){\set@skel@bond{#1}{b}{b}}%
+ % bond between 2 and 3 \@bbb -> \skbondb etc
+\Put@Direct(0,-200){\set@skel@bond{#1}{c}{f}}%
+ % bond between 3 and 1 \@ccc -> \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 <--six h 1
+\developclipinfo
+\Put@Direct(-303,29){\set@hetatom@sixh{#3}{0}{2}{4}{0}%
+\storeclipinfo
+}%subst 3 <--six h 3
+\developclipinfo
+\Put@Direct(-303,171){\set@hetatom@sixh{#3}{3}{4}{6}{0}%
+\storeclipinfo
+}%subst 2 <--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'.