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