summaryrefslogtreecommitdiff
path: root/Master/texmf-dist/tex/latex/xymtex/fusering.sty
diff options
context:
space:
mode:
Diffstat (limited to 'Master/texmf-dist/tex/latex/xymtex/fusering.sty')
-rw-r--r--Master/texmf-dist/tex/latex/xymtex/fusering.sty2013
1 files changed, 0 insertions, 2013 deletions
diff --git a/Master/texmf-dist/tex/latex/xymtex/fusering.sty b/Master/texmf-dist/tex/latex/xymtex/fusering.sty
deleted file mode 100644
index 07888554b9a..00000000000
--- a/Master/texmf-dist/tex/latex/xymtex/fusering.sty
+++ /dev/null
@@ -1,2013 +0,0 @@
-%%
-%% 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 by Shinsaku Fujita
-%%
-%% This file is part of the XyMTeX system.
-%% =======================================
-%%
-%% Version 1.02 Released on October 31, 1998 (private version)
-%% Version 2.00 Released on December 25, 1998
-%%
-%% Copyright (C) 1998 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.
-%%
-%% Copying of this file is authorized only if either
-%%
-%% (1) you make absolutely no changes to your copy, including name and
-%% directory name
-%% (2) if you do make changes,
-%% (a) you name it something other than the names included in the
-%% ``xymtex'' directory and
-%% (b) you acknowledge the original name.
-%% This restriction ensures that all standard styles are identical.
-%%
-%% =======================================
-%%
-%% This file contains several codes modified from latex.tex (LaTeX2.09)
-%% and from latex.ltx (a LaTeX2e), the reused parts of which are subject to
-%% Copyright 1994 the LaTeX3 project and the individual authors (For further
-%% copyright information see the file legal.txt of the LaTeX2e standard
-%% distribution, and any other copyright indicated in this file.)
-%%
-%% 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 2.00}
-\typeout{ -- Released December 25, 1998 by Shinsaku Fujita}
-\def\j@urnalname{methylen}
-\def\versi@ndate{December 25, 1998}
-\def\versi@nno{ver2.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}%
-\if@sixfuseposv
- \yl@shiftii=-\fuseAx
- \yl@shifti=-\fuseAy
- \advance\yl@shiftii\yl@xdiff
- \advance\yl@shifti\yl@ydiff
- \begin{picture}(0,0)(-\yl@shiftii,-\yl@shifti)
- \reset@yl@xydiff%1999/1/6 by S. Fujita
-\else
- \begin{picture}(800,880)(-\shiftii,-\shifti)%
- \iforigpt \put(-\shiftii,-\shifti){\circle*{50}}%
- \put(-\noshift,-\noshift){\circle{50}}%
- \typeout{command `sixfusev' origin: %
- (\the\noshift,\the\noshift) ---> (\the\shiftii,\the\shifti)}\fi%
-\fi
-{%
-\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%left aromatic circle
- \put(0,203){\circle{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{picture}%
-\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\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}%
-\if@sixfuseposv
- \yl@shiftii=-\fuseAx
- \yl@shifti=-\fuseAy
- \advance\yl@shiftii\yl@xdiff
- \advance\yl@shifti\yl@ydiff
- \begin{picture}(0,0)(-\yl@shiftii,-\yl@shifti)
- \reset@yl@xydiff%1999/1/6 by S. Fujita
-\else
- \begin{picture}(800,880)(-\shiftii,-\shifti)%
- \iforigpt \put(-\shiftii,-\shifti){\circle*{50}}%
- \put(-\noshift,-\noshift){\circle{50}}%
- \typeout{command `sixfusev' origin: %
- (\the\noshift,\the\noshift) ---> (\the\shiftii,\the\shifti)}\fi%
-\fi
-{\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(0,203){\circle{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{picture}%
-\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\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}%
-\if@sixfuseposv
- \yl@shiftii=-\fuseAx
- \yl@shifti=-\fuseAy
- \advance\yl@shiftii\yl@xdiff
- \advance\yl@shifti\yl@ydiff
- \begin{picture}(0,0)(-\yl@shiftii,-\yl@shifti)
- \reset@yl@xydiff%1999/1/6 by S. Fujita
-\else
- \begin{picture}(800,880)(-240,-400)%
- \iforigpt \put(-\shifti,-\shiftii){\circle*{50}}%
- \put(-\noshift,-\noshift){\circle{50}}%
- \typeout{command `sixunith' origin: %
- (\the\noshift,\the\noshift) ---> (\the\shifti,\the\shiftii)}\fi%
-\fi
-{\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(203,0){\circle{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{picture}%
-\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\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}%
-\if@sixfuseposv
- \yl@shiftii=-\fuseAx
- \yl@shifti=-\fuseAy
- \advance\yl@shiftii\yl@xdiff
- \advance\yl@shifti\yl@ydiff
- \begin{picture}(0,0)(-\yl@shiftii,-\yl@shifti)
- \reset@yl@xydiff%1999/1/6 by S. Fujita
-\else
- \begin{picture}(800,880)(-240,-400)%
- \iforigpt \put(-\shifti,-\shiftii){\circle*{50}}%
- \put(-\noshift,-\noshift){\circle{50}}%
- \typeout{command `sixunith' origin: %
- (\the\noshift,\the\noshift) ---> (\the\shifti,\the\shiftii)}\fi%
-\fi
-{\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(203,0){\circle{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{picture}%
-\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\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}%
-\if@sixfuseposv
- \yl@shiftii=-\fuseAx
- \yl@shifti=-\fuseAy
- \advance\yl@shiftii\yl@xdiff
- \advance\yl@shifti\yl@ydiff
- \begin{picture}(0,0)(-\yl@shiftii,-\yl@shifti)
- \reset@yl@xydiff%1999/1/6 by S. Fujita
-\else
- \begin{picture}(800,880)(-\shiftii,-\shifti)%
- \iforigpt \put(-\shiftii,-\shifti){\circle*{50}}%
- \put(-\noshift,-\noshift){\circle{50}}%
- \typeout{command `fivefusev' origin: %
- (\the\noshift,\the\noshift) ---> (\the\shiftii,\the\shifti)}\fi%
-\fi
-{\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{picture}%
-{\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\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}%
-\if@sixfuseposv
- \yl@shiftii=-\fuseAx
- \yl@shifti=-\fuseAy
- \advance\yl@shiftii\yl@xdiff
- \advance\yl@shifti\yl@ydiff
- \begin{picture}(0,0)(-\yl@shiftii,-\yl@shifti)
- \reset@yl@xydiff%1999/1/6 by S. Fujita
-\else
- \begin{picture}(800,880)(-\shiftii,-\shifti)%
- \iforigpt \put(-\shiftii,-\shifti){\circle*{50}}%
- \put(-\noshift,-\noshift){\circle{50}}%
- \typeout{command `fivefusevi' origin: %
- (\the\noshift,\the\noshift) ---> (\the\shiftii,\the\shifti)}\fi%
-\fi
-{\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{picture}%
-{\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\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}%
-\if@sixfuseposv
- \yl@shiftii=-\fuseAx
- \yl@shifti=-\fuseAy
- \advance\yl@shiftii\yl@xdiff
- \advance\yl@shifti\yl@ydiff
- \begin{picture}(0,0)(-\yl@shiftii,-\yl@shifti)
- \reset@yl@xydiff%1999/1/6 by S. Fujita
-\else
- \begin{picture}(800,880)(-240,-400)%
- \iforigpt \put(-\shifti,-\shiftii){\circle*{50}}%
- \put(-\noshift,-\noshift){\circle{50}}%
- \typeout{command `fivefuseh' origin: %
- (\the\noshift,\the\noshift) ---> (\the\shifti,\the\shiftii)}\fi%
-\fi
-{\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(233,0){\circle{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{picture}%
-{\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\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}%
-\if@sixfuseposv
- \yl@shiftii=-\fuseAx
- \yl@shifti=-\fuseAy
- \advance\yl@shiftii\yl@xdiff
- \advance\yl@shifti\yl@ydiff
- \begin{picture}(0,0)(-\yl@shiftii,-\yl@shifti)
- \reset@yl@xydiff%1999/1/6 by S. Fujita
-\else
- \begin{picture}(800,880)(-240,-400)%
- \iforigpt \put(-\shifti,-\shiftii){\circle*{50}}%
- \put(-\noshift,-\noshift){\circle{50}}%
- \typeout{command `fivefusehi' origin: %
- (\the\noshift,\the\noshift) ---> (\the\shifti,\the\shiftii)}\fi%
-\fi
-{\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(173,0){\circle{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{picture}%
-{\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\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}%
-\if@sixfuseposv
- \yl@shiftii=-\fuseAx
- \yl@shifti=-\fuseAy
- \advance\yl@shiftii\yl@xdiff
- \advance\yl@shifti\yl@ydiff
- \begin{picture}(0,0)(-\yl@shiftii,-\yl@shifti)
- \reset@yl@xydiff%1999/1/6 by S. Fujita
-\else
-\begin{picture}(800,880)(-571,-137)%
- \iforigpt\put(-571,-137){\circle*{50}}%
- \put(-171,103){\circle{50}}%
- \typeout{command `fourfuse' origin: %
- (\the\noshift,\the\noshift) ---> (\the\shiftii,\the\shifti)}\fi%
-\fi
-{\resetbdsw%
-\@bond@fuse@omit{#5}{#6}%
-\put(0,0){\set@skel@longbond{#1}{a}{skbondshorizi}}%
- % bond between 1 and 2 \@aaa -> \skbondshorizi etc
-\put(-142,0){\set@skel@bond{#1}{b}{b}}%
- % bond between 2 and 3 \@bbb -> \skbondb etc
-\put(0,0){\set@skel@longbond{#1}{c}{skbondshoriz}}%
- % bond between 3 and 4 \@ccc -> \skbondshoriz etc
-\put(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(0,0){\bondshorizi}%
-\else\if\member b\relax \put(-142,0){\bondb}%
-\else\if\member c\relax \put(0,0){\bondshoriz}%
-\else\if\member d\relax \put(0,0){\bonde}%
-\else
- \expandafter\twoCH@@R\member//%
- \set@fusionadd@fourv
-\fi\fi\fi\fi\fi}%
-\put(-142,0){\set@hetatom@sixv{#3}{5}{1}{4}{-1}}% for 2 to 3
-\put(0,0){\set@hetatom@sixv{#3}{4}{4}{6}{0}}% for 1
-\put(0,0){\set@hetatom@sixv{#3}{2}{5}{7}{0}}% for 4
-\put(-142,0){\setsixringv{#4}{5}{1}{4}{-1}}% for 2 to 3
-\put(0,0){\setsixringv{#4}{4}{4}{6}{0}}% for 1
-\put(0,0){\setsixringv{#4}{2}{5}{7}{0}}% for 4
-\end{picture}%
-\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}%
-\if@sixfuseposv
- \yl@shiftii=-\fuseAx
- \yl@shifti=-\fuseAy
- \advance\yl@shiftii\yl@xdiff
- \advance\yl@shifti\yl@ydiff
- \begin{picture}(0,0)(-\yl@shiftii,-\yl@shifti)
- \reset@yl@xydiff%1999/1/6 by S. Fujita
-\else
-\begin{picture}(800,580)(-468,-240)%
- \iforigpt \put(-468,-240){\circle*{50}}%
- \put(-68,0){\circle{50}}%
- \typeout{command `threefusevv' origin: %
- (68,0) ---> (468,240)}\fi%
-\fi
-{\resetbdsw%
-\@bond@fuse@omit{#5}{#6}%
-\put(-68,0){\set@skel@longbond{#1}{a}{skbondtria}}%
- % bond between 1 and 2 \@aaa -> \skbondtria etc
-\put(0,-132){\set@skel@longbond{#1}{b}{skbondshoriz}}%
- % bond between 2 and 3 \@bbb -> \skbondb etc
-\put(-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(-68,0){\bondtria}%
-\else\if\member b\relax\put(0,-126){\bondshoriz}%
-\else\if\member c\relax\put(-68,0){\bondtrib}%
-\else\if\member A\relax% aromatic circle
- \put(-70,108){\circle{100}}% %circle
-\else
- \expandafter\twoCH@@R\member//%
- \set@fusionadd@threev
-\fi\fi\fi\fi\fi%
-}%
-\put(-68,0){\set@hetatom@sixv{#3}{3}{3}{5}{0}%
-\if@clip\global\@cliptrue\fi
-}%subst 1
-\put(-142,-132){\set@hetatom@sixv{#3}{0}{1}{3}{0}%
-\if@bclip\global\@bcliptrue\fi
-}%subst 2
-\put(0,-132){\set@hetatom@sixv{#3}{3}{5}{7}{0}%
-\if@fclip\global\@fcliptrue\fi
-}%subst 3
-\put(-68,0){\setsixringv{#4}{3}{3}{5}{0}}%subst 1
-\put(-142,-132){\setsixringv{#4}{0}{1}{3}{0}}%subst 2
-\put(0,-132){\setsixringv{#4}{3}{5}{7}{0}}%subst 3
-\end{picture}%
-\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}%
-\if@sixfuseposv
- \yl@shiftii=-\fuseAx
- \yl@shifti=-\fuseAy
- \advance\yl@shiftii\yl@xdiff
- \advance\yl@shifti\yl@ydiff
- \begin{picture}(0,0)(-\yl@shiftii,-\yl@shifti)
- \reset@yl@xydiff%1999/1/6 by S. Fujita
-\else
-\begin{picture}(800,580)(-468,-340)%
- \iforigpt \put(-468,-340){\circle*{50}}%
- \put(-68,0){\circle{50}}%
- \typeout{command `threefusevi' origin: %
- (0,0) ---> (-468,-340)}\fi%
-\fi
-{\resetbdsw%
-\@bond@fuse@omit{#5}{#6}%
-\put(-68,0){\set@skel@longbond{#1}{a}{skBondtria}}%
- % bond between 1 and 2 \@aaa -> \skBondtria etc
-\put(0,-275){\set@skel@longbond{#1}{b}{skbondshorizi}}%
- % bond between 2 and 3 \@bbb -> \skbondb etc
-\put(-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(-68,0){\Bondtria}%
-\else\if\member b\relax\put(0,-274){\bondshorizi}%
-\else\if\member c\relax\put(-68,0){\Bondtrib}%
-\else\if\member A\relax% aromatic circle
- \put(-70,-108){\circle{100}}% %circle
-\else
- \expandafter\twoCH@@R\member//%
- \set@fusionadd@threevi
-\fi\fi\fi\fi\fi%
-}%
-\put(-68,-406){\set@hetatom@sixv{#3}{0}{0}{2}{0}%
-\if@aclip\global\@acliptrue\fi
-}%subst 1
-\put(0,-275){\set@hetatom@sixv{#3}{2}{4}{6}{0}%
-\if@cclip\global\@ccliptrue\fi
-}%subst 3
-\put(-142,-275){\set@hetatom@sixv{#3}{1}{2}{4}{0}%
-\if@eclip\global\@ecliptrue\fi
-}%subst 2
-\put(-68,-406){\setsixringv{#4}{0}{0}{2}{0}}%subst 1
-\put(0,-275){\setsixringv{#4}{2}{4}{6}{0}}%subst 3
-\put(-142,-275){\setsixringv{#4}{1}{2}{4}{0}}%subst 2
-\end{picture}%
-\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}%
-\if@sixfuseposv
- \yl@shiftii=-\fuseAx
- \yl@shifti=-\fuseAy
- \advance\yl@shiftii\yl@xdiff
- \advance\yl@shifti\yl@ydiff
- \begin{picture}(0,0)(-\yl@shiftii,-\yl@shifti)
- \reset@yl@xydiff%1999/1/6 by S. Fujita
-\else
-\begin{picture}(580,700)(-200,-240)%
- \iforigpt \put(-200,-200){\circle*{50}}%
- \put(0,0){\circle{50}}%
- \typeout{command `threefuseh' origin: %
- (0,0) ---> (200,200)}\fi%
-\fi
-\iniatom\iniflag%initialize
-\test@vertix@sixv{#3}{c}{e}{a}{@}{@}{@}%
-\test@vertix@sixv{#3}{b}{d}{f}{@}{@}{@}%
-{\resetbdsw%
-\@bond@fuse@omit{#5}{#6}%
-\put(0,0){\set@skel@bond{#1}{a}{c}}%
- % bond between 1 and 2 \@aaa -> \skbondc etc
-\put(171,-103){\set@skel@bond{#1}{b}{e}}%
- % bond between 2 and 3 \@bbb -> \skbonde etc
-\put(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(0,0){\bondc}%
-\else\if\member b\relax\put(171,-103){\bonde}%
-\else\if\member c\relax\put(0,-200){\bonda}%
-\else\if\member A\relax% aromatic circle
- \put(70,103){\circle{100}}% %circle
-\else
- \expandafter\twoCH@@R\member//%
- \set@fusionadd@threeh
-\fi\fi\fi\fi\fi%
-}%
-\iniflag
-\put(-215,103){\set@hetatom@sixh{#3}{3}{3}{5}{0}%
-\if@clip \global\@cliptrue\fi}%subst 1 <--six h 4
-\put(-103,29){\set@hetatom@sixh{#3}{-1}{1}{3}{0}%
-\if@bclip \global\@bcliptrue\fi}%subst 3 <--six h 2
-\put(-103,171){\set@hetatom@sixh{#3}{4}{5}{7}{0}%
-\if@fclip \global\@fcliptrue\fi}%subst 2 <--six h 6
-\put(-235,103){\setsixringh{#4}{3}{3}{5}{0}}%subst 1
-\put(-103,29){\setsixringh{#4}{-1}{1}{3}{0}}%subst 3
-\put(-103,171){\setsixringh{#4}{4}{5}{7}{0}}%subst 2
-\end{picture}%
-\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}%
-\if@sixfuseposv
- \yl@shiftii=-\fuseAx
- \yl@shifti=-\fuseAy
- \advance\yl@shiftii\yl@xdiff
- \advance\yl@shifti\yl@ydiff
- \begin{picture}(0,0)(-\yl@shiftii,-\yl@shifti)
- \reset@yl@xydiff%1999/1/6 by S. Fujita
-\else
-\begin{picture}(580,700)(-400,-240)%
- \iforigpt \put(-400,-200){\circle*{50}}%
- \put(0,0){\circle{50}}%
- \typeout{command `threefusehi' origin: %
- (0,0) ---> (400,200)}\fi%
-\fi
-\iniatom\iniflag%initialize
-\test@vertix@sixv{#3}{e}{c}{a}{@}{@}{@}%
-\test@vertix@sixv{#3}{f}{d}{b}{@}{@}{@}%
-{\resetbdsw%
-\@bond@fuse@omit{#5}{#6}%
-\put(0,0){\set@skel@bond{#1}{a}{d}}%
- % bond between 1 and 2 \@aaa -> \skbondd etc
-\put(-171,-103){\set@skel@bond{#1}{b}{b}}%
- % bond between 2 and 3 \@bbb -> \skbondb etc
-\put(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(0,0){\bondd}%
-\else\if\member b\relax\put(-171,-103){\bondb}%
-\else\if\member c\relax\put(0,-200){\bondf}%
-\else\if\member A\relax% aromatic circle
- \put(70,103){\circle{100}}% %circle
-\else
- \expandafter\twoCH@@R\member//%
- \set@fusionadd@threehi
-\fi\fi\fi\fi\fi%
-}%
-\iniflag
-\put(-171,103){\set@hetatom@sixh{#3}{0}{0}{2}{0}%
-\if@aclip \global\@acliptrue\fi}%subst 1 <--six h 1
-\put(-303,29){\set@hetatom@sixh{#3}{0}{2}{4}{0}%
-\if@cclip \global\@ccliptrue\fi}%subst 3 <--six h 3
-\put(-303,171){\set@hetatom@sixh{#3}{3}{4}{6}{0}%
-\if@eclip \global\@ecliptrue\fi}%subst 2 <--six h 5
-\put(-171,103){\setsixringh{#4}{0}{0}{2}{0}}%subst 1
-\put(-303,29){\setsixringh{#4}{0}{2}{4}{0}}%subst 3
-\put(-303,171){\setsixringh{#4}{3}{4}{6}{0}}%subst 2
-\end{picture}%
-\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'.