remove xymtex (again), it is nonfree

git-svn-id: svn://tug.org/texlive/trunk@3102 c570f23f-e606-0410-a88d-b1316a301751

14 files changed, 0 insertions, 23837 deletions

diff --git a/Master/texmf-dist/tex/latex/xymtex/aliphat.sty b/Master/texmf-dist/tex/latex/xymtex/aliphat.sty
deleted file mode 100644
index 7ba5a100403..00000000000
--- a/Master/texmf-dist/tex/latex/xymtex/aliphat.sty
+++ /dev/null
@@ -1,1464 +0,0 @@
-%%
-%% This is file `aliphat.sty',
-%% generated with the docstrip utility.
-%%
-%% The original source files were:
-%%
-%% aliphat.dtx  (with options: `aliphat')
-%% 
-%% This is a generated file.
-%% 
-%% Copyright 1996, 1998 by Shinsaku Fujita
-%% 
-%% This file is part of the XyMTeX system.
-%% =======================================
-%% 
-%% Version 1.01 Released on August 16, 1996
-%% Version 1.02 Released on October 31, 1996
-%% Version 2.00 Released on December 25, 1998
-%% 
-%% Copyright (C) 1996, 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: aliphat.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{aliphat}
-\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}{}
-\unitlength=0.1pt
-\def\Northbond{%
-\yl@xdiff=40
-\yl@ydiff=-15
-\begin{picture}(100,200)(0,0)
-  \if\@tmpb D\relax%
-    \multiput(-13,52)(26,0){2}{\line(0,1){100}}% double bond up
-  \else\if\@tmpb T\relax%
-    \multiput(-20,52)(20,0){3}{\line(0,1){100}}% triple bond up
-  \else\if\@tmpb A%(A) alpha
-    {\thicklines\put(-8,52){\line(0,1){100}}}% single bond (alpha)
-  \else\if\@tmpb B%(B) beta
-       \@ifundefined{dottedline}{\put(0,52){\line(0,1){100}}}%
-         {{\thicklines \dottedline{20}(0,52)(0,152)}}%
-  \else\if\@tmpb S%
-       \put(0,52){\line(0,1){100}}%
-  \else \put(0,52){\line(0,1){100}}%
-  \fi\fi\fi\fi\fi%
-  \putlratom{-40}{167}{\@memberb}%==1 upper substituent
-\end{picture}}%
-\def\Eastbond{%
-\yl@xdiff=-10
-\yl@ydiff=33
-\begin{picture}(200,200)(0,0)
-  \if\@tmpb D\relax%
-     \multiput(50,-13)(0,26){2}{\line(1,0){140}}% double bond right
-  \else\if\@tmpb T\relax%
-     \multiput(50,-20)(0,20){3}{\line(1,0){140}}% double bond right
-  \else\if\@tmpb A%(A) alpha
-    {\thicklines\put(50,0){\line(1,0){140}}}% single bond (alpha)
-  \else\if\@tmpb B%(B) beta
-       \@ifundefined{dottedline}{\put(50,0){\line(1,0){140}}}%
-         {{\thicklines \dottedline{20}(50,0)(203,0)}}%
-  \else\if\@tmpb S%
-       \put(50,0){\line(1,0){140}}%
-    \else \put(50,0){\line(1,0){140}}%
-  \fi\fi\fi\fi\fi%
-  \putratom{200}{-33}{\@memberb}%==2 right substituent
-\end{picture}}%
-\def\Southbond{%
-\yl@xdiff=40
-\yl@ydiff=95
-\begin{picture}(100,300)(0,0)
-  \if\@tmpb D\relax%
-     \multiput(-13,-48)(26,0){2}{\line(0,-1){100}}% double bond down
-  \else\if\@tmpb T\relax%
-     \multiput(-20,-48)(20,0){3}{\line(0,-1){100}}% double bond down
-  \else\if\@tmpb A%(A) alpha
-    {\thicklines\put(-8,-48){\line(0,-1){100}}}% single bond (alpha)
-  \else\if\@tmpb B%(B) beta
-       \@ifundefined{dottedline}{\put(0,-48){\line(0,-1){100}}}%
-         {{\thicklines \dottedline{20}(0,-48)(0,-148)}}%
-  \else\if\@tmpb S%
-       \put(0,-48){\line(0,-1){100}}%
-    \else \put(0,-48){\line(0,-1){100}}%
-  \fi\fi\fi\fi\fi%
-  \putlratom{-40}{-243}{\@memberb}%==3 down substituent
-\end{picture}}%
-\def\Westbond{%
-\yl@xdiff=10
-\yl@ydiff=33
-\begin{picture}(100,300)(0,0)
-  \if\@tmpb D\relax%
-     \multiput(-190,-13)(0,26){2}{\line(1,0){140}}% double bond left
-  \else\if\@tmpb T\relax%
-     \multiput(-190,-20)(0,20){3}{\line(1,0){140}}% double bond left
-  \else\if\@tmpb A%(A) alpha
-    {\thicklines\put(-190,0){\line(1,0){140}}}% single bond (alpha)
-  \else\if\@tmpb B%(B) beta
-       \@ifundefined{dottedline}{\put(-190,0){\line(1,0){140}}}%
-         {{\thicklines \dottedline{20}(-190,0)(-40,0)}}%
-  \else\if\@tmpb S%
-       \put(-190,0){\line(1,0){140}}%
-  \else \put(-190,0){\line(1,0){140}}%
-  \fi\fi\fi\fi\fi%
-  \putlatom{-200}{-33}{\@memberb}%==4 left substituent
-\end{picture}}%
-\def\NEBond{%degree 120
-\yl@xdiff=-9
-\yl@ydiff=13
-\begin{picture}(100,300)(0,0)
-  \if\@tmpb D\relax%
-    \put(33,48){\line(5,3){121}}%
-    \put(47,26){\line(5,3){121}}%northeast double bond
-  \else\if\@tmpb T\relax%
-    \put(31,52){\line(5,3){121}}%
-    \put(40,37){\line(5,3){121}}%
-    \put(49,22){\line(5,3){121}}%northeast triple bond
-  \else\if\@tmpb A%(A) alpha
-    {\thicklines\put(40,47){\line(5,3){121}}}% single bond (alpha)
-  \else\if\@tmpb B%(B) beta
-       \@ifundefined{dottedline}{\put(40,47){\line(5,3){121}}}%
-         {{\thicklines \dottedline{20}(40,47)(161,120)}}%
-  \else\if\@tmpb S%
-       \put(40,47){\line(5,3){121}}%
-  \else \put(40,47){\line(5,3){121}}%
-  \fi\fi\fi\fi\fi%
-  \putratom{170}{107}{\@memberb}%==2 (northeast substituent)
-\end{picture}}%
-\def\NEbond{%degree 90
-\yl@xdiff=-5
-\yl@ydiff=10
-\begin{picture}(100,300)(0,0)
-  \if\@tmpb D\relax%
-     \put(31,46){\line(1,1){100}}%
-     \put(49,28){\line(1,1){100}}%northeast double bond
-  \else\if\@tmpb T\relax%
-     \put(27,50){\line(1,1){100}}%
-     \put(40,37){\line(1,1){100}}%
-     \put(53,24){\line(1,1){100}}%northeast triple bond
-  \else\if\@tmpb A%(A) alpha
-    {\thicklines\put(40,47){\line(1,1){100}}}% single bond (alpha)
-  \else\if\@tmpb B%(B) beta
-       \@ifundefined{dottedline}{\put(40,47){\line(1,1){100}}}%
-         {{\thicklines \dottedline{20}(40,47)(140,147)}}%
-  \else\if\@tmpb S%
-       \put(40,47){\line(1,1){100}}%
-  \else \put(40,47){\line(1,1){100}}%
-  \fi\fi\fi\fi\fi%
-  \putratom{145}{137}{\@memberb}%==2 (northeast substituent)
-\end{picture}}%
-\def\SEBond{%degree 120
-\yl@xdiff=-9
-\yl@ydiff=67
-\begin{picture}(100,300)(0,0)
-  \if\@tmpb D\relax%
-    \put(33,-48){\line(5,-3){121}}%
-    \put(47,-26){\line(5,-3){121}}%southeast double bond
-  \else\if\@tmpb T\relax%
-    \put(31,-52){\line(5,-3){121}}%
-    \put(40,-37){\line(5,-3){121}}%
-    \put(49,-22){\line(5,-3){121}}%southeast triple bond
-  \else\if\@tmpb A%(A) alpha
-    {\thicklines\put(40,-47){\line(5,-3){121}}}% single bond (alpha)
-  \else\if\@tmpb B%(B) beta
-       \@ifundefined{dottedline}{\put(40,-47){\line(5,-3){121}}}%
-         {{\thicklines \dottedline{20}(40,-47)(161,-120)}}%
-  \else\if\@tmpb S%
-       \put(40,-47){\line(5,-3){121}}%
-  \else \put(40,-47){\line(5,-3){121}}%
-  \fi\fi\fi\fi\fi%
-  \putratom{170}{-187}{\@memberb}%==2 (southeast substituent)
-\end{picture}}%
-\def\SEbond{%degree 90
-\yl@xdiff=-5
-\yl@ydiff=56
-\begin{picture}(100,300)(0,0)
-  \if\@tmpb D\relax%
-     \put(31,-46){\line(1,-1){100}}%
-     \put(49,-28){\line(1,-1){100}}%southeast double bond
-  \else\if\@tmpb T\relax%
-     \put(27,-50){\line(1,-1){100}}%
-     \put(40,-37){\line(1,-1){100}}%
-     \put(53,-24){\line(1,-1){100}}%southeast triple bond
-  \else\if\@tmpb A%(A) alpha
-    {\thicklines\put(53,-47){\line(1,-1){100}}}% single bond (alpha)
-  \else\if\@tmpb B%(B) beta
-       \@ifundefined{dottedline}{\put(40,-47){\line(1,-1){100}}}%
-         {{\thicklines \dottedline{20}(40,-47)(140,-147)}}%
-  \else\if\@tmpb S%
-       \put(40,-47){\line(1,-1){100}}%
-  \else \put(40,-47){\line(1,-1){100}}%
-  \fi\fi\fi\fi\fi%
- \putratom{145}{-203}{\@memberb}%==3 (southeast substituent)
-\end{picture}}%
-\def\NWBond{%
-\begin{picture}(100,300)(0,0)
-\yl@xdiff=9
-\yl@ydiff=13
-  \if\@tmpb D\relax%
-    \put(-59,48){\line(-5,3){121}}%
-    \put(-73,26){\line(-5,3){121}}%northwest double bond
-  \else\if\@tmpb T\relax%
-    \put(-57,52){\line(-5,3){121}}%
-    \put(-66,37){\line(-5,3){121}}%
-    \put(-75,22){\line(-5,3){121}}%northwest triple bond
-  \else\if\@tmpb A%(A) alpha
-    {\thicklines\put(-66,47){\line(-5,3){121}}}% single bond (alpha)
-  \else\if\@tmpb B%(B) beta
-       \@ifundefined{dottedline}{\put(-66,47){\line(-5,3){121}}}%
-         {{\thicklines \dottedline{20}(-66,47)(-187,120)}}%
-  \else\if\@tmpb S%
-       \put(-66,47){\line(-5,3){121}}%
-  \else \put(-66,47){\line(-5,3){121}}%
-  \fi\fi\fi\fi\fi%
-  \putlatom{-196}{107}{\@memberb}%==2 (northwest substituent)
-\end{picture}}%
-\def\NWbond{%
-\begin{picture}(100,300)(0,0)
-\yl@xdiff=13
-\yl@ydiff=10
-  \if\@tmpb D\relax%
-     \put(-41,46){\line(-1,1){100}}%
-     \put(-59,28){\line(-1,1){100}}%northwest double bond
-  \else\if\@tmpb T\relax%
-     \put(-37,50){\line(-1,1){100}}%
-     \put(-50,37){\line(-1,1){100}}%
-     \put(-63,24){\line(-1,1){100}}%northwest triple bond
-  \else\if\@tmpb A%(A) alpha
-    {\thicklines\put(-50,47){\line(-1,1){100}}}% single bond (alpha)
-  \else\if\@tmpb B%(B) beta
-       \@ifundefined{dottedline}{\put(-50,47){\line(-1,1){100}}}%
-         {{\thicklines \dottedline{20}(-50,47)(-137,147)}}%
-  \else\if\@tmpb S%
-       \put(-50,47){\line(-1,1){100}}%
-  \else \put(-50,47){\line(-1,1){100}}%
-  \fi\fi\fi\fi\fi%
-  \putlatom{-163}{137}{\@memberb}%==2 (northwest substituent)
-\end{picture}}%
-\def\SWBond{%
-\yl@xdiff=9
-\yl@ydiff=67
-\begin{picture}(100,300)(0,0)
-  \if\@tmpb D\relax%
-    \put(-59,-48){\line(-5,-3){121}}%
-    \put(-73,-26){\line(-5,-3){121}}%southwest double bond
-  \else\if\@tmpb T\relax%
-    \put(-57,-52){\line(-5,-3){121}}%
-    \put(-66,-37){\line(-5,-3){121}}%
-    \put(-75,-22){\line(-5,-3){121}}%southwest triple bond
-  \else\if\@tmpb A%(A) alpha
-    {\thicklines\put(-66,-47){\line(-5,-3){121}}}% single bond (alpha)
-  \else\if\@tmpb B%(B) beta
-       \@ifundefined{dottedline}{\put(-66,-47){\line(-5,-3){121}}}%
-         {{\thicklines \dottedline{20}(-66,-47)(-187,-120)}}%
-  \else\if\@tmpb S%
-       \put(-66,-47){\line(-5,-3){121}}%
-  \else \put(-66,-47){\line(-5,-3){121}}%
-  \fi\fi\fi\fi\fi%
-  \putlatom{-196}{-187}{\@memberb}%==2 (southwest substituent)
-\end{picture}}%
-\def\SWbond{%
-\yl@xdiff=13
-\yl@ydiff=56
-\begin{picture}(100,300)(0,0)
-  \if\@tmpb D\relax%
-     \put(-41,-46){\line(-1,-1){100}}%
-     \put(-59,-28){\line(-1,-1){100}}%southwest double bond
-  \else\if\@tmpb T\relax%
-     \put(-37,-50){\line(-1,-1){100}}%
-     \put(-50,-37){\line(-1,-1){100}}%
-     \put(-63,-24){\line(-1,-1){100}}%southwest triple bond
-  \else\if\@tmpb A%(A) alpha
-    {\thicklines\put(-50,-47){\line(-1,-1){100}}}% single bond (alpha)
-  \else\if\@tmpb B%(B) beta
-       \@ifundefined{dottedline}{\put(-50,-47){\line(-1,-1){100}}}%
-         {{\thicklines \dottedline{20}(-50,-47)(-137,-147)}}%
-  \else\if\@tmpb S%
-       \put(-50,-47){\line(-1,-1){100}}%
-  \else \put(-50,-47){\line(-1,-1){100}}%
-  \fi\fi\fi\fi\fi%
- \putlatom{-163}{-203}{\@memberb}%==3 (southwest substituent)
-\end{picture}}%
-\def\NEBOND{%degree 120
-\yl@xdiff=-1
-\yl@ydiff=-10
-\begin{picture}(100,300)(0,0)
-  \if\@tmpb D\relax%
-    \put(48,33){\line(3,5){72}}%
-    \put(26,47){\line(3,5){72}}%northeast double bond
-  \else\if\@tmpb T\relax%
-    \put(52,31){\line(3,5){72}}%
-    \put(37,40){\line(3,5){72}}%
-    \put(22,49){\line(3,5){72}}%northeast triple bond
-  \else\if\@tmpb A%(A) alpha
-    {\thicklines\put(40,47){\line(3,5){72}}}% single bond (alpha)
-  \else\if\@tmpb B%(B) beta
-       \@ifundefined{dottedline}{\put(47,40){\line(3,5){72}}}%
-         {{\thicklines \dottedline{20}(47,40)(120,161)}}%
-  \else\if\@tmpb S%
-       \put(47,40){\line(3,5){72}}%
-  \else \put(47,40){\line(3,5){72}}%
-  \fi\fi\fi\fi\fi%
-  \putratom{120}{170}{\@memberb}%==2 (northeast substituent)
-\end{picture}}%
-\def\SEBOND{%degree 120
-\yl@xdiff=-1
-\yl@ydiff=70
-\begin{picture}(100,300)(0,0)
-  \if\@tmpb D\relax%
-    \put(48,-33){\line(3,-5){72}}%
-    \put(26,-47){\line(3,-5){72}}%southeast double bond
-  \else\if\@tmpb T\relax%
-    \put(52,-31){\line(3,-5){72}}%
-    \put(37,-40){\line(3,-5){72}}%
-    \put(22,-49){\line(3,-5){72}}%southeast triple bond
-  \else\if\@tmpb A%(A) alpha
-    {\thicklines\put(47,-40){\line(3,-5){72}}}% single bond (alpha)
-  \else\if\@tmpb B%(B) beta
-       \@ifundefined{dottedline}{\put(47,-40){\line(3,-5){72}}}%
-         {{\thicklines \dottedline{20}(47,-40)(120,-161)}}%
-  \else\if\@tmpb S%
-       \put(47,-40){\line(3,-5){72}}%
-  \else \put(47,-40){\line(3,-5){72}}%
-  \fi\fi\fi\fi\fi%
-  \putratom{120}{-230}{\@memberb}%==2 (southeast substituent)
-\end{picture}}%
-\def\NWBOND{%
-\yl@xdiff=1
-\yl@ydiff=-10
-\begin{picture}(100,300)(0,0)
-  \if\@tmpb D\relax%
-    \put(-48,33){\line(-3,5){72}}%
-    \put(-26,47){\line(-3,5){72}}%northwest double bond
-  \else\if\@tmpb T\relax%
-    \put(-52,31){\line(-3,5){72}}%
-    \put(-37,40){\line(-3,5){72}}%
-    \put(-22,49){\line(-3,5){72}}%northwest triple bond
-  \else\if\@tmpb A%(A) alpha
-    {\thicklines\put(-40,47){\line(-3,5){72}}}% single bond (alpha)
-  \else\if\@tmpb B%(B) beta
-       \@ifundefined{dottedline}{\put(-47,40){\line(-3,5){72}}}%
-         {{\thicklines \dottedline{20}(-47,40)(-120,161)}}%
-  \else\if\@tmpb S%
-       \put(-47,40){\line(-3,5){72}}%
-  \else \put(-47,40){\line(-3,5){72}}%
-  \fi\fi\fi\fi\fi%
-  \putlatom{-120}{170}{\@memberb}%==2 (northwest substituent)
-%%  \putlatom{-120}{170}{\@memberb}%==2 (northwest substituent)
-\end{picture}}%
-\def\SWBOND{%
-\yl@xdiff=1
-\yl@ydiff=70
-\begin{picture}(100,300)(0,0)
-  \if\@tmpb D\relax%
-    \put(-48,-33){\line(-3,-5){72}}%
-    \put(-26,-47){\line(-3,-5){72}}%southwest double bond
-  \else\if\@tmpb T\relax%
-    \put(-52,-31){\line(-3,-5){72}}%
-    \put(-37,-40){\line(-3,-5){72}}%
-    \put(-22,-49){\line(-3,-5){72}}%southwest triple bond
-  \else\if\@tmpb A%(A) alpha
-    {\thicklines\put(-47,-40){\line(-3,-5){72}}}% single bond (alpha)
-  \else\if\@tmpb B%(B) beta
-       \@ifundefined{dottedline}{\put(-47,-40){\line(-3,-5){72}}}%
-         {{\thicklines \dottedline{20}(-47,-40)(-120,-161)}}%
-  \else\if\@tmpb S%
-       \put(-47,-40){\line(-3,-5){72}}%
-  \else \put(-47,-40){\line(-3,-5){72}}%
-  \fi\fi\fi\fi\fi%
-  \putlatom{-120}{-230}{\@memberb}%==2 (southwest substituent)
-\end{picture}}%
-\def\tetrahedral{\@ifnextchar[{\@tetrahedral[r}{\@tetrahedral[r]}}
-\def\@tetrahedral#1]#2{%
-\@reset@ylsw%
-\yltetrahedralposition{#2}%
-\if@ylsw \ifx\@@ylii\empty
-\def\@@ylii{0}\def\@@yli{0}\fi
-\fi
-\if@ylsw
- \yl@shiftii=\@ylii
- \yl@shifti=\@yli
- \advance\yl@shiftii\@@ylii
- \advance\yl@shifti\@@yli
- \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}(600,600)(-300,-300)%
-  \iforigpt \put(-300,-300){\circle*{50}}%
-           \put(-\noshift,-\noshift){\circle{50}}%
-   \typeout{command `tetrahedral' origin: %
-    (\the\noshift,\the\noshift) ---> (300,300)}\fi%
-\fi
-\@tfor\member:=#1\do{%
-   \expandafter\twoch@@r\member{}{}%
-   \if\@@tmpa 0\relax {\putratom{47}{50}{\scriptsize\@@tmpb}}\fi}%
-\@forsemicol\member:=#2\do{
-\ifx\member\empty\else
-\expandafter\@m@mb@r\member;\relax%
-\expandafter\threech@r\@membera{}{}%
-\ifx\@memberb\@yl\else
-\ifcase\@tmpa
-{\putlratom{-40}{-33}{\hbox to.72em{\hss\@memberb\hss}}}%central atom
-\or\put(0,0){\Northbond}%
-\or\put(0,0){\Westbond}%
-\or\put(0,0){\Southbond}%
-\or\put(0,0){\Eastbond}\fi%end of ifcase
-\fi\fi}%
-\end{picture}}%end of macro tetrahedral
-\def\yltetrahedralposition#1{%
-\@@ylswfalse%%%\@reset@ylsw
-\@forsemicol\member:=#1\do{%
-\if@@ylsw\else
-\ifx\member\empty\else
-\expandafter\@m@mb@r\member;\relax
-\expandafter\threech@r\@membera{}{}\relax
-\ifx\@memberb\@yl\relax\@@ylswtrue\else\@@ylswfalse\fi
-\if@@ylsw
-\ifcase\@tmpa
- \or \gdef\@ylii{0}\gdef\@yli{-52}\global\@ylswtrue%N subst. on 1
- \or \gdef\@ylii{52}\gdef\@yli{0}\global\@ylswtrue%W subst. on 1
- \or \gdef\@ylii{0}\gdef\@yli{52}\global\@ylswtrue%S subst. on 1
- \or \gdef\@ylii{-52}\gdef\@yli{0}\global\@ylswtrue%E subst. on 1
-\fi%end of ifcase
-\fi\fi\fi}}%
-
-\def\divalenth#1#2{%
-\@reset@ylsw%
-\yldivalenthposition{#1}{#2}%
-\if@ylsw \ifx\@@ylii\empty
-\def\@@ylii{0}\def\@@yli{0}\fi
-\fi
-\if@ylsw
- \yl@shiftii=\@ylii
- \yl@shifti=\@yli
- \advance\yl@shiftii\@@ylii
- \advance\yl@shifti\@@yli
- \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}(600,400)(-300,-200)%
-  \iforigpt \put(-300,-200){\circle*{50}}%
-           \put(-\noshift,-\noshift){\circle{50}}%
-   \typeout{command `tetrahedral' origin: %
-    (\the\noshift,\the\noshift) ---> (300,200)}\fi%
-\fi
-{\expandafter\@m@mb@r#1;\relax
-   \putratom{-30}{-33}{\@memberb}}%
-\@forsemicol\member:=#2\do{%
-\ifx\member\empty\else
-\expandafter\@m@mb@r\member;\relax%
-\expandafter\threech@r\@membera{}{}%
-\ifx\@memberb\@yl\else
-\ifcase\@tmpa
-\or\put(0,0){\Westbond}%
-\or\put(\the\@tempcnta,0){\Eastbond}\fi%end of ifcase
-\fi\fi}%
-\end{picture}}%end of macro tetrahedral
-\def\yldivalenthposition#1#2{%
-{\expandafter\@m@mb@r#1;\relax
-   \setbox0=\hbox{\@memberb}%
-   \@tempcnta=\wd0
-   \@tempcntb=\unitlength
-   \divide\@tempcnta by\@tempcntb
-   \global\advance\@tempcnta by-62%
-   \@tempcntb=\@tempcnta \global\advance\@tempcntb by50\relax
-   }%
-\@@ylswfalse%
-\@forsemicol\member:=#2\do{%
-\if@@ylsw\else
-\ifx\member\empty\else
-\expandafter\@m@mb@r\member;\relax
-\expandafter\threech@r\@membera{}{}\relax
-\ifx\@memberb\@yl\relax\@@ylswtrue\else\@@ylswfalse\fi
-\if@@ylsw
-\ifcase\@tmpa
- \or \gdef\@ylii{50}\gdef\@yli{0}\global\@ylswtrue%W subst. on 1
- \or \edef\@ylii{-\the\@tempcntb}\gdef\@yli{0}\global\@ylswtrue%E subst. on 1
-\fi%end of ifcase
-\fi\fi\fi}}%
-\def\rtrigonal{\@ifnextchar[{\@rtrigonal[r}{\@rtrigonal[r]}}
-\def\@rtrigonal#1]#2{%
-\@reset@ylsw%
-\ylrtrigonalposition{#2}%
-\if@ylsw \ifx\@@ylii\empty
-\def\@@ylii{0}\def\@@yli{0}\fi
-\fi
-\if@ylsw
- \yl@shiftii=\@ylii
- \yl@shifti=\@yli
- \advance\yl@shiftii\@@ylii
- \advance\yl@shifti\@@yli
- \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}(600,600)(-300,-300)%
-  \iforigpt \put(-300,-300){\circle*{50}}%
-           \put(-\noshift,-\noshift){\circle{50}}%
-   \typeout{command `rtrigonal' origin: %
-    (\the\noshift,\the\noshift) ---> (300,300)}\fi%
-\fi
-\@tfor\member:=#1\do{%
-   \expandafter\twoch@@r\member{}{}%
-   \if\@@tmpa 0\relax {\putratom{-27}{50}{\scriptsize\@@tmpb}}\fi}%
-\@forsemicol\member:=#2\do{%
-\ifx\member\empty\else
-\expandafter\@m@mb@r\member;\relax%
-\expandafter\threech@r\@membera{}{}%
-\ifx\@memberb\@yl\else
-\ifcase\@tmpa {\putlratom{-40}{-33}{\@memberb}}%central atom
-\or\put(0,0){\Westbond}%
-\or\put(0,0){\SEbond}%
-\or\put(0,0){\NEbond}%
-\fi%end of ifcase
-\fi\fi}%
-\end{picture}}%end of macro rtrigonal
-\def\ylrtrigonalposition#1{%
-\@@ylswfalse%%%\@reset@ylsw
-\@forsemicol\member:=#1\do{%
-\if@@ylsw\else
-\ifx\member\empty\else
-\expandafter\@m@mb@r\member;\relax
-\expandafter\threech@r\@membera{}{}\relax
-\ifx\@memberb\@yl\relax\@@ylswtrue\else\@@ylswfalse\fi
-\if@@ylsw
-\ifcase\@tmpa
- \or \gdef\@ylii{52}\gdef\@yli{0}\global\@ylswtrue% W subst. on 1
- \or \gdef\@ylii{-40}\gdef\@yli{47}\global\@ylswtrue% SE subst. on 1
- \or \gdef\@ylii{-40}\gdef\@yli{-47}\global\@ylswtrue% NE subst. on 1
-\fi%end of ifcase
-\fi\fi\fi}}%
-\def\Rtrigonal{\@ifnextchar[{\@Rtrigonal[r}{\@Rtrigonal[r]}}
-\def\@Rtrigonal#1]#2{%
-\@reset@ylsw%
-\ylRtrigonalposition{#2}%
-\if@ylsw \ifx\@@ylii\empty
-\def\@@ylii{0}\def\@@yli{0}\fi
-\fi
-\if@ylsw
- \yl@shiftii=\@ylii
- \yl@shifti=\@yli
- \advance\yl@shiftii\@@ylii
- \advance\yl@shifti\@@yli
- \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}(600,600)(-300,-300)%
-  \iforigpt \put(-300,-300){\circle*{50}}%
-           \put(-\noshift,-\noshift){\circle{50}}%
-   \typeout{command `Rtrigonal' origin: %
-    (\the\noshift,\the\noshift) ---> (300,300)}\fi%
-\fi
-\@tfor\member:=#1\do{%
-   \expandafter\twoch@@r\member{}{}%
-   \if\@@tmpa 0\relax {\putratom{-27}{50}{\scriptsize\@@tmpb}}\fi}%
-\@forsemicol\member:=#2\do{%
-\ifx\member\empty\else
-\expandafter\@m@mb@r\member;\relax%
-\expandafter\threech@r\@membera{}{}%
-\ifx\@memberb\@yl\else
-\ifcase\@tmpa {\putlratom{-40}{-33}{\@memberb}}%central atom
-\or\put(0,0){\Westbond}%
-\or\put(0,0){\SEBOND}%
-\or\put(0,0){\NEBOND}%
-\fi%end of ifcase
-\fi\fi}%
-\end{picture}}%end of macro Rtrigonal
-\def\ylRtrigonalposition#1{%
-\@@ylswfalse%%%\@reset@ylsw
-\@forsemicol\member:=#1\do{%
-\if@@ylsw\else
-\ifx\member\empty\else
-\expandafter\@m@mb@r\member;\relax
-\expandafter\threech@r\@membera{}{}\relax
-\ifx\@memberb\@yl\relax\@@ylswtrue\else\@@ylswfalse\fi
-\if@@ylsw
-\ifcase\@tmpa
- \or \gdef\@ylii{52}\gdef\@yli{0}\global\@ylswtrue% W subst. on 1
- \or \gdef\@ylii{-47}\gdef\@yli{40}\global\@ylswtrue% SE subst. on 1
- \or \gdef\@ylii{-47}\gdef\@yli{-40}\global\@ylswtrue% NE subst. on 1
-\fi%end of ifcase
-\fi\fi\fi}}%
-\def\ltrigonal{\@ifnextchar[{\@ltrigonal[r}{\@ltrigonal[r]}}
-\def\@ltrigonal#1]#2{%
-\@reset@ylsw%
-\ylltrigonalposition{#2}%
-\if@ylsw \ifx\@@ylii\empty
-\def\@@ylii{0}\def\@@yli{0}\fi
-\fi
-\if@ylsw
- \yl@shiftii=\@ylii
- \yl@shifti=\@yli
- \advance\yl@shiftii\@@ylii
- \advance\yl@shifti\@@yli
- \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}(600,600)(-300,-300)%
-  \iforigpt \put(-300,-300){\circle*{50}}%
-           \put(-\noshift,-\noshift){\circle{50}}%
-   \typeout{command `ltrigonal' origin: %
-    (\the\noshift,\the\noshift) ---> (300,300)}\fi%
-\fi
-\@tfor\member:=#1\do{%
-   \expandafter\twoch@@r\member{}{}%
-   \if\@@tmpa 0\relax {\putratom{-27}{50}{\scriptsize\@@tmpb}}\fi}%
-\@forsemicol\member:=#2\do{%
-\ifx\member\empty\else
-\expandafter\@m@mb@r\member;\relax%
-\expandafter\threech@r\@membera{}{}%
-\ifx\@memberb\@yl\else
-\ifcase\@tmpa
-{\putlratom{-40}{-33}{\@memberb}}%central atom
-\or\put(0,0){\Eastbond}%
-\or\put(0,0){\NWbond}%
-\or\put(0,0){\SWbond}%
-\fi%end of ifcase
-\fi\fi}%
-\end{picture}}%end of macro ltrigonal
-\def\ylltrigonalposition#1{%
-\@@ylswfalse%%%\@reset@ylsw
-\@forsemicol\member:=#1\do{%
-\if@@ylsw\else
-\ifx\member\empty\else
-\expandafter\@m@mb@r\member;\relax
-\expandafter\threech@r\@membera{}{}\relax
-\ifx\@memberb\@yl\relax\@@ylswtrue\else\@@ylswfalse\fi
-\if@@ylsw
-\ifcase\@tmpa
- \or \gdef\@ylii{-52}\gdef\@yli{0}\global\@ylswtrue% W subst. on 1
- \or \gdef\@ylii{50}\gdef\@yli{-47}\global\@ylswtrue% NW subst. on 1
- \or \gdef\@ylii{50}\gdef\@yli{47}\global\@ylswtrue% SW subst. on 1
-\fi%end of ifcase
-\fi\fi\fi}}%
-\def\Ltrigonal{\@ifnextchar[{\@Ltrigonal[r}{\@Ltrigonal[r]}}
-\def\@Ltrigonal#1]#2{%
-\@reset@ylsw%
-\ylLtrigonalposition{#2}%
-\if@ylsw \ifx\@@ylii\empty
-\def\@@ylii{0}\def\@@yli{0}\fi
-\fi
-\if@ylsw
- \yl@shiftii=\@ylii
- \yl@shifti=\@yli
- \advance\yl@shiftii\@@ylii
- \advance\yl@shifti\@@yli
- \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}(600,600)(-300,-300)%
-  \iforigpt \put(-300,-300){\circle*{50}}%
-           \put(-\noshift,-\noshift){\circle{50}}%
-   \typeout{command `Ltrigonal' origin: %
-    (\the\noshift,\the\noshift) ---> (300,300)}\fi%
-\fi
-\@tfor\member:=#1\do{%
-   \expandafter\twoch@@r\member{}{}%
-   \if\@@tmpa 0\relax {\putratom{-27}{50}{\scriptsize\@@tmpb}}\fi}%
-\@forsemicol\member:=#2\do{%
-\ifx\member\empty\else
-\expandafter\@m@mb@r\member;\relax%
-\expandafter\threech@r\@membera{}{}%
-\ifx\@memberb\@yl\else
-\ifcase\@tmpa
-{\putlratom{-40}{-33}{\@memberb}}%central atom
-\or\put(0,0){\Eastbond}%
-\or\put(0,0){\NWBOND}%
-\or\put(0,0){\SWBOND}%
-\fi%end of ifcase
-\fi\fi}%
-\end{picture}}%end of macro Ltrigonal
-\def\ylLtrigonalposition#1{%
-\@@ylswfalse%%%\@reset@ylsw
-\@forsemicol\member:=#1\do{%
-\if@@ylsw\else
-\ifx\member\empty\else
-\expandafter\@m@mb@r\member;\relax
-\expandafter\threech@r\@membera{}{}\relax
-\ifx\@memberb\@yl\relax\@@ylswtrue\else\@@ylswfalse\fi
-\if@@ylsw
-\ifcase\@tmpa
- \or \gdef\@ylii{-52}\gdef\@yli{0}\global\@ylswtrue% W subst. on 1
- \or \gdef\@ylii{47}\gdef\@yli{-40}\global\@ylswtrue% NWB subst. on 1
- \or \gdef\@ylii{47}\gdef\@yli{40}\global\@ylswtrue% SWB subst. on 1
-\fi%end of ifcase
-\fi\fi\fi}}%
-\def\utrigonal{\@ifnextchar[{\@utrigonal[r}{\@utrigonal[r]}}
-\def\@utrigonal#1]#2{%
-\@reset@ylsw%
-\ylutrigonalposition{#2}%
-\if@ylsw \ifx\@@ylii\empty
-\def\@@ylii{0}\def\@@yli{0}\fi
-\fi
-\if@ylsw
- \yl@shiftii=\@ylii
- \yl@shifti=\@yli
- \advance\yl@shiftii\@@ylii
- \advance\yl@shifti\@@yli
- \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}(600,600)(-300,-300)%
-  \iforigpt \put(-300,-300){\circle*{50}}%
-           \put(-\noshift,-\noshift){\circle{50}}%
-   \typeout{command `utrigonal' origin: %
-    (\the\noshift,\the\noshift) ---> (300,300)}\fi%
-\fi
-\@tfor\member:=#1\do{%
-   \expandafter\twoch@@r\member{}{}%
-   \if\@@tmpa 0\relax {\putratom{-27}{50}{\scriptsize\@@tmpb}}\fi}%
-\@forsemicol\member:=#2\do{%
-\ifx\member\empty\else
-\expandafter\@m@mb@r\member;\relax%
-\expandafter\threech@r\@membera{}{}%
-\ifx\@memberb\@yl\else
-\ifcase\@tmpa
-{\putlratom{-40}{-33}{\@memberb}}%central atom
-\or\put(0,0){\Southbond}%
-\or\put(0,0){\NEbond}%
-\or\put(0,0){\NWbond}%
-\fi%end of ifcase
-\fi\fi}%
-\end{picture}}%end of macro utrigonal
-\def\ylutrigonalposition#1{%
-\@@ylswfalse%%%\@reset@ylsw
-\@forsemicol\member:=#1\do{%
-\if@@ylsw\else
-\ifx\member\empty\else
-\expandafter\@m@mb@r\member;\relax
-\expandafter\threech@r\@membera{}{}\relax
-\ifx\@memberb\@yl\relax\@@ylswtrue\else\@@ylswfalse\fi
-\if@@ylsw
-\ifcase\@tmpa
- \or \gdef\@ylii{0}\gdef\@yli{52}\global\@ylswtrue%S subst. on 1
- \or \gdef\@ylii{-40}\gdef\@yli{-47}\global\@ylswtrue% NE subst. on 1
- \or \gdef\@ylii{50}\gdef\@yli{-47}\global\@ylswtrue% NW subst. on 1
-\fi%end of ifcase
-\fi\fi\fi}}%
-\def\Utrigonal{\@ifnextchar[{\@Utrigonal[r}{\@Utrigonal[r]}}
-\def\@Utrigonal#1]#2{%
-\@reset@ylsw%
-\ylUtrigonalposition{#2}%
-\if@ylsw \ifx\@@ylii\empty
-\def\@@ylii{0}\def\@@yli{0}\fi
-\fi
-\if@ylsw
- \yl@shiftii=\@ylii
- \yl@shifti=\@yli
- \advance\yl@shiftii\@@ylii
- \advance\yl@shifti\@@yli
- \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}(600,600)(-300,-300)%
-  \iforigpt \put(-300,-300){\circle*{50}}%
-           \put(-\noshift,-\noshift){\circle{50}}%
-   \typeout{command `Utrigonal' origin: %
-    (\the\noshift,\the\noshift) ---> (300,300)}\fi%
-\fi
-\@tfor\member:=#1\do{%
-   \expandafter\twoch@@r\member{}{}%
-   \if\@@tmpa 0\relax {\putratom{-27}{50}{\scriptsize\@@tmpb}}\fi}%
-\@forsemicol\member:=#2\do{%
-\ifx\member\empty\else
-\expandafter\@m@mb@r\member;\relax%
-\expandafter\threech@r\@membera{}{}%
-\ifx\@memberb\@yl\else
-\ifcase\@tmpa
-{\putlratom{-40}{-33}{\@memberb}}%central atom
-\or\put(0,0){\Southbond}%
-\or\put(0,0){\NEBond}%
-\or\put(0,0){\NWBond}%
-\fi%end of ifcase
-\fi\fi}%
-\end{picture}}%end of macro Utrigonal
-\def\ylUtrigonalposition#1{%
-\@@ylswfalse%%%\@reset@ylsw
-\@forsemicol\member:=#1\do{%
-\if@@ylsw\else
-\ifx\member\empty\else
-\expandafter\@m@mb@r\member;\relax
-\expandafter\threech@r\@membera{}{}\relax
-\ifx\@memberb\@yl\relax\@@ylswtrue\else\@@ylswfalse\fi
-\if@@ylsw
-\ifcase\@tmpa
- \or \gdef\@ylii{0}\gdef\@yli{52}\global\@ylswtrue%S subst. on 1
- \or \gdef\@ylii{-40}\gdef\@yli{-47}\global\@ylswtrue% NEB subst. on 1
- \or \gdef\@ylii{66}\gdef\@yli{-47}\global\@ylswtrue% NWB subst. on 1
-\fi%end of ifcase
-\fi\fi\fi}}%
-\def\dtrigonal{\@ifnextchar[{\@dtrigonal[r}{\@dtrigonal[r]}}
-\def\@dtrigonal#1]#2{%
-\@reset@ylsw%
-\yldtrigonalposition{#2}%
-\if@ylsw \ifx\@@ylii\empty
-\def\@@ylii{0}\def\@@yli{0}\fi
-\fi
-\if@ylsw
- \yl@shiftii=\@ylii
- \yl@shifti=\@yli
- \advance\yl@shiftii\@@ylii
- \advance\yl@shifti\@@yli
- \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}(600,600)(-300,-300)
-  \iforigpt \put(-300,-300){\circle*{50}}%
-           \put(-\noshift,-\noshift){\circle{50}}%
-   \typeout{command `dtrigonal' origin: %
-    (\the\noshift,\the\noshift) ---> (300,300)}\fi%
-\fi
-\@tfor\member:=#1\do{%
-   \expandafter\twoch@@r\member{}{}%
-   \if\@@tmpa 0\relax {\putratom{37}{50}{\scriptsize\@@tmpb}}\fi}%
-\@forsemicol\member:=#2\do{%
-\ifx\member\empty\else
-\expandafter\@m@mb@r\member;\relax%
-\expandafter\threech@r\@membera{}{}%
-\ifx\@memberb\@yl\else
-\ifcase\@tmpa
-{\putlratom{-40}{-33}{\@memberb}}%central atom
-\or\put(0,0){\Northbond}%
-\or\put(0,0){\SEbond}%
-\or\put(0,0){\SWbond}%
-\fi%end of ifcase
-\fi\fi}%
-\end{picture}}%end of macro dtrigonal
-\def\yldtrigonalposition#1{%
-\@@ylswfalse%%%\@reset@ylsw
-\@forsemicol\member:=#1\do{%
-\if@@ylsw\else
-\ifx\member\empty\else
-\expandafter\@m@mb@r\member;\relax
-\expandafter\threech@r\@membera{}{}\relax
-\ifx\@memberb\@yl\relax\@@ylswtrue\else\@@ylswfalse\fi
-\if@@ylsw
-\ifcase\@tmpa
- \or \gdef\@ylii{0}\gdef\@yli{-52}\global\@ylswtrue%N subst. on 1
- \or \gdef\@ylii{-40}\gdef\@yli{47}\global\@ylswtrue% SE subst. on 1
- \or \gdef\@ylii{50}\gdef\@yli{47}\global\@ylswtrue% SW subst. on 1
-\fi%end of ifcase
-\fi\fi\fi}}%
-\def\Dtrigonal{\@ifnextchar[{\@Dtrigonal[r}{\@Dtrigonal[r]}}
-\def\@Dtrigonal#1]#2{%
-\@reset@ylsw%
-\ylDtrigonalposition{#2}%
-\if@ylsw \ifx\@@ylii\empty
-\def\@@ylii{0}\def\@@yli{0}\fi
-\fi
-\if@ylsw
- \yl@shiftii=\@ylii
- \yl@shifti=\@yli
- \advance\yl@shiftii\@@ylii
- \advance\yl@shifti\@@yli
- \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}(600,600)(-300,-300)
-  \iforigpt \put(-300,-300){\circle*{50}}%
-           \put(-\noshift,-\noshift){\circle{50}}%
-   \typeout{command `Dtrigonal' origin: %
-    (\the\noshift,\the\noshift) ---> (300,300)}\fi%
-\fi
-\@tfor\member:=#1\do{%
-   \expandafter\twoch@@r\member{}{}%
-   \if\@@tmpa 0\relax {\putratom{37}{50}{\scriptsize\@@tmpb}}\fi}%
-\@forsemicol\member:=#2\do{%
-\ifx\member\empty\else
-\expandafter\@m@mb@r\member;\relax%
-\expandafter\threech@r\@membera{}{}%
-\ifx\@memberb\@yl\else
-\ifcase\@tmpa
-{\putlratom{-40}{-33}{\@memberb}}%central atom
-\or\put(0,0){\Northbond}%
-\or\put(0,0){\SEBond}%
-\or\put(0,0){\SWBond}%
-\fi%end of ifcase
-\fi\fi}%
-\end{picture}}%end of macro Dtrigonal
-\def\ylDtrigonalposition#1{%
-\@@ylswfalse%%%\@reset@ylsw
-\@forsemicol\member:=#1\do{%
-\if@@ylsw\else
-\ifx\member\empty\else
-\expandafter\@m@mb@r\member;\relax
-\expandafter\threech@r\@membera{}{}\relax
-\ifx\@memberb\@yl\relax\@@ylswtrue\else\@@ylswfalse\fi
-\if@@ylsw
-\ifcase\@tmpa
- \or \gdef\@ylii{0}\gdef\@yli{-52}\global\@ylswtrue%N subst. on 1
- \or \gdef\@ylii{-40}\gdef\@yli{47}\global\@ylswtrue% SEB subst. on 1
- \or \gdef\@ylii{66}\gdef\@yli{47}\global\@ylswtrue% SWB subst. on 1
-\fi%end of ifcase
-\fi\fi\fi}}%
-\def\ethylene{\@ifnextchar[{\@ethylene}{\@ethylene[]}}
-\def\@ethylene[#1]#2#3{%
-\@reset@ylsw%
-\ylethylenepositiona{#3}%
-\if@ylsw \ifx\@@ylii\empty
-\def\@@ylii{0}\def\@@yli{0}\fi
-\else
-\ylethylenepositionb{#3}%
-\fi
-\if@ylsw \ifx\@@ylii\empty
-\def\@@ylii{-230}\def\@@yli{0}\fi
-\fi
-\if@ylsw
- \yl@shiftii=\@ylii
- \yl@shifti=\@yli
- \advance\yl@shiftii\@@ylii
- \advance\yl@shifti\@@yli
- \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,600)(-300,-300)
-  \iforigpt \put(-300,-300){\circle*{50}}%
-           \put(-\noshift,-\noshift){\circle{50}}%
-   \typeout{command `ethylene' origin: %
-    (\the\noshift,\the\noshift) ---> (300,300)}\fi%
-\fi
-{\def\aaa{#1}\ifx\aaa\empty%
- \multiput(42,-13)(0,25){2}{\line(1,0){140}}\fi% double bond
-}%
-\@tfor\member:=#1\do{%
- \expandafter\twoch@@r\member{}{}%
-   \if\@@tmpa 1\relax {\putratom{-27}{60}{\scriptsize\@@tmpb}}%
-   \else\if\@@tmpa 2\relax {\putratom{203}{60}{\scriptsize\@@tmpb}}%
-   \else\if\@@tmpa d\relax%
-       {\multiput(42,-13)(0,25){2}{\line(1,0){140}}}% double bond
-   \else\if\@@tmpa t\relax%
-     {\multiput(42,-20)(0,20){3}{\line(1,0){140}}}% triple bond right
-   \fi\fi\fi\fi}%
-{\def\aaa{#2}%
-\ifx\aaa\empty%
-\putratom{-40}{-33}{C}%central atom
-\putratom{190}{-33}{C}%central atom
-\else%
-\@forsemicol\member:=#2\do{%
-\ifx\member\empty\else
-\expandafter\@m@mb@r\member;\relax%
-\expandafter\threech@r\@membera{}{}%
-\ifcase\@tmpa%
-\or\putratom{-40}{-33}{\@memberb}%central atom
-\or\putratom{190}{-33}{\@memberb}%central atom
-\fi\fi}%end of ifcase
-\fi%
-}%
-\@forsemicol\member:=#3\do{%
-\ifx\member\empty\else
-\expandafter\@m@mb@r\member;\relax%
-\expandafter\threech@r\@membera{}{}%
-\ifx\@memberb\@yl\else
-\ifcase\@tmpa%
-\or\put(0,0){\NWbond}%
-\or\put(0,0){\SWbond}%
-\or\put(230,0){\SEbond}%
-\or\put(230,0){\NEbond}%
-\fi%end of ifcase
-\fi\fi}%
-\end{picture}}%end of macro ethylene
-\let\ethyleneh=\ethylene
-\def\ylethylenepositiona#1{%
-\@@ylswfalse%%%\@reset@ylsw
-\@forsemicol\member:=#1\do{%
-\if@@ylsw\else
-\ifx\member\empty\else
-\expandafter\@m@mb@r\member;\relax
-\expandafter\threech@r\@membera{}{}\relax
-\ifx\@memberb\@yl\relax\@@ylswtrue\else\@@ylswfalse\fi
-\if@@ylsw
-\ifcase\@tmpa
- \or \gdef\@ylii{50}\gdef\@yli{-47}\global\@ylswtrue% NW subst. on 1
- \or \gdef\@ylii{50}\gdef\@yli{47}\global\@ylswtrue% SW subst. on 1
-\fi%end of ifcase
-\fi\fi\fi}}%
-\def\ylethylenepositionb#1{%
-\@@ylswfalse%%%\@reset@ylsw
-\@forsemicol\member:=#1\do{%
-\if@@ylsw\else
-\ifx\member\empty\else
-\expandafter\@m@mb@r\member;\relax
-\expandafter\threech@r\@membera{}{}\relax
-\ifx\@memberb\@yl\relax\@@ylswtrue\else\@@ylswfalse\fi
-\if@@ylsw
-\ifcase\@tmpa
- \or%omit
- \or%omit
- \or \gdef\@ylii{-40}\gdef\@yli{47}\global\@ylswtrue% SE subst. on 1
- \or \gdef\@ylii{-40}\gdef\@yli{-47}\global\@ylswtrue% NE subst. on 1
-\fi%end of ifcase
-\fi\fi\fi}}%
-\def\Ethylene{\@ifnextchar[{\@ethylene}{\@ethylene[]}}
-\def\@ethylene[#1]#2#3{%
-\@reset@ylsw%
-\ylethylenepositiona{#3}%
-\if@ylsw \ifx\@@ylii\empty
-\def\@@ylii{0}\def\@@yli{0}\fi
-\else
-\ylethylenepositionb{#3}%
-\fi
-\if@ylsw \ifx\@@ylii\empty
-\def\@@ylii{-230}\def\@@yli{0}\fi
-\fi
-\if@ylsw
- \yl@shiftii=\@ylii
- \yl@shifti=\@yli
- \advance\yl@shiftii\@@ylii
- \advance\yl@shifti\@@yli
- \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,600)(-300,-300)
-  \iforigpt \put(-300,-300){\circle*{50}}%
-           \put(-\noshift,-\noshift){\circle{50}}%
-   \typeout{command `ethylene' origin: %
-    (\the\noshift,\the\noshift) ---> (300,300)}\fi%
-\fi
-{\def\aaa{#1}\ifx\aaa\empty%
- \multiput(42,-13)(0,25){2}{\line(1,0){140}}\fi% double bond
-}%
-\@tfor\member:=#1\do{%
- \expandafter\twoch@@r\member{}{}%
-   \if\@@tmpa 1\relax {\putratom{-27}{60}{\scriptsize\@@tmpb}}%
-   \else\if\@@tmpa 2\relax {\putratom{203}{60}{\scriptsize\@@tmpb}}%
-   \else\if\@@tmpa d\relax%
-       {\multiput(42,-13)(0,25){2}{\line(1,0){140}}}% double bond
-   \else\if\@@tmpa t\relax%
-     {\multiput(42,-20)(0,20){3}{\line(1,0){140}}}% triple bond right
-   \fi\fi\fi\fi}%
-{\def\aaa{#2}%
-\ifx\aaa\empty%
-\putratom{-40}{-33}{C}%central atom
-\putratom{190}{-33}{C}%central atom
-\else%
-\@forsemicol\member:=#2\do{%
-\ifx\member\empty\else
-\expandafter\@m@mb@r\member;\relax%
-\expandafter\threech@r\@membera{}{}%
-\ifcase\@tmpa%
-\or\putratom{-40}{-33}{\@memberb}%central atom
-\or\putratom{190}{-33}{\@memberb}%central atom
-\fi\fi}%end of ifcase
-\fi%
-}%
-\@forsemicol\member:=#3\do{%
-\ifx\member\empty\else
-\expandafter\@m@mb@r\member;\relax%
-\expandafter\threech@r\@membera{}{}%
-\ifx\@memberb\@yl\else
-\ifcase\@tmpa%
-\or\put(0,0){\NWBOND}%
-\or\put(0,0){\SWBOND}%
-\or\put(230,0){\SEBOND}%
-\or\put(230,0){\NEBOND}%
-\fi%end of ifcase
-\fi\fi}%
-\end{picture}}%end of macro Ethylene
-\let\Ethyleneh=\Ethylene
-\def\ethylenev{\@ifnextchar[{\@ethylenev}{\@ethylenev[]}}
-\def\@ethylenev[#1]#2#3{%
-\@reset@ylsw%
-\ylethylenevpositiona{#3}%
-\if@ylsw \ifx\@@ylii\empty
-\def\@@ylii{0}\def\@@yli{0}\fi
-\else
-\ylethylenevpositionb{#3}%
-\fi
-\if@ylsw \ifx\@@ylii\empty
-\def\@@ylii{0}\def\@@yli{-230}\fi
-\fi
-\if@ylsw
- \yl@shiftii=\@ylii
- \yl@shifti=\@yli
- \advance\yl@shiftii\@@ylii
- \advance\yl@shifti\@@yli
- \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}(600,800)(-300,-300)
-  \iforigpt \put(-300,-300){\circle*{50}}%
-           \put(-\noshift,-\noshift){\circle{50}}%
-   \typeout{command `ethylenev' origin: %
-    (\the\noshift,\the\noshift) ---> (300,300)}\fi%
-\fi
-\def\aaa{#1}\ifx\aaa\empty%
-    \put(-20,47){\line(0,1){140}}% vertical
-    \put(6,47){\line(0,1){140}}\fi%  double bond
-\@tfor\member:=#1\do{%
- \expandafter\twoch@@r\member{}{}%
-   \if\@@tmpa 1\relax \putratom{37}{0}{\scriptsize\@@tmpb}
-   \else\if\@@tmpa 2\relax \putratom{37}{216}{\scriptsize\@@tmpb}
-   \else\if\@@tmpa d\relax%
-      \put(-13,47){\line(0,1){140}}% vertical
-      \put(13,47){\line(0,1){140}}%  double bond
-   \else\if\@@tmpa t\relax%
-      \put(-20,47){\line(0,1){140}}% vertical
-      \put(-0,47){\line(0,1){140}}%   triple bond
-      \put(20,47){\line(0,1){140}}%
-   \fi\fi\fi\fi}%
-\def\aaa{#2}%
-\ifx\aaa\empty%
-\putratom{-40}{-33}{C}%central atom
-\putratom{-40}{197}{C}%central atom
-\else%
-\@forsemicol\member:=#2\do{%
-\ifx\member\empty\else
-\expandafter\@m@mb@r\member;\relax%
-\expandafter\threech@r\@membera{}{}%
-\ifcase\@tmpa%
-\or\putratom{-40}{-33}{\@memberb}%central atom
-\or\putratom{-40}{197}{\@memberb}%central atom
-\fi\fi}%end of ifcase
-\fi%
-\@forsemicol\member:=#3\do{%
-\ifx\member\empty\else
-\expandafter\@m@mb@r\member;\relax%
-\expandafter\threech@r\@membera{}{}%
-\ifx\@memberb\@yl\else
-\ifcase\@tmpa%
-\or\put(0,0){\SWbond}%
-\or\put(0,0){\SEbond}%
-\or\put(0,230){\NEbond}%
-\or\put(0,230){\NWbond}%
-\fi%end of ifcase
-\fi\fi}%
-\end{picture}}%end of macro ethylenev
-\def\ylethylenevpositiona#1{%
-\@@ylswfalse%%%\@reset@ylsw
-\@forsemicol\member:=#1\do{%
-\if@@ylsw\else
-\ifx\member\empty\else
-\expandafter\@m@mb@r\member;\relax
-\expandafter\threech@r\@membera{}{}\relax
-\ifx\@memberb\@yl\relax\@@ylswtrue\else\@@ylswfalse\fi
-\if@@ylsw
-\ifcase\@tmpa
- \or \gdef\@ylii{50}\gdef\@yli{47}\global\@ylswtrue% SW subst. on 1
- \or \gdef\@ylii{-40}\gdef\@yli{47}\global\@ylswtrue% SE subst. on 1
-\fi%end of ifcase
-\fi\fi\fi}}%
-\def\ylethylenevpositionb#1{%
-\@@ylswfalse%%%\@reset@ylsw
-\@forsemicol\member:=#1\do{%
-\if@@ylsw\else
-\ifx\member\empty\else
-\expandafter\@m@mb@r\member;\relax
-\expandafter\threech@r\@membera{}{}\relax
-\ifx\@memberb\@yl\relax\@@ylswtrue\else\@@ylswfalse\fi
-\if@@ylsw
-\ifcase\@tmpa
- \or%omit
- \or%omit
- \or \gdef\@ylii{-40}\gdef\@yli{-47}\global\@ylswtrue% NE subst. on 1
- \or \gdef\@ylii{50}\gdef\@yli{-47}\global\@ylswtrue% NW subst. on 1
-\fi%end of ifcase
-\fi\fi\fi}}%
-\def\Ethylenev{\@ifnextchar[{\@Ethylenev}{\@Ethylenev[]}}
-\def\@Ethylenev[#1]#2#3{%
-\@reset@ylsw%
-\ylethylenevpositiona{#3}%
-\if@ylsw \ifx\@@ylii\empty
-\def\@@ylii{0}\def\@@yli{0}\fi
-\else
-\ylethylenevpositionb{#3}%
-\fi
-\if@ylsw \ifx\@@ylii\empty
-\def\@@ylii{0}\def\@@yli{-230}\fi
-\fi
-\if@ylsw
- \yl@shiftii=\@ylii
- \yl@shifti=\@yli
- \advance\yl@shiftii\@@ylii
- \advance\yl@shifti\@@yli
- \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}(600,800)(-300,-300)
-  \iforigpt \put(-300,-300){\circle*{50}}%
-           \put(-\noshift,-\noshift){\circle{50}}%
-   \typeout{command `Ethylenev' origin: %
-    (\the\noshift,\the\noshift) ---> (300,300)}\fi%
-\fi
-\def\aaa{#1}\ifx\aaa\empty%
-    \put(-20,47){\line(0,1){140}}% vertical
-    \put(6,47){\line(0,1){140}}\fi%  double bond
-\@tfor\member:=#1\do{%
- \expandafter\twoch@@r\member{}{}%
-   \if\@@tmpa 1\relax \putratom{37}{0}{\scriptsize\@@tmpb}
-   \else\if\@@tmpa 2\relax \putratom{37}{216}{\scriptsize\@@tmpb}
-   \else\if\@@tmpa d\relax%
-      \put(-13,47){\line(0,1){140}}% vertical
-      \put(13,47){\line(0,1){140}}%   double bond
-   \else\if\@@tmpa t\relax%
-      \put(-20,47){\line(0,1){140}}% vertical
-      \put(-0,47){\line(0,1){140}}%   triple bond
-      \put(20,47){\line(0,1){140}}%
-   \fi\fi\fi\fi}%
-\def\aaa{#2}%
-\ifx\aaa\empty%
-\putratom{-40}{-33}{C}%central atom
-\putratom{-40}{197}{C}%central atom
-\else%
-\@forsemicol\member:=#2\do{%
-\ifx\member\empty\else
-\expandafter\@m@mb@r\member;\relax%
-\expandafter\threech@r\@membera{}{}%
-\ifcase\@tmpa%
-\or\putratom{-40}{-33}{\@memberb}%central atom
-\or\putratom{-40}{197}{\@memberb}%central atom
-\fi\fi}%end of ifcase
-\fi%
-\@forsemicol\member:=#3\do{%
-\ifx\member\empty\else
-\expandafter\@m@mb@r\member;\relax%
-\expandafter\threech@r\@membera{}{}%
-\ifx\@memberb\@yl\else
-\ifcase\@tmpa%
-\or\put(0,0){\SWBond}%
-\or\put(0,0){\SEBond}%
-\or\put(0,230){\NEBond}%
-\or\put(0,230){\NWBond}%
-\fi%end of ifcase
-\fi\fi}%
-\end{picture}}%end of macro Ethylenev
-\def\square{\@ifnextchar[{\@square[r}{\@square[r]}}
-\def\@square#1]#2{%
-\@reset@ylsw%
-\ylsquareposition{#2}%
-\if@ylsw \ifx\@@ylii\empty
-\def\@@ylii{0}\def\@@yli{0}\fi
-\fi
-\if@ylsw
- \yl@shiftii=\@ylii
- \yl@shifti=\@yli
- \advance\yl@shiftii\@@ylii
- \advance\yl@shifti\@@yli
- \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}(600,600)(-300,-300)
-  \iforigpt \put(-300,-300){\circle*{50}}%
-           \put(-\noshift,-\noshift){\circle{50}}%
-   \typeout{command `square' origin: %
-    (\the\noshift,\the\noshift) ---> (300,300)}\fi%
-\fi
-\@tfor\member:=#1\do{%
-   \expandafter\twoch@@r\member{}{}%
-   \if\@@tmpa 0\relax {\putratom{37}{0}{\scriptsize\@@tmpb}}\fi}%
-\@forsemicol\member:=#2\do{%
-\ifx\member\empty\else
-\expandafter\@m@mb@r\member;\relax%
-\expandafter\threech@r\@membera{}{}%
-\ifx\@memberb\@yl\else
-\ifcase\@tmpa {\putlratom{-40}{-33}{\@memberb}}%central atom
-\or\put(0,0){\NEbond}%
-\or\put(0,0){\SEbond}%
-\or\put(0,0){\SWbond}%
-\or\put(0,0){\NWbond}%
-\fi%end of ifcase
-\fi\fi}%
-\end{picture}}%end of macro square
-\def\ylsquareposition#1{%
-\@@ylswfalse%%%\@reset@ylsw
-\@forsemicol\member:=#1\do{%
-\if@@ylsw\else
-\ifx\member\empty\else
-\expandafter\@m@mb@r\member;\relax
-\expandafter\threech@r\@membera{}{}\relax
-\ifx\@memberb\@yl\relax\@@ylswtrue\else\@@ylswfalse\fi
-\if@@ylsw
-\ifcase\@tmpa
- \or \gdef\@ylii{-40}\gdef\@yli{-47}\global\@ylswtrue% NE subst. on 1
- \or \gdef\@ylii{-40}\gdef\@yli{47}\global\@ylswtrue% SE subst. on 1
- \or \gdef\@ylii{50}\gdef\@yli{47}\global\@ylswtrue% SW subst. on 1
- \or \gdef\@ylii{50}\gdef\@yli{-47}\global\@ylswtrue% NW subst. on 1
-\fi%end of ifcase
-\fi\fi\fi}}%
-\def\tetrastereo{\@ifnextchar[{\@tetrastereo[r}{\@tetrastereo[r]}}
-\def\@tetrastereo#1]#2{%
-\begin{picture}(600,600)(-300,-300)
-  \iforigpt \put(-300,-300){\circle*{50}}%
-           \put(-\noshift,-\noshift){\circle{50}}%
-   \typeout{command `tetrastero' origin: %
-    (\the\noshift,\the\noshift) ---> (300,300)}\fi%
-\put(0,0){\circle{200}}%
-\@tfor\member:=#1\do{%
-   \expandafter\twoch@@r\member{}{}%
-   \if\@@tmpa 0\relax \putratom{87}{90}{\scriptsize\@@tmpb}\fi}%
-\@forsemicol\member:=#2\do{%
-\ifx\member\empty\else
-\expandafter\@m@mb@r\member;\relax%
-\expandafter\threech@r\@membera{}{}%
-\ifcase\@tmpa \putlratom{-40}{-33}{\@memberb}%central atom
-\or%
-   \put(0,100){\line(0,1){70}}% behind
-   \putlratom{-30}{180}{\@memberb}%   and up
-\or%
-  {\thicklines%
-   \put(-60,10){\line(-5,2){140}}%   in front
-   \putlatom{-205}{30}{\@memberb}}%  and left
-\or%
-   \put(0,-100){\line(0,-1){90}}%     behind and
-   \putlratom{-30}{-260}{\@memberb}% down
-\or%
-  {\thicklines%
-   \put(60,10){\line(5,2){140}}%     in front
-   \putratom{210}{30}{\@memberb}}%   and right
-\fi\fi}%end of ifcase
-\end{picture}}%end of macro tetrastereo
-\def\dtetrastereo{\@ifnextchar[{\@dtetrastereo[r}{\@dtetrastereo[r]}}
-\def\@dtetrastereo#1]#2{%
-\begin{picture}(600,600)(-300,-300)
-  \iforigpt \put(-300,-300){\circle*{50}}%
-           \put(-\noshift,-\noshift){\circle{50}}%
-   \typeout{command `dtetrastero' origin: %
-    (\the\noshift,\the\noshift) ---> (300,300)}\fi%
-\put(0,0){\circle{200}}%
-\@tfor\member:=#1\do{%
-   \expandafter\twoch@@r\member{}{}%
-   \if\@@tmpa 0\relax \putratom{87}{90}{\scriptsize\@@tmpb}\fi}%
-\@forsemicol\member:=#2\do{%
-\ifx\member\empty\else
-\expandafter\@m@mb@r\member;\relax%
-\expandafter\threech@r\@membera{}{}%
-\ifcase\@tmpa \putlratom{-40}{-33}{\@memberb}%central atom
-\or%
-   \put(0,100){\line(0,1){70}}% behind
-   \putlratom{-30}{180}{\@memberb}%   and up
-\or%
-   \put(-94,-10){\line(-5,-2){108}}%   in back
-   \putlatom{-205}{-110}{\@memberb}%  and left
-\or%
-  {\thicklines%
-   \put(0,-50){\line(0,-1){150}}%     behind and
-   \putlratom{-30}{-260}{\@memberb}}% down
-\or%
-   \put(94,-10){\line(5,-2){108}}%     in back
-   \putratom{210}{-110}{\@memberb}%   and right
-\fi\fi}%end of ifcase
-\end{picture}}%end of macro dtetrastereo
-\def\ethanestereo{\@ifnextchar[{\@ethanestereo}{\@ethanestereo[]}}
-\def\@ethanestereo[#1]#2#3{%
-\begin{picture}(600,800)(-300,-300)
-  \iforigpt \put(-300,-300){\circle*{50}}%
-           \put(-\noshift,-\noshift){\circle{50}}%
-   \typeout{command `ethanestereo' origin: %
-    (\the\noshift,\the\noshift) ---> (300,300)}\fi%
-\put(0,0){\circle{200}}%
-\put(0,270){\circle{200}}%
-\put(0,100){\line(0,1){70}}% central bond
-\@tfor\member:=#1\do{%
- \expandafter\twoch@@r\member{}{}%
-   \if\@@tmpa 1\relax \putratom{87}{90}{\scriptsize\@@tmpb}
-   \else\if\@@tmpa 2\relax \putratom{87}{360}{\scriptsize\@@tmpb}
-   \fi\fi}%
-\def\aaa{#2}%
-\ifx\aaa\empty\else%
-\@forsemicol\member:=#2\do{%
-\ifx\member\empty\else
-\expandafter\@m@mb@r\member;\relax%
-\expandafter\threech@r\@membera{}{}%
-\ifcase\@tmpa%
-\or\putratom{-40}{-33}{\@memberb}%central atom
-\or\putratom{-40}{237}{\@memberb}%central atom
-\fi\fi}%end of ifcase
-\fi%
-\@forsemicol\member:=#3\do{%
-\ifx\member\empty\else
-\expandafter\@m@mb@r\member;\relax%
-\expandafter\threech@r\@membera{}{}%
-\ifcase\@tmpa \putlratom{-40}{-33}{\@memberb}%central atom
-\or%
-   \put(-94,-10){\line(-5,-2){108}}%   in back
-   \putlatom{-205}{-110}{\@memberb}%  and left
-\or%
-  {\thicklines%
-   \put(0,-50){\line(0,-1){150}}%     behind and
-   \putlratom{-30}{-260}{\@memberb}}% down
-\or%
-   \put(94,-10){\line(5,-2){108}}%     in back
-   \putratom{210}{-110}{\@memberb}%   and right
-\or%
-  {\thicklines%
-   \put(60,280){\line(5,2){140}}%     in front
-   \putratom{210}{300}{\@memberb}}%   and right
-\or%
-   \put(0,370){\line(0,1){70}}% behind
-   \putlratom{-30}{450}{\@memberb}%   and up
-\or%
-  {\thicklines%
-   \put(-60,280){\line(-5,2){140}}%   in front
-   \putlatom{-205}{300}{\@memberb}}%  and left
-\fi\fi}%end of ifcase
-\end{picture}}%end of macro ethanestereo
-\endinput
-%%
-%% End of file `aliphat.sty'.
diff --git a/Master/texmf-dist/tex/latex/xymtex/carom.sty b/Master/texmf-dist/tex/latex/xymtex/carom.sty
deleted file mode 100644
index 88621f99597..00000000000
--- a/Master/texmf-dist/tex/latex/xymtex/carom.sty
+++ /dev/null
@@ -1,1369 +0,0 @@
-%%
-%% This is file `carom.sty',
-%% generated with the docstrip utility.
-%%
-%% The original source files were:
-%%
-%% carom.dtx  (with options: `carom')
-%% 
-%% This is a generated file.
-%% 
-%% Copyright 1996, 1988, 2000 by Shinsaku Fujita
-%% 
-%% This file is part of the XyMTeX system.
-%% =======================================
-%% 
-%% Version 1.01 Released on August 16, 1996
-%% Version 1.02 Released on October 31, 1998
-%% Version 2.00 Released on December 25, 1998
-%% Version 2.00a Released on June 14, 2000
-%% 
-%% Copyright (C) 1996,1998,2000 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: carom.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{carom}
-\def\versi@ndate{June 14, 2000}
-\def\versi@nno{ver2.00a}
-\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{decaheterov}{\input hetarom.sty\relax}{}
-\@ifundefined{decaheteroh}{\input hetaromh.sty\relax}{}
-\unitlength=0.1pt
-\def\cyclohexanev{\@ifnextchar[{\@cyclohexanev[@}{\@cyclohexanev[@]}}
-\def\@cyclohexanev[#1]#2{\sixheterov[#1]{}{#2}}
-\def\cyclohexaneh{\@ifnextchar[{\@cyclohexaneh[@}{\@cyclohexaneh[@]}}
-\def\@cyclohexaneh[#1]#2{\sixheteroh[#1]{}{#2}}
-\def\bzdrv{\@ifnextchar[{\@bzdrv}{\@bzdrv[r]}}
-\def\@bzdrv[#1]#2{%
-\iforigpt \typeout{command `bzdrv' is based on `cyclohexanev'.}\fi%
-\expandafter\twoCH@R#1//%
-\if\@tmpa r% right-handed set of double bonds
- \ifx\@tmpb\empty
-  \cyclohexanev[bdf]{#2}%
- \fi
-\else\if\@tmpa l%left-handed set of double bonds
- \ifx\@tmpb\empty
-  \cyclohexanev[ace]{#2}%
- \fi
-\else\if\@tmpa c%aromatic circle
- \ifx\@tmpb\empty
-  \cyclohexanev[A]{#2}%
- \fi
-\else\if\@tmpa p%p-quinone
- \if\@tmpb a% (A)
-  \cyclohexanev[be]{#2}%
- \else\ifx\@tmpb\empty% (A)
-  \cyclohexanev[be]{#2}%
- \else\if\@tmpb b% (B)
-  \cyclohexanev[cf]{#2}%
- \else\if\@tmpb c% (C)
-  \cyclohexanev[ad]{#2}%
- \fi\fi\fi\fi%
-\else\if\@tmpa o%o-quinone
-  \if\@tmpb a% (A)%
-   \cyclohexanev[ce]{#2}%
-  \else\ifx\@tmpb\empty% (A)
-   \cyclohexanev[ce]{#2}%
-  \else\if\@tmpb b%o-quinone (B)
-   \cyclohexanev[df]{#2}%
-  \else\if\@tmpb c%o-quinone (C)
-   \cyclohexanev[ae]{#2}%
-  \else\if\@tmpb d%o-quinone (D)
-   \cyclohexanev[bf]{#2}%
-  \else\if\@tmpb e%o-quinone (E)
-   \cyclohexanev[ac]{#2}%
-  \else\if\@tmpb f%o-quinone (F)
-   \cyclohexanev[bd]{#2}%
-  \fi\fi\fi\fi\fi\fi\fi%
-\else% added 1998/11/15 by S. Fujita
-   \cyclohexanev[@#1]{#2}%
-\fi\fi\fi\fi\fi%
-}%               %end of \bzdrv macro
-\def\bzdrh{\@ifnextchar[{\@bzdrh}{\@bzdrh[r]}}
-\def\@bzdrh[#1]#2{%
-\iforigpt \typeout{command `bzdrh' is based on `cyclohexaneh'.}\fi%
-\expandafter\twoCH@R#1//%
-\if\@tmpa r% right-handed set of double bonds
-  \cyclohexaneh[bdf]{#2}%
-\else\if\@tmpa l%left-handed set of double bonds
-  \cyclohexaneh[ace]{#2}%
-\else\if\@tmpa c%aromatic circle
-  \cyclohexaneh[A]{#2}%
-\else\if\@tmpa p%p-quinone
- \if\@tmpb a% (A)
-  \cyclohexaneh[be]{#2}%
- \else\ifx\@tmpb\empty% (A)
-  \cyclohexaneh[be]{#2}%
- \else\if\@tmpb b% (B)
-  \cyclohexaneh[cf]{#2}%
- \else\if\@tmpb c% (C)
-  \cyclohexaneh[ad]{#2}%
- \fi\fi\fi\fi%
-\else\if\@tmpa o%o-quinone
-  \if\@tmpb a% (A)%
-   \cyclohexaneh[ce]{#2}%
-  \else\ifx\@tmpb\empty% (A)
-   \cyclohexaneh[ce]{#2}%
-  \else\if\@tmpb b%o-quinone (B)
-   \cyclohexaneh[df]{#2}%
-  \else\if\@tmpb c%o-quinone (C)
-   \cyclohexaneh[ae]{#2}%
-  \else\if\@tmpb d%o-quinone (D)
-   \cyclohexaneh[bf]{#2}%
-  \else\if\@tmpb e%o-quinone (E)
-   \cyclohexaneh[ac]{#2}%
-  \else\if\@tmpb f%o-quinone (F)
-   \cyclohexaneh[bd]{#2}%
-  \fi\fi\fi\fi\fi\fi\fi%
-\else% added 1998/11/15 by S. Fujita
-   \cyclohexaneh[@#1]{#2}%
-\fi\fi\fi\fi\fi%
-}%               %end of \bzdrh macro
-\def\decalinev{\@ifnextchar[{\@decalinev[@}{\@decalinev[@]}}
-\def\@decalinev[#1]#2{%
-\iforigpt \typeout{command `decalinev' is based on `decaheterov'.}\fi%
-\decaheterov[#1]{}{#2}}
-\def\decalinevb{\@ifnextchar[{\@decalinevb[@}{\@decalinevb[@]}}
-\def\@decalinevb[#1]#2{%
-\iforigpt \typeout{command `decalinevb' is based on `decaheterovb'.}\fi%
-\decaheterovb[#1]{}{#2}}
-\def\decalinevt{\@ifnextchar[{\@decalinevt[@}{\@decalinevt[@]}}
-\def\@decalinevt[#1]#2{%
-\iforigpt \typeout{command `decalinevt' is based on `decaheterovt'.}\fi%
-\decaheterovt[#1]{}{#2}}
-\def\decalineh{\@ifnextchar[{\@decalineh[@}{\@decalineh[@]}}
-\def\@decalineh[#1]#2{%
-\iforigpt \typeout{command `decalineh' is based on `decaheteroh'.}\fi%
-\decaheteroh[#1]{}{#2}}
-\def\naphdrv{\@ifnextchar[{\@naphdrv}{\@naphdrv[r]}}
-\def\@naphdrv[#1]#2{%
-\iforigpt \typeout{command `naphdrv' is based on `decalinev'.}\fi%
- \expandafter\threech@r#1{}{}%
-\if\@tmpa r% right-handed set of double bonds
-  \decalinev[acfhk]{#2}%
-\else\if\@tmpa A%aromatic circle
-  \decalinev[AB]{#2}%
-\else\if\@tmpa p%p-quinone
- \if\@tmpb a% (A)
-  \decalinev[bfhk]{#2}%
- \else\ifx\@tmpb\empty% (A)
-  \decalinev[bfhk]{#2}%
- \else\if\@tmpb b% (B)
-  \decalinev[acgk]{#2}%
- \fi\fi\fi%
-\else%
- \if\@tmpa o%o-quinone
-  \if\@tmpb a% (A)
-   \decalinev[cfhk]{#2}%
-  \else\ifx\@tmpb\empty% (A)
-   \decalinev[cfhk]{#2}%
-  \else\if\@tmpb b%o-quinone (B)
-   \decalinev[dfhj]{#2}%
-  \else\if\@tmpb c%o-quinone (C)
-   \decalinev[afhk]{#2}%
-  \else\if\@tmpb d%o-quinone (D)
-   \decalinev[achk]{#2}%
-  \else\if\@tmpb e%o-quinone (E)
-   \decalinev[acei]{#2}%
-  \else\if\@tmpb f%o-quinone (F)
-   \decalinev[acfk]{#2}%
-  \fi\fi\fi\fi\fi\fi%
-  \fi%
-%%%
-\else\if\@tmpa q%various quinone
-  \if\@tmpb a% (A)2,6-type
-   \decalinev[cehj]{#2}%
-  \else\ifx\@tmpb\empty% (A)2,6-type
-   \decalinev[cehj]{#2}%
-  \else\if\@tmpb b%2,6-quinone (B)
-   \decalinev[adfi]{#2}%
-  \else\if\@tmpb c%1,5-quinone (C)
-   \decalinev[bdgi]{#2}%
-  \else\if\@tmpb d%1,5-quinone (D)
-   \decalinev[begj]{#2}%
-  \else\if\@tmpb e%1,7-quinone (E)
-   \decalinev[bdfi]{#2}%
-  \else\if\@tmpb f%1,7-quinone (F)
-   \decalinev[cegj]{#2}%
-  \else\if\@tmpb g%1,7-quinone (G)
-   \decalinev[behj]{#2}%
-  \else\if\@tmpb h%1,7-quinone (H)
-   \decalinev[adgi]{#2}%
-  \fi\fi\fi\fi\fi\fi\fi\fi\fi%
-\else\if\@tmpa P%quinone having 4 carbonyl groups
-  \if\@tmpb a% (A)1,4,5,8-type
-   \decalinev[bgk]{#2}%
-  \else\ifx\@tmpb\empty% (A)1,4,5,8-type
-   \decalinev[bgk]{#2}%
-  \else\if\@tmpb b% (B)1,2,5,8-type
-   \decalinev[cgk]{#2}%
-  \fi\fi\fi%
-\else\if\@tmpa Q%1,2,3,4
-   \decalinev[fhk]{#2}%
-\else\if\@tmpa O%quinone having 4 carbonyl groups
-  \if\@tmpb a% (A)1,2,5,6-type
-   \decalinev[chk]{#2}%
-  \else\ifx\@tmpb\empty% (A)1,2,5,6-type
-   \decalinev[chk]{#2}%
-  \else\if\@tmpb b% (B)1,2,7,8-type
-   \decalinev[cfk]{#2}%
-  \else\if\@tmpb c% (C)1,2,3,5-type
-   \decalinev[dgi]{#2}%
-  \else\if\@tmpb d% (D)1,2,3,7-type
-   \decalinev[dfi]{#2}%
-  \fi\fi\fi\fi\fi%
-\else% added 1998/11/23 by S. Fujita
-   \decalinev[@#1]{#2}%
-\fi\fi\fi\fi\fi\fi\fi\fi%
-}%               %end of \naphdrv macro
-\def\naphdrvb{\@ifnextchar[{\@naphdrvb}{\@naphdrvb[r]}}
-\def\@naphdrvb[#1]#2{%
-\iforigpt \typeout{command `naphdrvb' is based on `decalinevb'.}\fi%
- \expandafter\threech@r#1{}{}%
-\if\@tmpa r% right-handed set of double bonds
-  \decalinevb[acfhk]{#2}%
-\else\if\@tmpa A%aromatic circle
-  \decalinevb[AB]{#2}%
-\else\if\@tmpa p%p-quinone
- \if\@tmpb a% (A)
-  \decalinevb[bfhk]{#2}%
- \else\ifx\@tmpb\empty% (A)
-  \decalinevb[bfhk]{#2}%
- \else\if\@tmpb b% (B)
-  \decalinevb[acgk]{#2}%
- \fi\fi\fi%
-\else%
- \if\@tmpa o%o-quinone
-  \if\@tmpb a% (A)
-   \decalinevb[cfhk]{#2}%
-  \else\ifx\@tmpb\empty% (A)
-   \decalinevb[cfhk]{#2}%
-  \else\if\@tmpb b%o-quinone (B)
-   \decalinevb[dfhj]{#2}%
-  \else\if\@tmpb c%o-quinone (C)
-   \decalinevb[afhk]{#2}%
-  \else\if\@tmpb d%o-quinone (D)
-   \decalinevb[achk]{#2}%
-  \else\if\@tmpb e%o-quinone (E)
-   \decalinevb[acei]{#2}%
-  \else\if\@tmpb f%o-quinone (F)
-   \decalinevb[acfk]{#2}%
-  \fi\fi\fi\fi\fi\fi%
-  \fi%
-%%%
-\else\if\@tmpa q%various quinone
-  \if\@tmpb a% (A)2,6-type
-   \decalinevb[cehj]{#2}%
-  \else\ifx\@tmpb\empty% (A)2,6-type
-   \decalinevb[cehj]{#2}%
-  \else\if\@tmpb b%2,6-quinone (B)
-   \decalinevb[adfi]{#2}%
-  \else\if\@tmpb c%1,5-quinone (C)
-   \decalinevb[bdgi]{#2}%
-  \else\if\@tmpb d%1,5-quinone (D)
-   \decalinevb[begj]{#2}%
-  \else\if\@tmpb e%1,7-quinone (E)
-   \decalinevb[bdfi]{#2}%
-  \else\if\@tmpb f%1,7-quinone (F)
-   \decalinevb[cegj]{#2}%
-  \else\if\@tmpb g%1,7-quinone (G)
-   \decalinevb[behj]{#2}%
-  \else\if\@tmpb h%1,7-quinone (H)
-   \decalinevb[adgi]{#2}%
-  \fi\fi\fi\fi\fi\fi\fi\fi\fi%
-\else\if\@tmpa P%quinone having 4 carbonyl groups
-  \if\@tmpb a% (A)1,4,5,8-type
-   \decalinevb[bgk]{#2}%
-  \else\ifx\@tmpb\empty% (A)1,4,5,8-type
-   \decalinevb[bgk]{#2}%
-  \else\if\@tmpb b% (B)1,2,5,8-type
-   \decalinevb[cgk]{#2}%
-  \fi\fi\fi%
-\else\if\@tmpa Q%1,2,3,4
-   \decalinevb[fhk]{#2}%
-\else\if\@tmpa O%quinone having 4 carbonyl groups
-  \if\@tmpb a% (A)1,2,5,6-type
-   \decalinevb[chk]{#2}%
-  \else\ifx\@tmpb\empty% (A)1,2,5,6-type
-   \decalinevb[chk]{#2}%
-  \else\if\@tmpb b% (B)1,2,7,8-type
-   \decalinevb[cfk]{#2}%
-  \else\if\@tmpb c% (C)1,2,3,5-type
-   \decalinevb[dgi]{#2}%
-  \else\if\@tmpb d% (D)1,2,3,7-type
-   \decalinevb[dfi]{#2}%
-  \fi\fi\fi\fi\fi%
-\else% added 1998/11/23 by S. Fujita
-   \decalinevb[@#1]{#2}%
-\fi\fi\fi\fi\fi\fi\fi\fi%
-}%               %end of \naphdrvb macro
-\def\naphdrvt{\@ifnextchar[{\@naphdrvt}{\@naphdrvt[r]}}
-\def\@naphdrvt[#1]#2{%
-\iforigpt \typeout{command `naphdrvt' is based on `decalinevt'.}\fi%
- \expandafter\threech@r#1{}{}%
-\if\@tmpa r% right-handed set of double bonds
-  \decalinevt[acfhk]{#2}%
-\else\if\@tmpa A%aromatic circle
-  \decalinevt[AB]{#2}%
-\else\if\@tmpa p%p-quinone
- \if\@tmpb a% (A)
-  \decalinevt[bfhk]{#2}%
- \else\ifx\@tmpb\empty% (A)
-  \decalinevt[bfhk]{#2}%
- \else\if\@tmpb b% (B)
-  \decalinevt[acgk]{#2}%
- \fi\fi\fi%
-\else%
- \if\@tmpa o%o-quinone
-  \if\@tmpb a% (A)
-   \decalinevt[cfhk]{#2}%
-  \else\ifx\@tmpb\empty% (A)
-   \decalinevt[cfhk]{#2}%
-  \else\if\@tmpb b%o-quinone (B)
-   \decalinevt[dfhj]{#2}%
-  \else\if\@tmpb c%o-quinone (C)
-   \decalinevt[afhk]{#2}%
-  \else\if\@tmpb d%o-quinone (D)
-   \decalinevt[achk]{#2}%
-  \else\if\@tmpb e%o-quinone (E)
-   \decalinevt[acei]{#2}%
-  \else\if\@tmpb f%o-quinone (F)
-   \decalinevt[acfk]{#2}%
-  \fi\fi\fi\fi\fi\fi%
-  \fi%
-%%%
-\else\if\@tmpa q%various quinone
-  \if\@tmpb a% (A)2,6-type
-   \decalinevt[cehj]{#2}%
-  \else\ifx\@tmpb\empty% (A)2,6-type
-   \decalinevt[cehj]{#2}%
-  \else\if\@tmpb b%2,6-quinone (B)
-   \decalinevt[adfi]{#2}%
-  \else\if\@tmpb c%1,5-quinone (C)
-   \decalinevt[bdgi]{#2}%
-  \else\if\@tmpb d%1,5-quinone (D)
-   \decalinevt[begj]{#2}%
-  \else\if\@tmpb e%1,7-quinone (E)
-   \decalinevt[bdfi]{#2}%
-  \else\if\@tmpb f%1,7-quinone (F)
-   \decalinevt[cegj]{#2}%
-  \else\if\@tmpb g%1,7-quinone (G)
-   \decalinevt[behj]{#2}%
-  \else\if\@tmpb h%1,7-quinone (H)
-   \decalinevt[adgi]{#2}%
-  \fi\fi\fi\fi\fi\fi\fi\fi\fi%
-\else\if\@tmpa P%quinone having 4 carbonyl groups
-  \if\@tmpb a% (A)1,4,5,8-type
-   \decalinevt[bgk]{#2}%
-  \else\ifx\@tmpb\empty% (A)1,4,5,8-type
-   \decalinevt[bgk]{#2}%
-  \else\if\@tmpb b% (B)1,2,5,8-type
-   \decalinevt[cgk]{#2}%
-  \fi\fi\fi%
-\else\if\@tmpa Q%1,2,3,4
-   \decalinevt[fhk]{#2}%
-\else\if\@tmpa O%quinone having 4 carbonyl groups
-  \if\@tmpb a% (A)1,2,5,6-type
-   \decalinevt[chk]{#2}%
-  \else\ifx\@tmpb\empty% (A)1,2,5,6-type
-   \decalinevt[chk]{#2}%
-  \else\if\@tmpb b% (B)1,2,7,8-type
-   \decalinevt[cfk]{#2}%
-  \else\if\@tmpb c% (C)1,2,3,5-type
-   \decalinevt[dgi]{#2}%
-  \else\if\@tmpb d% (D)1,2,3,7-type
-   \decalinevt[dfi]{#2}%
-  \fi\fi\fi\fi\fi%
-\else% added 1998/11/23 by S. Fujita
-   \decalinevt[@#1]{#2}%
-\fi\fi\fi\fi\fi\fi\fi\fi%
-}%               %end of \naphdrvt macro
-\def\naphdrh{\@ifnextchar[{\@naphdrh}{\@naphdrh[r]}}
-\def\@naphdrh[#1]#2{%
-\iforigpt \typeout{command `nathdrh' is based on `decalineh'.}\fi%
- \expandafter\threech@r#1{}{}%
-\if\@tmpa r% right-handed set of double bonds
-  \decalineh[acfhk]{#2}%
-\else\if\@tmpa A%aromatic circle
-  \decalineh[AB]{#2}%
-\else\if\@tmpa p%p-quinone
- \if\@tmpb a% (A)
-  \decalineh[bfhk]{#2}%
- \else\ifx\@tmpb\empty% (A)
-  \decalineh[bfhk]{#2}%
- \else\if\@tmpb b% (B)
-  \decalineh[acgk]{#2}%
- \fi\fi\fi%
-\else%
- \if\@tmpa o%o-quinone
-  \if\@tmpb a% (A)
-   \decalineh[cfhk]{#2}%
-  \else\ifx\@tmpb\empty% (A)
-   \decalineh[cfhk]{#2}%
-  \else\if\@tmpb b%o-quinone (B)
-   \decalineh[dfhj]{#2}%
-  \else\if\@tmpb c%o-quinone (C)
-   \decalineh[afhk]{#2}%
-  \else\if\@tmpb d%o-quinone (D)
-   \decalineh[achk]{#2}%
-  \else\if\@tmpb e%o-quinone (E)
-   \decalineh[acei]{#2}%
-  \else\if\@tmpb f%o-quinone (F)
-   \decalineh[acfk]{#2}%
-  \fi\fi\fi\fi\fi\fi%
-  \fi%
-\else\if\@tmpa q%various quinone
-  \if\@tmpb a% (A)2,6-type
-   \decalineh[cehj]{#2}%
-  \else\ifx\@tmpb\empty% (A)2,6-type
-   \decalineh[cehj]{#2}%
-  \else\if\@tmpb b%2,6-quinone (B)
-   \decalineh[adfi]{#2}%
-  \else\if\@tmpb c%1,5-quinone (C)
-   \decalineh[bdgi]{#2}%
-  \else\if\@tmpb d%1,5-quinone (D)
-   \decalineh[begj]{#2}%
-  \else\if\@tmpb e%1,7-quinone (E)
-   \decalineh[bdfi]{#2}%
-  \else\if\@tmpb f%1,7-quinone (F)
-   \decalineh[cegj]{#2}%
-  \else\if\@tmpb g%1,7-quinone (G)
-   \decalineh[behj]{#2}%
-  \else\if\@tmpb h%1,7-quinone (H)
-   \decalineh[adgi]{#2}%
-  \fi\fi\fi\fi\fi\fi\fi\fi\fi%
-\else\if\@tmpa P%quinone having 4 carbonyl groups
-  \if\@tmpb a% (A)1,4,5,8-type
-   \decalineh[bgk]{#2}%
-  \else\ifx\@tmpb\empty% (A)1,4,5,8-type
-   \decalineh[bgk]{#2}%
-  \else\if\@tmpb b% (B)1,2,5,8-type
-   \decalineh[cgk]{#2}%
-  \fi\fi\fi%
-\else\if\@tmpa Q%1,2,3,4
-   \decalineh[fhk]{#2}%
-\else\if\@tmpa O%quinone having 4 carbonyl groups
-  \if\@tmpb a% (A)1,2,5,6-type
-   \decalineh[chk]{#2}%
-  \else\ifx\@tmpb\empty% (A)1,2,5,6-type
-   \decalineh[chk]{#2}%
-  \else\if\@tmpb b% (B)1,2,7,8-type
-   \decalineh[cfk]{#2}%
-  \else\if\@tmpb c% (C)1,2,3,5-type
-   \decalineh[dgi]{#2}%
-  \else\if\@tmpb d% (D)1,2,3,7-type
-   \decalineh[dfi]{#2}%
-  \fi\fi\fi\fi\fi%
-\else% added 1998/11/23 by S. Fujita
-   \decalineh[@#1]{#2}%
-\fi\fi\fi\fi\fi\fi\fi\fi%
-}%               %end of \naphdrh macro
-\def\tetralinev{\@ifnextchar[{\@tetralinev}{\@tetralinev[r]}}
-\def\@tetralinev[#1]#2{%
- \iforigpt \typeout{command `tetralinev' is based on `decalinev'.}\fi%
- \expandafter\threech@r#1{}{}%
- \if\@tmpa r% right-handed set of double bonds
-    \decalinev[fhk]{#2}%
- \else\if\@tmpa A%aromatic circle
-    \decalinev[A]{#2}%
- \else\if\@tmpa e%inner double bond
-  \if\@tmpb a% (A)%
-    \decalinev[afhk]{#2}%
-  \else\ifx\@tmpb\empty% (A)
-    \decalinev[afhk]{#2}%
-  \else\if\@tmpb b% (B)
-    \decalinev[bfhk]{#2}%
-  \else\if\@tmpb c% (C)
-    \decalinev[cfhk]{#2}%
-  \fi\fi\fi\fi%
- \else%1998/11/23 by Shinsaku Fujita
-    \decalinev[@#1]{#2}%
- \fi\fi\fi%
-}%               %end of \tetralinev macro
-\def\tetralinevb{\@ifnextchar[{\@tetralinevb}{\@tetralinevb[r]}}
-\def\@tetralinevb[#1]#2{%
- \iforigpt \typeout{command `tetralinevb' is based on `decalinevb'.}\fi%
- \expandafter\threech@r#1{}{}%
- \if\@tmpa r% right-handed set of double bonds
-    \decalinevb[fhK]{#2}%  %[fhK] in place of [fhk]
- \else\if\@tmpa A%aromatic circle
-    \decalinevb[A]{#2}%
- \else\if\@tmpa e%inner double bond
-  \if\@tmpb a% (A)%
-    \decalinevb[afhK]{#2}%
-  \else\ifx\@tmpb\empty% (A)
-    \decalinevb[afhK]{#2}%
-  \else\if\@tmpb b% (B)
-    \decalinevb[bfhK]{#2}%
-  \else\if\@tmpb c% (C)
-    \decalinevb[cfhK]{#2}%
-  \fi\fi\fi\fi%
- \else%1998/11/23 by Shinsaku Fujita
-    \decalinevb[@#1]{#2}%
- \fi\fi\fi%
-}%               %end of \tetralinevb macro
-\def\tetralinevt{\@ifnextchar[{\@tetralinevt}{\@tetralinevt[r]}}
-\def\@tetralinevt[#1]#2{%
- \iforigpt \typeout{command `tetralinevt' is based on `decalinevt'.}\fi%
- \expandafter\threech@r#1{}{}%
- \if\@tmpa r% right-handed set of double bonds
-    \decalinevt[fhk]{#2}%
- \else\if\@tmpa A%aromatic circle
-    \decalinevt[A]{#2}%
- \else\if\@tmpa e%inner double bond
-  \if\@tmpb a% (A)%
-    \decalinevt[afhk]{#2}%
-  \else\ifx\@tmpb\empty% (A)
-    \decalinevt[afhk]{#2}%
-  \else\if\@tmpb b% (B)
-    \decalinevt[bfhk]{#2}%
-  \else\if\@tmpb c% (C)
-    \decalinevt[cfhk]{#2}%
-  \fi\fi\fi\fi%
- \else%1998/11/23 by Shinsaku Fujita
-    \decalinevt[@#1]{#2}%
- \fi\fi\fi%
-}%               %end of \tetralinevt macro
-\def\tetralineh{\@ifnextchar[{\@tetralineh}{\@tetralineh[r]}}
-\def\@tetralineh[#1]#2{%
- \iforigpt \typeout{command `tetralineh' is based on `decalineh'.}\fi%
- \expandafter\threech@r#1{}{}%
- \if\@tmpa r% right-handed set of double bonds
-    \decalineh[fhk]{#2}%
- \else\if\@tmpa A%aromatic circle
-    \decalineh[A]{#2}%
- \else\if\@tmpa e%inner double bond
-  \if\@tmpb a% (A)%
-    \decalineh[afhk]{#2}%
-  \else\ifx\@tmpb\empty% (A)
-    \decalineh[afhk]{#2}%
-  \else\if\@tmpb b% (B)
-    \decalineh[bfhk]{#2}%
-  \else\if\@tmpb c% (C)
-    \decalineh[cfhk]{#2}%
-  \fi\fi\fi\fi%
-\else% added 1998/11/23 by S. Fujita
-   \decalineh[@#1]{#2}%
- \fi\fi\fi%
-}%               %end of \tetralineh macro
-\def\hanthracenev{\@ifnextchar[{\@hanthracenev[@}{\@hanthracenev[r]}}
-\def\@hanthracenev[#1]#2{%
-\@reset@ylsw\reset@@yl
-\ylposition{#2}{-7}{0}{2}{0}%  %for 8 positions
-\if@ylsw \ifx\@@ylii\empty
-\def\@@ylii{0}\def\@@yli{0}\fi
-\else\ylposition{#2}{-1}{3}{7}{0}% for 5 to 7 positions
-\fi
-\if@ylsw\ifx\@@ylii\empty
-\def\@@ylii{0}\def\@@yli{0}\fi\else
-\ylposition{#2}{0}{0}{5}{0}% for 1 to 4 positions
-\fi
-\if@ylsw\ifx\@@ylii\empty
-\def\@@ylii{-684}\def\@@yli{0}\fi\else
-\ylposition{#2}{-8}{0}{2}{0}%for 9-position
-\fi
-\if@ylsw\ifx\@@ylii\empty
-\def\@@ylii{-342}\def\@@yli{0}\fi\else
-\ylposition{#2}{-6}{3}{5}{0}%for 10-position
-\fi
-\if@ylsw\ifx\@@ylii\empty
-\def\@@ylii{-342}\def\@@yli{0}\fi\else
-\ylfusedposition{#2}{-11}{-1}{1}{0}% for 9a and 4a
-\fi
-\if@ylsw\ifx\@@ylii\empty
-\def\@@ylii{-342}\def\@@yli{0}\fi\else
-\ylfusedposition{#2}{-12}{-1}{1}{0}% for 8a and 10a
-\fi
-\if@ylsw\ifx\@@ylii\empty
-\def\@@ylii{0}\def\@@yli{0}\fi\fi
-\if@ylsw
- \yl@shiftii=\@ylii
- \ifx\@@ylii\empty\else
- \advance\yl@shiftii\@@ylii\fi
- \yl@shifti=\@yli
- \ifx\@@yli\empty\else
- \advance\yl@shifti\@@yli\fi
- \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}(1200,880)(-\shiftii,-\shifti)
-  \iforigpt \put(-\shiftii,-\shifti){\circle*{50}}%
-           \put(-\noshift,-\noshift){\circle{50}}%
-   \typeout{command `hanthracenev' origin: %
-    (\the\noshift,\the\noshift) ---> (\the\shiftii,\the\shifti)}\fi%
-\fi
-  \put(0,406){\line(-5,-3){171}}%       %bond 8-7
-  \put(0,406){\line(5,-3){171}}%        %bond 8-8a
-  \put(0,0){\line(-5,3){171}}%          %bond 5-6
-  \put(0,0){\line(5,3){171}}%           %bond 5-10a
-  \put(171,103){\line(0,1){200}}%       %bond 10a-8a
-  \put(-171,103){\line(0,1){200}}%      %bond 6-7
-  \put(342,406){\line(-5,-3){171}}%     %bond 9-8a
-  \put(342,406){\line(5,-3){171}}%      %bond 9-9a
-  \put(342,0){\line(-5,3){171}}%        %bond 10-10a
-  \put(342,0){\line(5,3){171}}%         %bond 10-4a
-  \put(513,103){\line(0,1){200}}%       %bond 4a-9a
-  %%%%
-  \put(684,406){\line(-5,-3){171}}%     %bond 1-9a    1-6
-  \put(684,406){\line(5,-3){171}}%      %bond 1-2     1-2
-  \put(855,103){\line(0,1){200}}%       %bond 3-2     3-2
-  \put(684,0){\line(5,3){171}}%         %bond 4-3     4-3
-  \put(684,0){\line(-5,3){171}}%        %bond 4-4a    4-5
-\@tfor\member:=#1\do{%
-\if\member r%no endcyclic double bonds
-\else\if\member a%
-  \put(690,364){\line(5,-3){126}}%      %double bond 1-2
-\else\if\member b%
-  \put(822,129){\line(0,1){148}}%       %double bond 3-2
-\else\if\member c%
-  \put(690,42){\line(5,3){126}}%        %double bond 4-3
-\else\if\member d%
-  \put(690,42){\line(-5,3){126}}%       %double bond 4-4a
-\else\if\member e%
-  \put(348,42){\line(5,3){126}}%        %double bond 10-4a
-\else\if\member f%
-  \put(348,42){\line(-5,3){126}}%       %double bond 10-10a
-\else\if\member g%
-  \put(6,42){\line(5,3){126}}%          %double bond 5-10a
-\else\if\member h%
-  \put(-6,42){\line(-5,3){126}}%        %double bond 5-6
-\else\if\member i%
-  \put(-138,129){\line(0,1){148}}%      %double bond 6-7
-\else\if\member j%
-  \put(-6,364){\line(-5,-3){126}}%      %double bond 8-7
-\else\if\member k%
-  \put(6,364){\line(5,-3){126}}%        %double bond 8-8a
-\else\if\member l%
-  \put(348,364){\line(-5,-3){126}}%     %double bond 9-8a
-\else\if\member m%
-  \put(348,364){\line(5,-3){126}}%      %double bond 9-9a
-\else\if\member n%
-  \put(690,364){\line(-5,-3){126}}%     %double bond 1-9a
-\else\if\member o%
-  \put(544,129){\line(0,1){148}}%       %double bond 4a-9a
-\else\if\member O%
-  \put(482,129){\line(0,1){148}}%       %double bond 4a-9a at the other ring
-\else\if\member p%
-  \put(138,129){\line(0,1){148}}%       %double bond 10a-8a
-\else\if\member P%
-  \put(204,129){\line(0,1){148}}%       %double bond 10a-8a at the other ring
-\else\if\member C%left aromatic circle
-  \put(0,203){\circle{240}}            %circle
-\else\if\member B%right aromatic circle
-  \put(342,203){\circle{240}}%          %circle
-\else\if\member A%right aromatic circle
-  \put(684,203){\circle{240}}%          %circle
-\else
-  \expandafter\twoCH@R\member//%
-  \set@fusion@hanthrav
-\fi\fi\fi\fi\fi\fi\fi\fi\fi\fi\fi\fi\fi\fi\fi\fi\fi\fi\fi\fi\fi\fi}
-\put(0,0){\setsixringv{#2}{-7}{0}{2}{0}}%  %for 8 positions
-\put(0,0){\setsixringv{#2}{-1}{3}{7}{0}}%  %for 5 to 7 positions
-\put(684,0){\setsixringv{#2}{0}{0}{5}{0}}% %for 1 to 4 positions
-\put(342,0){\setsixringv{#2}{-8}{0}{2}{0}}%for 9-position
-\put(342,0){\setsixringv{#2}{-6}{3}{5}{0}}%for 10-position
-\put(0,0){\setfusedbond{#2}{-12}{-1}{1}{0}}% for 8a and 10a
-\put(342,0){\setfusedbond{#2}{-11}{-1}{1}{0}}% for 9a and 4a
-\end{picture}}%               %end of \hanthracenev macro%
-\def\anthracenev{\@ifnextchar[{\@anthracenev}{\@anthracenev[r]}}
-\def\@anthracenev[#1]#2{%
- \iforigpt \typeout{command `anthracenev' is %
-                    based on `hanthracenev'.}\fi%
-%% \expandafter\threech@r#1{}{}%error1998/11/23 by Shinsaku Fujita
- \expandafter\twoCH@R#1//%
- \if\@tmpa r% right-handed set of double bonds
-    \hanthracenev[acflhjo]{#2}%
- \else\if\@tmpa l% left-handed set of double bonds
-    \hanthracenev[acehjmp]{#2}%
- \else\if\@tmpa A%aromatic circle
-    \hanthracenev[ABC]{#2}%
- \else\if\@tmpa p%9,10-quinone
-  \if\@tmpb a% (A)%
-    \hanthracenev[achjop]{#2}%
-   \else\ifx\@tmpb\empty% (A)
-    \hanthracenev[achjop]{#2}%
-   \else\if\@tmpb A% circle type
-    \hanthracenev[AC]{#2}%
-   \else
-    \hanthracenev[achjop]{#2}%
-  \fi\fi\fi%
- \else\if\@tmpa o%o-quinone
-  \if\@tmpb a% (A)%
-    \hanthracenev[cfjhlo]{#2}%
-   \else\ifx\@tmpb\empty% (A)
-    \hanthracenev[cehjmp]{#2}%
-   \else\if\@tmpb b% (B)
-    \hanthracenev[dfhjln]{#2}%
-   \else\if\@tmpb c% (C)
-    \hanthracenev[aehjmp]{#2}%
-   \else\if\@tmpb A% cicle type
-    \hanthracenev[cBC]{#2}%
-  \fi\fi\fi\fi\fi%
- \else\if\@tmpa q%1,4-quinone
-  \if\@tmpb a% (A)%
-    \hanthracenev[bfhjlo]{#2}%
-   \else\ifx\@tmpb\empty% (A)
-    \hanthracenev[behjmp]{#2}%
-   \else\if\@tmpb A% circle type
-    \hanthracenev[AB]{#2}%
-   \else%
-    \hanthracenev[behjmp]{#2}%
-  \fi\fi\fi%
- \else
-    \hanthracenev[@#1]{#2}%
- \fi\fi\fi\fi\fi\fi%
-}%               %end of \anthracenev macro%
-\def\hphenanthrenev{%
- \@ifnextchar[{\@hphenanthrenev[@}{\@hphenanthrenev[r]}}
-\def\@hphenanthrenev[#1]#2{%
-\@reset@ylsw\reset@@yl
-\ylposition{#2}{-4}{0}{2}{0}%   %for 5 position
-\if@ylsw \ifx\@@ylii\empty
-\def\@@ylii{0}\def\@@yli{0}\fi
-\else
-\ylposition{#2}{12}{3}{7}{-1}%   %for 6 to 8 positions
-\fi
-\if@ylsw\ifx\@@ylii\empty
-\def\@@ylii{0}\def\@@yli{0}\fi\else
-\ylposition{#2}{13}{2}{5}{-1}%   %for 9 to 10 positions
-\fi
-\if@ylsw\ifx\@@ylii\empty
-\def\@@ylii{-342}\def\@@yli{0}\fi\else
-\ylposition{#2}{4}{0}{4}{-1}% %for 1 to 3 positions
-\fi
-\if@ylsw\ifx\@@ylii\empty
-\def\@@ylii{-513}\def\@@yli{-303}\fi\else
-\ylposition{#2}{2}{5}{7}{0}%  %for 4-position
-\fi
-\if@ylsw\ifx\@@ylii\empty
-\def\@@ylii{-513}\def\@@yli{-303}\fi\else
-\ylfusedposition{#2}{-12}{-1}{1}{0}%  % for 4b and 8a
-\fi
-\if@ylsw\ifx\@@ylii\empty
-\def\@@ylii{0}\def\@@yli{0}\fi\else
-\ylfusedposition{#2}{-10}{0}{2}{0}% % for 4a and 10a
-\fi
-\if@ylsw\ifx\@@ylii\empty
-\def\@@ylii{-342}\def\@@yli{0}\fi\fi
-\if@ylsw
- \yl@shiftii=\@ylii
- \ifx\@@ylii\empty\else
- \advance\yl@shiftii\@@ylii\fi
- \yl@shifti=\@yli
- \ifx\@@yli\empty\else
- \advance\yl@shifti\@@yli\fi
- \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}(1200,1200)(-\shiftii,-\shifti)
-  \iforigpt \put(-\shiftii,-\shifti){\circle*{50}}%
-           \put(-\noshift,-\noshift){\circle{50}}%
-  \typeout{command `hphenanthrenev' origin: %
-  (\the\noshift,\the\noshift) ---> (\the\shiftii,\the\shifti)}\fi%
-\fi
-  \put(0,406){\line(-5,-3){171}}%       %bond 6-5
-  \put(0,406){\line(5,-3){171}}%        %bond 5-4a
-  \put(0,0){\line(-5,3){171}}%          %bond 8-7
-  \put(0,0){\line(5,3){171}}%            %bond 8-8a
-  \put(171,103){\line(0,1){200}}%       %bond 8a-4b
-  \put(-171,103){\line(0,1){200}}%      %bond 7-6
-  \put(342,406){\line(-5,-3){171}}%     %bond 4a-4b
-  \put(342,406){\line(5,-3){171}}%      %bond 4a-10a
-  \put(342,0){\line(-5,3){171}}%        %bond 9-8a
-  \put(342,0){\line(5,3){171}}%         %bond 9-10
-  \put(513,103){\line(0,1){200}}%       %bond 10-10a
-  %%%%
-  \put(342,406){\line(0,1){200}}%       %bond 4a-4
-  \put(513,709){\line(-5,-3){171}}%     %bond 3-4
-  \put(513,709){\line(5,-3){171}}%      %bond 3-2
-  \put(684,406){\line(0,1){200}}%       %bond 1-2
-  \put(513,303){\line(5,3){171}}%       %bond 10a-1
-\@tfor\member:=#1\do{%
-\if\member r%no endcyclic double bonds
-\else\if\member a%
-  \put(651,432){\line(0,1){148}}%       %double bond 1-2
-\else\if\member b%
-  \put(519,667){\line(5,-3){126}}%      %double bond 3-2
-\else\if\member c%
-  \put(519,667){\line(-5,-3){126}}%     %double bond 3-4
-\else\if\member d%
-  \put(375,432){\line(0,1){148}}%       %double bond 4a-4
-\else\if\member e%
-  \put(348,364){\line(-5,-3){126}}%     %double bond 4a-4b
-\else\if\member f%
-  \put(6,364){\line(5,-3){126}}%        %double bond 5-4b
-\else\if\member g%
-  \put(-6,364){\line(-5,-3){126}}%      %double bond 5-6
-\else\if\member h%
-  \put(-138,129){\line(0,1){148}}%      %double bond 6-7
-\else\if\member i%
-  \put(-6,42){\line(-5,3){126}}%        %double bond 8-7
-\else\if\member j%
-  \put(6,42){\line(5,3){126}}%          %double bond 8-8a
-\else\if\member k%
-  \put(348,42){\line(-5,3){126}}%       %double bond 9-8a
-\else\if\member l%
-  \put(348,42){\line(5,3){126}}%        %double bond 9-10
-\else\if\member m%
-  \put(482,129){\line(0,1){148}}%       %double bond 10-10a
-\else\if\member n%
-  \put(519,345){\line(5,3){126}}%       %double bond 10a-1
-\else\if\member o%
-  \put(507,345){\line(-5,3){126}}%      %double bond 10a-4a
-\else\if\member O%
-  \put(348,364){\line(5,-3){126}}%     %double bond 4a-10a
-\else\if\member p%
-  \put(138,129){\line(0,1){148}}%       %double bond 8a-4b
-\else\if\member P%
-  \put(204,129){\line(0,1){148}}%       %double bond 8a-4b
-\else\if\member C%left aromatic circle
-  \put(0,203){\circle{240}}            %circle
-\else\if\member B%right aromatic circle
-  \put(342,203){\circle{240}}%          %circle
-\else\if\member A%right aromatic circle
-  \put(513,506){\circle{240}}%          %circle
-\else
-  \expandafter\twoCH@R\member//%
-  \set@fusion@hphenanv
-\fi\fi\fi\fi\fi\fi\fi\fi\fi\fi\fi\fi\fi\fi\fi\fi\fi\fi\fi\fi\fi\fi}%
-\put(0,0){\setsixringv{#2}{-4}{0}{2}{0}}%   %for 5 position
-\put(0,0){\setsixringv{#2}{12}{3}{7}{-1}}%   %for 6 to 8 positions
-\put(342,0){\setsixringv{#2}{13}{2}{5}{-1}}%   %for 9 to 10 positions
-\put(513,303){\setsixringv{#2}{4}{0}{4}{-1}}% %for 1 to 3 positions
-\put(513,303){\setsixringv{#2}{2}{5}{7}{0}}%  %for 4-position
-\put(0,0){\setfusedbond{#2}{-12}{-1}{1}{0}}%  % for 4b and 8a
-\put(342,0){\setfusedbond{#2}{-10}{0}{2}{0}}% % for 4a and 10a
-\end{picture}}%               %end of \hphenanthrenev macro%
-\def\phenanthrenev{\@ifnextchar[{\@phenanthrenev}{\@phenanthrenev[r]}}
-\def\@phenanthrenev[#1]#2{%
- \iforigpt \typeout{command `phenanthrenev' is %
-    based on `hphenantherenv'.}\fi%
- \expandafter\threech@r#1{}{}%
- \if\@tmpa r% right-handed set of double bonds
-    \hphenanthrenev[acgilop]{#2}%
- \else\if\@tmpa A%aromatic circle
-    \hphenanthrenev[ABC]{#2}%
- \else\if\@tmpa p%1,4-quinone
-  \if\@tmpb a% (A)%
-    \hphenanthrenev[bgilop]{#2}%
-   \else\ifx\@tmpb\empty% (A)
-    \hphenanthrenev[bgilop]{#2}%
-   \else\if\@tmpb A% circle type
-    \hphenanthrenev[BCb]{#2}%
-   \else
-    \hphenanthrenev[bgilop]{#2}%
-  \fi\fi\fi%
- \else\if\@tmpa o%o-quinone
-  \if\@tmpb a% (A)%
-    \hphenanthrenev[cgilop]{#2}%
-   \else\ifx\@tmpb\empty% (A)
-    \hphenanthrenev[cgilop]{#2}%
-   \else\if\@tmpb b% (B)
-    \hphenanthrenev[dgilnp]{#2}%
-   \else\if\@tmpb c% (C)
-    \hphenanthrenev[agilop]{#2}%
-   \else\if\@tmpb A% cicle type
-    \hphenanthrenev[cBC]{#2}%
-  \fi\fi\fi\fi\fi%
- \else\if\@tmpa q%9,10-quinone
-  \if\@tmpb a% (A)%
-    \hphenanthrenev[acgiop]{#2}%
-   \else\ifx\@tmpb\empty% (A)
-    \hphenanthrenev[acgiop]{#2}%
-   \else\if\@tmpb A% circle type
-    \hphenanthrenev[AC]{#2}%
-   \else
-    \hphenanthrenev[acgiop]{#2}%
-  \fi\fi\fi%
- \else
-    \hphenanthrenev[@#1]{#2}%
- \fi\fi\fi\fi\fi%
-}%               %end of \phenanthrenev macro%
-\def\steroid{\@ifnextchar[{\@steroid[@}{\@steroid[Z]}}
-\def\@steroid[#1]#2{%
-\@reset@ylsw\reset@@yl
-\yl@steroidposition{#2}%
-\if@ylsw
- \yl@shiftii=\@ylii
- \ifx\@@ylii\empty\else
- \advance\yl@shiftii\@@ylii\fi
- \yl@shifti=\@yli
- \ifx\@@yli\empty\else
- \advance\yl@shifti\@@yli\fi
- \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}(1600,1300)(-\shiftii,-\shifti)
-  \iforigpt \put(-\shiftii,-\shifti){\circle*{50}}%
-           \put(-\noshift,-\noshift){\circle{50}}%
-   \typeout{command `steroid' origin: %
-    (\the\noshift,\the\noshift) ---> (\the\shiftii,\the\shifti)}\fi%
-\fi
-  \put(0,0){\@steroidskeleton{#1}{#2}}%
-\end{picture}}%               %end of \steroid macro%
-\def\yl@steroidposition#1{%
-\ylposition{#1}{0}{0}{2}{0}%  %for 1
-\if@ylsw \ifx\@@ylii\empty
-\def\@@ylii{0}\def\@@yli{0}\fi
-\else
-\ylposition{#1}{8}{3}{7}{-1}%  %for 2 to 4 positions
-\fi
-\if@ylsw\ifx\@@ylii\empty
-\def\@@ylii{0}\def\@@yli{0}\fi\else
-\ylposition{#1}{10}{2}{5}{-1}% %for 6 to 7 positions
-\fi
-\if@ylsw\ifx\@@ylii\empty
-\def\@@ylii{-342}\def\@@yli{0}\fi\else
-\ylposition{#1}{-11}{0}{2}{0}%for 12 position
-\fi
-\if@ylsw\ifx\@@ylii\empty
-\def\@@ylii{-513}\def\@@yli{-303}\fi\else
-\ylposition{#1}{-5}{5}{7}{0}% %for 11 position
-\fi
-\if@ylsw\ifx\@@ylii\empty
-\def\@@ylii{-513}\def\@@yli{-303}\fi\else
-\ylposition{#1}{18}{0}{4}{-1}%for 15 to 17 positions
-\fi
-\if@ylsw\ifx\@@ylii\empty
-\def\@@ylii{-855}\def\@@yli{-303}\fi\else
-\ylatombondposition{#1}{-4}{7}%     % for 5
-\fi
-\if@ylsw\ifx\@@ylii\empty
-\def\@@ylii{-171}\def\@@yli{-103}\fi\else
-\ylatombondposition{#1}{-9}{1}%     % for 10
-\fi
-\if@ylsw\ifx\@@ylii\empty
-\def\@@ylii{-171}\def\@@yli{-303}\fi\else
-\ylatombondposition{#1}{-7}{1}%     % for 8
-\fi
-\if@ylsw\ifx\@@ylii\empty
-\def\@@ylii{-513}\def\@@yli{-303}\fi\else
-\ylatombondposition{#1}{-8}{7}%     % for 9
-\fi
-\if@ylsw\ifx\@@ylii\empty
-\def\@@ylii{-342}\def\@@yli{-406}\fi\else
-\ylatombondposition{#1}{-13}{7}%    % for 14
-\fi
-\if@ylsw\ifx\@@ylii\empty
-\def\@@ylii{-684}\def\@@yli{-406}\fi\else
-\ylatombondposition{#1}{-12}{1}%    % for 13
-\fi
-\if@ylsw\ifx\@@ylii\empty
-\def\@@ylii{-684}\def\@@yli{-606}\fi\fi%
-}% end of \yl@steroidposition
-\def\@steroidskeleton#1#2{%
-  \put(0,406){\line(-5,-3){171}}%       %bond 1-2
-  \put(0,406){\line(5,-3){171}}%        %bond 1-10
-  \put(0,0){\line(-5,3){171}}%          %bond 4-3
-  \put(0,0){\line(5,3){171}}%           %bond 4-5
-  \put(171,103){\line(0,1){200}}%       %bond 5-10
-  \put(-171,103){\line(0,1){200}}%      %bond 3-2
-  \put(342,406){\line(-5,-3){171}}%     %bond 9-10
-  \put(342,406){\line(5,-3){171}}%      %bond 9-8
-  \put(342,0){\line(-5,3){171}}%        %bond 6-5
-  \put(342,0){\line(5,3){171}}%         %bond 6-7
-  \put(513,103){\line(0,1){200}}%       %bond 7-8
-  %%%%
-  \put(342,406){\line(0,1){200}}%       %bond 9-11
-  \put(513,709){\line(-5,-3){171}}%     %bond 12-11
-  \put(513,709){\line(5,-3){171}}%      %bond 12-13
-  \put(684,406){\line(0,1){200}}%       %bond 14-13
-  \put(513,303){\line(5,3){171}}%       %bond 8-14
-  %%%%
-  \put(855,709){\line(-5,-3){171}}%     %bond 17-13
-  \put(855,709){\line(5,-3){171}}%      %bond 17-16
-  \put(1026,406){\line(0,1){200}}%      %bond 15-16
-  \put(684,406){\line(1,0){342}}%       %bond 14-15
-\@tfor\member:=#1\do{%
-\if\member Z%no endcyclic double bonds
-\else\if\member a%
-  \put(-6,364){\line(-5,-3){126}}%      %double bond 1-2 5-6
-\else\if\member b%
-  \put(-138,129){\line(0,1){148}}%      %double bond 3-2 6-7
-\else\if\member c%
-  \put(-6,42){\line(-5,3){126}}%        %double bond 4-3 8-7
-\else\if\member d%
-  \put(6,42){\line(5,3){126}}%          %double bond 4-5 8-8a
-\else\if\member e%
-  \put(348,42){\line(-5,3){126}}%       %double bond 6-5 9-8a
-\else\if\member f%
-  \put(348,42){\line(5,3){126}}%        %double bond 6-7 9-10
-\else\if\member g%
-  \put(482,129){\line(0,1){148}}%       %double bond 7-8 10-10a
-\else\if\member h%
-  \put(507,345){\line(-5,3){126}}%      %double bond 8-9  10a-4a
-\else\if\member H%
-  \put(348,364){\line(5,-3){126}}%     %double bond 9-8  4a-10a
-\else\if\member i%
-  \put(348,364){\line(-5,-3){126}}%     %double bond 9-10  4a-4b
-\else\if\member j%
-  \put(6,364){\line(5,-3){126}}%        %double bond 1-10 5-4b
-\else\if\member k%
-  \put(138,129){\line(0,1){148}}%       %double bond 5-10 8a-4b
-\else\if\member K%
-  \put(204,129){\line(0,1){148}}%       %double bond 5-10 8a-4b
-\else\if\member l%
-  \put(375,432){\line(0,1){148}}%       %double bond 9-11    4-5
-\else\if\member m%
-  \put(519,667){\line(-5,-3){126}}%     %double bond 12-11   3-4
-\else\if\member n%
-  \put(519,667){\line(5,-3){126}}%      %double bond 12-13   3-2
-\else\if\member o%
-  \put(651,432){\line(0,1){148}}%       %double bond 13-14  1-2
-\else\if\member O%
-  \put(717,432){\line(0,1){148}}%       %double bond 13-14  1-2
-\else\if\member p%
-  \put(519,345){\line(5,3){126}}%       %double bond 8-14 10a-1
-\else\if\member q%
-  \put(720,439){\line(1,0){260}}%       %double bond 14-15
-\else\if\member r%
-  \put(993,432){\line(0,1){148}}%       %double bond 15-16  1-2
-\else\if\member s%
-  \put(861,667){\line(5,-3){126}}%      %double bond 17-16   3-2
-\else\if\member t%
-  \put(861,667){\line(-5,-3){126}}%     %double bond 17-13   3-4
-\else\if\member A%left aromatic circle
-  \put(0,203){\circle{240}}%            %circle
-\else\if\member B%right aromatic circle
-  \put(342,203){\circle{240}}%          %circle
-\else\if\member C%right aromatic circle
-  \put(513,506){\circle{240}}%          %circle
-\else
-  \expandafter\twoCH@R\member//%
-  \set@fusion@steroid
-\fi\fi\fi\fi\fi\fi\fi\fi\fi\fi\fi\fi\fi\fi\fi\fi\fi\fi%
-\fi\fi\fi\fi\fi\fi\fi\fi\fi}%
-\iniflag
-\put(0,0){\setsixringv{#2}{0}{0}{2}{0}}%  %for 1
-\put(0,0){\setsixringv{#2}{8}{3}{7}{-1}}%  %for 2 to 4 positions
-\put(342,0){\setsixringv{#2}{10}{2}{5}{-1}}% %for 6 to 7 positions
-\put(513,303){\setsixringv{#2}{-11}{0}{2}{0}}%for 12 position
-\put(513,303){\setsixringv{#2}{-5}{5}{7}{0}}% %for 11 position
-\put(855,303){\setsixringv{#2}{18}{0}{4}{-1}}%for 15 to 17 positions
-\put(171,103){\setatombond{#2}{-4}{7}}%     % for 5
-\put(171,303){\setatombond{#2}{-9}{1}}%     % for 10
-\put(513,303){\setatombond{#2}{-7}{1}}%     % for 8
-\put(342,406){\setatombond{#2}{-8}{7}}%     % for 9
-\put(684,406){\setatombond{#2}{-13}{7}}%    % for 14
-\put(684,606){\setatombond{#2}{-12}{1}}%    % for 13
-}% end of \@steroidskeleton
-\def\set@fusion@steroid{%
-  \let\@@tmpa=\@tmpa
-  \let\@@tmpb=\@tmpb
-  \if\@tmpa a%
-      \edef\@@tmpa{f}%
-      \put(0,0){\set@fusionadd@sixv}%
-  \else\if\@tmpa A%
-      \edef\@@tmpa{F}%
-      \put(0,0){\set@fusionadd@sixv}%
-  \else\if\@tmpa b%
-      \edef\@@tmpa{e}%
-      \put(0,0){\set@fusionadd@sixv}%
-  \else\if\@tmpa B%
-      \edef\@@tmpa{E}%
-      \put(0,0){\set@fusionadd@sixv}%
-  \else\if\@tmpa c%
-      \edef\@@tmpa{d}%
-      \put(0,0){\set@fusionadd@sixv}%
-  \else\if\@tmpa C%
-      \edef\@@tmpa{D}%
-      \put(0,0){\set@fusionadd@sixv}%
-  \else\if\@tmpa d%
-      \edef\@@tmpa{c}%
-      \put(0,0){\set@fusionadd@sixv}%
-      \if@smallringsw\else
-       \XyMTeXWarning{Unfavorable Fusion for bond `d'}%
-      \fi
-  \else\if\@tmpa D%
-      \edef\@@tmpa{C}%
-      \put(0,0){\set@fusionadd@sixv}%
-      \if@smallringsw\else
-       \XyMTeXWarning{Unfavorable Fusion for bond `D'}%
-      \fi
-  \else\if\@tmpa e%
-      \edef\@@tmpa{d}%
-      \put(342,0){\set@fusionadd@sixv}%
-      \if@smallringsw\else
-       \XyMTeXWarning{Unfavorable Fusion for bond `e'}%
-      \fi
-  \else\if\@tmpa E%
-      \edef\@@tmpa{D}%
-      \put(342,0){\set@fusionadd@sixv}%
-      \if@smallringsw\else
-       \XyMTeXWarning{Unfavorable Fusion for bond `E'}%
-      \fi
-  \else\if\@tmpa f%
-      \edef\@@tmpa{c}%
-      \put(342,0){\set@fusionadd@sixv}%
-      \if@smallringsw\else
-       \XyMTeXWarning{Unfavorable Fusion for bond `f'}%
-      \fi
-  \else\if\@tmpa F%
-      \edef\@@tmpa{C}%
-      \put(342,0){\set@fusionadd@sixv}%
-      \if@smallringsw\else
-       \XyMTeXWarning{Unfavorable Fusion for bond `f'}%
-      \fi
-  \else\if\@tmpa g%
-      \edef\@@tmpa{b}%
-      \put(342,0){\set@fusionadd@sixv}%
-      \if@smallringsw\else
-       \XyMTeXWarning{Unfavorable Fusion for bond `g'}%
-      \fi
-  \else\if\@tmpa G%
-      \edef\@@tmpa{B}%
-      \put(342,0){\set@fusionadd@sixv}%
-      \if@smallringsw\else
-       \XyMTeXWarning{Unfavorable Fusion for bond `g'}%
-      \fi
-  \else\if\@tmpa h%
-      \edef\@@tmpa{a}%
-      \put(342,0){\set@fusionadd@sixv}%
-      \if@smallringsw\else
-       \XyMTeXWarning{Forbidden Fusion for bond `h'}%
-      \fi
-  \else\if\@tmpa H%
-      \edef\@@tmpa{A}%
-      \put(342,0){\set@fusionadd@sixv}%
-      \if@smallringsw\else
-       \XyMTeXWarning{Forbidden Fusion for bond `H'}%
-      \fi
-  \else\if\@tmpa i%
-      \edef\@@tmpa{f}%
-      \put(342,0){\set@fusionadd@sixv}%
-      \if@smallringsw\else
-       \XyMTeXWarning{Unfavorable Fusion for bond `i'}%
-      \fi
-  \else\if\@tmpa I%
-      \edef\@@tmpa{F}%
-      \put(342,0){\set@fusionadd@sixv}%
-      \if@smallringsw\else
-       \XyMTeXWarning{Unfavorable Fusion for bond `I'}%
-      \fi
-  \else\if\@tmpa j%
-      \edef\@@tmpa{a}%
-      \put(0,0){\set@fusionadd@sixv}%
-      \if@smallringsw\else
-       \XyMTeXWarning{Unfavorable Fusion for bond `j'}%
-      \fi
-  \else\if\@tmpa J%
-      \edef\@@tmpa{A}%
-      \put(0,0){\set@fusionadd@sixv}%
-      \if@smallringsw\else
-       \XyMTeXWarning{Unfavorable Fusion for bond `J'}%
-      \fi
-  \else\if\@tmpa k%
-      \edef\@@tmpa{b}%
-      \put(0,0){\set@fusionadd@sixv}%
-      \if@smallringsw\else
-       \XyMTeXWarning{Forbidden Fusion for bond `k'}%
-      \fi
-  \else\if\@tmpa K%
-      \edef\@@tmpa{B}%
-      \put(0,0){\set@fusionadd@sixv}%
-      \if@smallringsw\else
-       \XyMTeXWarning{Forbidden Fusion for bond `K'}%
-      \fi
-  \else\if\@tmpa l%
-      \edef\@@tmpa{e}%
-      \put(513,303){\set@fusionadd@sixv}%
-      \if@smallringsw\else
-       \XyMTeXWarning{Unfavorable Fusion for bond `l'}%
-      \fi
-  \else\if\@tmpa L%
-      \edef\@@tmpa{E}%
-      \put(513,303){\set@fusionadd@sixv}%
-      \if@smallringsw\else
-       \XyMTeXWarning{Unfavorable Fusion for bond `L'}%
-      \fi
-  \else\if\@tmpa m%
-      \edef\@@tmpa{f}%
-      \put(513,303){\set@fusionadd@sixv}%
-  \else\if\@tmpa M%
-      \edef\@@tmpa{F}%
-      \put(513,303){\set@fusionadd@sixv}%
-  \else\if\@tmpa n%
-      \edef\@@tmpa{a}%
-      \put(513,303){\set@fusionadd@sixv}%
-      \if@smallringsw\else
-       \XyMTeXWarning{Unfavorable Fusion for bond `n'}%
-      \fi
-  \else\if\@tmpa N%
-      \edef\@@tmpa{A}%
-      \put(513,303){\set@fusionadd@sixv}%
-      \if@smallringsw\else
-       \XyMTeXWarning{Unfavorable Fusion for bond `N'}%
-      \fi
-  \else\if\@tmpa o%
-      \edef\@@tmpa{b}%
-      \put(513,303){\set@fusionadd@sixv}%
-      \if@smallringsw\else
-       \XyMTeXWarning{Forbidden Fusion for bond `o'}%
-      \fi
-  \else\if\@tmpa O%
-      \edef\@@tmpa{B}%
-      \put(513,303){\set@fusionadd@sixv}%
-      \if@smallringsw\else
-       \XyMTeXWarning{Forbidden Fusion for bond `O'}%
-      \fi
-  \else\if\@tmpa p%
-      \edef\@@tmpa{c}%
-      \put(513,303){\set@fusionadd@sixv}%
-      \if@smallringsw\else
-       \XyMTeXWarning{Unfavorable Fusion for bond `N'}%
-      \fi
-  \else\if\@tmpa P%
-      \edef\@@tmpa{C}%
-      \put(513,303){\set@fusionadd@sixv}%
-      \if@smallringsw\else
-       \XyMTeXWarning{Unfavorable Fusion for bond `N'}%
-      \fi
-  \else\if\@tmpa q%
-       \XyMTeXWarning{Mismatched dimension for bond `q'}%
-  \else\if\@tmpa Q%
-       \XyMTeXWarning{Mismatched dimension for bond `Q'}%
-  \else\if\@tmpa r%
-      \edef\@@tmpa{b}%
-      \put(855,303){\set@fusionadd@sixv}%
-  \else\if\@tmpa R%
-      \edef\@@tmpa{B}%
-      \put(855,303){\set@fusionadd@sixv}%
-  \else\if\@tmpa s%
-      \edef\@@tmpa{a}%
-      \put(855,303){\set@fusionadd@sixv}%
-  \else\if\@tmpa S%
-      \edef\@@tmpa{A}%
-      \put(855,303){\set@fusionadd@sixv}%
-  \else\if\@tmpa t%
-      \edef\@@tmpa{f}%
-      \put(855,303){\set@fusionadd@sixv}%
-      \if@smallringsw\else
-       \XyMTeXWarning{Unfavorable Fusion for bond `t'}%
-      \fi
-  \else\if\@tmpa T%
-      \edef\@@tmpa{F}%
-      \put(855,303){\set@fusionadd@sixv}%
-      \if@smallringsw\else
-       \XyMTeXWarning{Unfavorable Fusion for bond `T'}%
-      \fi
-   \fi\fi\fi\fi\fi\fi\fi\fi%
-   \fi\fi\fi\fi\fi\fi\fi\fi\fi\fi%
-  \fi\fi\fi\fi\fi\fi\fi\fi\fi\fi\fi\fi%
-  \fi\fi\fi\fi\fi\fi\fi\fi\fi\fi%
-}% end of the macro \set@fusion@steroid
-\def\steroidchain{\@ifnextchar[{\@steroidchain[@}{\@steroidchain[Z]}}
-\def\@steroidchain[#1]#2{%
-\@reset@ylsw\reset@@yl
-\yl@steroidposition{#2}%
-\ylposition{#2}{-21}{0}{3}{0}%for 22 and 23 positions
-\if@ylsw \ifx\@@ylii\empty
-\def\@@ylii{-1026}\def\@@yli{-606}\fi
-\else
-\ylposition{#2}{-14}{5}{7}{0}%for 20 position
-\fi
-\if@ylsw\ifx\@@ylii\empty
-\def\@@ylii{-1026}\def\@@yli{-606}\fi\else
-\ylposition{#2}{-20}{3}{5}{0}%for 24 position
-\fi
-\if@ylsw\ifx\@@ylii\empty
-\def\@@ylii{-1197}\def\@@yli{-709}\fi\else
-\ylatombondposition{#2}{-24}{4}%      % for 5
-\fi
-\if@ylsw\ifx\@@ylii\empty
-\def\@@ylii{-1397}\def\@@yli{-709}\fi\fi
-\if@ylsw
- \yl@shiftii=\@ylii
- \ifx\@@ylii\empty\else
- \advance\yl@shiftii\@@ylii\fi
- \yl@shifti=\@yli
- \ifx\@@yli\empty\else
- \advance\yl@shifti\@@yli\fi
- \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}(2000,1500)(-\shiftii,-\shifti)
-  \iforigpt \typeout{command `steroidchain' is based on `steroid'.}\fi%
-\fi
-  \put(0,0){\@steroidskeleton{#1}{#2}}%
-  \put(855,709){\line(0,1){200}}%       %bond 17-20
-  \put(1026,1012){\line(-5,-3){171}}%   %bond 22-20
-  \put(1026,1012){\line(5,-3){171}}%    %bond 22-23
-  \put(1197,709){\line(0,1){200}}%      %bond 24-23
-  \put(1197,709){\line(1,0){200}}%      %bond 24-25
-  \put(1397,709){\line(3,5){103}}%      %bond 25-26
-  \put(1397,709){\line(3,-5){103}}%     %bond 25-27
-\@tfor\member:=#1\do{%
-\expandafter\twoCH@R\member//\relax%
-\if\@tmpa Z\relax%
- \ifx\@tmpb\empty%no action
- \else\if\@tmpb a%
-  \put(888,735){\line(0,1){148}}%       %double bond 17-20
- \else\if\@tmpb b%
-  \put(1020,970){\line(-5,-3){126}}%    %double bond 22-20
- \else\if\@tmpb c%
-  \put(1032,970){\line(5,-3){126}}%     %double bond 22-23
- \else\if\@tmpb d%
-  \put(1164,735){\line(0,1){148}}%      %double bond 24-23
- \else\if\@tmpb e%
-  \put(1233,742){\line(1,0){140}}%      %double bond 24-25
- \else\if\@tmpb f%
-  \put(1433,715){\line(3,5){72}}%       %double bond 25-26
- \else\if\@tmpb g%
-  \put(1433,697){\line(3,-5){72}}%      %double bond 25-27
- \fi\fi\fi\fi\fi\fi\fi\fi\fi}
-\put(1026,606){\setsixringv{#2}{-21}{0}{3}{0}}%for 22 and 23 positions
-\put(1026,606){\setsixringv{#2}{-14}{5}{7}{0}}%for 20 position
-\put(1197,709){\setsixringv{#2}{-20}{3}{5}{0}}%for 24 position
-\put(1397,709){\setatombond{#2}{-24}{4}}%      % for 5
-\end{picture}}%               %end of \steroidchain macro%
-\endinput
-%%
-%% End of file `carom.sty'.
diff --git a/Master/texmf-dist/tex/latex/xymtex/ccycle.sty b/Master/texmf-dist/tex/latex/xymtex/ccycle.sty
deleted file mode 100644
index a0ce11a5c5c..00000000000
--- a/Master/texmf-dist/tex/latex/xymtex/ccycle.sty
+++ /dev/null
@@ -1,1854 +0,0 @@
-%%
-%% This is file `ccycle.sty',
-%% generated with the docstrip utility.
-%%
-%% The original source files were:
-%%
-%% ccycle.dtx  (with options: `ccycle')
-%% 
-%% This is a generated file.
-%% 
-%% Copyright 1996,1998 by Shinsaku Fujita
-%% 
-%% This file is part of the XyMTeX system.
-%% =======================================
-%% 
-%% Version 1.01 Released on August 16, 1996
-%% Version 1.02 Released on October 31, 1996
-%% Version 2.00 Released on December 25, 1998
-%% 
-%% Copyright (C) 1996,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: ccycle.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{ccycle}
-\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}{}
-\unitlength=0.1pt
-\def\@chaira{%
-   \if\@tmpb S%single bond
-    \ifx\@tmpc\empty%
-     \yl@xdiff=10
-     \yl@ydiff=10
-           \put(0,0){\line(-1,1){120}}% single bond at 1
-           \putlatom{-130}{110}{\@memberb}% left type
-    \else\if\@tmpc a%(a) axial
-     \yl@xdiff=42
-     \yl@ydiff=-12
-           \put(0,0){\line(0,1){168}}% single bond at 1 axial
-           \putlratom{-42}{180}{\@memberb}% left & right type
-    \else\if\@tmpc e%(e) beta
-     \yl@xdiff=16
-     \yl@ydiff=44
-           \put(0,0){\line(-5,-3){144}}% single bond at 1 equatorial
-           \putlatom{-160}{-130}{\@memberb}% left type
-    \fi\fi\fi%
-   \else \if\@tmpb D%double bond
-     \yl@xdiff=10
-     \yl@ydiff=10
-           \put(-10,-10){\line(-1,1){120}}% double bond at 1
-           \put(10,10){\line(-1,1){120}}% double bond at 1
-           \putlatom{-130}{110}{\@memberb}% left type
-          \else%
-     \yl@xdiff=10
-     \yl@ydiff=10
-           \put(0,0){\line(-1,1){120}}% single bond at 1
-           \putlatom{-130}{110}{\@memberb}% left type
-   \fi\fi}%
-\def\@chairb{%
-   \if\@tmpb S%single bond
-    \ifx\@tmpc\empty%
-     \yl@xdiff=10
-     \yl@ydiff=70
-           \put(170,-226){\line(-1,-1){120}}% single bond at 2
-           \putlatom{40}{-416}{\@memberb}% left type
-    \else\if\@tmpc a%(a) axial
-     \yl@xdiff=32
-     \yl@ydiff=92
-           \put(170,-226){\line(0,-1){168}}% single bond at 2 axial
-           \putlratom{138}{-486}{\@memberb}% left & right type
-    \else\if\@tmpc e%(e) beta
-     \yl@xdiff=16
-     \yl@ydiff=34
-           \put(170,-226){\line(-5,3){144}}% single bond at 2 equatorial
-           \putlatom{10}{-174}{\@memberb}% left type
-    \fi\fi\fi%
-   \else \if\@tmpb D%double bond
-     \yl@xdiff=10
-     \yl@ydiff=70
-           \put(160,-216){\line(-1,-1){120}}% double bond at 2
-           \put(180,-236){\line(-1,-1){120}}% double bond at 2
-           \putlatom{40}{-416}{\@memberb}% left type
-          \else%
-     \yl@xdiff=10
-     \yl@ydiff=70
-           \put(170,-226){\line(-1,-1){120}}% single bond at 2
-           \putlatom{40}{-416}{\@memberb}% left type
-   \fi\fi}%
-\def\@chairc{%
-   \if\@tmpb S%single bond
-    \ifx\@tmpc\empty%
-     \yl@xdiff=-10
-     \yl@ydiff=24
-           \put(573,-91){\line(5,4){170}}% single bond at 3
-           \putratom{753}{21}{\@memberb}% right type
-    \else\if\@tmpc a%(a) axial
-     \yl@xdiff=40
-     \yl@ydiff=-24
-           \put(573,-91){\line(0,1){168}}% single bond at 3 axial
-           \putlratom{533}{101}{\@memberb}% left type
-    \else\if\@tmpc e%(e) beta
-     \yl@xdiff=-36
-     \yl@ydiff=83
-           \put(573,-91){\line(5,-3){144}}% single bond at 3 equatorial
-           \putlatom{753}{-260}{\@memberb}% left type
-    \fi\fi\fi%
-   \else \if\@tmpb D%double bond
-     \yl@xdiff=0
-     \yl@ydiff=0
-           \put(563,-83){\line(5,4){170}}% double bond at 3
-           \put(583,-99){\line(5,4){170}}% double bond at 3
-           \putratom{733}{41}{\@memberb}% right type
-          \else%
-     \yl@xdiff=-10
-     \yl@ydiff=24
-           \put(573,-91){\line(5,4){170}}% single bond at 3
-           \putratom{753}{21}{\@memberb}% right type
-   \fi\fi}%
-\def\@chaird{%
-   \if\@tmpb S%single bond
-    \ifx\@tmpc\empty%
-     \yl@xdiff=10
-     \yl@ydiff=70
-           \put(843,-181){\line(1,-1){120}}% single bond at 4
-           \putratom{953}{-371}{\@memberb}% right type
-    \else\if\@tmpc a%(a) axial
-     \yl@xdiff=42
-     \yl@ydiff=91
-           \put(843,-181){\line(0,-1){168}}% single bond at 4 axial
-           \putlratom{801}{-440}{\@memberb}% left & right type
-    \else\if\@tmpc e%(e) beta
-     \yl@xdiff=-16
-     \yl@ydiff=16
-           \put(843,-181){\line(5,3){144}}% single bond at 4 equatorial
-           \putratom{1003}{-111}{\@memberb}% right type
-    \fi\fi\fi%
-   \else \if\@tmpb D%double bond
-     \yl@xdiff=10
-     \yl@ydiff=70
-           \put(833,-191){\line(1,-1){120}}% double bond at 4
-           \put(853,-171){\line(1,-1){120}}% double bond at 4
-           \putratom{953}{-371}{\@memberb}% right type
-          \else%
-     \yl@xdiff=10
-     \yl@ydiff=70
-           \put(843,-181){\line(1,-1){120}}% single bond at 4
-           \putratom{953}{-371}{\@memberb}% right type
-   \fi\fi}%
-\def\@chaire{%
-   \if\@tmpb S%single bond
-    \ifx\@tmpc\empty%
-     \yl@xdiff=-10
-     \yl@ydiff=10
-           \put(673,46){\line(1,1){120}}% single bond at 5
-           \putratom{803}{158}{\@memberb}% right type
-    \else\if\@tmpc a%(a) axial
-     \yl@xdiff=40
-     \yl@ydiff=-24
-           \put(673,46){\line(0,1){168}}% single bond at 5 axial
-           \putlratom{633}{238}{\@memberb}% left & right type
-    \else\if\@tmpc e%(e) beta
-     \yl@xdiff=-6
-     \yl@ydiff=63
-           \put(673,46){\line(5,-3){144}}% single bond at 5 equatorial
-           \putratom{823}{-103}{\@memberb}% right type
-    \fi\fi\fi%
-   \else \if\@tmpb D%double bond
-     \yl@xdiff=-10
-     \yl@ydiff=10
-           \put(663,53){\line(1,1){120}}% double bond at 5
-           \put(683,38){\line(1,1){120}}% double bond at 5
-           \putratom{803}{158}{\@memberb}%  right type
-          \else%
-     \yl@xdiff=-10
-     \yl@ydiff=24
-           \put(673,46){\line(5,4){170}}% single bond at 5
-           \putratom{853}{158}{\@memberb}% right type
-   \fi\fi}%
-\def\@chairf{%
-   \if\@tmpb S%single bond
-    \ifx\@tmpc\empty%
-     \yl@xdiff=0
-     \yl@ydiff=54
-           \put(270,-90){\line(-5,-4){170}}% single bond at 2
-           \putlatom{100}{-280}{\@memberb}% left type
-    \else\if\@tmpc a%(a) axial
-     \yl@xdiff=32
-     \yl@ydiff=92
-           \put(270,-90){\line(0,-1){168}}% single bond at 2 axial
-           \putlratom{238}{-350}{\@memberb}% left type
-    \else\if\@tmpc e%(e) beta
-     \yl@xdiff=26
-     \yl@ydiff=-14
-           \put(270,-90){\line(-5,3){144}}% single bond at 2 equatorial
-           \putratom{100}{18}{\@memberb}% left type
-    \fi\fi\fi%
-   \else \if\@tmpb D%double bond
-     \yl@xdiff=0
-     \yl@ydiff=54
-           \put(260,-80){\line(-5,-4){170}}% double bond at 2
-           \put(280,-100){\line(-5,-4){170}}% double bond at 2
-           \putlatom{100}{-280}{\@memberb}% left or right type
-          \else%
-     \yl@xdiff=0
-     \yl@ydiff=54
-           \put(270,-90){\line(-5,-4){170}}% single bond at 2
-           \putlatom{100}{-280}{\@memberb}% left type
-   \fi\fi}%
-\def\chair{\@ifnextchar[{\@chair}{\@chair[r]}}
-\def\@chair[#1]#2{%
-\@reset@ylsw%
-\ylchairposition{#2}%
-\def\@@ylii{0}\def\@@yli{0}%
-\if@ylsw
- \yl@shiftii=\@ylii
- \yl@shifti=\@yli
- \advance\yl@shiftii\@@ylii
- \advance\yl@shifti\@@yli
- \advance\yl@shiftii\yl@xdiff
- \advance\yl@shifti\yl@ydiff
- \begin{picture}(0,0)(-\yl@shiftii,-\yl@shifti)
-\else
- \begin{picture}(1600,800)(-400,-500)
-  \iforigpt \put(-400,-500){\circle*{50}}%
-           \put(0,0){\circle{50}}%
-   \typeout{command `chair' origin: (0,0) ---> (400,500)}
-  \fi%
-\fi
-   \thicklines%
-      \put(0,0){\line(3,-4){170}}%          % bond 1 to 2
-      \put(170,-226){\line(3,1){403}}%      %      2 to 3
-      \put(573,-91){\line(3,-1){270}}%      %      3 to 4
-   \thinlines%
-      \put(843,-181){\line(-3,4){170}}%     %      4 to 5
-      \put(673,46){\line(-3,-1){403}}%      %      5 to 6
-      \put(0,0){\line(3,-1){270}}%          %      1 to 6
-\@tfor\member:=#1\do{%
-\if\member r%no endcyclic bonds
-\else \if\member a%
-      \put(76,-42){\line(3,-4){110}}%       % double bond 1 to 2
-\else \if\member b%
-      \put(200,-186){\line(3,1){343}}%      %             2 to 3
-\else \if\member c%
-      \put(603,-70){\line(3,-1){190}}%      %             3 to 4
-\else \if\member d%
-      \put(780,-141){\line(-3,4){110}}%     %             4 to 5
-\else \if\member e%
-      \put(661,6){\line(-3,-1){343}}%       %             5 to 6
-\else \if\member f%
-      \put(75,-50){\line(3,-1){170}}%       %             1 to 6
-\fi\fi\fi\fi\fi\fi\fi}%
-\@forsemicol\member:=#2\do{%
-\ifx\member\empty\else
-\expandafter\@m@mb@r\member;\relax%
-\expandafter\threech@r\@membera{}{}%
-\ifx\@memberb\@yl\else
-\ifcase\@tmpa%0 omit
- \or\@chaira% subst. on 1
- \or\@chairb% subst. on 2
- \or\@chairc% subst. on 3
- \or\@chaird% subst. on 4
- \or\@chaire% subst. on 5
- \or\@chairf% subst. on 6
-\fi%end of ifcase
-\fi\fi%
-}\end{picture}}%               %end of \chair macro
-\def\ylchairposition#1{%
-\@@ylswfalse%%%\@reset@ylsw
-\@forsemicol\member:=#1\do{%
-\if@@ylsw\else
-\ifx\member\empty\else
-\expandafter\@m@mb@r\member;\relax
-\expandafter\threech@r\@membera{}{}\relax
-\ifx\@memberb\@yl\relax\@@ylswtrue\else\@@ylswfalse\fi
-\if@@ylsw
-\ifcase\@tmpa%0 omit
- \or\gdef\@ylii{0}\gdef\@yli{0}\global\@ylswtrue% subst. on 1
- \or\gdef\@ylii{-170}\gdef\@yli{226}\global\@ylswtrue% subst. on 2
- \or\gdef\@ylii{-573}\gdef\@yli{91}\global\@ylswtrue% subst. on 3
- \or\gdef\@ylii{-843}\gdef\@yli{181}\global\@ylswtrue% subst. on 4
- \or\gdef\@ylii{-673}\gdef\@yli{-46}\global\@ylswtrue% subst. on 5
- \or\gdef\@ylii{-270}\gdef\@yli{90}\global\@ylswtrue% subst. on 6
-\fi%end of ifcase
-\fi\fi\fi}}%
-\def\@chairia{%
-   \if\@tmpb S%single bond
-    \ifx\@tmpc\empty%
-     \yl@xdiff=10
-     \yl@ydiff=90
-           \put(0,0){\line(-1,-1){120}}% single bond at 1
-           \putlatom{-130}{-210}{\@memberb}% left type
-    \else\if\@tmpc a%(a) axial
-     \yl@xdiff=42
-     \yl@ydiff=92
-           \put(0,0){\line(0,-1){168}}% single bond at 1 axial
-           \putlratom{-42}{-260}{\@memberb}% left & right type
-    \else\if\@tmpc e%(e) beta
-     \yl@xdiff=16
-     \yl@ydiff=36
-           \put(0,0){\line(-5,3){144}}% single bond at 1 equatorial
-           \putlatom{-160}{50}{\@memberb}% left type
-    \fi\fi\fi%
-   \else \if\@tmpb D%double bond
-     \yl@xdiff=10
-     \yl@ydiff=90
-           \put(-10,10){\line(-1,-1){120}}% double bond at 1
-           \put(10,-10){\line(-1,-1){120}}% double bond at 1
-           \putlatom{-130}{-210}{\@memberb}% left type
-          \else%
-     \yl@xdiff=10
-     \yl@ydiff=90
-           \put(0,0){\line(-1,-1){120}}% single bond at 1
-           \putlatom{-130}{-210}{\@memberb}% left type
-   \fi\fi}%
-\def\@chairif{%
-   \if\@tmpb S%single bond
-    \ifx\@tmpc\empty%
-     \yl@xdiff=10
-     \yl@ydiff=30
-           \put(170,226){\line(-1,1){120}}% single bond at 6
-           \putratom{40}{316}{\@memberb}% left type
-    \else\if\@tmpc a%(a) axial
-     \yl@xdiff=32
-     \yl@ydiff=-12
-           \put(170,226){\line(0,1){168}}% single bond at 6 axial
-           \putlratom{138}{406}{\@memberb}% left & right type
-    \else\if\@tmpc e%(e) beta
-     \yl@xdiff=16
-     \yl@ydiff=46
-           \put(170,226){\line(-5,-3){144}}% single bond at 6 equatorial
-           \putlatom{10}{94}{\@memberb}% left type
-    \fi\fi\fi%
-   \else \if\@tmpb D%double bond
-     \yl@xdiff=10
-     \yl@ydiff=30
-           \put(160,216){\line(-1,1){120}}% double bond at 6
-           \put(180,236){\line(-1,1){120}}% double bond at 6
-           \putlatom{40}{316}{\@memberb}% left type
-          \else%
-     \yl@xdiff=10
-     \yl@ydiff=30
-           \put(170,226){\line(-1,1){120}}% single bond at 6
-           \putlatom{40}{316}{\@memberb}% left type
-   \fi\fi}%
-\def\@chairie{%
-   \if\@tmpb S%single bond
-    \ifx\@tmpc\empty%
-     \yl@xdiff=-10
-     \yl@ydiff=76
-           \put(573,91){\line(5,-4){170}}% single bond at 5
-           \putratom{753}{-101}{\@memberb}% right type
-    \else\if\@tmpc a%(a) axial
-     \yl@xdiff=40
-     \yl@ydiff=104
-           \put(573,91){\line(0,-1){168}}% single bond at 5 axial
-           \putlratom{533}{-181}{\@memberb}% left type
-    \else\if\@tmpc e%(e) beta
-     \yl@xdiff=-36
-     \yl@ydiff=3
-           \put(573,91){\line(5,3){144}}% single bond at 5 equatorial
-           \putlatom{753}{180}{\@memberb}% left type
-    \fi\fi\fi%
-   \else \if\@tmpb D%double bond
-     \yl@xdiff=-10
-     \yl@ydiff=96
-           \put(563,83){\line(5,-4){170}}% double bond at 5
-           \put(583,99){\line(5,-4){170}}% double bond at 5
-           \putratom{733}{-141}{\@memberb}% right type
-          \else%
-     \yl@xdiff=-10
-     \yl@ydiff=76
-           \put(573,91){\line(5,-4){170}}% single bond at 5
-           \putratom{753}{-121}{\@memberb}% right type
-   \fi\fi}%
-\def\@chairid{%
-   \if\@tmpb S%single bond
-    \ifx\@tmpc\empty%
-     \yl@xdiff=10
-     \yl@ydiff=30
-           \put(843,181){\line(1,1){120}}% single bond at 4
-           \putratom{953}{271}{\@memberb}% right type
-    \else\if\@tmpc a%(a) axial
-     \yl@xdiff=42
-     \yl@ydiff=-11
-           \put(843,181){\line(0,1){168}}% single bond at 4 axial
-           \putlratom{801}{360}{\@memberb}% left & right type
-    \else\if\@tmpc e%(e) beta
-     \yl@xdiff=-16
-     \yl@ydiff=64
-           \put(843,181){\line(5,-3){144}}% single bond at 4 equatorial
-           \putratom{1003}{31}{\@memberb}% right type
-    \fi\fi\fi%
-   \else \if\@tmpb D%double bond
-     \yl@xdiff=10
-     \yl@ydiff=30
-           \put(833,191){\line(1,1){120}}% double bond at 4
-           \put(853,171){\line(1,1){120}}% double bond at 4
-           \putratom{953}{271}{\@memberb}% right type
-          \else%
-     \yl@xdiff=10
-     \yl@ydiff=30
-           \put(843,181){\line(1,1){120}}% single bond at 4
-           \putratom{953}{271}{\@memberb}% right type
-   \fi\fi}%
-\def\@chairic{%
-   \if\@tmpb S%single bond
-    \ifx\@tmpc\empty%
-     \yl@xdiff=-10
-     \yl@ydiff=92
-           \put(673,-46){\line(1,-1){120}}% single bond at 3
-           \putratom{803}{-258}{\@memberb}% right type
-    \else\if\@tmpc a%(a) axial
-     \yl@xdiff=40
-     \yl@ydiff=110
-           \put(673,-46){\line(0,-1){168}}% single bond at 3 axial
-           \putlratom{633}{-318}{\@memberb}% left & right type
-    \else\if\@tmpc e%(e) beta
-     \yl@xdiff=-6
-     \yl@ydiff=17
-           \put(673,-46){\line(5,3){144}}% single bond at 3 equatorial
-           \putratom{823}{23}{\@memberb}% right type
-    \fi\fi\fi%
-   \else \if\@tmpb D%double bond
-     \yl@xdiff=-5
-     \yl@ydiff=96
-           \put(663,-53){\line(1,-1){120}}% double bond at 3
-           \put(683,-38){\line(1,-1){120}}% double bond at 3
-           \putratom{803}{-258}{\@memberb}%  right type
-          \else%
-     \yl@xdiff=-10
-     \yl@ydiff=76
-           \put(673,-46){\line(5,-4){170}}% single bond at 3
-           \putratom{853}{-258}{\@memberb}% right type
-   \fi\fi}%
-\def\@chairib{%
-   \if\@tmpb S%single bond
-    \ifx\@tmpc\empty%
-     \yl@xdiff=0
-     \yl@ydiff=46
-           \put(270,90){\line(-5,4){170}}% single bond at 2
-           \putlatom{100}{180}{\@memberb}% left type
-    \else\if\@tmpc a%(a) axial
-     \yl@xdiff=32
-     \yl@ydiff=-12
-           \put(270,90){\line(0,1){168}}% single bond at 2 axial
-           \putlratom{238}{270}{\@memberb}% left type
-    \else\if\@tmpc e%(e) beta
-     \yl@xdiff=26
-     \yl@ydiff=94
-           \put(270,90){\line(-5,-3){144}}% single bond at 2 equatorial
-           \putratom{100}{-98}{\@memberb}% left type
-    \fi\fi\fi%
-   \else \if\@tmpb D%double bond
-     \yl@xdiff=0
-     \yl@ydiff=26
-           \put(260,80){\line(-5,4){170}}% double bond at 2
-           \put(280,100){\line(-5,4){170}}% double bond at 2
-           \putlatom{100}{200}{\@memberb}% left or right type
-          \else%
-     \yl@xdiff=0
-     \yl@ydiff=26
-           \put(270,90){\line(-5,4){170}}% single bond at 2
-           \putlatom{100}{200}{\@memberb}% left type
-   \fi\fi}%
-\def\chairi{\@ifnextchar[{\@chairi}{\@chairi[r]}}
-\def\@chairi[#1]#2{%
-\@reset@ylsw%
-\ylchairiposition{#2}%
-\def\@@ylii{0}\def\@@yli{0}%
-\if@ylsw
- \yl@shiftii=\@ylii
- \yl@shifti=\@yli
- \advance\yl@shiftii\@@ylii
- \advance\yl@shifti\@@yli
- \advance\yl@shiftii\yl@xdiff
- \advance\yl@shifti\yl@ydiff
- \begin{picture}(0,0)(-\yl@shiftii,-\yl@shifti)
-\else
- \begin{picture}(1600,800)(-400,-319)
-  \iforigpt \put(-400,-319){\circle*{50}}%
-           \put(0,0){\circle{50}}%
-   \typeout{command `chairi' origin: (0,0) ---> (400,319)}
-  \fi%
-\fi
-   \thinlines%
-      \put(0,0){\line(3,4){170}}%         % bond 1 to 6
-      \put(170,226){\line(3,-1){403}}%    %      6 to 5
-      \put(573,91){\line(3,1){270}}%      %      5 to 4
-   \thicklines%
-      \put(843,181){\line(-3,-4){170}}%    %      4 to 3
-      \put(673,-46){\line(-3,1){403}}%     %      3 to 2
-      \put(0,0){\line(3,1){270}}%          %      1 to 2
-   \thinlines%
-\@tfor\member:=#1\do{%
-\if\member r%no endcyclic bonds
-\else \if\member c%%%a%
-       \put(767,139){\line(-3,-4){110}}%   % double bond 3 to 4
-\else \if\member b%%%d%%%b%
-      \put(640,-5){\line(-3,1){343}}%      %             4 to 5
-\else \if\member a%%%e%%%%c%
-       \put(240,111){\line(-3,-1){190}}%   %             5 to 6
-\else \if\member f%%%d%
-      \put(63,40){\line(3,4){110}}%        %             6 to 7
-\else \if\member e%%%l%
-      \put(182,187){\line(3,-1){343}}%     %             7 to 10
-\else \if\member d%%%k%%%f%
-      \put(768,131){\line(-3,-1){170}}%    %             10 to 3
-\fi\fi\fi\fi\fi\fi\fi}%
-\@forsemicol\member:=#2\do{%
-\ifx\member\empty\else
-\expandafter\@m@mb@r\member;\relax%
-\expandafter\threech@r\@membera{}{}%
-\ifx\@memberb\@yl\else
-\ifcase\@tmpa%0 omit
- \or \@chairia% subst. on 1
- \or \@chairib% subst. on 2
- \or \@chairic% subst. on 3
- \or \@chairid% subst. on 4
- \or \@chairie% subst. on 5
- \or \@chairif% subst. on 6
-\fi %end of ifcase
-\fi\fi%
-}\end{picture}}%               %end of \chairi macro
-\def\ylchairiposition#1{%
-\@@ylswfalse%%%\@reset@ylsw
-\@forsemicol\member:=#1\do{%
-\if@@ylsw\else
-\ifx\member\empty\else
-\expandafter\@m@mb@r\member;\relax
-\expandafter\threech@r\@membera{}{}\relax
-\ifx\@memberb\@yl\relax\@@ylswtrue\else\@@ylswfalse\fi
-\if@@ylsw
-\ifcase\@tmpa%0 omit
- \or\gdef\@ylii{0}\gdef\@yli{0}\global\@ylswtrue% subst. on 1
- \or\gdef\@ylii{-270}\gdef\@yli{-90}\global\@ylswtrue% subst. on 2
- \or\gdef\@ylii{-673}\gdef\@yli{46}\global\@ylswtrue% subst. on 3
- \or\gdef\@ylii{-843}\gdef\@yli{-181}\global\@ylswtrue% subst. on 4
- \or\gdef\@ylii{-573}\gdef\@yli{-91}\global\@ylswtrue% subst. on 5
- \or\gdef\@ylii{-170}\gdef\@yli{-226}\global\@ylswtrue% subst. on 6
-\fi%end of ifcase
-\fi\fi\fi}}%
-\def\bicychepv{\@ifnextchar[{\@bicychepv}{\@bicychepv[r]}}
-\def\@bicychepv[#1]#2{%
-\@reset@ylsw%
-\ylposition{#2}{0}{0}{7}{0}%
-\if@ylsw
- \yl@shiftii=\@ylii
- \yl@shifti=\@yli
- \advance\yl@shiftii\yl@xdiff
- \advance\yl@shifti\yl@ydiff
- \begin{picture}(0,0)(-\yl@shiftii,-\yl@shifti)
-\else
- \begin{picture}(800,880)(-400,-240)
-  \iforigpt \put(-400,-240){\circle*{50}}%
-           \put(0,0){\circle{50}}%
-   \typeout{command `bicychepv' origin: (0,0) ---> (400,240)}
-\fi
-  \fi%
-  \put(0,406){\line(-5,-3){171}}%       %bond 1-6
-  \put(0,406){\line(5,-3){171}}%        %bond 1-2
-  \put(0,0){\line(-5,3){171}}%          %bond 4-5
-  \put(0,0){\line(5,3){171}}%           %bond 4-3
-  \put(171,103){\line(0,1){200}}%       %bond 3-2
-  \put(-171,103){\line(0,1){200}}%      %bond 5-6
-{\thicklines%
-  \put(0,0){\line(1,4){51}}%            %bond 4-7
-  \put(0,406){\line(1,-4){51}}}%         %bond 1-7
-\@tfor\member:=#1\do{%
-\if\member r%no endcyclic double bonds
-\else \if\member a%
-  \put(6,364){\line(5,-3){126}}%        %double bond 1-2
-\else \if\member b%
-  \put(138,129){\line(0,1){148}}%       %double bond 3-2
-\else \if\member c%
-  \put(6,42){\line(5,3){126}}%          %double bond 4-3
-\else \if\member d%
-  \put(-6,42){\line(-5,3){126}}%        %double bond 4-5
-\else \if\member e%
-  \put(-138,129){\line(0,1){148}}%      %double bond 5-6
-\else \if\member f%
-  \put(-6,364){\line(-5,-3){126}}%      %double bond 1-6
-\else \if\member 7%
- {\thicklines%
-  \put(51,204){\line(-1,0){70}}%        %7,7-dimethyl
-  \put(51,204){\line(1,0){70}}}%
-\else \if\member A%aromatic circle
-  \put(0,203){\circle{240}}%            %circle
-\fi\fi\fi\fi\fi\fi\fi\fi\fi}%
-\setsixringv{#2}{0}{0}{7}{0}
-\end{picture}}               %end of \bicychepv macro
-\def\bicycheph{\@ifnextchar[{\@bicycheph}{\@bicycheph[r]}}
-\def\@bicycheph[#1]#2{%
-\@reset@ylsw%
-\ylpositionh{#2}{0}{0}{7}{0}%
-\if@ylsw
- \yl@shiftii=\@ylii
- \yl@shifti=\@yli
- \advance\yl@shiftii\yl@xdiff
- \advance\yl@shifti\yl@ydiff
- \begin{picture}(0,0)(-\yl@shiftii,-\yl@shifti)
-\else
- \begin{picture}(880,800)(-240,-400)
-  \iforigpt \put(-240,-400){\circle*{50}}%
-           \put(0,0){\circle{50}}%
-   \typeout{command `bicycheph' origin: (0,0) ---> (240,400)}
-  \fi%
-\fi
-  \put(0,0){\line(3,5){103}}           %bond 1-2
-  \put(0,0){\line(3,-5){103}}          %bond 1-6
-  \put(406,0){\line(-3,5){103}}        %bond 4-3
-  \put(406,0){\line(-3,-5){103}}       %bond 4-3
-  \put(103,171){\line(1,0){200}}       %bond 2-3
-  \put(103,-171){\line(1,0){200}}      %bond 6-5
-{\thicklines%
-  \put(0,0){\line(4,1){203}}%            %bond 4-7
-  \put(406,0){\line(-4,1){203}}}%         %bond 1-7
-\@tfor\member:=#1\do{%
-\if\member r%no endcyclic double bonds
-\else \if\member a%
-  \put(42,6){\line(3,5){78}}           %double bond 1-2
-\else \if\member b%
-  \put(129,138){\line(1,0){148}}       %double bond 2-3
-\else \if\member c%
-  \put(364,6){\line(-3,5){78}}         %double bond 4-3
-\else \if\member d%
-  \put(364,-6){\line(-3,-5){78}}       %double bond 4-5
-\else \if\member e%
-  \put(129,-138){\line(1,0){148}}      %double bond 6-5
-\else \if\member f%
-  \put(42,-6){\line(3,-5){78}}         %double bond 1-6
-\else \if\member 7%
- {\thicklines%
-  \put(204,51){\line(0,-1){70}}%        %7,7-dimethyl
-  \put(204,51){\line(0,1){70}}}%
-\else \if\member A%aromatic circle
-  \put(203,0){\circle{240}}            %circle
-\fi\fi\fi\fi\fi\fi\fi\fi\fi}
-\setsixringh{#2}{0}{0}{7}{0}
-\end{picture}}               %end of \bicycheph macro
-\def\@borna{%
-   \if\@tmpb S%single bond
-    \ifx\@tmpc\empty%
-     \yl@xdiff=8
-     \yl@ydiff=3
-          \put(318,247){\line(2,5){40}}%      % single bond 1
-           \putratom{350}{350}{\@memberb}%    % right type
-    \else\if\@tmpc a%(a) alpha
-     \yl@xdiff=8
-     \yl@ydiff=3
-          \put(318,247){\line(2,5){40}}%      % single bond 1
-           \putratom{350}{350}{\@memberb}%    % right type
-    \else\if\@tmpc b%(b) beta
-     \yl@xdiff=8
-     \yl@ydiff=3
-          \put(318,247){\line(2,5){40}}%      % single bond 1
-          \putratom{350}{350}{\@memberb}%     % right type
-    \fi\fi\fi%
-   \else%
-     \yl@xdiff=8
-     \yl@ydiff=3
-          \put(318,247){\line(2,5){40}}%      % single bond 1
-           \putratom{350}{350}{\@memberb}     % right type
-   \fi}%
-\def\@bornb{%
- \begin{picture}(200,200)(0,0)
-   \if\@tmpb S%single bond
-    \ifx\@tmpc\empty%
-     \yl@xdiff=-10
-     \yl@ydiff=20
-           \put(0,0){\line(5,2){160}}%
-           \putratom{170}{44}{\@memberb}%      % left type
-    \else\if\@tmpc A%(A) alpha
-     \yl@xdiff=0
-     \yl@ydiff=-5
-           \putratom{140}{115}{\@memberb}%     % right type
-           {%
-           \thicklines%
-           \put(0,0){\line(4,3){140}}%         % endo (a)
-           }%
-    \else\if\@tmpc B%(B) beta
-     \yl@xdiff=10
-     \yl@ydiff=30
-           \putratom{150}{-86}{\@memberb}%     % right type
-       \@ifundefined{dottedline}{%
-           \put(0,0){\line(5,-2){140}}%        % exo (b)
-           }{{\thicklines%
-              \dottedline{20}(0,0)(140,-56)}}%
-    \else\if\@tmpc a%(a) alpha
-     \yl@xdiff=10
-     \yl@ydiff=30
-           \put(0,0){\line(5,-2){140}}%        % endo (a)
-           \putratom{150}{-86}{\@memberb}%     % right type
-    \else\if\@tmpc b%(b) beta
-     \yl@xdiff=0
-     \yl@ydiff=-10
-           \put(0,0){\line(4,3){140}}%         % exo (b)
-           \putratom{140}{115}{\@memberb}%     % right type
-    \fi\fi\fi\fi\fi%
-   \else \if\@tmpb D%double bond
-     \yl@xdiff=-10
-     \yl@ydiff=20
-           \put(-10,-15){\line(5,2){160}}%
-           \put(-5,15){\line(5,2){160}}%
-           \putratom{170}{44}{\@memberb}%      % right type
-   \else \if\@tmpb A%alpha single bond
-     \yl@xdiff=-10
-     \yl@ydiff=20
-           \putratom{170}{44}{\@memberb}%      % right type
-           {%
-           \thicklines%
-           \put(0,0){\line(5,2){160}}%
-           }%
-   \else \if\@tmpb B%beta single bond
-     \yl@xdiff=-10
-     \yl@ydiff=20
-           \putratom{170}{44}{\@memberb}%      % right type
-       \@ifundefined{dottedline}{%
-           \put(0,0){\line(5,2){160}}%
-           }{{\thicklines%
-              \dottedline{20}(0,0)(160,64)}}%
-   \else%
-     \yl@xdiff=-10
-     \yl@ydiff=20
-           \put(0,0){\line(5,2){160}}%
-           \putratom{170}{44}{\@memberb}%      % right type
-   \fi\fi\fi\fi\end{picture}}%
-\def\@bornc{%
- \begin{picture}(200,200)(0,0)
-   \if\@tmpb S%single bond
-    \ifx\@tmpc\empty%
-     \yl@xdiff=-10
-     \yl@ydiff=30
-           \put(0,0){\line(5,-2){140}}%
-           \putratom{150}{-86}{\@memberb}%    % right type
-    \else\if\@tmpc A%(A) alpha
-     \yl@xdiff=-10
-     \yl@ydiff=30
-           \putratom{150}{26}{\@memberb}%     % right type
-           {%
-           \thicklines%
-           \put(0,0){\line(5,2){140}}%        % endo (a)
-           }%
-    \else\if\@tmpc B%(B) beta
-     \yl@xdiff=0
-     \yl@ydiff=40
-           \putratom{140}{-145}{\@memberb}%   % right type
-       \@ifundefined{dottedline}{%
-           \put(0,0){\line(4,-3){140}}%       % exo (b)
-           }{{\thicklines%
-              \dottedline{20}(0,0)(140,-105)}}%
-    \else\if\@tmpc a%(a) alpha
-     \yl@xdiff=0
-     \yl@ydiff=40
-           \put(0,0){\line(4,-3){140}}%       % endo (a)
-           \putratom{140}{-145}{\@memberb}%   % right type
-    \else\if\@tmpc b%(b) beta
-     \yl@xdiff=-10
-     \yl@ydiff=30
-           \put(0,0){\line(5,2){140}}%        % exo (b)
-           \putratom{150}{26}{\@memberb}%     % right type
-    \fi\fi\fi\fi\fi
-   \else \if\@tmpb D%double bond
-     \yl@xdiff=10
-     \yl@ydiff=50
-           \put(10,15){\line(5,-2){160}}%
-           \put(5,-15){\line(5,-2){160}}%
-           \putratom{170}{-124}{\@memberb}%   % right type
-   \else \if\@tmpb A%alpha single bond
-     \yl@xdiff=-10
-     \yl@ydiff=30
-           \putratom{150}{-86}{\@memberb}%    % right type
-           {%
-           \thicklines%
-           \put(0,0){\line(5,-2){140}}%       % endo (a)
-           }%
-   \else \if\@tmpb B%beta single bond
-     \yl@xdiff=-10
-     \yl@ydiff=30
-           \putratom{150}{-86}{\@memberb}%    % right type
-       \@ifundefined{dottedline}{%
-           \put(0,0){\line(5,-2){140}}%       % exo (b)
-           }{{\thicklines%
-              \dottedline{20}(0,0)(140,-56)}}%
-   \else%
-     \yl@xdiff=-10
-     \yl@ydiff=20
-           \put(0,0){\line(5,2){160}}%
-           \putratom{170}{44}{\@memberb}%     % right type
-   \fi\fi\fi\fi%
-\end{picture}}%
-\def\@bornd{%
-   \if\@tmpb S%single bond
-    \ifx\@tmpc\empty%
-     \yl@xdiff=30
-     \yl@ydiff=87
-          \put(237,47){\line(-2,-5){40}}%      % single bond 4
-          \putlratom{167}{-140}{\@memberb}%    % left & right type
-    \else\if\@tmpc a%(a) alpha
-     \yl@xdiff=30
-     \yl@ydiff=87
-          \put(237,47){\line(-2,-5){40}}%      % single bond 4
-          \putlratom{167}{-140}{\@memberb}%    % left & right type
-    \else\if\@tmpc b%(b) beta
-     \yl@xdiff=30
-     \yl@ydiff=87
-          \put(237,47){\line(-2,-5){40}}%      % single bond 4
-          \putlratom{167}{-140}{\@memberb}%    % left & right type
-    \fi\fi\fi%
-   \else%
-     \yl@xdiff=30
-     \yl@ydiff=87
-          \put(237,47){\line(-2,-5){40}}%      % single bond 4
-          \putlratom{167}{-140}{\@memberb}%    % left & right type
-   \fi}%
-\def\@borne{%
- \begin{picture}(200,200)(0,0)
-   \if\@tmpb S%single bond
-    \ifx\@tmpc\empty%
-     \yl@xdiff=10
-     \yl@ydiff=30
-           \put(0,0){\line(-5,-2){140}}%
-           \putlatom{-150}{-86}{\@memberb}%    % left type
-    \else\if\@tmpc A%(A) alpha
-     \yl@xdiff=10
-     \yl@ydiff=30
-           \putlatom{-150}{26}{\@memberb}%     % left type
-           {%
-           \thicklines%
-           \put(0,0){\line(-5,2){140}}%        % endo (a)
-           }%
-    \else\if\@tmpc B%(B) beta
-     \yl@xdiff=0
-     \yl@ydiff=40
-           \putlatom{-140}{-145}{\@memberb}%   % left type
-       \@ifundefined{dottedline}{%
-           \put(0,0){\line(-4,-3){140}}%       % exo (b)
-           }{{\thicklines%
-              \dottedline{20}(0,0)(-140,-105)}}%
-    \else\if\@tmpc a%(a) alpha
-     \yl@xdiff=0
-     \yl@ydiff=30
-           \put(0,0){\line(-4,-3){140}}%       % endo (a)
-           \putlatom{-140}{-145}{\@memberb}%   % left type
-    \else\if\@tmpc b%(b) beta
-     \yl@xdiff=10
-     \yl@ydiff=30
-           \put(0,0){\line(-5,2){140}}%        % exo (b)
-           \putlatom{-150}{26}{\@memberb}%     % left type
-    \fi\fi\fi\fi\fi
-   \else \if\@tmpb D%double bond
-     \yl@xdiff=0
-     \yl@ydiff=64
-           \put(-10,15){\line(-5,-2){160}}%
-           \put(-5,-15){\line(-5,-2){160}}%
-           \putlatom{-170}{-124}{\@memberb}%   % left type
-   \else \if\@tmpb A%alpha single bond
-     \yl@xdiff=10
-     \yl@ydiff=30
-           \putlatom{-150}{-86}{\@memberb}%    % left type
-           {%
-           \thicklines%
-           \put(0,0){\line(-5,-2){140}}%       % endo (a)
-           }%
-   \else \if\@tmpb B%beta single bond
-     \yl@xdiff=10
-     \yl@ydiff=30
-           \putlatom{-150}{-86}{\@memberb}%    % left type
-       \@ifundefined{dottedline}{%
-           \put(0,0){\line(-5,-2){140}}%       % exo (b)
-           }{{\thicklines%
-              \dottedline{20}(0,0)(-140,-56)}}%
-   \else%
-     \yl@xdiff=10
-     \yl@ydiff=20
-           \put(0,0){\line(-5,2){160}}%
-           \putlatom{-170}{44}{\@memberb}%     % left type
-   \fi\fi\fi\fi%
-\end{picture}}%
-\def\@bornf{%
- \begin{picture}(200,200)(0,0)
-   \if\@tmpb S%single bond
-    \ifx\@tmpc\empty%
-     \yl@xdiff=10
-     \yl@ydiff=30
-           \put(0,0){\line(-5,2){160}}%
-           \putlatom{-170}{44}{\@memberb}%      % left type
-    \else\if\@tmpc A%(A) alpha
-     \yl@xdiff=10
-     \yl@ydiff=-10
-           \putlatom{-140}{115}{\@memberb}%     % left type
-           {%
-           \thicklines%
-           \put(0,0){\line(-4,3){140}}%         % endo (a)
-           }%
-    \else\if\@tmpc B%(B) beta
-     \yl@xdiff=0
-     \yl@ydiff=30
-           \putlatom{-150}{-86}{\@memberb}%     % left type
-       \@ifundefined{dottedline}{%
-           \put(0,0){\line(-5,-2){140}}%        % exo (b)
-           }{{\thicklines%
-              \dottedline{20}(0,0)(-140,-56)}}%
-    \else\if\@tmpc a%(a) alpha
-     \yl@xdiff=10
-     \yl@ydiff=30
-           \put(0,0){\line(-5,-2){140}}%        % endo (a)
-           \putlatom{-150}{-86}{\@memberb}%     % left type
-    \else\if\@tmpc b%(b) beta
-     \yl@xdiff=0
-     \yl@ydiff=-10
-           \put(0,0){\line(-4,3){140}}%         % exo (b)
-           \putlatom{-140}{115}{\@memberb}%     % left type
-    \fi\fi\fi\fi\fi%
-   \else \if\@tmpb D%double bond
-     \yl@xdiff=0
-     \yl@ydiff=20
-           \put(10,-15){\line(-5,2){160}}%
-           \put(5,15){\line(-5,2){160}}%
-           \putlatom{-170}{44}{\@memberb}%      % left type
-   \else \if\@tmpb A%alpha single bond
-     \yl@xdiff=10
-     \yl@ydiff=30
-           \putlatom{-170}{44}{\@memberb}%      % left type
-           {%
-           \thicklines%
-           \put(0,0){\line(-5,2){160}}%
-           }%
-   \else \if\@tmpb B%beta single bond
-     \yl@xdiff=10
-     \yl@ydiff=30
-           \putlatom{-170}{44}{\@memberb}%      % left type
-       \@ifundefined{dottedline}{%
-           \put(0,0){\line(-5,2){160}}%
-           }{{\thicklines%
-              \dottedline{20}(0,0)(-160,64)}}%
-   \else%
-     \yl@xdiff=10
-     \yl@ydiff=20
-           \put(0,0){\line(-5,2){160}}%
-           \putlatom{-170}{44}{\@memberb}%      % left type
-   \fi\fi\fi\fi\end{picture}}%
-\def\@borng{%
- \begin{picture}(200,200)(0,0)
-   \if\@tmpb S%single bond
-    \ifx\@tmpc\empty%
-     \yl@xdiff=40
-     \yl@ydiff=-20
-           \put(0,0){\line(0,1){160}}%
-           \putlratom{-40}{180}{\@memberb}%      % left & right type
-    \else\if\@tmpc a%(a) left
-     \yl@xdiff=0
-     \yl@ydiff=-10
-           \put(0,0){\line(-4,3){140}}%          % left (a)
-           \putlatom{-140}{115}{\@memberb}%      % left type
-    \else\if\@tmpc b%(b) right
-     \yl@xdiff=0
-     \yl@ydiff=-10
-           \put(0,0){\line(4,3){140}}%           % right (b)
-           \putratom{140}{115}{\@memberb}%       % right type
-    \fi\fi\fi%\fi\fi%
-   \else \if\@tmpb D%double bond
-     \yl@xdiff=40
-     \yl@ydiff=-20
-           \put(-10,0){\line(0,1){160}}%
-           \put(10,0){\line(0,1){160}}%
-           \putlratom{-40}{180}{\@memberb}%      % left & right type
-   \else%
-     \yl@xdiff=40
-     \yl@ydiff=-20
-           \put(0,0){\line(0,1){160}}%
-           \putlratom{-40}{180}{\@memberb}%      % left & right type
-   \fi\fi\end{picture}}%
-
-\def\bornane{\@ifnextchar[{\@bornane}{\@bornane[r]}}
-\def\@bornane[#1]#2{%
-\@reset@ylsw%
-\ylbornaneposition{#2}%
-\def\@@ylii{0}\def\@@yli{0}%
-\if@ylsw
- \yl@shiftii=\@ylii
- \yl@shifti=\@yli
- \advance\yl@shiftii\@@ylii
- \advance\yl@shifti\@@yli
- \advance\yl@shiftii\yl@xdiff
- \advance\yl@shifti\yl@ydiff
- \begin{picture}(0,0)(-\yl@shiftii,-\yl@shifti)
-\else
- \begin{picture}(1000,1000)(-200,-240)%changed by SF 1998/09/26
-  \iforigpt \put(-200,-240){\circle*{50}}%
-           \put(0,0){\circle{50}}%
-   \typeout{command `bornane' origin: (0,0) ---> (200,240)}
-  \fi%
-\fi
- \thicklines%
-  \put(0,0){\line(5,1){237}}%            % bond 5 to 4 (d)
-  \put(237,47){\line(5,-2){225}}%        % bond 4 to 3 (c)
-  \put(237,47){\line(0,1){400}}%         % front part of bridge (h)
- \thinlines%
-  \put(462,-43){\line(2,5){80}}%         % bond 3 to 2 (b)
-  \put(543,157){\line(-5,2){225}}%       % bond 2 to 1 (a)
-  \put(318,247){\line(-5,-1){237}}%      % bond 1 to 6 (f)
-  \put(80,200){\line(-2,-5){80}}%        % bond 6 to 5 (e)
-  \put(318,247){\line(-2,5){80}}%        % back part of bridge (g)
-\@tfor\member:=#1\do{%
-\if\member r%no endcyclic bonds
-\else \if\member a%%%%
-   \put(513,127){\line(-5,2){180}}%       % bond 2 to 1
-\else \if\member b%%%%
-   \put(446,-3){\line(2,5){60}}%          % bond 3 to 2
-\else \if\member c%%%%
-   \put(267,77){\line(5,-2){180}}%        % bond 4 to 3
-\else \if\member d%%%%
-   \put(40,42){\line(5,1){180}}%          % double bond 5 to 4
-\else \if\member e%%%
-   \put(100,180){\line(-2,-5){60}}%       % bond 6 to 5
-\else \if\member f%
-   \put(288,207){\line(-5,-1){180}}%      % bond 1 to 6
-\else \if\member g%
-  \put(288,260){\line(-2,5){40}}%         % back part of bridge (g)
-\else \if\member h%
-  \put(257,77){\line(0,1){290}}%          % front part of bridge (h)
-\fi\fi\fi\fi\fi\fi\fi\fi\fi}%
-\@forsemicol\member:=#2\do{%
-\ifx\member\empty\else
-\expandafter\@m@mb@r\member;\relax%
-\expandafter\threech@r\@membera{}{}%
-\ifx\@memberb\@yl\else
-\ifcase\@tmpa%0 omit
- \or \@borna% subst. on 1
- \or \put(543,157){\@bornb}% subst. on 2
- \or \put(462,-43){\@bornc}% subst. on 3
- \or \@bornd% subst. on 4
- \or \put(0,0){\@borne}% subst. on 5
- \or \put(80,200){\@bornf}% subst. on 6
- \or \put(237,440){\@borng}% subst. on 7
-\fi%end of ifcase
-\fi\fi%
-}\end{picture}\iniatom\iniflag}     %end of \bornane macro
-\def\ylbornaneposition#1{%
-\@@ylswfalse%%%\@reset@ylsw
-\@forsemicol\member:=#1\do{%
-\if@@ylsw\else
-\ifx\member\empty\else
-\expandafter\@m@mb@r\member;\relax
-\expandafter\threech@r\@membera{}{}\relax
-\ifx\@memberb\@yl\relax\@@ylswtrue\else\@@ylswfalse\fi
-\if@@ylsw
-\ifcase\@tmpa%0 omit
- \or\gdef\@ylii{-318}\gdef\@yli{-247}\global\@ylswtrue% subst. on 1
- \or\gdef\@ylii{-543}\gdef\@yli{-157}\global\@ylswtrue% subst. on 2
- \or\gdef\@ylii{-462}\gdef\@yli{43}\global\@ylswtrue% subst. on 3
- \or\gdef\@ylii{-237}\gdef\@yli{-47}\global\@ylswtrue% subst. on 4
- \or\gdef\@ylii{0}\gdef\@yli{0}\global\@ylswtrue% subst. on 5
- \or\gdef\@ylii{-80}\gdef\@yli{-200}\global\@ylswtrue% subst. on 6
- \or\gdef\@ylii{-237}\gdef\@yli{-440}\global\@ylswtrue% subst. on 7
-\fi%end of ifcase
-\fi\fi\fi}}%
-\def\@adamanea{%
-     \yl@xdiff=12
-     \yl@ydiff=21
-   \put(-360,720){\hbox to0pt{\hss \@memberb}}%     %atom 1
- \if\@tmpb a%
-   \put(-240,660){\line(-4,3){108}}%                %bond 1
-  \else \ifx\@tmpb\empty%
-   \put(-240,660){\line(-4,3){108}}%                %bond 1
- \fi\fi}%
-\def\@adamaneb{%
-  \if\@tmpb a%
-     \yl@xdiff=6
-     \yl@ydiff=-16
-   \put(0,780){\line(1,4){26}}%                     %bond 2-ax
-   \put(20,900){\hbox to0pt{\@memberb \hss}}%       %atom 2-ax
-  \else \if\@tmpb b%
-     \yl@xdiff=-6
-     \yl@ydiff=-16
-   \put(0,780){\line(-1,4){26}}%                    %bond 2-eq
-   \put(-20,900){\hbox to0pt{\hss \@memberb}}%      %atom 2-eq
-  \else \ifx\@tmpb\empty%
-     \yl@xdiff=42
-     \yl@ydiff=-22
-   \put(-42,910){\hbox to0pt{\hss \@memberb}}%      %atom 2
-   \put(0,780){\line(0,1){108}}%                    %bond 2
-  \else \if\@tmpb D%
-     \yl@xdiff=42
-     \yl@ydiff=-22
-   \putlratom{-42}{910}{\@memberb}%                 %atom 2
-   \put(-12,780){\line(0,1){108}}%                  %double bond 2
-   \put(12,780){\line(0,1){108}}%                   %double bond 2
- \fi\fi\fi\fi}
-\def\@adamanec{%
-     \yl@xdiff=-12
-     \yl@ydiff=21
-   \put(360,720){\hbox to0pt{\@memberb \hss}}%      %atom 3
-  \if\@tmpb a%1998/10/24 by SF
-   \put(240,660){\line(4,3){108}}%                  %bond 3
-  \else \ifx\@tmpb\empty%
-   \put(240,660){\line(4,3){108}}%                  %bond 3
- \fi\fi}
-\def\@adamaned{%
-  \if\@tmpb a%
-     \yl@xdiff=-17
-     \yl@ydiff=33
-   \put(300,420){\line(4,-3){103}}%                 %bond 4-ax
-   \put(420,310){\hbox to0pt{\@memberb \hss}}%      %atom 4-ax
-  \else \if\@tmpb b%
-     \yl@xdiff=26
-     \yl@ydiff=-26
-   \put(300,420){\line(1,4){26}}%                   %bond 4-eq
-   \put(300,540){\hbox to0pt{\@memberb \hss}}%      %atom 4-eq
-  \else \ifx\@tmpb\empty%
-     \yl@xdiff=-17
-     \yl@ydiff=33
-   \put(300,420){\line(4,-3){103}}%                 %bond 4
-   \put(420,310){\hbox to0pt{\@memberb \hss}}%      %atom 4
-  \else \if\@tmpb D%
-     \yl@xdiff=-17
-     \yl@ydiff=33
-   \put(296,432){\line(5,-3){103}}%                 %double bond 4
-   \put(292,408){\line(5,-3){103}}%                 %double bond 4
-   \put(420,310){\hbox to0pt{\@memberb \hss}}%      %atom 4
-  \fi\fi\fi\fi}
-\def\@adamanee{%
-     \yl@xdiff=20
-     \yl@ydiff=110
-  \if\@tmpb a%1998/10/24 by SF
-   \put(60,240){\line(1,-5){30}}%                   %bond 5
-   \put(70,-20){\hbox to0pt{\@memberb  \hss}}%      %atom 5
-  \else \ifx\@tmpb\empty%
-   \put(60,240){\line(1,-5){30}}%                   %bond 5
-   \put(70,-20){\hbox to0pt{\@memberb  \hss}}%      %atom 5
-  \fi\fi}
-\def\@adamanef{%
-  \if\@tmpb a%
-     \yl@xdiff=33
-     \yl@ydiff=103
-   \put(0,0){\line(4,-3){103}}%                     %bond 6-ax
-   \put(70,-180){\hbox to0pt{\@memberb \hss}}%      %atom 6-ax
-  \else \if\@tmpb b%
-     \yl@xdiff=-33
-     \yl@ydiff=103
-   \put(0,0){\line(-4,-3){103}}%                    %bond 6-eq
-   \put(-70,-180){\hbox to0pt{\hss \@memberb}}%     %atom 6-eq
-  \else \ifx\@tmpb\empty%
-     \yl@xdiff=22
-     \yl@ydiff=94
-   \put(0,0){\line(0,-1){108}}%                     %bond 6
-   \put(-22,-202){\hbox to0pt{\hss \@memberb}}%     %atom 6
-  \else \if\@tmpb D%
-     \yl@xdiff=42
-     \yl@ydiff=94
-   \put(-12,0){\line(0,-1){108}}%                   %double bond 6
-   \put(12,0){\line(0,-1){108}}%                    %double bond 6
-   \putlratom{-42}{-202}{\@memberb}%                %atom 6
- \fi\fi\fi\fi}
-\def\@adamaneg{%
-     \yl@xdiff=-20
-     \yl@ydiff=110
-  \if\@tmpb a%1998/10/24 by SF
-   \put(-60,240){\line(-1,-5){30}}%                 %bond 7
-   \put(-70,-20){\hbox to0pt{\hss \@memberb}}%      %atom 7
-  \else \ifx\@tmpb\empty%
-   \put(-60,240){\line(-1,-5){30}}%                 %bond 7
-   \put(-70,-20){\hbox to0pt{\hss \@memberb}}%      %atom 7-eq
-  \fi\fi}
-\def\@adamaneh{%
-  \if\@tmpb a%
-     \yl@xdiff=17
-     \yl@ydiff=33
-   \put(-300,420){\line(-4,-3){103}}%               %bond 8-ax
-   \put(-420,310){\hbox to0pt{\hss \@memberb}}%     %atom 8-ax
-  \else \if\@tmpb b%
-     \yl@xdiff=-26
-     \yl@ydiff=-16
-   \put(-300,420){\line(-1,4){26}}%                 %bond 8-eq
-   \put(-300,540){\hbox to0pt{\hss \@memberb}}%     %atom 8-eq
-  \else \ifx\@tmpb\empty%
-     \yl@xdiff=17
-     \yl@ydiff=33
-   \put(-300,420){\line(-4,-3){103}}%               %bond 8
-   \put(-420,310){\hbox to0pt{\hss \@memberb}}%     %atom 8
-  \else \if\@tmpb D%
-     \yl@xdiff=17
-     \yl@ydiff=50
-   \put(-300,432){\line(-5,-3){103}}%               %double bond 8
-   \put(-303,408){\line(-5,-3){103}}%               %double bond 8
-   \put(-420,310){\hbox to0pt{\hss \@memberb}}%     %atom 8
-  \fi\fi\fi\fi}
-\def\@adamanei{%
-  \if\@tmpb a%
-     \yl@xdiff=-43
-     \yl@ydiff=93
-   \put(-180,420){\line(-4,-3){103}}%               %bond 9-ax
-   \put(-240,250){\hbox to0pt{\hss \@memberb}}%     %atom 9-ax
-  \else \if\@tmpb b%
-     \yl@xdiff=26
-     \yl@ydiff=-16
-   \put(-180,420){\line(1,4){26}}%                  %bond 9-eq
-   \put(-180,540){\hbox to0pt{\@memberb \hss}}%     %atom 9-eq
-  \else \ifx\@tmpb\empty%
-     \yl@xdiff=17
-     \yl@ydiff=93
-   \put(-180,420){\line(-4,-3){103}}%               %bond 9
-   \put(-300,250){\hbox to0pt{\hss \@memberb}}%     %atom 9
-  \else \if\@tmpb D%
-     \yl@xdiff=17
-     \yl@ydiff=113
-   \put(-183,432){\line(-5,-3){103}}%               %double bond 9
-   \put(-180,408){\line(-5,-3){103}}%               %double bond 9
-   \put(-300,250){\hbox to0pt{\hss \@memberb}}%     %atom 9
-  \fi\fi\fi\fi}
-\def\@adamanej{%
-  \if\@tmpb a%
-     \yl@xdiff=43
-     \yl@ydiff=92
-  \put(180,420){\line(4,-3){103}}%                 %bond 10-ax
-  \put(240,250){\hbox to0pt{\@memberb  \hss}}%     %atom 10-ax
-  \else \if\@tmpb b%
-     \yl@xdiff=-26
-     \yl@ydiff=-16
-  \put(180,420){\line(-1,4){26}}%                  %bond 10-eq
-  \put(180,540){\hbox to0pt{\hss \@memberb}}%      %atom 10-eq
-  \else \ifx\@tmpb\empty%
-     \yl@xdiff=43
-     \yl@ydiff=92
-   \put(180,420){\line(4,-3){103}}%                %bond 10
-   \put(240,250){\hbox to0pt{\@memberb \hss}}%     %atom 10
-  \else \if\@tmpb D%
-     \yl@xdiff=3
-     \yl@ydiff=112
-   \put(176,432){\line(5,-3){103}}%                %double bond 10
-   \put(172,408){\line(5,-3){103}}%                %double bond 10
-   \put(280,250){\hbox to0pt{\@memberb \hss}}%     %atom 10
-  \fi\fi\fi\fi}
-\def\adamantane{\@ifnextchar[{\@mantane}{\@damantane[Z]}}
-\def\@damantane[#1]#2{%
-\@reset@ylsw%
-\yladamanposition{#2}%
-\def\@@ylii{0}\def\@@yli{0}%
-\if@ylsw
- \yl@shiftii=\@ylii
- \yl@shifti=\@yli
- \advance\yl@shiftii\@@ylii
- \advance\yl@shifti\@@yli
- \advance\yl@shiftii\yl@xdiff
- \advance\yl@shifti\yl@ydiff
- \begin{picture}(0,0)(-\yl@shiftii,-\yl@shifti)
-\else
- \begin{picture}(1100,1300)(-550,-300)
-  \iforigpt \put(-550,-300){\circle*{50}}%
-           \put(0,0){\circle{50}}%
-   \typeout{command `adamantane' origin: (0,0) ---> (550,300)}
-  \fi%
-\fi
-  \put(0,0){\line(-1,4){60}}%                      %bond 6-7
-  \put(0,780){\line(2,-1){240}}%                   %bond 2-3
-  \put(0,780){\line(-2,-1){240}}%                  %bond 2-1
-  \put(-60,240){\line(-4,3){240}}%                 %bond 7-8
-  \put(-300,420){\line(1,4){60}}%                  %bond 8-1
-  \put(240,660){\line(-1,-4){60}}%                 %bond 3-10
-  \put(-60,240){\line(4,3){240}}%                  %bond 10-7
-{\thicklines%
-  \put(300,420){\line(-1,4){60}}%                  %bond 4-3
-  \put(-240,660){\line(1,-4){60}}%                 %bond 1-9
-  \put(0,0){\line(1,4){60}}%                       %bond 6-5
-  \put(60,240){\line(4,3){240}}%                   %bond 5-4
-  \put(60,240){\line(-4,3){240}}%                  %bond 5-9
-}%
-\@forsemicol\member:=#2\do{%
-\ifx\member\empty\else
-\expandafter\@m@mb@r\member;\relax%
-\expandafter\threech@r\@membera{}{}\relax%
-\ifx\@memberb\@yl\else
-\ifcase\@tmpa%0 omit
-\or\@adamanea% subst. on 1
-\or\@adamaneb% subst. on 2
-\or\@adamanec% subst. on 3
-\or\@adamaned% subst. on 4
-\or\@adamanee% subst. on 5
-\or\@adamanef% subst. on 6
-\or\@adamaneg% subst. on 7
-\or\@adamaneh% subst. on 8
-\or\@adamanei% subst. on 9
-\or\@adamanej% subst. on 10
-\fi%the end of ifcase
-\fi\fi}%
-\end{picture}}                          %end of \adamantane macro%
-\def\yladamanposition#1{%
-\@@ylswfalse%%%\@reset@ylsw
-\@forsemicol\member:=#1\do{%
-\if@@ylsw\else
-\ifx\member\empty\else
-\expandafter\@m@mb@r\member;\relax
-\expandafter\threech@r\@membera{}{}\relax
-\ifx\@memberb\@yl\relax\@@ylswtrue\else\@@ylswfalse\fi
-\if@@ylsw
-\ifcase\@tmpa%0 omit
- \or\gdef\@ylii{240}\gdef\@yli{-660}\global\@ylswtrue% subst. on 1
- \or\gdef\@ylii{0}\gdef\@yli{-780}\global\@ylswtrue% subst. on 2
- \or\gdef\@ylii{-240}\gdef\@yli{-660}\global\@ylswtrue% subst. on 3
- \or\gdef\@ylii{-300}\gdef\@yli{-420}\global\@ylswtrue% subst. on 4
- \or\gdef\@ylii{-60}\gdef\@yli{-240}\global\@ylswtrue% subst. on 5
- \or\gdef\@ylii{0}\gdef\@yli{0}\global\@ylswtrue% subst. on 6
- \or\gdef\@ylii{60}\gdef\@yli{-240}\global\@ylswtrue% subst. on 7
- \or\gdef\@ylii{300}\gdef\@yli{-420}\global\@ylswtrue% subst. on 8
- \or\gdef\@ylii{180}\gdef\@yli{-420}\global\@ylswtrue% subst. on 9
- \or\gdef\@ylii{-180}\gdef\@yli{-420}\global\@ylswtrue% subst. on 10
-\fi%end of ifcase
-\fi\fi\fi}}%
-\def\hadamantane{\@ifnextchar[{\@hadamantane}{\@hadamantane[H]}}
-\def\@hadamantane[#1]#2{%
-\@reset@ylsw%
-\ylhadamanposition{#2}%
-\def\@@ylii{0}\def\@@yli{0}%
-\if@ylsw
- \yl@shiftii=\@ylii
- \yl@shifti=\@yli
- \advance\yl@shiftii\@@ylii
- \advance\yl@shifti\@@yli
- \advance\yl@shiftii\yl@xdiff
- \advance\yl@shifti\yl@ydiff
- \begin{picture}(0,0)(-\yl@shiftii,-\yl@shifti)
-\else
- \begin{picture}(1600,1400)(-400,-319)
-  \iforigpt \put(-400,-319){\circle*{50}}%
-           \put(0,0){\circle{50}}%
-   \typeout{command `hadamantane' origin: (0,0) ---> (400,319)}
-  \fi%
-\fi
-   \thinlines%
-      \put(0,0){\line(3,4){170}}%          % bond 6 to 7
-      \put(170,226){\line(3,-1){403}}%     %      7 to 10
-      \put(573,91){\line(3,1){270}}%       %      10 to 3
-      \put(170,226){\line(0,1){360}}%      %      7 to 8
-      \put(170,586){\line(3,1){270}}%      %      8 to 1
-      \put(843,181){\line(0,1){360}}%      %      3 to 2
-      \put(843,541){\line(-3,1){403}}%     %      2 to 1
-   \thicklines%
-      \put(843,181){\line(-3,-4){170}}%    %      3 to 4
-      \put(673,-46){\line(-3,1){403}}%     %      4 to 5
-      \put(0,0){\line(3,1){270}}%          %      6 to 5
-      \put(270,90){\line(0,1){360}}%       %      5 to 9
-      \put(270,450){\line(3,4){170}}%      %      9 to 1
-   \thinlines%
-\@tfor\member:=#1\do{%
-\if\member r%no endocyclic bonds
-\else \if\member a%
-      \put(450,636){\line(3,-1){373}}%     % double bond 1 to 2
-\else \if\member b%
-      \put(803,206){\line(0,1){320}}%      %             3 to 2
-\else \if\member c%%%a%
-       \put(767,139){\line(-3,-4){110}}%   %             3 to 4
-\else \if\member d%%%b%
-      \put(640,-5){\line(-3,1){343}}%      %             4 to 5
-\else \if\member e%%%%c%
-       \put(240,111){\line(-3,-1){190}}%   %             5 to 6
-\else \if\member f%%%d%
-      \put(63,40){\line(3,4){110}}%        %             6 to 7
-\else \if\member g%
-      \put(200,246){\line(0,1){320}}%      %             7 to 8
-\else \if\member h%
-       \put(400,626){\line(-3,-1){190}}%   %             8 to 1
-\else \if\member i%
-      \put(450,636){\line(-3,-4){150}}%    %             9 to 1
-\else \if\member j%
-      \put(300,110){\line(0,1){320}}%      %             5 to 9
-\else \if\member k%%%f%
-      \put(768,131){\line(-3,-1){170}}%    %             3 to 10
-\else \if\member l%
-      \put(182,187){\line(3,-1){343}}%     %             7 to 10
-\fi\fi\fi\fi\fi\fi%
-\fi\fi\fi\fi\fi\fi\fi}%
-\@forsemicol\member:=#2\do{%
-\ifx\member\empty\else
-\expandafter\@m@mb@r\member;\relax%
-\expandafter\threech@r\@membera{}{}%
-\ifx\@memberb\@yl\else
-\ifcase\@tmpa%                  %0 omit
- \or \put(440,676){\@chairiI}%  %subst. on 1%%%9
- \or \put(843,541){\@chairiII}% %subst. on 2%%10
- \or \@chairiIII%               %subst. on 3%%%4
- \or \@chairiIV%                %subst. on 4%%%3
- \or \@chairiV%                 %subst. on 5%%%2
- \or \@chairiVI%                %subst. on 6%%%1
- \or \@chairiVII%               %subst. on 7%%%6
- \or \put(170,586){\@chairiVIII}%subst. on 8%%%8
- \or \put(270,450){\@chairiIX}% %subst. on 9%%%7
- \or \@chairiX%                 %subst. on 10%%5
-\fi %end of ifcase
-\fi\fi%
-}\end{picture}}%               %end of \hadamantane macro
-\def\ylhadamanposition#1{%
-\@@ylswfalse%%%\@reset@ylsw
-\@forsemicol\member:=#1\do{%
-\if@@ylsw\else
-\ifx\member\empty\else
-\expandafter\@m@mb@r\member;\relax
-\expandafter\threech@r\@membera{}{}\relax
-\ifx\@memberb\@yl\relax\@@ylswtrue\else\@@ylswfalse\fi
-\if@@ylsw
-\ifcase\@tmpa%0 omit
- \or\gdef\@ylii{-440}\gdef\@yli{-676}\global\@ylswtrue% subst. on 1
- \or\gdef\@ylii{-843}\gdef\@yli{-541}\global\@ylswtrue% subst. on 2
- \or\gdef\@ylii{-843}\gdef\@yli{-181}\global\@ylswtrue% subst. on 3
- \or\gdef\@ylii{-673}\gdef\@yli{46}\global\@ylswtrue% subst. on 4
- \or\gdef\@ylii{-270}\gdef\@yli{-90}\global\@ylswtrue% subst. on 5
- \or\gdef\@ylii{0}\gdef\@yli{0}\global\@ylswtrue% subst. on 6
- \or\gdef\@ylii{-170}\gdef\@yli{-226}\global\@ylswtrue% subst. on 7
- \or\gdef\@ylii{-170}\gdef\@yli{-586}\global\@ylswtrue% subst. on 8
- \or\gdef\@ylii{-270}\gdef\@yli{-450}\global\@ylswtrue% subst. on 9
- \or\gdef\@ylii{-573}\gdef\@yli{-91}\global\@ylswtrue% subst. on 10
-\fi%end of ifcase
-\fi\fi\fi}}%
-\def\@chairiVI{%
-   \if\@tmpb a%single bond
-     \yl@xdiff=42
-     \yl@ydiff=92
-           \put(0,0){\line(0,-1){168}}% single bond at 6 axial
-           \putlratom{-42}{-260}{\@memberb}% left & right type
-   \else\if\@tmpb b%single bond
-     \yl@xdiff=16
-     \yl@ydiff=36
-           \put(0,0){\line(-5,3){144}}% single bond at 6 equatorial
-           \putlatom{-160}{50}{\@memberb}% left type
-   \else\if\@tmpb S%single bond
-    \ifx\@tmpc\empty%
-     \yl@xdiff=10
-     \yl@ydiff=90
-           \put(0,0){\line(-1,-1){120}}% single bond at 6
-           \putlatom{-130}{-210}{\@memberb}% left type
-    \else\if\@tmpc a%(a) axial
-     \yl@xdiff=42
-     \yl@ydiff=92
-           \put(0,0){\line(0,-1){168}}% single bond at 6 axial
-           \putlratom{-42}{-260}{\@memberb}% left & right type
-    \else\if\@tmpc e%(e) beta
-     \yl@xdiff=16
-     \yl@ydiff=36
-           \put(0,0){\line(-5,3){144}}% single bond at 6 equatorial
-           \putlatom{-160}{50}{\@memberb}% left type
-    \fi\fi\fi%
-   \else \if\@tmpb D%double bond
-     \yl@xdiff=10
-     \yl@ydiff=90
-           \putlatom{-130}{-210}{\@memberb}% left type
-           \put(-10,10){\line(-1,-1){120}}% double bond at 6
-           \put(10,-10){\line(-1,-1){120}}% double bond at 6
-          \else%
-     \yl@xdiff=10
-     \yl@ydiff=90
-           \putlatom{-130}{-210}{\@memberb}% left type
-           \put(0,0){\line(-1,-1){120}}% single bond at 6
-   \fi\fi\fi\fi}%
-\def\@chairiVII{%
-   \if\@tmpb a%single bond
-     \yl@xdiff=26
-     \yl@ydiff=46
-           \put(170,226){\line(-5,-3){144}}% single bond at 7 equatorial
-           \putlatom{10}{94}{\@memberb}% left type
-   \else\ifx\@tmpb\empty%single bond
-     \yl@xdiff=26
-     \yl@ydiff=46
-           \put(170,226){\line(-5,-3){144}}% single bond at 7 equatorial
-           \putlatom{10}{94}{\@memberb}% left type
-   \else\if\@tmpb S%single bond
-    \ifx\@tmpc\empty%
-     \yl@xdiff=10
-     \yl@ydiff=30
-           \put(170,226){\line(-1,1){120}}% single bond at 7
-           \putratom{40}{316}{\@memberb}% left type
-    \else\if\@tmpc a%(a) axial
-     \yl@xdiff=32
-     \yl@ydiff=12
-           \put(170,226){\line(0,1){168}}% single bond at 7 axial
-           \putlratom{138}{406}{\@memberb}% left & right type
-    \else\if\@tmpc e%(e) beta
-     \yl@xdiff=26
-     \yl@ydiff=46
-           \put(170,226){\line(-5,-3){144}}% single bond at 7 equatorial
-           \putlatom{10}{94}{\@memberb}% left type
-    \fi\fi\fi%
-   \else \if\@tmpb D%double bond
-     \yl@xdiff=10
-     \yl@ydiff=30
-           \putlatom{40}{316}{\@memberb}% left type
-           \put(160,216){\line(-1,1){120}}% double bond at 7
-           \put(180,236){\line(-1,1){120}}% double bond at 7
-          \else%
-     \yl@xdiff=10
-     \yl@ydiff=30
-           \putlatom{40}{316}{\@memberb}% left type
-           \put(170,226){\line(-1,1){120}}% single bond at 7
-   \fi\fi\fi\fi}%
-\def\@chairiX{%
-   \if\@tmpb a%single bond
-     \yl@xdiff=40
-     \yl@ydiff=104
-           \put(573,91){\line(0,-1){168}}% single bond at 5 axial
-           \putlratom{533}{-181}{\@memberb}% left type
-   \else\if\@tmpb b%single bond
-     \yl@xdiff=-36
-     \yl@ydiff=3
-           \put(573,91){\line(5,3){144}}% single bond at 5 equatorial
-           \putlatom{753}{180}{\@memberb}% left type
-   \else\if\@tmpb S%single bond
-    \ifx\@tmpc\empty%
-     \yl@xdiff=-10
-     \yl@ydiff=56
-           \put(573,91){\line(5,-4){170}}% single bond at 5
-           \putratom{753}{-101}{\@memberb}% right type
-    \else\if\@tmpc a%(a) axial
-     \yl@xdiff=40
-     \yl@ydiff=104
-           \put(573,91){\line(0,-1){168}}% single bond at 5 axial
-           \putlratom{533}{-181}{\@memberb}% left type
-    \else\if\@tmpc e%(e) beta
-     \yl@xdiff=-36
-     \yl@ydiff=3
-           \put(573,91){\line(5,3){144}}% single bond at 5 equatorial
-           \putlatom{753}{180}{\@memberb}% left type
-    \fi\fi\fi%
-   \else \if\@tmpb D%double bond
-     \yl@xdiff=10
-     \yl@ydiff=86
-           \putratom{733}{-141}{\@memberb}% right type
-           \put(563,83){\line(5,-4){170}}% double bond at 5
-           \put(583,99){\line(5,-4){170}}% double bond at 5
-          \else%
-     \yl@xdiff=-10
-     \yl@ydiff=76
-           \put(573,91){\line(5,-4){170}}% single bond at 5
-           \putratom{753}{-121}{\@memberb}% right type
-   \fi\fi\fi\fi}%
-\def\@chairiIII{%
-   \if\@tmpb a%single bond
-     \yl@xdiff=-16
-     \yl@ydiff=64
-           \put(843,181){\line(5,-3){144}}% single bond at 3 equatorial
-           \putratom{1003}{31}{\@memberb}% right type
-   \else\ifx\@tmpb\empty%single bond
-     \yl@xdiff=-16
-     \yl@ydiff=64
-           \put(843,181){\line(5,-3){144}}% single bond at 3 equatorial
-           \putratom{1003}{31}{\@memberb}% right type
-   \else\if\@tmpb S%single bond
-    \ifx\@tmpc\empty%
-     \yl@xdiff=10
-     \yl@ydiff=30
-           \put(843,181){\line(1,1){120}}% single bond at 3
-           \putratom{953}{271}{\@memberb}% right type
-    \else\if\@tmpc a%(a) axial
-     \yl@xdiff=42
-     \yl@ydiff=11
-           \put(843,181){\line(0,1){168}}% single bond at 3 axial
-           \putlratom{801}{360}{\@memberb}% left & right type
-    \else\if\@tmpc e%(e) beta
-     \yl@xdiff=-16
-     \yl@ydiff=64
-           \put(843,181){\line(5,-3){144}}% single bond at 3 equatorial
-           \putratom{1003}{31}{\@memberb}% right type
-    \fi\fi\fi%
-   \else \if\@tmpb D%double bond
-     \yl@xdiff=0
-     \yl@ydiff=30
-           \putratom{953}{271}{\@memberb}% right type
-           \put(833,191){\line(1,1){120}}% double bond at 3
-           \put(853,171){\line(1,1){120}}% double bond at 3
-          \else%
-     \yl@xdiff=10
-     \yl@ydiff=30
-           \put(843,181){\line(1,1){120}}% single bond at 3
-           \putratom{953}{271}{\@memberb}% right type
-   \fi\fi\fi\fi}%
-\def\@chairiIV{%
-   \if\@tmpb a%single bond
-     \yl@xdiff=40
-     \yl@ydiff=104
-           \put(673,-46){\line(0,-1){168}}% single bond at 4 axial
-           \putlratom{633}{-318}{\@memberb}% left & right type
-   \else\if\@tmpb b%single bond
-     \yl@xdiff=-6
-     \yl@ydiff=17
-           \put(673,-46){\line(5,3){144}}% single bond at 4 equatorial
-           \putratom{823}{23}{\@memberb}% right type
-   \else\if\@tmpb S%single bond
-    \ifx\@tmpc\empty%
-     \yl@xdiff=-10
-     \yl@ydiff=92
-           \put(673,-46){\line(1,-1){120}}% single bond at 4
-           \putratom{803}{-258}{\@memberb}% right type
-    \else\if\@tmpc a%(a) axial
-     \yl@xdiff=40
-     \yl@ydiff=104
-           \put(673,-46){\line(0,-1){168}}% single bond at 4 axial
-           \putlratom{633}{-318}{\@memberb}% left & right type
-    \else\if\@tmpc e%(e) beta
-     \yl@xdiff=-6
-     \yl@ydiff=17
-           \put(673,-46){\line(5,3){144}}% single bond at 4 equatorial
-           \putratom{823}{23}{\@memberb}% right type
-    \fi\fi\fi%
-   \else \if\@tmpb D%double bond
-     \yl@xdiff=-10
-     \yl@ydiff=92
-           \putratom{803}{-258}{\@memberb}%  right type
-           \put(663,-53){\line(1,-1){120}}% double bond at 4
-           \put(683,-38){\line(1,-1){120}}% double bond at 4
-          \else%
-     \yl@xdiff=-10
-     \yl@ydiff=76
-           \put(673,-46){\line(5,-4){170}}% single bond at 4
-           \putratom{853}{-258}{\@memberb}% right type
-   \fi\fi\fi\fi}%
-\def\@chairiV{%
-   \if\@tmpb a%single bond
-     \yl@xdiff=26
-     \yl@ydiff=102
-           \put(270,90){\line(-5,-3){144}}% single bond at 5 equatorial
-           \putratom{100}{-98}{\@memberb}% left type
-   \else\ifx\@tmpb\empty%single bond
-     \yl@xdiff=26
-     \yl@ydiff=102
-           \put(270,90){\line(-5,-3){144}}% single bond at 5 equatorial
-           \putratom{100}{-98}{\@memberb}% left type
-   \else\if\@tmpb S%single bond
-    \ifx\@tmpc\empty%
-     \yl@xdiff=0
-     \yl@ydiff=46
-           \put(270,90){\line(-5,4){170}}% single bond at 5
-           \putlatom{100}{180}{\@memberb}% left type
-    \else\if\@tmpc a%(a) axial
-     \yl@xdiff=32
-     \yl@ydiff=12
-           \put(270,90){\line(0,1){168}}% single bond at 5 axial
-           \putlratom{238}{270}{\@memberb}% left type
-    \else\if\@tmpc e%(e) beta
-     \yl@xdiff=36
-     \yl@ydiff=102
-           \put(270,90){\line(-5,-3){144}}% single bond at 5 equatorial
-           \putratom{100}{-98}{\@memberb}% left type
-    \fi\fi\fi%
-   \else \if\@tmpb D%double bond
-     \yl@xdiff=0
-     \yl@ydiff=36
-           \putlatom{100}{200}{\@memberb}% left or right type
-           \put(260,80){\line(-5,4){170}}% double bond at 5
-           \put(280,100){\line(-5,4){170}}% double bond at 5
-          \else%
-     \yl@xdiff=0
-     \yl@ydiff=26
-           \putlatom{100}{200}{\@memberb}% left type
-           \put(270,90){\line(-5,4){170}}% single bond at 5
-   \fi\fi\fi\fi}%
-\def\@chairiI{%
-   \if\@tmpb a%single bond
-     \yl@xdiff=42
-     \yl@ydiff=-10
-           \put(0,0){\line(0,1){168}}% single bond at 1 axial
-           \putlratom{-42}{178}{\@memberb}% left & right type
-   \else\ifx\@tmpb\empty%
-     \yl@xdiff=42
-     \yl@ydiff=-10
-           \put(0,0){\line(0,1){168}}% single bond at 1 axial
-           \putlratom{-42}{178}{\@memberb}% left & right type
-   \else\if\@tmpb S%single bond
-    \ifx\@tmpc\empty%
-     \yl@xdiff=42
-     \yl@ydiff=-10
-           \put(0,0){\line(0,1){168}}% single bond at 1 axial
-           \putlratom{-42}{178}{\@memberb}% left & right type
-    \else\if\@tmpc a%(a) axial
-     \yl@xdiff=42
-     \yl@ydiff=-10
-           \put(0,0){\line(0,1){168}}% single bond at 1 axial
-           \putlratom{-42}{178}{\@memberb}% left & right type
-    \else\if\@tmpc e%(e) beta
-     \yl@xdiff=42
-     \yl@ydiff=-10
-           \put(0,0){\line(0,1){168}}% single bond at 1 axial
-           \putlratom{-42}{178}{\@memberb}% left & right type
-    \fi\fi\fi%
-  \else \if\@tmpb D%double bond
-     \yl@xdiff=42
-     \yl@ydiff=-10
-           \put(0,0){\line(0,1){168}}% single bond at 1 axial
-           \putlratom{-42}{178}{\@memberb}% left & right type
-          \else%
-     \yl@xdiff=42
-     \yl@ydiff=-10
-           \put(0,0){\line(0,1){168}}% single bond at 1 axial
-           \putlratom{-42}{178}{\@memberb}% left & right type
-   \fi\fi\fi\fi}%
-\def\@chairiII{%
-   \if\@tmpb a%single bond
-     \yl@xdiff=-10
-     \yl@ydiff=13
-           \put(0,0){\line(3,1){190}}% single bond at 6 equatorial
-           \putratom{200}{50}{\@memberb}% right type
-   \else\if\@tmpb b%single bond
-     \yl@xdiff=-10
-     \yl@ydiff=0
-            \put(0,0){\line(3,4){120}}%          % bond 1 to 6
-            \putratom{130}{160}{\@memberb}% left type
-   \else\if\@tmpb S%single bond
-     \ifx\@tmpc\empty%
-     \yl@xdiff=-10
-     \yl@ydiff=-10
-           \put(0,0){\line(1,1){120}}% single bond at 1
-           \putratom{130}{130}{\@memberb}% left type
-      \else\if\@tmpc a%(a) axial
-     \yl@xdiff=-10
-     \yl@ydiff=0
-            \put(0,0){\line(3,4){120}}%          % bond 1 to 6
-            \putratom{130}{160}{\@memberb}% left type
-     \else\if\@tmpc e%(e) beta
-     \yl@xdiff=-10
-     \yl@ydiff=13
-           \put(0,0){\line(3,1){190}}% single bond at 6 equatorial
-           \putratom{200}{50}{\@memberb}% right type
-    \fi\fi\fi%
-   \else \if\@tmpb D%double bond
-     \yl@xdiff=-10
-     \yl@ydiff=-10
-           \putratom{130}{130}{\@memberb}% left type
-           \put(-10,10){\line(1,1){120}}% double bond at 1
-           \put(10,-10){\line(1,1){120}}% double bond at 1
-          \else%
-     \yl@xdiff=-10
-     \yl@ydiff=-10
-           \putratom{130}{130}{\@memberb}% left type
-           \put(0,0){\line(1,1){120}}% single bond at 1
-   \fi\fi\fi\fi}%
-\def\@chairiVIII{%
-   \if\@tmpb a%single bond
-     \yl@xdiff=16
-     \yl@ydiff=36
-           \put(0,0){\line(-5,3){144}}% single bond at 1 equatorial
-           \putlatom{-160}{50}{\@memberb}% left type
-   \else\if\@tmpb b%single bond
-     \yl@xdiff=-10
-     \yl@ydiff=0
-            \put(0,0){\line(3,4){120}}%          % bond 1 to 6
-            \putratom{130}{160}{\@memberb}% left type
-   \else\if\@tmpb S%single bond
-    \ifx\@tmpc\empty%
-     \yl@xdiff=4
-     \yl@ydiff=36
-           \put(0,0){\line(-5,3){144}}% single bond at 1 equatorial
-           \putlatom{-140}{50}{\@memberb}% left type
-    \else\if\@tmpc e% right-hand
-     \yl@xdiff=-10
-     \yl@ydiff=0
-            \put(0,0){\line(3,4){120}}%          % bond 1 to 6
-            \putratom{130}{160}{\@memberb}% left type
-    \else\if\@tmpc a% left-hand
-     \yl@xdiff=16
-     \yl@ydiff=36
-           \put(0,0){\line(-5,3){144}}% single bond at 1 equatorial
-           \putlatom{-160}{50}{\@memberb}% left type
-    \fi\fi\fi%
-   \else \if\@tmpb D%double bond
-     \yl@xdiff=4
-     \yl@ydiff=26
-            \putlatom{-140}{60}{\@memberb}% left type
-           \put(10,10){\line(-5,3){144}}% single bond at 1 equatorial
-           \put(0,-10){\line(-5,3){144}}% single bond at 1 equatorial
-          \else%
-     \yl@xdiff=4
-     \yl@ydiff=36
-           \put(0,0){\line(-5,3){144}}% single bond at 1 equatorial
-           \putlatom{-140}{50}{\@memberb}% left type
-   \fi\fi\fi\fi}%
-\def\@chairiIX{%
-   \if\@tmpb a%single bond
-     \yl@xdiff=16
-     \yl@ydiff=36
-           \put(0,0){\line(-5,3){144}}% single bond at 1 equatorial
-           \putlatom{-160}{50}{\@memberb}% left type
-   \else\if\@tmpb b%single bond
-     \yl@xdiff=-16
-     \yl@ydiff=36
-           \put(0,0){\line(5,3){144}}% single bond at 6 equatorial
-           \putratom{160}{50}{\@memberb}% left type
-   \else\if\@tmpb S%single bond
-    \ifx\@tmpc\empty%
-     \yl@xdiff=4
-     \yl@ydiff=36
-           \put(0,0){\line(-5,3){144}}% single bond at 1 equatorial
-           \putlatom{-140}{50}{\@memberb}% left type
-    \else\if\@tmpc e% right-hand
-     \yl@xdiff=-16
-     \yl@ydiff=36
-           \put(0,0){\line(5,3){144}}% single bond at 6 equatorial
-           \putratom{160}{50}{\@memberb}% left type
-    \else\if\@tmpc a% left-hand
-     \yl@xdiff=16
-     \yl@ydiff=36
-           \put(0,0){\line(-5,3){144}}% single bond at 1 equatorial
-           \putlatom{-160}{50}{\@memberb}% left type
-    \fi\fi\fi%
-   \else \if\@tmpb D%double bond
-     \yl@xdiff=4
-     \yl@ydiff=36
-           \putlatom{-140}{50}{\@memberb}% left type
-           \put(10,10){\line(-5,3){144}}% single bond at 1 equatorial
-           \put(0,-10){\line(-5,3){144}}% single bond at 1 equatorial
-          \else%
-     \yl@xdiff=4
-     \yl@ydiff=36
-           \put(0,0){\line(-5,3){144}}% single bond at 1 equatorial
-           \putlatom{-140}{50}{\@memberb}% left type
-   \fi\fi\fi\fi}%
-\endinput
-%%
-%% End of file `ccycle.sty'.
diff --git a/Master/texmf-dist/tex/latex/xymtex/chemist.sty b/Master/texmf-dist/tex/latex/xymtex/chemist.sty
deleted file mode 100644
index 68a92e21478..00000000000
--- a/Master/texmf-dist/tex/latex/xymtex/chemist.sty
+++ /dev/null
@@ -1,936 +0,0 @@
-%%
-%% This is file `chemist.sty',
-%% generated with the docstrip utility.
-%%
-%% The original source files were:
-%%
-%% chemist.dtx  (with options: `chemist')
-%% 
-%% This is a generated file.
-%% 
-%% Copyright 1996, 2000 by Shinsaku Fujita
-%% 
-%% This file is part of the ChemSci system.
-%% =======================================
-%% 
-%% Released on June 1, 1996
-%% Released on November 3, 2000 (v2.00a)
-%% 
-%% Copyright (C) 1996 by Shinsaku Fujita, all rights reserved.
-%% This style file is created for submitting a manuscript to
-%% scientific journals. This style file is to be contained in the
-%% ``chemist'' directory which is an input directory for TeX.
-%% 
-%% For using this file, see
-%%   Shinsaku Fujita, ``LaTeX for Chemists and Biochemists''
-%%   Tokyo Kagaku Dojin, Tokyo (1993), Chapter 16.
-%% 
-%% 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
-%%          ``chemist'' directory and
-%%      (b) you acknowledge the original name.
-%%  This restriction ensures that all standard styles are identical.
-%% 
-%% =======================================
-%% 
-%% This file is a modification of latex.tex (LaTeX2.09) and of latex.ltx
-%% (a LaTeX2e), the reused parts of which is 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.)
-%% 
-%% \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         \~}
-%%
-%% `chemist.dtx' ver1.01a (for LaTeX2e) 1996/06/15
-%%  by Shinsaku Fujita
-%%
-\def\j@urnalname{chemist} \def\journalID{chemist}
-\def\versi@ndate{November 3, 2000}
-\def\versi@nno{ver2.00a}
-\def\copyrighth@lder{SF} % Shinsaku Fujita
-\typeout{Package `\j@urnalname' (\versi@nno) <\versi@ndate>\space
-[\copyrighth@lder]}
-\typeout{chemist.sty ver2.00a (for LaTeX2e) 2000/11/03[SF]}
-\@ifundefined{chapter}{\newcounter{compd}}{\newcounter{compd}[chapter]}
-\def\thecompd{\arabic{compd}}
-\def\compd{\leavevmode\refstepcounter{compd}{\large\bf \thecompd}}
-\def\nocompd{\refstepcounter{compd}}
-\def\compdlabel#1{\compd \label{#1}}
-\def\nocompdlabel#1{\nocompd \label{#1}}
-\@ifundefined{bf}{\def\bf{\normalfont\bfseries}}{}
-\def\cref#1{{\bf \ref{#1}}}
-\def\compdfbox#1#2#3{\framebox[#1]{\rule[-0.3mm]{0pt}{#2} #3 }}
-\def\compdmbox#1#2#3{\makebox[#1]{\rule[-0.3mm]{0pt}{#2} #3 }}
-\def\lbcompdpbox#1#2#3{\parbox{#2}{\vskip 2em
-  \parbox{#2}{#3 \par \centering{\compdlabel{#1}}\vskip 2em }}}
-\newcounter{deriv}[compd]
-\def\thederiv {\thecompd\alph{deriv}}
-\def\deriv{\leavevmode\refstepcounter{deriv}{\large\bf \thederiv}}
-\def\noderiv{\refstepcounter{deriv}}
-\def\derivnum{%
-\leavevmode\refstepcounter{deriv}{\large\bf \alph{deriv}}}
-\def\derivlabel#1{\deriv \label{#1}}
-\def\noderivlabel#1{\noderiv \label{#1}}
-\def\derivfbox#1#2#3{\framebox[#1]{\rule[-0.3mm]{0pt}{#2} #3 }}
-\def\derivmbox#1#2#3{\makebox[#1]{\rule[-0.3mm]{0pt}{#2} #3 }}
-\def\lbderivpbox#1#2#3{\parbox{#2}{\vskip 2em
-  \parbox{#2}{#3 \par \centering{\derivlabel{#1}}\vskip 2em }}}
-\def\deriva{\leavevmode\refstepcounter{deriv}{\large\bf \alph{deriv}}}
-\def\noderiva{\refstepcounter{deriv}}
-\def\derivalabel#1{\deriva \label{#1}}
-\def\noderivalabel#1{\noderiva \label{#1}}
-\def\cdonecell#1#2#3{\raisebox{#1}{\parbox{#2}{\centering{#3}}}}
-\def\cdtwocell#1#2#3#4{\raisebox{#1}{
- \parbox{#2}{\centering{#3} \par \vskip 3pt \centering{#4}  }}}
-\def\leftrightarrowfill{$\m@th \mathord\leftarrow \mkern-6mu
- \cleaders\hbox{$\mkern-2mu \mathord- \mkern-2mu$}\hfill
- \mkern-6mu \mathord\rightarrow$}
-\def\Leftarrowfill{$\m@th \mathord\Leftarrow \mkern-6mu
- \cleaders\hbox{$\mkern-2mu \mathord= \mkern-2mu$}\hfill
- \mkern-6mu \mathord=$}
-\def\Rightarrowfill{$\m@th \mathord= \mkern-6mu
- \cleaders\hbox{$\mkern-2mu \mathord= \mkern-2mu$}\hfill
- \mkern-6mu \mathord\Rightarrow$}
-\def\Leftrightarrowfill{$\m@th \mathord\Leftarrow \mkern-6mu
- \cleaders\hbox{$\mkern-2mu \mathord= \mkern-2mu$}\hfill
- \mkern-6mu \mathord\Rightarrow$}
-\def\reactrarrow{\@ifnextchar[{\react@rarrow}{\react@rarrow[0pt]}}
-\def\react@rarrow[#1]#2#3#4#5{\hskip#1\raisebox{#2}{%
-  \parbox{#3}{\centering
-    \baselineskip=.8\normalbaselineskip #4 \par
-    \vskip-0.2\normalbaselineskip
-    \rightarrowfill \par
-    \vskip-0.1\normalbaselineskip #5}}}
-\def\reactlarrow{\@ifnextchar[{\react@larrow}{\react@larrow[0pt]}}
-\def\react@larrow[#1]#2#3#4#5{\hskip#1\raisebox{#2}{%
-    \parbox{#3}{\centering
-    \baselineskip=.8\normalbaselineskip #4 \par
-    \vskip-0.2\normalbaselineskip
-     \leftarrowfill \par
-    \vskip-0.1\normalbaselineskip #5}}}
-\def\reactlrarrow{\@ifnextchar[{\react@lrarrow}{\react@lrarrow[0pt]}}
-\def\react@lrarrow[#1]#2#3#4#5{\hskip#1\raisebox{#2}{%
-    \parbox{#3}{\centering
-    \baselineskip=.8\normalbaselineskip
-    #4 \par
-    \vskip-0.2\normalbaselineskip
-    \centering{\leftrightarrowfill} \par
-    \vskip-0.1\normalbaselineskip #5}}}
-\def\reacteqarrow{\@ifnextchar[{\react@eqarrow}{\react@eqarrow[0pt]}}
-\def\react@eqarrow[#1]#2#3#4#5{\hskip#1\raisebox{#2}{%
-    \parbox{#3}{\centering
-    \baselineskip=.8\normalbaselineskip
-    #4 \par
-    \vskip-0.2\normalbaselineskip
-    \rightarrowfill \par \vskip-0.55\normalbaselineskip%
-    \leftarrowfill \par
-    \vskip-0.1\normalbaselineskip #5}}}
-\def\k@nz@n#1{\@tempdima=#1\relax
-\@tempcnta=\@tempdima \@tempcntb=\unitlength
-\divide\@tempcnta by \@tempcntb
-\edef\kanzanchi{\the\@tempcnta}%
-\divide\@tempcnta by2\relax
-\edef\kanzanhalf{\the\@tempcnta}}
-\def\reactdarrow{\@ifnextchar[{\react@darrow}{\react@darrow[0pt]}}
-\def\react@darrow[#1]#2#3#4#5{\hskip#1\raisebox{#2}{\k@nz@n{#3}%
-\def\arraystretch{0.8}%
-\begin{tabular}{l}#4\end{tabular}%
-{\tabcolsep=0pt
-\begin{tabular}{c}\begin{picture}(0,\kanzanchi)(0,0)
-\put(0,\kanzanchi){\vector(0,-1){\kanzanchi}}
-\end{picture}\end{tabular}}%
-\begin{tabular}{l}#5\end{tabular}}}
-\def\reactuarrow{\@ifnextchar[{\react@uarrow}{\react@uarrow[0pt]}}
-\def\react@uarrow[#1]#2#3#4#5{\hskip#1\raisebox{#2}{\k@nz@n{#3}%
-\def\arraystretch{0.8}%
-\begin{tabular}{l}#4\end{tabular}%
-{\tabcolsep=0pt
-\begin{tabular}{c}\begin{picture}(0,\kanzanchi)(0,0)
-\put(0,0){\vector(0,1){\kanzanchi}}
-\end{picture}\end{tabular}}%
-\begin{tabular}{l}#5\end{tabular}}}
-\def\reactveqarrow{\@ifnextchar[%]
-{\react@veqarrow}{\react@veqarrow[0pt]}}
-\def\react@veqarrow[#1]#2#3#4#5{\hskip#1\raisebox{#2}{\k@nz@n{#3}%
-\def\arraystretch{0.8}%
-\begin{tabular}{l}#4\end{tabular}%
-{\tabcolsep=0pt
-\begin{tabular}{c}\begin{picture}(40,\kanzanchi)(0,0)
-\put(40,0){\vector(0,1){\kanzanchi}}
-\put(0,\kanzanchi){\vector(0,-1){\kanzanchi}}
-\end{picture}\end{tabular}}%
-\begin{tabular}{l}#5\end{tabular}}}
-\def\reactduarrow{\@ifnextchar[{\react@duarrow}{\react@duarrow[0pt]}}
-\def\react@duarrow[#1]#2#3#4#5{\hskip#1\raisebox{#2}{\k@nz@n{#3}%
-\def\arraystretch{0.8}%
-\begin{tabular}{l}#4\end{tabular}%
-{\tabcolsep=0pt
-\begin{tabular}{c}\begin{picture}(0,\kanzanchi)(0,0)
-\put(0,\kanzanhalf){\vector(0,1){\kanzanhalf}}
-\put(0,\kanzanhalf){\vector(0,-1){\kanzanhalf}}
-\end{picture}\end{tabular}}%
-\begin{tabular}{l}#5\end{tabular}}}
-\def\reactsearrow{\@ifnextchar[{\react@searrow}{\react@searrow[0pt]}}
-\def\react@searrow[#1]#2#3#4#5{\hskip#1\raisebox{#2}{\k@nz@n{#3}%
-\def\arraystretch{0.8}%
-\begin{picture}(\kanzanchi,\kanzanchi)(0,0)
-\put(0,\kanzanchi){\vector(1,-1){\kanzanchi}}
-\put(\kanzanhalf,\kanzanhalf){\hbox to0pt{%
-\begin{tabular}[b]{l}#4\end{tabular}\hss}}
-\put(\kanzanhalf,\kanzanhalf){\lower2ex\hbox to0pt{\hss
-\begin{tabular}[t]{r}#5\end{tabular}}}
-\end{picture}}}
-\def\reactnwarrow{\@ifnextchar[{\react@nwarrow}{\react@nwarrow[0pt]}}
-\def\react@nwarrow[#1]#2#3#4#5{\hskip#1\raisebox{#2}{\k@nz@n{#3}%
-\def\arraystretch{0.8}%
-\begin{picture}(\kanzanchi,\kanzanchi)(0,0)
-\put(\kanzanchi,0){\vector(-1,1){\kanzanchi}}
-\put(\kanzanhalf,\kanzanhalf){\hbox to0pt{%
-\begin{tabular}[b]{l}#4\end{tabular}\hss}}
-\put(\kanzanhalf,\kanzanhalf){\lower2ex\hbox to0pt{\hss
-\begin{tabular}[t]{r}#5\end{tabular}}}
-\end{picture}}}
-\def\reactnearrow{\@ifnextchar[{\react@nearrow}{\react@nearrow[0pt]}}
-\def\react@nearrow[#1]#2#3#4#5{\hskip#1\raisebox{#2}{\k@nz@n{#3}%
-\def\arraystretch{0.8}%
-\begin{picture}(\kanzanchi,\kanzanchi)(0,0)
-\put(0,0){\vector(1,1){\kanzanchi}}
-\put(\kanzanhalf,\kanzanhalf){\lower2ex\hbox to0pt{%
-\begin{tabular}[t]{l}#5\end{tabular}\hss}}
-\put(\kanzanhalf,\kanzanhalf){\hbox to0pt{\hss
-\begin{tabular}[b]{r}#4\end{tabular}}}
-\end{picture}}}
-\def\reactswarrow{\@ifnextchar[{\react@swarrow}{\react@swarrow[0pt]}}
-\def\react@swarrow[#1]#2#3#4#5{\hskip#1\raisebox{#2}{\k@nz@n{#3}%
-\def\arraystretch{0.8}%
-\begin{picture}(\kanzanchi,\kanzanchi)(0,0)
-\put(\kanzanchi,\kanzanchi){\vector(-1,-1){\kanzanchi}}
-\put(\kanzanhalf,\kanzanhalf){\lower2ex\hbox to0pt{%
-\begin{tabular}[t]{l}#5\end{tabular}\hss}}
-\put(\kanzanhalf,\kanzanhalf){\hbox to0pt{\hss
-\begin{tabular}[b]{r}#4\end{tabular}}}
-\end{picture}}}
-\def\reactdeqarrow{\@ifnextchar[%]
-{\react@deqarrow}{\react@deqarrow[0pt]}}
-\def\react@deqarrow[#1]#2#3#4#5{\hskip#1\raisebox{#2}{\k@nz@n{#3}%
-\def\arraystretch{0.8}%
-\begin{picture}(\kanzanchi,\kanzanchi)(0,0)
-\put(0,\kanzanchi){\put(15,15){\vector(1,-1){\kanzanchi}}}
-\put(\kanzanchi,0){\put(-15,-15){\vector(-1,1){\kanzanchi}}}
-\put(\kanzanhalf,\kanzanhalf){\raise1ex\hbox to0pt{%
-\begin{tabular}[b]{l}#4\end{tabular}\hss}}
-\put(\kanzanhalf,\kanzanhalf){\lower2ex\hbox to0pt{\hss
-\begin{tabular}[t]{r}#5\end{tabular}}}
-\end{picture}}}
-\def\reactueqarrow{\@ifnextchar[%]
-{\react@ueqarrow}{\react@ueqarrow[0pt]}}
-\def\react@ueqarrow[#1]#2#3#4#5{\hskip#1\raisebox{#2}{\k@nz@n{#3}%
-\def\arraystretch{0.8}%
-\begin{picture}(\kanzanchi,\kanzanchi)(0,0)
-\put(0,0){\put(-15,15){\vector(1,1){\kanzanchi}}}
-\put(\kanzanchi,\kanzanchi){\put(15,-15){\vector(-1,-1){\kanzanchi}}}
-\put(\kanzanhalf,\kanzanhalf){\lower2ex\hbox to0pt{%
-\begin{tabular}[t]{l}#5\end{tabular}\hss}}
-\put(\kanzanhalf,\kanzanhalf){\raise1ex\hbox to0pt{\hss
-\begin{tabular}[b]{r}#4\end{tabular}}}
-\end{picture}}}
-\def\reactulrarrow{\@ifnextchar[%]
-{\react@ulrarrow}{\react@ulrarrow[0pt]}}
-\def\react@ulrarrow[#1]#2#3#4#5{\hskip#1\raisebox{#2}{\k@nz@n{#3}%
-\def\arraystretch{0.8}%
-\begin{picture}(\kanzanchi,\kanzanchi)(0,0)
-\put(\kanzanhalf,\kanzanhalf){\vector(1,1){\kanzanhalf}}
-\put(\kanzanhalf,\kanzanhalf){\vector(-1,-1){\kanzanhalf}}
-\put(\kanzanhalf,\kanzanhalf){\lower2ex\hbox to0pt{%
-\begin{tabular}[t]{l}#5\end{tabular}\hss}}
-\put(\kanzanhalf,\kanzanhalf){\raise1ex\hbox to0pt{\hss
-\begin{tabular}[b]{r}#4\end{tabular}}}
-\end{picture}}}
-\def\reactdlrarrow{\@ifnextchar[%]
-{\react@dlrarrow}{\react@dlrarrow[0pt]}}
-\def\react@dlrarrow[#1]#2#3#4#5{\hskip#1\raisebox{#2}{\k@nz@n{#3}%
-\def\arraystretch{0.8}%
-\begin{picture}(\kanzanchi,\kanzanchi)(0,0)
-\put(\kanzanhalf,\kanzanhalf){\vector(-1,1){\kanzanhalf}}
-\put(\kanzanhalf,\kanzanhalf){\vector(1,-1){\kanzanhalf}}
-\put(\kanzanhalf,\kanzanhalf){\hbox to0pt{%
-\begin{tabular}[b]{l}#4\end{tabular}\hss}}
-\put(\kanzanhalf,\kanzanhalf){\lower2ex\hbox to0pt{\hss
-\begin{tabular}[t]{r}#5\end{tabular}}}
-\end{picture}}}
-\def\schemelarrow#1#2#3#4{\raisebox{#1}{%
-    \parbox{#2}{\centering
-    \baselineskip=.8\normalbaselineskip #3 \par
-    \vskip-0.2\normalbaselineskip
-    \centering{\Leftarrowfill} \par
-    \vskip-0.1\normalbaselineskip #4}}}
-\def\schemerarrow#1#2#3#4{\raisebox{#1}{%
-    \parbox{#2}{\centering
-    \baselineskip=.8\normalbaselineskip #3 \par
-    \vskip-0.2\normalbaselineskip
-    \centering{\Rightarrowfill} \par
-    \vskip-0.1\normalbaselineskip #4}}}
-\def\schemelrarrow#1#2#3#4{\raisebox{#1}{%
-    \parbox{#2}{\centering
-    \baselineskip=.8\normalbaselineskip #3 \par
-    \vskip-0.2\normalbaselineskip
-    \centering{\Leftrightarrowfill} \par
-    \vskip-0.1\normalbaselineskip #4}}}
-\def\changespace#1{\def\baselinestretch{#1} \@normalsize}
-\def\tbcaption{\def\@captype{table}\caption}
-\def\fgcaption{\def\@captype{figure}\caption}
-\def\smcaption{\def\@captype{scheme}\caption}
-%%%%%%%%%%%1991 November 7%%%chapinitial%%%%%%%%%%%%%
-\def\chap@initial#1%
-{\medbreak\begingroup\clubpenalty=10000
- \def\par{\endgraf\endgroup\medbreak}
- \noindent\hangindent28pt\hangafter=-2
-\hbox to0pt{\hskip-\hangindent
-\hbox to28pt{\hss\raise-4pt\hbox{\lower3pt\hbox{\Huge\bf #1}} }
-} \hskip-5pt plus2pt minus2pt}
-\outer\def\chapinitial{\chap@initial}
-\def\yen{\leavevmode\hbox{\setbox0=\hbox{Y}%
-\setbox1=\vbox{\hrule height.05\ht0 width.96\wd0%
-\kern.18\ht0\hrule height.05\ht0 width.96\wd0}%
-\setbox1=\hbox to\wd0{\raise.3\ht0\box1\hss}%
-{\ooalign{\hfil\box1\hfil\crcr\box0}}}}
-\newif\ifverbswitch \verbswitchtrue
-\let\old@verbatim\@verbatim
-\let\old@xverbatim\@xverbatim
-\let\old@sxverbatim\@sxverbatim
-\begingroup
-  \catcode`\|=0  \catcode`\\=13
-  |gdef|verbh@@k{|catcode`|\=13 |let\=|yen}
-|endgroup
-\def\verb{\begingroup \catcode``=13 \@noligs
- \tt \let\do\@makeother \dospecials
- \ifverbswitch \verbh@@k \fi \@ifstar{\@sverb}{\@verb}}
-\begingroup
-\catcode`|=0 \catcode`[=1 \catcode`]=2
-\catcode`\{=12 \catcode`\}=12 \catcode`\\=13
-|gdef|@xverbatim#1\end{verbatim}[#1|end[verbatim]]
-|gdef|@sxverbatim#1\end{verbatim*}[#1|end[verbatim*]]
-|endgroup
-\newdimen\verbatimleftmargin \verbatimleftmargin\leftmargini
-\newdimen\verbatimbaselineskip \verbatimbaselineskip11pt
-\def\verbatimsize{\small}
-\def\@verbatim{\trivlist \item[]%
- \if@minipage \else \vskip\baselineskip%
- \vskip-\verbatimbaselineskip \vskip\parskip\fi
- \leftskip\@totalleftmargin
- \if@minipage \else \advance\leftskip\verbatimleftmargin \fi
- \rightskip\z@ \parindent\z@ \parfillskip\@flushglue \parskip\z@
- \@tempswafalse \def\par{\if@tempswa\hbox{}\fi\@tempswatrue\@@par}
- \obeylines \verbatimsize \baselineskip\verbatimbaselineskip \tt
- \catcode``=13 \@noligs \let\do\@makeother \dospecials}
-\def\verbatim{\ifverbswitch \@verbatim \else \old@verbatim \fi
-\frenchspacing \@vobeyspaces
-\ifverbswitch \verbh@@k \@xverbatim \else \old@xverbatim \fi}
-\@namedef{verbatim*}{%
- \ifverbswitch \@verbatim \verbh@@k \@sxverbatim
- \else \old@verbatim \old@sxverbatim \fi}
-\def\@sverb#1{\def\@tempa ##1#1{##1\endgroup}\@tempa}
-\def\@verb{\obeyspaces \frenchspacing \@sverb}
-\def\@sverbtim{\obeyspaces\@verbatim}
-\let\endverbatim=\endtrivlist
-\@namedef{varbatim*}{\@verbatim\@sxverbatim}
-\expandafter\let\csname endverbatim*\endcsname =\endtrivlist
-\long\def\fb@xit#1#2#3#4{%
-\setbox4=\vbox{\hsize#3\noindent#4}%
-\vbox{\hrule\@height#1\hbox{\vrule\@width#1\kern#2\vbox{%
-\kern#2\box4\kern#2}\kern#1\vrule\@width#1}\hrule\@height#1}}
-\long\def\fboxit#1#2{\fb@xit{\fboxrule}{\fboxsep}{#1}{#2}}
-\long\def\leftshfr@me#1#2#3#4{\leavevmode%
- \vbox{\hbox{\hsize #3\vbox{%
- \hbox{\vrule\@width #1%
- \vbox{\kern-#1\fb@xit{%
- \fboxrule}{#2}{#3}{#4}\kern-\fboxrule}\kern-#1}%
- \hrule\@height#1}}}\strut\hskip #1\relax}
-\long\def\leftshframe#1#2{%
- \leftshfr@me{\fboxsep}{\fboxsep}{#1}{#2}}
-\long\def\leftshfbox#1{\leavevmode\setbox0=\hbox{\fbox{#1}}%
- \vbox{\hbox{\vbox{\hbox{\vrule\@width\fboxsep\vbox{%
-       \kern-\fboxsep\box0\kern-\fboxrule}\kern-\fboxsep}%
- \hrule\@height\fboxsep}}}\hskip\fboxsep\relax} %%%%
-\long\def\rightshfr@me#1#2#3#4{\leavevmode%
- \vbox{\hbox{\kern#1\vbox{\hsize#3\vbox{\kern-#1\hbox{%
- \kern-#1\fb@xit{\fboxrule}{#2}{#3}{#4}}\hrule\@height#1}}%
- \vrule\@width#1}}\strut}
-\long\def\rightshframe#1#2{%
- \rightshfr@me{\fboxsep}{\fboxsep}{#1}{#2}}
-\long\def\rightshfbox#1{\leavevmode%
- \vbox{\hbox{\kern\fboxsep\vbox{\vbox{\kern-\fboxsep\hbox{%
- \kern-\fboxsep\fbox{#1}}\hrule\@height\fboxsep}}%
- \vrule\@width\fboxsep}}}
-\def\ffboxit{\par\vskip1pc\hfil\vbox\bgroup
-    \hrule\hbox\bgroup\vrule\kern3pt\vbox\bgroup\kern3pt}
-\def\endffboxit{\kern3pt\egroup\kern3pt\vrule\egroup\hrule\egroup
-             \hfil\\}
-\def\ffparbox#1#2{\vbox{\hsize=#1 \noindent\strut #2\strut}}
-\long\def\fr@meboxit#1#2#3{\gdef\fr@meline{#1}\gdef\fr@mesp{#2}%
-    \global\setbox4=\hbox\bgroup\minipage{#3}}
-\def\endfr@meboxit{\endminipage\egroup%
-    \hbox{\vbox{\hrule\@height\fr@meline%
-    \hbox{\vrule\@width\fr@meline\kern\fr@mesp%
-    \vbox{\kern\fr@meline\kern\fr@mesp\box4\kern\fr@mesp}%
-    \kern\fr@mesp}\hrule\@height\fr@meline}%
-    \vrule\@width\fr@meline}}
-\def\frameboxit#1{\leavevmode\fr@meboxit{\fboxrule}{\fboxsep}{#1}}
-\let\endframeboxit=\endfr@meboxit
-\def\lshfr@meboxit#1#2#3#4{\gdef\sh@hwidth{#1}\gdef\sh@vwidth{#2}%
-\leavevmode%
- \vbox\bgroup\hbox\bgroup\hsize #4\vbox\bgroup%
- \hbox\bgroup\vrule\@width\sh@vwidth%
- \vbox\bgroup\kern-\sh@hwidth\fr@meboxit{\fboxrule}{#3}{#4}}
-\def\endlshfr@meboxit{\endfr@meboxit%%%%\kern-\fboxrule
- \egroup\kern-\sh@vwidth\egroup%
- \hrule\@height\sh@hwidth\egroup\egroup\egroup%
- \strut\kern\sh@hwidth\relax}
-\def\lshfboxit#1{\leavevmode%
- \lshfr@meboxit{\fboxsep}{\fboxsep}{\fboxsep}{#1}}
-\let\endlshfboxit=\endlshfr@meboxit
-\def\rshfr@meboxit#1#2#3#4{%
- \gdef\sh@hwidth{#1}\gdef\sh@vwidth{#2}%
- \leavevmode%
- \vbox\bgroup\hbox\bgroup\kern\sh@vwidth%
- \vbox\bgroup\hsize#4\vbox\bgroup%
- \kern-\sh@hwidth\hbox\bgroup\kern-\sh@vwidth%
- \fr@meboxit{\fboxrule}{#3}{#4}}
-\def\endrshfr@meboxit{\endfr@meboxit\egroup%
- \hrule\@height\sh@hwidth%
- \egroup\egroup\vrule\@width\sh@vwidth\egroup\egroup\strut}
-\def\rshfboxit#1{\leavevmode%
- \rshfr@meboxit{\fboxsep}{\fboxsep}{\fboxsep}{#1}}
-\let\endrshfboxit=\endrshfr@meboxit
-\newdimen\hsgr@d \newdimen\vsgr@d
-\newdimen\vwgr@d \newdimen\hwgr@d
-\newdimen\vsepgr@d \newdimen\hsepgr@d
-\newcount\nrep \newcount\nrepmax
-\nrepmax=25
-\def\grshfr@meboxit#1#2#3#4{%
- \hsgr@d=0pt \advance\hsgr@d by#1 \divide\hsgr@d by\nrepmax%
- \vsgr@d=0pt \advance\vsgr@d by#2 \divide\vsgr@d by\nrepmax%
- \leavevmode%
- \setbox0=\vbox\bgroup\fr@meboxit{\fboxrule}{#3}{#4}}
-\def\brb@xit#1{\vbox{\setbox1=\hbox{#1}%
-       \offinterlineskip%
-  \hbox{\copy1\vsepgr@d=\nrep\vsgr@d%
-       \vwgr@d=\ht1\advance\vwgr@d by-\vsepgr@d%
-       \vrule\@height\vwgr@d\@width\vsgr@d}%
-  \hbox{\hsepgr@d=\nrep\hsgr@d\kern\hsepgr@d%
-       \vbox{\hwgr@d=\wd1\advance\hwgr@d by-\hsepgr@d%
-       \hrule\@height\hsgr@d\@width\hwgr@d}}}}
-\def\lprb@xit{\expandafter\setbox0=\expandafter\brb@xit{\box0}}
-\def\endgrshfr@meboxit{\endfr@meboxit\egroup%
- \nrep=\@ne\@whilenum\nrep<\nrepmax\do%
- {\lprb@xit\advance\nrep\@ne}\box0\relax}
-\def\grshfboxit#1{\leavevmode%
-  \grshfr@meboxit{\fboxsep}{\fboxsep}{\fboxsep}{#1}}
-\let\endgrshfboxit=\endgrshfr@meboxit
-\def\glshfr@meboxit#1#2#3#4{%
- \hsgr@d=0pt \advance\hsgr@d by#1 \divide\hsgr@d by\nrepmax%
- \vsgr@d=0pt \advance\vsgr@d by#2 \divide\vsgr@d by\nrepmax%
- \leavevmode%
- \setbox0=\vbox\bgroup\fr@meboxit{\fboxrule}{#3}{#4}}
-\def\blb@xit#1{%
-  \vbox{\setbox1=\hbox{#1}%
-       \offinterlineskip%
-       \vsepgr@d=\nrep\vsgr@d%
-       \vwgr@d=\ht1\advance\vwgr@d by-\vsepgr@d%
-       \hsepgr@d=\nrep\hsgr@d%
-       \hwgr@d=\wd1\advance\hwgr@d by-\hsepgr@d%
-   \hbox{\vrule\@height\vwgr@d\@width\vsgr@d\copy1}%
-   \hbox{\kern-\vsgr@d%
-         \vrule\@height\hsgr@d\@width\hwgr@d}}}
-\def\lplb@xit{\expandafter\setbox0=\expandafter\blb@xit{\box0}}
-\def\endglshfr@meboxit{\endfr@meboxit\egroup%
- \nrep=\@ne\@whilenum\nrep<\nrepmax\do%
- {\lplb@xit\advance\nrep\@ne}\box0\relax}
-\def\glshfboxit#1{\leavevmode%
- \glshfr@meboxit{\fboxsep}{\fboxsep}{\fboxsep}{#1}}
-\let\endglshfboxit=\endglshfr@meboxit
-\@ifundefined{ybaselineshift}{%
-\newdimen\ybaselineshift \ybaselineshift=\z@}{}
-\@ifundefined{tbaselineshift}{%
-\newdimen\tbaselineshift \tbaselineshift=\z@}{}
-\newdimen\@savetbaselineshift \@savetbaselineshift=\z@
-\def\@oval(#1,#2)[#3]{\begingroup\boxmaxdepth \maxdimen
-  \@ovttrue \@ovbtrue \@ovltrue \@ovrtrue
-  \@tfor\@tempa :=#3\do{\csname @ov\@tempa false\endcsname}\@ovxx
-  #1\unitlength \@ovyy #2\unitlength
-  \@tempdimb \ifdim \@ovyy >\@ovxx \@ovxx\else \@ovyy \fi
-  \advance\@tempdimb -2pt\relax
-  \@getcirc \@tempdimb
-  \@ovro \ht\@tempboxa \@ovri \dp\@tempboxa
-  \@ovdx\@ovxx \advance\@ovdx -\@tempdima \divide\@ovdx \tw@
-  \@ovdy\@ovyy \advance\@ovdy -\@tempdima \divide\@ovdy \tw@
-  \@circlefnt \setbox\@tempboxa
-  \hbox{\if@ovr \@ovvert32\kern -\@tempdima \fi
-  \if@ovl \kern \@ovxx \@ovvert01\kern -\@tempdima \kern -\@ovxx \fi
-  \if@ovt \@ovhorz \kern -\@ovxx \fi
-  \if@ovb \raise \@ovyy \@ovhorz \fi}\advance\@ovdx\@ovro
-  \advance\@ovdy\@ovro \ht\@tempboxa\z@ \dp\@tempboxa\z@
-  \@put{-\@ovdx}{-\@ovdy}{\box\@tempboxa}%
-  \endgroup}
-\def\h@b@x#1#2#3{\hbox to\dimen1%
- {\@oval(#3,#3)[#1]\hfil\@oval(#3,#3)[#2]}}
-\def\@vrf@#1#2{\vskip#1\leaders\vrule\@width#2\vfil\vskip#1}
-\let\miniscreentoprule=\hrule
-\def\miniscreen{\@ifnextchar[{\@miniscreen}{\@miniscreen[0]}}
-\def\miniscreen{\@ifnextchar[{\@miniscreen}{\@miniscreen[0]}}
-\def\@miniscreen[#1]#2{\dimen1=#2\relax%
-\@savetbaselineshift\tbaselineshift \tbaselineshift\z@
-\@tempcnta=-2 \multiply\@tempcnta by#1\relax%
-\advance\@tempcnta by 20\relax \dimen5=1pt
-\multiply\dimen5\@tempcnta
-\dimen4=-1pt \multiply\dimen4 by#1\relax
-\advance\dimen4 by 10pt
-\dimen3=\dimen4 \advance\dimen3 by -.2pt
-\par\vspace{.3\baselineskip}%
-\dimen2=\dimen1 \advance\dimen2 by .1pt
-\advance\dimen1 -\dimen5\relax%
-\setbox0=\hbox\bgroup\minipage{\dimen1
-\tbaselineshift\@savetbaselineshift}}%
-\def\endminiscreen{\endminipage\egroup%
-\setbox1=\hbox to\dimen2{\hfil\vbox{\offinterlineskip%
-\thinlines\unitlength=1pt
-\miniscreentoprule%\hrule
-\kern\dimen3%
-\h@b@x{tl}{tr}{\@tempcnta}%
-\kern-\dimen4\box0\h@b@x{bl}{br}{\@tempcnta}%
-\kern-.4pt\hrule}\hfil}\dimen0=\ht1\noindent%
-\hbox to\dimen2{\hbox to.4pt{%
-\vbox to\dimen0{\@vrf@{\dimen4}{.4pt}}\hss}%
-\box1\hbox to.2pt{%
- \hss\vbox to\dimen0{\@vrf@{\dimen4}{.4pt}}}\hss}}%
-\def\screen{\@ifnextchar[{\@screen}{\@miniscreen[0]{\linewidth}}}
-\def\@screen[#1]{\miniscreen[#1]{\linewidth}}
-\let\endscreen=\endminiscreen
-\def\tboxscreentoprule{%
-\hbox to\wd0{\smash{\lower.4ex\hbox{%
-\fboxsep=2pt \fbox{\small \tboxtitle}}}\hrulefill}}
-\def\tboxtitle{\bf Memorandum}
-\def\tboxminiscreen{\@ifnextchar[{\vskip8pt
- \let\miniscreentoprule=\tboxscreentoprule%
- \@miniscreen}{\vskip8pt
- \let\miniscreentoprule=\tboxscreentoprule%
- \@miniscreen[0]}}
-\let\endtboxminiscreen=\endminiscreen
-\def\tboxscreen{\@ifnextchar[{\@tboxscreen}%
-{\@tboxscreen[0]}}
-\def\@tboxscreen[#1]{\tboxminiscreen[#1]{\linewidth}}
-\let\endtboxscreen=\endtboxminiscreen
-\def\sboxit#1#2{\vbox{\hrule\hbox%
-{\vrule\vbox{\kern3pt\vbox{\hsize #1 \noindent #2}%
-\kern3pt}\vrule}\hrule}}
-\def\bury{\@ifnextchar [{\@bury}{\@bury[.5\normalbaselineskip]}}
-\def\@bury[#1]#2{\smash{\lower#1\hbox{#2}}}
-\def\finpushw@ll{\wd0=0pt \box0}
-\def\makepushw@ll#1{\setbox0=\hbox{#1}\finpushw@ll}
-\def\mathpushw@ll#1#2{\setbox0=\hbox{$\m@th#1{#2}$}\finpushw@ll}
-\def\pushtowall{\relax \leavevmode
- \ifmmode\def\next{\mathpalette\mathpushw@ll}
- \else\let\next\makepushw@ll \fi \next}
-\def\penetrate#1#2{\pushtowall{\hbox{\hskip#1\hbox{#2}}}}
-\def\cyan{\mbox{$\bigcirc$\kern-.06em{--}\kern-.06em
- \ooalign{\hfil
- \raise.05ex\hbox{\scriptsize C}\hfil\cr\cr$\bigcirc$}\,}}
-\def\magenta{\mbox{$\bigcirc$\kern-.06em{--}\kern-.06em
- \ooalign{\hfil
- \raise.05ex\hbox{\scriptsize M}\hfil\cr\cr$\bigcirc$}\,}}
-\def\yellow{\mbox{$\bigcirc$\kern-.06em{--}\kern-.06em
- \ooalign{\hfil
- \raise.05ex\hbox{\scriptsize Y}\hfil\cr\cr$\bigcirc$}\,}}
-\def\cyandv{\mbox{$\bigotimes$\kern-.06em{--}\kern-.06em
- \ooalign{\hfil
- \raise.05ex\hbox{\scriptsize C}\hfil\cr\cr$\bigcirc$}\,}}
-\def\magentadv{\mbox{$\bigotimes$\kern-.06em{--}\kern-.06em
- \ooalign{\hfil
- \raise.05ex\hbox{\scriptsize M}\hfil\cr\cr$\bigcirc$}\,}}
-\def\yellowdv{\mbox{$\bigotimes$\kern-.06em{--}\kern-.06em
- \ooalign{\hfil
- \raise.05ex\hbox{\scriptsize Y}\hfil\cr\cr$\bigcirc$}\,}}
-\def\agxlatent{%
- \mbox{\ooalign{%
- \hfil\raise.07ex\hbox{\footnotesize $\bullet$}\hfil\cr\cr
- $\triangle$}\,}}
-\def\agxdv{%
- \mbox{\ooalign{\hfil\raise.07ex\hbox{%
- \small $\spadesuit$}\hfil\cr\cr
- $\triangle$}\,}}
-\def\agx{\mbox{$\triangle$}}
-\def\llongrightarrow{%%%--->
-\relbar\joinrel\relbar\joinrel\relbar\joinrel\rightarrow}
-\def\llongleftarrow{%%%<---
- \leftarrow\joinrel\relbar\joinrel\relbar\joinrel\relbar}
-\def\llongleftrightarrow{%%%<--->
- \leftarrow\joinrel\relbar\joinrel\relbar\joinrel\rightarrow}
-\def\Equilibarrow{%%%<--- and --->
- \mathrel{\ooalign{\raise.35ex\hbox{$\llongrightarrow$}\crcr
- \lower.35ex\hbox{$\llongleftarrow$}}}}
-\def\Llongrightarrow{%%%===>
- \Relbar\joinrel\Relbar\joinrel\Relbar\joinrel\Rightarrow}
-\def\Llongleftarrow{%%%<===
- \Leftarrow\joinrel\Relbar\joinrel\Relbar\joinrel\Relbar}
-\def\Llongleftrightarrow{%%<===>
- \Leftarrow\joinrel\Relbar\joinrel\Relbar\joinrel\Rightarrow}
-
-\def\llongleftharpoondown{%%% /---
- \leftharpoondown\joinrel\relbar\joinrel\relbar\joinrel\relbar}
-\def\llongrightharpoonup{%%%---/
- \relbar\joinrel\relbar\joinrel\relbar\joinrel\rightharpoonup}
-\def\equilibarrow{%%% /--- and ---/
- \mathrel{\ooalign{%
- \raise.3ex\hbox{$\llongrightharpoonup$}\crcr
- \lower.3ex\hbox{$\llongleftharpoondown$}}}}
-\def\eqproton{\stackrel{{\rm \displaystyle H}^{+}}{\Equilibarrow}}
-\def\lllongrightarrow{\relbar\joinrel\relbar%
- \joinrel\relbar\joinrel\relbar\joinrel\rightarrow}
-\def\lllongleftarrow{%%%<-------
- \leftarrow\joinrel\relbar\joinrel\relbar%
- \joinrel\relbar\joinrel\relbar}
-\def\lllongleftrightarrow{%%%<------->
- \leftarrow\joinrel\relbar\joinrel\relbar%
- \joinrel\relbar\joinrel\rightarrow}
-\def\Equiliblongarrow{%%%<------- and ------->
- \mathrel{\ooalign{\raise.35ex\hbox{$\lllongrightarrow$}\crcr
- \lower.35ex\hbox{$\lllongleftarrow$}}}}
-\def\Lllongrightarrow{%%%=======>
- \Relbar\joinrel\Relbar\joinrel\Relbar\joinrel%
- \Relbar\joinrel\Rightarrow}
-\def\Lllongleftarrow{%%%<=======
- \Leftarrow\joinrel\Relbar\joinrel\Relbar\joinrel%
- \Relbar\joinrel\Relbar}
-\def\Lllongleftrightarrow{%%<=======>
- \Leftarrow\joinrel\Relbar\joinrel\Relbar\joinrel%
- \Relbar\joinrel\Rightarrow}
-\def\lllongleftharpoondown{%%% /-------
- \leftharpoondown\joinrel\relbar\joinrel\relbar%
- \joinrel\relbar\joinrel\relbar}
-\def\lllongrightharpoonup{%%%-------/
- \relbar\joinrel\relbar\joinrel\relbar\joinrel%
- \relbar\joinrel\rightharpoonup}
-\def\equiliblongarrow{%%% /------ and ------/
- \mathrel{\ooalign{%
- \raise.3ex\hbox{$\lllongrightharpoonup$}\crcr
- \lower.3ex\hbox{$\lllongleftharpoondown$}}}}
-\def\deHBr{\stackrel{\displaystyle \rm -HBr}%
-{\stackrel{\displaystyle \lllongrightarrow}{\rm E2}}}
-\def\chemcorr{%
- \fontdimen16\textfont2=3.5pt
- \fontdimen17\textfont2=3.5pt
- %\fontdimen14\textfont2=3.8pt
-}
-\def\leavechemcorr{%
- \fontdimen16\textfont2=1.49998pt
- \fontdimen17\textfont2=2.47217pt
- %\fontdimen14\textfont2=3.62892pt
-}
-\newif\ifnewl@tex \newl@textrue
-\@ifundefined{DeclareMathVersion}%
- {\global\newl@texfalse}{\global\newl@textrue}%
-\ifnewl@tex\@ifundefined{mv@chem}{\DeclareMathVersion{chem}%
- \SetSymbolFont{letters}{chem}{OT1}{cmr}{m}{n}}{}\fi
-\ifnewl@tex
-\def\chemform#1{{\mathversion{chem}%
-$\chemcorr #1$\leavechemcorr}}
-\else
-\def\chemform#1{\chemcorr
-$\rm #1$\leavechemcorr}
-\fi
-\ifnewl@tex
-\def\chemmath{\begingroup\mathversion{chem}\[\chemcorr}
-\def\endchemmath{\]\endgroup\leavechemcorr}
-\else
-\def\chemmath{\chemcorr\[\rm}
-\def\endchemmath{\] \leavechemcorr}
-\fi
-\ifnewl@tex
-\def\chemeqn{\begingroup\mathversion{chem}\equation\chemcorr}
-\def\endchemeqn{\endequation\endgroup\leavechemcorr}
-\else
-\def\chemeqn{\chemcorr\equation\rm}
-\def\endchemeqn{\endequation\leavechemcorr}
-\fi
-\ifnewl@tex
-\def\chemeqnarray{\stepcounter{equation}
- \let\@currentlabel=\theequation
- \global\@eqnswtrue
- \global\@eqcnt\z@\tabskip\@centering
- \let\\=\@eqncr
- \begingroup\mathversion{chem}
-$$\chemcorr\halign to \displaywidth\bgroup
-  \@eqnsel\hskip\@centering
-  $\rm \displaystyle\tabskip\z@{##}$ &
-  \global\@eqcnt\@ne
-  \hskip \arraycolsep \hfil$\rm{##}$\hfil &
-  \global\@eqcnt\tw@ \hskip \arraycolsep
-  $\rm \displaystyle\tabskip\z@{##}$\hfil
-  \tabskip\@centering &
-  \llap{##}\tabskip\z@\cr}
-\def\endchemeqnarray{\endeqnarray\endgroup
-\leavechemcorr}
-\else
-\def\chemeqnarray{\stepcounter{equation}
- \let\@currentlabel=\theequation
- \global\@eqnswtrue
- \global\@eqcnt\z@\tabskip\@centering
- \let\\=\@eqncr \chemcorr
-$$\halign to \displaywidth\bgroup
-  \@eqnsel\hskip\@centering
-  $\rm \displaystyle\tabskip\z@{##}$ &
-  \global\@eqcnt\@ne
-  \hskip \arraycolsep \hfil$\rm{##}$\hfil &
-  \global\@eqcnt\tw@ \hskip \arraycolsep
-  $\rm \displaystyle\tabskip\z@{##}$\hfil
-  \tabskip\@centering &
-  \llap{##}\tabskip\z@\cr}
-\def\endchemeqnarray{\endeqnarray
-\leavechemcorr}
-\fi
-\let\@seqncr=\@eqncr
-\ifnewl@tex
-\@namedef{chemeqnarray*}{%
-\def\@eqncr{\nonumber\@seqncr}\chemeqnarray}
-\@namedef{endchemeqnarray*}{\nonumber\endchemeqnarray}
-\else
-\@namedef{chemeqnarray*}{%
-\def\@eqncr{\nonumber\@seqncr\rm}\chemeqnarray}
-\@namedef{endchemeqnarray*}{\nonumber\endchemeqnarray}
-\fi
-\def\chemeqnarraya{\chemeqn@rraya \chemeqnarray}
-\def\chemeqn@rraya{%
- \c@enumi=\c@equation
- \advance\c@enumi\@ne
- \c@equation=\z@
- \@ifundefined{chapter}%
-{\def\theequation{\theenumi\alph{equation}}}%
-{\def\theequation{%
-\thechapter.\theenumi\alph{equation}}}}
-\def\endchemeqnarraya{\endchemeqnarray
-\global\c@equation=\c@enumi}
-\def\XyMcompd(#1,#2)(#3,#4)#5#6{%
-\begingroup
-\edef\xymrefa{#5}\edef\xymrefb{#6}%
-\edef\kkk{#1}%
-\begin{tabular}{c}
-\ifx\kkk\empty\else
-\begin{picture}(#1,#2)(#3,#4)\fi\ignorespaces}
-\def\endXyMcompd{%
-\ifx\kkk\empty\else\end{picture}\fi
-\\[-\baselineskip]
-\ifx\xymrefa\empty\else{\bf \compd\xymrefb
-\expandafter\label{\xymrefa}}\fi
-\end{tabular}\endgroup}
-\def\XyMtab#1{\center\tabular{#1c}}
-\def\endXyMtab{\endtabular\endcenter}
-\def\derivlist#1{%
-\mbox{}\\
-\begingroup\def\arraystretch{0.7}%
-\begin{tabular}{l}
-\@forsemicol\member:=#1\do{%
-\ifx\member\empty\else%
-\hbox to2em{\hss\derivnum}:\space\member \\
-\fi}\end{tabular}\endgroup}
-\def\XyMderiv{\tabular{c}}
-\def\endXyMderiv{\endtabular}
-\def\endash{\mbox{--{}}}
-\def\Cent{\mbox{\raise.9ex\hbox{%
- \scriptsize$\circ$}\kern-.12em\hbox{C}}}
-\def\degC{\mbox{\kern-.2em\char'27\kern-.3em C}}
-\def\degF{\mbox{\kern-.2em\char'27\kern-.3em F}}
-
-\def\yubin{$\overline{\top}$}
-\def\Yubin#1{\leavevmode\hbox{\vbox{\hrule\@height.12ex\@width.7em
-\kern.28ex\hrule\@height.12ex\@width.7em
-\hbox{\kern.35em\kern-.06ex
-\vbox{\hrule\@height1ex\@width.12ex}}}\kern.1em{#1}}}
-\def\xlethead#1{%
- \kern-.6667\baselineskip \line{\hrulefill\phantom{ #1 }\hrulefill}
- \kern-.6667\baselineskip \line{\hrulefill\phantom{ #1 }\hrulefill}
- \kern-.6667\baselineskip \line{\hrulefill\hbox{ #1 }\hrulefill}}
-\def\lethead#1#2#3{\def\line{\hbox to\textwidth}
- \vbox{\line{\hrulefill}
- \xlethead{#1} \xlethead{#2} \xlethead{#3}
- \kern-.6667\baselineskip \line{\hrulefill}}}
-\def\horizon{\rule{12pt}{0.1pt}}
-\newcount\TestCount \def\tmpkern{\kern0pt}
-\ifnewl@tex \else
-\def\resetfontsize{%
- \ifx\@currsize\normalsize%
-  \def\tmpf@ntsize{%
-   \load{\footnotesize}{\sf}%
-   \load{\footnotesize}{\sl}%
-   \load{\footnotesize}{\bf}%
-   \def\tmpkern{\kern0.05em}%
-   \footnotesize}\fi
- \ifx\@currsize\scriptsize \let\tmpf@ntsize=\tiny\fi
- \ifx\@currsize\footnotesize \let\tmpf@ntsize=\tiny\fi
- \ifx\@currsize\small \let\tmpf@ntsize=\scriptsize\fi
- \ifx\@currsize\large \let\tmpf@ntsize=\small\fi
- \ifx\@currsize\Large \let\tmpf@ntsize=\@normalsize\fi
- \ifx\@currsize\LARGE \let\tmpf@ntsize=\large\fi
- \ifx\@currsize\huge \let\tmpf@ntsize=\Large\fi
- \ifx\@currsize\Huge \let\tmpf@ntsize=\LARGE\fi}
-\fi
-\ifnewl@tex \else
-\def\Bib{\ifnum \fam=\m@ne \fam=\z@ \fi\TestCount=\fam\leavevmode%
-    \edef\aaa{\fontname\scriptfont\fam}%
-    \edef\bbb{\fontname\textfont\fam}%
- \resetfontsize%
- \hbox{$\fam=\TestCount\textstyle B$}%
- \ifx\aaa\bbb%
-   \hbox{\tmpf@ntsize\bf
-  $\fam=\TestCount\kern-.025em I\kern-.045em B$}%
- \else%
-   \hbox{$\fam\TestCount\scriptstyle\kern-.025em I\kern-.045em B$}%
- \fi
-}
-\fi
-\ifnewl@tex
-\DeclareRobustCommand{\BibTeX}{%
-    B\hbox{$\m@th$\csname S@\f@size\endcsname
-    \fontsize\sf@size\z@ \math@fontsfalse\selectfont
-    \kern-.025em I\kern-.045em B}\kern-.08em\TeX}
-\else \def\BibTeX{\Bib\kern-.08em\TeX} \fi
-\ifnewl@tex
-\DeclareRobustCommand{\jBibTeX}{\mbox{%
-  \if b\expandafter\@car\f@series\@nil\boldmath\fi
-  \leavevmode\lower.46ex\hbox{J}\kern-.08em\BibTeX}}
-\else
-\def\jBibTeX{\leavevmode\lower.46ex\hbox{J}%
- \kern-.08em\Bib\kern-.08em\TeX}
-\fi
-\def\jTeX{\leavevmode\lower.46ex\hbox{J}\kern-.15em\TeX}
-\def\pTeX{p\kern-.15em\TeX}
-\ifnewl@tex \else
-\def\Sub{\leavevmode\ifnum \fam=\m@ne \fam=\z@ \fi%
-    \TestCount=\fam{S}%
-    \edef\aaa{\fontname\scriptfont\fam}%
-    \edef\bbb{\fontname\textfont\fam}%
-    \ifx\aaa\bbb\resetfontsize%
-      \hbox{\tmpf@ntsize\bf%
-      $\fam=\TestCount\kern-.045em{U}\kern-.12em{B}$}%
-    \else%
-      \hbox{$\fam\TestCount%
-       \scriptstyle\kern-.045em{U}\kern-.12em{B}$}%
-    \fi}
-\fi
-\ifnewl@tex
-\DeclareRobustCommand{\SubBib}{S\hbox{$\m@th$%
-   \csname S@\f@size\endcsname\fontsize\sf@size\z@
-   \math@fontsfalse\selectfont%
-   \kern-.045em{U}\kern-.12em{B}}B\hbox{$\m@th$%
-   \csname S@\f@size\endcsname\fontsize\sf@size\z@
-   \math@fontsfalse\selectfont \kern-.025em I\kern-.045em B}}
-\else \def\SubBib{\Sub\kern-.08em\Bib} \fi
-
-\ifnewl@tex \else
-\def\La{\ifnum \fam=\m@ne \fam=\z@ \fi\TestCount=\fam%
-  \edef\aaa{\fontname\scriptfont\fam}%
-  \edef\bbb{\fontname\textfont\fam}\leavevmode{L}%
-  \ifx\aaa\bbb \resetfontsize%
-   \raise.46ex\hbox{{\tmpf@ntsize\bf%
-   $\fam\TestCount\kern-.4em\tmpkern{A}$}}%
-  \else%
-   \raise.42ex\hbox{$\fam\TestCount\scriptstyle\kern-.3em{A}$}%
-  \fi}
-\fi
-\ifnewl@tex \else \def\LaTeX{\La\kern-.15em\TeX}\fi
-\ifnewl@tex
- \DeclareRobustCommand{\jLaTeX}%
- {\leavevmode\lower.46ex\hbox{J}\kern-.08em\LaTeX}
-\else
- \def\jLaTeX{\leavevmode\lower.46ex\hbox{J}\kern-.08em\LaTeX}
-\fi
-\def\PiC{P\kern-.12em\lower.5ex\hbox{I}\kern-.075emC}
-\ifnewl@tex
-\DeclareRobustCommand{\PiCTeX}{\PiC\kern-.11em\TeX}
-\else
-\def\PiCTeX{\PiC\kern-.11em\TeX}
-\fi
-\ifnewl@tex
-\DeclareRobustCommand{\tpic}{T\hbox{$\m@th$%
-   \csname S@\f@size\endcsname\fontsize\sf@size\z@
-   \math@fontsfalse\selectfont
-   \kern-.025em P\kern-.025em I\kern-.025emC}}
-\else
-\def\tpic{\ifnum \fam=\m@ne \fam=\z@ \fi%
-    \TestCount=\fam \leavevmode%
-    \edef\aaa{\fontname\scriptfont\fam}%
-    \edef\bbb{\fontname\textfont\fam}%
- \resetfontsize\hbox{$\fam=\TestCount\textstyle T$}%
- \ifx\aaa\bbb\hbox{\tmpf@ntsize\bf$\fam=\TestCount%
-        \kern-.025em P\kern-.025em I\kern-.025emC$}\else%
- \hbox{$\fam\TestCount\scriptstyle%
-       \kern-.025em P\kern-.025em I\kern-.025emC$}\fi}
-\fi
-\ifnewl@tex \else
-\def\Post{\ifnum \fam=\m@ne \fam=\z@ \fi%
-    \TestCount=\fam\leavevmode%
-    \edef\aaa{\fontname\scriptfont\fam}%
-    \edef\bbb{\fontname\textfont\fam}%
- \resetfontsize%
- \hbox{$\fam=\TestCount\textstyle P$}%
- \ifx\aaa\bbb%
-   \hbox{\tmpf@ntsize\bf%
-   $\fam=\TestCount\kern-.045em O\kern-.015em ST$}%
- \else%
-   \hbox{$\fam\TestCount%
-   \scriptstyle\kern-.045em O\kern-.015em ST$}%
- \fi}
-\def\Script{\ifnum \fam=\m@ne \fam=\z@ \fi%
-    \TestCount=\fam\leavevmode%
-    \edef\aaa{\fontname\scriptfont\fam}%
-    \edef\bbb{\fontname\textfont\fam}%
- \resetfontsize%
- \hbox{$\fam=\TestCount\textstyle S$}%
- \ifx\aaa\bbb%
-   \hbox{\tmpf@ntsize\bf$\fam=\TestCount\kern-.035em %
-    C\kern-.015em R\kern-.015em IP\kern-.035em T$}%
- \else%
-   \hbox{$\fam\TestCount\scriptstyle\kern-.035em %
-   C\kern-.015em R\kern-.015em IP\kern-.035em T$}%
- \fi}
-\fi
-\ifnewl@tex
-\DeclareRobustCommand{\PostScript}{P\hbox{$\m@th$%
-    \csname S@\f@size\endcsname\fontsize\sf@size\z@
-    \math@fontsfalse\selectfont
-    \kern-.045em O\kern-.015em ST}S\hbox{$\m@th$%
-    \csname S@\f@size\endcsname\fontsize\sf@size\z@
-    \math@fontsfalse\selectfont
-    \kern-.035em C\kern-.015em R\kern-.015em IP\kern-.035em T}}
-\else
-\def\PostScript{\Post\Script}
-\fi
-\def\triplebond{\leavevmode\kern.2pt\raisebox{.2ex}{%
-\hbox{\vbox{\hrule height.03ex width1em\kern.4ex
-\hrule height.03ex width1em\kern.4ex
-\hrule height.03ex width1em}}}\hskip.4pt}
-\def\doublebond{\leavevmode\kern.2pt\raisebox{.3ex}{%
-\hbox{\vbox{\hrule height.03ex width1em\kern.6ex
-\hrule height.03ex width1em}}}\hskip.4pt}
-\let\tbond=\triplebond
-\let\dbond=\doublebond
-\endinput
-%%
-%% End of file `chemist.sty'.
diff --git a/Master/texmf-dist/tex/latex/xymtex/chemstr.sty b/Master/texmf-dist/tex/latex/xymtex/chemstr.sty
deleted file mode 100644
index 6e81e68d184..00000000000
--- a/Master/texmf-dist/tex/latex/xymtex/chemstr.sty
+++ /dev/null
@@ -1,5905 +0,0 @@
-%%
-%% This is file `chemstr.sty',
-%% generated with the docstrip utility.
-%%
-%% The original source files were:
-%%
-%% chemstr.dtx  (with options: `chemstr')
-%% 
-%% This is a generated file.
-%% 
-%% Copyright 1996, 1988 by Shinsaku Fujita
-%% 
-%% This file is part of the XyMTeX system.
-%% =======================================
-%% 
-%% Version 1.01 Released on August 16, 1996
-%% Version 1.02 Released on October 31, 1998 (private version)
-%% Version 2.00 Released on December 25, 1998
-%% 
-%% Copyright (C) 1996, 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: chemstr.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{chemstr}
-\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]}
-\def\UPSILON{\char'7}
-\def\XyM{X\kern-.30em\smash{\raise.50ex\hbox{\UPSILON}}\kern-.30em{M}}
-\def\XyMTeX{\XyM\kern-.1em\TeX}
-\def\@forsemicol#1:=#2\do#3{%
-   \expandafter\def\expandafter\@fortmp\expandafter{#2}%
-    \ifx\@fortmp\@empty \else%
-    \expandafter\@forl@@p#2;\@nil;\@nil\@@#1{#3}\fi}
-\long\def\@forl@@p#1;#2;#3\@@#4#5{\def#4{#1}\ifx #4\@nnil \else%
-       #5\def#4{#2}\ifx #4\@nnil \else#5\@iforl@@p #3\@@#4{#5}\fi\fi}
-\long\def\@iforl@@p#1;#2\@@#3#4{\def#3{#1}\ifx #3\@nnil%
-       \expandafter\@fornoop \else
-      #4\relax\expandafter\@iforl@@p\fi#2\@@#3{#4}}
-\def\@m@mb@r#1==#2;{\gdef\@membera{#1}\gdef\@memberb{#2}}
-\def\twoch@r#1#2{\gdef\@tmpa{#1}\gdef\@tmpb{#2}}
-\def\twoch@@r#1#2{\gdef\@@tmpa{#1}\gdef\@@tmpb{#2}}
-\def\threech@r#1#2#3{\gdef\@tmpa{#1}\gdef\@tmpb{#2}\gdef\@tmpc{#3}}
-\def\twoCH@@R#1#2//{\gdef\@@tmpa{#1}\gdef\@@tmpb{#2}}
-\def\twoCH@R#1#2//{\gdef\@tmpa{#1}\gdef\@tmpb{#2}}
-\newif\if@rightput \@rightputfalse
-\newif\if@leftput \@leftputfalse
-\newif\if@leftrightput \@leftrightputfalse
-\def\resetlrput{\@rightputfalse\@leftputfalse
-\@leftrightputfalse}
-\def\rmoiety#1{\if@leftput
-\XyMTeXWarning{Wrong \string\rmoiety\space used in a left box}%
-\hbox to0pt{%
-\hbox to0pt{\hss\vrule width\overfullrule height\overfullrule}#1\hss}%
-\else\if@rightput\XyMTeXWarning{Unnecessary \string\rmoiety\space
-used in a right box}\hbox to0pt{#1\hss}%
-\else\if@leftrightput\hbox to0pt{#1\hss}%
-\fi\fi\fi\resetlrput}
-\def\lmoiety#1{\if@rightput
-\XyMTeXWarning{Wrong \string\lmoiety\space used in a right box}%
-\hbox to0pt{\hss#1\kern-.72em%
-\hbox to0pt{\vrule width\overfullrule height\overfullrule\hss}}\else
-\if@leftput\XyMTeXWarning{Unnecessary \string\lmoiety\space
-used in a left box}\hbox to0pt{\hss#1}%
-\else\if@leftrightput\hbox to0pt{\hss#1\kern-.72em}%
-\else\hbox to0pt{\hss#1\kern-.72em}\fi\fi\fi\resetlrput}
-\def\XyMTeXWarning#1{%
-\begingroup
- \let\protect\string
- \immediate\write\@unused{^^IXyMTeX Warning: #1\space
-   on input line \the\inputlineno^^I}%
-\endgroup}
-\newcount\@cnttempa
-\newcount\@cnttempb
-\def\FuseWarning#1#2#3#4#5#6#7{%
-\@tempcnta=#1 \@tempcntb=#2
-\@cnttempa=#3 \advance\@cnttempa-#5
-\@cnttempb=#4 \advance\@cnttempb-#6
-\ifnum\@tempcnta=\@cnttempa
- \ifnum\@tempcntb=\@cnttempb\else
-  \XyMTeXWarning{Mismatched fusion at bond `#7'}%
- \fi
-\else
-  \XyMTeXWarning{Mismatched fusion at bond `#7'}%
-\fi}
-\def\putlatom#1#2#3{\begingroup\resetlrput
-\put(#1,#2){\@leftputtrue\hbox to0pt{\hss #3}\@leftputfalse}\endgroup}
-\def\putratom#1#2#3{\begingroup\resetlrput
-\put(#1,#2){\@rightputtrue\hbox to0pt{#3 \hss}\@rightputfalse}\endgroup}
-\def\putlratom#1#2#3{\begingroup\resetlrput
-\put(#1,#2){\@leftrightputtrue\hbox to.72em{#3\hss}}%
-\@leftrightputfalse\endgroup}
-\def\Putlratom#1#2#3{\put(#1,#2){\hbox to.8em{#3}}}
-\newcount\noshift \noshift=0\relax%
-\newcount\shifti \shifti=240\relax%
-\newcount\shiftii \shiftii=400\relax%
-\newcount\shiftiii \shiftiii=800\relax%
-\unitlength.1pt%
-\def\fuseAx{0}
-\def\fuseBx{0}
-\def\fuseAy{0}
-\def\fuseBy{0}
-\newif\if@clip \@clipfalse%   % switch for clipping at 4
-\newif\if@aclip \@aclipfalse% % switch for clipping at 1
-\newif\if@bclip \@bclipfalse% % switch for clipping at 2
-\newif\if@cclip \@cclipfalse% % switch for clipping at 3
-\newif\if@eclip \@eclipfalse% % switch for clipping at 5
-\newif\if@fclip \@fclipfalse% % switch for clipping at 6
-\newif\iforigpt \origptfalse% % switch for showing the original point
-\newcount\@tmpaa%
-\newif\if@gclip \@gclipfalse%
-\newif\if@hclip \@hclipfalse%
-\newif\if@iclip \@iclipfalse%
-\newif\if@jclip \@jclipfalse%
-\def\@yl{(yl)}
-\newcount\yl@xdiff
-\newcount\yl@ydiff
-\newcount\yl@shiftii
-\newcount\yl@shifti
-\def\@ylii{0}\def\@yli{0}
-\def\@@ylii{}\def\@@yli{}
-\def\reset@@yl{\gdef\@@ylii{}\gdef\@@yli{}}
-\def\reset@yl@xydiff{\yl@xdiff=0 \yl@ydiff=0\relax}
-\newif\if@ylsw \@ylswfalse
-\newif\if@@ylsw \@@ylswfalse
-\def\@reset@ylsw{\@ylswfalse\@@ylswfalse}
-\newif\if@smallringsw \@smallringswfalse
-\def\iniflag{%
-\@aclipfalse\@bclipfalse\@cclipfalse\@clipfalse\@eclipfalse%
-\@fclipfalse\@gclipfalse\@hclipfalse%
-\@iclipfalse\@jclipfalse\@clipfusefalse%
-\global\@smallringswfalse%
-}%
-\def\iniatom{%
-\def\aaa{}\def\bbb{}\def\ccc{}\gdef\ddd{}%
-\def\eee{}\def\fff{}%
-\def\ggg{}\def\hhh{}\def\iii{}\gdef\jjj{}%
-\def\@aaa{}\def\@bbb{}\def\@ccc{}\def\@ddd{}%
-\def\@eee{}\def\@fff{}%
-\def\@ggg{}\def\@hhh{}\def\@iii{}%
-\def\@jjj{}\def\@kkk{}%
-}%
-\def\resetbdsw{\def\@aaa{a}\def\@bbb{b}\def\@ccc{c}%
-\def\@ddd{d}\def\@eee{e}\def\@fff{f}%
-\def\@ggg{g}\def\@hhh{h}\def\@iii{i}%
-\def\@jjj{j}\def\@kkk{k}%
-}%
-\iniatom
-\def\ylposition#1#2#3#4#5{%
-\@@ylswfalse%%%\@reset@ylsw
-\@forsemicol\member:=#1\do{%
-\if@@ylsw\else%
-\ifx\member\empty\else%
-\expandafter\@m@mb@r\member;\relax%
-\expandafter\threech@r\@membera{}{}\relax%
-\ifx\@memberb\@yl\relax\@@ylswtrue\else\@@ylswfalse\fi
-\if@@ylsw
-\ifnum#5<0\relax%
-\@tmpaa=-\@tmpa\relax \advance\@tmpaa by#2\relax%
-\else\@tmpaa=\@tmpa\relax \advance\@tmpaa by#2\relax\fi
-\ifnum\@tmpaa>#3\relax%
-\ifnum\@tmpaa<#4\relax%
-\ifcase\@tmpaa%0 omit
- \or\ifx\aaa\empty
-      \gdef\@ylii{0}\gdef\@yli{-406}\global\@ylswtrue%\@ylatrue% subst. on 1
-    \else
-      \gdef\@ylii{0}\gdef\@yli{-442}\global\@ylswtrue%\@ylatrue% subst. on 1
-    \fi
- \or\ifx\bbb\empty
-      \gdef\@ylii{-171}\gdef\@yli{-303}\global\@ylswtrue%\@ylbtrue% subst. on 2
-    \else
-      \gdef\@ylii{-213}\gdef\@yli{-327}\global\@ylswtrue%\@ylbtrue% subst. on 2
-    \fi
- \or\ifx\ccc\empty
-      \gdef\@ylii{-171}\gdef\@yli{-103}\global\@ylswtrue%\@ylctrue% subst. on 3
-    \else
-      \gdef\@ylii{-213}\gdef\@yli{-79}\global\@ylswtrue%\@ylctrue% subst. on 3
-    \fi
- \or\ifx\ddd\empty
-      \gdef\@ylii{0}\gdef\@yli{0}\global\@ylswtrue%\@yldtrue% subst. on 4
-    \else
-      \gdef\@ylii{0}\gdef\@yli{36}\global\@ylswtrue%\@yldtrue% subst. on 4
-    \fi
- \or\ifx\eee\empty
-      \gdef\@ylii{171}\gdef\@yli{-103}\global\@ylswtrue%\@yletrue% subst. on 5
-    \else
-      \gdef\@ylii{213}\gdef\@yli{-79}\global\@ylswtrue%\@yletrue% subst. on 5
-    \fi
- \or\ifx\fff\empty
-      \gdef\@ylii{171}\gdef\@yli{-303}\global\@ylswtrue%\@ylftrue% subst. on 6
-    \else
-      \gdef\@ylii{213}\gdef\@yli{-327}\global\@ylswtrue%\@ylftrue% subst. on 6
-    \fi%
-\fi%end of ifcase
-\fi\fi\fi\fi\fi}}%
-\def\@substa{%
-\if@aclip% %clipping
-   \if\@tmpb S%single bond
-    \ifx\@tmpc\empty%
-      \yl@xdiff=31\relax
-      \yl@ydiff=-17\relax
-           \put(0,436){\line(0,1){110}}%      % single bond at 1
-           \putlratom{-31}{563}{\@memberb}%   % left or right type
-    \else\if\@tmpc B%(B) beta
-      \yl@xdiff=-36\relax
-      \yl@ydiff=-27\relax
-           \putlatom{-42}{563}{\@memberb}%    % left type
-           {%
-           \thicklines%
-           \put(-18,436){\line(-3,5){60}}%    % single bond at 1
-           }%
-    \else\if\@tmpc A%(A) alpha
-      \yl@xdiff=37\relax
-      \yl@ydiff=-27\relax
-           \putratom{41}{563}{\@memberb}%     % right type
-       \@ifundefined{dottedline}{%
-           \put(18,436){\line(3,5){60}}%      % single bond at 1
-           }{{\thicklines%
-              \dottedline{20}(18,436)(72,526)}}%
-    \else\if\@tmpc u%(u) up --- (B) beta
-      \yl@xdiff=36\relax
-      \yl@ydiff=-27\relax
-           \putratom{41}{563}{\@memberb}%     % right type
-           {%
-           \thicklines%
-           \put(18,436){\line(3,5){60}}%    % single bond at 1
-           }%
-    \else\if\@tmpc d%(d) down --- (A) alpha
-      \yl@xdiff=-37\relax
-      \yl@ydiff=-27\relax
-           \putlatom{-42}{563}{\@memberb}%    % left type
-       \@ifundefined{dottedline}{%
-           \put(-18,436){\line(-3,5){60}}%      % single bond at 1
-           }{{\thicklines%
-              \dottedline{20}(-18,436)(-72,526)}}%
-    \else\if\@tmpc b%(b) beta
-      \yl@xdiff=-36\relax
-      \yl@ydiff=-27\relax
-           \putlatom{-42}{563}{\@memberb}%    % left type
-           \put(-18,436){\line(-3,5){60}}%    % single bond at 1
-    \else\if\@tmpc a%(a) alpha
-      \yl@xdiff=37\relax
-      \yl@ydiff=-27\relax
-           \putratom{41}{563}{\@memberb}%     % right type
-           \put(18,436){\line(3,5){60}}%      % single bond at 1
-    \fi\fi\fi\fi\fi%
-    \fi\fi
-   \else\if\@tmpb D%double bond
-      \yl@xdiff=31\relax
-      \yl@ydiff=-17\relax
-           \putlratom{-31}{563}{\@memberb}%   % left or right type
-           \put(-12,436){\line(0,1){110}}%    % double bond at 1
-           \put(12,436){\line(0,1){110}}%     % double bond at 1
-   \else\if\@tmpb B%beta single bond
-      \yl@xdiff=31\relax
-      \yl@ydiff=-17\relax
-           \putlratom{-31}{563}{\@memberb}%   % left or right type
-           {%
-           \thicklines%
-           \put(0,436){\line(0,1){110}}%      % single bond at 1
-           }%
-   \else\if\@tmpb A%alpha single bond
-      \yl@xdiff=31\relax
-      \yl@ydiff=-17\relax
-           \putlratom{-31}{563}{\@memberb}%   % left or right type
-           \@ifundefined{dottedline}{%
-             \put(0,436){\line(0,1){110}}%    % single bond at 1
-           }{{\thicklines%
-              \dottedline{20}(0,436)(0,546)}}%
-   \else\if\@tmpb F%fused bond
-     {\let\@tmpb=\@tmpc\@clipfusetrue
-      \put(0,406){\setatombondd}%
-     }%
-   \else\if\@tmpb G%fused bond
-     {\let\@tmpb=\@tmpc\@clipfusetrue
-      \put(0,406){\setatombondf}%
-     }%
-   \else%
-      \yl@xdiff=31\relax
-      \yl@ydiff=-17\relax
-           \putlratom{-31}{563}{\@memberb}%   % left or right type
-           \put(0,436){\line(0,1){110}}%      % single bond at 1
-   \fi\fi\fi\fi%
-   \fi\fi%
-\else% % no clipping
-   \if\@tmpb S%single bond
-    \ifx\@tmpc\empty%
-      \yl@xdiff=31\relax
-      \yl@ydiff=-17\relax
-           \put(0,406){\line(0,1){140}}%      % single bond at 1
-           \putlratom{-31}{563}{\@memberb}%   % left or right type
-    \else\if\@tmpc B%(B) beta
-      \yl@xdiff=-30\relax
-      \yl@ydiff=-37\relax
-           \putlatom{-42}{563}{\@memberb}%    % left type
-           {%
-           \thicklines%
-           \put(0,406){\line(-3,5){72}}%      % single bond at 1
-           }%
-    \else\if\@tmpc A%(A) alpha
-      \yl@xdiff=31\relax
-      \yl@ydiff=-37\relax
-           \putratom{41}{563}{\@memberb}%     % right type
-       \@ifundefined{dottedline}{%
-           \put(0,406){\line(3,5){72}}%       % single bond at 1
-           }{{\thicklines%
-              \dottedline{20}(0,406)(72,526)}}%
-    \else\if\@tmpc u%(u) upper --- (B) beta
-      \yl@xdiff=30\relax
-      \yl@ydiff=-37\relax
-           \putratom{41}{563}{\@memberb}%     % right type
-           {%
-           \thicklines%
-           \put(0,406){\line(3,5){72}}%      % single bond at 1
-           }%
-    \else\if\@tmpc d%(d) down --- (A) alpha
-      \yl@xdiff=-31\relax
-      \yl@ydiff=-37\relax
-           \putlatom{-42}{563}{\@memberb}%    % left type
-       \@ifundefined{dottedline}{%
-           \put(0,406){\line(-3,5){72}}%       % single bond at 1
-           }{{\thicklines%
-              \dottedline{20}(0,406)(-72,526)}}%
-    \else\if\@tmpc b%(b) beta
-      \yl@xdiff=-30\relax
-      \yl@ydiff=-37\relax
-           \putlatom{-42}{563}{\@memberb}%    % left type
-           \put(0,406){\line(-3,5){72}}%      % single bond at 1
-    \else\if\@tmpc a%(a) alpha
-      \yl@xdiff=31\relax
-      \yl@ydiff=-37\relax
-           \putratom{41}{563}{\@memberb}%     % right type
-           \put(0,406){\line(3,5){72}}%       % single bond at 1
-    \fi\fi\fi\fi\fi%
-    \fi\fi%
-   \else\if\@tmpb D%double bond
-      \yl@xdiff=31\relax
-      \yl@ydiff=-17\relax
-           \putlratom{-31}{563}{\@memberb}%   % left or right type
-           \put(-12,406){\line(0,1){140}}%    % double bond at 1
-           \put(12,406){\line(0,1){140}}%     % double bond at 1
-   \else\if\@tmpb B%beta single bond
-      \yl@xdiff=31\relax
-      \yl@ydiff=-17\relax
-           \putlratom{-31}{563}{\@memberb}%   % left or right type
-           {%
-           \thicklines%
-           \put(0,406){\line(0,1){140}}%      % single bond at 1
-           }%
-   \else\if\@tmpb A%alpha single bond
-      \yl@xdiff=31\relax
-      \yl@ydiff=-17\relax
-           \putlratom{-31}{563}{\@memberb}%   % left or right type
-           \@ifundefined{dottedline}{%
-             \put(0,406){\line(0,1){140}}%    % single bond at 1
-           }{{\thicklines%
-              \dottedline{20}(0,406)(0,546)}}%
-   \else\if\@tmpb F%fused bond
-     {\let\@tmpb=\@tmpc\@clipfusefalse
-      \put(0,406){\setatombondd}%
-     }%
-   \else\if\@tmpb G%fused bond
-     {\let\@tmpb=\@tmpc\@clipfusefalse
-      \put(0,406){\setatombondf}%
-     }%
-   \else%
-      \yl@xdiff=31\relax
-      \yl@ydiff=-17\relax
-           \putlratom{-31}{563}{\@memberb}%   % left or right type
-           \put(0,406){\line(0,1){140}}%      % single bond at 1
-   \fi\fi\fi\fi%
-   \fi\fi
- \fi}% end of \@substa
-\def\@substb{%
- \if@bclip %clipping
-   \if\@tmpb S%single bond
-    \ifx\@tmpc\empty%
-      \yl@xdiff=-10\relax
-      \yl@ydiff=24\relax
-           \putratom{311}{363}{\@memberb}%    % right type
-           \put(201,327){\line(5,3){100}}%    % single bond at 2
-    \else\if\@tmpc B%(B) beta
-      \yl@xdiff=-7\relax
-      \yl@ydiff=38\relax
-           \putratom{268}{420}{\@memberb}%    % right type
-           {%
-           \thicklines%
-           \put(201,358){\line(3,5){60}}%     % single bond at 2
-           }%
-    \else\if\@tmpc A%(A) alpha
-      \yl@xdiff=-17\relax
-      \yl@ydiff=23\relax
-           \putratom{318}{280}{\@memberb}%    % right type
-       \@ifundefined{dottedline}{%
-           \put(201,303){\line(1,0){100}}%    % single bond at 2
-           }{{\thicklines%
-              \dottedline{20}(201,303)(301,303)}}%
-    \else\if\@tmpc u%(u) up --- (B) beta
-      \yl@xdiff=-17\relax
-      \yl@ydiff=23\relax
-           \putratom{318}{280}{\@memberb}%    % right type
-           {%
-           \thicklines%
-           \put(201,303){\line(1,0){100}}%    % single bond at 2
-           }%
-    \else\if\@tmpc d%(d) down --- (A) alpha
-      \yl@xdiff=-7\relax
-      \yl@ydiff=38\relax
-            \putratom{268}{420}{\@memberb}%    % right type
-       \@ifundefined{dottedline}{%
-           \put(201,358){\line(3,5){60}}%     % single bond at 2
-           }{{\thicklines%
-              \dottedline{20}(201,358)(261,458)}}%
-    \else\if\@tmpc b%(b) beta
-      \yl@xdiff=-7\relax
-      \yl@ydiff=38\relax
-           \putratom{268}{420}{\@memberb}%    % right type
-           \put(201,358){\line(3,5){60}}%     % single bond at 2
-    \else\if\@tmpc a%(a) alpha%
-      \yl@xdiff=-17\relax
-      \yl@ydiff=23\relax
-           \putratom{318}{280}{\@memberb}%    % right type
-           \put(201,303){\line(1,0){100}}%    % single bond at 2
-    \fi\fi\fi\fi\fi%
-    \fi\fi%
-   \else\if\@tmpb D%double bond
-      \yl@xdiff=-10\relax
-      \yl@ydiff=18\relax
-           \putratom{311}{363}{\@memberb}%    % right type
-           \put(194,331){\line(5,3){100}}%    % double bond at 2
-           \put(200,305){\line(5,3){100}}%    % double bond at 2
-   \else\if\@tmpb B%beta single bond
-      \yl@xdiff=-10\relax
-      \yl@ydiff=24\relax
-           \putratom{311}{363}{\@memberb}%    % right type
-           {%
-           \thicklines%
-           \put(201,327){\line(5,3){100}}%    % single bond at 2
-           }%
-   \else\if\@tmpb A%alpha single bond
-      \yl@xdiff=-10\relax
-      \yl@ydiff=24\relax
-           \putratom{311}{363}{\@memberb}%    % right type
-       \@ifundefined{dottedline}{%
-           \put(201,327){\line(5,3){100}}%    % single bond at 2
-           }{{\thicklines%
-              \dottedline{20}(201,327)(301,387)}}%
-   \else\if\@tmpb F%fused bond
-     {\let\@tmpb=\@tmpc\@clipfusetrue
-      \put(171,303){\setatombonda}%
-     }%
-   \else\if\@tmpb G%fused bond
-     {\let\@tmpb=\@tmpc\@clipfusetrue
-      \put(171,303){\setatombonde}%
-     }%
-   \else%
-      \yl@xdiff=-10\relax
-      \yl@ydiff=24\relax
-           \putratom{311}{363}{\@memberb}%    % right type
-           \put(201,327){\line(5,3){100}}%    % single bond at 2
-   \fi\fi\fi\fi%
-   \fi\fi%
- \else% %no clipping
-   \if\@tmpb S%single bond
-    \ifx\@tmpc\empty%
-      \yl@xdiff=-10\relax
-      \yl@ydiff=12\relax
-           \putratom{301}{363}{\@memberb}%    % right type
-           \put(171,303){\line(5,3){120}}%    % single bond at 2
-    \else\if\@tmpc B%(B) beta
-      \yl@xdiff=-15\relax
-      \yl@ydiff=13\relax
-           \putratom{258}{410}{\@memberb}%    % right type
-           {%
-           \thicklines%
-           \put(171,303){\line(3,5){72}}%     % single bond at 2
-           }%
-    \else\if\@tmpc A%(A) alpha
-      \yl@xdiff=-7\relax
-      \yl@ydiff=23\relax
-           \putratom{318}{280}{\@memberb}%    % right type
-       \@ifundefined{dottedline}{%
-           \put(171,303){\line(1,0){140}}%    % single bond at 2
-           }{{\thicklines%
-              \dottedline{20}(171,303)(311,303)}}%
-    \else\if\@tmpc u%(u) up --- (B) beta
-      \yl@xdiff=-7\relax
-      \yl@ydiff=23\relax
-           \putratom{318}{280}{\@memberb}%    % right type
-           {%
-           \thicklines%
-           \put(171,303){\line(1,0){140}}%     % single bond at 2
-           }%
-    \else\if\@tmpc d%(d) down --- (A) alpha
-      \yl@xdiff=-15\relax
-      \yl@ydiff=13\relax
-           \putratom{258}{410}{\@memberb}%    % right type
-       \@ifundefined{dottedline}{%
-           \put(171,303){\line(3,5){72}}%     % single bond at 2
-           }{{\thicklines%
-              \dottedline{20}(171,303)(243,423)}}%
-    \else\if\@tmpc b%(b) beta
-      \yl@xdiff=-15\relax
-      \yl@ydiff=13\relax
-           \putratom{258}{410}{\@memberb}%    % right type
-           \put(171,303){\line(3,5){72}}%     % single bond at 2
-    \else\if\@tmpc a%(a) alpha
-      \yl@xdiff=-7\relax
-      \yl@ydiff=23\relax
-           \putratom{318}{280}{\@memberb}%    % right type
-           \put(171,303){\line(1,0){140}}%    % single bond at 2
-    \fi\fi\fi\fi\fi%
-    \fi\fi%
-   \else\if\@tmpb D%double bond
-      \yl@xdiff=-10\relax
-      \yl@ydiff=6\relax
-           \putratom{301}{363}{\@memberb}%    % right type
-           \put(168,310){\line(5,3){120}}%    % double bond at 2
-           \put(174,284){\line(5,3){120}}%    % double bond at 2
-   \else\if\@tmpb B%beta single bond
-      \yl@xdiff=-10\relax
-      \yl@ydiff=12\relax
-           \putratom{301}{363}{\@memberb}%    % right type
-           {%
-           \thicklines%
-           \put(171,303){\line(5,3){120}}%    % single bond at 2
-           }%
-   \else\if\@tmpb A%alpha single bond
-      \yl@xdiff=-10\relax
-      \yl@ydiff=12\relax
-           \putratom{301}{363}{\@memberb}%    % right type
-       \@ifundefined{dottedline}{%
-           \put(171,303){\line(5,3){120}}%    % single bond at 2
-           }{{\thicklines%
-              \dottedline{20}(171,303)(291,375)}}%
-   \else\if\@tmpb F%fused bond
-     {\let\@tmpb=\@tmpc\@clipfusefalse
-      \put(171,303){\setatombonda}%
-     }%
-   \else\if\@tmpb G%fused bond
-     {\let\@tmpb=\@tmpc\@clipfusefalse
-      \put(171,303){\setatombonde}%
-     }%
-   \else%
-      \yl@xdiff=-10\relax
-      \yl@ydiff=12\relax
-           \putratom{301}{363}{\@memberb}%    % right type
-           \put(171,303){\line(5,3){120}}%    % single bond at 2
-   \fi\fi\fi\fi%
-   \fi\fi
- \fi}% end of \@substb
-\def\@substc{%
- \if@cclip %clipping
-   \if\@tmpb S%single bond
-    \ifx\@tmpc\empty%
-      \yl@xdiff=-10\relax
-      \yl@ydiff=46\relax
-           \putratom{311}{-27}{\@memberb}%    % right type
-           \put(201,79){\line(5,-3){110}}%    % single bond at 3
-    \else\if\@tmpc B%(B) beta
-      \yl@xdiff=-7\relax
-      \yl@ydiff=28\relax
-           \putratom{268}{-80}{\@memberb}%    % right type
-           {%
-           \thicklines%
-           \put(201,48){\line(3,-5){60}}%     % single bond at 3
-           }%
-    \else\if\@tmpc A%(A) alpha
-      \yl@xdiff=-17\relax
-      \yl@ydiff=29\relax
-           \putratom{318}{74}{\@memberb}%     % right type
-       \@ifundefined{dottedline}{%
-           \put(201,103){\line(1,0){100}}%    % single bond at 3
-           }{{\thicklines%
-              \dottedline{20}(201,103)(301,103)}}%
-    \else\if\@tmpc u%(u) up --- (B) beta
-      \yl@xdiff=-17\relax
-      \yl@ydiff=29\relax
-           \putratom{318}{74}{\@memberb}%     % right type
-           {%
-           \thicklines%
-           \put(201,103){\line(1,0){100}}%    % single bond at 3
-           }%
-    \else\if\@tmpc d%(d) down --- (A) alpha
-      \yl@xdiff=-7\relax
-      \yl@ydiff=28\relax
-           \putratom{268}{-80}{\@memberb}%    % right type
-       \@ifundefined{dottedline}{%
-           \put(201,48){\line(3,-5){60}}%     % single bond at 3
-           }{{\thicklines%
-              \dottedline{20}(201,48)(261,-52)}}%
-    \else\if\@tmpc b%(b) beta
-      \yl@xdiff=-7\relax
-      \yl@ydiff=28\relax
-           \putratom{268}{-80}{\@memberb}%    % right type
-           \put(201,48){\line(3,-5){60}}%     % single bond at 3
-    \else\if\@tmpc a%(a) alpha
-      \yl@xdiff=-17\relax
-      \yl@ydiff=29\relax
-           \putratom{318}{74}{\@memberb}%     % right type
-           \put(201,103){\line(1,0){100}}%    % single bond at 3
-    \fi\fi\fi\fi\fi%
-    \fi\fi
-   \else\if\@tmpb D%double bond
-      \yl@xdiff=-10\relax
-      \yl@ydiff=52\relax
-           \putratom{311}{-27}{\@memberb}%    % right type
-           \put(194,76){\line(5,-3){100}}%    % double bond at 3
-           \put(200,101){\line(5,-3){100}}%   % double bond at 3
-   \else\if\@tmpb B%beta single bond
-      \yl@xdiff=-10\relax
-      \yl@ydiff=46\relax
-           \putratom{311}{-27}{\@memberb}%    % right type
-           {%
-           \thicklines%
-           \put(201,79){\line(5,-3){100}}%    % single bond at 3
-           }%
-   \else\if\@tmpb A%alpha single bond
-      \yl@xdiff=-10\relax
-      \yl@ydiff=46\relax
-           \putratom{311}{-27}{\@memberb}%    % right type
-       \@ifundefined{dottedline}{%
-           \put(201,79){\line(5,-3){100}}%    % single bond at 3
-           }{{\thicklines%
-              \dottedline{20}(201,79)(301,19)}}%
-   \else\if\@tmpb F%fused bond
-     {\let\@tmpb=\@tmpc\@clipfusetrue
-      \put(171,103){\setatombondf}%
-     }%
-   \else\if\@tmpb G%fused bond
-     {\let\@tmpb=\@tmpc\@clipfusetrue
-      \put(171,103){\setatombondc}%
-     }%
-   \else%
-      \yl@xdiff=-10\relax
-      \yl@ydiff=46\relax
-           \putratom{311}{-27}{\@memberb}%    % right type
-           \put(201,79){\line(5,-3){100}}%    % single bond at 3
-   \fi\fi\fi\fi%
-   \fi\fi%
- \else%no clipping
-   \if\@tmpb S%single bond
-    \ifx\@tmpc\empty%
-      \yl@xdiff=-10\relax
-      \yl@ydiff=58\relax
-           \putratom{301}{-27}{\@memberb}%    % right type
-           \put(171,103){\line(5,-3){120}}%   % single bond at 3
-    \else\if\@tmpc B%(B) beta
-      \yl@xdiff=-10\relax
-      \yl@ydiff=48\relax
-           \putratom{258}{-70}{\@memberb}%    % right type
-           {%
-           \thicklines%
-           \put(171,103){\line(3,-5){72}}%    % single bond at 3
-           }%
-    \else\if\@tmpc A%(A) alpha
-      \yl@xdiff=-10\relax
-      \yl@ydiff=30\relax
-           \putratom{318}{74}{\@memberb}%     % right type
-       \@ifundefined{dottedline}{%
-           \put(171,103){\line(1,0){140}}%    % single bond at 3
-           }{{\thicklines%
-              \dottedline{20}(171,103)(311,103)}}%
-    \else\if\@tmpc u%(u) up --- (B) beta
-      \yl@xdiff=-10\relax
-      \yl@ydiff=30\relax
-           \putratom{318}{74}{\@memberb}%     % right type
-           {%
-           \thicklines%
-           \put(171,103){\line(1,0){140}}%    % single bond at 3
-           }%
-    \else\if\@tmpc d%(d) down --- (A) alpha
-      \yl@xdiff=-10\relax
-      \yl@ydiff=48\relax
-           \putratom{258}{-70}{\@memberb}%    % right type
-       \@ifundefined{dottedline}{%
-           \put(171,103){\line(3,-5){72}}%    % single bond at 3
-           }{{\thicklines%
-              \dottedline{20}(171,103)(243,-17)}}%
-    \else\if\@tmpc b%(b) beta
-      \yl@xdiff=-10\relax
-      \yl@ydiff=48\relax
-           \putratom{258}{-70}{\@memberb}%    % right type
-           \put(171,103){\line(3,-5){72}}%    % single bond at 3
-    \else\if\@tmpc a%(a) alpha
-      \yl@xdiff=-10\relax
-      \yl@ydiff=30\relax
-           \putratom{318}{74}{\@memberb}%     % right type
-           \put(171,103){\line(1,0){140}}%    % single bond at 3
-    \fi\fi\fi\fi\fi%
-    \fi\fi
-   \else\if\@tmpb D%double bond
-      \yl@xdiff=-10\relax
-      \yl@ydiff=65\relax
-           \putratom{301}{-27}{\@memberb}%    % right type
-           \put(168,96){\line(5,-3){120}}%    % double bond at 3
-           \put(174,121){\line(5,-3){120}}%   % double bond at 3
-   \else\if\@tmpb B%beta single bond
-      \yl@xdiff=-10\relax
-      \yl@ydiff=58\relax
-           \putratom{301}{-27}{\@memberb}%    % right type
-           {%
-           \thicklines%
-           \put(171,103){\line(5,-3){120}}%   % single bond at 3
-           }%
-   \else\if\@tmpb A%alpha single bond
-      \yl@xdiff=-10\relax
-      \yl@ydiff=58\relax
-           \putratom{301}{-27}{\@memberb}%    % right type
-       \@ifundefined{dottedline}{%
-           \put(171,103){\line(5,-3){120}}%   % single bond at 3
-           }{{\thicklines%
-              \dottedline{20}(171,103)(291,31)}}%
-   \else\if\@tmpb F%fused bond
-     {\let\@tmpb=\@tmpc\@clipfusefalse
-      \put(171,103){\setatombondf}%
-     }%
-   \else\if\@tmpb G%fused bond
-     {\let\@tmpb=\@tmpc\@clipfusefalse
-      \put(171,103){\setatombondc}%
-     }%
-   \else%
-      \yl@xdiff=-10\relax
-      \yl@ydiff=58\relax
-           \putratom{301}{-27}{\@memberb}%    % right type
-     \put(171,103){\line(5,-3){120}}%   % single bond at 3
-   \fi\fi\fi\fi%
-   \fi\fi
- \fi
-}% end of \@substc
-\def\@substd{%
-\if@clip %clipping
-    \if\@tmpb S%single bond
-    \ifx\@tmpc\empty%
-      \yl@xdiff=31\relax
-      \yl@ydiff=90\relax
-           \putlratom{-31}{-230}{\@memberb}%  % left or right type
-            \put(0,-30){\line(0,-1){110}}%    % single bond at 4
-    \else\if\@tmpc B%(B) beta
-      \yl@xdiff=-36\relax
-      \yl@ydiff=100\relax
-           \putlatom{-42}{-230}{\@memberb}%   % left type
-           {%
-           \thicklines%
-           \put(-18,-30){\line(-3,-5){60}}%   % single bond at 4
-           }%
-    \else\if\@tmpc A%(A) alpha
-      \yl@xdiff=37\relax
-      \yl@ydiff=100\relax
-           \putratom{41}{-230}{\@memberb}%    % right type
-       \@ifundefined{dottedline}{%
-           \put(18,-30){\line(3,-5){60}}%     % single bond at 4
-           }{{\thicklines%
-              \dottedline{20}(18,-30)(72,-120)}}%
-    \else\if\@tmpc u%(u) up --- (B) beta
-      \yl@xdiff=37\relax
-      \yl@ydiff=100\relax
-           \putratom{41}{-230}{\@memberb}%    % right type
-           {%
-           \thicklines%
-           \put(18,-30){\line(3,-5){60}}%     % single bond at 4
-           }%
-    \else\if\@tmpc d%(d) down --- (A) alpha
-      \yl@xdiff=-36\relax
-      \yl@ydiff=100\relax
-           \putlatom{-42}{-230}{\@memberb}%   % left type
-       \@ifundefined{dottedline}{%
-           \put(-18,-30){\line(-3,-5){60}}%   % single bond at 4
-           }{{\thicklines%
-              \dottedline{20}(-18,-30)(-78,-130)}}%
-    \else\if\@tmpc b%(b) beta
-      \yl@xdiff=-36\relax
-      \yl@ydiff=100\relax
-           \putlatom{-42}{-230}{\@memberb}%   % left type
-           \put(-18,-30){\line(-3,-5){60}}%   % single bond at 4
-    \else\if\@tmpc a%(a) alpha
-      \yl@xdiff=37\relax
-      \yl@ydiff=100\relax
-           \putratom{41}{-230}{\@memberb}%    % right type
-           \put(18,-30){\line(3,-5){60}}%     % single bond at 4
-    \fi\fi\fi\fi\fi%
-    \fi\fi
-   \else\if\@tmpb D%double bond
-      \yl@xdiff=31\relax
-      \yl@ydiff=90\relax
-           \putlratom{-31}{-230}{\@memberb}%  % left or right type
-           \put(-12,-30){\line(0,-1){110}}%   % double bond at 4
-           \put(12,-30){\line(0,-1){110}}%    % double bond at 4
-   \else\if\@tmpb B%beta single bond
-      \yl@xdiff=31\relax
-      \yl@ydiff=90\relax
-           \putlratom{-31}{-230}{\@memberb}%  % left or right type
-           {%
-           \thicklines%
-           \put(0,-30){\line(0,-1){110}}%    % single bond at 4
-           }%
-   \else\if\@tmpb A%alpha single bond
-      \yl@xdiff=31\relax
-      \yl@ydiff=90\relax
-           \putlratom{-31}{-230}{\@memberb}%  % left or right type
-       \@ifundefined{dottedline}{%
-           \put(0,-30){\line(0,-1){110}}%     % single bond at 4
-           }{{\thicklines%
-              \dottedline{20}(0,-30)(0,-140)}}%
-   \else\if\@tmpb F%fused bond
-     {\let\@tmpb=\@tmpc\@clipfusetrue
-      \put(0,0){\setatombonde}%
-     }%
-   \else\if\@tmpb G%fused bond
-     {\let\@tmpb=\@tmpc\@clipfusetrue
-      \put(0,0){\setatombondg}%
-     }%
-   \else%
-      \yl@xdiff=31\relax
-      \yl@ydiff=90\relax
-           \putlratom{-31}{-230}{\@memberb}%  % left or right type
-           \put(0,-30){\line(0,-1){110}}%     % single bond at 4
-   \fi\fi\fi\fi%
-   \fi\fi%
- \else%no clipping
-   \if\@tmpb S%single bond
-    \ifx\@tmpc\empty%
-      \yl@xdiff=31\relax
-      \yl@ydiff=90\relax
-           \putlratom{-31}{-230}{\@memberb}%  % left or right type
-            \put(0,0){\line(0,-1){140}}%      % single bond at 4
-    \else\if\@tmpc B%(B) beta
-      \yl@xdiff=-30\relax
-      \yl@ydiff=110\relax
-           \putlatom{-42}{-230}{\@memberb}%   % left type
-           {%
-           \thicklines%
-           \put(0,0){\line(-3,-5){72}}%       % single bond at 4
-           }%
-    \else\if\@tmpc A%(A) alpha
-      \yl@xdiff=31\relax
-      \yl@ydiff=110\relax
-           \putratom{41}{-230}{\@memberb}%    % right type
-       \@ifundefined{dottedline}{%
-           \put(0,0){\line(3,-5){72}}%        % single bond at 4
-           }{{\thicklines%
-              \dottedline{20}(0,0)(72,-120)}}%
-    \else\if\@tmpc u%(u) up --- (B) beta
-      \yl@xdiff=31\relax
-      \yl@ydiff=110\relax
-           \putratom{41}{-230}{\@memberb}%    % right type
-           {%
-           \thicklines%
-           \put(0,0){\line(3,-5){72}}%        % single bond at 4
-           }%
-    \else\if\@tmpc d%(d) down --- (A) alpha
-      \yl@xdiff=-30\relax
-      \yl@ydiff=110\relax
-           \putlatom{-42}{-230}{\@memberb}%   % left type
-       \@ifundefined{dottedline}{%
-           \put(0,0){\line(-3,-5){72}}%       % single bond at 4
-           }{{\thicklines%
-              \dottedline{20}(0,0)(-72,-120)}}%
-    \else\if\@tmpc b%(b) beta
-      \yl@xdiff=-30\relax
-      \yl@ydiff=110\relax
-           \putlatom{-42}{-230}{\@memberb}%   % left type
-           \put(0,0){\line(-3,-5){72}}%       % single bond at 4
-    \else\if\@tmpc a%(a) alpha
-      \yl@xdiff=31\relax
-      \yl@ydiff=110\relax
-           \putratom{41}{-230}{\@memberb}%    % right type
-           \put(0,0){\line(3,-5){72}}%        % single bond at 4
-    \fi\fi\fi\fi\fi%
-    \fi\fi%
-   \else\if\@tmpb D%double bond
-      \yl@xdiff=31\relax
-      \yl@ydiff=90\relax
-           \putlratom{-31}{-230}{\@memberb}%  % left or right type
-           \put(-12,0){\line(0,-1){140}}%     % double bond at 4
-           \put(12,0){\line(0,-1){140}}%      % double bond at 4
-   \else\if\@tmpb B%beta single bond
-      \yl@xdiff=31\relax
-      \yl@ydiff=90\relax
-           \putlratom{-31}{-230}{\@memberb}%  % left or right type
-           {%
-           \thicklines%
-           \put(0,0){\line(0,-1){140}}%       % single bond at 4
-           }%
-   \else\if\@tmpb A%alpha single bond
-      \yl@xdiff=31\relax
-      \yl@ydiff=90\relax
-           \putlratom{-31}{-230}{\@memberb}%  % left or right type
-       \@ifundefined{dottedline}{%
-           \put(0,0){\line(0,-1){140}}%      % single bond at 4
-           }{{\thicklines%
-              \dottedline{20}(0,0)(0,-140)}}%
-   \else\if\@tmpb F%fused bond
-     {\let\@tmpb=\@tmpc\@clipfusefalse
-      \put(0,0){\setatombonde}%
-     }%
-   \else\if\@tmpb G%fused bond
-     {\let\@tmpb=\@tmpc\@clipfusefalse
-      \put(0,0){\setatombondg}%
-     }%
-   \else%
-      \yl@xdiff=31\relax
-      \yl@ydiff=90\relax
-           \putlratom{-31}{-230}{\@memberb}%  % left or right type
-           \put(0,0){\line(0,-1){140}}%       % single bond at 4
-   \fi\fi\fi\fi%
-   \fi\fi%
- \fi}%end of \@substd
-\def\@subste{%
- \if@eclip%clipping
-   \if\@tmpb S%single bond
-    \ifx\@tmpc\empty%
-      \yl@xdiff=10\relax
-      \yl@ydiff=46\relax
-           \putlatom{-311}{-27}{\@memberb}%   % left type
-           \put(-201,79){\line(-5,-3){110}}%  % single bond at 5
-    \else\if\@tmpc B%(B) beta
-      \yl@xdiff=7\relax
-      \yl@ydiff=38\relax
-           \putlatom{-268}{-80}{\@memberb}%   % left type
-           {%
-           \thicklines%
-           \put(-201,48){\line(-3,-5){60}}%   % single bond at 5
-           }%
-    \else\if\@tmpc A%(A) alpha
-      \yl@xdiff=17\relax
-      \yl@ydiff=29\relax
-           \putlatom{-318}{74}{\@memberb}%    % left type
-       \@ifundefined{dottedline}{%
-           \put(-201,103){\line(-1,0){100}}%  % single bond at 5
-           }{{\thicklines%
-              \dottedline{20}(-201,103)(-301,103)}}%
-    \else\if\@tmpc u% (u) up --- (B) beta
-      \yl@xdiff=17\relax
-      \yl@ydiff=29\relax
-           \putlatom{-318}{74}{\@memberb}%    % left type
-           {%
-           \thicklines%
-           \put(-201,103){\line(-1,0){100}}%  % single bond at 5
-           }%
-    \else\if\@tmpc d% (d) down --- (A) alpha
-      \yl@xdiff=7\relax
-      \yl@ydiff=38\relax
-           \putlatom{-268}{-80}{\@memberb}%   % left type
-       \@ifundefined{dottedline}{%
-           \put(-201,48){\line(-3,-5){60}}%   % single bond at 5
-           }{{\thicklines%
-              \dottedline{20}(-201,48)(-261,-52)}}%
-    \else\if\@tmpc b%(b) beta
-      \yl@xdiff=7\relax
-      \yl@ydiff=38\relax
-           \putlatom{-268}{-80}{\@memberb}%   % left type
-           \put(-201,48){\line(-3,-5){60}}%   % single bond at 5
-    \else\if\@tmpc a%(a) alpha
-      \yl@xdiff=17\relax
-      \yl@ydiff=29\relax
-           \putlatom{-318}{74}{\@memberb}%    % left type
-           \put(-201,103){\line(-1,0){100}}%  % single bond at 5
-    \fi\fi\fi\fi\fi%
-    \fi\fi%
-   \else\if\@tmpb D%double bond
-      \yl@xdiff=10\relax
-      \yl@ydiff=62\relax
-           \putlatom{-311}{-27}{\@memberb}%   % left type
-           \put(-194,76){\line(-5,-3){100}}%  % double bond at 5
-           \put(-200,101){\line(-5,-3){100}}% % double bond at 5
-   \else\if\@tmpb B%beta single bond
-      \yl@xdiff=10\relax
-      \yl@ydiff=46\relax
-           \putlatom{-311}{-27}{\@memberb}%   % left type
-           {%
-           \thicklines%
-           \put(-201,79){\line(-5,-3){100}}%  % single bond at 5
-           }%
-   \else\if\@tmpb A%alpha single bond
-      \yl@xdiff=10\relax
-      \yl@ydiff=46\relax
-           \putlatom{-311}{-27}{\@memberb}%   % left type
-       \@ifundefined{dottedline}{%
-           \put(-201,79){\line(-5,-3){100}}%  % single bond at 5
-           }{{\thicklines%
-              \dottedline{20}(-201,79)(-301,21)}}%
-   \else\if\@tmpb F%fused bond
-     {\let\@tmpb=\@tmpc\@clipfusetrue
-      \put(-171,103){\setatombondc}%
-     }%
-   \else\if\@tmpb G%fused bond
-     {\let\@tmpb=\@tmpc\@clipfusetrue
-      \put(-171,103){\setatombondd}%
-     }%
-   \else%
-      \yl@xdiff=10\relax
-      \yl@ydiff=46\relax
-           \putlatom{-311}{-27}{\@memberb}%   % left type
-           \put(-201,79){\line(-5,-3){100}}%  % single bond at 5
-   \fi\fi\fi\fi%
-   \fi\fi%
-\else%no clipping
-   \if\@tmpb S%single bond
-    \ifx\@tmpc\empty%
-      \yl@xdiff=10\relax
-      \yl@ydiff=56\relax
-           \putlatom{-301}{-27}{\@memberb}%   % left type
-           \put(-171,103){\line(-5,-3){120}}% % single bond at 5
-    \else\if\@tmpc B%(B) beta
-      \yl@xdiff=15\relax
-      \yl@ydiff=63\relax
-           \putlatom{-258}{-70}{\@memberb}%   % left type
-           {%
-           \thicklines%
-           \put(-171,103){\line(-3,-5){72}}%  % single bond at 5
-           }%
-    \else\if\@tmpc A%(A) alpha
-      \yl@xdiff=15\relax
-      \yl@ydiff=29\relax
-           \putlatom{-326}{74}{\@memberb}%    % left type
-       \@ifundefined{dottedline}{%
-           \put(-171,103){\line(-1,0){140}}%  % single bond at 5
-           }{{\thicklines%
-              \dottedline{20}(-171,103)(-311,103)}}%
-    \else\if\@tmpc u%(u) up --- (B) beta
-      \yl@xdiff=15\relax
-      \yl@ydiff=29\relax
-           \putlatom{-326}{74}{\@memberb}%    % left type
-           {%
-           \thicklines%
-           \put(-171,103){\line(-1,0){140}}%  % single bond at 5
-           }%
-    \else\if\@tmpc d%(d) down --- (A) alpha
-      \yl@xdiff=15\relax
-      \yl@ydiff=63\relax
-           \putlatom{-258}{-70}{\@memberb}%   % left type
-       \@ifundefined{dottedline}{%
-           \put(-171,103){\line(-3,-5){72}}%  % single bond at 5
-           }{{\thicklines%
-              \dottedline{20}(-171,103)(-243,-17)}}%
-    \else\if\@tmpc b%(b) beta
-      \yl@xdiff=15\relax
-      \yl@ydiff=63\relax
-           \putlatom{-258}{-70}{\@memberb}%   % left type
-           \put(-171,103){\line(-3,-5){72}}%  % single bond at 5
-    \else\if\@tmpc a%(a) alpha
-      \yl@xdiff=15\relax
-      \yl@ydiff=29\relax
-           \putlatom{-326}{74}{\@memberb}%    % left type
-           \put(-171,103){\line(-1,0){140}}%  % single bond at 5
-    \fi\fi\fi\fi\fi%
-    \fi\fi
-   \else\if\@tmpb D%double bond
-      \yl@xdiff=10\relax
-      \yl@ydiff=62\relax
-           \putlatom{-301}{-27}{\@memberb}%   % left type
-           \put(-168,96){\line(-5,-3){120}}%  % double bond at 5
-           \put(-174,121){\line(-5,-3){120}}% % double bond at 5
-   \else\if\@tmpb B%beta single bond
-      \yl@xdiff=10\relax
-      \yl@ydiff=56\relax
-            \putlatom{-301}{-27}{\@memberb}%  % left type
-           {%
-           \thicklines%
-           \put(-171,103){\line(-5,-3){120}}% % single bond at 5
-           }%
-   \else\if\@tmpb A%alpha single bond
-      \yl@xdiff=-10\relax
-      \yl@ydiff=56\relax
-            \putlatom{-301}{-27}{\@memberb}%  % left type
-       \@ifundefined{dottedline}{%
-           \put(-171,103){\line(-5,-3){120}}% % single bond at 5
-           }{{\thicklines%
-              \dottedline{20}(-171,103)(-311,31)}}%
-   \else\if\@tmpb F%fused bond
-     {\let\@tmpb=\@tmpc\@clipfusefalse
-      \put(-171,103){\setatombondc}%
-     }%
-   \else\if\@tmpb G%fused bond
-     {\let\@tmpb=\@tmpc\@clipfusefalse
-      \put(-171,103){\setatombondd}%
-     }%
-   \else%
-      \yl@xdiff=10\relax
-      \yl@ydiff=56\relax
-            \putlatom{-301}{-27}{\@memberb}%  % left type
-            \put(-171,103){\line(-5,-3){120}}%% single bond at 5
-   \fi\fi\fi\fi%
-   \fi\fi%
- \fi}% end of \@subste
-\def\@substf{%
- \if@fclip %clipping
-   \if\@tmpb S%single bond
-    \ifx\@tmpc\empty%
-      \yl@xdiff=10\relax
-      \yl@ydiff=24\relax
-           \putlatom{-311}{363}{\@memberb}%   % left type
-           \put(-201,327){\line(-5,3){100}}%  % single bond at 6
-    \else\if\@tmpc B%(B) beta
-      \yl@xdiff=8\relax
-      \yl@ydiff=38\relax
-           \putlatom{-268}{420}{\@memberb}%   % left type
-           {%
-           \thicklines%
-           \put(-201,358){\line(-3,5){60}}%   % single bond at 6
-           }%
-    \else\if\@tmpc A%(A) alpha
-      \yl@xdiff=17\relax
-      \yl@ydiff=23\relax
-           \putlatom{-318}{280}{\@memberb}%   % left type
-       \@ifundefined{dottedline}{%
-           \put(-201,303){\line(-1,0){100}}%  % single bond at 6
-           }{{\thicklines%
-              \dottedline{20}(-201,303)(-301,303)}}%
-    \else\if\@tmpc u%(u) up --- (B) beta
-      \yl@xdiff=17\relax
-      \yl@ydiff=23\relax
-           \putlatom{-318}{280}{\@memberb}%   % left type
-           {%
-           \thicklines%
-           \put(-201,303){\line(-1,0){100}}%  % single bond at 6
-           }%
-    \else\if\@tmpc d%(d) down --- (A) alpha
-      \yl@xdiff=8\relax
-      \yl@ydiff=38\relax
-           \putlatom{-268}{420}{\@memberb}%   % left type
-       \@ifundefined{dottedline}{%
-           \put(-201,358){\line(-3,5){60}}%   % single bond at 6
-           }{{\thicklines%
-              \dottedline{20}(-201,358)(-261,458)}}%
-    \else\if\@tmpc b%(b) beta
-      \yl@xdiff=8\relax
-      \yl@ydiff=38\relax
-           \putlatom{-268}{420}{\@memberb}%   % left type
-           \put(-201,358){\line(-3,5){60}}%   % single bond at 6
-    \else\if\@tmpc a%(a) alpha
-      \yl@xdiff=17\relax
-      \yl@ydiff=23\relax
-           \putlatom{-318}{280}{\@memberb}%   % left type
-           \put(-201,303){\line(-1,0){100}}%  % single bond at 6
-    \fi\fi\fi\fi\fi%
-    \fi\fi
-   \else\if\@tmpb D%double bond
-      \yl@xdiff=10\relax
-      \yl@ydiff=6\relax
-           \putlatom{-311}{363}{\@memberb}%   % left type
-           \put(-194,331){\line(-5,3){100}}%  % double bond at 6
-           \put(-200,305){\line(-5,3){100}}%  % double bond at 6
-   \else\if\@tmpb B%beta single bond
-      \yl@xdiff=10\relax
-      \yl@ydiff=24\relax
-           \putlatom{-311}{363}{\@memberb}%   % left type
-           {%
-           \thicklines%
-           \put(-201,327){\line(-5,3){100}}%  % single bond at 6
-           }%
-   \else\if\@tmpb A%alpha single bond
-      \yl@xdiff=10\relax
-      \yl@ydiff=24\relax
-           \putlatom{-311}{363}{\@memberb}%   % left type
-       \@ifundefined{dottedline}{%
-           \put(-201,327){\line(-5,3){100}}%  % single bond at 6
-           }{{\thicklines%
-              \dottedline{20}(-201,327)(-301,387)}}%1998/10/11 by SF
-   \else\if\@tmpb F%fused bond
-     {\let\@tmpb=\@tmpc\@clipfusetrue
-      \put(-171,303){\setatombondg}%
-     }%
-   \else\if\@tmpb G%fused bond
-     {\let\@tmpb=\@tmpc\@clipfusetrue
-      \put(-171,303){\setatombonda}%
-     }%
-   \else%
-      \yl@xdiff=10\relax
-      \yl@ydiff=24\relax
-           \putlatom{-311}{363}{\@memberb}%   % left type
-           \put(-201,327){\line(-5,3){100}}%  % single bond at 6
-   \fi\fi\fi\fi%
-   \fi\fi
-\else%no clipping
-   \if\@tmpb S%single bond
-    \ifx\@tmpc\empty%
-      \yl@xdiff=10\relax
-      \yl@ydiff=12\relax
-           \putlatom{-301}{363}{\@memberb}%   % left type
-           \put(-171,303){\line(-5,3){120}}%  % single bond at 6
-    \else\if\@tmpc B%(B) beta
-      \yl@xdiff=15\relax
-      \yl@ydiff=13\relax
-           \putlatom{-258}{410}{\@memberb}%   % left type
-           {%
-           \thicklines%
-           \put(-171,303){\line(-3,5){72}}%   % single bond at 6
-           }%
-    \else\if\@tmpc A%(A) alpha
-      \yl@xdiff=15\relax
-      \yl@ydiff=23\relax
-           \putlatom{-326}{280}{\@memberb}%   % left type
-       \@ifundefined{dottedline}{%
-           \put(-171,303){\line(-1,0){140}}%  % single bond at 6
-           }{{\thicklines%
-              \dottedline{20}(-171,303)(-311,303)}}%
-    \else\if\@tmpc u%(u) up --- (B) beta
-      \yl@xdiff=15\relax
-      \yl@ydiff=23\relax
-           \putlatom{-326}{280}{\@memberb}%   % left type
-           {%
-           \thicklines%
-           \put(-171,303){\line(-1,0){140}}%  % single bond at 6
-           }%
-    \else\if\@tmpc d%(d) down --- (A) alpha
-      \yl@xdiff=15\relax
-      \yl@ydiff=13\relax
-           \putlatom{-258}{410}{\@memberb}%   % left type
-       \@ifundefined{dottedline}{%
-           \put(-171,303){\line(-3,5){72}}%   % single bond at 6
-           }{{\thicklines%
-              \dottedline{20}(-171,303)(-243,423)}}%
-    \else\if\@tmpc b%(b) beta
-      \yl@xdiff=15\relax
-      \yl@ydiff=13\relax
-           \putlatom{-258}{410}{\@memberb}%   % left type
-           \put(-171,303){\line(-3,5){72}}%   % single bond at 6
-    \else\if\@tmpc a%(a) alpha
-      \yl@xdiff=15\relax
-      \yl@ydiff=23\relax
-           \putlatom{-326}{280}{\@memberb}%   % left type
-           \put(-171,303){\line(-1,0){140}}%  % single bond at 6
-    \fi\fi\fi\fi\fi%
-    \fi\fi%
-   \else\if\@tmpb D%double bond
-      \yl@xdiff=10\relax
-      \yl@ydiff=6\relax
-           \putlatom{-301}{363}{\@memberb}%   % left type
-           \put(-168,310){\line(-5,3){120}}%  % double bond at 6
-           \put(-174,284){\line(-5,3){120}}%  % double bond at 6
-   \else\if\@tmpb B%beta single bond
-      \yl@xdiff=10\relax
-      \yl@ydiff=12\relax
-           \putlatom{-301}{363}{\@memberb}%   % left type
-           {%
-           \thicklines%
-           \put(-171,303){\line(-5,3){120}}%  % single bond at 6
-           }%
-   \else\if\@tmpb A%alpha single bond
-      \yl@xdiff=-10\relax
-      \yl@ydiff=12\relax
-           \putlatom{-301}{363}{\@memberb}%   % left type
-       \@ifundefined{dottedline}{%
-           \put(-171,303){\line(-5,3){120}}%  % single bond at 6
-           }{{\thicklines%
-              \dottedline{20}(-171,303)(-311,375)}}%
-   \else\if\@tmpb F%fused bond
-     {\let\@tmpb=\@tmpc\@clipfusefalse
-      \put(-171,303){\setatombondg}%
-     }%
-   \else\if\@tmpb G%fused bond
-     {\let\@tmpb=\@tmpc\@clipfusefalse
-      \put(-171,303){\setatombonda}%
-     }%
-   \else%
-      \yl@xdiff=10\relax
-      \yl@ydiff=12\relax
-           \putlatom{-301}{363}{\@memberb}%   % left type
-           \put(-171,303){\line(-5,3){120}}%  % single bond at 6
-   \fi\fi\fi\fi%
-   \fi\fi
-\fi}% end of \@substf
-\def\setsixringv#1#2#3#4#5{%
-\@forsemicol\member:=#1\do{%
-\ifx\member\empty\else%
-\expandafter\@m@mb@r\member;\relax%
-\expandafter\threech@r\@membera{}{}%
-\ifx\@memberb\@yl\else
-\ifnum#5 < 0\relax%
-\@tmpaa=-\@tmpa\relax \advance\@tmpaa by#2\relax%
-\else\@tmpaa=\@tmpa\relax \advance\@tmpaa by#2\relax \fi
-\ifnum\@tmpaa >#3\relax%
-\ifnum\@tmpaa <#4\relax%
-\ifcase\@tmpaa%0 omit
- \or\@substa% subst. on 1
- \or\@substb% subst. on 2
- \or\@substc% subst. on 3
- \or\@substd% subst. on 4
- \or\@subste% subst. on 5
- \or\@substf% subst. on 6
-\fi%end of ifcase
-\fi%
-\fi\fi\fi}}%
-\def\ylfusedposition#1#2#3#4#5{%
-\@@ylswfalse%\@reset@ylsw
-\@forsemicol\member:=#1\do{%
-\if@@ylsw\else%
-\ifx\member\empty\else%
-\expandafter\@m@mb@r\member;\relax%
-\expandafter\threech@r\@membera{}{}%
-\ifx\@memberb\@yl\relax\@@ylswtrue\else\@@ylswfalse\fi
-\if@@ylsw
-\ifnum#5<0\relax%
-\@tmpaa=-\@tmpa\relax\advance\@tmpaa by #2\relax%
-\@fused@linktrue
-\else\@tmpaa=\@tmpa\relax\advance\@tmpaa by #2\relax
-\@fused@linkfalse\fi%
-\ifnum\@tmpaa >#3\relax%
-\ifnum\@tmpaa <#4\relax%
-\ifcase\@tmpaa%
- \if\@tmpb F%single bond at F (fused position)
-    \def\@ylii{-171}\def\@yli{-303}\@ylswtrue%\@ylatrue% subst. on 0
- \else\if\@tmpb G%single bond at G (fused position)
-    \def\@ylii{-171}\def\@yli{-103}\@ylswtrue%\@ylatrue% subst. on 0
- \fi\fi%
-\or% subst. on 1  F == (0,406), G == (171,303) for \@fused@linkfalse
-   % subst. on 1  G == (0,406), F == (171,303) for \@fused@linktrue
-\if@fused@link
- \if\@tmpb G%single bond at F (5,-3) fusion
-      \def\@ylii{0}\def\@yli{-406}\@ylswtrue%\@ylatrue% subst. on 1
- \else\if\@tmpb F%single bond at G
-      \def\@ylii{-171}\def\@yli{-303}\@ylswtrue%\@ylatrue% subst. on 1
- \fi\fi%
-\else
- \if\@tmpb F%single bond at F (5,-3) fusion
-      \def\@ylii{0}\def\@yli{-406}\@ylswtrue%\@ylatrue% subst. on 1
- \else\if\@tmpb G%single bond at G
-      \def\@ylii{-171}\def\@yli{-303}\@ylswtrue%\@ylatrue% subst. on 1
- \fi\fi%
-\fi
-\or% subst. on 2  F == (0,406), G == (-171,303) for \@fused@linkfalse
-   % subst. on 2  G == (0,406), F == (-171,303) for \@fused@linktrue
-\if@fused@link
- \if\@tmpb G%single bond at (-5,-3) fusion
-      \def\@ylii{0}\def\@yli{-406}\@ylswtrue%\@ylatrue% subst. on 2
- \else\if\@tmpb F%single bond at G
-      \def\@ylii{171}\def\@yli{-303}\@ylswtrue%\@ylatrue% subst. on 2
- \fi\fi%
-\else
- \if\@tmpb F%single bond at (-5,-3) fusion
-      \def\@ylii{0}\def\@yli{-406}\@ylswtrue%\@ylatrue% subst. on 2
- \else\if\@tmpb G%single bond at G
-      \def\@ylii{171}\def\@yli{-303}\@ylswtrue%\@ylatrue% subst. on 2
- \fi\fi%
-\fi
-\or %3 fused positions   % G == (303,171)  F == (103,171)
- \if\@tmpb G%single bond at G (fused position)
-      \def\@ylii{-303}\def\@yli{-171}\@ylswtrue%\@ylatrue% subst. on 3
- \else\if\@tmpb F%single bond at F (fused position)
-      \def\@ylii{-103}\def\@yli{-171}\@ylswtrue%\@ylatrue% subst. on 3
- \fi\fi%
-\fi%end of ifcase
-\fi\fi\fi\fi\fi}}% end of \ylfusedposition
-\def\GFbonda{%
- \if\@tmpb F%single bond at F (fused position)
-   \GFbonda@a
- \else\if\@tmpb G%single bond at G (fused position)
-   \GFbonda@b
- \fi\fi%
-}%end of GFbonda
-\def\GFbonda@a{%
-   \if\@tmpc B%beta single bond
-      \yl@xdiff=31\relax%171-140
-      \yl@ydiff=-17\relax%460-(303+140)
-           \putlratom{140}{460}{\@memberb}%   % left or right type
-           {%
-           \thicklines%
-           \put(171,303){\line(0,1){140}}%    % single bond at F
-           }%
-   \else\if\@tmpc A%alpha single bond
-      \yl@xdiff=31\relax%171-140
-      \yl@ydiff=-17\relax%460-(303+140)
-           \putlratom{140}{460}{\@memberb}%   % left or right type
-           \@ifundefined{dottedline}{%
-             \put(171,303){\line(0,1){140}}%  % single bond at F
-           }{{\thicklines%
-              \dottedline{20}(171,303)(171,443)}}%
-   \else\if\@tmpc U% unspecified single bond
-      \yl@xdiff=31\relax%171-140
-      \yl@ydiff=-17\relax%460-(303+140)
-           \putlratom{140}{460}{\@memberb}%   % left or right type
-           \put(168,303){$\wr$}% unspecified single bond at F
-           \put(168,353){$\wr$}%
-           \put(168,403){$\wr$}%
-   \else\if\@tmpc S%beta single bond
-      \yl@xdiff=31\relax%171-140
-      \yl@ydiff=-17\relax%460-(303+140)
-           \putlratom{140}{460}{\@memberb}%   % left or right type
-             \put(171,303){\line(0,1){140}}%  % single bond at F
-   \else\ifx\@tmpc\empty%beta single bond
-      \yl@xdiff=31\relax%171-140
-      \yl@ydiff=-17\relax%460-(303+140)
-           \putlratom{140}{460}{\@memberb}%   % left or right type
-             \put(171,303){\line(0,1){140}}%  % single bond at F
-   \fi\fi\fi\fi\fi%
-}%
-\def\GFbonda@b{%
-   \if\@tmpc B%beta single bond
-      \yl@xdiff=31\relax%171-140
-      \yl@ydiff=90\relax%127-(140-103)
-           \putlratom{140}{-127}{\@memberb}%  % left or right type
-           {%
-           \thicklines%
-           \put(171,103){\line(0,-1){140}}%   % single bond at G
-           }%
-   \else\if\@tmpc A%alpha single bond
-      \yl@xdiff=31\relax%171-140
-      \yl@ydiff=90\relax%127-(140-103)
-           \putlratom{140}{-127}{\@memberb}%  % left or right type
-       \@ifundefined{dottedline}{%
-           \put(171,103){\line(0,-1){140}}%   % single bond at G
-           }{{\thicklines%
-              \dottedline{20}(171,103)(171,-37)}}%
-   \else\if\@tmpc U%beta single bond
-      \yl@xdiff=31\relax%171-140
-      \yl@ydiff=90\relax%127-(140-103)
-           \putlratom{140}{-127}{\@memberb}%  % left or right type
-           \put(168,43){$\wr$}% unspecified single bond at G
-           \put(168,-8){$\wr$}%
-           \put(168,-57){$\wr$}%
-   \else\if\@tmpc S%alpha single bond
-      \yl@xdiff=31\relax%171-140
-      \yl@ydiff=90\relax%127-(140-103)
-           \putlratom{140}{-127}{\@memberb}%  % left or right type
-           \put(171,103){\line(0,-1){140}}%   % single bond at G
-   \else\ifx\@tmpc\empty%alpha single bond
-      \yl@xdiff=31\relax%171-140
-      \yl@ydiff=90\relax%127-(140-103)
-           \putlratom{140}{-127}{\@memberb}%  % left or right type
-           \put(171,103){\line(0,-1){140}}%   % single bond at G
-   \fi\fi\fi\fi\fi%
-}%
-\def\GFbondb{%
- \if@fused@link
- \if\@tmpb G%single bond at G (5,-3) fusion
-    \GFbondb@a
- \else\if\@tmpb F%single bond at F
-    \GFbondb@b
- \fi\fi%
- \else
- \if\@tmpb F%single bond at F (5,-3) fusion
-    \GFbondb@a
- \else\if\@tmpb G%single bond at G
-    \GFbondb@b
- \fi\fi%
- \fi
-}% end of \GFbondb
-\def\GFbondb@a{%
-   \if\@tmpc B%beta single bond
-      \yl@xdiff=10\relax%
-      \yl@ydiff=22\relax%
-           \putlatom{-130}{466}{\@memberb}%   % left type
-           {%
-           \thicklines%
-           \put(0,406){\line(-5,3){120}}%     % single bond at F
-           }%
-   \else\if\@tmpc A%alpha single bond
-      \yl@xdiff=10\relax%
-      \yl@ydiff=22\relax%
-           \putlatom{-130}{466}{\@memberb}%   % left type
-       \@ifundefined{dottedline}{%
-           \put(0,406){\line(-5,3){120}}%     % single bond at F
-           }{{\thicklines%
-              \dottedline{20}(0,406)(-120,478)}}%
-   \else\if\@tmpc U%unspecified single bond
-      \yl@xdiff=10\relax%
-      \yl@ydiff=22\relax%
-           \putlatom{-130}{466}{\@memberb}%   % left type
-           \put(0,406){\line(-5,3){120}}%     % single bond at F
-   \else\if\@tmpc S%beta single bond
-      \yl@xdiff=10\relax%
-      \yl@ydiff=22\relax%
-           \putlatom{-130}{466}{\@memberb}%   % left type
-           \put(0,406){\line(-5,3){120}}%     % single bond at F
-   \else\ifx\@tmpc\empty%beta single bond
-      \yl@xdiff=10\relax%
-      \yl@ydiff=22\relax%
-           \putlatom{-130}{466}{\@memberb}%   % left type
-           \put(0,406){\line(-5,3){120}}%     % single bond at F
-   \else\if\@tmpc D%beta single bond (downward)
-      \yl@xdiff=31\relax%
-      \yl@ydiff=90\relax%
-           \putlratom{-31}{176}{\@memberb}%   % left or right type
-           {%
-           \thicklines%
-           \put(0,406){\line(0,-1){140}}%     % single bond at F
-           }%
-   \else\if\@tmpc C%alpha single bond (downward)
-      \yl@xdiff=31\relax%
-      \yl@ydiff=90\relax%
-           \putlratom{-31}{176}{\@memberb}%   % left or right type
-       \@ifundefined{dottedline}{%
-           \put(0,406){\line(0,-1){140}}%     % single bond at F
-           }{{\thicklines%
-              \dottedline{20}(0,406)(0,266)}}%
-   \fi\fi\fi\fi\fi\fi\fi%
-}% end of \GFbondb@a
-\def\GFbondb@b{%
-   \if\@tmpc B%beta single bond
-      \yl@xdiff=-10\relax%
-      \yl@ydiff=58\relax%
-           \putratom{301}{173}{\@memberb}%    % right type
-           {%
-           \thicklines%
-           \put(171,303){\line(5,-3){120}}%   % single bond at G
-           }%
-   \else\if\@tmpc A%alpha single bond
-      \yl@xdiff=-10\relax%
-      \yl@ydiff=58\relax%
-           \putratom{301}{173}{\@memberb}%    % right type
-       \@ifundefined{dottedline}{%
-           \put(171,303){\line(5,-3){120}}%   % single bond at G
-           }{{\thicklines%
-              \dottedline{20}(171,303)(291,231)}}%
-   \else\if\@tmpc U%unspecified single bond
-      \yl@xdiff=-10\relax%
-      \yl@ydiff=58\relax%
-           \putratom{301}{173}{\@memberb}%    % right type
-           \put(171,303){\line(5,-3){120}}%   % single bond at G
-   \else\if\@tmpc S%alpha single bond
-      \yl@xdiff=-10\relax%
-      \yl@ydiff=58\relax%
-           \putratom{301}{173}{\@memberb}%    % right type
-           \put(171,303){\line(5,-3){120}}%   % single bond at G
-   \else\ifx\@tmpc\empty%alpha single bond
-      \yl@xdiff=-10\relax%
-      \yl@ydiff=58\relax%
-           \putratom{301}{173}{\@memberb}%    % right type
-           \put(171,303){\line(5,-3){120}}%   % single bond at G
-   \else\if\@tmpc D%beta single bond (upward)
-      \yl@xdiff=31\relax%
-      \yl@ydiff=-17\relax%
-           \putlratom{140}{460}{\@memberb}%   % left or right type
-           {%
-           \thicklines%
-           \put(171,303){\line(0,1){140}}%    % single bond at G
-           }%
-   \else\if\@tmpc C%alpha single bond (upward)
-      \yl@xdiff=31\relax%
-      \yl@ydiff=-17\relax%
-           \putlratom{140}{460}{\@memberb}%   % left or right type
-           \@ifundefined{dottedline}{%
-             \put(171,303){\line(0,1){140}}%  % single bond at G
-           }{{\thicklines%
-              \dottedline{20}(171,303)(171,443)}}%
-   \fi\fi\fi\fi\fi\fi\fi%
-}% end of \GFbondb@b
-\def\GFbondc{%
-\if@fused@link
- \if\@tmpb G%single bond at (-5,-3) fusion
-      \GFbondc@a
- \else\if\@tmpb F%single bond at F
-      \GFbondc@b
- \fi\fi%
-\else
- \if\@tmpb F%single bond at (-5,-3) fusion
-      \GFbondc@a
- \else\if\@tmpb G%single bond at G
-      \GFbondc@b
- \fi\fi%
-\fi
-}% end of \GFbondc
-  \def\GFbondc@a{%
-   \if\@tmpc B%beta single bond
-      \yl@xdiff=-10\relax%
-      \yl@ydiff=12\relax%
-           \putratom{130}{466}{\@memberb}%    % right type
-           {%
-           \thicklines%
-           \put(0,406){\line(5,3){120}}%      % single bond at F
-           }%
-   \else\if\@tmpc A%alpha single bond
-      \yl@xdiff=-10\relax%
-      \yl@ydiff=12\relax%
-           \putratom{130}{466}{\@memberb}%    % right type
-       \@ifundefined{dottedline}{%
-           \put(0,406){\line(5,3){120}}%      % single bond at F
-           }{{\thicklines%
-              \dottedline{20}(0,406)(120,478)}}%
-   \else\if\@tmpc U%unspecified single bond
-      \yl@xdiff=-10\relax%
-      \yl@ydiff=12\relax%
-           \putratom{130}{466}{\@memberb}%    % right type
-           \put(0,406){\line(5,3){120}}%      % single bond at F
-   \else\if\@tmpc S%beta single bond
-      \yl@xdiff=-10\relax%
-      \yl@ydiff=12\relax%
-           \putratom{130}{466}{\@memberb}%    % right type
-           \put(0,406){\line(5,3){120}}%      % single bond at F
-   \else\ifx\@tmpc\empty%beta single bond
-      \yl@xdiff=-10\relax%
-      \yl@ydiff=12\relax%
-           \putratom{130}{466}{\@memberb}%    % right type
-           \put(0,406){\line(5,3){120}}%      % single bond at F
-   \else\if\@tmpc D%beta single bond (downward)
-      \yl@xdiff=31\relax%
-      \yl@ydiff=90\relax%
-           \putlratom{-31}{176}{\@memberb}%   % left or right type
-           {%
-           \thicklines%
-           \put(0,406){\line(0,-1){140}}%     % single bond at F
-           }%
-   \else\if\@tmpc C%alpha single bond (downward)
-      \yl@xdiff=31\relax%
-      \yl@ydiff=90\relax%
-           \putlratom{-31}{176}{\@memberb}%   % left or right type
-       \@ifundefined{dottedline}{%
-           \put(0,406){\line(0,-1){140}}%     % single bond at F
-           }{{\thicklines%
-              \dottedline{20}(0,406)(0,266)}}%
-   \fi\fi\fi\fi\fi\fi\fi%
-}% end of \GFbondc@a
-\def\GFbondc@b{%
-   \if\@tmpc B%beta single bond
-      \yl@xdiff=10\relax%
-      \yl@ydiff=59\relax%
-            \putlatom{-301}{173}{\@memberb}%  % left type
-           {%
-           \thicklines%
-           \put(-171,303){\line(-5,-3){120}}% % single bond at G
-           }%
-   \else\if\@tmpc A%alpha single bond
-      \yl@xdiff=10\relax%
-      \yl@ydiff=59\relax%
-            \putlatom{-301}{173}{\@memberb}%  % left type
-       \@ifundefined{dottedline}{%
-           \put(-171,303){\line(-5,-3){120}}% % single bond at G
-           }{{\thicklines%
-              \dottedline{20}(-171,303)(-291,231)}}%
-   \else\if\@tmpc U%unspecified single bond
-      \yl@xdiff=10\relax%
-      \yl@ydiff=59\relax%
-            \putlatom{-301}{173}{\@memberb}%  % left type
-            \put(-171,303){\line(-5,-3){120}}%  single bond at G
-   \else\if\@tmpc S%alpha single bond
-      \yl@xdiff=10\relax%
-      \yl@ydiff=59\relax%
-            \putlatom{-301}{173}{\@memberb}%  % left type
-            \put(-171,303){\line(-5,-3){120}}%  single bond at G
-   \else\ifx\@tmpc\empty%alpha single bond
-      \yl@xdiff=10\relax%
-      \yl@ydiff=59\relax%
-            \putlatom{-301}{173}{\@memberb}%  % left type
-            \put(-171,303){\line(-5,-3){120}}%  single bond at G
-   \else\if\@tmpc D%beta single bond (upward)
-      \yl@xdiff=-30\relax%
-      \yl@ydiff=-17\relax%
-           \putlratom{201}{460}{\@memberb}%   % left or right type
-           {%
-           \thicklines%
-           \put(-171,303){\line(0,1){140}}%   % single bond at G
-           }%
-   \else\if\@tmpc C%alpha single bond (upward)
-      \yl@xdiff=-30\relax%
-      \yl@ydiff=-17\relax%
-           \putlratom{201}{460}{\@memberb}%   % left or right type
-           \@ifundefined{dottedline}{%
-             \put(-171,303){\line(0,1){140}}% % single bond at G
-           }{{\thicklines%
-              \dottedline{20}(-171,303)(-171,443)}}%
-   \fi\fi\fi\fi\fi\fi\fi%
-}% end of \GFbondc@b
-\def\GFbondd{%
- \if\@tmpb G%single bond at G (fused position)
-   \if\@tmpc B%beta single bond
-      \yl@xdiff=-17\relax%
-      \yl@ydiff=31\relax%
-           \putlratom{460}{140}{\@memberb}%   % left or right type
-           {%
-           \thicklines%
-           \put(303,171){\line(1,0){140}}%    % single bond at G
-           }%
-   \else\if\@tmpc A%alpha single bond
-      \yl@xdiff=-17\relax%
-      \yl@ydiff=31\relax%
-           \putlratom{460}{140}{\@memberb}%   % left or right type
-           \@ifundefined{dottedline}{%
-              \put(303,171){\line(1,0){140}}% % single bond at G
-           }{{\thicklines%
-              \dottedline{20}(303,171)(443,171)}}%
-   \else\if\@tmpc U% unspecified single bond
-      \yl@xdiff=-17\relax%
-      \yl@ydiff=31\relax%
-           \putlratom{460}{140}{\@memberb}%   % left or right type
-           \put(303,148){$\sim$}% unspecified single bond at G
-           \put(353,148){$\sim$}%
-           \put(403,148){$\sim$}%
-   \else\if\@tmpc S%beta single bond
-      \yl@xdiff=-17\relax%
-      \yl@ydiff=31\relax%
-           \putlratom{460}{140}{\@memberb}%   % left or right type
-           \put(303,171){\line(1,0){140}}%    % single bond at G
-   \else\ifx\@tmpc\empty%beta single bond
-      \yl@xdiff=-17\relax%
-      \yl@ydiff=31\relax%
-           \putlratom{460}{140}{\@memberb}%   % left or right type
-           \put(303,171){\line(1,0){140}}%    % single bond at G
-   \fi\fi\fi\fi\fi%
- \else\if\@tmpb F%single bond at F (fused position)
-   \if\@tmpc B%beta single bond
-      \yl@xdiff=20\relax%
-      \yl@ydiff=31\relax%
-           \putlatom{-57}{140}{\@memberb}%  % left type
-           {%
-           \thicklines%
-           \put(103,171){\line(-1,0){140}}%   % single bond at F
-           }%
-   \else\if\@tmpc A%alpha single bond
-      \yl@xdiff=20\relax%
-      \yl@ydiff=31\relax%
-           \putlatom{-57}{140}{\@memberb}%  % left type
-       \@ifundefined{dottedline}{%
-           \put(103,171){\line(-1,0){140}}%   % single bond at F
-           }{{\thicklines%
-              \dottedline{20}(103,171)(-37,171)}}%
-   \else\if\@tmpc U%beta single bond
-      \yl@xdiff=20\relax%
-      \yl@ydiff=31\relax%
-           \putlatom{-57}{140}{\@memberb}%  % left type
-           \put(40,148){$\sim$}% unspecified single bond at F
-           \put(-13,148){$\sim$}%
-           \put(-62,148){$\sim$}%
-   \else\if\@tmpc S%alpha single bond
-      \yl@xdiff=20\relax%
-      \yl@ydiff=31\relax%
-           \putlatom{-57}{140}{\@memberb}%  % left type
-           \put(103,171){\line(-1,0){140}}%   % single bond at F
-   \else\ifx\@tmpc\empty%alpha single bond
-      \yl@xdiff=20\relax%
-      \yl@ydiff=31\relax%
-           \putlatom{-57}{140}{\@memberb}%  % left type
-           \put(103,171){\line(-1,0){140}}%   % single bond at F
-   \fi\fi\fi\fi\fi%
- \fi\fi%
-}% end of \GFbondd
-\newif\if@fused@link \@fused@linkfalse
-\def\setfusedbond#1#2#3#4#5{%
-\@forsemicol\member:=#1\do{%
-\ifx\member\empty\else%
-\expandafter\@m@mb@r\member;\relax%
-\expandafter\threech@r\@membera{}{}%
-\ifx\@memberb\@yl\else
-\ifnum#5<0\relax%
-\@tmpaa=-\@tmpa\relax\advance\@tmpaa by #2\relax\@fused@linktrue
-\else\@tmpaa=\@tmpa\relax\advance\@tmpaa by #2\relax
-\@fused@linkfalse\fi%
-\ifnum\@tmpaa >#3\relax%
-\ifnum\@tmpaa <#4\relax%
-\ifcase\@tmpaa%
-\GFbonda
-\or% subst. on 1  F == (0,406), G == (171,303)
-\GFbondb
-\or% subst. on 2  F == (0,406), G == (-171,303) for \@fused@linkfalse
-   % subst. on 2  G == (0,406), F == (-171,303) for \@fused@linktrue
-\GFbondc
-\or %3 fused positions   % G == (303,171)  F == (103,171)
-\GFbondd
-\fi%end of ifcase
-\fi\fi\fi\fi}}%
-\newif\if@clipfuse \@clipfusefalse
-\def\setatombond#1#2#3{%
-\@forsemicol\member:=#1\do{%
-\ifx\member\empty\else%
-\expandafter\@m@mb@r\member;\relax%
-\expandafter\threech@r\@membera{}{}%
-\@tmpaa=\@tmpa\relax\advance\@tmpaa by #2\relax
-\ifx\@memberb\@yl\else
-\ifnum\@tmpaa >0\relax%
-\ifnum\@tmpaa <2\relax%
-\ifcase\@tmpaa%
-\or% subst. on 1
- \ifnum#3=1\relax%(upward)
-   \setatombonda
- \else\ifnum#3=4\relax%(right)
-   \setatombondb
- \else\ifnum#3=7\relax%(downward)
-   \setatombondc
- \else\ifnum#3=11\relax%
-   \setatombondd
- \else\ifnum#3=5\relax%
-   \setatombonde
- \else\ifnum#3=3\relax%
-   \setatombondf
- \else\ifnum#3=9\relax%
-   \setatombondg
- \else\ifnum#3=10\relax%(left)
-   \setatombondh
-\fi\fi\fi\fi\fi\fi\fi\fi%
-\fi%end of ifcase
-\fi\fi\fi\fi}}%
-\def\setatombonda{%upward (0,1)
-  \if@clipfuse%
-   \if\@tmpb B%beta single bond
-      \yl@xdiff=31\relax
-      \yl@ydiff=-17\relax
-           {%
-           \thicklines%
-           \put(0,40){\line(0,1){100}}%  % single bond at 1
-           }%
-   \else\if\@tmpb A%alpha single bond
-      \yl@xdiff=31\relax
-      \yl@ydiff=-17\relax
-           \@ifundefined{dottedline}{%
-           \put(0,40){\line(0,1){100}}%  % single bond at 1
-           }{{\thicklines%
-              \dottedline{20}(0,40)(0,140)}}%
-   \else\if\@tmpb U% unspecified single bond
-      \yl@xdiff=31\relax
-      \yl@ydiff=-17\relax
-           \put(-3,30){$\wr$}% unspecified single bond at 1
-           \put(-3,80){$\wr$}%
-   \else\if\@tmpb S%beta single bond
-      \yl@xdiff=31\relax
-      \yl@ydiff=-17\relax
-           \put(0,40){\line(0,1){100}}%  % single bond at 1
-   \else\if\@tmpb D%double bond
-      \yl@xdiff=31\relax
-      \yl@ydiff=-17\relax
-           \put(-10,40){\line(0,1){100}}%  % single bond at 1
-           \put(10,40){\line(0,1){100}}%  % single bond at 1
-   \else\if\@tmpb T%double bond
-      \yl@xdiff=31\relax
-      \yl@ydiff=-17\relax
-           \put(-15,40){\line(0,1){100}}%  % single bond at 1
-           \put(0,40){\line(0,1){100}}%  % single bond at 1
-           \put(15,40){\line(0,1){100}}%  % single bond at 1
-   \else\ifx\@tmpb\empty%beta single bond
-      \yl@xdiff=31\relax
-      \yl@ydiff=-17\relax
-           \put(0,40){\line(0,1){100}}%  % single bond at 1
-   \fi\fi\fi\fi\fi\fi\fi%
-           \putlratom{-31}{157}{\@memberb}%   % left or right type
-  \else%no clip
-   \if\@tmpb B%beta single bond
-      \yl@xdiff=31\relax
-      \yl@ydiff=-17\relax
-           {%
-           \thicklines%
-           \put(0,0){\line(0,1){140}}%  % single bond at 1
-           }%
-   \else\if\@tmpb A%alpha single bond
-      \yl@xdiff=31\relax
-      \yl@ydiff=-17\relax
-           \@ifundefined{dottedline}{%
-           \put(0,0){\line(0,1){140}}%  % single bond at 1
-           }{{\thicklines%
-              \dottedline{20}(0,0)(0,140)}}%
-   \else\if\@tmpb U% unspecified single bond
-      \yl@xdiff=31\relax
-      \yl@ydiff=-17\relax
-           \put(-3,0){$\wr$}% unspecified single bond at 1
-           \put(-3,50){$\wr$}%
-           \put(-3,100){$\wr$}%
-   \else\if\@tmpb S%beta single bond
-      \yl@xdiff=31\relax
-      \yl@ydiff=-17\relax
-           \put(0,0){\line(0,1){140}}%  % single bond at 1
-   \else\if\@tmpb D%beta single bond
-      \yl@xdiff=31\relax
-      \yl@ydiff=-17\relax
-           \put(-10,0){\line(0,1){140}}%  % single bond at 1
-           \put(10,0){\line(0,1){140}}%  % single bond at 1
-   \else\if\@tmpb T%beta single bond
-      \yl@xdiff=31\relax
-      \yl@ydiff=-17\relax
-           \put(-15,0){\line(0,1){140}}%  % single bond at 1
-           \put(0,0){\line(0,1){140}}%  % single bond at 1
-           \put(15,0){\line(0,1){140}}%  % single bond at 1
-   \else\ifx\@tmpb\empty%beta single bond
-      \yl@xdiff=31\relax
-      \yl@ydiff=-17\relax
-           \put(0,0){\line(0,1){140}}%  % single bond at 1
-   \fi\fi\fi\fi\fi\fi\fi%
-           \putlratom{-31}{157}{\@memberb}%   % left or right type
-  \fi%
-}% end of \setatombonda
-\def\setatombondb{%(right) (1,0)
-  \if@clipfuse%
-   \if\@tmpb B%beta single bond
-      \yl@xdiff=-17\relax
-      \yl@ydiff=31\relax
-           {%
-           \thicklines%
-           \put(30,0){\line(1,0){110}}%       % single bond at 1
-           }%
-   \else\if\@tmpb A%alpha single bond
-      \yl@xdiff=-17\relax
-      \yl@ydiff=31\relax
-       \@ifundefined{dottedline}{%
-           \put(30,0){\line(1,0){110}}%       % single bond at 1
-           }{{\thicklines%
-              \dottedline{20}(30,0)(140,0)}}%
-   \else\if\@tmpb U%beta single bond
-      \yl@xdiff=-17\relax
-      \yl@ydiff=31\relax
-           \put(30,0){\line(1,0){110}}%       % single bond at 1
-   \else\if\@tmpb S%alpha single bond
-      \yl@xdiff=-17\relax
-      \yl@ydiff=31\relax
-           \put(40,0){\line(1,0){100}}%       % single bond at 1
-   \else\if\@tmpb D%alpha single bond
-      \yl@xdiff=-17\relax
-      \yl@ydiff=31\relax
-           \put(40,10){\line(1,0){100}}%       % single bond at 1
-           \put(40,-10){\line(1,0){100}}%       % single bond at 1
-   \else\if\@tmpb T%alpha single bond
-      \yl@xdiff=-17\relax
-      \yl@ydiff=31\relax
-           \put(40,15){\line(1,0){100}}%       % single bond at 1
-           \put(40,0){\line(1,0){100}}%       % single bond at 1
-           \put(40,-15){\line(1,0){100}}%       % single bond at 1
-   \else\ifx\@tmpb\empty%alpha single bond
-      \yl@xdiff=-17\relax
-      \yl@ydiff=31\relax
-           \put(40,0){\line(1,0){100}}%       % single bond at 1
-   \fi\fi\fi\fi\fi\fi\fi%
-           \putratom{157}{-31}{\@memberb}%   % right type only
-  \else%
-   \if\@tmpb B%beta single bond
-      \yl@xdiff=-17\relax
-      \yl@ydiff=31\relax
-           {%
-           \thicklines%
-           \put(0,0){\line(1,0){140}}%       % single bond at 1
-           }%
-   \else\if\@tmpb A%alpha single bond
-      \yl@xdiff=-17\relax
-      \yl@ydiff=31\relax
-       \@ifundefined{dottedline}{%
-           \put(0,0){\line(1,0){140}}%       % single bond at 1
-           }{{\thicklines%
-              \dottedline{20}(0,0)(140,0)}}%
-   \else\if\@tmpb U%beta single bond
-      \yl@xdiff=-17\relax
-      \yl@ydiff=31\relax
-           \put(0,0){\line(1,0){140}}%       % single bond at 1
-   \else\if\@tmpb S%alpha single bond
-      \yl@xdiff=-17\relax
-      \yl@ydiff=31\relax
-           \put(0,0){\line(1,0){140}}%       % single bond at 1
-   \else\if\@tmpb D%alpha single bond
-      \yl@xdiff=-17\relax
-      \yl@ydiff=31\relax
-           \put(0,10){\line(1,0){140}}%       % single bond at 1
-           \put(0,-10){\line(1,0){140}}%       % single bond at 1
-   \else\if\@tmpb T%alpha single bond
-      \yl@xdiff=-17\relax
-      \yl@ydiff=31\relax
-           \put(0,-15){\line(1,0){140}}%       % single bond at 1
-           \put(0,0){\line(1,0){140}}%       % single bond at 1
-           \put(0,15){\line(1,0){140}}%       % single bond at 1
-   \else\ifx\@tmpb\empty%alpha single bond
-      \yl@xdiff=-17\relax
-      \yl@ydiff=31\relax
-           \put(0,0){\line(1,0){140}}%       % single bond at 1
-   \fi\fi\fi\fi\fi\fi\fi%
-           \putratom{157}{-31}{\@memberb}%   % right type only
-  \fi%
-}% end of \setatombondb
-\def\setatombondc{%(downward) (0,-1)
-  \if@clipfuse%
-   \if\@tmpb B%beta single bond
-      \yl@xdiff=31\relax
-      \yl@ydiff=90\relax
-           {%
-           \thicklines%
-           \put(0,-40){\line(0,-1){100}}%    % single bond at 1
-           }%
-   \else\if\@tmpb A%alpha single bond
-      \yl@xdiff=31\relax
-      \yl@ydiff=90\relax
-       \@ifundefined{dottedline}{%
-           \put(0,-40){\line(0,-1){100}}%    % single bond at 1
-           }{{\thicklines%
-              \dottedline{20}(0,-40)(0,-140)}}%
-   \else\if\@tmpb U%beta single bond
-      \yl@xdiff=31\relax
-      \yl@ydiff=90\relax
-           \put(-3,-90){$\wr$}% unspecified single bond at 1
-           \put(-3,-140){$\wr$}%
-   \else\if\@tmpb S%alpha single bond
-      \yl@xdiff=31\relax
-      \yl@ydiff=90\relax
-           \put(0,-40){\line(0,-1){100}}%    % single bond at 1
-   \else\if\@tmpb D%alpha single bond
-      \yl@xdiff=31\relax
-      \yl@ydiff=90\relax
-           \put(10,-40){\line(0,-1){100}}%    % single bond at 1
-           \put(-10,-40){\line(0,-1){100}}%    % single bond at 1
-   \else\if\@tmpb T%alpha single bond
-      \yl@xdiff=31\relax
-      \yl@ydiff=90\relax
-           \put(15,-40){\line(0,-1){100}}%    % single bond at 1
-           \put(0,-40){\line(0,-1){100}}%    % single bond at 1
-           \put(-15,-40){\line(0,-1){100}}%    % single bond at 1
-   \else\ifx\@tmpb\empty%alpha single bond
-      \yl@xdiff=31\relax
-      \yl@ydiff=90\relax
-           \put(0,-40){\line(0,-1){100}}%    % single bond at 1
-   \fi\fi\fi\fi\fi\fi\fi%
-       \putlratom{-31}{-230}{\@memberb}% % left or right type
-  \else%no clipping
-   \if\@tmpb B%beta single bond
-      \yl@xdiff=31\relax
-      \yl@ydiff=90\relax
-           {%
-           \thicklines%
-           \put(0,0){\line(0,-1){140}}%      % single bond at 1
-           }%
-   \else\if\@tmpb A%alpha single bond
-      \yl@xdiff=31\relax
-      \yl@ydiff=90\relax
-       \@ifundefined{dottedline}{%
-           \put(0,0){\line(0,-1){140}}%      % single bond at 1
-           }{{\thicklines%
-              \dottedline{20}(0,0)(0,-140)}}%
-   \else\if\@tmpb U%beta single bond
-      \yl@xdiff=31\relax
-      \yl@ydiff=90\relax
-           \put(-3,-60){$\wr$}% unspecified single bond at 1
-           \put(-3,-110){$\wr$}%
-           \put(-3,-160){$\wr$}%
-   \else\if\@tmpb S%alpha single bond
-      \yl@xdiff=31\relax
-      \yl@ydiff=90\relax
-           \put(0,0){\line(0,-1){140}}%      % single bond at 1
-   \else\if\@tmpb D%alpha single bond
-      \yl@xdiff=31\relax
-      \yl@ydiff=90\relax
-           \put(10,0){\line(0,-1){140}}%      % single bond at 1
-           \put(-10,0){\line(0,-1){140}}%      % single bond at 1
-   \else\if\@tmpb T%alpha single bond
-      \yl@xdiff=31\relax
-      \yl@ydiff=90\relax
-           \put(15,0){\line(0,-1){140}}%      % single bond at 1
-           \put(0,0){\line(0,-1){140}}%      % single bond at 1
-           \put(-15,0){\line(0,-1){140}}%      % single bond at 1
-   \else\ifx\@tmpb\empty%alpha single bond
-      \yl@xdiff=31\relax
-      \yl@ydiff=90\relax
-           \put(0,0){\line(0,-1){140}}%      % single bond at 1
-   \fi\fi\fi\fi\fi\fi\fi%
-       \putlratom{-31}{-230}{\@memberb}% % left or right type
-  \fi%
-}% end of \setatombondc
-\def\setatombondd{% (-5,3)
-  \if@clipfuse%
-      \yl@xdiff=-10\relax
-      \yl@ydiff=18\relax
-   \if\@tmpb B%beta single bond
-           {%
-           \thicklines%
-           \put(-30,18){\line(-5,3){100}}%       % single bond at 1
-           }%
-   \else\if\@tmpb A%alpha single bond
-       \@ifundefined{dottedline}{%
-           \put(-30,18){\line(-5,3){100}}%       % single bond at 1
-           }{{\thicklines%
-              \dottedline{20}(-30,18)(-130,78)}}%
-   \else\if\@tmpb U%unspecified single bond
-           \put(-30,18){\line(-5,3){100}}%       % single bond at 1
-   \else\if\@tmpb S%beta single bond
-           \put(-30,18){\line(-5,3){100}}%       % single bond at 1
-   \else\if\@tmpb D%beta single bond
-           \put(-36,8){\line(-5,3){100}}%       % single bond at 1
-           \put(-24,24){\line(-5,3){100}}%       % single bond at 1
-   \else\if\@tmpb T%beta single bond
-           \put(-39,3){\line(-5,3){100}}%       % single bond at 1
-           \put(-30,18){\line(-5,3){100}}%       % single bond at 1
-           \put(-21,33){\line(-5,3){100}}%       % single bond at 1
-   \else\ifx\@tmpb\empty%beta single bond
-           \put(-30,18){\line(-5,3){100}}%       % single bond at 1
-   \fi\fi\fi\fi\fi\fi\fi%
-           \putlatom{-130}{60}{\@memberb}%   % left type
-  \else%no clipping
-      \yl@xdiff=-10\relax
-      \yl@ydiff=18\relax
-   \if\@tmpb B%beta single bond
-           {%
-           \thicklines%
-           \put(0,0){\line(-5,3){130}}%       % single bond at 1
-           }%
-   \else\if\@tmpb A%alpha single bond
-       \@ifundefined{dottedline}{%
-           \put(0,0){\line(-5,3){130}}%       % single bond at 1
-           }{{\thicklines%
-              \dottedline{20}(0,0)(-130,78)}}%
-   \else\if\@tmpb U%unspecified single bond
-           \put(0,0){\line(-5,3){130}}%       % single bond at 1
-   \else\if\@tmpb S%beta single bond
-           \put(0,0){\line(-5,3){130}}%       % single bond at 1
-   \else\if\@tmpb D%beta single bond
-           \put(6,10){\line(-5,3){130}}%       % single bond at 1
-           \put(-6,-10){\line(-5,3){130}}%       % single bond at 1
-   \else\if\@tmpb T%beta single bond
-           \put(9,15){\line(-5,3){130}}%       % single bond at 1
-           \put(0,0){\line(-5,3){130}}%       % single bond at 1
-           \put(-9,-15){\line(-5,3){130}}%       % single bond at 1
-   \else\ifx\@tmpb\empty%beta single bond
-           \put(0,0){\line(-5,3){130}}%       % single bond at 1
-   \fi\fi\fi\fi\fi\fi\fi%
-           \putlatom{-130}{60}{\@memberb}%   % left type
-  \fi%
-}% end of \setatombondd
-\def\setatombonde{%(5,-3)
-  \if@clipfuse%
-      \yl@xdiff=-10\relax
-      \yl@ydiff=52\relax
-   \if\@tmpb B%beta single bond
-           {%
-           \thicklines%
-           \put(30,-18){\line(5,-3){100}}%      % single bond at 1
-           }%
-   \else\if\@tmpb A%alpha single bond
-       \@ifundefined{dottedline}{%
-           \put(30,-18){\line(5,-3){100}}%      % single bond at 1
-           }{{\thicklines%
-              \dottedline{20}(30,-18)(130,-78)}}%
-   \else\if\@tmpb U%unspecified single bond
-           \put(30,-18){\line(5,-3){100}}%      % single bond at 1
-   \else\if\@tmpb S%alpha single bond
-           \put(30,-18){\line(5,-3){100}}%      % single bond at 1
-   \else\if\@tmpb D%alpha single bond
-           \put(36,-12){\line(5,-3){100}}%      % single bond at 1
-           \put(24,-28){\line(5,-3){100}}%      % single bond at 1
-   \else\if\@tmpb T%alpha single bond
-           \put(39,-3){\line(5,-3){100}}%      % single bond at 1
-           \put(30,-18){\line(5,-3){100}}%      % single bond at 1
-           \put(21,-33){\line(5,-3){100}}%      % single bond at 1
-   \else\ifx\@tmpb\empty%alpha single bond
-           \put(30,-18){\line(5,-3){100}}%      % single bond at 1
-   \fi\fi\fi\fi\fi\fi\fi%
-           \putratom{140}{-130}{\@memberb}%  % right type
-  \else%no clipping
-      \yl@xdiff=-10\relax
-      \yl@ydiff=52\relax
-   \if\@tmpb B%beta single bond
-           {%
-           \thicklines%
-           \put(0,0){\line(5,-3){130}}%      % single bond at 1
-           }%
-   \else\if\@tmpb A%alpha single bond
-       \@ifundefined{dottedline}{%
-           \put(0,0){\line(5,-3){130}}%      % single bond at 1
-           }{{\thicklines%
-              \dottedline{20}(0,0)(130,-78)}}%
-   \else\if\@tmpb U%unspecified single bond
-           \put(0,0){\line(5,-3){130}}%      % single bond at 1
-   \else\if\@tmpb S%alpha single bond
-           \put(0,0){\line(5,-3){130}}%      % single bond at 1
-   \else\if\@tmpb D%alpha single bond
-           \put(6,10){\line(5,-3){130}}%      % single bond at 1
-           \put(-6,-10){\line(5,-3){130}}%      % single bond at 1
-   \else\if\@tmpb T%alpha single bond
-           \put(9,15){\line(5,-3){130}}%      % single bond at 1
-           \put(0,0){\line(5,-3){130}}%      % single bond at 1
-           \put(-9,-15){\line(5,-3){130}}%      % single bond at 1
-   \else\ifx\@tmpb\empty%alpha single bond
-           \put(0,0){\line(5,-3){130}}%      % single bond at 1
-   \fi\fi\fi\fi\fi\fi\fi%
-           \putratom{140}{-130}{\@memberb}%  % right type
-  \fi%
-}% end of \setatombonde
-\def\setatombondf{%% (5,3)
-  \if@clipfuse%
-      \yl@xdiff=-10\relax
-      \yl@ydiff=18\relax
-   \if\@tmpb B%beta single bond
-           {%
-           \thicklines%
-           \put(30,18){\line(5,3){100}}%       % single bond at 1
-           }%
-   \else\if\@tmpb A%alpha single bond
-       \@ifundefined{dottedline}{%
-           \put(30,18){\line(5,3){100}}%       % single bond at 1
-           }{{\thicklines%
-              \dottedline{20}(30,18)(130,78)}}%
-   \else\if\@tmpb U%unspecified single bond
-           \put(30,18){\line(5,3){100}}%       % single bond at 1
-   \else\if\@tmpb S%beta single bond
-           \put(30,18){\line(5,3){100}}%       % single bond at 1
-   \else\if\@tmpb D%beta single bond
-           \put(36,8){\line(5,3){100}}%       % single bond at 1
-           \put(24,24){\line(5,3){100}}%       % single bond at 1
-   \else\if\@tmpb T%beta single bond
-           \put(39,3){\line(5,3){100}}%       % single bond at 1
-           \put(30,18){\line(5,3){100}}%       % single bond at 1
-           \put(21,33){\line(5,3){100}}%       % single bond at 1
-   \else\ifx\@tmpb\empty%beta single bond
-           \put(30,18){\line(5,3){100}}%       % single bond at 1
-   \fi\fi\fi\fi\fi\fi\fi%
-           \putratom{140}{60}{\@memberb}%    % right type
-  \else%no clipping
-      \yl@xdiff=-10\relax
-      \yl@ydiff=18\relax
-   \if\@tmpb B%beta single bond
-           {%
-           \thicklines%
-           \put(0,0){\line(5,3){130}}%       % single bond at 1
-           }%
-   \else\if\@tmpb A%alpha single bond
-       \@ifundefined{dottedline}{%
-           \put(0,0){\line(5,3){130}}%       % single bond at 1
-           }{{\thicklines%
-              \dottedline{20}(0,0)(130,78)}}%
-   \else\if\@tmpb U%unspecified single bond
-           \put(0,0){\line(5,3){130}}%       % single bond at 1
-   \else\if\@tmpb S%beta single bond
-           \put(0,0){\line(5,3){130}}%       % single bond at 1
-   \else\if\@tmpb D%beta single bond
-           \put(6,-10){\line(5,3){130}}%       % single bond at 1
-           \put(-6,10){\line(5,3){130}}%       % single bond at 1
-   \else\if\@tmpb T%beta single bond
-           \put(9,-15){\line(5,3){130}}%       % single bond at 1
-           \put(0,0){\line(5,3){130}}%       % single bond at 1
-           \put(-9,15){\line(5,3){130}}%       % single bond at 1
-   \else\ifx\@tmpb\empty%beta single bond
-           \put(0,0){\line(5,3){130}}%       % single bond at 1
-   \fi\fi\fi\fi\fi\fi\fi%
-           \putratom{140}{60}{\@memberb}%    % right type
-  \fi%
-}% end of \setatombondf
-\def\setatombondg{%% (-5,-3)
-  \if@clipfuse%
-      \yl@xdiff=0\relax
-      \yl@ydiff=52\relax%1999/1/6 by Shinsaku Fujita
-   \if\@tmpb B%beta single bond
-           {%
-           \thicklines%
-           \put(-30,-18){\line(-5,-3){100}}%      % single bond at 1
-           }%
-   \else\if\@tmpb A%alpha single bond
-       \@ifundefined{dottedline}{%
-           \put(-30,-18){\line(-5,-3){100}}%      % single bond at 1
-           }{{\thicklines%
-              \dottedline{20}(-20,-12)(-120,-72)}}%
-   \else\if\@tmpc U%unspecified single bond
-           \put(-30,-18){\line(-5,-3){100}}%      % single bond at 1
-   \else\if\@tmpc S%alpha single bond
-           \put(-30,-18){\line(-5,-3){100}}%      % single bond at 1
-   \else\if\@tmpb D%double bond
-           \put(-36,-12){\line(-5,-3){100}}%      % single bond at 1
-           \put(-24,-28){\line(-5,-3){100}}%      % single bond at 1
-   \else\if\@tmpb T%triple bond
-           \put(-39,-3){\line(-5,-3){100}}%      % single bond at 1
-           \put(-30,-18){\line(-5,-3){100}}%      % single bond at 1
-           \put(-21,-33){\line(-5,-3){100}}%      % single bond at 1
-  \else\ifx\@tmpc\empty%alpha single bond
-           \put(-30,-18){\line(-5,-3){100}}%      % single bond at 1
-   \fi\fi\fi\fi\fi\fi\fi%
-           \putlatom{-130}{-130}{\@memberb}% % left type
-  \else%
-      \yl@xdiff=0\relax
-      \yl@ydiff=52\relax%1999/1/6 by Shinsaku Fujita
-   \if\@tmpb B%beta single bond
-           {%
-           \thicklines%
-           \put(0,0){\line(-5,-3){130}}%      % single bond at 1
-           }%
-   \else\if\@tmpb A%alpha single bond
-       \@ifundefined{dottedline}{%
-           \put(0,0){\line(-5,-3){130}}%      % single bond at 1
-           }{{\thicklines%
-              \dottedline{20}(0,0)(-130,-78)}}%
-   \else\if\@tmpc U%unspecified single bond
-           \put(0,0){\line(-5,-3){130}}%      % single bond at 1
-   \else\if\@tmpc S%alpha single bond
-           \put(0,0){\line(-5,-3){130}}%      % single bond at 1
-   \else\if\@tmpb D%alpha single bond
-           \put(-6,10){\line(-5,-3){130}}%      % single bond at 1
-           \put(6,-10){\line(-5,-3){130}}%      % single bond at 1
-   \else\if\@tmpb T%alpha single bond
-           \put(-9,15){\line(-5,-3){130}}%      % single bond at 1
-           \put(0,0){\line(-5,-3){130}}%      % single bond at 1
-           \put(9,-15){\line(-5,-3){130}}%      % single bond at 1
-   \else\ifx\@tmpc\empty%alpha single bond
-           \put(0,0){\line(-5,-3){130}}%      % single bond at 1
-   \fi\fi\fi\fi\fi\fi\fi%
-           \putlatom{-130}{-130}{\@memberb}% % left type
-  \fi%
-}% end of \setatombondg
-\def\setatombondh{% (-1,0)
-      \yl@xdiff=17\relax
-      \yl@ydiff=31\relax
-  \if@clipfuse%
-   \if\@tmpb B%beta single bond
-           {%
-           \thicklines%
-           \put(-30,0){\line(-1,0){110}}%       % single bond at 1
-           }%
-   \else\if\@tmpb A%alpha single bond
-       \@ifundefined{dottedline}{%
-           \put(-30,0){\line(-1,0){110}}%       % single bond at 1
-           }{{\thicklines%
-              \dottedline{20}(-30,0)(-140,0)}}%
-   \else\if\@tmpb U%beta single bond
-           \put(-30,0){\line(-1,0){110}}%       % single bond at 1
-   \else\if\@tmpb S%alpha single bond
-           \put(-40,0){\line(-1,0){100}}%       % single bond at 1
-   \else\if\@tmpb D%alpha single bond
-           \put(-40,10){\line(-1,0){100}}%       % single bond at 1
-           \put(-40,-10){\line(-1,0){100}}%       % single bond at 1
-   \else\if\@tmpb T%alpha single bond
-           \put(-40,15){\line(-1,0){100}}%       % single bond at 1
-           \put(-40,0){\line(-1,0){100}}%       % single bond at 1
-           \put(-40,-15){\line(-1,0){100}}%       % single bond at 1
-   \else\ifx\@tmpb\empty%alpha single bond
-           \put(-40,0){\line(-1,0){100}}%       % single bond at 1
-   \fi\fi\fi\fi\fi\fi\fi%
-           \putlatom{-157}{-31}{\@memberb}%   % left type only
-  \else%
-   \if\@tmpb B%beta single bond
-           {%
-           \thicklines%
-           \put(0,0){\line(-1,0){140}}%       % single bond at 1
-           }%
-   \else\if\@tmpb A%alpha single bond
-       \@ifundefined{dottedline}{%
-           \put(0,0){\line(-1,0){140}}%       % single bond at 1
-           }{{\thicklines%
-              \dottedline{20}(0,0)(-140,0)}}%
-   \else\if\@tmpb U%beta single bond
-           \put(0,0){\line(-1,0){140}}%       % single bond at 1
-   \else\if\@tmpb S%alpha single bond
-           \put(0,0){\line(-1,0){140}}%       % single bond at 1
-   \else\if\@tmpb D%alpha single bond
-           \put(0,10){\line(-1,0){140}}%       % single bond at 1
-           \put(0,-10){\line(-1,0){140}}%       % single bond at 1
-   \else\if\@tmpb T%alpha single bond
-           \put(0,-15){\line(-1,0){140}}%       % single bond at 1
-           \put(0,0){\line(-1,0){140}}%       % single bond at 1
-           \put(0,15){\line(-1,0){140}}%       % single bond at 1
-   \else\ifx\@tmpb\empty%alpha single bond
-           \put(0,0){\line(-1,0){140}}%       % single bond at 1
-   \fi\fi\fi\fi\fi\fi\fi%
-           \putlatom{-157}{-31}{\@memberb}%   % left type only
-  \fi%
-}% end of \setatombondh
-\def\ylatombondposition#1#2#3{%
-\@@ylswfalse%%%\@reset@ylsw
-\@forsemicol\member:=#1\do{%
-\if@@ylsw\else%
-\ifx\member\empty\else%
-\expandafter\@m@mb@r\member;\relax%
-\expandafter\threech@r\@membera{}{}%
-\ifx\@memberb\@yl\relax\@@ylswtrue\else\@@ylswfalse\fi
-\if@@ylsw
-\@tmpaa=\@tmpa\relax\advance\@tmpaa by #2\relax
-\ifnum\@tmpaa >0\relax%
-\ifnum\@tmpaa <2\relax%
-\ifcase\@tmpaa%
-\or% subst. on 1
- \ifnum#3=1\relax%upward
-  \if@clipfuse%
-   \gdef\@ylii{0}\gdef\@yli{-48}\global\@ylswtrue%
-  \else
-   \gdef\@ylii{0}\gdef\@yli{0}\global\@ylswtrue%
-  \fi
- \else\ifnum#3=4\relax%(right)
-  \if@clipfuse%
-   \gdef\@ylii{-40}\gdef\@yli{0}\global\@ylswtrue%
-  \else
-   \gdef\@ylii{0}\gdef\@yli{0}\global\@ylswtrue%
-  \fi
- \else\ifnum#3=7\relax%(downward)
-  \if@clipfuse%
-   \gdef\@ylii{0}\gdef\@yli{48}\global\@ylswtrue%
-  \else
-   \gdef\@ylii{0}\gdef\@yli{0}\global\@ylswtrue%
-  \fi
- \else\ifnum#3=11\relax%
-  \if@clipfuse%
-   \gdef\@ylii{50}\gdef\@yli{-30}\global\@ylswtrue%
-  \else
-   \gdef\@ylii{0}\gdef\@yli{0}\global\@ylswtrue%
-  \fi
- \else\ifnum#3=5\relax%
-  \if@clipfuse%
-   \gdef\@ylii{-50}\gdef\@yli{30}\global\@ylswtrue%
-  \else
-   \gdef\@ylii{0}\gdef\@yli{0}\global\@ylswtrue%
-  \fi
- \else\ifnum#3=3\relax%
-  \if@clipfuse%
-   \gdef\@ylii{-50}\gdef\@yli{-30}\global\@ylswtrue%
-  \else
-   \gdef\@ylii{0}\gdef\@yli{0}\global\@ylswtrue%
-  \fi
- \else\ifnum#3=9\relax%
-  \if@clipfuse%
-   \gdef\@ylii{50}\gdef\@yli{30}\global\@ylswtrue%
-  \else
-   \gdef\@ylii{0}\gdef\@yli{0}\global\@ylswtrue%
-  \fi
- \else\ifnum#3=10\relax%(left)
-  \if@clipfuse%
-   \gdef\@ylii{40}\gdef\@yli{0}\global\@ylswtrue%
-  \else
-   \gdef\@ylii{0}\gdef\@yli{0}\global\@ylswtrue%
-  \fi
-\fi\fi\fi\fi\fi\fi\fi\fi%
-\fi%end of ifcase
-\fi\fi\fi\fi%
-\fi}}% end of \ylatombondposition
-\def\ylpositionh#1#2#3#4#5{%
-\@@ylswfalse%%%\@reset@ylsw
-\@forsemicol\member:=#1\do{%
-\if@@ylsw\else%
-\ifx\member\empty\else%
-\expandafter\@m@mb@r\member;\relax%
-\expandafter\threech@r\@membera{}{}\relax%
-\ifx\@memberb\@yl\relax\@@ylswtrue\else\@@ylswfalse\fi
-\if@@ylsw
-\ifnum#5<0\relax%
-\@tmpaa=-\@tmpa\relax \advance\@tmpaa by#2\relax%
-\else\@tmpaa=\@tmpa\relax \advance\@tmpaa by#2\relax\fi
-\ifnum\@tmpaa>#3\relax%
-\ifnum\@tmpaa<#4\relax%
-\ifcase\@tmpaa%0 omit
- \or\ifx\aaa\empty
-      \gdef\@ylii{0}\gdef\@yli{0}\global\@ylswtrue%\@ylatrue% subst. on 1
-    \else
-      \gdef\@ylii{30}\gdef\@yli{0}\global\@ylswtrue%\@ylatrue% subst. on 1
-    \fi
- \or\ifx\bbb\empty
-      \gdef\@ylii{-103}\gdef\@yli{-171}\global\@ylswtrue%\@ylbtrue% subst. on 2
-     \else
-      \gdef\@ylii{-73}\gdef\@yli{-223}\global\@ylswtrue%\@ylbtrue% subst. on 2
-     \fi
- \or \ifx\ccc\empty
-      \gdef\@ylii{-303}\gdef\@yli{-171}\global\@ylswtrue%\@ylctrue% subst. on 3
-     \else
-      \gdef\@ylii{-333}\gdef\@yli{-223}\global\@ylswtrue%\@ylctrue% subst. on 3
-     \fi
- \or\ifx\ddd\empty
-       \gdef\@ylii{-406}\gdef\@yli{0}\global\@ylswtrue%\@yldtrue% subst. on 4
-     \else
-       \gdef\@ylii{-436}\gdef\@yli{0}\global\@ylswtrue%\@yldtrue% subst. on 4
-     \fi
- \or\ifx\eee\empty
-       \gdef\@ylii{-303}\gdef\@yli{171}\global\@ylswtrue%\@yletrue% subst. on 5
-      \else
-       \gdef\@ylii{-333}\gdef\@yli{223}\global\@ylswtrue%\@yletrue% subst. on 5
-      \fi
- \or \ifx\fff\empty
-      \gdef\@ylii{-103}\gdef\@yli{171}\global\@ylswtrue%\@ylftrue% subst. on 6
-     \else
-      \gdef\@ylii{-73}\gdef\@yli{223}\global\@ylswtrue%\@ylftrue% subst. on 6
-     \fi
-\fi%end of ifcase
-\fi\fi\fi\fi\fi}}%
-\def\@hsubsta{%
-\if@aclip %clipping
-   \if\@tmpb S%single bond
-    \ifx\@tmpc\empty%
-      \yl@xdiff=17\relax
-      \yl@ydiff=31\relax
-           \putlatom{-157}{-31}{\@memberb}%    % left type only
-           \put(-30,0){\line(-1,0){110}}%      % single bond at 1
-    \else\if\@tmpc B%(B) beta
-      \yl@xdiff=27\relax
-      \yl@ydiff=36\relax
-           \putlatom{-157}{42}{\@memberb}%     % left type
-           {%
-           \thicklines%
-           \put(-30,18){\line(-5,3){100}}%     % single bond at 1
-           }%
-    \else\if\@tmpc A%(A) alpha
-      \yl@xdiff=37\relax
-      \yl@ydiff=28\relax
-           \putlatom{-157}{-100}{\@memberb}%   % left type
-       \@ifundefined{dottedline}{%
-           \put(-30,-18){\line(-5,-3){100}}%    % single bond at 1
-           }{{\thicklines%
-              \dottedline{20}(-30,-18)(-120,-72)}}%
-    \else\if\@tmpc u%(u) up --- (B) beta
-      \yl@xdiff=37\relax
-      \yl@ydiff=28\relax
-           \putlatom{-157}{-100}{\@memberb}%   % left type
-           {%
-           \thicklines%
-           \put(-30,-18){\line(-5,-3){100}}%    % single bond at 1
-           }%
-    \else\if\@tmpc d%(d) down --- (A) alpha
-      \yl@xdiff=27\relax
-      \yl@ydiff=36\relax
-           \putlatom{-157}{42}{\@memberb}%     % left type
-       \@ifundefined{dottedline}{%
-           \put(-30,18){\line(-5,3){100}}%     % single bond at 1
-           }{{\thicklines%
-              \dottedline{20}(-30,18)(-130,78)}}%
-    \else\if\@tmpc b%(b) beta
-      \yl@xdiff=27\relax
-      \yl@ydiff=36\relax
-           \putlatom{-157}{42}{\@memberb}%    % left type
-           \put(-30,18){\line(-5,3){100}}%     % single bond at 1
-    \else\if\@tmpc a%(a) alpha
-      \yl@xdiff=27\relax
-      \yl@ydiff=28\relax
-           \putlatom{-157}{-100}{\@memberb}%   % left type
-           \put(-30,-18){\line(-5,-3){100}}%   % single bond at 1
-    \fi\fi\fi\fi\fi
-    \fi\fi
-   \else\if\@tmpb D%double bond
-      \yl@xdiff=17\relax
-      \yl@ydiff=31\relax
-           \putlatom{-157}{-31}{\@memberb}%    % left type only
-           \put(-30,-12){\line(-1,0){110}}%    % double bond at 1
-           \put(-30,12){\line(-1,0){110}}%     % double bond at 1
-   \else\if\@tmpb B%beta single bond
-      \yl@xdiff=17\relax
-      \yl@ydiff=31\relax
-           \putlatom{-157}{-31}{\@memberb}%    % left type only
-           {%
-           \thicklines%
-           \put(-30,0){\line(-1,0){110}}%      % single bond at 1
-           }%
-   \else\if\@tmpb A%alpha single bond
-      \yl@xdiff=17\relax
-      \yl@ydiff=31\relax
-           \putlatom{-157}{-31}{\@memberb}%    % left type only
-           \@ifundefined{dottedline}{%
-           \put(-30,0){\line(-1,0){110}}%      % single bond at 1
-           }{{\thicklines%
-              \dottedline{20}(-30,0)(-140,0)}}%
-   \else\if\@tmpb F%fused bond
-     {\let\@tmpb=\@tmpc\@clipfusetrue
-      \put(0,0){\setatombondG}%
-     }%
-   \else\if\@tmpb G%fused bond
-     {\let\@tmpb=\@tmpc\@clipfusetrue
-      \put(0,0){\setatombondD}%
-     }%
-   \else%
-      \yl@xdiff=17\relax
-      \yl@ydiff=31\relax
-           \putlatom{-157}{-31}{\@memberb}%    % left type only
-           \put(-40,0){\line(-1,0){100}}%      % single bond at 1
-   \fi\fi\fi\fi
-   \fi\fi%
-\else%% no clipping
-   \if\@tmpb S%single bond
-    \ifx\@tmpc\empty%
-      \yl@xdiff=17\relax
-      \yl@ydiff=31\relax
-           \putlatom{-157}{-31}{\@memberb}%    % left type only
-           \put(0,0){\line(-1,0){140}}%        % single bond at 1
-    \else\if\@tmpc B%(B) beta
-      \yl@xdiff=37\relax
-      \yl@ydiff=30\relax
-           \putlatom{-157}{42}{\@memberb}%     % left type
-           {%
-           \thicklines%
-           \put(0,0){\line(-5,3){120}}%        % single bond at 1
-           }%
-    \else\if\@tmpc A%(A) alpha
-      \yl@xdiff=37\relax
-      \yl@ydiff=28\relax
-           \putlatom{-157}{-100}{\@memberb}%   % left type
-       \@ifundefined{dottedline}{%
-           \put(0,0){\line(-5,-3){120}}%       % single bond at 1
-           }{{\thicklines%
-              \dottedline{20}(0,0)(-120,-72)}}%
-    \else\if\@tmpc u%(u) up --- (B) beta
-      \yl@xdiff=37\relax
-      \yl@ydiff=28\relax
-           \putlatom{-157}{-100}{\@memberb}%   % left type
-           {%
-           \thicklines%
-           \put(0,0){\line(-5,-3){120}}%       % single bond at 1
-           }%
-    \else\if\@tmpc d%(d) down --- (A) alpha
-      \yl@xdiff=37\relax
-      \yl@ydiff=30\relax
-           \putlatom{-157}{42}{\@memberb}%     % left type
-       \@ifundefined{dottedline}{%
-           \put(0,0){\line(-5,3){120}}%        % single bond at 1
-           }{{\thicklines%
-              \dottedline{20}(0,0)(-120,72)}}%
-    \else\if\@tmpc b%(b) beta
-      \yl@xdiff=37\relax
-      \yl@ydiff=30\relax
-           \putlatom{-157}{42}{\@memberb}%    % left type
-           \put(0,0){\line(-5,3){120}}%        % single bond at 1
-    \else\if\@tmpc a%(a) alpha
-      \yl@xdiff=37\relax
-      \yl@ydiff=28\relax
-           \putlatom{-157}{-100}{\@memberb}%   % left type
-           \put(0,0){\line(-5,-3){120}}%       % single bond at 1
-    \fi\fi\fi\fi\fi
-    \fi\fi
-   \else\if\@tmpb D%double bond
-      \yl@xdiff=17\relax
-      \yl@ydiff=31\relax
-           \putlatom{-157}{-31}{\@memberb}%   % left type only
-           \put(0,-12){\line(-1,0){140}}%     % double bond at 1
-           \put(0,12){\line(-1,0){140}}%      % double bond at 1
-   \else\if\@tmpb B%beta single bond
-      \yl@xdiff=17\relax
-      \yl@ydiff=31\relax
-           \putlatom{-157}{-31}{\@memberb}%   % left type only
-           {%
-           \thicklines%
-           \put(0,0){\line(-1,0){140}}%       % single bond at 1
-           }%
-   \else\if\@tmpb A%alpha single bond
-      \yl@xdiff=17\relax
-      \yl@ydiff=31\relax
-           \putlatom{-157}{-31}{\@memberb}%   % left type only
-           \@ifundefined{dottedline}{%
-           \put(0,0){\line(-1,0){140}}%       % single bond at 1
-           }{{\thicklines%
-              \dottedline{20}(0,0)(-140,0)}}%
-   \else\if\@tmpb F%fused bond
-     {\let\@tmpb=\@tmpc\@clipfusefalse
-      \put(0,0){\setatombondG}%
-     }%
-   \else\if\@tmpb G%fused bond
-     {\let\@tmpb=\@tmpc\@clipfusefalse
-      \put(0,0){\setatombondD}%
-     }%
-   \else%
-      \yl@xdiff=17\relax
-      \yl@ydiff=31\relax
-           \putlatom{-157}{-31}{\@memberb}%   % left type only
-           \put(0,0){\line(-1,0){140}}%       % single bond at 1
-   \fi\fi\fi\fi%
-   \fi\fi
- \fi}%end of \@hsubsta
-\def\@hsubstb{%
- \if@bclip %clipping
-   \if\@tmpb S%single bond
-    \ifx\@tmpc\empty%
-      \yl@xdiff=43\relax
-      \yl@ydiff=5\relax
-           \putlratom{-27}{331}{\@memberb}%
-           \put(79,221){\line(-3,5){63}}% % single bond at 2 (62=>63)
-    \else\if\@tmpc B%(B) beta
-      \yl@xdiff=0\relax
-      \yl@ydiff=21\relax
-           \putlatom{-41}{240}{\@memberb}%     % left type
-           {%
-           \thicklines%
-           \put(59,201){\line(-5,3){100}}%     % single bond at 2
-           }%
-    \else\if\@tmpc A%(A) alpha
-      \yl@xdiff=20\relax
-      \yl@ydiff=-10\relax
-           \putratom{83}{331}{\@memberb}%      % right type
-       \@ifundefined{dottedline}{%
-           \put(103,221){\line(0,1){100}}%     % single bond at 2
-           }{{\thicklines%
-              \dottedline{20}(103,221)(103,321)}}%1998/10/11 by SF
-    \else\if\@tmpc u%(u) up --- (B) beta
-      \yl@xdiff=20\relax
-      \yl@ydiff=-10\relax
-           \putratom{83}{331}{\@memberb}%      % right type
-           {%
-           \thicklines%
-           \put(103,221){\line(0,1){100}}%     % single bond at 2
-           }%
-    \else\if\@tmpc d%(d) down --- (A) alpha
-      \yl@xdiff=0\relax
-      \yl@ydiff=21\relax
-           \putlatom{-41}{240}{\@memberb}%     % left type
-       \@ifundefined{dottedline}{%
-           \put(59,201){\line(-5,3){100}}%     % single bond at 2
-           }{{\thicklines%
-              \dottedline{20}(59,201)(-41,261)}}%1998/10/11 by SF
-    \else\if\@tmpc b%(b) beta
-      \yl@xdiff=0\relax
-      \yl@ydiff=21\relax
-           \putlatom{-41}{240}{\@memberb}%     % left type
-           \put(59,201){\line(-5,3){100}}%     % single bond at 2
-    \else\if\@tmpc a%(a) alpha
-      \yl@xdiff=20\relax
-      \yl@ydiff=-10\relax
-           \putratom{83}{331}{\@memberb}%      % right type
-           \put(103,221){\line(0,1){100}}%     % single bond at 2
-    \fi\fi\fi\fi\fi%
-    \fi\fi
-   \else\if\@tmpb D%double bond
-      \yl@xdiff=49\relax
-      \yl@ydiff=-13\relax
-           \putlratom{-27}{331}{\@memberb}%
-           \put(78,208){\line(-3,5){63}}% % double bond at 2(62->63)
-           \put(100,219){\line(-3,5){63}}% % double bond at 2(62->63)
-   \else\if\@tmpb B%beta single bond
-      \yl@xdiff=43\relax
-      \yl@ydiff=5\relax
-           \putlratom{-27}{331}{\@memberb}%
-           {%
-           \thicklines%
-           \put(79,221){\line(-3,5){63}}% % single bond at 2 (62->63)
-           }%
-   \else\if\@tmpb A%alpha single bond
-      \yl@xdiff=43\relax
-      \yl@ydiff=5\relax
-           \putlratom{-27}{331}{\@memberb}%
-       \@ifundefined{dottedline}{%
-           \put(79,221){\line(-3,5){63}}% % single bond at 2(62->63)
-           }{{\thicklines%
-              \dottedline{20}(79,221)(16,326)}}%1998/10/11 by SF
-   \else\if\@tmpb F%fused bond
-     {\let\@tmpb=\@tmpc\@clipfusetrue
-      \put(103,171){\setatombondh}%
-     }%
-   \else\if\@tmpb G%fused bond
-     {\let\@tmpb=\@tmpc\@clipfusetrue
-      \put(103,171){\setatombondF}%
-     }%
-   \else%
-      \yl@xdiff=43\relax
-      \yl@ydiff=5\relax
-           \putlratom{-27}{331}{\@memberb}%
-           \put(79,221){\line(-3,5){63}}% % single bond at 2 (62->63)
-   \fi\fi\fi\fi%
-   \fi\fi
- \else%%no clipping
-   \if\@tmpb S%single bond
-    \ifx\@tmpc\empty%
-      \yl@xdiff=58\relax
-      \yl@ydiff=-41\relax
-           \putlratom{-27}{331}{\@memberb}%
-           \put(103,171){\line(-3,5){72}}%     % single bond at 2
-    \else\if\@tmpc B%(B) beta
-      \yl@xdiff=14\relax
-      \yl@ydiff=-3\relax
-           \putlatom{-31}{240}{\@memberb}%     % left type
-           {%
-           \thicklines%
-           \put(103,171){\line(-5,3){120}}%    % single bond at 2
-           }%
-    \else\if\@tmpc A%(A) alpha
-      \yl@xdiff=20\relax
-      \yl@ydiff=-20\relax
-           \putratom{83}{331}{\@memberb}%      % right type
-       \@ifundefined{dottedline}{%
-           \put(103,171){\line(0,1){140}}%     % single bond at 2
-           }{{\thicklines%
-              \dottedline{20}(103,171)(103,311)}}%1998/10/11 by SF
-    \else\if\@tmpc u%(u) up --- (B) beta
-      \yl@xdiff=20\relax
-      \yl@ydiff=-20\relax
-           \putratom{83}{331}{\@memberb}%      % right type
-           {%
-           \thicklines%
-           \put(103,171){\line(0,1){140}}%     % single bond at 2
-           }%
-    \else\if\@tmpc d%(d) down --- (A) alpha
-      \yl@xdiff=14\relax
-      \yl@ydiff=-3\relax
-           \putlatom{-31}{240}{\@memberb}%     % left type
-       \@ifundefined{dottedline}{%
-           \put(103,171){\line(-5,3){120}}%    % single bond at 2
-           }{{\thicklines%
-              \dottedline{20}(103,171)(-7,243)}}%1998/10/11 by SF
-    \else\if\@tmpc b%(b) beta
-      \yl@xdiff=14\relax
-      \yl@ydiff=-3\relax
-           \putlatom{-31}{240}{\@memberb}%     % left type
-           \put(103,171){\line(-5,3){120}}%    % single bond at 2
-    \else\if\@tmpc a%(a) alpha
-      \yl@xdiff=20\relax
-      \yl@ydiff=-20\relax
-           \putratom{83}{331}{\@memberb}%      % right type
-           \put(103,171){\line(0,1){140}}%     % single bond at 2
-    \fi\fi\fi\fi\fi%
-    \fi\fi
-   \else\if\@tmpb D%double bond
-      \yl@xdiff=64\relax
-      \yl@ydiff=-41\relax
-           \putlratom{-27}{331}{\@memberb}%
-           \put(96,168){\line(-3,5){72}}%      % double bond at 2
-           \put(121,174){\line(-3,5){72}}%     % double bond at 2
-   \else\if\@tmpb B%beta single bond
-      \yl@xdiff=58\relax
-      \yl@ydiff=-41\relax
-           \putlratom{-27}{331}{\@memberb}%
-           {%
-           \thicklines%
-           \put(103,171){\line(-3,5){72}}%     % single bond at 2
-           }%
-   \else\if\@tmpb A%alpha single bond
-      \yl@xdiff=58\relax
-      \yl@ydiff=-41\relax
-           \putlratom{-27}{331}{\@memberb}%
-       \@ifundefined{dottedline}{%
-           \put(103,171){\line(-3,5){72}}%     % single bond at 2
-           }{{\thicklines%
-              \dottedline{20}(103,171)(31,291)}}%
-   \else\if\@tmpb F%fused bond
-     {\let\@tmpb=\@tmpc\@clipfusefalse
-      \put(103,171){\setatombondh}%
-     }%
-   \else\if\@tmpb G%fused bond
-     {\let\@tmpb=\@tmpc\@clipfusefalse
-      \put(103,171){\setatombondF}%
-     }%
-   \else%
-      \yl@xdiff=58\relax
-      \yl@ydiff=-41\relax
-           \putlratom{-27}{331}{\@memberb}%
-           \put(103,171){\line(-3,5){72}}%     % single bond at 2
-   \fi\fi\fi\fi%
-   \fi\fi
- \fi}% end of \@hsubstb
-\def\@hsubstc{%
- \if@cclip %clipping
-   \if\@tmpb S%single bond
-    \ifx\@tmpc\empty%
-      \yl@xdiff=43\relax
-      \yl@ydiff=5\relax
-         \putratom{363}{331}{\@memberb}%
-         \put(343,221){\line(3,5){63}}% % single bond at 3 (62->63)
-    \else\if\@tmpc B%(B) beta
-      \yl@xdiff=0\relax
-      \yl@ydiff=21\relax
-           \putratom{443}{240}{\@memberb}%     % right type
-           {%
-           \thicklines%
-           \put(343,201){\line(5,3){100}}%     % single bond at 3
-           }%
-    \else\if\@tmpc A%(A) alpha
-      \yl@xdiff=20\relax
-      \yl@ydiff=0\relax
-           \putratom{283}{331}{\@memberb}%     % right type
-       \@ifundefined{dottedline}{%
-           \put(303,221){\line(0,1){110}}%     % single bond at 3
-           }{{\thicklines%
-              \dottedline{20}(303,221)(303,331)}}%
-    \else\if\@tmpc u%(u) up --- (B) beta
-      \yl@xdiff=20\relax
-      \yl@ydiff=0\relax
-           \putratom{283}{331}{\@memberb}%     % right type
-           {%
-           \thicklines%
-           \put(303,221){\line(0,1){110}}%     % single bond at 3
-           }%
-    \else\if\@tmpc d%(d) down --- (A) alpha
-      \yl@xdiff=0\relax
-      \yl@ydiff=21\relax
-           \putratom{443}{240}{\@memberb}%     % right type
-       \@ifundefined{dottedline}{%
-           \put(343,201){\line(5,3){100}}%     % single bond at 3
-           }{{\thicklines%
-              \dottedline{20}(343,201)(443,261)}}%
-    \else\if\@tmpc b%(b) beta
-      \yl@xdiff=0\relax
-      \yl@ydiff=21\relax
-           \putratom{443}{240}{\@memberb}%     % right type
-           \put(343,201){\line(5,3){100}}%     % single bond at 3
-    \else\if\@tmpc a%(a) alpha
-      \yl@xdiff=20\relax
-      \yl@ydiff=0\relax
-           \putratom{283}{331}{\@memberb}%     % right type
-           \put(303,221){\line(0,1){110}}%     % single bond at 3
-    \fi\fi\fi\fi\fi%
-    \fi\fi
-   \else\if\@tmpb D%double bond
-      \yl@xdiff=22\relax
-      \yl@ydiff=-18\relax
-           \putratom{363}{331}{\@memberb}%
-           \put(328,208){\line(3,5){63}}%  % double bond at 3
-           \put(303,214){\line(3,5){63}}%  % double bond at 3
-   \else\if\@tmpb B%beta single bond
-      \yl@xdiff=43\relax
-      \yl@ydiff=5\relax
-           \putratom{363}{331}{\@memberb}%
-           {%
-           \thicklines%
-           \put(343,221){\line(3,5){63}}%  % single bond at 3
-           }%
-   \else\if\@tmpb A%alpha single bond
-      \yl@xdiff=43\relax
-      \yl@ydiff=5\relax
-           \putratom{363}{331}{\@memberb}%
-       \@ifundefined{dottedline}{%
-           \put(343,221){\line(3,5){63}}% % single bond at 3 (62->63)
-           }{{\thicklines%
-              \dottedline{20}(343,221)(406,326)}}% 1998/10/11 by SF
-   \else\if\@tmpb F%fused bond
-     {\let\@tmpb=\@tmpc\@clipfusetrue
-      \put(303,171){\setatombondD}%
-     }%
-   \else\if\@tmpb G%fused bond
-     {\let\@tmpb=\@tmpc\@clipfusetrue
-      \put(303,171){\setatombondb}%
-     }%
-   \else%
-      \yl@xdiff=43\relax
-      \yl@ydiff=5\relax
-           \putratom{363}{331}{\@memberb}%
-           \put(343,221){\line(3,5){63}}%  % single bond at 3 (62->63)
-   \fi\fi\fi\fi%
-   \fi\fi
- \else%no clipping
-   \if\@tmpb S%single bond
-    \ifx\@tmpc\empty%
-      \yl@xdiff=12\relax
-      \yl@ydiff=-40\relax
-           \putratom{363}{331}{\@memberb}%
-           \put(303,171){\line(3,5){72}}%      % single bond at 3
-    \else\if\@tmpc B%(B) beta
-      \yl@xdiff=-20\relax
-      \yl@ydiff=3\relax
-           \putratom{443}{240}{\@memberb}%     % right type
-           {%
-           \thicklines%
-           \put(303,171){\line(5,3){120}}%     % single bond at 3
-           }%
-    \else\if\@tmpc A%(A) alpha
-      \yl@xdiff=20\relax
-      \yl@ydiff=-20\relax
-           \putratom{283}{331}{\@memberb}%     % right type
-       \@ifundefined{dottedline}{%
-           \put(303,171){\line(0,1){140}}%     % single bond at 3
-           }{{\thicklines%
-              \dottedline{20}(303,171)(303,311)}}%
-    \else\if\@tmpc u%(u) up  --- (B) beta
-      \yl@xdiff=20\relax
-      \yl@ydiff=-20\relax
-           \putratom{283}{331}{\@memberb}%     % right type
-           {%
-           \thicklines%
-           \put(303,171){\line(0,1){140}}%     % single bond at 3
-           }%
-    \else\if\@tmpc d%(d) down --- (A) alpha
-      \yl@xdiff=-20\relax
-      \yl@ydiff=3\relax
-           \putratom{443}{240}{\@memberb}%     % right type
-       \@ifundefined{dottedline}{%
-           \put(303,171){\line(5,3){120}}%     % single bond at 3
-           }{{\thicklines%
-              \dottedline{20}(303,171)(423,243)}}%
-    \else\if\@tmpc b%(b) beta
-      \yl@xdiff=-20\relax
-      \yl@ydiff=3\relax
-           \putratom{443}{240}{\@memberb}%     % right type
-           \put(303,171){\line(5,3){120}}%     % single bond at 3
-    \else\if\@tmpc a%(a) alpha
-      \yl@xdiff=20\relax
-      \yl@ydiff=-20\relax
-           \putratom{283}{331}{\@memberb}%     % right type
-           \put(303,171){\line(0,1){140}}%     % single bond at 3
-    \fi\fi\fi\fi\fi%
-    \fi\fi%
-   \else\if\@tmpb D%double bond
-      \yl@xdiff=6\relax
-      \yl@ydiff=-40\relax
-           \putratom{363}{331}{\@memberb}%
-           \put(310,168){\line(3,5){72}}%      % double bond at 3
-           \put(284,174){\line(3,5){72}}%      % double bond at 3
-   \else\if\@tmpb B%beta single bond
-      \yl@xdiff=12\relax
-      \yl@ydiff=-40\relax
-           \putratom{363}{331}{\@memberb}%
-           {%
-           \thicklines%
-           \put(303,171){\line(3,5){72}}%      % single bond at 3
-           }%
-   \else\if\@tmpb A%alpha single bond
-      \yl@xdiff=12\relax
-      \yl@ydiff=-40\relax
-           \putratom{363}{331}{\@memberb}%
-       \@ifundefined{dottedline}{%
-           \put(303,171){\line(3,5){72}}%      % single bond at 3
-           }{{\thicklines%
-              \dottedline{20}(303,171)(375,291)}}%
-   \else\if\@tmpb F%fused bond
-     {\let\@tmpb=\@tmpc\@clipfusefalse
-      \put(303,171){\setatombondD}%
-     }%
-   \else\if\@tmpb G%fused bond
-     {\let\@tmpb=\@tmpc\@clipfusefalse
-      \put(303,171){\setatombondb}%
-     }%
-   \else%
-      \yl@xdiff=12\relax
-      \yl@ydiff=-40\relax
-           \putratom{363}{331}{\@memberb}%
-           \put(303,171){\line(3,5){72}}%      % single bond at 3
-   \fi\fi\fi\fi%
-   \fi\fi
- \fi}% end of \@hsubstc
-\def\@hsubstd{%
-\if@clip %clipping
-   \if\@tmpb S%single bond
-    \ifx\@tmpc\empty%
-      \yl@xdiff=-17\relax
-      \yl@ydiff=31\relax
-           \putratom{563}{-31}{\@memberb}%    % right type only
-            \put(436,0){\line(1,0){110}}%     % single bond at 4
-    \else\if\@tmpc B%(B) beta
-      \yl@xdiff=-27\relax
-      \yl@ydiff=36\relax
-           \putratom{563}{42}{\@memberb}%     % right type only
-           {%
-           \thicklines%
-           \put(436,18){\line(5,3){100}}%     % single bond at 4
-           }%
-    \else\if\@tmpc A%(A) alpha
-      \yl@xdiff=-27\relax
-      \yl@ydiff=22\relax
-           \putratom{563}{-100}{\@memberb}%   % right type only
-       \@ifundefined{dottedline}{%
-           \put(436,-18){\line(5,-3){100}}%   % single bond at 4
-           }{{\thicklines%
-              \dottedline{20}(436,-18)(526,-72)}}%
-    \else\if\@tmpc u%(u) up --- (B) beta
-      \yl@xdiff=-27\relax
-      \yl@ydiff=22\relax
-           \putratom{563}{-100}{\@memberb}%   % right type only
-           {%
-           \thicklines%
-           \put(436,-18){\line(5,-3){100}}%   % single bond at 4
-           }%
-    \else\if\@tmpc d%(d) down --- (A) alpha
-      \yl@xdiff=-27\relax
-      \yl@ydiff=36\relax
-           \putratom{563}{42}{\@memberb}%     % right type only
-       \@ifundefined{dottedline}{%
-           \put(436,18){\line(5,3){100}}%     % single bond at 4
-           }{{\thicklines%
-              \dottedline{20}(436,18)(536,78)}}%
-    \else\if\@tmpc b%(b) beta
-      \yl@xdiff=-27\relax
-      \yl@ydiff=36\relax
-           \putratom{563}{42}{\@memberb}%     % right type only
-           \put(436,18){\line(5,3){100}}%     % single bond at 4
-    \else\if\@tmpc a%(a) alpha
-      \yl@xdiff=-27\relax
-      \yl@ydiff=22\relax
-           \putratom{563}{-100}{\@memberb}%   % right type only
-           \put(436,-18){\line(5,-3){100}}%   % single bond at 4
-    \fi\fi\fi\fi\fi%
-    \fi\fi
-   \else\if\@tmpb D%double bond
-      \yl@xdiff=-17\relax
-      \yl@ydiff=31\relax
-           \putratom{563}{-31}{\@memberb}%    % right type only
-           \put(436,-12){\line(1,0){110}}%    % double bond at 4
-           \put(436,12){\line(1,0){110}}%     % double bond at 4
-   \else\if\@tmpb B%beta single bond
-      \yl@xdiff=-17\relax
-      \yl@ydiff=31\relax
-           \putratom{563}{-31}{\@memberb}%    % right type only
-           {%
-           \thicklines%
-            \put(436,0){\line(1,0){110}}%     % single bond at 4
-           }%
-   \else\if\@tmpb A%alpha single bond
-      \yl@xdiff=-17\relax
-      \yl@ydiff=31\relax
-           \putratom{563}{-31}{\@memberb}%    % right type only
-           \@ifundefined{dottedline}{%
-            \put(436,0){\line(1,0){110}}%     % single bond at 4
-           }{{\thicklines%
-              \dottedline{20}(436,0)(546,0)}}%
-   \else\if\@tmpb F%fused bond
-     {\let\@tmpb=\@tmpc\@clipfusetrue
-      \put(406,0){\setatombondF}%
-     }%
-   \else\if\@tmpb G%fused bond
-     {\let\@tmpb=\@tmpc\@clipfusetrue
-      \put(406,0){\setatombondE}%
-     }%
-   \else%
-      \yl@xdiff=-17\relax
-      \yl@ydiff=31\relax
-           \putratom{563}{-31}{\@memberb}%    % right type only
-            \put(436,0){\line(1,0){110}}%     % single bond at 4
-   \fi\fi\fi\fi%
-   \fi\fi
-\else%% no clipping
-   \if\@tmpb S%single bond
-    \ifx\@tmpc\empty%
-      \yl@xdiff=-17\relax
-      \yl@ydiff=31\relax
-           \putratom{563}{-31}{\@memberb}%    % right type only
-            \put(406,0){\line(1,0){140}}%     % single bond at 4
-    \else\if\@tmpc B%(B) beta
-      \yl@xdiff=-37\relax
-      \yl@ydiff=30\relax
-           \putratom{563}{42}{\@memberb}%     % right type only
-           {%
-           \thicklines%
-           \put(406,0){\line(5,3){120}}%      % single bond at 4
-           }%
-    \else\if\@tmpc A%(A) alpha
-      \yl@xdiff=-37\relax
-      \yl@ydiff=28\relax
-           \putratom{563}{-100}{\@memberb}%   % right type only
-       \@ifundefined{dottedline}{%
-           \put(406,0){\line(5,-3){120}}%     % single bond at 4
-           }{{\thicklines%
-              \dottedline{20}(406,0)(526,-72)}}%
-   \else\if\@tmpc u%(u) up --- (B) beta
-      \yl@xdiff=-37\relax
-      \yl@ydiff=28\relax
-           \putratom{563}{-100}{\@memberb}%   % right type only
-           {%
-           \thicklines%
-           \put(406,0){\line(5,-3){120}}%     % single bond at 4
-           }%
-    \else\if\@tmpc d%(d) down --- (A) alpha
-      \yl@xdiff=-37\relax
-      \yl@ydiff=30\relax
-           \putratom{563}{42}{\@memberb}%     % right type only
-       \@ifundefined{dottedline}{%
-           \put(406,0){\line(5,3){120}}%      % single bond at 4
-           }{{\thicklines%
-              \dottedline{20}(406,0)(526,72)}}%
-    \else\if\@tmpc b%(b) beta
-      \yl@xdiff=-37\relax
-      \yl@ydiff=30\relax
-           \putratom{563}{42}{\@memberb}%     % right type only
-           \put(406,0){\line(5,3){120}}%      % single bond at 4
-    \else\if\@tmpc a%(a) alpha
-      \yl@xdiff=-37\relax
-      \yl@ydiff=28\relax
-           \putratom{563}{-100}{\@memberb}%   % right type only
-           \put(406,0){\line(5,-3){120}}%     % single bond at 4
-    \fi\fi\fi\fi\fi%
-    \fi\fi
-   \else\if\@tmpb D%double bond
-      \yl@xdiff=-17\relax
-      \yl@ydiff=31\relax
-           \putratom{563}{-31}{\@memberb}%    % right type only
-           \put(406,-12){\line(1,0){140}}%    % double bond at 4
-           \put(406,12){\line(1,0){140}}%     % double bond at 4
-   \else\if\@tmpb B%beta single bond
-      \yl@xdiff=-17\relax
-      \yl@ydiff=31\relax
-           \putratom{563}{-31}{\@memberb}%    % right type only
-           {%
-           \thicklines%
-            \put(406,0){\line(1,0){140}}%     % single bond at 4
-           }%
-   \else\if\@tmpb A%alpha single bond
-      \yl@xdiff=-17\relax
-      \yl@ydiff=31\relax
-           \putratom{563}{-31}{\@memberb}%    % right type only
-           \@ifundefined{dottedline}{%
-            \put(406,0){\line(1,0){140}}%     % single bond at 4
-           }{{\thicklines%
-              \dottedline{20}(406,0)(546,0)}}%
-   \else\if\@tmpb F%fused bond
-     {\let\@tmpb=\@tmpc\@clipfusefalse
-      \put(406,0){\setatombondF}%
-     }%
-   \else\if\@tmpb G%fused bond
-     {\let\@tmpb=\@tmpc\@clipfusefalse
-      \put(406,0){\setatombondE}%
-     }%
-   \else%
-      \yl@xdiff=-17\relax
-      \yl@ydiff=31\relax
-           \putratom{563}{-31}{\@memberb}%    % right type only
-            \put(406,0){\line(1,0){140}}%     % single bond at 4
-   \fi\fi\fi\fi%
-   \fi\fi
- \fi}% end of \@hsubstd
-\def\@hsubste{%
- \if@eclip %clipping
-  \if\@tmpb S%single bond
-    \ifx\@tmpc\empty%
-      \yl@xdiff=43\relax
-      \yl@ydiff=76\relax
-           \putratom{363}{-402}{\@memberb}%
-           \put(343,-221){\line(3,-5){63}}%% single bond at 5 (62=>63)
-    \else\if\@tmpc B%(B) beta
-      \yl@xdiff=0\relax
-      \yl@ydiff=41\relax
-           \putratom{443}{-301}{\@memberb}%    % right type
-           {%
-           \thicklines%
-           \put(343,-201){\line(5,-3){100}}%   % single bond at 5
-           }%
-    \else\if\@tmpc A%(A) alpha
-      \yl@xdiff=20\relax
-      \yl@ydiff=71\relax
-           \putratom{283}{-402}{\@memberb}%    % right type
-       \@ifundefined{dottedline}{%
-           \put(303,-221){\line(0,-1){110}}%   % single bond at 5
-           }{{\thicklines%
-              \dottedline{20}(303,-221)(303,-321)}}%
-    \else\if\@tmpc u%(u) up --- (B) beta
-      \yl@xdiff=20\relax
-      \yl@ydiff=71\relax
-           \putratom{283}{-402}{\@memberb}%    % right type
-           {%
-           \thicklines%
-           \put(303,-221){\line(0,-1){110}}%   % single bond at 5
-           }%
-    \else\if\@tmpc d%(d) down --- (A) alpha
-      \yl@xdiff=0\relax
-      \yl@ydiff=41\relax
-           \putratom{443}{-301}{\@memberb}%    % right type
-       \@ifundefined{dottedline}{%
-           \put(343,-201){\line(5,-3){100}}%   % single bond at 5
-           }{{\thicklines%
-              \dottedline{20}(343,-201)(443,-260)}}%
-    \else\if\@tmpc b%(b) beta
-      \yl@xdiff=0\relax
-      \yl@ydiff=41\relax
-           \putratom{443}{-301}{\@memberb}%    % right type
-           \put(343,-201){\line(5,-3){100}}%   % single bond at 5
-    \else\if\@tmpc a%(a) alpha
-      \yl@xdiff=20\relax
-      \yl@ydiff=71\relax
-           \putratom{283}{-402}{\@memberb}%    % right type
-           \put(303,-221){\line(0,-1){110}}%   % single bond at 5
-    \fi\fi\fi\fi\fi%
-    \fi\fi
-   \else\if\@tmpb D%double bond
-      \yl@xdiff=22\relax
-      \yl@ydiff=82\relax
-           \putratom{363}{-402}{\@memberb}
-           \put(328,-208){\line(3,-5){63}}% % double bond at 5 (62->63)
-           \put(306,-224){\line(3,-5){63}}% % double bond at 5 (62->63)
-   \else\if\@tmpb B%beta single bond
-      \yl@xdiff=43\relax
-      \yl@ydiff=76\relax
-           \putratom{363}{-402}{\@memberb}%
-           {%
-           \thicklines%
-           \put(343,-221){\line(3,-5){63}}%% single bond at 5(62->63)
-           }%
-   \else\if\@tmpb A%alpha single bond
-      \yl@xdiff=43\relax
-      \yl@ydiff=76\relax
-           \putratom{363}{-402}{\@memberb}%
-       \@ifundefined{dottedline}{%
-           \put(343,-221){\line(3,-5){63}}% % single bond at 5 (62->63)
-           }{{\thicklines%
-              \dottedline{20}(343,-221)(406,-326)}}%1998/10/11 by SF
-   \else\if\@tmpb F%fused bond
-     {\let\@tmpb=\@tmpc\@clipfusetrue
-      \put(303,-171){\setatombondb}%
-     }%
-   \else\if\@tmpb G%fused bond
-     {\let\@tmpb=\@tmpc\@clipfusetrue
-      \put(303,-171){\setatombondG}%
-     }%
-   \else%
-      \yl@xdiff=43\relax
-      \yl@ydiff=76\relax
-         \putratom{363}{-402}{\@memberb}%
-         \put(343,-221){\line(3,-5){63}}% % single bond at 5(62->63)
-   \fi\fi\fi\fi%
-   \fi\fi
- \else%no clipping
-   \if\@tmpb S%single bond
-    \ifx\@tmpc\empty%
-      \yl@xdiff=9\relax
-      \yl@ydiff=111\relax
-           \putratom{363}{-402}{\@memberb}%
-           \put(303,-171){\line(3,-5){72}}%    % single bond at 5
-    \else\if\@tmpc B%(B) beta
-      \yl@xdiff=-20\relax
-      \yl@ydiff=58\relax
-           \putratom{443}{-301}{\@memberb}%    % right type
-           {%
-           \thicklines%
-           \put(303,-171){\line(5,-3){120}}%   % single bond at 5
-           }%
-    \else\if\@tmpc A%(A) alpha
-      \yl@xdiff=20\relax
-      \yl@ydiff=81\relax
-           \putratom{283}{-402}{\@memberb}%    % right type
-       \@ifundefined{dottedline}{%
-           \put(303,-171){\line(0,-1){140}}%   % single bond at 5
-           }{{\thicklines%
-              \dottedline{20}(303,-171)(303,-321)}}%
-    \else\if\@tmpc u%(u) up --- (B) beta
-      \yl@xdiff=20\relax
-      \yl@ydiff=81\relax
-           \putratom{283}{-402}{\@memberb}%    % right type
-           {%
-           \thicklines%
-           \put(303,-171){\line(0,-1){140}}%   % single bond at 5
-           }%
-    \else\if\@tmpc d%(d) down --- (A) alpha
-      \yl@xdiff=-20\relax
-      \yl@ydiff=58\relax
-           \putratom{443}{-301}{\@memberb}%    % right type
-       \@ifundefined{dottedline}{%
-           \put(303,-171){\line(5,-3){120}}%   % single bond at 5
-           }{{\thicklines%
-              \dottedline{20}(303,-171)(423,-243)}}%
-    \else\if\@tmpc b%(b) beta
-      \yl@xdiff=-20\relax
-      \yl@ydiff=58\relax
-           \putratom{443}{-301}{\@memberb}%    % right type
-           \put(303,-171){\line(5,-3){120}}%   % single bond at 5
-    \else\if\@tmpc a%(a) alpha
-      \yl@xdiff=20\relax
-      \yl@ydiff=81\relax
-           \putratom{283}{-402}{\@memberb}%    % right type
-           \put(303,-171){\line(0,-1){140}}%   % single bond at 5
-    \fi\fi\fi\fi\fi%
-    \fi\fi
-   \else\if\@tmpb D%double bond
-      \yl@xdiff=3\relax
-      \yl@ydiff=111\relax
-           \putratom{363}{-402}{\@memberb}%
-            \put(310,-168){\line(3,-5){72}}%   % double bond at 5
-            \put(284,-174){\line(3,-5){72}}%   % double bond at 5
-   \else\if\@tmpb B%beta single bond
-      \yl@xdiff=9\relax
-      \yl@ydiff=111\relax
-           \putratom{363}{-402}{\@memberb}%
-           {%
-           \thicklines%
-           \put(303,-171){\line(3,-5){72}}%    % single bond at 5
-           }%
-   \else\if\@tmpb A%alpha single bond
-      \yl@xdiff=9\relax
-      \yl@ydiff=111\relax
-           \putratom{363}{-402}{\@memberb}%
-       \@ifundefined{dottedline}{%
-           \put(303,-171){\line(3,-5){72}}%    % single bond at 5
-           }{{\thicklines%
-              \dottedline{20}(303,-171)(375,-291)}}%
-   \else\if\@tmpb F%fused bond
-     {\let\@tmpb=\@tmpc\@clipfusefalse
-      \put(303,-171){\setatombondb}%
-     }%
-   \else\if\@tmpb G%fused bond
-     {\let\@tmpb=\@tmpc\@clipfusefalse
-      \put(303,-171){\setatombondG}%
-     }%
-   \else%
-      \yl@xdiff=9\relax
-      \yl@ydiff=111\relax
-           \putratom{363}{-402}{\@memberb}%
-           \put(303,-171){\line(3,-5){72}}%    % single bond at 5
-   \fi\fi\fi\fi%
-   \fi\fi
- \fi}% end of \@hsubste
-\def\@hsubstf{%
- \if@fclip %clipping
-   \if\@tmpb S%single bond
-    \ifx\@tmpc\empty%
-      \yl@xdiff=43\relax
-      \yl@ydiff=76\relax
-          \putlratom{-27}{-402}{\@memberb}%
-          \put(79,-221){\line(-3,-5){63}}% % single bond at 6 (62=>63)
-    \else\if\@tmpc B%(B) beta
-      \yl@xdiff=-10\relax
-      \yl@ydiff=40\relax
-           \putlatom{-31}{-301}{\@memberb}%    % right type
-           {%
-           \thicklines%
-           \put(59,-201){\line(-5,-3){100}}%   % single bond at 6
-           }%
-    \else\if\@tmpc A%(A) alpha
-      \yl@xdiff=20\relax
-      \yl@ydiff=81\relax
-           \putratom{83}{-402}{\@memberb}%     % right type
-       \@ifundefined{dottedline}{%
-           \put(103,-221){\line(0,-1){100}}%   % single bond at 6
-           }{{\thicklines%
-              \dottedline{20}(103,-221)(103,-321)}}%
-    \else\if\@tmpc u%(u) up --- (B) beta
-      \yl@xdiff=20\relax
-      \yl@ydiff=81\relax
-           \putratom{83}{-402}{\@memberb}%     % right type
-           {%
-           \thicklines%
-           \put(103,-221){\line(0,-1){100}}%   % single bond at 6
-           }%
-    \else\if\@tmpc d%(d) down --- (A) alpha
-      \yl@xdiff=-10\relax
-      \yl@ydiff=40\relax
-           \putlatom{-31}{-301}{\@memberb}%    % right type
-       \@ifundefined{dottedline}{%
-           \put(59,-201){\line(-5,-3){100}}%   % single bond at 6
-           }{{\thicklines%
-              \dottedline{20}(59,-201)(-41,-261)}}%
-    \else\if\@tmpc b%(b) beta
-      \yl@xdiff=-10\relax
-      \yl@ydiff=40\relax
-           \putlatom{-31}{-301}{\@memberb}%    % right type
-           \put(59,-201){\line(-5,-3){100}}%   % single bond at 6
-    \else\if\@tmpc a%(a) alpha
-      \yl@xdiff=20\relax
-      \yl@ydiff=81\relax
-           \putratom{83}{-402}{\@memberb}%     % right type
-           \put(103,-221){\line(0,-1){100}}%   % single bond at 6
-    \fi\fi\fi\fi\fi
-    \fi\fi
-   \else\if\@tmpb D%double bond
-      \yl@xdiff=49\relax
-      \yl@ydiff=82\relax
-            \putlratom{-27}{-402}{\@memberb}%
-           \put(78,-208){\line(-3,-5){63}}% % double bond at 6 (62->63)
-           \put(106,-219){\line(-3,-5){63}}% % double bond at 6 (62->63)
-   \else\if\@tmpb B%beta single bond
-      \yl@xdiff=43\relax
-      \yl@ydiff=76\relax
-            \putlratom{-27}{-402}{\@memberb}%
-           {%
-           \thicklines%
-           \put(79,-221){\line(-3,-5){63}}% % single bond at 6 (62=>63)
-           }%
-   \else\if\@tmpb A%alpha single bond
-      \yl@xdiff=43\relax
-      \yl@ydiff=76\relax
-            \putlratom{-27}{-402}{\@memberb}%
-       \@ifundefined{dottedline}{%
-           \put(79,-221){\line(-3,-5){63}}% single bond at 6 (62=>63)
-           }{{\thicklines%
-              \dottedline{20}(79,-221)(16,-326)}}%1998/10/11 by SF
-   \else\if\@tmpb F%fused bond
-     {\let\@tmpb=\@tmpc\@clipfusetrue
-      \put(103,-171){\setatombondE}%
-     }%
-   \else\if\@tmpb G%fused bond
-     {\let\@tmpb=\@tmpc\@clipfusetrue
-      \put(103,-171){\setatombondh}%
-     }%
-   \else%
-      \yl@xdiff=43\relax
-      \yl@ydiff=76\relax
-           \putlratom{-27}{-402}{\@memberb}%
-           \put(79,-221){\line(-3,-5){63}}% % single bond at 6(62->63)
-   \fi\fi\fi\fi%
-   \fi\fi
- \else%%no clipping
-   \if\@tmpb S%single bond
-    \ifx\@tmpc\empty%
-      \yl@xdiff=59\relax
-      \yl@ydiff=111\relax
-            \putlratom{-27}{-402}{\@memberb}%
-            \put(108,-171){\line(-3,-5){72}}%  % single bond at 6
-   \else\if\@tmpc B%beta single bond%1998/10/11 by S. Fujita
-      \yl@xdiff=8\relax
-      \yl@ydiff=58\relax
-           \putlatom{-31}{-301}{\@memberb}%    % right type
-           {%
-           \thicklines%
-           \put(103,-171){\line(-5,-3){120}}%  % single bond at 6
-           }%
-    \else\if\@tmpc A%(A) alpha
-      \yl@xdiff=20\relax
-      \yl@ydiff=91\relax
-           \putratom{83}{-402}{\@memberb}%     % right type
-       \@ifundefined{dottedline}{%
-           \put(103,-171){\line(0,-1){140}}%   % single bond at 6
-           }{{\thicklines%
-              \dottedline{20}(103,-171)(103,-311)}}%1998/10/17 by SF
-   \else\if\@tmpc u%(u) up --- (B) beta
-      \yl@xdiff=20\relax
-      \yl@ydiff=91\relax
-           \putratom{83}{-402}{\@memberb}%     % right type
-           {%
-           \thicklines%
-           \put(103,-171){\line(0,-1){140}}%   % single bond at 6
-           }%
-    \else\if\@tmpc d%(d) down --- (A) alpha
-      \yl@xdiff=8\relax
-      \yl@ydiff=58\relax
-           \putlatom{-31}{-301}{\@memberb}%    % right type
-       \@ifundefined{dottedline}{%
-           \put(103,-171){\line(-5,-3){120}}%  % single bond at 6
-           }{{\thicklines%
-              \dottedline{20}(103,-171)(-17,-243)}}%
-    \else\if\@tmpc b%(b) beta
-      \yl@xdiff=8\relax
-      \yl@ydiff=58\relax
-           \putlatom{-31}{-301}{\@memberb}%    % right type
-           \put(103,-171){\line(-5,-3){120}}%  % single bond at 6
-    \else\if\@tmpc a%(a) alpha
-      \yl@xdiff=20\relax
-      \yl@ydiff=91\relax
-           \putratom{83}{-402}{\@memberb}%     % right type
-           \put(103,-171){\line(0,-1){140}}%   % single bond at 6
-    \fi\fi\fi\fi\fi%
-    \fi\fi
-   \else\if\@tmpb D%double bond
-      \yl@xdiff=65\relax
-      \yl@ydiff=111\relax
-            \putlratom{-27}{-402}{\@memberb}%
-            \put(96,-168){\line(-3,-5){72}}%   % double bond at 6
-            \put(121,-174){\line(-3,-5){72}}%  % double bond at 6
-   \else\if\@tmpb B%beta single bond
-      \yl@xdiff=59\relax
-      \yl@ydiff=111\relax
-            \putlratom{-27}{-402}{\@memberb}%
-            \put(108,-171){\line(-3,-5){72}}%  % single bond at 6
-           {%
-           \thicklines%
-            \put(108,-171){\line(-3,-5){72}}%  % single bond at 6
-           }%
-   \else\if\@tmpb A%alpha single bond
-      \yl@xdiff=59\relax
-      \yl@ydiff=111\relax
-            \putlratom{-27}{-402}{\@memberb}%
-       \@ifundefined{dottedline}{%
-            \put(108,-171){\line(-3,-5){72}}%  % single bond at 6
-           }{{\thicklines%
-              \dottedline{20}(103,-171)(31,-291)}}%
-   \else\if\@tmpb F%fused bond
-     {\let\@tmpb=\@tmpc\@clipfusefalse
-      \put(103,-171){\setatombondE}%
-     }%
-   \else\if\@tmpb G%fused bond
-     {\let\@tmpb=\@tmpc\@clipfusefalse
-      \put(103,-171){\setatombondh}%
-     }%
-   \else%
-      \yl@xdiff=59\relax
-      \yl@ydiff=111\relax
-            \putlratom{-27}{-402}{\@memberb}%
-            \put(108,-171){\line(-3,-5){72}}%  % single bond at 6
-   \fi\fi\fi\fi%
-   \fi\fi
- \fi}% end of \@hsubstf
-\def\setsixringh#1#2#3#4#5{%
-\@forsemicol\member:=#1\do{%
-\ifx\member\empty\else%
-\expandafter\@m@mb@r\member;\relax%
-\expandafter\threech@r\@membera{}{}%
-\ifx\@memberb\@yl\else
-\ifnum#5 < 0\relax%
-\@tmpaa=-\@tmpa\relax \advance\@tmpaa by#2\relax%
-\else\@tmpaa=\@tmpa\relax \advance\@tmpaa by#2\relax \fi
-\ifnum\@tmpaa >#3\relax%
-\ifnum\@tmpaa <#4\relax%
-\ifcase\@tmpaa%0 omit
- \or\@hsubsta% subst. on 1
- \or\@hsubstb% subst. on 2
- \or\@hsubstc% subst. on 3
- \or\@hsubstd% subst. on 4
- \or\@hsubste% subst. on 5
- \or\@hsubstf% subst. on 6
-\fi%end of ifcase
-\fi\fi\fi\fi}}% %end of setsixringh
-\newcount\x@ryl
-\newcount\y@ryl
-\def\ryl{\@ifnextchar({\@ryl}{\@ryl()}}
-\def\@ryl(#1)#2{%
-\iniatom\iniflag%initialize
-\@reset@ylsw%
-\def\centeraaa{}%
-\x@ryl=0\y@ryl=0
-\@forsemicol\member:=#1\do{%
-\if@ylsw%
-\XyMTeXWarning{Duplicated items in the first augument of \string\ryl}%
-\else%
-\ifx\member\empty\else%
-\expandafter\@m@mb@r\member;\relax%
-\expandafter\twoch@r\@membera{}%
-\settowidth{\dimen0}{\@memberb}%
-\x@ryl=\dimen0%%%dimension => counter
-\divide\x@ryl\unitlength
-\advance\x@ryl by-70
-\y@ryl=0
-\ifcase\@tmpa%
-\def\centeraaa{\@memberb}\@ylswtrue
-\advance\y@ryl by50
-\or%1
-\def\centeraaa{\@memberb}\@ylswtrue
-\advance\x@ryl by30
-\advance\y@ryl by50
-\or%2
-\def\centeraaa{\@memberb}\@ylswtrue
-\advance\x@ryl by40
-\advance\y@ryl by40
-\or%3
-\def\centeraaa{\@memberb}\@ylswtrue
-\advance\x@ryl by50
-\advance\y@ryl by30
-\or%4
-\def\centeraaa{\@memberb}\@ylswtrue
-\advance\x@ryl by50
-\advance\y@ryl by0
-\or%5
-\def\centeraaa{\@memberb}\@ylswtrue
-\advance\x@ryl by50
-\advance\y@ryl by-30
-\or%6
-\def\centeraaa{\@memberb}\@ylswtrue
-\advance\x@ryl by50
-\advance\y@ryl by-50
-\or%7
-\def\centeraaa{\@memberb}\@ylswtrue
-\advance\x@ryl by30
-\advance\y@ryl by-50
-\or%8
-\def\centeraaa{\@memberb}\@ylswtrue
-\advance\y@ryl by-50
-\fi
-\fi\fi}%
- \yl@shiftii=\x@ryl
- \yl@shifti=-\y@ryl
- \advance\yl@shiftii\yl@xdiff
- \advance\yl@shifti\yl@ydiff
- \begin{picture}(0,0)(-\yl@shiftii,-\yl@shifti)
-\ifx\centeraaa\empty\else%
-   \@clipfusetrue
-   \putlatom{40}{-30}{\centeraaa}%  % left type
-\fi%
-\@forsemicol\member:=#2\do{%
-\ifx\member\empty\else%
-\expandafter\@m@mb@r\member;\relax%
-\expandafter\threech@r\@membera{}{}%
-\ifcase\@tmpa%
-\setatombonda% 0 (upward) (0,1)
-\or\setatombondF%1 (3,5)
-\or\setatombondA%2 (1,1)
-\or\setatombondf%3 (5,3)
-\or\setatombondb%4 (1,0)
-\or\setatombonde%5 (5,-3)
-\or\setatombondB%6 (1,-1)
-\or\setatombondE%7 (3,-5)
-\or\setatombondc%8 (0,-1)
-\fi%end of ifcase
-\fi
-}\end{picture}}%               %end of \ryl macro
-\def\setatombondF{%% (3,5)
-  \if@clipfuse%
-   \if\@tmpb B%beta single bond
-      \yl@xdiff=10\relax
-      \yl@ydiff=-10\relax
-           {%
-           \thicklines%
-           \put(30,50){\line(3,5){60}}%       % single bond at 1
-           }%
-   \else\if\@tmpb A%alpha single bond
-      \yl@xdiff=10\relax
-      \yl@ydiff=-10\relax
-       \@ifundefined{dottedline}{%
-           \put(30,50){\line(3,5){60}}%       % single bond at 1
-           }{{\thicklines%
-              \dottedline{20}(30,50)(90,150)}}%
-   \else\if\@tmpb U%unspecified single bond
-      \yl@xdiff=10\relax
-      \yl@ydiff=-10\relax
-           \put(30,50){\line(3,5){60}}%       % single bond at 1
-   \else\if\@tmpb S%beta single bond
-      \yl@xdiff=10\relax
-      \yl@ydiff=-10\relax
-           \put(30,50){\line(3,5){60}}%       % single bond at 1
-   \else\if\@tmpb D%double bond
-      \yl@xdiff=10\relax
-      \yl@ydiff=-10\relax
-           \put(40,44){\line(3,5){60}}%       % single bond at 1
-           \put(20,56){\line(3,5){60}}%       % single bond at 1
-   \else\if\@tmpb T%triple bond
-      \yl@xdiff=10\relax
-      \yl@ydiff=-10\relax
-           \put(45,41){\line(3,5){60}}%       % single bond at 1
-           \put(30,50){\line(3,5){60}}%       % single bond at 1
-           \put(15,59){\line(3,5){60}}%       % single bond at 1
-   \else\ifx\@tmpb\empty%beta single bond
-      \yl@xdiff=10\relax
-      \yl@ydiff=-10\relax
-           \put(30,50){\line(3,5){60}}%       % single bond at 1
-   \fi\fi\fi\fi\fi\fi\fi%
-           \putratom{80}{160}{\@memberb}%    % right type
-  \else%no clipping
-   \if\@tmpb B%beta single bond
-      \yl@xdiff=10\relax
-      \yl@ydiff=-10\relax
-           {%
-           \thicklines%
-           \put(0,0){\line(3,5){90}}%       % single bond at 1
-           }%
-   \else\if\@tmpb A%alpha single bond
-      \yl@xdiff=10\relax
-      \yl@ydiff=-10\relax
-       \@ifundefined{dottedline}{%
-           \put(0,0){\line(3,5){90}}%       % single bond at 1
-           }{{\thicklines%
-              \dottedline{20}(0,0)(90,150)}}%
-   \else\if\@tmpb U%unspecified single bond
-      \yl@xdiff=10\relax
-      \yl@ydiff=-10\relax
-           \put(0,0){\line(3,5){90}}%       % single bond at 1
-   \else\if\@tmpb S%beta single bond
-      \yl@xdiff=10\relax
-      \yl@ydiff=-10\relax
-           \put(0,0){\line(3,5){90}}%       % single bond at 1
-   \else\if\@tmpb D%beta single bond
-      \yl@xdiff=10\relax
-      \yl@ydiff=-10\relax
-           \put(10,-6){\line(3,5){90}}%       % single bond at 1
-           \put(-10,6){\line(3,5){90}}%       % single bond at 1
-   \else\if\@tmpb T%beta single bond
-      \yl@xdiff=10\relax
-      \yl@ydiff=-10\relax
-           \put(15,-9){\line(3,5){90}}%       % single bond at 1
-           \put(0,0){\line(3,5){90}}%       % single bond at 1
-           \put(-15,9){\line(3,5){90}}%       % single bond at 1
-   \else\ifx\@tmpb\empty%beta single bond
-      \yl@xdiff=10\relax
-      \yl@ydiff=-10\relax
-           \put(0,0){\line(3,5){90}}%       % single bond at 1
-   \fi\fi\fi\fi\fi\fi\fi%
-           \putratom{80}{160}{\@memberb}%    % right type
-  \fi%
-}% end of \setatombondF
-\def\setatombondE{%% (3,-5)
-  \if@clipfuse%
-      \yl@xdiff=10\relax
-      \yl@ydiff=70\relax
-   \if\@tmpb B%beta single bond
-           {%
-           \thicklines%
-           \put(30,-50){\line(3,-5){60}}%       % single bond at 1
-           }%
-   \else\if\@tmpb A%alpha single bond
-       \@ifundefined{dottedline}{%
-           \put(30,-50){\line(3,-5){60}}%       % single bond at 1
-           }{{\thicklines%
-              \dottedline{20}(30,-50)(90,-150)}}%
-   \else\if\@tmpb U%unspecified single bond
-           \put(30,-50){\line(3,-5){60}}%       % single bond at 1
-   \else\if\@tmpb S%beta single bond
-           \put(30,-50){\line(3,-5){60}}%       % single bond at 1
-   \else\if\@tmpb D%double bond
-           \put(40,-44){\line(3,-5){60}}%       % single bond at 1
-           \put(20,-56){\line(3,-5){60}}%       % single bond at 1
-   \else\if\@tmpb T%triple bond
-           \put(45,-41){\line(3,-5){60}}%       % single bond at 1
-           \put(30,-50){\line(3,-5){60}}%       % single bond at 1
-           \put(15,-59){\line(3,-5){60}}%       % single bond at 1
-   \else\ifx\@tmpb\empty%beta single bond
-           \put(30,-50){\line(3,-5){60}}%       % single bond at 1
-   \fi\fi\fi\fi\fi\fi\fi%
-           \putratom{80}{-220}{\@memberb}%    % right type
-  \else%no clipping
-      \yl@xdiff=10\relax
-      \yl@ydiff=70\relax
-   \if\@tmpb B%beta single bond
-           {%
-           \thicklines%
-           \put(0,0){\line(3,-5){90}}%       % single bond at 1
-           }%
-   \else\if\@tmpb A%alpha single bond
-       \@ifundefined{dottedline}{%
-           \put(0,0){\line(3,-5){90}}%       % single bond at 1
-           }{{\thicklines%
-              \dottedline{20}(0,0)(90,-150)}}%
-   \else\if\@tmpb U%unspecified single bond
-           \put(0,0){\line(3,-5){90}}%       % single bond at 1
-   \else\if\@tmpb S%beta single bond
-           \put(0,0){\line(3,-5){90}}%       % single bond at 1
-   \else\if\@tmpb D%beta single bond
-           \put(10,6){\line(3,-5){90}}%       % single bond at 1
-           \put(-10,-6){\line(3,-5){90}}%       % single bond at 1
-   \else\if\@tmpb T%beta single bond
-           \put(15,9){\line(3,-5){90}}%       % single bond at 1
-           \put(0,0){\line(3,-5){90}}%       % single bond at 1
-           \put(-15,-9){\line(3,-5){90}}%       % single bond at 1
-   \else\ifx\@tmpb\empty%beta single bond
-           \put(0,0){\line(3,-5){90}}%       % single bond at 1
-   \fi\fi\fi\fi\fi\fi\fi%
-           \putratom{80}{-220}{\@memberb}%    % right type
-  \fi%
-}% end of \setatombondE
-\def\setatombondA{%% (1,1)
-      \yl@xdiff=0\relax
-      \yl@ydiff=0\relax
-  \if@clipfuse%
-   \if\@tmpb B%beta single bond
-           {%
-           \thicklines%
-           \put(40,40){\line(1,1){100}}%       % single bond at 1
-           }%
-   \else\if\@tmpb A%alpha single bond
-       \@ifundefined{dottedline}{%
-           \put(40,40){\line(1,1){100}}%       % single bond at 1
-           }{{\thicklines%
-              \dottedline{20}(40,40)(140,140)}}%
-   \else\if\@tmpb U%unspecified single bond
-           \put(40,40){\line(1,1){100}}%       % single bond at 1
-   \else\if\@tmpb S%beta single bond
-           \put(40,40){\line(1,1){100}}%       % single bond at 1
-   \else\if\@tmpb D%double bond
-           \put(46,36){\line(1,1){100}}%       % single bond at 1
-           \put(36,46){\line(1,1){100}}%       % single bond at 1
-   \else\if\@tmpb T%triple bond
-           \put(50,30){\line(1,1){100}}%       % single bond at 1
-           \put(40,40){\line(1,1){100}}%       % single bond at 1
-           \put(30,50){\line(1,1){100}}%       % single bond at 1
-   \else\ifx\@tmpb\empty%beta single bond
-           \put(40,40){\line(1,1){100}}%       % single bond at 1
-   \fi\fi\fi\fi\fi\fi\fi%
-           \putratom{140}{140}{\@memberb}%    % right type
-  \else%no clipping
-   \if\@tmpb B%beta single bond
-           {%
-           \thicklines%
-           \put(0,0){\line(1,1){120}}%       % single bond at 1
-           }%
-   \else\if\@tmpb A%alpha single bond
-       \@ifundefined{dottedline}{%
-           \put(0,0){\line(1,1){120}}%       % single bond at 1
-           }{{\thicklines%
-              \dottedline{20}(0,0)(120,120)}}%
-   \else\if\@tmpb U%unspecified single bond
-           \put(0,0){\line(1,1){120}}%       % single bond at 1
-   \else\if\@tmpb S%beta single bond
-           \put(0,0){\line(1,1){120}}%       % single bond at 1
-   \else\if\@tmpb D%beta single bond
-           \put(6,-6){\line(1,1){120}}%       % single bond at 1
-           \put(-6,6){\line(1,1){120}}%       % single bond at 1
-   \else\if\@tmpb T%beta single bond
-           \put(10,-10){\line(1,1){120}}%       % single bond at 1
-           \put(0,0){\line(1,1){120}}%       % single bond at 1
-           \put(-10,10){\line(1,1){120}}%       % single bond at 1
-   \else\ifx\@tmpb\empty%beta single bond
-           \put(0,0){\line(1,1){120}}%       % single bond at 1
-   \fi\fi\fi\fi\fi\fi\fi%
-           \putratom{120}{120}{\@memberb}%    % right type
-  \fi%
-}% end of \setatombondA
-\def\setatombondB{%% (1,-1)
-  \if@clipfuse%
-      \yl@xdiff=0\relax
-      \yl@ydiff=60\relax
-   \if\@tmpb B%beta single bond
-           {%
-           \thicklines%
-           \put(40,-40){\line(1,-1){100}}%       % single bond at 1
-           }%
-   \else\if\@tmpb A%alpha single bond
-       \@ifundefined{dottedline}{%
-           \put(40,-40){\line(1,-1){100}}%       % single bond at 1
-           }{{\thicklines%
-              \dottedline{20}(40,-40)(140,-140)}}%
-   \else\if\@tmpb U%unspecified single bond
-           \put(40,-40){\line(1,-1){100}}%       % single bond at 1
-   \else\if\@tmpb S%beta single bond
-           \put(40,-40){\line(1,-1){100}}%       % single bond at 1
-   \else\if\@tmpb D%double bond
-           \put(46,-36){\line(1,-1){100}}%       % single bond at 1
-           \put(36,-46){\line(1,-1){100}}%       % single bond at 1
-   \else\if\@tmpb T%triple bond
-           \put(50,-30){\line(1,-1){100}}%       % single bond at 1
-           \put(40,-40){\line(1,-1){100}}%       % single bond at 1
-           \put(30,-50){\line(1,-1){100}}%       % single bond at 1
-   \else\ifx\@tmpb\empty%beta single bond
-           \put(40,-40){\line(1,-1){100}}%       % single bond at 1
-   \fi\fi\fi\fi\fi\fi\fi%
-           \putratom{140}{-200}{\@memberb}%    % right type
-  \else%no clipping
-      \yl@xdiff=0\relax
-      \yl@ydiff=60\relax
-   \if\@tmpb B%beta single bond
-           {%
-           \thicklines%
-           \put(0,0){\line(1,-1){120}}%       % single bond at 1
-           }%
-   \else\if\@tmpb A%alpha single bond
-       \@ifundefined{dottedline}{%
-           \put(0,0){\line(1,-1){120}}%       % single bond at 1
-           }{{\thicklines%
-              \dottedline{20}(0,0)(120,-120)}}%
-   \else\if\@tmpb U%unspecified single bond
-           \put(0,0){\line(1,-1){120}}%       % single bond at 1
-   \else\if\@tmpb S%beta single bond
-           \put(0,0){\line(1,-1){120}}%       % single bond at 1
-   \else\if\@tmpb D%beta single bond
-           \put(6,6){\line(1,-1){120}}%       % single bond at 1
-           \put(-6,-6){\line(1,-1){120}}%       % single bond at 1
-   \else\if\@tmpb T%beta single bond
-           \put(10,10){\line(1,-1){120}}%       % single bond at 1
-           \put(0,0){\line(1,-1){120}}%       % single bond at 1
-           \put(-10,-10){\line(1,-1){120}}%       % single bond at 1
-   \else\ifx\@tmpb\empty%beta single bond
-           \put(0,0){\line(1,-1){120}}%       % single bond at 1
-   \fi\fi\fi\fi\fi\fi\fi%
-           \putratom{120}{-180}{\@memberb}%    % right type
-  \fi%
-}% end of \setatombondB
-\def\lyl{\@ifnextchar({\@lyl}{\@lyl()}}
-\def\@lyl(#1)#2{%
-\iniatom\iniflag%initialize
-\@reset@ylsw%
-\def\centeraaa{}%
-\x@ryl=0\y@ryl=0
-\@forsemicol\member:=#1\do{%
-\if@ylsw%
-\XyMTeXWarning{Duplicated items in the first augument of \string\ryl}%
-\else%
-\ifx\member\empty\else%
-\expandafter\@m@mb@r\member;\relax%
-\expandafter\twoch@r\@membera{}%
-\settowidth{\dimen0}{\@memberb}%
-\x@ryl=\dimen0%%%dimension => counter
-\divide\x@ryl\unitlength
-\advance\x@ryl by-80
-\y@ryl=0
-\ifcase\@tmpa%
-\def\centeraaa{\@memberb}\@ylswtrue
-\advance\y@ryl by50
-\or%1
-\def\centeraaa{\@memberb}\@ylswtrue
-\advance\x@ryl by30
-\advance\y@ryl by50
-\or%2
-\def\centeraaa{\@memberb}\@ylswtrue
-\advance\x@ryl by40
-\advance\y@ryl by40
-\or%3
-\def\centeraaa{\@memberb}\@ylswtrue
-\advance\x@ryl by50
-\advance\y@ryl by30
-\or%4
-\def\centeraaa{\@memberb}\@ylswtrue
-\advance\x@ryl by50
-\advance\y@ryl by0
-\or%5
-\def\centeraaa{\@memberb}\@ylswtrue
-\advance\x@ryl by50
-\advance\y@ryl by-30
-\or%6
-\def\centeraaa{\@memberb}\@ylswtrue
-\advance\x@ryl by50
-\advance\y@ryl by-50
-\or%7
-\def\centeraaa{\@memberb}\@ylswtrue
-\advance\x@ryl by30
-\advance\y@ryl by-50
-\or%8
-\def\centeraaa{\@memberb}\@ylswtrue
-\advance\y@ryl by-50
-\fi
-\fi\fi}%
- \yl@shiftii=-\x@ryl
- \yl@shifti=-\y@ryl
- \advance\yl@shiftii\yl@xdiff
- \advance\yl@shifti\yl@ydiff
- \begin{picture}(0,0)(-\yl@shiftii,-\yl@shifti)
-\ifx\centeraaa\empty\else%
-   \@clipfusetrue
-   \putratom{-40}{-30}{\centeraaa}%  % right type
-\fi%
-\@forsemicol\member:=#2\do{%
-\ifx\member\empty\else%
-\expandafter\@m@mb@r\member;\relax%
-\expandafter\threech@r\@membera{}{}%
-\ifcase\@tmpa%
-\setatombonda% 0 (upward) (0,1)
-\or\setatombondD%1 (-3,5)
-\or\setatombondH%2 (-1,1)
-\or\setatombondd%3 (-5,3)
-\or\setatombondh%4 (-1,0)
-\or\setatombondg%5 (-5,-3)
-\or\setatombondC%6 (-1,-1)
-\or\setatombondG%7 (-3,-5)
-\or\setatombondc%8 (0,-1)
-\fi%end of ifcase
-\fi
-}\end{picture}}%               %end of \lyl macro
-\def\setatombondD{%% (-3,5)
-  \if@clipfuse%
-   \if\@tmpb B%beta single bond
-      \yl@xdiff=-10\relax
-      \yl@ydiff=-10\relax
-           {%
-           \thicklines%
-           \put(-30,50){\line(-3,5){60}}%       % single bond at 1
-           }%
-   \else\if\@tmpb A%alpha single bond
-      \yl@xdiff=-10\relax
-      \yl@ydiff=-10\relax
-       \@ifundefined{dottedline}{%
-           \put(-30,50){\line(-3,5){60}}%       % single bond at 1
-           }{{\thicklines%
-              \dottedline{20}(-30,50)(-90,150)}}%
-   \else\if\@tmpb U%unspecified single bond
-      \yl@xdiff=-10\relax
-      \yl@ydiff=-10\relax
-           \put(-30,50){\line(-3,5){60}}%       % single bond at 1
-   \else\if\@tmpb S%beta single bond
-      \yl@xdiff=-10\relax
-      \yl@ydiff=-10\relax
-           \put(-30,50){\line(-3,5){60}}%       % single bond at 1
-   \else\if\@tmpb D%double bond
-      \yl@xdiff=-10\relax
-      \yl@ydiff=-10\relax
-           \put(-40,44){\line(-3,5){60}}%       % single bond at 1
-           \put(-20,56){\line(-3,5){60}}%       % single bond at 1
-   \else\if\@tmpb T%triple bond
-      \yl@xdiff=-10\relax
-      \yl@ydiff=-10\relax
-           \put(-45,41){\line(-3,5){60}}%       % single bond at 1
-           \put(-30,50){\line(-3,5){60}}%       % single bond at 1
-           \put(-15,59){\line(-3,5){60}}%       % single bond at 1
-   \else\ifx\@tmpb\empty%beta single bond
-      \yl@xdiff=-10\relax
-      \yl@ydiff=-10\relax
-           \put(-30,50){\line(-3,5){60}}%       % single bond at 1
-   \fi\fi\fi\fi\fi\fi\fi%
-           \putlatom{-80}{160}{\@memberb}%    % left type
-  \else%no clipping
-   \if\@tmpb B%beta single bond
-      \yl@xdiff=-10\relax
-      \yl@ydiff=-10\relax
-           {%
-           \thicklines%
-           \put(0,0){\line(-3,5){90}}%       % single bond at 1
-           }%
-   \else\if\@tmpb A%alpha single bond
-      \yl@xdiff=-10\relax
-      \yl@ydiff=-10\relax
-       \@ifundefined{dottedline}{%
-           \put(0,0){\line(-3,5){90}}%       % single bond at 1
-           }{{\thicklines%
-              \dottedline{20}(0,0)(-90,150)}}%
-   \else\if\@tmpb U%unspecified single bond
-      \yl@xdiff=-10\relax
-      \yl@ydiff=-10\relax
-           \put(0,0){\line(-3,5){90}}%       % single bond at 1
-   \else\if\@tmpb S%beta single bond
-      \yl@xdiff=-10\relax
-      \yl@ydiff=-10\relax
-           \put(0,0){\line(-3,5){90}}%       % single bond at 1
-   \else\if\@tmpb D%beta single bond
-      \yl@xdiff=-10\relax
-      \yl@ydiff=-10\relax
-           \put(-10,-6){\line(-3,5){90}}%       % single bond at 1
-           \put(10,6){\line(-3,5){90}}%       % single bond at 1
-   \else\if\@tmpb T%beta single bond
-      \yl@xdiff=-10\relax
-      \yl@ydiff=-10\relax
-           \put(-15,-9){\line(-3,5){90}}%       % single bond at 1
-           \put(0,0){\line(-3,5){90}}%       % single bond at 1
-           \put(15,9){\line(-3,5){90}}%       % single bond at 1
-   \else\ifx\@tmpb\empty%beta single bond
-      \yl@xdiff=-10\relax
-      \yl@ydiff=-10\relax
-           \put(0,0){\line(-3,5){90}}%       % single bond at 1
-   \fi\fi\fi\fi\fi\fi\fi%
-           \putlatom{-80}{160}{\@memberb}%    % left type
-  \fi%
-}% end of \setatombondD
-\def\setatombondG{%% (-3,-5)
-  \if@clipfuse%
-      \yl@xdiff=-10\relax
-      \yl@ydiff=70\relax
-   \if\@tmpb B%beta single bond
-           {%
-           \thicklines%
-           \put(-30,-50){\line(-3,-5){60}}%       % single bond at 1
-           }%
-   \else\if\@tmpb A%alpha single bond
-       \@ifundefined{dottedline}{%
-           \put(-30,-50){\line(-3,-5){60}}%       % single bond at 1
-           }{{\thicklines%
-              \dottedline{20}(-30,-50)(-90,-150)}}%
-   \else\if\@tmpb U%unspecified single bond
-           \put(-30,-50){\line(-3,-5){60}}%       % single bond at 1
-   \else\if\@tmpb S%beta single bond
-           \put(-30,-50){\line(-3,-5){60}}%       % single bond at 1
-   \else\if\@tmpb D%double bond
-           \put(-40,-44){\line(-3,-5){60}}%       % single bond at 1
-           \put(-20,-56){\line(-3,-5){60}}%       % single bond at 1
-   \else\if\@tmpb T%triple bond
-           \put(-45,-41){\line(-3,-5){60}}%       % single bond at 1
-           \put(-30,-50){\line(-3,-5){60}}%       % single bond at 1
-           \put(-15,-59){\line(-3,-5){60}}%       % single bond at 1
-   \else\ifx\@tmpb\empty%beta single bond
-           \put(-30,-50){\line(-3,-5){60}}%       % single bond at 1
-   \fi\fi\fi\fi\fi\fi\fi%
-           \putlatom{-80}{-220}{\@memberb}%    % left type
-  \else%no clipping
-      \yl@xdiff=-10\relax
-      \yl@ydiff=70\relax
-   \if\@tmpb B%beta single bond
-           {%
-           \thicklines%
-           \put(0,0){\line(-3,-5){90}}%       % single bond at 1
-           }%
-   \else\if\@tmpb A%alpha single bond
-       \@ifundefined{dottedline}{%
-           \put(0,0){\line(-3,-5){90}}%       % single bond at 1
-           }{{\thicklines%
-              \dottedline{20}(0,0)(-90,-150)}}%
-   \else\if\@tmpb U%unspecified single bond
-           \put(0,0){\line(-3,-5){90}}%       % single bond at 1
-   \else\if\@tmpb S%beta single bond
-           \put(0,0){\line(-3,-5){90}}%       % single bond at 1
-   \else\if\@tmpb D%beta single bond
-           \put(-10,6){\line(-3,-5){90}}%       % single bond at 1
-           \put(10,-6){\line(-3,-5){90}}%       % single bond at 1
-   \else\if\@tmpb T%beta single bond
-           \put(-15,9){\line(-3,-5){90}}%       % single bond at 1
-           \put(0,0){\line(-3,-5){90}}%       % single bond at 1
-           \put(15,-9){\line(-3,-5){90}}%       % single bond at 1
-   \else\ifx\@tmpb\empty%beta single bond
-           \put(0,0){\line(-3,-5){90}}%       % single bond at 1
-   \fi\fi\fi\fi\fi\fi\fi%
-           \putlatom{-80}{-220}{\@memberb}%    % left type
-  \fi%
-}% end of \setatombondG
-\def\setatombondH{%% (-1,1)
-      \yl@xdiff=0\relax
-      \yl@ydiff=0\relax
-  \if@clipfuse%
-   \if\@tmpb B%beta single bond
-           {%
-           \thicklines%
-           \put(-40,40){\line(-1,1){100}}%       % single bond at 1
-           }%
-   \else\if\@tmpb A%alpha single bond
-       \@ifundefined{dottedline}{%
-           \put(-40,40){\line(-1,1){100}}%       % single bond at 1
-           }{{\thicklines%
-              \dottedline{20}(-40,40)(-140,140)}}%
-   \else\if\@tmpb U%unspecified single bond
-           \put(-40,40){\line(-1,1){100}}%       % single bond at 1
-   \else\if\@tmpb S%beta single bond
-           \put(-40,40){\line(-1,1){100}}%       % single bond at 1
-   \else\if\@tmpb D%double bond
-           \put(-46,36){\line(-1,1){100}}%       % single bond at 1
-           \put(-36,46){\line(-1,1){100}}%       % single bond at 1
-   \else\if\@tmpb T%triple bond
-           \put(-50,30){\line(-1,1){100}}%       % single bond at 1
-           \put(-40,40){\line(-1,1){100}}%       % single bond at 1
-           \put(-30,50){\line(-1,1){100}}%       % single bond at 1
-   \else\ifx\@tmpb\empty%beta single bond
-           \put(-40,40){\line(-1,1){100}}%       % single bond at 1
-   \fi\fi\fi\fi\fi\fi\fi%
-           \putlatom{-140}{140}{\@memberb}%    % left type
-  \else%no clipping
-   \if\@tmpb B%beta single bond
-           {%
-           \thicklines%
-           \put(0,0){\line(-1,1){120}}%       % single bond at 1
-           }%
-   \else\if\@tmpb A%alpha single bond
-       \@ifundefined{dottedline}{%
-           \put(0,0){\line(-1,1){120}}%       % single bond at 1
-           }{{\thicklines%
-              \dottedline{20}(0,0)(-120,120)}}%
-   \else\if\@tmpb U%unspecified single bond
-           \put(0,0){\line(-1,1){120}}%       % single bond at 1
-   \else\if\@tmpb S%beta single bond
-           \put(0,0){\line(-1,1){120}}%       % single bond at 1
-   \else\if\@tmpb D%beta single bond
-           \put(-6,-6){\line(-1,1){120}}%       % single bond at 1
-           \put(6,6){\line(-1,1){120}}%       % single bond at 1
-   \else\if\@tmpb T%beta single bond
-           \put(-10,-10){\line(-1,1){120}}%       % single bond at 1
-           \put(0,0){\line(-1,1){120}}%       % single bond at 1
-           \put(10,10){\line(-1,1){120}}%       % single bond at 1
-   \else\ifx\@tmpb\empty%beta single bond
-           \put(0,0){\line(-1,1){120}}%       % single bond at 1
-   \fi\fi\fi\fi\fi\fi\fi%
-           \putlatom{-120}{120}{\@memberb}%    % left type
-  \fi%
-}% end of \setatombondH
-\def\setatombondC{%% (-1,-1)
-  \if@clipfuse%
-      \yl@xdiff=0\relax
-      \yl@ydiff=60\relax
-   \if\@tmpb B%beta single bond
-           {%
-           \thicklines%
-           \put(-40,-40){\line(-1,-1){100}}%       % single bond at 1
-           }%
-   \else\if\@tmpb A%alpha single bond
-       \@ifundefined{dottedline}{%
-           \put(-40,-40){\line(-1,-1){100}}%       % single bond at 1
-           }{{\thicklines%
-              \dottedline{20}(-40,-40)(-140,-140)}}%
-   \else\if\@tmpb U%unspecified single bond
-           \put(-40,-40){\line(-1,-1){100}}%       % single bond at 1
-   \else\if\@tmpb S%beta single bond
-           \put(-40,-40){\line(-1,-1){100}}%       % single bond at 1
-   \else\if\@tmpb D%double bond
-           \put(-46,-36){\line(-1,-1){100}}%       % single bond at 1
-           \put(-36,-46){\line(-1,-1){100}}%       % single bond at 1
-   \else\if\@tmpb T%triple bond
-           \put(-50,-30){\line(-1,-1){100}}%       % single bond at 1
-           \put(-40,-40){\line(-1,-1){100}}%       % single bond at 1
-           \put(-30,-50){\line(-1,-1){100}}%       % single bond at 1
-   \else\ifx\@tmpb\empty%beta single bond
-           \put(-40,-40){\line(-1,-1){100}}%       % single bond at 1
-   \fi\fi\fi\fi\fi\fi\fi%
-           \putlatom{-140}{-200}{\@memberb}%    % left type
-  \else%no clipping
-      \yl@xdiff=0\relax
-      \yl@ydiff=60\relax
-   \if\@tmpb B%beta single bond
-           {%
-           \thicklines%
-           \put(0,0){\line(-1,-1){120}}%       % single bond at 1
-           }%
-   \else\if\@tmpb A%alpha single bond
-       \@ifundefined{dottedline}{%
-           \put(0,0){\line(-1,-1){120}}%       % single bond at 1
-           }{{\thicklines%
-              \dottedline{20}(0,0)(-120,-120)}}%
-   \else\if\@tmpb U%unspecified single bond
-           \put(0,0){\line(-1,-1){120}}%       % single bond at 1
-   \else\if\@tmpb S%beta single bond
-           \put(0,0){\line(-1,-1){120}}%       % single bond at 1
-   \else\if\@tmpb D%beta single bond
-           \put(-6,6){\line(-1,-1){120}}%       % single bond at 1
-           \put(6,-6){\line(-1,-1){120}}%       % single bond at 1
-   \else\if\@tmpb T%beta single bond
-           \put(-10,10){\line(-1,-1){120}}%       % single bond at 1
-           \put(0,0){\line(-1,-1){120}}%       % single bond at 1
-           \put(10,-10){\line(-1,-1){120}}%       % single bond at 1
-   \else\ifx\@tmpb\empty%beta single bond
-           \put(0,0){\line(-1,-1){120}}%       % single bond at 1
-   \fi\fi\fi\fi\fi\fi\fi%
-           \putlatom{-120}{-180}{\@memberb}%    % left type
-  \fi%
-}% end of \setatombondC
-\def\ayl{\@ifnextchar({\@ayl@}{\@ayl@(10,40)}}
-\def\@ayl@(#1,#2)#3{\begingroup\yl@xdiff=0 \yl@ydiff=0%
-\kern#1\unitlength\raise#2\unitlength\hbox to0pt{#3\hss}%
-\endgroup}
-\def\upnobond#1#2{%
-\hbox{\hbox to0.72em{\hss#1\hss}\kern-0.72em\raise2.2ex\hbox{#2}}}
-\def\downnobond#1#2{%
-\hbox{\hbox to0.72em{\hss#1\hss}\kern-0.72em\lower2.2ex\hbox{#2}}}
-\def\test@vertix#1{%
-   \expandafter\def\csname #1#1#1\endcsname{@}%
-   \if\@tmpb h\relax
-    \expandafter\def\csname #1#1#1\endcsname{@}%
-   \else\if\@tmpb s\relax
-   \expandafter\def\csname #1#1#1\endcsname{}%
-   \fi\fi}
-\def\test@vertix@sixv#1#2#3#4#5#6#7{%
-\@forsemicol\member:=#1\do{%
-\ifx\member\empty\else%
-\expandafter\@m@mb@r\member;\relax%
-\expandafter\twoCH@R\@membera//%
-\ifcase\@tmpa%
- \or \test@vertix{#2}%
- \or \test@vertix{#3}%
- \or \test@vertix{#4}%
- \or
-   \if\@tmpb a%
-     \def\iii{@}%
-   \else
-     \test@vertix{#5}%
-   \fi
- \or \test@vertix{#6}%
- \or \test@vertix{#7}%
-\fi\fi}}% end of \test@vertix@sixv
-%% \changes{v2.00}{1996/11/14}{@ in place of a net value}
-\def\set@hetatom@sixv#1#2#3#4#5{%
-\@forsemicol\member:=#1\do{%
-\ifx\member\empty\else%
-\expandafter\@m@mb@r\member;\relax%
-\expandafter\twoch@r\@membera{}%
-\ifnum#5 < 0\relax%
-\@tmpaa=-\@tmpa\relax \advance\@tmpaa by#2\relax%
-\else\@tmpaa=\@tmpa\relax \advance\@tmpaa by#2\relax \fi
-\ifnum\@tmpaa >#3\relax%
-\ifnum\@tmpaa <#4\relax%
-\ifcase\@tmpaa%
-\or%position 1
-  \if\@tmpb h\relax
-     \@acliptrue%
-     \putratom{0}{356}{\@memberb}%  % right type
-   \else\if\@tmpb s\relax
-     \@aclipfalse%
-     \putratom{0}{406}{\@memberb}%  % right type
-   \else\if\@tmpb a\relax%omit fused position
-   \else
-     \@acliptrue%
-     \putratom{-31}{356}{\@memberb}%  % right type
-   \fi\fi\fi
-\or%position 2
-  \if\@tmpb h\relax
-     \@bcliptrue%
-     \putratom{135}{280}{\@memberb}%  % right type
-   \else\if\@tmpb s\relax
-     \@bclipfalse%
-     \putratom{175}{303}{\@memberb}%  % right type
-   \else\if\@tmpb a\relax%omit fused position
-   \else
-     \@bcliptrue%
-     \putratom{135}{280}{\@memberb}%  % right type
-   \fi\fi\fi
-\or%position 3
-  \if\@tmpb h\relax
-     \@ccliptrue%
-     \putratom{135}{95}{\@memberb}%  % right type
-   \else\if\@tmpb s\relax
-     \@cclipfalse%
-     \putratom{175}{103}{\@memberb}%  % right type
-   \else\if\@tmpb a\relax%omit fused position
-   \else
-     \@ccliptrue%
-     \putratom{135}{65}{\@memberb}%   % right type
-   \fi\fi\fi
-\or%position 4
-  \if\@tmpb h\relax
-     \@cliptrue%
-     \putratom{0}{50}{\@memberb}%  % right type
-   \else\if\@tmpb s\relax
-     \@clipfalse%
-     \putratom{0}{0}{\@memberb}%  % right type
-   \else\if\@tmpb a\relax%omit fused position
-   \else
-     \@cliptrue%
-     \putratom{-31}{-10}{\@memberb}%  % right type
-   \fi\fi\fi
-\or%position 5
-  \if\@tmpb h\relax
-     \@ecliptrue%
-     \putlatom{-135}{95}{\@memberb}%  % right type
-   \else\if\@tmpb s\relax
-     \@eclipfalse%
-     \putlatom{-175}{103}{\@memberb}%  % right type
-   \else\if\@tmpb a\relax%omit fused position
-   \else
-     \@ecliptrue%
-     \putlatom{-135}{65}{\@memberb}%  % left type
-   \fi\fi\fi
-\or%position 6
-  \if\@tmpb h\relax
-     \@fcliptrue%
-     \putlatom{-135}{280}{\@memberb}%  % right type
-   \else\if\@tmpb s\relax
-     \@fclipfalse%
-     \putlatom{-175}{303}{\@memberb}%  % right type
-   \else\if\@tmpb a\relax%omit fused position
-   \else
-     \@fcliptrue%
-     \putlatom{-135}{280}{\@memberb}% % left type
-   \fi\fi\fi
-\fi% end of ifcase
-\fi\fi\fi}}% end of the macro \set@hetatom@sixv
-\def\set@hetatom@sixh#1#2#3#4#5{%
-\@forsemicol\member:=#1\do{%
-\ifx\member\empty\else%
-\expandafter\@m@mb@r\member;\relax%
-\expandafter\twoCH@R\@membera//%
-\ifnum#5 < 0\relax%
-\@tmpaa=-\@tmpa\relax \advance\@tmpaa by#2\relax%
-\else\@tmpaa=\@tmpa\relax \advance\@tmpaa by#2\relax \fi
-\ifnum\@tmpaa >#3\relax%
-\ifnum\@tmpaa <#4\relax%
-\ifcase\@tmpaa%
-\or%position 1
-  \if\@tmpb h\relax
-     \@acliptrue%
-     \putlatom{60}{0}{\@memberb}%  % left type
-   \else\if\@tmpb s\relax
-     \@aclipfalse%
-     \putlatom{0}{0}{\@memberb}%              % left type
-   \else\if\@tmpb a\relax%omit fused position
-   \else
-     \@acliptrue%
-     \putlatom{60}{-36}{\@memberb}%              % left type
-   \fi\fi\fi
-\or%position 2
-  \if\@tmpb h\relax
-     \@bcliptrue%
-     \putlatom{135}{141}{\@memberb}%   % left type
-   \else\if\@tmpb s\relax
-     \@bclipfalse%
-     \putlatom{103}{171}{\@memberb}%   % left type
-   \else\if\@tmpb a\relax%omit fused position
-   \else
-     \@bcliptrue%
-     \putlatom{135}{141}{\@memberb}%   % left type
-   \fi\fi\fi
-\or%position 3
-  \if\@tmpb h\relax
-     \@ccliptrue%
-     \putratom{273}{141}{\@memberb}%  % right type
-   \else\if\@tmpb s\relax
-     \@cclipfalse%
-     \putratom{303}{171}{\@memberb}%  % right type
-   \else\if\@tmpb a\relax%omit fused position
-   \else
-     \@ccliptrue%
-     \putratom{273}{141}{\@memberb}%  % right type
-   \fi\fi\fi
-\or%position 4
-  \if\@tmpb h\relax
-     \@cliptrue%
-   \putratom{346}{0}{\@memberb}%  % right type
-   \else\if\@tmpb s\relax
-     \@clipfalse%
-   \putratom{406}{0}{\@memberb}%  % right type
-   \else\if\@tmpb a\relax%omit fused position
-   \else
-     \@cliptrue%
-   \putratom{346}{-36}{\@memberb}%  % right type
-   \fi\fi\fi
-\or%position 5
-  \if\@tmpb h\relax
-     \@ecliptrue%
-     \putratom{283}{-131}{\@memberb}%  % right type
-   \else\if\@tmpb s\relax
-     \@eclipfalse%
-     \putratom{303}{-171}{\@memberb}%  % right type
-   \else\if\@tmpb a\relax%omit fused position
-   \else
-     \@ecliptrue%
-     \putratom{273}{-211}{\@memberb}%  % right type
-   \fi\fi\fi
-\or%position 6
-  \if\@tmpb h\relax
-     \@fcliptrue%
-     \putlatom{125}{-131}{\@memberb}%  % left type
-   \else\if\@tmpb s\relax
-     \@fclipfalse%
-     \putlatom{103}{-171}{\@memberb}%  % left type
-   \else\if\@tmpb a\relax%omit fused position
-   \else
-     \@fcliptrue%
-     \putlatom{135}{-211}{\@memberb}%  % left type
-   \fi\fi\fi
-\fi% end of ifcase
-\fi\fi\fi}}% end of the macro \set@hetatom@sixh
-\def\test@vertix@decav#1#2#3#4#5#6#7{%
-\@forsemicol\member:=#1\do{%
-\ifx\member\empty\else%
-\expandafter\@m@mb@r\member;\relax%
-\expandafter\twoch@r\@membera{}%
-\ifcase\@tmpa%
- \or\or\or\or\or\or
- \or \test@vertix{#2}%
- \or
-   \if\@tmpb a%
-     \def\jjj{@}%
-   \else
-     \test@vertix{#3}%
-   \fi
- \or \test@vertix{#4}%
- \or \test@vertix{#5}%
-\fi\fi}}
-\def\set@vrtx@fuse#1{%
-\@forsemicol\member:=#1\do{%
-\ifx\member\empty\else%
-\expandafter\@m@mb@r\member;\relax%
-\expandafter\twoch@r\@membera{}%
-\ifcase\@tmpa%
- \or
- \or
- \or
- \or%%%%4
-   \if\@tmpb a%
-     \global\@icliptrue%
-     \putlatom{207}{65}{\@memberb}%  % left type
-   \else\relax
-   \fi
- \or%5
- \or%6
- \or%7
- \or%
-   \if\@tmpb a%
-     \global\@jcliptrue%
-     \putlatom{207}{280}{\@memberb}% % left type
-   \else\relax
-   \fi
-\or%9 (= 4a)
-     \global\@icliptrue%
-     \putlatom{207}{65}{\@memberb}%  % left type
-\or%10 (= 8a)
-     \global\@jcliptrue%
-     \putlatom{207}{280}{\@memberb}% % left type
-\fi\fi}%
-}% end of the macro \set@vrtx@fuse
-\def\set@vrtx@fuseh#1{%
-\@forsemicol\member:=#1\do{%
-\ifx\member\empty\else%
-\expandafter\@m@mb@r\member;\relax%
-\expandafter\twoCH@R\@membera//%
-\ifcase\@tmpa%
- \or
- \or
- \or
- \or%%%%4
-   \if\@tmpb a%
-     \global\@icliptrue%
-     \putratom{273}{-211}{\@memberb}%            % right type
-   \else\relax
-   \fi
- \or%5
- \or%6
- \or%7
- \or%
-   \if\@tmpb a%
-     \global\@jcliptrue%
-     \putlatom{135}{-211}{\@memberb}%            % left type
-   \else\relax
-   \fi
-\or%9 (= 4a)
-   \ifx\@tmpb\empty
-     \global\@icliptrue%
-     \putratom{273}{-211}{\@memberb}%            % right type
-   \else
-     \XyMTeXWarning{Forbidden spiro ring for the 4a position}%
-   \fi
-\or%10 (= 8a)
-   \ifx\@tmpb\empty
-     \global\@jcliptrue%
-     \putlatom{135}{-211}{\@memberb}%            % left type
-   \else
-     \XyMTeXWarning{Forbidden spiro ring for the 8a position}%
-   \fi
-\fi\fi}%
-}% end of the macro \set@vrtx@fuseh
-\def\set@fusionadd@sixv{%
-      \if\@@tmpa 1\relax%
-        \putratom{-38}{282}{\@@tmpb}%      % right type
-      \else\if\@@tmpa 2\relax%
-        \putratom{60}{253}{\@@tmpb}%       % right type
-      \else\if\@@tmpa 3\relax%
-        \putratom{60}{120}{\@@tmpb}%       % right type
-      \else\if\@@tmpa 4\relax%
-        \putratom{-38}{88}{\@@tmpb}%       % right type
-      \else\if\@@tmpa 6\relax%
-        \putratom{-90}{253}{\@@tmpb}%      % right type
-      \else\if\@@tmpa 5\relax%
-        \putratom{-90}{120}{\@@tmpb}%      % right type
-      \else
-        \set@fusion@sixv
-      \fi\fi\fi\fi\fi\fi%
-}%
-\def\set@fusion@sixv{%
-\if\@@tmpa d\relax%
-        \putlratom{0}{0}{\@@tmpb}%         % bond fused
-        \FuseWarning{171}{-103}%
-          {\fuseAx}{\fuseAy}{\fuseBx}{\fuseBy}{d, h, or other}%
-      \else\if\@@tmpa D\relax%
-        \putlratom{-171}{103}{\@@tmpb}%     % bond fused
-        \FuseWarning{-171}{103}%
-          {\fuseAx}{\fuseAy}{\fuseBx}{\fuseBy}{D, H, or other}%
-      \else\if\@@tmpa e\relax%
-        \putlratom{-171}{103}{\@@tmpb}%     % bond fused
-        \FuseWarning{0}{-200}%
-          {\fuseAx}{\fuseAy}{\fuseBx}{\fuseBy}{e, k, or other}%
-      \else\if\@@tmpa E\relax%
-        \putlratom{-171}{303}{\@@tmpb}%     % bond fused
-        \FuseWarning{0}{200}%
-          {\fuseAx}{\fuseAy}{\fuseBx}{\fuseBy}{E, K, or other}%
-      \else\if\@@tmpa f\relax%
-        \putlratom{-171}{303}{\@@tmpb}%     % bond fused
-        \FuseWarning{-171}{-103}%
-          {\fuseAx}{\fuseAy}{\fuseBx}{\fuseBy}{f, j, or other}%
-      \else\if\@@tmpa F\relax%
-        \putlratom{0}{406}{\@@tmpb}%       % bond fused
-        \FuseWarning{171}{103}%
-          {\fuseAx}{\fuseAy}{\fuseBx}{\fuseBy}{F, J, or other}%
-      \else\if\@@tmpa a\relax%
-        \putlratom{0}{406}{\@@tmpb}%       % bond fused
-        \FuseWarning{-171}{103}%
-          {\fuseAx}{\fuseAy}{\fuseBx}{\fuseBy}{a, i, or other}%
-      \else\if\@@tmpa A\relax%
-        \putlratom{171}{303}{\@@tmpb}%    % bond fused
-        \FuseWarning{171}{-103}%
-          {\fuseAx}{\fuseAy}{\fuseBx}{\fuseBy}{A, I, or other}%
-      \else\if\@@tmpa b\relax%
-        \putlratom{171}{303}{\@@tmpb}%    % bond fused
-        \FuseWarning{0}{200}%
-          {\fuseAx}{\fuseAy}{\fuseBx}{\fuseBy}{b, k, or other}%
-      \else\if\@@tmpa B\relax%
-        \putlratom{171}{103}{\@@tmpb}%    % bond fused
-        \FuseWarning{0}{-200}%
-          {\fuseAx}{\fuseAy}{\fuseBx}{\fuseBy}{B, K, or other}%
-      \else\if\@@tmpa c\relax%
-        \putlratom{171}{103}{\@@tmpb}%    % bond fused
-        \FuseWarning{171}{103}%
-          {\fuseAx}{\fuseAy}{\fuseBx}{\fuseBy}{c, e, or other}%
-      \else\if\@@tmpa C\relax%
-        \putlratom{0}{0}{\@@tmpb}%      % bond fused
-        \FuseWarning{-171}{-103}%
-          {\fuseAx}{\fuseAy}{\fuseBx}{\fuseBy}{C, E, or other}%
-      \fi\fi\fi\fi\fi\fi\fi\fi\fi\fi\fi\fi%
-}% end of the macro \set@fusion@sixv
-\def\set@fusionadd@sixvi{%
-      \if\@@tmpa 4\relax%
-        \putratom{-38}{282}{\@@tmpb}%      % right type
-      \else\if\@@tmpa 3\relax%
-        \putratom{60}{253}{\@@tmpb}%       % right type
-      \else\if\@@tmpa 2\relax%
-        \putratom{60}{120}{\@@tmpb}%       % right type
-      \else\if\@@tmpa 1\relax%
-        \putratom{-38}{88}{\@@tmpb}%       % right type
-      \else\if\@@tmpa 5\relax%
-        \putratom{-90}{253}{\@@tmpb}%      % right type
-      \else\if\@@tmpa 6\relax%
-        \putratom{-90}{120}{\@@tmpb}%      % right type
-      \else
-        \set@fusion@sixvi
-      \fi\fi\fi\fi\fi\fi%
-}% end of the macro \set@fusionadd@sixvi
-\def\set@fusion@sixvi{%
- \if\@@tmpa a\relax%
-        \putlratom{0}{0}{\@@tmpb}%      % right type
-        \FuseWarning{-171}{-103}%
-          {\fuseAx}{\fuseAy}{\fuseBx}{\fuseBy}{a or other}%
-      \else\if\@@tmpa A\relax%
-        \putlratom{171}{103}{\@@tmpb}%      % right type
-        \FuseWarning{171}{103}%
-          {\fuseAx}{\fuseAy}{\fuseBx}{\fuseBy}{A or other}%
-      \else\if\@@tmpa b\relax%
-        \putlratom{171}{103}{\@@tmpb}%      % right type
-        \FuseWarning{0}{-200}%
-          {\fuseAx}{\fuseAy}{\fuseBx}{\fuseBy}{b or other}%
-      \else\if\@@tmpa B\relax%
-        \putlratom{171}{303}{\@@tmpb}%      % right type
-        \FuseWarning{0}{200}%
-          {\fuseAx}{\fuseAy}{\fuseBx}{\fuseBy}{B or other}%
-      \else\if\@@tmpa c\relax%
-        \putlratom{171}{303}{\@@tmpb}%      % right type
-        \FuseWarning{171}{-103}%
-          {\fuseAx}{\fuseAy}{\fuseBx}{\fuseBy}{c or other}%
-      \else\if\@@tmpa C\relax%
-        \putlratom{0}{406}{\@@tmpb}%      % right type
-        \FuseWarning{-171}{103}%
-          {\fuseAx}{\fuseAy}{\fuseBx}{\fuseBy}{C or other}%
-      \else\if\@@tmpa d\relax%
-        \putlratom{0}{406}{\@@tmpb}%      % right type
-        \FuseWarning{171}{103}%
-          {\fuseAx}{\fuseAy}{\fuseBx}{\fuseBy}{d or other}%
-      \else\if\@@tmpa D\relax%
-        \putlratom{-171}{303}{\@@tmpb}%      % right type
-        \FuseWarning{-171}{-103}%
-          {\fuseAx}{\fuseAy}{\fuseBx}{\fuseBy}{D or other}%
-      \else\if\@@tmpa e\relax%
-        \putlratom{-171}{303}{\@@tmpb}%      % right type
-        \FuseWarning{0}{200}%
-          {\fuseAx}{\fuseAy}{\fuseBx}{\fuseBy}{e or other}%
-      \else\if\@@tmpa E\relax%
-        \putlratom{-171}{103}{\@@tmpb}%      % right type
-        \FuseWarning{0}{-200}%
-          {\fuseAx}{\fuseAy}{\fuseBx}{\fuseBy}{E or other}%
-      \else\if\@@tmpa f\relax%
-        \putlratom{-171}{103}{\@@tmpb}%      % right type
-        \FuseWarning{171}{-103}%
-          {\fuseAx}{\fuseAy}{\fuseBx}{\fuseBy}{f or other}%
-      \else\if\@@tmpa F\relax%
-        \putlratom{0}{0}{\@@tmpb}%      % right type
-        \FuseWarning{-171}{103}%
-          {\fuseAx}{\fuseAy}{\fuseBx}{\fuseBy}{F or other}%
-      \fi\fi\fi\fi\fi\fi\fi\fi\fi\fi\fi\fi%
-}% end of the marcro \set@fusion@sixvi
-\def\set@fusionadd@sixh{%
-      \if\@@tmpa 4\relax%
-        \putratom{272}{-18}{\@@tmpb}%      % right type
-      \else\if\@@tmpa 1\relax%
-        \putratom{68}{-18}{\@@tmpb}%       % right type
-      \else\if\@@tmpa 3\relax%
-        \putratom{233}{60}{\@@tmpb}%       % right type
-      \else\if\@@tmpa 2\relax%
-        \putratom{120}{60}{\@@tmpb}%       % right type
-      \else\if\@@tmpa 5\relax%
-        \putratom{233}{-110}{\@@tmpb}%     % right type
-      \else\if\@@tmpa 6\relax%
-        \putratom{120}{-110}{\@@tmpb}%     % right type
-      \else
-        \set@fusion@sixh
-      \fi\fi\fi\fi\fi\fi%
-}%
-\def\set@fusion@sixh{%
-\if\@@tmpa d\relax%
-        \putlratom{406}{0}{\@@tmpb}%         % bond fused
-        \FuseWarning{103}{171}%
-          {\fuseAx}{\fuseAy}{\fuseBx}{\fuseBy}{d, h, or other}%
-      \else\if\@@tmpa D\relax%
-        \putlratom{303}{-171}{\@@tmpb}%     % bond fused
-        \FuseWarning{-103}{-171}%
-          {\fuseAx}{\fuseAy}{\fuseBx}{\fuseBy}{D, H, or other}%
-      \else\if\@@tmpa e\relax%
-        \putlratom{303}{-171}{\@@tmpb}%     % bond fused
-        \FuseWarning{200}{0}%
-          {\fuseAx}{\fuseAy}{\fuseBx}{\fuseBy}{e, k, or other}%
-      \else\if\@@tmpa E\relax%
-        \putlratom{103}{-171}{\@@tmpb}%     % bond fused
-        \FuseWarning{-200}{0}%
-          {\fuseAx}{\fuseAy}{\fuseBx}{\fuseBy}{E, K, or other}%
-      \else\if\@@tmpa f\relax%
-        \putlratom{103}{-171}{\@@tmpb}%     % bond fused
-        \FuseWarning{103}{-171}%
-          {\fuseAx}{\fuseAy}{\fuseBx}{\fuseBy}{f, j, or other}%
-      \else\if\@@tmpa F\relax%
-        \putlratom{0}{0}{\@@tmpb}%       % bond fused
-        \FuseWarning{-103}{171}%
-          {\fuseAx}{\fuseAy}{\fuseBx}{\fuseBy}{F, J, or other}%
-      \else\if\@@tmpa a\relax%
-        \putlratom{0}{0}{\@@tmpb}%       % bond fused
-        \FuseWarning{-103}{-171}%
-          {\fuseAx}{\fuseAy}{\fuseBx}{\fuseBy}{a, i, or other}%
-      \else\if\@@tmpa A\relax%
-        \putlratom{103}{171}{\@@tmpb}%    % bond fused
-        \FuseWarning{103}{171}%
-          {\fuseAx}{\fuseAy}{\fuseBx}{\fuseBy}{A, I, or other}%
-      \else\if\@@tmpa b\relax%
-        \putlratom{103}{171}{\@@tmpb}%    % bond fused
-        \FuseWarning{-200}{0}%
-          {\fuseAx}{\fuseAy}{\fuseBx}{\fuseBy}{b, k, or other}%
-      \else\if\@@tmpa B\relax%
-        \putlratom{303}{171}{\@@tmpb}%    % bond fused
-        \FuseWarning{200}{0}%
-          {\fuseAx}{\fuseAy}{\fuseBx}{\fuseBy}{B, K, or other}%
-      \else\if\@@tmpa c\relax%
-        \putlratom{303}{171}{\@@tmpb}%    % bond fused
-        \FuseWarning{-103}{171}%
-          {\fuseAx}{\fuseAy}{\fuseBx}{\fuseBy}{c, e, or other}%
-      \else\if\@@tmpa C\relax%
-        \putlratom{406}{0}{\@@tmpb}%      % bond fused
-        \FuseWarning{103}{-171}%
-          {\fuseAx}{\fuseAy}{\fuseBx}{\fuseBy}{C, E, or other}%
-      \fi\fi\fi\fi\fi\fi\fi\fi\fi\fi\fi\fi%
-}% end of the macro \set@fusion@sixh
-\def\set@fusionadd@sixhi{%
-      \if\@@tmpa 1\relax%
-        \putratom{272}{-18}{\@@tmpb}%      % right type
-      \else\if\@@tmpa 4\relax%
-        \putratom{68}{-18}{\@@tmpb}%       % right type
-      \else\if\@@tmpa 2\relax%
-        \putratom{233}{60}{\@@tmpb}%       % right type
-      \else\if\@@tmpa 3\relax%
-        \putratom{120}{60}{\@@tmpb}%       % right type
-      \else\if\@@tmpa 6\relax%
-        \putratom{233}{-110}{\@@tmpb}%      % right type
-      \else\if\@@tmpa 5\relax%
-        \putratom{120}{-110}{\@@tmpb}%      % right type
-      \else
-        \set@fusion@sixhi
-      \fi\fi\fi\fi\fi\fi%
-}%
-\def\set@fusion@sixhi{%
-\if\@@tmpa F\relax%
-        \putlratom{406}{0}{\@@tmpb}%         % bond fused
-        \FuseWarning{103}{171}%
-          {\fuseAx}{\fuseAy}{\fuseBx}{\fuseBy}{F, J, or other}%
-      \else\if\@@tmpa f\relax%
-        \putlratom{303}{-171}{\@@tmpb}%     % bond fused
-        \FuseWarning{-103}{-171}%
-          {\fuseAx}{\fuseAy}{\fuseBx}{\fuseBy}{f, j, or other}%
-      \else\if\@@tmpa E\relax%
-        \putlratom{303}{-171}{\@@tmpb}%     % bond fused
-        \FuseWarning{200}{0}%
-          {\fuseAx}{\fuseAy}{\fuseBx}{\fuseBy}{E, K, or other}%
-      \else\if\@@tmpa e\relax%
-        \putlratom{103}{-171}{\@@tmpb}%     % bond fused
-        \FuseWarning{-200}{0}%
-          {\fuseAx}{\fuseAy}{\fuseBx}{\fuseBy}{e, k, or other}%
-      \else\if\@@tmpa D\relax%
-        \putlratom{103}{-171}{\@@tmpb}%     % bond fused
-        \FuseWarning{103}{-171}%
-          {\fuseAx}{\fuseAy}{\fuseBx}{\fuseBy}{D, H, or other}%
-      \else\if\@@tmpa d\relax%
-        \putlratom{0}{0}{\@@tmpb}%       % bond fused
-        \FuseWarning{-103}{171}%
-          {\fuseAx}{\fuseAy}{\fuseBx}{\fuseBy}{d, h, or other}%
-      \else\if\@@tmpa C\relax%
-        \putlratom{0}{0}{\@@tmpb}%       % bond fused
-        \FuseWarning{-103}{-171}%
-          {\fuseAx}{\fuseAy}{\fuseBx}{\fuseBy}{C, E, or other}%
-      \else\if\@@tmpa c\relax%
-        \putlratom{103}{171}{\@@tmpb}%    % bond fused
-        \FuseWarning{103}{171}%
-          {\fuseAx}{\fuseAy}{\fuseBx}{\fuseBy}{c, e, or other}%
-      \else\if\@@tmpa B\relax%
-        \putlratom{103}{171}{\@@tmpb}%    % bond fused
-        \FuseWarning{-200}{0}%
-          {\fuseAx}{\fuseAy}{\fuseBx}{\fuseBy}{B, K, or other}%
-      \else\if\@@tmpa b\relax%
-        \putlratom{303}{171}{\@@tmpb}%    % bond fused
-        \FuseWarning{200}{0}%
-          {\fuseAx}{\fuseAy}{\fuseBx}{\fuseBy}{b, k, or other}%
-      \else\if\@@tmpa A\relax%
-        \putlratom{303}{171}{\@@tmpb}%    % bond fused
-        \FuseWarning{-103}{171}%
-          {\fuseAx}{\fuseAy}{\fuseBx}{\fuseBy}{A, I, or other}%
-      \else\if\@@tmpa a\relax%
-        \putlratom{406}{0}{\@@tmpb}%      % bond fused
-        \FuseWarning{103}{-171}%
-          {\fuseAx}{\fuseAy}{\fuseBx}{\fuseBy}{a, i, or other}%
-      \fi\fi\fi\fi\fi\fi\fi\fi\fi\fi\fi\fi%
-}% end of the macro \set@fusion@sixhi
-\def\UnfavorableFusion#1{\if@smallringsw\else
-\XyMTeXWarning{Unfavorable Fusion for bond `#1'}\fi}
-\def\ForbiddenFusion#1{\if@smallringsw\else
-\XyMTeXWarning{Forbidden Fusion for bond `#1'}\fi}
-\def\set@fusion@decav{%
-  \let\@@tmpa=\@tmpa
-  \let\@@tmpb=\@tmpb
-  \if\@tmpa a%
-      \let\@@tmpa=\@tmpa
-      \put(342,0){\set@fusionadd@sixv}%
-  \else\if\@tmpa A%
-      \let\@@tmpa=\@tmpa
-      \put(342,0){\set@fusionadd@sixv}%
-  \else\if\@tmpa b%
-      \let\@@tmpa=\@tmpa
-      \put(342,0){\set@fusionadd@sixv}%
-  \else\if\@tmpa B%
-      \let\@@tmpa=\@tmpa
-      \put(342,0){\set@fusionadd@sixv}%
-  \else\if\@tmpa c%
-      \let\@@tmpa=\@tmpa
-      \put(342,0){\set@fusionadd@sixv}%
-  \else\if\@tmpa C%
-      \let\@@tmpa=\@tmpa
-      \put(342,0){\set@fusionadd@sixv}%
-  \else\if\@tmpa d%
-      \let\@@tmpa=\@tmpa
-      \put(342,0){\set@fusionadd@sixv}%
-      \UnfavorableFusion{d}%
-  \else\if\@tmpa D%
-      \let\@@tmpa=\@tmpa
-      \put(342,0){\set@fusionadd@sixv}%
-      \UnfavorableFusion{D}%
-  \else\if\@tmpa e%
-      \edef\@@tmpa{c}%
-      \put(0,0){\set@fusionadd@sixv}%
-      \UnfavorableFusion{e}%
-  \else\if\@tmpa E%
-      \edef\@@tmpa{C}%
-      \put(0,0){\set@fusionadd@sixv}%
-      \UnfavorableFusion{E}%
-  \else\if\@tmpa f%
-      \edef\@@tmpa{d}%
-      \put(0,0){\set@fusionadd@sixv}%
-  \else\if\@tmpa F%
-      \edef\@@tmpa{D}%
-      \put(0,0){\set@fusionadd@sixv}%
-  \else\if\@tmpa g%
-      \edef\@@tmpa{e}%
-      \put(0,0){\set@fusionadd@sixv}%
-  \else\if\@tmpa G%
-      \edef\@@tmpa{E}%
-      \put(0,0){\set@fusionadd@sixv}%
-  \else\if\@tmpa h%
-      \edef\@@tmpa{f}%
-      \put(0,0){\set@fusionadd@sixv}%
-  \else\if\@tmpa H%
-      \edef\@@tmpa{F}%
-      \put(0,0){\set@fusionadd@sixv}%
-  \else\if\@tmpa i%
-      \edef\@@tmpa{a}%
-      \put(0,0){\set@fusionadd@sixv}%
-      \UnfavorableFusion{i}%
-  \else\if\@tmpa I%
-      \edef\@@tmpa{A}%
-      \put(0,0){\set@fusionadd@sixv}%
-      \UnfavorableFusion{I}%
-  \else\if\@tmpa j%
-      \edef\@@tmpa{f}%
-      \put(342,0){\set@fusionadd@sixv}%
-      \UnfavorableFusion{j}%
-  \else\if\@tmpa J%
-      \edef\@@tmpa{F}%
-      \put(342,0){\set@fusionadd@sixv}%
-      \UnfavorableFusion{J}%
-  \else\if\@tmpa k%
-      \edef\@@tmpa{e}%
-      \put(342,0){\set@fusionadd@sixv}%
-      \ForbiddenFusion{k}%
-  \else\if\@tmpa K%
-      \edef\@@tmpa{E}%
-      \put(342,0){\set@fusionadd@sixv}%
-      \ForbiddenFusion{K}%
-  \fi\fi\fi\fi\fi\fi\fi\fi\fi\fi\fi\fi%
-  \fi\fi\fi\fi\fi\fi\fi\fi\fi\fi%
-}% end of the macro \set@fusion@decav
-\def\set@fusion@decavb{%
-  \let\@@tmpa=\@tmpa
-  \let\@@tmpb=\@tmpb
-  \if\@tmpa a%
-      \edef\@@tmpa{b}%
-      \put(0,0){\set@fusionadd@sixv}%
-  \else\if\@tmpa A%
-      \edef\@@tmpa{B}%
-      \put(0,0){\set@fusionadd@sixv}%
-  \else\if\@tmpa b%
-      \edef\@@tmpa{c}%
-      \put(0,0){\set@fusionadd@sixv}%
-  \else\if\@tmpa B%
-      \edef\@@tmpa{C}%
-      \put(0,0){\set@fusionadd@sixv}%
-  \else\if\@tmpa c%
-      \edef\@@tmpa{d}%
-      \put(0,0){\set@fusionadd@sixv}%
-  \else\if\@tmpa C%
-      \edef\@@tmpa{D}%
-      \put(0,0){\set@fusionadd@sixv}%
-  \else\if\@tmpa d%
-      \edef\@@tmpa{e}%
-      \put(0,0){\set@fusionadd@sixv}%
-      \UnfavorableFusion{d}%
-  \else\if\@tmpa D%
-      \edef\@@tmpa{E}%
-      \put(0,0){\set@fusionadd@sixv}%
-      \UnfavorableFusion{D}%
-  \else\if\@tmpa e%
-      \edef\@@tmpa{d}%
-      \put(-171,303){\set@fusionadd@sixv}%
-      \UnfavorableFusion{e}%
-  \else\if\@tmpa E%
-      \edef\@@tmpa{D}%
-      \put(-171,303){\set@fusionadd@sixv}%
-      \UnfavorableFusion{E}%
-  \else\if\@tmpa f%
-      \edef\@@tmpa{e}%
-      \put(-171,303){\set@fusionadd@sixv}%
-  \else\if\@tmpa F%
-      \edef\@@tmpa{E}%
-      \put(-171,303){\set@fusionadd@sixv}%
-  \else\if\@tmpa g%
-      \edef\@@tmpa{f}%
-      \put(-171,303){\set@fusionadd@sixv}%
-  \else\if\@tmpa G%
-      \edef\@@tmpa{F}%
-      \put(-171,303){\set@fusionadd@sixv}%
-  \else\if\@tmpa h%
-      \edef\@@tmpa{a}%
-      \put(-171,303){\set@fusionadd@sixv}%
-  \else\if\@tmpa H%
-      \edef\@@tmpa{A}%
-      \put(-171,303){\set@fusionadd@sixv}%
-  \else\if\@tmpa i%
-      \edef\@@tmpa{b}%
-      \put(-171,303){\set@fusionadd@sixv}%
-      \UnfavorableFusion{i}%
-  \else\if\@tmpa I%
-      \edef\@@tmpa{B}%
-      \put(-171,303){\set@fusionadd@sixv}%
-      \UnfavorableFusion{I}%
-  \else\if\@tmpa j%
-      \edef\@@tmpa{a}%
-      \put(0,0){\set@fusionadd@sixv}%
-      \UnfavorableFusion{j}%
-  \else\if\@tmpa J%
-      \edef\@@tmpa{A}%
-      \put(0,0){\set@fusionadd@sixv}%
-      \UnfavorableFusion{J}%
-  \else\if\@tmpa k%
-      \edef\@@tmpa{c}%
-      \put(-171,303){\set@fusionadd@sixv}%
-      \ForbiddenFusion{k}%
-  \else\if\@tmpa K%
-      \edef\@@tmpa{C}%
-      \put(-171,303){\set@fusionadd@sixv}%
-      \ForbiddenFusion{K}%
-  \fi\fi\fi\fi\fi\fi\fi\fi\fi\fi\fi\fi%
-  \fi\fi\fi\fi\fi\fi\fi\fi\fi\fi%
-}% end of the macro \set@fusion@decavb
-\def\set@fusion@decavt{%
-  \let\@@tmpa=\@tmpa
-  \let\@@tmpb=\@tmpb
-  \if\@tmpa a%
-      \edef\@@tmpa{f}%
-      \put(171,303){\set@fusionadd@sixv}%
-  \else\if\@tmpa A%
-      \edef\@@tmpa{F}%
-      \put(171,303){\set@fusionadd@sixv}%
-  \else\if\@tmpa b%
-      \edef\@@tmpa{a}%
-      \put(171,303){\set@fusionadd@sixv}%
-  \else\if\@tmpa B%
-      \edef\@@tmpa{A}%
-      \put(171,303){\set@fusionadd@sixv}%
-  \else\if\@tmpa c%
-      \edef\@@tmpa{b}%
-      \put(171,303){\set@fusionadd@sixv}%
-  \else\if\@tmpa C%
-      \edef\@@tmpa{B}%
-      \put(171,303){\set@fusionadd@sixv}%
-  \else\if\@tmpa d%
-      \edef\@@tmpa{c}%
-      \put(171,303){\set@fusionadd@sixv}%
-      \UnfavorableFusion{d}%
-  \else\if\@tmpa D%
-      \edef\@@tmpa{C}%
-      \put(171,303){\set@fusionadd@sixv}%
-      \UnfavorableFusion{D}%
-  \else\if\@tmpa e%
-      \edef\@@tmpa{b}%
-      \put(0,0){\set@fusionadd@sixv}%
-      \UnfavorableFusion{e}%
-  \else\if\@tmpa E%
-      \edef\@@tmpa{B}%
-      \put(0,0){\set@fusionadd@sixv}%
-      \UnfavorableFusion{E}%
-  \else\if\@tmpa f%
-      \edef\@@tmpa{c}%
-      \put(0,0){\set@fusionadd@sixv}%
-  \else\if\@tmpa F%
-      \edef\@@tmpa{C}%
-      \put(0,0){\set@fusionadd@sixv}%
-  \else\if\@tmpa g%
-      \edef\@@tmpa{d}%
-      \put(0,0){\set@fusionadd@sixv}%
-  \else\if\@tmpa G%
-      \edef\@@tmpa{D}%
-      \put(0,0){\set@fusionadd@sixv}%
-  \else\if\@tmpa h%
-      \edef\@@tmpa{e}%
-      \put(0,0){\set@fusionadd@sixv}%
-  \else\if\@tmpa H%
-      \edef\@@tmpa{E}%
-      \put(0,0){\set@fusionadd@sixv}%
-  \else\if\@tmpa i%
-      \edef\@@tmpa{f}%
-      \put(0,0){\set@fusionadd@sixv}%
-      \UnfavorableFusion{i}%
-  \else\if\@tmpa I%
-      \edef\@@tmpa{F}%
-      \put(0,0){\set@fusionadd@sixv}%
-      \UnfavorableFusion{I}%
-  \else\if\@tmpa j%
-      \edef\@@tmpa{e}%
-      \put(171,303){\set@fusionadd@sixv}%
-      \UnfavorableFusion{j}%
-  \else\if\@tmpa J%
-      \edef\@@tmpa{E}%
-      \put(171,303){\set@fusionadd@sixv}%
-      \UnfavorableFusion{J}%
-  \else\if\@tmpa k%
-      \edef\@@tmpa{d}%
-      \put(171,303){\set@fusionadd@sixv}%
-      \ForbiddenFusion{k}%
-  \else\if\@tmpa K%
-      \edef\@@tmpa{D}%
-      \put(171,303){\set@fusionadd@sixv}%
-      \ForbiddenFusion{K}%
-  \fi\fi\fi\fi\fi\fi\fi\fi\fi\fi\fi\fi%
-  \fi\fi\fi\fi\fi\fi\fi\fi\fi\fi%
-}% end of \set@fusion@decavt
-\def\set@fusion@decah{%
-  \let\@@tmpa=\@tmpa
-  \let\@@tmpb=\@tmpb
-  \if\@tmpa a%
-      \let\@@tmpa=\@tmpa
-      \put(0,0){\set@fusionadd@sixh}%
-  \else\if\@tmpa A%
-      \let\@@tmpa=\@tmpa
-      \put(0,0){\set@fusionadd@sixh}%
-  \else\if\@tmpa b%
-      \let\@@tmpa=\@tmpa
-      \put(0,0){\set@fusionadd@sixh}%
-  \else\if\@tmpa B%
-      \let\@@tmpa=\@tmpa
-      \put(0,0){\set@fusionadd@sixh}%
-  \else\if\@tmpa c%
-      \let\@@tmpa=\@tmpa
-      \put(0,0){\set@fusionadd@sixh}%
-  \else\if\@tmpa C%
-      \let\@@tmpa=\@tmpa
-      \put(0,0){\set@fusionadd@sixh}%
-  \else\if\@tmpa d%
-      \let\@@tmpa=\@tmpa
-      \put(0,0){\set@fusionadd@sixh}%
-      \UnfavorableFusion{d}%
-  \else\if\@tmpa D%
-      \let\@@tmpa=\@tmpa
-      \put(0,0){\set@fusionadd@sixh}%
-      \UnfavorableFusion{D}%
-  \else\if\@tmpa e%
-      \edef\@@tmpa{c}%
-      \put(0,-342){\set@fusionadd@sixh}%
-      \UnfavorableFusion{e}%
-  \else\if\@tmpa E%
-      \edef\@@tmpa{C}%
-      \put(0,-342){\set@fusionadd@sixh}%
-      \UnfavorableFusion{E}%
-  \else\if\@tmpa f%
-      \edef\@@tmpa{d}%
-      \put(0,-342){\set@fusionadd@sixh}%
-  \else\if\@tmpa F%
-      \edef\@@tmpa{D}%
-      \put(0,-342){\set@fusionadd@sixh}%
-  \else\if\@tmpa g%
-      \edef\@@tmpa{e}%
-      \put(0,-342){\set@fusionadd@sixh}%
-  \else\if\@tmpa G%
-      \edef\@@tmpa{E}%
-      \put(0,-342){\set@fusionadd@sixh}%
-  \else\if\@tmpa h%
-      \edef\@@tmpa{f}%
-      \put(0,-342){\set@fusionadd@sixh}%
-  \else\if\@tmpa H%
-      \edef\@@tmpa{F}%
-      \put(0,-342){\set@fusionadd@sixh}%
-  \else\if\@tmpa i%
-      \edef\@@tmpa{a}%
-      \put(0,-342){\set@fusionadd@sixh}%
-      \UnfavorableFusion{i}%
-  \else\if\@tmpa I%
-      \edef\@@tmpa{A}%
-      \put(0,-342){\set@fusionadd@sixh}%
-      \UnfavorableFusion{I}%
-  \else\if\@tmpa j%
-      \edef\@@tmpa{f}%
-      \put(0,0){\set@fusionadd@sixh}%
-      \UnfavorableFusion{j}%
-  \else\if\@tmpa J%
-      \edef\@@tmpa{F}%
-      \put(0,0){\set@fusionadd@sixh}%
-      \UnfavorableFusion{J}%
-  \else\if\@tmpa k%
-      \edef\@@tmpa{e}%
-      \put(0,0){\set@fusionadd@sixh}%
-      \ForbiddenFusion{k}%
-  \else\if\@tmpa K%
-      \edef\@@tmpa{E}%
-      \put(0,0){\set@fusionadd@sixh}%
-      \ForbiddenFusion{K}%
-  \fi\fi\fi\fi\fi\fi\fi\fi\fi\fi\fi\fi%
-  \fi\fi\fi\fi\fi\fi\fi\fi\fi\fi%
-}% end of the macro \set@fusion@decah
-\def\set@fusion@hanthrav{%
-  \let\@@tmpa=\@tmpa
-  \let\@@tmpb=\@tmpb
-  \if\@tmpa a%
-      \let\@@tmpa=\@tmpa
-      \put(684,0){\set@fusionadd@sixv}%
-  \else\if\@tmpa A%
-      \let\@@tmpa=\@tmpa
-      \put(684,0){\set@fusionadd@sixv}%
-  \else\if\@tmpa b%
-      \let\@@tmpa=\@tmpa
-      \put(684,0){\set@fusionadd@sixv}%
-  \else\if\@tmpa B%
-      \let\@@tmpa=\@tmpa
-      \put(684,0){\set@fusionadd@sixv}%
-  \else\if\@tmpa c%
-      \let\@@tmpa=\@tmpa
-      \put(684,0){\set@fusionadd@sixv}%
-  \else\if\@tmpa C%
-      \let\@@tmpa=\@tmpa
-      \put(684,0){\set@fusionadd@sixv}%
-  \else\if\@tmpa d%
-      \let\@@tmpa=\@tmpa
-      \put(684,0){\set@fusionadd@sixv}%
-      \UnfavorableFusion{d}%
-  \else\if\@tmpa D%
-      \let\@@tmpa=\@tmpa
-      \put(684,0){\set@fusionadd@sixv}%
-      \UnfavorableFusion{D}%
-  \else\if\@tmpa e%
-      \edef\@@tmpa{c}%
-      \put(342,0){\set@fusionadd@sixv}%
-      \UnfavorableFusion{e}%
-  \else\if\@tmpa E%
-      \edef\@@tmpa{C}%
-      \put(342,0){\set@fusionadd@sixv}%
-      \UnfavorableFusion{E}%
-  \else\if\@tmpa f%
-      \edef\@@tmpa{d}%
-      \put(342,0){\set@fusionadd@sixv}%
-      \UnfavorableFusion{f}%
-  \else\if\@tmpa F%
-      \edef\@@tmpa{D}%
-      \put(342,0){\set@fusionadd@sixv}%
-      \UnfavorableFusion{F}%
-  \else\if\@tmpa g%
-      \edef\@@tmpa{c}%
-      \put(0,0){\set@fusionadd@sixv}%
-      \UnfavorableFusion{g}%
-  \else\if\@tmpa G%
-      \edef\@@tmpa{C}%
-      \put(0,0){\set@fusionadd@sixv}%
-      \UnfavorableFusion{G}%
-  \else\if\@tmpa h%
-      \edef\@@tmpa{d}%
-      \put(0,0){\set@fusionadd@sixv}%
-  \else\if\@tmpa H%
-      \edef\@@tmpa{D}%
-      \put(0,0){\set@fusionadd@sixv}%
-  \else\if\@tmpa i%
-      \edef\@@tmpa{e}%
-      \put(0,0){\set@fusionadd@sixv}%
-  \else\if\@tmpa I%
-      \edef\@@tmpa{E}%
-      \put(0,0){\set@fusionadd@sixv}%
-  \else\if\@tmpa j%
-      \edef\@@tmpa{f}%
-      \put(0,0){\set@fusionadd@sixv}%
-  \else\if\@tmpa J%
-      \edef\@@tmpa{F}%
-      \put(0,0){\set@fusionadd@sixv}%
-  \else\if\@tmpa k%
-      \edef\@@tmpa{a}%
-      \put(0,0){\set@fusionadd@sixv}%
-      \UnfavorableFusion{k}%
-  \else\if\@tmpa K%
-      \edef\@@tmpa{A}%
-      \put(0,0){\set@fusionadd@sixv}%
-      \UnfavorableFusion{K}%
-  \else\if\@tmpa l%
-      \edef\@@tmpa{f}%
-      \put(342,0){\set@fusionadd@sixv}%
-      \UnfavorableFusion{l}%
-  \else\if\@tmpa L%
-      \edef\@@tmpa{F}%
-      \put(342,0){\set@fusionadd@sixv}%
-      \UnfavorableFusion{L}%
-  \else\if\@tmpa m%
-      \edef\@@tmpa{a}%
-      \put(342,0){\set@fusionadd@sixv}%
-      \UnfavorableFusion{m}%
-  \else\if\@tmpa M%
-      \edef\@@tmpa{A}%
-      \put(342,0){\set@fusionadd@sixv}%
-      \UnfavorableFusion{M}%
-  \else\if\@tmpa n%
-      \edef\@@tmpa{f}%
-      \put(684,0){\set@fusionadd@sixv}%
-      \UnfavorableFusion{n}%
-  \else\if\@tmpa N%
-      \edef\@@tmpa{F}%
-      \put(684,0){\set@fusionadd@sixv}%
-      \UnfavorableFusion{N}%
-  \else\if\@tmpa o%
-      \edef\@@tmpa{e}%
-      \put(684,0){\set@fusionadd@sixv}%
-      \ForbiddenFusion{o}%
-  \else\if\@tmpa O%
-      \edef\@@tmpa{E}%
-      \put(684,0){\set@fusionadd@sixv}%
-      \ForbiddenFusion{O}%
-  \else\if\@tmpa p%
-      \edef\@@tmpa{e}%
-      \put(342,0){\set@fusionadd@sixv}%
-      \ForbiddenFusion{p}%
-  \else\if\@tmpa P%
-      \edef\@@tmpa{E}%
-      \put(342,0){\set@fusionadd@sixv}%
-      \ForbiddenFusion{P}%
-  \fi\fi\fi\fi\fi\fi\fi\fi\fi\fi%
-  \fi\fi\fi\fi\fi\fi\fi\fi\fi\fi\fi\fi%
-  \fi\fi\fi\fi\fi\fi\fi\fi\fi\fi%
-}% end of the macro \set@fusion@hanthrav
-\def\set@fusion@hphenanv{%
-  \let\@@tmpa=\@tmpa
-  \let\@@tmpb=\@tmpb
-  \if\@tmpa a%
-      \edef\@@tmpa{b}%
-      \put(513,303){\set@fusionadd@sixv}%
-  \else\if\@tmpa A%
-      \edef\@@tmpa{B}%
-      \put(513,303){\set@fusionadd@sixv}%
-  \else\if\@tmpa b%
-      \edef\@@tmpa{a}%
-      \put(513,303){\set@fusionadd@sixv}%
-  \else\if\@tmpa B%
-      \edef\@@tmpa{A}%
-      \put(513,303){\set@fusionadd@sixv}%
-  \else\if\@tmpa c%
-      \edef\@@tmpa{f}%
-      \put(513,303){\set@fusionadd@sixv}%
-  \else\if\@tmpa C%
-      \edef\@@tmpa{F}%
-      \put(513,303){\set@fusionadd@sixv}%
-  \else\if\@tmpa d%
-      \edef\@@tmpa{e}%
-      \put(513,303){\set@fusionadd@sixv}%
-      \UnfavorableFusion{d}%
-  \else\if\@tmpa D%
-      \edef\@@tmpa{E}%
-      \put(513,303){\set@fusionadd@sixv}%
-      \UnfavorableFusion{D}%
-  \else\if\@tmpa e%
-      \edef\@@tmpa{f}%
-      \put(342,0){\set@fusionadd@sixv}%
-      \UnfavorableFusion{e}%
-  \else\if\@tmpa E%
-      \edef\@@tmpa{F}%
-      \put(342,0){\set@fusionadd@sixv}%
-      \UnfavorableFusion{E}%
-  \else\if\@tmpa f%
-      \edef\@@tmpa{a}%
-      \put(0,0){\set@fusionadd@sixv}%
-      \UnfavorableFusion{f}%
-  \else\if\@tmpa F%
-      \edef\@@tmpa{A}%
-      \put(0,0){\set@fusionadd@sixv}%
-      \UnfavorableFusion{F}%
-  \else\if\@tmpa g%
-      \edef\@@tmpa{f}%
-      \put(0,0){\set@fusionadd@sixv}%
-  \else\if\@tmpa G%
-      \edef\@@tmpa{F}%
-      \put(0,0){\set@fusionadd@sixv}%
-  \else\if\@tmpa h%
-      \edef\@@tmpa{e}%
-      \put(0,0){\set@fusionadd@sixv}%
-  \else\if\@tmpa H%
-      \edef\@@tmpa{E}%
-      \put(0,0){\set@fusionadd@sixv}%
-  \else\if\@tmpa i%
-      \edef\@@tmpa{d}%
-      \put(0,0){\set@fusionadd@sixv}%
-  \else\if\@tmpa I%
-      \edef\@@tmpa{D}%
-      \put(0,0){\set@fusionadd@sixv}%
-  \else\if\@tmpa j%
-      \edef\@@tmpa{c}%
-      \put(0,0){\set@fusionadd@sixv}%
-      \UnfavorableFusion{j}%
-  \else\if\@tmpa J%
-      \edef\@@tmpa{C}%
-      \put(0,0){\set@fusionadd@sixv}%
-      \UnfavorableFusion{J}%
-  \else\if\@tmpa k%
-      \edef\@@tmpa{d}%
-      \put(342,0){\set@fusionadd@sixv}%
-      \UnfavorableFusion{k}%
-  \else\if\@tmpa K%
-      \edef\@@tmpa{D}%
-      \put(342,0){\set@fusionadd@sixv}%
-      \UnfavorableFusion{K}%
-  \else\if\@tmpa l%
-      \edef\@@tmpa{c}%
-      \put(342,0){\set@fusionadd@sixv}%
-  \else\if\@tmpa L%
-      \edef\@@tmpa{C}%
-      \put(342,0){\set@fusionadd@sixv}%
-  \else\if\@tmpa m%
-      \edef\@@tmpa{b}%
-      \put(342,0){\set@fusionadd@sixv}%
-      \UnfavorableFusion{m}%
-  \else\if\@tmpa M%
-      \edef\@@tmpa{B}%
-      \put(342,0){\set@fusionadd@sixv}%
-      \UnfavorableFusion{M}%
-  \else\if\@tmpa n%
-      \edef\@@tmpa{c}%
-      \put(513,303){\set@fusionadd@sixv}%
-      \UnfavorableFusion{n}%
-  \else\if\@tmpa N%
-      \edef\@@tmpa{C}%
-      \put(513,303){\set@fusionadd@sixv}%
-      \UnfavorableFusion{N}%
-  \else\if\@tmpa o%
-      \edef\@@tmpa{d}%
-      \put(513,303){\set@fusionadd@sixv}%
-      \ForbiddenFusion{o}%
-  \else\if\@tmpa O%
-      \edef\@@tmpa{D}%
-      \put(513,303){\set@fusionadd@sixv}%
-      \ForbiddenFusion{O}%
-  \else\if\@tmpa p%
-      \edef\@@tmpa{e}%
-      \put(342,0){\set@fusionadd@sixv}%
-      \ForbiddenFusion{p}%
-  \else\if\@tmpa P%
-      \edef\@@tmpa{E}%
-      \put(342,0){\set@fusionadd@sixv}%
-      \ForbiddenFusion{P}%
-  \fi\fi\fi\fi\fi\fi\fi\fi\fi\fi%
-  \fi\fi\fi\fi\fi\fi\fi\fi\fi\fi\fi\fi%
-  \fi\fi\fi\fi\fi\fi\fi\fi\fi\fi%
-}% end of the macro \set@fusion@hphananv
-\def\set@fusionadd@fivev{%
-      \if\@@tmpa 1\relax%
-        \putratom{-38}{88}{\@@tmpb}%        % right type
-      \else\if\@@tmpa 2\relax%
-        \putratom{60}{120}{\@@tmpb}%        % right type
-      \else\if\@@tmpa 3\relax%
-        \putratom{60}{233}{\@@tmpb}%        % right type
-      \else\if\@@tmpa 4\relax%
-        \putratom{-60}{233}{\@@tmpb}%       % right type
-      \else\if\@@tmpa 5\relax%
-        \putratom{-60}{120}{\@@tmpb}%       % right type
-      \else\if\@@tmpa 0\relax%
-        \putratom{-38}{150}{\@@tmpb}%       % right type
-      \else
-        \set@fusion@fivev
-      \fi\fi\fi\fi\fi\fi%
-}% end of the macro \set@fusionadd@fivev
-\def\set@fusion@fivev{%
- \if\@@tmpa a\relax%
-        \putlratom{0}{0}{\@@tmpb}%      % right type
-        \FuseWarning{-171}{-103}%
-          {\fuseAx}{\fuseAy}{\fuseBx}{\fuseBy}{a}%
-      \else\if\@@tmpa A\relax%
-        \putlratom{171}{103}{\@@tmpb}%      % right type
-        \FuseWarning{171}{103}%
-          {\fuseAx}{\fuseAy}{\fuseBx}{\fuseBy}{A}%
-      \else\if\@@tmpa b\relax%
-        \putlratom{171}{103}{\@@tmpb}%      % right type
-        \FuseWarning{0}{-200}%
-          {\fuseAx}{\fuseAy}{\fuseBx}{\fuseBy}{b}%
-      \else\if\@@tmpa B\relax%
-        \putlratom{171}{303}{\@@tmpb}%      % right type
-        \FuseWarning{0}{200}%
-          {\fuseAx}{\fuseAy}{\fuseBx}{\fuseBy}{B}%
-      \else\if\@@tmpa c\relax
-        \XyMTeXWarning{Not-used fusion at bond `c'}%
-      \else\if\@@tmpa C\relax%
-        \XyMTeXWarning{Not-used fusion at bond `C'}%
-      \else\if\@@tmpa d\relax%
-        \putlratom{-171}{303}{\@@tmpb}%      % right type
-        \FuseWarning{0}{200}%
-          {\fuseAx}{\fuseAy}{\fuseBx}{\fuseBy}{d}%
-      \else\if\@@tmpa D\relax%
-        \putlratom{-171}{103}{\@@tmpb}%      % right type
-        \FuseWarning{0}{-200}%
-          {\fuseAx}{\fuseAy}{\fuseBx}{\fuseBy}{D}%
-      \else\if\@@tmpa e\relax%
-        \putlratom{-171}{103}{\@@tmpb}%      % right type
-        \FuseWarning{171}{-103}%
-          {\fuseAx}{\fuseAy}{\fuseBx}{\fuseBy}{e}%
-      \else\if\@@tmpa E\relax%
-        \putlratom{0}{0}{\@@tmpb}%      % right type
-        \FuseWarning{-171}{103}%
-          {\fuseAx}{\fuseAy}{\fuseBx}{\fuseBy}{E}%
-      \fi\fi\fi\fi\fi\fi\fi\fi\fi\fi%
-}% end of the marcro \set@fusion@fivev
-\def\set@fusionadd@fivevi{%
-      \if\@@tmpa 1\relax%
-        \putratom{-38}{282}{\@@tmpb}%      % right type
-      \else\if\@@tmpa 2\relax%
-        \putratom{60}{233}{\@@tmpb}%        % right type
-      \else\if\@@tmpa 3\relax%
-        \putratom{60}{120}{\@@tmpb}%        % right type
-      \else\if\@@tmpa 4\relax%
-        \putratom{-60}{120}{\@@tmpb}%       % right type
-      \else\if\@@tmpa 5\relax%
-        \putratom{-60}{233}{\@@tmpb}%       % right type
-      \else\if\@@tmpa 0\relax%
-        \putratom{-38}{213}{\@@tmpb}%       % right type
-      \else
-        \set@fusion@fivevi
-      \fi\fi\fi\fi\fi\fi%
-}% end of the macro \set@fusionadd@fivevi
-\def\set@fusion@fivevi{%
-\if\@@tmpa d\relax%
-        \putlratom{-171}{103}{\@@tmpb}%     % bond fused
-        \FuseWarning{0}{-200}%
-          {\fuseAx}{\fuseAy}{\fuseBx}{\fuseBy}{d, k, or other}%
-      \else\if\@@tmpa D\relax%
-        \putlratom{-171}{303}{\@@tmpb}%     % bond fused
-        \FuseWarning{0}{200}%
-          {\fuseAx}{\fuseAy}{\fuseBx}{\fuseBy}{D, K, or other}%
-      \else\if\@@tmpa e\relax%
-        \putlratom{-171}{303}{\@@tmpb}%     % bond fused
-        \FuseWarning{-171}{-103}%
-          {\fuseAx}{\fuseAy}{\fuseBx}{\fuseBy}{e, j, or other}%
-      \else\if\@@tmpa E\relax%
-        \putlratom{0}{406}{\@@tmpb}%       % bond fused
-        \FuseWarning{171}{103}%
-          {\fuseAx}{\fuseAy}{\fuseBx}{\fuseBy}{E, J, or other}%
-      \else\if\@@tmpa a\relax%
-        \putlratom{0}{406}{\@@tmpb}%       % bond fused
-        \FuseWarning{-171}{103}%
-          {\fuseAx}{\fuseAy}{\fuseBx}{\fuseBy}{a, i, or other}%
-      \else\if\@@tmpa A\relax%
-        \putlratom{171}{303}{\@@tmpb}%    % bond fused
-        \FuseWarning{171}{-103}%
-          {\fuseAx}{\fuseAy}{\fuseBx}{\fuseBy}{A, I, or other}%
-      \else\if\@@tmpa b\relax%
-        \putlratom{171}{303}{\@@tmpb}%    % bond fused
-        \FuseWarning{0}{200}%
-          {\fuseAx}{\fuseAy}{\fuseBx}{\fuseBy}{b, k, or other}%
-      \else\if\@@tmpa B\relax%
-        \putlratom{171}{103}{\@@tmpb}%    % bond fused
-        \FuseWarning{0}{-200}%
-          {\fuseAx}{\fuseAy}{\fuseBx}{\fuseBy}{B, K, or other}%
-      \else\if\@@tmpa c\relax
-        \XyMTeXWarning{Not-used fusion at bond `c'}%
-      \else\if\@@tmpa C\relax%
-        \XyMTeXWarning{Not-used fusion at bond `C'}%
-      \fi\fi\fi\fi\fi\fi\fi\fi\fi\fi%
-}% end of the macro \set@fusion@fivevi
-\def\set@fusionadd@fiveh{%
-      \if\@@tmpa 1\relax%
-        \putratom{272}{-18}{\@@tmpb}%      % right type
-      \else\if\@@tmpa 2\relax%
-        \putratom{233}{60}{\@@tmpb}%       % right type
-      \else\if\@@tmpa 3\relax%
-        \putratom{120}{60}{\@@tmpb}%       % right type
-      \else\if\@@tmpa 5\relax%
-        \putratom{233}{-110}{\@@tmpb}%     % right type
-      \else\if\@@tmpa 4\relax%
-        \putratom{120}{-110}{\@@tmpb}%     % right type
-      \else\if\@@tmpa 0\relax%
-        \putratom{196}{-30}{\@@tmpb}%      % right type
-      \else
-        \set@fusion@fiveh
-      \fi\fi\fi\fi\fi\fi%
-}%
-\def\set@fusion@fiveh{%
-\if\@@tmpa E\relax%
-        \putlratom{406}{0}{\@@tmpb}%         % bond fused
-        \FuseWarning{103}{171}%
-          {\fuseAx}{\fuseAy}{\fuseBx}{\fuseBy}{E, J, or other}%
-      \else\if\@@tmpa e\relax%
-        \putlratom{303}{-171}{\@@tmpb}%     % bond fused
-        \FuseWarning{-103}{-171}%
-          {\fuseAx}{\fuseAy}{\fuseBx}{\fuseBy}{e, j, or other}%
-      \else\if\@@tmpa D\relax%
-        \putlratom{303}{-171}{\@@tmpb}%     % bond fused
-        \FuseWarning{200}{0}%
-          {\fuseAx}{\fuseAy}{\fuseBx}{\fuseBy}{D, K, or other}%
-      \else\if\@@tmpa d\relax%
-        \putlratom{103}{-171}{\@@tmpb}%     % bond fused
-        \FuseWarning{-200}{0}%
-          {\fuseAx}{\fuseAy}{\fuseBx}{\fuseBy}{d, k, or other}%
-      \else\if\@@tmpa c\relax
-        \XyMTeXWarning{Not-used fusion at bond `c'}%
-      \else\if\@@tmpa C\relax%
-        \XyMTeXWarning{Not-used fusion at bond `C'}%
-      \else\if\@@tmpa B\relax%
-        \putlratom{103}{171}{\@@tmpb}%    % bond fused
-        \FuseWarning{-200}{0}%
-          {\fuseAx}{\fuseAy}{\fuseBx}{\fuseBy}{B, K, or other}%
-      \else\if\@@tmpa b\relax%
-        \putlratom{303}{171}{\@@tmpb}%    % bond fused
-        \FuseWarning{200}{0}%
-          {\fuseAx}{\fuseAy}{\fuseBx}{\fuseBy}{b, k, or other}%
-      \else\if\@@tmpa A\relax%
-        \putlratom{303}{171}{\@@tmpb}%    % bond fused
-        \FuseWarning{-103}{171}%
-          {\fuseAx}{\fuseAy}{\fuseBx}{\fuseBy}{A, I, or other}%
-      \else\if\@@tmpa a\relax%
-        \putlratom{406}{0}{\@@tmpb}%      % bond fused
-        \FuseWarning{103}{-171}%
-          {\fuseAx}{\fuseAy}{\fuseBx}{\fuseBy}{a, i, or other}%
-      \fi\fi\fi\fi\fi\fi\fi\fi\fi\fi%
-}% end of the macro \set@fusion@fiveh
-\def\set@fusionadd@fivehi{%
-      \if\@@tmpa 1\relax%
-        \putratom{-38}{282}{\@@tmpb}%      % right type
-      \else\if\@@tmpa 2\relax%
-        \putratom{60}{233}{\@@tmpb}%       % right type
-      \else\if\@@tmpa 3\relax%
-        \putratom{60}{120}{\@@tmpb}%       % right type
-      \else\if\@@tmpa 4\relax%
-        \putratom{-60}{120}{\@@tmpb}%      % right type
-      \else\if\@@tmpa 5\relax%
-        \putratom{-60}{233}{\@@tmpb}%      % right type
-      \else\if\@@tmpa 0\relax%
-        \putratom{140}{-30}{\@@tmpb}%      % right type
-      \else
-        \set@fusion@fivehi
-      \fi\fi\fi\fi\fi\fi%
-}%
-\def\set@fusion@fivehi{%
-\if\@@tmpa d\relax%
-        \putlratom{303}{-171}{\@@tmpb}%     % bond fused
-        \FuseWarning{200}{0}%
-          {\fuseAx}{\fuseAy}{\fuseBx}{\fuseBy}{d, k, or other}%
-      \else\if\@@tmpa D\relax%
-        \putlratom{103}{-171}{\@@tmpb}%     % bond fused
-        \FuseWarning{-200}{0}%
-          {\fuseAx}{\fuseAy}{\fuseBx}{\fuseBy}{D, K, or other}%
-      \else\if\@@tmpa e\relax%
-        \putlratom{103}{-171}{\@@tmpb}%     % bond fused
-        \FuseWarning{103}{-171}%
-          {\fuseAx}{\fuseAy}{\fuseBx}{\fuseBy}{e, j, or other}%
-      \else\if\@@tmpa E\relax%
-        \putlratom{0}{0}{\@@tmpb}%       % bond fused
-        \FuseWarning{-103}{171}%
-          {\fuseAx}{\fuseAy}{\fuseBx}{\fuseBy}{E, J, or other}%
-      \else\if\@@tmpa a\relax%
-        \putlratom{0}{0}{\@@tmpb}%       % bond fused
-        \FuseWarning{-103}{-171}%
-          {\fuseAx}{\fuseAy}{\fuseBx}{\fuseBy}{a, i, or other}%
-      \else\if\@@tmpa A\relax%
-        \putlratom{103}{171}{\@@tmpb}%    % bond fused
-        \FuseWarning{103}{171}%
-          {\fuseAx}{\fuseAy}{\fuseBx}{\fuseBy}{A, I, or other}%
-      \else\if\@@tmpa b\relax%
-        \putlratom{103}{171}{\@@tmpb}%    % bond fused
-        \FuseWarning{-200}{0}%
-          {\fuseAx}{\fuseAy}{\fuseBx}{\fuseBy}{b, k, or other}%
-      \else\if\@@tmpa B\relax%
-        \putlratom{303}{171}{\@@tmpb}%    % bond fused
-        \FuseWarning{200}{0}%
-          {\fuseAx}{\fuseAy}{\fuseBx}{\fuseBy}{B, K, or other}%
-      \else\if\@@tmpa c\relax
-        \XyMTeXWarning{Not-used fusion at bond `c'}%
-      \else\if\@@tmpa C\relax%
-        \XyMTeXWarning{Not-used fusion at bond `C'}%
-      \fi\fi\fi\fi\fi\fi\fi\fi\fi\fi%
-}% end of the macro \set@fusion@sixh
-\def\set@fusion@nonav{%
-  \let\@@tmpa=\@tmpa
-  \let\@@tmpb=\@tmpb
-  \if\@tmpa a%
-      \let\@@tmpa=\@tmpa
-      \put(342,0){\set@fusionadd@sixvi}%
-  \else\if\@tmpa A%
-      \let\@@tmpa=\@tmpa
-      \put(342,0){\set@fusionadd@sixvi}%
-  \else\if\@tmpa b%
-      \let\@@tmpa=\@tmpa
-      \put(342,0){\set@fusionadd@sixvi}%
-  \else\if\@tmpa B%
-      \let\@@tmpa=\@tmpa
-      \put(342,0){\set@fusionadd@sixvi}%
-  \else\if\@tmpa c\relax
-        \XyMTeXWarning{Not-used fusion at bond `c'}%
-  \else\if\@tmpa C\relax%
-        \XyMTeXWarning{Not-used fusion at bond `C'}%
-  \else\if\@tmpa d%
-      \edef\@@tmpa{c}%
-      \put(0,0){\set@fusionadd@sixvi}%
-      \UnfavorableFusion{d}%
-  \else\if\@tmpa D%
-      \edef\@@tmpa{C}%
-      \put(0,0){\set@fusionadd@sixvi}%
-      \UnfavorableFusion{D}%
-  \else\if\@tmpa e%
-      \edef\@@tmpa{d}%
-      \put(0,0){\set@fusionadd@sixvi}%
-  \else\if\@tmpa E%
-      \edef\@@tmpa{D}%
-      \put(0,0){\set@fusionadd@sixvi}%
-  \else\if\@tmpa f%
-      \edef\@@tmpa{e}%
-      \put(0,0){\set@fusionadd@sixvi}%
-  \else\if\@tmpa F%
-      \edef\@@tmpa{E}%
-      \put(0,0){\set@fusionadd@sixvi}%
-  \else\if\@tmpa g%
-      \edef\@@tmpa{f}%
-      \put(0,0){\set@fusionadd@sixvi}%
-  \else\if\@tmpa G%
-      \edef\@@tmpa{F}%
-      \put(0,0){\set@fusionadd@sixvi}%
-  \else\if\@tmpa h%
-      \edef\@@tmpa{a}%
-      \put(0,0){\set@fusionadd@sixvi}%
-      \UnfavorableFusion{h}%
-  \else\if\@tmpa H%
-      \edef\@@tmpa{A}%
-      \put(0,0){\set@fusionadd@sixvi}%
-      \UnfavorableFusion{H}%
-  \else\if\@tmpa i%
-      \edef\@@tmpa{f}%
-      \put(342,0){\set@fusionadd@sixvi}%
-      \UnfavorableFusion{i}%
-  \else\if\@tmpa I%
-      \edef\@@tmpa{F}%
-      \put(342,0){\set@fusionadd@sixvi}%
-      \UnfavorableFusion{I}%
-  \else\if\@tmpa j%
-      \edef\@@tmpa{e}%
-      \put(342,0){\set@fusionadd@sixvi}%
-      \ForbiddenFusion{j}%
-  \else\if\@tmpa J%
-      \edef\@@tmpa{E}%
-      \put(342,0){\set@fusionadd@sixvi}%
-      \ForbiddenFusion{J}%
-  \fi\fi\fi\fi\fi\fi\fi\fi\fi\fi%
-  \fi\fi\fi\fi\fi\fi\fi\fi\fi\fi%
-}% end of the macro \set@fusion@nonav
-\def\set@fusion@nonavi{%
-  \let\@@tmpa=\@tmpa
-  \let\@@tmpb=\@tmpb
-  \if\@tmpa a%
-      \let\@@tmpa=\@tmpa
-      \put(342,0){\set@fusionadd@sixv}%
-  \else\if\@tmpa A%
-      \let\@@tmpa=\@tmpa
-      \put(342,0){\set@fusionadd@sixv}%
-  \else\if\@tmpa b%
-      \let\@@tmpa=\@tmpa
-      \put(342,0){\set@fusionadd@sixv}%
-  \else\if\@tmpa B%
-      \let\@@tmpa=\@tmpa
-      \put(342,0){\set@fusionadd@sixv}%
-  \else\if\@tmpa c\relax
-        \XyMTeXWarning{Not-used fusion at bond `c'}%
-  \else\if\@tmpa C\relax%
-        \XyMTeXWarning{Not-used fusion at bond `C'}%
-  \else\if\@tmpa d%
-      \edef\@@tmpa{c}%
-      \put(0,0){\set@fusionadd@sixv}%
-      \UnfavorableFusion{d}%
-  \else\if\@tmpa D%
-      \edef\@@tmpa{C}%
-      \put(0,0){\set@fusionadd@sixv}%
-      \UnfavorableFusion{D}%
-  \else\if\@tmpa e%
-      \edef\@@tmpa{d}%
-      \put(0,0){\set@fusionadd@sixv}%
-  \else\if\@tmpa E%
-      \edef\@@tmpa{D}%
-      \put(0,0){\set@fusionadd@sixv}%
-  \else\if\@tmpa f%
-      \edef\@@tmpa{e}%
-      \put(0,0){\set@fusionadd@sixv}%
-  \else\if\@tmpa F%
-      \edef\@@tmpa{E}%
-      \put(0,0){\set@fusionadd@sixv}%
-  \else\if\@tmpa g%
-      \edef\@@tmpa{f}%
-      \put(0,0){\set@fusionadd@sixv}%
-  \else\if\@tmpa G%
-      \edef\@@tmpa{F}%
-      \put(0,0){\set@fusionadd@sixv}%
-  \else\if\@tmpa h%
-      \edef\@@tmpa{a}%
-      \put(0,0){\set@fusionadd@sixv}%
-      \UnfavorableFusion{h}%
-  \else\if\@tmpa H%
-      \edef\@@tmpa{A}%
-      \put(0,0){\set@fusionadd@sixv}%
-      \UnfavorableFusion{H}%
-  \else\if\@tmpa i%
-      \edef\@@tmpa{f}%
-      \put(342,0){\set@fusionadd@sixv}%
-      \UnfavorableFusion{i}%
-  \else\if\@tmpa I%
-      \edef\@@tmpa{F}%
-      \put(342,0){\set@fusionadd@sixv}%
-      \UnfavorableFusion{I}%
-  \else\if\@tmpa j%
-      \edef\@@tmpa{e}%
-      \put(342,0){\set@fusionadd@sixv}%
-      \ForbiddenFusion{j}%
-  \else\if\@tmpa J%
-      \edef\@@tmpa{E}%
-      \put(342,0){\set@fusionadd@sixv}%
-      \ForbiddenFusion{J}%
-  \fi\fi\fi\fi\fi\fi\fi\fi\fi\fi%
-  \fi\fi\fi\fi\fi\fi\fi\fi\fi\fi%
-}% end of the macro \set@fusion@nonavi
-\def\set@fusion@nonah{%
-  \let\@@tmpa=\@tmpa
-  \let\@@tmpb=\@tmpb
-  \if\@tmpa a%
-      \let\@@tmpa=\@tmpa
-      \put(0,0){\set@fusionadd@sixhi}%
-  \else\if\@tmpa A%
-      \let\@@tmpa=\@tmpa
-      \put(0,0){\set@fusionadd@sixhi}%
-  \else\if\@tmpa b%
-      \let\@@tmpa=\@tmpa
-      \put(0,0){\set@fusionadd@sixhi}%
-  \else\if\@tmpa B%
-      \let\@@tmpa=\@tmpa
-      \put(0,0){\set@fusionadd@sixhi}%
-  \else\if\@tmpa c\relax
-        \XyMTeXWarning{Not-used fusion at bond `c'}%
-  \else\if\@tmpa C\relax%
-        \XyMTeXWarning{Not-used fusion at bond `C'}%
-  \else\if\@tmpa d%
-      \edef\@@tmpa{c}%
-      \put(0,-342){\set@fusionadd@sixhi}%
-      \UnfavorableFusion{d}%
-  \else\if\@tmpa D%
-      \edef\@@tmpa{C}%
-      \put(0,-342){\set@fusionadd@sixhi}%
-      \UnfavorableFusion{D}%
-  \else\if\@tmpa e%
-      \edef\@@tmpa{d}%
-      \put(0,-342){\set@fusionadd@sixhi}%
-  \else\if\@tmpa E%
-      \edef\@@tmpa{D}%
-      \put(0,-342){\set@fusionadd@sixhi}%
-  \else\if\@tmpa f%
-      \edef\@@tmpa{e}%
-      \put(0,-342){\set@fusionadd@sixhi}%
-  \else\if\@tmpa F%
-      \edef\@@tmpa{E}%
-      \put(0,-342){\set@fusionadd@sixhi}%
-  \else\if\@tmpa g%
-      \edef\@@tmpa{f}%
-      \put(0,-342){\set@fusionadd@sixhi}%
-  \else\if\@tmpa G%
-      \edef\@@tmpa{F}%
-      \put(0,-342){\set@fusionadd@sixhi}%
-  \else\if\@tmpa h%
-      \edef\@@tmpa{a}%
-      \put(0,-342){\set@fusionadd@sixhi}%
-      \UnfavorableFusion{h}%
-  \else\if\@tmpa H%
-      \edef\@@tmpa{A}%
-      \put(0,-342){\set@fusionadd@sixhi}%
-      \UnfavorableFusion{H}%
-  \else\if\@tmpa i%
-      \edef\@@tmpa{f}%
-      \put(0,0){\set@fusionadd@sixhi}%
-      \UnfavorableFusion{i}%
-  \else\if\@tmpa I%
-      \edef\@@tmpa{F}%
-      \put(0,0){\set@fusionadd@sixhi}%
-      \UnfavorableFusion{I}%
-  \else\if\@tmpa j%
-      \edef\@@tmpa{e}%
-      \put(0,0){\set@fusionadd@sixhi}%
-      \ForbiddenFusion{j}%
-  \else\if\@tmpa J%
-      \edef\@@tmpa{E}%
-      \put(0,0){\set@fusionadd@sixhi}%
-      \ForbiddenFusion{J}%
-  \fi\fi\fi\fi\fi\fi\fi\fi\fi\fi%
-  \fi\fi\fi\fi\fi\fi\fi\fi\fi\fi%
-}% end of the macro \set@fusion@nonah
-\def\set@fusion@nonahi{%
-  \let\@@tmpa=\@tmpa
-  \let\@@tmpb=\@tmpb
-  \if\@tmpa a%
-      \let\@@tmpa=\@tmpa
-      \put(0,0){\set@fusionadd@sixh}%
-  \else\if\@tmpa A%
-      \let\@@tmpa=\@tmpa
-      \put(0,0){\set@fusionadd@sixh}%
-  \else\if\@tmpa b%
-      \let\@@tmpa=\@tmpa
-      \put(0,0){\set@fusionadd@sixh}%
-  \else\if\@tmpa B%
-      \let\@@tmpa=\@tmpa
-      \put(0,0){\set@fusionadd@sixh}%
-  \else\if\@tmpa c\relax
-        \XyMTeXWarning{Not-used fusion at bond `c'}%
-  \else\if\@tmpa C\relax%
-        \XyMTeXWarning{Not-used fusion at bond `C'}%
-  \else\if\@tmpa d%
-      \edef\@@tmpa{c}%
-      \put(0,-342){\set@fusionadd@sixh}%
-      \UnfavorableFusion{d}%
-  \else\if\@tmpa D%
-      \edef\@@tmpa{C}%
-      \put(0,-342){\set@fusionadd@sixh}%
-      \UnfavorableFusion{D}%
-  \else\if\@tmpa e%
-      \edef\@@tmpa{d}%
-      \put(0,-342){\set@fusionadd@sixh}%
-  \else\if\@tmpa E%
-      \edef\@@tmpa{D}%
-      \put(0,-342){\set@fusionadd@sixh}%
-  \else\if\@tmpa f%
-      \edef\@@tmpa{e}%
-      \put(0,-342){\set@fusionadd@sixh}%
-  \else\if\@tmpa F%
-      \edef\@@tmpa{E}%
-      \put(0,-342){\set@fusionadd@sixh}%
-  \else\if\@tmpa g%
-      \edef\@@tmpa{f}%
-      \put(0,-342){\set@fusionadd@sixh}%
-  \else\if\@tmpa G%
-      \edef\@@tmpa{F}%
-      \put(0,-342){\set@fusionadd@sixh}%
-  \else\if\@tmpa h%
-      \edef\@@tmpa{a}%
-      \put(0,-342){\set@fusionadd@sixh}%
-      \UnfavorableFusion{h}%
-  \else\if\@tmpa H%
-      \edef\@@tmpa{A}%
-      \put(0,-342){\set@fusionadd@sixh}%
-      \UnfavorableFusion{H}%
-  \else\if\@tmpa i%
-      \edef\@@tmpa{f}%
-      \put(0,0){\set@fusionadd@sixh}%
-      \UnfavorableFusion{i}%
-  \else\if\@tmpa I%
-      \edef\@@tmpa{F}%
-      \put(0,0){\set@fusionadd@sixh}%
-      \UnfavorableFusion{I}%
-  \else\if\@tmpa j%
-      \edef\@@tmpa{e}%
-      \put(0,0){\set@fusionadd@sixh}%
-      \ForbiddenFusion{j}%
-  \else\if\@tmpa J%
-      \edef\@@tmpa{E}%
-      \put(0,0){\set@fusionadd@sixh}%
-      \ForbiddenFusion{J}%
-  \fi\fi\fi\fi\fi\fi\fi\fi\fi\fi%
-  \fi\fi\fi\fi\fi\fi\fi\fi\fi\fi%
-}% end of the macro \set@fusion@nonahi
-\endinput
-%%
-%% End of file `chemstr.sty'.
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'.
diff --git a/Master/texmf-dist/tex/latex/xymtex/hcycle.sty b/Master/texmf-dist/tex/latex/xymtex/hcycle.sty
deleted file mode 100644
index bc45965d70b..00000000000
--- a/Master/texmf-dist/tex/latex/xymtex/hcycle.sty
+++ /dev/null
@@ -1,387 +0,0 @@
-%%
-%% This is file `hcycle.sty',
-%% generated with the docstrip utility.
-%%
-%% The original source files were:
-%%
-%% hcycle.dtx  (with options: `hcycle')
-%% 
-%% This is a generated file.
-%% 
-%% Copyright 1996,1998 by Shinsaku Fujita
-%% 
-%% This file is part of the XyMTeX system.
-%% =======================================
-%% 
-%% Version 1.01 Released on August 16, 1996
-%% Version 1.02 Released on October 31, 1996 (private version)
-%% Version 2.00 Released on December 25, 1998
-%% 
-%% Copyright (C) 1996,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: hcycle.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{hcycle}
-\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}{}
-\unitlength=0.1pt
-\def\@pyrana{%
-   \if\@tmpb S%single bond
-    \ifx\@tmpc\empty%
-     \yl@xdiff=-10
-     \yl@ydiff=30
-           \put(0,0){\line(1,0){120}}% single bond at 1
-           \putratom{130}{-30}{\@memberb}% right type
-    \else\if\@tmpc a%(a) alpha
-     \yl@xdiff=32
-     \yl@ydiff=72
-           \put(0,0){\line(0,-1){118}}% single bond at 1 alpha (down)
-           \putratom{-32}{-190}{\@memberb}% right type
-    \else\if\@tmpc b%(e) beta
-     \yl@xdiff=32
-     \yl@ydiff=-12
-           \put(0,0){\line(0,1){118}}% single bond at 1 beta (up)
-           \putratom{-32}{130}{\@memberb}% right type
-    \else\if\@tmpc A% alpha
-     \yl@xdiff=-10
-     \yl@ydiff=60
-           \put(0,0){\line(1,-1){120}}% single bond at 1
-           \putratom{130}{-180}{\@memberb}% right type
-    \else\if\@tmpc B% beta
-     \yl@xdiff=-10
-     \yl@ydiff=10
-           \put(0,0){\line(1,1){120}}% single bond at 1
-           \putratom{130}{110}{\@memberb}% right type
-    \fi\fi\fi\fi\fi%
-   \else \if\@tmpb D%double bond
-     \yl@xdiff=-10
-     \yl@ydiff=30
-           \put(0,-15){\line(1,0){120}}% double bond at 1
-           \put(0,15){\line(1,0){120}}% double bond at 1
-           \putratom{130}{-30}{\@memberb}% right type
-          \else%
-     \yl@xdiff=-10
-     \yl@ydiff=30
-           \put(0,0){\line(1,0){120}}% single bond at 1
-           \putratom{130}{-30}{\@memberb}% right type
-   \fi\fi}%
-\def\@pyranb{%
-   \if\@tmpb S%single bond
-    \ifx\@tmpc\empty%
-     \yl@xdiff=-10
-     \yl@ydiff=60
-           \put(0,0){\line(1,-1){120}}% single bond at 1
-           \putratom{130}{-180}{\@memberb}% left type
-    \else\if\@tmpc a%(a) alpha
-     \yl@xdiff=32
-     \yl@ydiff=72
-           \put(0,0){\line(0,-1){118}}% single bond alpha (down)
-           \putlratom{-32}{-190}{\@memberb}% left & right type
-    \else\if\@tmpc b%(b) beta
-     \yl@xdiff=32
-     \yl@ydiff=-12
-           \put(0,0){\line(0,1){118}}% single bond beta (up)
-           \putlratom{-32}{130}{\@memberb}% left & right type
-    \fi\fi\fi%\fi\fi%
-   \else \if\@tmpb D%double bond: Added by SF 1998/10/25
-     \yl@xdiff=-10
-     \yl@ydiff=60
-           \put(-15,-15){\line(1,-1){120}}% double bond at 1
-           \put(0,15){\line(1,-1){120}}% double bond at 1
-           \putratom{130}{-180}{\@memberb}% right type
-          \else%
-     \yl@xdiff=-10
-     \yl@ydiff=10
-           \put(0,0){\line(1,1){120}}% single bond at 1
-           \putratom{130}{110}{\@memberb}% left type
-\fi\fi}%
-\def\@pyranbb{%
-   \if\@tmpb S%single bond
-    \ifx\@tmpc\empty%
-     \yl@xdiff=-10
-     \yl@ydiff=60
-           \put(0,0){\line(1,-1){120}}% single bond at 1
-           \putratom{130}{-180}{\@memberb}% left type
-    \else\if\@tmpc a%(a) alpha
-     \yl@xdiff=32
-     \yl@ydiff=72
-           \put(0,0){\line(0,-1){118}}% single bond alpha (down)
-           \putlratom{-32}{-190}{\@memberb}% left & right type
-    \else\if\@tmpc b%(b) beta
-     \yl@xdiff=32
-     \yl@ydiff=-12
-           \put(0,0){\line(0,1){118}}% single bond beta (up)
-           \putlratom{-32}{130}{\@memberb}% left & right type
-    \fi\fi\fi%\fi\fi%
-   \else \if\@tmpb D%double bond: Added by SF 1998/10/25
-     \yl@xdiff=20
-     \yl@ydiff=60
-           \put(15,-15){\line(-1,-1){120}}% double bond at 1
-           \put(0,15){\line(-1,-1){120}}% double bond at 1
-           \putlatom{-130}{-180}{\@memberb}%left type
-          \else%
-     \yl@xdiff=10
-     \yl@ydiff=60
-           \put(0,0){\line(-1,-1){120}}% single bond at 1
-           \putlatom{-130}{-180}{\@memberb}% left type
-\fi\fi}%
-\def\@pyranbB{%
-   \if\@tmpb S%single bond
-    \ifx\@tmpc\empty%
-     \yl@xdiff=-10
-     \yl@ydiff=60
-           \put(0,0){\line(1,-1){120}}% single bond at 5
-           \putratom{130}{-180}{\@memberb}% left type
-    \else\if\@tmpc a%(a) alpha
-     \yl@xdiff=32
-     \yl@ydiff=72
-           \put(0,0){\line(0,-1){118}}% single bond alpha (down)
-           \putlratom{-32}{-190}{\@memberb}% left & right type
-    \else\if\@tmpc b%(b) beta
-     \yl@xdiff=32
-     \yl@ydiff=-12
-           \put(0,0){\line(0,1){118}}% single bond beta (up)
-           \putlratom{-32}{130}{\@memberb}% left & right type
-    \fi\fi\fi%\fi\fi%
-   \else \if\@tmpb D%double bond: Added by SF 1998/10/25
-     \yl@xdiff=0
-     \yl@ydiff=-20
-           \put(15,15){\line(-1,1){120}}% double bond at 5
-           \put(0,-15){\line(-1,1){120}}% double bond at 5
-           \putlatom{-120}{140}{\@memberb}%left type
-          \else%
-     \yl@xdiff=10
-     \yl@ydiff=-20
-           \put(0,0){\line(-1,1){120}}% single bond at 1
-           \putlatom{-130}{140}{\@memberb}% left type
-\fi\fi}%
-\def\@pyranc{%
-   \if\@tmpb S%single bond
-    \ifx\@tmpc\empty%
-     \yl@xdiff=10
-     \yl@ydiff=30
-           \put(0,0){\line(-1,0){120}}% single bond at 4
-           \putlatom{-130}{-30}{\@memberb}% left type
-    \else\if\@tmpc a%(a) alpha
-     \yl@xdiff=-32
-     \yl@ydiff=72
-           \put(0,0){\line(0,-1){118}}% single bond at 4 alpha (down)
-           \putlatom{32}{-190}{\@memberb}% left type
-    \else\if\@tmpc b%(e) beta
-     \yl@xdiff=-32
-     \yl@ydiff=-12
-           \put(0,0){\line(0,1){118}}% single bond at 4 beta (up)
-           \putlatom{32}{130}{\@memberb}% left type
-    \else\if\@tmpc A% alpha
-     \yl@xdiff=10
-     \yl@ydiff=60
-           \put(0,0){\line(-1,-1){120}}% single bond at 4
-           \putlatom{-130}{-180}{\@memberb}% left type
-    \else\if\@tmpc B% beta
-     \yl@xdiff=10
-     \yl@ydiff=10
-           \put(0,0){\line(-1,1){120}}% single bond at 4
-           \putlatom{-130}{110}{\@memberb}% left type
-    \fi\fi\fi\fi\fi%
-   \else \if\@tmpb D%double bond
-     \yl@xdiff=10
-     \yl@ydiff=30
-           \put(0,-15){\line(-1,0){120}}% double bond at 4
-           \put(0,15){\line(-1,0){120}}% double bond at 4
-           \putlatom{-130}{-30}{\@memberb}% left type
-          \else%
-     \yl@xdiff=10
-     \yl@ydiff=30
-           \put(0,0){\line(-1,0){120}}% single bond at 4
-           \putlatom{-130}{-30}{\@memberb}% left type
-   \fi\fi}%
-\def\pyranose{\@ifnextchar[{\@pyranose}{\@pyranose[r]}}
-\def\@pyranose[#1]#2{%
-\@reset@ylsw%
-\ylpyranoseposition{#2}%
-\def\@@ylii{0}\def\@@yli{0}%
-\if@ylsw
- \yl@shiftii=\@ylii
- \yl@shifti=\@yli
- \advance\yl@shiftii\@@ylii
- \advance\yl@shifti\@@yli
- \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}(880,800)(-240,-400)
-  \iforigpt \put(-240,-400){\circle*{50}}%
-           \put(0,0){\circle{50}}%
-   \typeout{command `pyranose' origin: (0,0) ---> (240,400)}
-  \fi%
-\fi
-  \put(0,0){\line(3,5){120}}%           %bond 4-5
-  \put(120,200){\line(1,0){252}}%       %bond 5-6
-  \put(532,0){\line(-3,5){96}}%         %bond 1-6
- {\thicklines%
-  \put(0,0){\line(3,-5){120}}%          %bond 4-3
-  \put(412,-200){\line(3,5){120}}%      %bond 2-1
-  \put(120,-200){\line(1,0){292}}}%     %bond 3-2
-  \putratom{382}{160}{O}% left type
-  %
-\@tfor\member:=#1\do{%
-\if\member r%no endcyclic double bonds
-\else \if\member a%
-  \put(400,-150){\line(3,5){90}}%       %double bond 2-1
-\else \if\member b%
-  \put(150,-160){\line(1,0){232}}%      %double bond 3-2
-\else \if\member c%
-  \put(50,-12){\line(3,-5){90}}%        %double bond 4-3
-\else \if\member d%
-  \put(50,12){\line(3,5){90}}%          %double bond 4-5
-\else \if\member e%
-  \put(150,160){\line(1,0){232}}%       %double bond 5-6
-\else \if\member f%
-  \put(482,12){\line(-3,5){70}}%        %double bond 1-6
-\fi\fi\fi\fi\fi\fi\fi}%
-\@forsemicol\member:=#2\do{%
-\ifx\member\empty\else
-\expandafter\@m@mb@r\member;\relax%
-\expandafter\threech@r\@membera{}{}%
-\ifx\@memberb\@yl\else
-\ifcase\@tmpa%0 omit
- \or \put(532,0){\@pyrana}% subst. on 1
- \or \put(412,-200){\@pyranb}% subst. on 2
- \or \put(120,-200){\@pyranbb}% subst. on 3
- \or \put(0,0){\@pyranc}% subst. on 4
- \or \put(120,200){\@pyranbB}% subst. on 5
-\fi %end of ifcase
-\fi\fi%
-}\end{picture}}%               %end of \pyranose macro
-\def\ylpyranoseposition#1{%
-\@@ylswfalse%%%\@reset@ylsw
-\@forsemicol\member:=#1\do{%
-\if@@ylsw\else
-\ifx\member\empty\else
-\expandafter\@m@mb@r\member;\relax
-\expandafter\threech@r\@membera{}{}\relax
-\ifx\@memberb\@yl\relax\@@ylswtrue\else\@@ylswfalse\fi
-\if@@ylsw
-\ifcase\@tmpa%0 omit
- \or\gdef\@ylii{-532}\gdef\@yli{0}\global\@ylswtrue% subst. on 1
- \or\gdef\@ylii{-412}\gdef\@yli{200}\global\@ylswtrue% subst. on 2
- \or\gdef\@ylii{-120}\gdef\@yli{200}\global\@ylswtrue% subst. on 3
- \or\gdef\@ylii{0}\gdef\@yli{0}\global\@ylswtrue% subst. on 4
- \or\gdef\@ylii{-120}\gdef\@yli{-200}\global\@ylswtrue% subst. on 5
-\fi%end of ifcase
-\fi\fi\fi}}%
-\def\furanose{\@ifnextchar[{\@furanose}{\@furanose[r]}}
-\def\@furanose[#1]#2{%
-\@reset@ylsw%
-\ylfuranoseposition{#2}%
-\def\@@ylii{0}\def\@@yli{0}%
-\if@ylsw
- \yl@shiftii=\@ylii
- \yl@shifti=\@yli
- \advance\yl@shiftii\@@ylii
- \advance\yl@shifti\@@yli
- \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}(880,800)(-240,-400)
-  \iforigpt \put(-240,-400){\circle*{50}}%
-           \put(0,0){\circle{50}}%
-   \typeout{command `furanose' origin: (0,0) ---> (240,400)}
-\fi
-  \fi%
-   \put(0,0){\line(5,3){236}}%          %bond 4-5
-   \put(532,0){\line(-5,3){236}}%       %bond 1-5
- {\thicklines%
-  \put(0,0){\line(3,-5){120}}%          %bond 4-3
-  \put(412,-200){\line(3,5){120}}%      %bond 2-1
-  \put(120,-200){\line(1,0){292}}}%     %bond 3-2
-  \putratom{236}{130}{O}% left type
-\@tfor\member:=#1\do{%
-\if\member r%no endcyclic double bonds
-\else \if\member a%
-  \put(400,-150){\line(3,5){80}}%       %double bond 2-1
-\else \if\member b%
-  \put(150,-160){\line(1,0){232}}%      %double bond 3-2
-\else \if\member c%
-  \put(50,-12){\line(3,-5){80}}%        %double bond 4-3
-\else \if\member d%
-  \put(50,0){\line(5,3){180}}%          %double bond 4-5
-\else \if\member e%
-  \put(482,0){\line(-5,3){180}}%        %double bond 1-5
-\fi\fi\fi\fi\fi\fi}%
-\@forsemicol\member:=#2\do{%
-\ifx\member\empty\else
-\expandafter\@m@mb@r\member;\relax%
-\expandafter\threech@r\@membera{}{}%
-\ifx\@memberb\@yl\else
-\ifcase\@tmpa%0 omit
- \or \put(532,0){\@pyrana}% subst. on 1
- \or \put(412,-200){\@pyranb}% subst. on 2
- \or \put(120,-200){\@pyranbb}% subst. on 3
- \or \put(0,0){\@pyranc}% subst. on 4
-\fi%end of ifcase
-\fi\fi%
-}\end{picture}}%               %end of \furanose macro
-\def\ylfuranoseposition#1{%
-\@@ylswfalse%%%\@reset@ylsw
-\@forsemicol\member:=#1\do{%
-\if@@ylsw\else
-\ifx\member\empty\else
-\expandafter\@m@mb@r\member;\relax
-\expandafter\threech@r\@membera{}{}\relax
-\ifx\@memberb\@yl\relax\@@ylswtrue\else\@@ylswfalse\fi
-\if@@ylsw
-\ifcase\@tmpa%0 omit
- \or\gdef\@ylii{-532}\gdef\@yli{0}\global\@ylswtrue% subst. on 1
- \or\gdef\@ylii{-412}\gdef\@yli{200}\global\@ylswtrue% subst. on 2
- \or\gdef\@ylii{-120}\gdef\@yli{200}\global\@ylswtrue% subst. on 3
- \or\gdef\@ylii{0}\gdef\@yli{0}\global\@ylswtrue% subst. on 4
-\fi%end of ifcase
-\fi\fi\fi}}%
-\endinput
-%%
-%% End of file `hcycle.sty'.
diff --git a/Master/texmf-dist/tex/latex/xymtex/hetarom.sty b/Master/texmf-dist/tex/latex/xymtex/hetarom.sty
deleted file mode 100644
index 7dc815518c6..00000000000
--- a/Master/texmf-dist/tex/latex/xymtex/hetarom.sty
+++ /dev/null
@@ -1,3835 +0,0 @@
-%%
-%% This is file `hetarom.sty',
-%% generated with the docstrip utility.
-%%
-%% The original source files were:
-%%
-%% hetarom.dtx  (with options: `hetarom')
-%% 
-%% This is a generated file.
-%% 
-%% Copyright 1996, 1998, 2000 by Shinsaku Fujita
-%% 
-%% This file is part of the XyMTeX system.
-%% =======================================
-%% 
-%% Version 1.01 Released on August 16, 1996
-%% Version 1.02 Released on October 31, 1998 (private version)
-%% Version 2.00 Released on December 25, 1998
-%% Version 2.00a Released on November 11, 2000
-%% 
-%% Copyright (C) 1996,1998,2000 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: hetarom.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{hetarom}
-\def\versi@ndate{November 11, 2000}
-\def\versi@nno{ver2.00a}
-\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}{}%
-\unitlength=0.1pt%
-\iniatom%
-\def\bonda{%
-  \ifx\aaa\empty%
-   \ifx\bbb\empty%
-    \put(6,364){\line(5,-3){126}}%         %double bond 1-2
-   \else%
-    \put(6,364){\line(5,-3){100}}%         %double bond 1-2
-   \fi%
-  \else%
-   \ifx\bbb\empty%
-    \put(35,340){\line(5,-3){100}}%        %double bond 1-2
-   \else%
-    \put(35,352){\line(5,-3){100}}%        %double bond 1-2
-   \fi%                                    % line <1OO not available
-  \fi%
- }%
- \def\bondb{%
-  \ifx\bbb\empty%
-   \ifx\ccc\empty%
-    \put(138,129){\line(0,1){148}}%        %double bond 3-2
-   \else%
-    \put(138,143){\line(0,1){134}}%        %double bond 3-2
-   \fi%
-  \else%
-   \ifx\ccc\empty%
-    \put(138,129){\line(0,1){134}}%        %double bond 3-2
-   \else%
-    \put(138,143){\line(0,1){110}}%        %double bond 3-2
-   \fi%
-  \fi%
-}%
- \def\bondc{%
-  \ifx\ddd\empty%
-   \ifx\ccc\empty%
-    \put(6,42){\line(5,3){126}}           %double bond 4-3
-   \else%
-    \put(6,42){\line(5,3){100}}           %double bond 4-3
-   \fi%
-  \else%
-   \ifx\ccc\empty%
-    \put(35,66){\line(5,3){100}}%          %double bond 4-3
-   \else%
-    \put(35,60){\line(5,3){100}}%          %double bond 4-3
-   \fi%                                    % line <1OO not available
-  \fi%
-}%
- \def\bondd{%
-  \ifx\ddd\empty%
-   \ifx\eee\empty%
-    \put(-6,42){\line(-5,3){126}}%         %double bond 4-5
-   \else%
-    \put(-6,42){\line(-5,3){100}}%         %double bond 4-5
-   \fi%
-  \else%
-   \ifx\eee\empty%
-    \put(-35,66){\line(-5,3){100}}%        %double bond 4-5
-   \else%
-    \put(-35,60){\line(-5,3){100}}%        %double bond 4-5
-   \fi%                                    % line <1OO not available
-  \fi%
- }%
-\def\bonde{%
-  \ifx\fff\empty%
-   \ifx\eee\empty%
-    \put(-138,129){\line(0,1){148}}%       %double bond 5-6
-   \else%
-    \put(-138,143){\line(0,1){134}}%       %double bond 5-6
-   \fi%
-  \else%
-   \ifx\eee\empty%
-    \put(-138,129){\line(0,1){134}}%       %double bond 5-6
-   \else%
-    \put(-138,143){\line(0,1){110}}%       %double bond 5-6
-   \fi%
-  \fi%
-}%
-\def\bondf{%
-  \ifx\aaa\empty%
-   \ifx\fff\empty%
-    \put(-6,364){\line(-5,-3){126}}%        %double bond 1-6
-   \else%
-    \put(-6,364){\line(-5,-3){100}}%        %double bond 1-6
-   \fi%
-  \else%
-   \ifx\fff\empty%
-    \put(-35,340){\line(-5,-3){100}}%       %double bond 1-6
-   \else%
-    \put(-35,352){\line(-5,-3){100}}%       %double bond 1-6
-   \fi%                                     % line <1OO not available
-  \fi%
-}%
-\def\bondhoriz{%
-  \ifx\fff\empty%
-    \ifx\bbb\empty%
-     \put(-138,270){\line(1,0){277}}%      %double bond 4-3
-    \else%
-     \put(-138,270){\line(1,0){258}}%      %double bond 4-3
-    \fi%
-  \else%
-    \ifx\bbb\empty%
-     \put(-120,270){\line(1,0){258}}%      %double bond 4-3
-    \else%
-     \put(-120,270){\line(1,0){239}}%      %double bond 4-3
-    \fi%
-  \fi}%
-\def\bondhorizi{%
-  \ifx\eee\empty%
-    \ifx\ccc\empty%
-     \put(-138,136){\line(1,0){277}}%      %double bond 4-3
-    \else%
-     \put(-138,136){\line(1,0){258}}%      %double bond 4-3
-    \fi%
-  \else%
-    \ifx\ccc\empty%
-     \put(-120,136){\line(1,0){258}}%      %double bond 4-3
-    \else%
-     \put(-120,136){\line(1,0){239}}%      %double bond 4-3
-    \fi%
-  \fi}%
-\def\skbonda{%
-  \ifx\aaa\empty%
-    \ifx\bbb\empty%
-     \put(0,406){\line(5,-3){171}}%        %bond 1-2
-    \else%
-     \put(0,406){\line(5,-3){136}}%        %bond 1-2
-    \fi%
-   \else%
-    \ifx\bbb\empty%
-     \put(35,385){\line(5,-3){136}}%       %bond 1-2
-    \else%
-     \put(35,385){\line(5,-3){100}}%       %bond 1-2
-    \fi%
-   \fi}%
-\def\skbondf{%
-  \ifx\aaa\empty%
-    \ifx\fff\empty%
-     \put(0,406){\line(-5,-3){171}}%       %bond 1-6
-    \else%
-     \put(0,406){\line(-5,-3){136}}%       %bond 1-6
-    \fi%
-   \else%
-    \ifx\fff\empty%
-     \put(-35,385){\line(-5,-3){136}}%     %bond 1-6
-    \else%
-     \put(-35,385){\line(-5,-3){100}}%     %bond 1-6
-    \fi%
-   \fi}%
-\def\skbondc{%
-  \ifx\ddd\empty%
-    \ifx\ccc\empty%
-     \put(0,0){\line(5,3){171}}%           %bond 4-3
-    \else%
-     \put(0,0){\line(5,3){136}}%           %bond 4-3
-    \fi%
-  \else%
-    \ifx\ccc\empty%
-     \put(35,21){\line(5,3){138}}%         %bond 4-3
-    \else%
-     \put(35,21){\line(5,3){100}}%         %bond 4-3
-    \fi%
-  \fi}%
-\def\skbondd{%
-  \ifx\ddd\empty%
-    \ifx\eee\empty%
-     \put(0,0){\line(-5,3){171}}%          %bond 4-5
-    \else%
-     \put(0,0){\line(-5,3){136}}%          %bond 4-5
-    \fi%
-  \else%
-    \ifx\eee\empty%
-     \put(-35,21){\line(-5,3){138}}%       %bond 4-5
-    \else%
-     \put(-35,21){\line(-5,3){100}}%        %bond 4-5
-    \fi%
-  \fi}%
-\def\skbondb{%
-  \ifx\bbb\empty%%
-    \ifx\ccc\empty%%
-     \put(171,103){\line(0,1){200}}%       %bond 3-2
-    \else%
-     \put(171,143){\line(0,1){160}}%       %bond 3-2
-    \fi%
-  \else%
-    \ifx\ccc\empty%%
-     \put(171,103){\line(0,1){150}}%       %bond 3-2
-    \else%
-     \put(171,143){\line(0,1){110}}%       %bond 3-2
-    \fi%
-  \fi}%
-\def\skbonde{%
-  \ifx\eee\empty%
-    \ifx\fff\empty%
-     \put(-171,103){\line(0,1){200}}%       %bond 5-6
-    \else%
-     \put(-171,103){\line(0,1){150}}%       %bond 5-6
-    \fi%
-  \else%
-    \ifx\fff\empty%
-     \put(-171,143){\line(0,1){160}}%       %bond 5-6
-    \else%
-     \put(-171,143){\line(0,1){110}}%       %bond 5-6
-    \fi%
-  \fi}%
-\def\skbondhoriz{%
-  \ifx\fff\empty%
-    \ifx\bbb\empty%
-     \put(-171,303){\line(1,0){342}}%      %bond 4-3
-    \else%
-     \put(-171,303){\line(1,0){300}}%      %bond 4-3
-    \fi%
-  \else%
-    \ifx\bbb\empty%
-     \put(171,303){\line(-1,0){300}}%      %bond 4-3
-    \else%
-     \put(-129,303){\line(1,0){258}}%      %bond 4-3
-    \fi%
-  \fi}%
-\def\skbondhorizi{%
-  \ifx\eee\empty%
-    \ifx\ccc\empty%
-     \put(-171,103){\line(1,0){342}}%      %bond 4-3
-    \else%
-     \put(-171,103){\line(1,0){300}}%      %bond 4-3
-    \fi%
-  \else%
-    \ifx\ccc\empty%
-     \put(171,103){\line(-1,0){300}}%      %bond 4-3
-    \else%
-     \put(-129,103){\line(1,0){258}}%      %bond 4-3
-    \fi%
-  \fi}%
-\def\set@outskel@sixv{%
- \skbonda% bond between 1 and 2
- \skbondf% bond between 1 and 6
- \skbondc% bond between 4 and 3
- \skbondd% bond between 4 and 5
- \skbondb% bond between 3 and 2
- \skbonde% bond between 5 and 6
-}
-\def\dotskbonda{%
-  \ifx\aaa\empty%
-    \ifx\bbb\empty%
-       \@ifundefined{dottedline}{%
-         \put(0,406){\line(5,-3){171}}%        %bond 1-2
-           }{{\thicklines%
-              \dottedline{20}(0,406)(171,303)}}%
-    \else%
-       \@ifundefined{dottedline}{%
-         \put(0,406){\line(5,-3){136}}%        %bond 1-2
-           }{{\thicklines%
-              \dottedline{20}(0,406)(136,324)}}%
-    \fi%
-   \else%
-    \ifx\bbb\empty%
-       \@ifundefined{dottedline}{%
-        \put(35,385){\line(5,-3){136}}%       %bond 1-2
-           }{{\thicklines%
-              \dottedline{20}(35,386)(171,303)}}%
-    \else%
-       \@ifundefined{dottedline}{%
-       \put(35,385){\line(5,-3){100}}%       %bond 1-2
-           }{{\thicklines%
-              \dottedline{20}(35,386)(136,324)}}%
-    \fi%
-   \fi}%
-\def\dotskbondb{%
-  \ifx\bbb\empty%%
-    \ifx\ccc\empty%%
-       \@ifundefined{dottedline}{%
-         \put(171,103){\line(0,1){200}}%       %bond 3-2
-           }{{\thicklines%
-              \dottedline{20}(171,103)(171,303)}}%
-    \else%
-       \@ifundefined{dottedline}{%
-        \put(171,143){\line(0,1){160}}%       %bond 3-2
-           }{{\thicklines%
-              \dottedline{20}(171,143)(171,303)}}%
-    \fi%
-  \else%
-    \ifx\ccc\empty%%
-       \@ifundefined{dottedline}{%
-        \put(171,103){\line(0,1){150}}%       %bond 3-2
-           }{{\thicklines%
-              \dottedline{20}(171,103)(171,253)}}%
-    \else%
-       \@ifundefined{dottedline}{%
-        \put(171,143){\line(0,1){110}}%       %bond 3-2
-           }{{\thicklines%
-              \dottedline{20}(171,143)(171,253)}}%
-    \fi%
-  \fi}%
-\def\dotskbondc{%
-  \ifx\ddd\empty%
-    \ifx\ccc\empty%%
-       \@ifundefined{dottedline}{%
-         \put(0,0){\line(5,3){171}}%           %bond 4-3
-           }{{\thicklines%
-              \dottedline{20}(0,0)(171,103)}}%
-    \else%
-       \@ifundefined{dottedline}{%
-         \put(0,0){\line(5,3){136}}%           %bond 4-3
-           }{{\thicklines%
-              \dottedline{20}(0,0)(136,81)}}%
-    \fi%
-  \else%
-    \ifx\ccc\empty%
-       \@ifundefined{dottedline}{%
-         \put(35,21){\line(5,3){138}}%         %bond 4-3
-           }{{\thicklines%
-              \dottedline{20}(35,21)(171,103)}}%
-    \else%
-       \@ifundefined{dottedline}{%
-         \put(35,21){\line(5,3){100}}%         %bond 4-3
-           }{{\thicklines%
-              \dottedline{20}(35,21)(136,81)}}%
-    \fi%
-  \fi}%
-\def\dotskbondd{%
-  \ifx\ddd\empty%
-    \ifx\eee\empty%
-       \@ifundefined{dottedline}{%
-         \put(0,0){\line(-5,3){171}}%          %bond 4-5
-           }{{\thicklines%
-              \dottedline{20}(0,0)(-171,103)}}%
-    \else%
-       \@ifundefined{dottedline}{%
-         \put(0,0){\line(-5,3){136}}%          %bond 4-5
-           }{{\thicklines%
-              \dottedline{20}(0,0)(-136,81)}}%
-    \fi%
-  \else%
-    \ifx\eee\empty%
-       \@ifundefined{dottedline}{%
-         \put(-35,21){\line(-5,3){138}}%       %bond 4-5
-           }{{\thicklines%
-              \dottedline{20}(-35,21)(-171,103)}}%
-    \else%
-       \@ifundefined{dottedline}{%
-         \put(-35,21){\line(-5,3){100}}%        %bond 4-5
-           }{{\thicklines%
-              \dottedline{20}(-35,21)(-136,81)}}%
-    \fi%
-  \fi}%
-\def\dotskbonde{%
-  \ifx\eee\empty%
-    \ifx\fff\empty%
-       \@ifundefined{dottedline}{%
-         \put(-171,103){\line(0,1){200}}%       %bond 5-6
-           }{{\thicklines%
-              \dottedline{20}(-171,103)(-171,303)}}%
-    \else%
-       \@ifundefined{dottedline}{%
-       \put(-171,103){\line(0,1){150}}%       %bond 5-6
-           }{{\thicklines%
-              \dottedline{20}(-171,103)(-171,253)}}%
-    \fi%
-  \else%
-    \ifx\fff\empty%
-       \@ifundefined{dottedline}{%
-       \put(-171,143){\line(0,1){160}}%       %bond 5-6
-           }{{\thicklines%
-              \dottedline{20}(-171,143)(-171,303)}}%
-    \else%
-       \@ifundefined{dottedline}{%
-       \put(-171,143){\line(0,1){110}}%       %bond 5-6
-           }{{\thicklines%
-              \dottedline{20}(-171,143)(-171,253)}}%
-    \fi%
-  \fi}%
-\def\dotskbondf{%
-  \ifx\aaa\empty%
-    \ifx\fff\empty%
-       \@ifundefined{dottedline}{%
-        \put(0,406){\line(-5,-3){171}}%       %bond 1-6
-           }{{\thicklines%
-              \dottedline{20}(0,406)(-171,303)}}%
-    \else%
-       \@ifundefined{dottedline}{%
-        \put(0,406){\line(-5,-3){136}}%       %bond 1-6
-           }{{\thicklines%
-              \dottedline{20}(0,406)(-136,325)}}%
-    \fi%
-   \else%
-    \ifx\fff\empty%
-       \@ifundefined{dottedline}{%
-        \put(-35,385){\line(-5,-3){136}}%     %bond 1-6
-           }{{\thicklines%
-              \dottedline{20}(-35,385)(-171,303)}}%
-    \else%
-       \@ifundefined{dottedline}{%
-        \put(-35,385){\line(-5,-3){100}}%     %bond 1-6
-           }{{\thicklines%
-              \dottedline{20}(-35,385)(-136,325)}}%
-    \fi%
-   \fi}%
-\def\dotskbondhoriz{%
-  \ifx\fff\empty%
-    \ifx\bbb\empty%
-       \@ifundefined{dottedline}{%
-        \put(-171,303){\line(1,0){342}}%      %bond 4-3
-           }{{\thicklines%
-              \dottedline{20}(-171,303)(171,303)}}%
-    \else%
-       \@ifundefined{dottedline}{%
-        \put(-171,303){\line(1,0){300}}%      %bond 4-3
-           }{{\thicklines%
-              \dottedline{20}(-171,303)(129,303)}}%
-    \fi%
-  \else%
-    \ifx\bbb\empty%
-       \@ifundefined{dottedline}{%
-        \put(171,303){\line(-1,0){300}}%      %bond 4-3
-           }{{\thicklines%
-              \dottedline{20}(171,303)(-129,303)}}%
-    \else%
-       \@ifundefined{dottedline}{%
-        \put(-129,303){\line(1,0){258}}%      %bond 4-3
-           }{{\thicklines%
-              \dottedline{20}(-129,303)(129,303)}}%
-    \fi%
-  \fi}%
-\def\dotskbondhorizi{%
-  \ifx\eee\empty%
-    \ifx\ccc\empty%
-       \@ifundefined{dottedline}{%
-        \put(-171,103){\line(1,0){342}}%      %bond 4-3
-           }{{\thicklines%
-              \dottedline{20}(-171,103)(171,103)}}%
-    \else%
-       \@ifundefined{dottedline}{%
-        \put(-171,103){\line(1,0){300}}%      %bond 4-3
-           }{{\thicklines%
-              \dottedline{20}(-171,103)(129,103)}}%
-    \fi%
-  \else%
-    \ifx\ccc\empty%
-       \@ifundefined{dottedline}{%
-        \put(171,103){\line(-1,0){300}}%      %bond 4-3
-           }{{\thicklines%
-              \dottedline{20}(171,103)(-129,103)}}%
-    \else%
-       \@ifundefined{dottedline}{%
-        \put(-129,103){\line(1,0){258}}%      %bond 4-3
-           }{{\thicklines%
-              \dottedline{20}(-129,103)(129,103)}}%
-    \fi%
-  \fi}%
-\newif\if@skbondlist
-\@skbondlistfalse
-\def\set@skel@bond#1#2#3{%
- \expandafter\if\csname @#2#2#2\endcsname #2\relax%OK
-                               % \if\@aaa #2\relax%OK
-  \@skbondlistfalse
-  \@tfor\member:=#1\do{%
-   \expandafter\twoCH@@R\member//%
-    \if\@@tmpa #2\relax%
-      \if\@@tmpb A\relax%
-        \expandafter\csname dotskbond#3\endcsname% \dotskbonda etc.
-        \@skbondlisttrue
-      \else\if\@@tmpb B\relax%
-        {\thicklines
-        \expandafter\csname skbond#3\endcsname% \skbonda etc.
-        }%
-        \@skbondlisttrue
-      \fi\fi
-     \fi%
-    }%
-   \if@skbondlist\else
-     {\thinlines
-        \expandafter\csname skbond#3\endcsname% \skbonda etc.
-     }%
-   \fi%
-  \else
-    \expandafter\ifx\csname @#2#2#2\endcsname \empty\relax%
-                                %    \ifx\@aaa\empty\relax
-    \@tfor\member:=#1\do{%
-     \expandafter\twoCH@@R\member//%
-      \if\@@tmpa #2\relax%
-       \XyMTeXWarning{Unavailable bond `#2' in SKBONDLIST}\fi
-    }%
-  \fi\fi
-}% end of \set@skel@bond
-\def\set@skel@longbond#1#2#3{%
- \expandafter\if\csname @#2#2#2\endcsname #2\relax%OK
-                               % \if\@aaa #2\relax%OK
-  \@skbondlistfalse
-  \@tfor\member:=#1\do{%
-   \expandafter\twoCH@@R\member//%
-    \if\@@tmpa #2\relax%
-      \if\@@tmpb A\relax%
-        \expandafter\csname dot#3\endcsname% \dotskbonda etc.
-        \@skbondlisttrue
-      \else\if\@@tmpb B\relax%
-        {\thicklines
-        \expandafter\csname #3\endcsname% \skbonda etc.
-        }%
-        \@skbondlisttrue
-      \fi\fi
-     \fi%
-    }%
-   \if@skbondlist\else
-     {\thinlines
-        \expandafter\csname #3\endcsname% \skbonda etc.
-     }%
-   \fi%
-  \else
-    \expandafter\ifx\csname @#2#2#2\endcsname \empty\relax%
-                                %    \ifx\@aaa\empty\relax
-    \@tfor\member:=#1\do{%
-     \expandafter\twoCH@@R\member//%
-      \if\@@tmpa #2\relax%
-       \XyMTeXWarning{Unavailable bond `#2' in SKBONDLIST}\fi
-    }%
-  \fi\fi
-}% end of \set@skel@longbond
-\def\@bond@@omit#1{%
-\@tfor\memBer:=#1\do{%
-\if\memBer a\relax\gdef\@aaa{}\fi%
-\if\memBer A\relax\gdef\@aaa{}\fi%
-\if\memBer b\relax\gdef\@bbb{}\fi%
-\if\memBer B\relax\gdef\@bbb{}\fi%
-\if\memBer c\relax\gdef\@ccc{}\fi%
-\if\memBer C\relax\gdef\@ccc{}\fi%
-\if\memBer d\relax\gdef\@ddd{}\fi%
-\if\memBer D\relax\gdef\@ddd{}\fi%
-\if\memBer e\relax\gdef\@eee{}\fi%
-\if\memBer E\relax\gdef\@eee{}\fi%
-\if\memBer f\relax\gdef\@fff{}\fi%
-\if\memBer F\relax\gdef\@fff{}\fi%
-\if\memBer g\relax\gdef\@ggg{}\fi%
-\if\memBer G\relax\gdef\@ggg{}\fi%
-\if\memBer h\relax\gdef\@hhh{}\fi%
-\if\memBer H\relax\gdef\@hhh{}\fi%
-\if\memBer i\relax\gdef\@iii{}\fi%
-\if\memBer I\relax\gdef\@iii{}\fi%
-\if\memBer j\relax\gdef\@jjj{}\fi%
-\if\memBer J\relax\gdef\@jjj{}\fi%
-\if\memBer k\relax\gdef\@kkk{}\fi%
-\if\memBer K\relax\gdef\@kkk{}\fi%
-}}%
-\def\sixheterov{\@ifnextchar({\@six@heterov(@}{\@six@heterov(@)}}
-\def\@six@heterov(#1){\@ifnextchar[{\@six@@heterov(#1)[@}%
-{\@six@@heterov(#1)[@]}}
-\def\@six@@heterov(#1)[#2]#3#4{\@ifnextchar[%
-{\@sixheterov(#1)[#2]{#3}{#4}[@}%
-{\@sixheterov(#1)[#2]{#3}{#4}[@]}}
-\def\@sixheterov(#1)[#2]#3#4[#5]{%
-\iniatom\iniflag%initialize
-\test@vertix@sixv{#3}{a}{b}{c}{d}{e}{f}%
-\@reset@ylsw%
-\ylposition{#4}{0}{0}{7}{0}%
-\if@ylsw%
-\yl@shiftii=\@ylii
-\yl@shifti=\@yli
-\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 `sixheterov' origin: %
-    (\the\noshift,\the\noshift) ---> (\the\shiftii,\the\shifti)}\fi%
-\fi
-{%
-\resetbdsw%
-\@bond@@omit{#5}%
-\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
-}%
-%%%%%\set@outskel@sixv % replaced by above 1998/12/30
-\@tfor\member:=#2\do{%
-\if\member r\relax \bondd \bondf \bondb%
-\else\if\member l\relax \bonda \bondc \bonde%
-\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}%    %subst 1--6
-\end{picture}\iniatom\iniflag}%     %end of \sixheterov macro
-\def\sixheterovi{\@ifnextchar({\@six@heterovi(@}{\@six@heterovi(@)}}
-\def\@six@heterovi(#1){\@ifnextchar[{\@six@@heterovi(#1)[@}%
-{\@six@@heterovi(#1)[@]}}
-\def\@six@@heterovi(#1)[#2]#3#4{\@ifnextchar[%
-{\@sixheterovi(#1)[#2]{#3}{#4}[@}%
-{\@sixheterovi(#1)[#2]{#3}{#4}[@]}}
-\def\@sixheterovi(#1)[#2]#3#4[#5]{%
-\iniatom\iniflag%initialize
-\test@vertix@sixv{#3}{d}{c}{b}{a}{f}{e}%
-\@reset@ylsw%
-\ylposition{#4}{5}{0}{5}{-1}%    %subst 1--4
-\ylposition{#4}{11}{4}{7}{-1}%   %subst 5 and 6
-\if@ylsw
- \yl@shiftii=\@ylii
- \yl@shifti=\@yli
- \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 `sixheterovi' origin: %
-    (\the\noshift,\the\noshift) ---> (\the\shiftii,\the\shifti)}\fi%
-\fi
-{\resetbdsw%
-\@bond@@omit{#5}%
-\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
-}%
-%%%\set@outskel@sixv% replaced by the above 1998/12/30
-\@tfor\member:=#2\do{%
-\if\member r\relax \bondd \bondf \bondb%
-\else\if\member l\relax \bonda \bondc \bonde%
-\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}\iniatom\iniflag}%     %end of \sixheterovi macro
-\def\pyridinev{\@ifnextchar[{\@pyridinev[@}{\@pyridinev[r]}}
-\def\@pyridinev[#1]#2{%
-\iforigpt \typeout{command `pyridinev' %
-   is based on `sixheterov'.}\fi%
-\sixheterov[#1]{1==N}{#2}}%end of \pyridinev macro
-\def\pyridinevi{\@ifnextchar[{\@pyridinevi[@}{\@pyridinevi[r]}}
-\def\@pyridinevi[#1]#2{%
-\iforigpt \typeout{command `pyridinevi' %
-   is based on `sixheterovi'.}\fi%
-\sixheterovi[#1]{1==N}{#2}}%end of \pyridinevi macro
-\def\pyrazinev{\@ifnextchar[{\@pyrazinev[@}{\@pyrazinev[r]}}
-\def\@pyrazinev[#1]#2{%
-\iforigpt \typeout{command `pyrazinev' %
-   is based on `sixheterov'.}\fi%
-\sixheterov[#1]{1==N;4==N}{#2}}%end of \pyrazinev macro
-\def\pyrazinevi{\@ifnextchar[{\@pyrazinevi[@}{\@pyrazinevi[r]}}
-\def\@pyrazinevi[#1]#2{%
-\iforigpt \typeout{command `pyrazinevi' %
-   is based on `sixheterovi'.}\fi%
-\sixheterovi[#1]{1==N;4==N}{#2}}%end of \pyrazinevi macro
-\def\pyrimidinev{\@ifnextchar[{\@pyrimidinev[@}{\@pyrimidinev[r]}}
-\def\@pyrimidinev[#1]#2{%
-\iforigpt \typeout{command `pyrimidinev' %
-   is based on `sixheterov'.}\fi%
-\sixheterov[#1]{1==N;3==N}{#2}}%end of \pyrimidinev macro
-\def\pyrimidinevi{\@ifnextchar[{\@pyrimidinevi[@}{\@pyrimidinevi[r]}}
-\def\@pyrimidinevi[#1]#2{%
-\iforigpt \typeout{command `pyrimidinevi' %
-   is based on `sixheterovi'.}\fi%
-\sixheterovi[#1]{1==N;3==N}{#2}}%end of \pyrimidinevi macro
-\def\pyridazinev{\@ifnextchar[{\@pyridazinev[@}{\@pyridazinev[r]}}
-\def\@pyridazinev[#1]#2{%
-\iforigpt \typeout{command `pyridazinev' %
-   is based on `sixheterov'.}\fi%
-\sixheterov[#1]{1==N;2==N}{#2}}%end of \pyridazinev macro
-\def\pyridazinevi{\@ifnextchar[{\@pyridazinevi[@}{\@pyridazinevi[r]}}
-\def\@pyridazinevi[#1]#2{%
-\iforigpt \typeout{command `pyridazinev' %
-   is based on `sixheterovi'.}\fi%
-\sixheterovi[#1]{1==N;2==N}{#2}}%end of \pyridazinevi macro
-\def\triazinev{\@ifnextchar[{\@triazinev[@}{\@triazinev[r]}}
-\def\@triazinev[#1]#2{%
-\iforigpt \typeout{command `triazinev' %
-   is based on `sixheterov'.}\fi%
-\sixheterov[#1]{1==N;3==N;5==N}{#2}}%end of \triazinev macro
-\def\triazinevi{\@ifnextchar[{\@triazinevi[@}{\@triazinevi[r]}}
-\def\@triazinevi[#1]#2{%
-\iforigpt \typeout{command `triazinevi' %
-   is based on `sixheterovi'.}\fi%
-\sixheterovi[#1]{1==N;3==N;5==N}{#2}}%end of \triazinevi macro
-\def\fiveheterov{\@ifnextchar({\@five@heterov(@}{\@five@heterov(@)}}
-\def\@five@heterov(#1){\@ifnextchar[{\@five@@heterov(#1)[@}%
-{\@five@@heterov(#1)[@]}}
-\def\@five@@heterov(#1)[#2]#3#4{\@ifnextchar[%
-{\@fiveheterov(#1)[#2]{#3}{#4}[@}%
-{\@fiveheterov(#1)[#2]{#3}{#4}[@]}}
-\def\@fiveheterov(#1)[#2]#3#4[#5]{%
-\iniatom\iniflag%initialize
-\test@vertix@sixv{#3}{d}{c}{b}{f}{e}{a}%
-\@reset@ylsw%
-\ylposition{#4}{5}{1}{5}{-1}%   % for 1 to 3
-\ylposition{#4}{10}{4}{7}{-1}%  % for 4 to 5
-\if@ylsw
- \yl@shiftii=\@ylii
- \yl@shifti=\@yli
- \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 `fiveheterov' origin: %
-    (\the\noshift,\the\noshift) ---> (\the\shiftii,\the\shifti)}\fi%
-\fi
-{\resetbdsw%
-\@bond@@omit{#5}%
-\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\if\member A\relax%
- \put(0,173){\circle{180}}%aromatic circle
-\else
-    \expandafter\twoCH@@R\member//%
-    \set@fusionadd@fivev
-\fi\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}\iniatom\iniflag}% end of \fiveheterov macro
-\def\fiveheterovi{\@ifnextchar({\@five@heterovi(@}{\@five@heterovi(@)}}
-\def\@five@heterovi(#1){\@ifnextchar[{\@five@@heterovi(#1)[@}%
-{\@five@@heterovi(#1)[@]}}
-\def\@five@@heterovi(#1)[#2]#3#4{\@ifnextchar[%
-{\@fiveheterovi(#1)[#2]{#3}{#4}[@}%
-{\@fiveheterovi(#1)[#2]{#3}{#4}[@]}}
-\def\@fiveheterovi(#1)[#2]#3#4[#5]{%
-\iniatom\iniflag%initialize
-\test@vertix@sixv{#3}{a}{b}{c}{e}{f}{d}% d -- dummy
-\@reset@ylsw%
-\ylposition{#4}{0}{0}{4}{0}%  % for 1 to 3
-\ylposition{#4}{1}{4}{7}{0}%  % for 4 to 5
-\if@ylsw
- \yl@shiftii=\@ylii
- \yl@shifti=\@yli
- \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 `fiveheterovi' origin: %
-    (\the\noshift,\the\noshift) ---> (\the\shiftii,\the\shifti)}\fi%
-\fi
-{\resetbdsw%
-\@bond@@omit{#5}%
-\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\if\member A\relax%
- \put(0,233){\circle{180}}%aromatic circle
-\else
-    \expandafter\twoCH@@R\member//%
-    \set@fusionadd@fivevi
-\fi\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}\iniatom\iniflag}%end of \fiveheterovi macro
-\def\pyrrolev{\@ifnextchar[{\@pyrrolev[@}{\@pyrrolev[bd]}}
-\def\@pyrrolev[#1]#2{%
-\iforigpt \typeout{command `pyrrolev' %
-  is based on `fiveheterov'.}\fi%
-\fiveheterov[#1]{1==N}{#2}}
-\def\pyrazolev{\@ifnextchar[{\@pyrazolev[@}{\@pyrazolev[bd]}}
-\def\@pyrazolev[#1]#2{%
-\iforigpt \typeout{command `pyrazolev' %
-  is based on `fiveheterov'.}\fi%
-\fiveheterov[#1]{1==N;2==N}{#2}}
-\def\imidazolev{\@ifnextchar[{\@imidazolev[@}{\@imidazolev[bd]}}
-\def\@imidazolev[#1]#2{%
-\iforigpt \typeout{command `imidazolev' %
-  is based on `fiveheterov'.}\fi%
-\fiveheterov[#1]{1==N;3==N}{#2}}
-\def\isoxazolev{\@ifnextchar[{\@isoxazolev[@}{\@isoxazolev[bd]}}
-\def\@isoxazolev[#1]#2{%
-\iforigpt \typeout{command `isoxazolev' %
-  is based on `fiveheterov'.}\fi%
-\fiveheterov[#1]{1==O;2==N}{#2}}
-\def\oxazolev{\@ifnextchar[{\@oxazolev[@}{\@oxazolev[bd]}}
-\def\@oxazolev[#1]#2{%
-\iforigpt \typeout{command `oxazolev' %
-  is based on `fiveheterov'.}\fi%
-\fiveheterov[#1]{1==O;3==N}{#2}}
-\def\furanv{\@ifnextchar[{\@furanv[@}{\@furanv[bd]}}
-\def\@furanv[#1]#2{%
-\iforigpt \typeout{command `furanv' %
-  is based on `fiveheterov'.}\fi%
-\fiveheterov[#1]{1==O}{#2}}
-\def\thiophenev{\@ifnextchar[{\@thiophenev[@}{\@thiophenev[bd]}}
-\def\@thiophenev[#1]#2{%
-\iforigpt \typeout{command `thiophenev' %
-  is based on `fiveheterov'.}\fi%
-\fiveheterov[#1]{1==S}{#2}}
-\def\pyrrolevi{\@ifnextchar[{\@pyrrolevi[@}{\@pyrrolevi[bd]}}
-\def\@pyrrolevi[#1]#2{%
-\iforigpt \typeout{command `pyrrolevi' %
-  is based on `fiveheterovi'.}\fi%
-\fiveheterovi[#1]{1==N}{#2}}
-\def\pyrazolevi{\@ifnextchar[{\@pyrazolevi[@}{\@pyrazolevi[bd]}}
-\def\@pyrazolevi[#1]#2{%
-\iforigpt \typeout{command `pyrazolevi' %
-  is based on `fiveheterovi'.}\fi%
-\fiveheterovi[#1]{1==N;2==N}{#2}}
-\def\imidazolevi{\@ifnextchar[{\@imidazolevi[@}{\@imidazolevi[bd]}}
-\def\@imidazolevi[#1]#2{%
-\iforigpt \typeout{command `imidazolevi' %
-  is based on `fiveheterovi'.}\fi%
-\fiveheterovi[#1]{1==N;3==N}{#2}}
-\def\isoxazolevi{\@ifnextchar[{\@isoxazolevi[@}{\@isoxazolevi[bd]}}
-\def\@isoxazolevi[#1]#2{%
-\iforigpt \typeout{command `isoxazolevi' %
-  is based on `fiveheterovi'.}\fi%
-\fiveheterovi[#1]{1==O;2==N}{#2}}
-\def\oxazolevi{\@ifnextchar[{\@oxazolevi[@}{\@oxazolevi[bd]}}
-\def\@oxazolevi[#1]#2{%
-\iforigpt \typeout{command `oxazolevi' %
-  is based on `fiveheterovi'.}\fi%
-\fiveheterovi[#1]{1==O;3==N}{#2}}
-\def\furanvi{\@ifnextchar[{\@furanvi[@}{\@furanvi[bd]}}
-\def\@furanvi[#1]#2{%
-\iforigpt \typeout{command `furanvi' %
-  is based on `fiveheterovi'.}\fi%
-\fiveheterovi[#1]{1==O}{#2}}
-\def\thiophenevi{\@ifnextchar[{\@thiophenevi[@}{\@thiophenevi[bd]}}
-\def\@thiophenevi[#1]#2{%
-\iforigpt \typeout{command `thiophenevi' %
-  is based on `fiveheterovi'.}\fi%
-\fiveheterovi[#1]{1==S}{#2}}
-\def\decaheterov{\@ifnextchar({\@deca@heterov(@}{\@deca@heterov(@)}}
-\def\@deca@heterov(#1){\@ifnextchar[{\@deca@@heterov(#1)[@}%
-{\@deca@@heterov(#1)[@]}}
-\def\@deca@@heterov(#1)[#2]#3#4{\@ifnextchar[%
-{\@decaheterov(#1)[#2]{#3}{#4}[@}%
-{\@decaheterov(#1)[#2]{#3}{#4}[@]}}
-\def\@decaheterov(#1)[#2]#3#4[#5]{%
-\iniflag\iniatom%
-\test@vertix@sixv{#3}{a}{b}{c}{d}{e}{f}%
-\test@vertix@decav{#3}{g}{h}{i}{j}{@}{@}%
-\@reset@ylsw%
-\ylhetposition{#4}{0}{0}{5}{0}% %substituents on 1 to 4
-\if@ylsw \ifx\@@ylii\empty
-\def\@@ylii{-342}\def\@@yli{0}\fi
-\else
-\ylhetposition{#4}{-1}{3}{7}{0}% %substituents on 5 to 7
-\fi
-\if@ylsw \ifx\@@ylii\empty
-\def\@@ylii{0}\def\@@yli{0}\fi
-\else
-\ylhetposition{#4}{-7}{0}{2}{0}% %substituent on 8
-\fi
-\if@ylsw \ifx\@@ylii\empty
-\def\@@ylii{0}\def\@@yli{0}\fi
-\else
-{%
-\clipdetection%
-\@clipfusefalse \if@iclip \@clipfusetrue \fi%
-\ylatombondposition{#4}{-8}{7}%   %9 %for 4a position
-}%
-\fi
-\if@ylsw \ifx\@@ylii\empty
-\def\@@ylii{-171}\def\@@yli{-103}\fi
-\else
-{%
-\clipdetection%
-\@clipfusefalse \if@jclip \@clipfusetrue \fi%
-\ylatombondposition{#4}{-9}{1}%  %10 for 8a position
-}%
-\fi
-\if@ylsw \ifx\@@ylii\empty
-\def\@@ylii{-171}\def\@@yli{-303}\fi
-\fi
-\if@ylsw
- \yl@shiftii=\@ylii
- \yl@shifti=\@yli
- \advance\yl@shiftii\@@ylii
- \advance\yl@shifti\@@yli
- \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}(1200,880)(-\shiftii,-\shifti)%
-  \iforigpt \put(-\shiftii,-\shifti){\circle*{50}}%
-           \put(-\noshift,-\noshift){\circle{50}}%
-   \typeout{command `decaheterov' origin: %
-    (\the\noshift,\the\noshift) ---> (\the\shiftii,\the\shifti)}\fi%
-\fi
-\begingroup
-\resetbdsw%
-\@bond@@omit{#5}%
-{\let\fff=\jjj \let\eee=\iii%
-\put(342,0){\set@skel@bond{#1}{a}{a}}%
-  % bond between 1 and 2 \@aaa -> \skbonda etc
-\put(342,0){\set@skel@bond{#1}{b}{b}}%
-  % bond between 2 and 3 \@bbb -> \skbondb etc
-\put(342,0){\set@skel@bond{#1}{c}{c}}%
-  % bond between 3 and 4 \@ccc -> \skbondc etc
-\put(342,0){\set@skel@bond{#1}{d}{d}}%
-  % bond between 4 and 4a \@ddd -> \skbondd etc
-\put(342,0){\set@skel@bond{#1}{k}{e}}%
-  % bond between 4a and 8a \@kkk -> \skbonde etc
-\put(342,0){\set@skel@bond{#1}{j}{f}}%
-  % bond between 8a and 1 \@jjj -> \skbondf etc
-}%
-{\let\aaa=\hhh \let\ddd=\eee\let\eee=\fff\let\fff=\ggg%
- \let\ccc=\iii\let\bbb=\jjj%
-\set@skel@bond{#1}{i}{a}% bond between 8 and 8a \@iii -> \skbonda etc
-\set@skel@bond{#1}{e}{c}% bond between 5 and 4a \@eee -> \skbondc etc
-\set@skel@bond{#1}{f}{d}% bond between 5 and 6 \@fff -> \skbondd etc
-\set@skel@bond{#1}{g}{e}% bond between 6 and 7 \@ggg -> \skbonde etc
-\set@skel@bond{#1}{h}{f}% bond between 7 and 8 \@hhh -> \skbondf etc
-}%
-\endgroup
-\@tfor\member:=#2\do{%
-\if\member r\relax%
-{\let\fff=\jjj \let\eee=\iii%
- \put(342,0){\bonda}% bond between 1 and 2
- \put(342,0){\bondc}% bond between 3 and 4
-}%
-{\let\aaa=\hhh \let\ddd=\eee\let\eee=\fff\let\fff=\ggg%
- \let\ccc=\iii\let\bbb=\jjj%
- \put(0,0){\bondb}% bond between 8a and 4a
- \put(0,0){\bondf}% bond between 8 and 7
- \put(0,0){\bondd}% bond between 5 and 6
-}%
-\else\if\member l\relax%
-\else\if\member a\relax%
- \put(342,0){\bonda}% bond between 1 and 2
-\else\if\member b\relax
- \put(342,0){\bondb}% bond between 2 and 3
-\else\if\member c\relax
- \put(342,0){\bondc}% bond between 3 and 4
-\else\if\member d\relax%
-{\let\eee=\iii%
- \put(342,0){\bondd}% bond between 4 and 4a
-}%
-\else\if\member e\relax%
-{\let\ccc=\iii \let\ddd=\eee%
- \put(0,0){\bondc}% bond between 5 and 4a
-}%
-\else\if\member f\relax%
-{\let\ddd=\eee \let\eee=\fff%
- \put(0,0){\bondd}% bond between 5 and 6
-}%
-\else\if\member g\relax%
-{\let\eee=\fff \let\fff=\ggg%
- \put(0,0){\bonde}% bond between 6 and 7
-}%
-\else\if\member h\relax%
-{\let\aaa=\hhh \let\fff=\ggg%
- \put(0,0){\bondf}% bond between 8 and 7
-}%
-\else\if\member i\relax%
-{\let\aaa=\hhh \let\bbb=\jjj%
- \put(0,0){\bonda}% bond between 8 and 8a
-}%
-\else\if\member j\relax%
-{\let\fff=\jjj%
- \put(342,0){\bondf}% bond between 1 and 8a
-}%
-\else\if\member k\relax%
-{\let\ccc=\iii\let\bbb=\jjj%
- \put(0,0){\bondb}% bond between 8a and 4a
-}%
-\else\if\member K\relax%
-{\let\eee=\iii\let\fff=\jjj%
- \put(342,0){\bonde}% bond between 8a and 4a in the other ring
-}%
-\else\if\member A%left aromatic circle
-  \put(0,203){\circle{240}}               %circle
-\else\if\member B%left aromatic circle
-  \put(342,203){\circle{240}}             %circle
-\else
-  \expandafter\twoCH@@R\member//
-  \def\aax{8a}\def\aay{4a}\def\aaz{10}%
-      \if\@@tmpa 1\relax%                  % plus charge etc.
-        \putratom{304}{282}{\@@tmpb}%      % right type
-      \else\if\@@tmpa 2\relax%
-        \putratom{402}{253}{\@@tmpb}%      % right type
-      \else\if\@@tmpa 3\relax%
-        \putratom{402}{120}{\@@tmpb}%      % right type
-      \else\if\@@tmpa 4\relax%
-        \putratom{304}{68}{\@@tmpb}%       % right type
-      \else\if\@@tmpa 5\relax%
-        \putratom{-38}{68}{\@@tmpb}%       % right type
-      \else\if\@@tmpa 6\relax%
-        \putlatom{-60}{253}{\@@tmpb}%      % left type
-      \else\if\@@tmpa 7\relax%
-        \putlatom{-60}{120}{\@@tmpb}%      % left type
-      \else\if\@@tmpa 8\relax%
-        \putratom{-38}{282}{\@@tmpb}%      % right type
-      \else\if\@@tmpa 9\relax%
-        \putratom{60}{120}{\@@tmpb}%       % right type
-      \else\ifx\@@tmpa\aaz\relax%1998/10/17
-        \putratom{60}{253}{\@@tmpb}%       % right type
-      \else\ifx\@@tmpa\aax\relax%
-        \putratom{60}{253}{\@@tmpb}%       % right type
-      \else\ifx\@@tmpa\aay\relax%
-        \putratom{60}{120}{\@@tmpb}%       % right type
-      \fi\fi\fi\fi\fi\fi\fi\fi\fi\fi\fi\fi%
-   \expandafter\twoCH@R\member//%
-   \set@fusion@decav
-\fi\fi\fi\fi\fi\fi\fi\fi\fi\fi%
-\fi\fi\fi\fi\fi\fi%
-}%
-\iniflag
-\put(342,0){\set@hetatom@sixv{#3}{0}{0}{5}{0}%
-   \if@aclip \global\@acliptrue\fi
-   \if@bclip \global\@bcliptrue\fi
-   \if@cclip \global\@ccliptrue\fi
-   \if@clip \global\@cliptrue\fi}% %substituents on 1 to 4
-\put(0,0){\iniflag%2000/11/11 by S. Fujita
-   \set@hetatom@sixv{#3}{-1}{3}{7}{0}%
-   \@gclipfalse \if@fclip \global\@gcliptrue \fi%
-   \@fclipfalse \if@eclip \global\@fcliptrue \fi%
-   \@eclipfalse \if@clip \global\@ecliptrue \fi}%substituents on 5 to 7
-\put(0,0){\iniflag%2000/11/11 by S. Fujita
-  \set@hetatom@sixv{#3}{-7}{0}{2}{0}%
-  \@hclipfalse \if@aclip \global\@hcliptrue \fi}%%substituent on 8
-\put(0,0){\set@vrtx@fuse{#3}%
-  \if@iclip \global\@icliptrue \fi
-  \if@jclip \global\@jcliptrue \fi}% fused positions
-\put(342,0){\setsixringv{#4}{0}{0}{5}{0}}% %substituents on 1 to 4
-{%
- \@clipfalse \if@eclip \@cliptrue \fi%   %substituents on 5 to 7
- \@eclipfalse \if@fclip \@ecliptrue \fi%
- \@fclipfalse \if@gclip \@fcliptrue \fi%
-\put(0,0){\setsixringv{#4}{-1}{3}{7}{0}}%
-}%
-{\@aclipfalse \if@hclip \@acliptrue \fi%   %substituent on 8
-\put(0,0){\setsixringv{#4}{-7}{0}{2}{0}}%
-}%
-{\@clipfusefalse \if@iclip \@clipfusetrue \fi%
- \put(171,103){\setatombond{#4}{-8}{7}}%   %9 %for 4a position
-}%
-{\@clipfusefalse \if@jclip \@clipfusetrue \fi%
-  \put(171,303){\setatombond{#4}{-9}{1}}%  %10 for 8a position
-}%
-\end{picture}\iniatom\iniflag}%     %end of \decaheterov macro
-\def\clipdetection{%
-\ifx\aaa\empty\else%
-     \@acliptrue%
-\fi%
-\ifx\bbb\empty\else%
-     \@bcliptrue%
-\fi%
-\ifx\ccc\empty\else%
-     \@ccliptrue%
-\fi%
-\ifx\ddd\empty\else%
-   \@cliptrue%
-\fi%
-{\let\eee=\iii%
-\ifx\eee\empty\else%
-     \global\@icliptrue%
-\fi%
-}%
-{\let\fff=\jjj%
-\ifx\fff\empty\else%
-     \global\@jcliptrue%
-\fi%
-}%
-{\let\ddd=\eee%
-\ifx\ddd\empty\else
-   \global\@ecliptrue%
-\fi%
-}%
-{\let\eee=\fff%
-\ifx\eee\empty\else%
-     \global\@fcliptrue%
-\fi%
-}%
-{\let\fff=\ggg%
-\ifx\fff\empty\else%
-     \global\@gcliptrue%
-\fi%
-}%
-{\let\aaa=\hhh%
-\ifx\aaa\empty\else%
-     \global\@hcliptrue%
-\fi%
-}}% end \clipdetection
-\def\ylhetposition#1#2#3#4#5{%
-\@@ylswfalse%%%\@reset@ylsw
-\@forsemicol\member:=#1\do{%
-\if@@ylsw\else%
-\ifx\member\empty\else%
-\expandafter\@m@mb@r\member;\relax%
-\expandafter\threech@r\@membera{}{}\relax%
-\ifx\@memberb\@yl\relax\@@ylswtrue\else\@@ylswfalse\fi
-\if@@ylsw
-\ifnum#5<0\relax%
-\@tmpaa=-\@tmpa\relax \advance\@tmpaa by#2\relax%
-\else\@tmpaa=\@tmpa\relax \advance\@tmpaa by#2\relax\fi
-\ifnum\@tmpaa>#3\relax%
-\ifnum\@tmpaa<#4\relax%
-\ifcase\@tmpaa%0 omit
- \or
-    \ifx\aaa\empty
-     \ifx\hhh\empty% aaa and hhh are absent
-       \gdef\@ylii{0}\gdef\@yli{-406}\global\@ylswtrue%\@ylatrue% subst. on 1
-     \else% hhh is present
-       \def\@ylii{0}\def\@yli{-442}\@ylswtrue%\@ylatrue% subst. on 1
-     \fi
-    \else%aaa is present
-      \def\@ylii{0}\def\@yli{-442}\@ylswtrue%\@ylatrue% subst. on 1
-    \fi
- \or\ifx\bbb\empty
-      \def\@ylii{-171}\def\@yli{-303}\@ylswtrue%\@ylbtrue% subst. on 2
-    \else
-      \def\@ylii{-213}\def\@yli{-327}\@ylswtrue%\@ylbtrue% subst. on 2
-    \fi
- \or\ifx\ccc\empty
-      \def\@ylii{-171}\def\@yli{-103}\@ylswtrue%\@ylctrue% subst. on 3
-    \else
-      \def\@ylii{-213}\def\@yli{-79}\@ylswtrue%\@ylctrue% subst. on 3
-    \fi
- \or\ifx\ddd\empty
-     \ifx\eee\empty% ddd and eee are absent
-       \gdef\@ylii{0}\gdef\@yli{0}\global\@ylswtrue%\@yldtrue% subst. on 4
-      \else% eee present
-       \gdef\@ylii{0}\gdef\@yli{36}\global\@ylswtrue%\@yldtrue% subst. on 4
-     \fi
-    \else% ddd present
-      \gdef\@ylii{0}\gdef\@yli{36}\global\@ylswtrue%\@yldtrue% subst. on 4
-    \fi
- \or
-    \ifx\eee\empty
-     \ifx\iii\empty
-      \ifx\fff\empty% eee, iii and fff are absent
-        \def\@ylii{173}\def\@yli{-103}\@ylswtrue%\@yletrue% subst. on 5
-      \else% fff is present
-        \def\@ylii{213}\def\@yli{-79}\@ylswtrue%\@yletrue% subst. on 5
-      \fi
-     \fi
-    \else% eee is present
-       \def\@ylii{213}\def\@yli{-79}\@ylswtrue%\@yletrue% subst. on 5
-   \fi
- \or
-    \ifx\fff\empty
-     \ifx\jjj\empty
-      \ifx\ggg\empty% fff, jjj, and ggg are absent
-        \def\@ylii{173}\def\@yli{-303}\@ylswtrue%\@ylftrue% subst. on 6
-      \else%ggg is present
-        \def\@ylii{213}\def\@yli{-327}\@ylswtrue%\@ylftrue% subst. on 6
-      \fi
-     \fi
-    \else%fff is present
-      \def\@ylii{213}\def\@yli{-327}\@ylswtrue%\@ylftrue% subst. on 6
-    \fi%
-\fi%end of ifcase
-\fi\fi\fi\fi\fi}}%
-\def\decaheterovi{\@ifnextchar({\@deca@heterovi(@}{\@deca@heterovi(@)}}
-\def\@deca@heterovi(#1){\@ifnextchar[{\@deca@@heterovi(#1)[@}%
-{\@deca@@heterovi(#1)[@]}}
-\def\@deca@@heterovi(#1)[#2]#3#4{\@ifnextchar[%
-{\@decaheterovi(#1)[#2]{#3}{#4}[@}%
-{\@decaheterovi(#1)[#2]{#3}{#4}[@]}}
-\def\@decaheterovi(#1)[#2]#3#4[#5]{%
-\iniflag\iniatom%
-%%\test@vertix@sixv{#3}{d}{c}{b}{a}{h}{g}%
-%%\test@vertix@decav{#3}{f}{e}{i}{j}{@}{@}%{i}{j} fixed
-\test@vertix@decavi{#3}%
-\@reset@ylsw%
-\ylhetposition{#4}{5}{0}{5}{-1}% %substituents on 1 to 4
-\if@ylsw \ifx\@@ylii\empty
-\def\@@ylii{-342}\def\@@yli{0}\fi
-\else
-\ylhetposition{#4}{12}{3}{7}{-1}% %substituents on 6 to 8
-\fi
-\if@ylsw \ifx\@@ylii\empty
-\def\@@ylii{0}\def\@@yli{0}\fi
-\else
-\ylhetposition{#4}{-4}{0}{2}{0}% %substituent on 5
-\fi
-\if@ylsw \ifx\@@ylii\empty
-\def\@@ylii{0}\def\@@yli{0}\fi
-\else
-{%
-\clipdetection%
-\@clipfusefalse \if@iclip \@clipfusetrue \fi%
- \ylatombondposition{#4}{-9}{7}%  %10 for 8a position
-}%
-\fi
-\if@ylsw \ifx\@@ylii\empty
-\def\@@ylii{-171}\def\@@yli{-103}\fi
-\else
-{%
-\clipdetection%
-\@clipfusefalse \if@jclip \@clipfusetrue \fi%
-\ylatombondposition{#4}{-8}{1}%   %9 for 4a position
-}%
-\fi
-\if@ylsw \ifx\@@ylii\empty
-\def\@@ylii{-171}\def\@@yli{-303}\fi
-\fi
-\if@ylsw
- \yl@shiftii=\@ylii
- \yl@shifti=\@yli
- \advance\yl@shiftii\@@ylii
- \advance\yl@shifti\@@yli
- \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}(1200,880)(-\shiftii,-\shifti)%
-  \iforigpt \put(-\shiftii,-\shifti){\circle*{50}}%
-           \put(-\noshift,-\noshift){\circle{50}}%
-   \typeout{command `decaheterovi' origin: %
-    (\the\noshift,\the\noshift) ---> (\the\shiftii,\the\shifti)}\fi%
-\fi
-\begingroup
-\resetbdsw%
-\@bond@@omit{#5}%
-{\let\fff=\jjj \let\eee=\iii%
-\put(342,0){\set@skel@bond{#1}{c}{a}}%
-  % bond between 1 and 2 \@aaa -> \skbonda etc
-\put(342,0){\set@skel@bond{#1}{b}{b}}%
-  % bond between 2 and 3 \@bbb -> \skbondb etc
-\put(342,0){\set@skel@bond{#1}{a}{c}}%
-  % bond between 3 and 4 \@ccc -> \skbondc etc
-\put(342,0){\set@skel@bond{#1}{j}{d}}%
-  % bond between 4 and 4a \@ddd -> \skbondd etc
-\put(342,0){\set@skel@bond{#1}{k}{e}}%
-  % bond between 4a and 8a \@kkk -> \skbonde etc
-\put(342,0){\set@skel@bond{#1}{d}{f}}%
-  % bond between 8a and 1 \@jjj -> \skbondf etc
-}%
-{\let\aaa=\hhh \let\ddd=\eee\let\eee=\fff\let\fff=\ggg%
- \let\ccc=\iii\let\bbb=\jjj%
-\set@skel@bond{#1}{e}{a}% bond between 8 and 8a \@eee -> \skbonda etc
-\set@skel@bond{#1}{i}{c}% bond between 5 and 4a \@iii -> \skbondc etc
-\set@skel@bond{#1}{h}{d}% bond between 5 and 6 \@hhh -> \skbondd etc
-\set@skel@bond{#1}{g}{e}% bond between 6 and 7 \@ggg -> \skbonde etc
-\set@skel@bond{#1}{f}{f}% bond between 7 and 8 \@fff -> \skbondf etc
-}%
-\endgroup
-\@tfor\member:=#2\do{%
-\if\member r\relax%
-{\let\fff=\jjj \let\eee=\iii%
- \put(342,0){\bonda}% bond between 1 and 2
- \put(342,0){\bondc}% bond between 3 and 4
-}%
-{\let\aaa=\hhh \let\ddd=\eee\let\eee=\fff\let\fff=\ggg%
- \let\ccc=\iii\let\bbb=\jjj%
- \put(0,0){\bondb}% bond between 8a and 4a
- \put(0,0){\bondf}% bond between 8 and 7
- \put(0,0){\bondd}% bond between 5 and 6
-}%
-\else\if\member l\relax%
-\else\if\member a\relax%
- \put(342,0){\bondc}% bond between 3 and 4
-\else\if\member b\relax%
- \put(342,0){\bondb}% bond between 2 and 3
-\else\if\member c\relax%
- \put(342,0){\bonda}% bond between 1 and 2
-\else\if\member d\relax%
-{\let\fff=\jjj%
- \put(342,0){\bondf}% bond between 1 and 8a
-}%
-\else\if\member e\relax%
-{\let\aaa=\hhh \let\bbb=\jjj%
- \put(0,0){\bonda}% bond between 8 and 8a
-}%
-\else\if\member f\relax%
-{\let\aaa=\hhh \let\fff=\ggg%
- \put(0,0){\bondf}% bond between 8 and 7
-}%
-\else\if\member g\relax%
-{\let\eee=\fff \let\fff=\ggg%
- \put(0,0){\bonde}% bond between 6 and 7
-}%
-\else\if\member h\relax%
-{\let\ddd=\eee \let\eee=\fff%
- \put(0,0){\bondd}% bond between 5 and 6
-}%
-\else\if\member i\relax%
-{\let\ccc=\iii \let\ddd=\eee%
- \put(0,0){\bondc}% bond between 5 and 4a
-}%
-\else\if\member j\relax%
-{\let\eee=\iii%
- \put(342,0){\bondd}% bond between 4 and 4a
-}%
-\else\if\member k\relax%
-{\let\ccc=\iii\let\bbb=\jjj%
- \put(0,0){\bondb}% bond between 8a and 4a
-}%
-\else\if\member K\relax%
-{\let\eee=\iii\let\fff=\jjj%
- \put(342,0){\bonde}% bond between 8a and 4a in the other ring
-}%
-\else\if\member A%left aromatic circle
-  \put(0,203){\circle{240}}               %circle
-\else\if\member B%left aromatic circle
-  \put(342,203){\circle{240}}             %circle
-\else
-  \expandafter\twoCH@@R\member//%
-  \def\aax{4a}\def\aay{8a}\def\aaz{10}%
-      \if\@@tmpa 4\relax%                  % plus charge etc.
-        \putratom{304}{282}{\@@tmpb}%      % right type
-      \else\if\@@tmpa 3\relax%
-        \putratom{402}{253}{\@@tmpb}%      % right type
-      \else\if\@@tmpa 2\relax%
-        \putratom{402}{120}{\@@tmpb}%      % right type
-      \else\if\@@tmpa 1\relax%
-        \putratom{304}{68}{\@@tmpb}%       % right type
-      \else\if\@@tmpa 7\relax%
-        \putlatom{-60}{253}{\@@tmpb}%      % left type
-      \else\if\@@tmpa 6\relax%
-        \putlatom{-60}{120}{\@@tmpb}%      % left type
-      \else\if\@@tmpa 5\relax%
-        \putratom{-38}{282}{\@@tmpb}%      % right type
-      \else\if\@@tmpa 9\relax%
-        \putratom{60}{253}{\@@tmpb}%       % right type
-      \else\ifx\@@tmpa\aax\relax%
-        \putratom{60}{253}{\@@tmpb}%       % right type
-      \else\ifx\@@tmpa\aay\relax%
-        \putratom{60}{120}{\@@tmpb}%       % right type
-      \else\ifx\@@tmpa\aaz\relax% 1998/10/17 by S. Fujita
-        \putratom{60}{120}{\@@tmpb}%       % right type
-      \else\if\@@tmpa 8\relax%
-        \putratom{-38}{68}{\@@tmpb}%       % right type
-      \fi\fi\fi\fi\fi\fi\fi\fi\fi\fi\fi\fi%
-   \expandafter\twoCH@R\member//%
-   \set@fusion@decavi
-\fi\fi\fi\fi\fi\fi\fi\fi\fi\fi%
-\fi\fi\fi\fi\fi\fi%
-}%
-\iniflag\iniatom%
-\@tmpclipfalse
-\put(0,0){\set@hetatom@sixv{#3}{12}{3}{7}{-1}%
- \@gclipfalse \if@fclip \global\@gcliptrue \fi%
- \@fclipfalse \if@eclip \global\@fcliptrue \fi%
- \@eclipfalse \if@clip \global\@ecliptrue \fi%
-}%substituents on 6 to 8
-\put(0,0){\set@hetatom@sixv{#3}{-4}{0}{2}{0}%
- \@aclipfalse \if@aclip \global\@hcliptrue \fi%
-}%%substituent on 5
-\put(0,0){\set@vrtx@decafusevi{#3}%
-  \@tmpclipfalse
-  \if@iclip \global\@tmpcliptrue \fi
-  \if@jclip \global\@icliptrue \fi
-  \if@tmpclip \global\@jcliptrue \fi
-}% fused positions
-\put(342,0){\set@hetatom@sixv{#3}{5}{0}{5}{-1}%
-   \if@aclip \global\@acliptrue\fi
-   \if@bclip \global\@bcliptrue\fi
-   \if@cclip \global\@ccliptrue\fi
-   \if@clip \global\@cliptrue\fi
-}% %substituents on 1 to 4
-\put(342,0){\setsixringv{#4}{5}{0}{5}{-1}}% %substituents on 1 to 4
-{\@clipfalse \if@eclip \@cliptrue \fi%      %substituents on 6 to 8
- \@eclipfalse \if@fclip \@ecliptrue \fi%
- \@fclipfalse \if@gclip \@fcliptrue \fi%
-\put(0,0){\setsixringv{#4}{12}{3}{7}{-1}}%
-}
-{\@aclipfalse \if@hclip \@acliptrue \fi%    %substituent on 5
-\put(0,0){\setsixringv{#4}{-4}{0}{2}{0}}%
-}%
-{\@clipfusefalse \if@iclip \@clipfusetrue \fi%
- \put(171,103){\setatombond{#4}{-9}{7}}%    %10 for 8a position
-}%
-{\@clipfusefalse \if@jclip \@clipfusetrue \fi%
-  \put(171,303){\setatombond{#4}{-8}{1}}%   %9 for 4a position
-}%
-\end{picture}\iniatom\iniflag}%   %end of \decaheterovi macro
-\newif\if@tmpclip \@tmpclipfalse
-\def\test@vertix@decavi#1{%
-\@forsemicol\member:=#1\do{%
-\ifx\member\empty\else%
-\expandafter\@m@mb@r\member;\relax%
-\expandafter\twoch@r\@membera{}%
-\ifcase\@tmpa%
- \or%
-   \if\@tmpb s\relax\def\ddd{}\else\def\ddd{@}\fi
- \or%2
-   \if\@tmpb s\relax\def\ccc{}\else\def\ccc{@}\fi
- \or%3
-   \if\@tmpb s\relax\def\bbb{}\else\def\bbb{@}\fi
- \or%
-   \if\@tmpb a%
-     \def\jjj{@}%4a
-   \else\if\@tmpb s%
-     \def\aaa{}%4
-   \else\if\@tmpb h%
-     \def\aaa{@}%4
-   \else\ifx\@tmpb\empty%
-     \def\aaa{@}%4
-   \fi\fi\fi\fi%
- \or%5
-   \if\@tmpb s\relax\def\hhh{}\else\def\hhh{@}\fi
- \or%6
-   \if\@tmpb s\relax\def\ggg{}\else\def\ggg{@}\fi
- \or%7
-   \if\@tmpb s\relax\def\fff{}\else\def\fff{@}\fi
- \or%
-   \if\@tmpb a%
-     \xdef\iii{@}%8a
-   \else\if\@tmpb s%
-     \xdef\eee{}%8s
-   \else\if\@tmpb h%
-     \xdef\eee{@}%8h
-   \else\ifx\@tmpb\empty%
-     \xdef\eee{@}%8
-   \fi\fi\fi\fi%
-\or%9 (= 4a)
-   \if\@tmpb s\relax\def\jjj{}\else\def\jjj{@}\fi
-\or%10 (= 8a)
-   \if\@tmpb s\relax\def\iii{}\else\def\iii{@}\fi
-\fi\fi}}
-\def\set@vrtx@decafusevi#1{%
-\@forsemicol\member:=#1\do{%
-\ifx\member\empty\else%
-\expandafter\@m@mb@r\member;\relax%
-\expandafter\twoch@r\@membera{}%
-\ifcase\@tmpa\or\or\or
- \or%%%%4
-   \if\@tmpb a%
-     \global\@icliptrue%
-     \putlatom{207}{280}{\@memberb}% % left type
-   \else\relax
-   \fi
- \or\or\or
- \or%8
-   \if\@tmpb a%
-     \global\@jcliptrue%
-     \putlatom{207}{65}{\@memberb}%  % left type
-   \else\relax
-   \fi
-\or%9 (= 4a)
-     \global\@icliptrue%
-     \putlatom{207}{280}{\@memberb}% % left type
-\or%10 (= 8a)
-     \global\@jcliptrue%
-     \putlatom{207}{65}{\@memberb}%  % left type
-\fi\fi}%
-}% end of the macro \set@vrtx@decafusevi
-\def\set@fusion@decavi{%
-  \let\@@tmpa=\@tmpa
-  \let\@@tmpb=\@tmpb
-  \if\@tmpa a%
-      \let\@@tmpa=\@tmpa
-      \put(342,0){\set@fusionadd@sixvi}%
-  \else\if\@tmpa A%
-      \let\@@tmpa=\@tmpa
-      \put(342,0){\set@fusionadd@sixvi}%
-  \else\if\@tmpa b%
-      \let\@@tmpa=\@tmpa
-      \put(342,0){\set@fusionadd@sixvi}%
-  \else\if\@tmpa B%
-      \let\@@tmpa=\@tmpa
-      \put(342,0){\set@fusionadd@sixvi}%
-  \else\if\@tmpa c%
-      \let\@@tmpa=\@tmpa
-      \put(342,0){\set@fusionadd@sixvi}%
-  \else\if\@tmpa C%
-      \let\@@tmpa=\@tmpa
-      \put(342,0){\set@fusionadd@sixvi}%
-  \else\if\@tmpa d%
-      \let\@@tmpa=\@tmpa
-      \put(342,0){\set@fusionadd@sixvi}%
-      \if@smallringsw\else
-       \XyMTeXWarning{Unfavorable Fusion for bond `d'}%
-      \fi
-  \else\if\@tmpa D%
-      \let\@@tmpa=\@tmpa
-      \put(342,0){\set@fusionadd@sixvi}%
-      \if@smallringsw\else
-       \XyMTeXWarning{Unfavorable Fusion for bond `D'}%
-      \fi
-  \else\if\@tmpa e%
-      \edef\@@tmpa{c}%
-      \put(0,0){\set@fusionadd@sixvi}%
-      \if@smallringsw\else
-       \XyMTeXWarning{Unfavorable Fusion for bond `e'}%
-      \fi
-  \else\if\@tmpa E%
-      \edef\@@tmpa{C}%
-      \put(0,0){\set@fusionadd@sixvi}%
-      \if@smallringsw\else
-       \XyMTeXWarning{Unfavorable Fusion for bond `E'}%
-      \fi
-  \else\if\@tmpa f%
-      \edef\@@tmpa{d}%
-      \put(0,0){\set@fusionadd@sixvi}%
-  \else\if\@tmpa F%
-      \edef\@@tmpa{D}%
-      \put(0,0){\set@fusionadd@sixvi}%
-  \else\if\@tmpa g%
-      \edef\@@tmpa{e}%
-      \put(0,0){\set@fusionadd@sixvi}%
-  \else\if\@tmpa G%
-      \edef\@@tmpa{E}%
-      \put(0,0){\set@fusionadd@sixvi}%
-  \else\if\@tmpa h%
-      \edef\@@tmpa{f}%
-      \put(0,0){\set@fusionadd@sixvi}%
-  \else\if\@tmpa H%
-      \edef\@@tmpa{F}%
-      \put(0,0){\set@fusionadd@sixvi}%
-  \else\if\@tmpa i%
-      \edef\@@tmpa{a}%
-      \put(0,0){\set@fusionadd@sixvi}%
-      \if@smallringsw\else
-       \XyMTeXWarning{Unfavorable Fusion for bond `i'}%
-      \fi
-  \else\if\@tmpa I%
-      \edef\@@tmpa{A}%
-      \put(0,0){\set@fusionadd@sixvi}%
-      \if@smallringsw\else
-       \XyMTeXWarning{Unfavorable Fusion for bond `I'}%
-      \fi
-  \else\if\@tmpa j%
-      \edef\@@tmpa{f}%
-      \put(342,0){\set@fusionadd@sixvi}%
-      \if@smallringsw\else
-       \XyMTeXWarning{Unfavorable Fusion for bond `j'}%
-      \fi
-  \else\if\@tmpa J%
-      \edef\@@tmpa{F}%
-      \put(342,0){\set@fusionadd@sixvi}%
-      \if@smallringsw\else
-       \XyMTeXWarning{Unfavorable Fusion for bond `J'}%
-      \fi
-  \else\if\@tmpa k%
-      \edef\@@tmpa{e}%
-      \put(342,0){\set@fusionadd@sixvi}%
-      \if@smallringsw\else
-       \XyMTeXWarning{Forbidden Fusion for bond `k'}%
-      \fi
-  \else\if\@tmpa K%
-      \edef\@@tmpa{E}%
-      \put(342,0){\set@fusionadd@sixvi}%
-      \if@smallringsw\else
-       \XyMTeXWarning{Forbidden Fusion for bond `K'}%
-      \fi
-  \fi\fi\fi\fi\fi\fi\fi\fi\fi\fi\fi\fi%
-  \fi\fi\fi\fi\fi\fi\fi\fi\fi\fi%
-}% end of the macro \set@fusion@decavi
-\def\decaheterovb{\@ifnextchar({\@deca@heterovb(@}{\@deca@heterovb(@)}}
-\def\@deca@heterovb(#1){\@ifnextchar[{\@deca@@heterovb(#1)[@}%
-{\@deca@@heterovb(#1)[@]}}
-\def\@deca@@heterovb(#1)[#2]#3#4{\@ifnextchar[%
-{\@decaheterovb(#1)[#2]{#3}{#4}[@}%
-{\@decaheterovb(#1)[#2]{#3}{#4}[@]}}
-\def\@decaheterovb(#1)[#2]#3#4[#5]{%
-\iniflag\iniatom%
-\test@vertix@decavb{#3}%
-\@reset@ylsw%
-{\let\eee=\ddd\let\ddd=\ccc
-\let\ccc=\bbb\let\bbb=\aaa
-\ylhetpositionb{#4}{1}{1}{6}{0}% %substituents on 1 to 4
-}%
-\if@ylsw \ifx\@@ylii\empty
-\def\@@ylii{0}\def\@@yli{0}\fi
-\else
-\ylhetpositionb{#4}{0}{4}{7}{0}% %substituents on 5 to 6
-\fi
-\if@ylsw \ifx\@@ylii\empty
-\def\@@ylii{171}\def\@@yli{-303}\fi
-\else
-{\let\aaa=\ggg \let\bbb=\hhh
-\ylhetpositionb{#4}{-6}{0}{3}{0}% %substituents on 7 to 8
-}%
-\fi
-\if@ylsw \ifx\@@ylii\empty
-\def\@@ylii{171}\def\@@yli{-303}\fi
-\else
-{%
-\clipdetection%
-\@clipfusefalse \if@iclip \@clipfusetrue \fi%
-\ylatombondposition{#4}{-8}{9}%   %9 %for 4a position
-}%
-\fi
-\if@ylsw \ifx\@@ylii\empty
-\def\@@ylii{171}\def\@@yli{-303}\fi
-\else
-{%
-\clipdetection%
-\@clipfusefalse \if@jclip \@clipfusetrue \fi%
-\ylatombondposition{#4}{-9}{3}%  %10 for 8a position
-}%
-\fi
-\if@ylsw \ifx\@@ylii\empty
-\def\@@ylii{0}\def\@@yli{-406}\fi
-\fi
-\if@ylsw
- \yl@shiftii=\@ylii
- \yl@shifti=\@yli
- \advance\yl@shiftii\@@ylii
- \advance\yl@shifti\@@yli
- \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}(1000,1200)(-550,-240)
-  \iforigpt \put(-550,-240){\circle*{50}}%
-           \put(0,0){\circle{50}}%
-   \typeout{command `decaheterovb' origin: %
-    (\the\noshift,\the\noshift) ---> (\the\shiftii,\the\shifti)}\fi%
-\fi
-\begingroup
-\resetbdsw%
-\@bond@@omit{#5}%
-{\let\eee=\ddd\let\ddd=\ccc
- \let\ccc=\bbb\let\bbb=\aaa
- \let\aaa=\jjj \let\fff=\iii
-\set@skel@bond{#1}{j}{a}% bond between 8a and 1 \@jjj -> \skbonda etc
-\set@skel@bond{#1}{a}{b}% bond between 1 and 2 \@aaa -> \skbondb etc
-\set@skel@bond{#1}{b}{c}% bond between 2 and 3 \@bbb -> \skbondc etc
-\set@skel@bond{#1}{c}{d}% bond between 3 and 4 \@ccc -> \skbondd etc
-\set@skel@bond{#1}{d}{e}% bond between 4 and 4a \@ddd -> \skbonde etc
-\set@skel@bond{#1}{k}{f}% bond between 4a and 8a \@kkk -> \skbondf etc
-}%
-{\let\aaa=\ggg\let\bbb=\hhh\let\ccc=\jjj\let\ddd=\iii
-\put(-171,303){\set@skel@bond{#1}{h}{a}}%
-  % bond between 7 and 8 \@hhh -> \skbonda etc
-\put(-171,303){\set@skel@bond{#1}{i}{b}}%
-  % bond between 8 and 8a \@iii -> \skbondb etc
-\put(-171,303){\set@skel@bond{#1}{e}{d}}%
-  % bond between 4a and 5 \@eee -> \skbondd etc
-\put(-171,303){\set@skel@bond{#1}{f}{e}}%
-  % bond between 5 and 6 \@fff -> \skbonde etc
-\put(-171,303){\set@skel@bond{#1}{g}{f}}%
-  % bond between 6 and 7 \@ggg -> \skbondf etc
-}%
-\endgroup
-\@tfor\member:=#2\do{%
-\if\member r\relax%
-{\let\aaa=\ggg\let\bbb=\hhh\let\ccc=\jjj\let\ddd=\iii
- \put(-171,303){\bonda}% bond between 7 and 8
- \put(-171,303){\bonde}% bond between 5 and 6
-}%
-{\let\eee=\ddd\let\ddd=\ccc
- \let\ccc=\bbb\let\bbb=\aaa
- \let\aaa=\jjj \let\fff=\iii
- \put(0,0){\bondb}% bond between 1 and 2
- \put(0,0){\bondd}% bond between 3 and 4
- \put(0,0){\bondf}% bond between 4a and 4b
-}%
-\else\if\member l\relax%
-\else\if\member a\relax%
-{\let\ccc=\bbb\let\bbb=\aaa
- \put(0,0){\bondb}% bond between 1 and 2
-}%
-\else\if\member b\relax
-{\let\ddd=\ccc\let\ccc=\bbb
- \put(0,0){\bondc}% bond between 2 and 3
-}%
-\else\if\member c\relax
-{\let\eee=\ddd\let\ddd=\ccc
- \put(0,0){\bondd}% bond between 3 and 4
-}%
-\else\if\member d\relax%
-{\let\fff=\eee\let\eee=\ddd
- \put(0,0){\bonde}% bond between 4 and 4a
-}%
-\else\if\member e\relax%
-{\let\ddd=\iii%
- \put(-171,303){\bondd}% bond between 5 and 4a
-}%
-\else\if\member f\relax%
- \put(-171,303){\bonde}% bond between 5 and 6
-\else\if\member g\relax%
-{\let\aaa=\ggg
- \put(-171,303){\bondf}% bond between 6 and 7
-}%
-\else\if\member h\relax%
-{\let\aaa=\ggg \let\bbb=\hhh%
- \put(-171,303){\bonda}% bond between 8 and 7
-}%
-\else\if\member i\relax%
-{\let\bbb=\hhh \let\ccc=\jjj%
- \put(-171,303){\bondb}% bond between 8 and 8a
-}%
-\else\if\member j\relax%
-{\let\bbb=\aaa\let\aaa=\jjj%
- \put(0,0){\bonda}% bond between 1 and 8a
-}%
-\else\if\member k\relax%
-{\let\aaa=\jjj\let\fff=\iii%
- \put(0,0){\bondf}% bond between 8a and 4a
-}%
-\else\if\member K\relax%
-{\let\ccc=\jjj\let\ddd=\iii%
- \put(-171,303){\bondc}% bond between 8a and 4a in the other ring
-}%
-\else\if\member A%left aromatic circle
-  \put(-171,506){\circle{240}}               %circle
-\else\if\member B%left aromatic circle
-  \put(0,203){\circle{240}}             %circle
-\else \expandafter\twoCH@@R\member//%
-  \def\aax{8a}\def\aay{4a}\def\aaz{10}%
-      \if\@@tmpa 1\relax%                  % plus charge etc.
-        \putratom{60}{253}{\@@tmpb}%      % right type
-      \else\if\@@tmpa 2\relax%
-        \putratom{60}{120}{\@@tmpb}%      % right type
-      \else\if\@@tmpa 3\relax%
-        \putratom{-38}{68}{\@@tmpb}%       % right type
-      \else\if\@@tmpa 4\relax%
-        \putratom{-120}{120}{\@@tmpb}%       % right type
-      \else\if\@@tmpa 5\relax%
-        \putlatom{-209}{431}{\@@tmpb}%      % left type
-      \else\if\@@tmpa 6\relax%
-        \putlatom{-209}{546}{\@@tmpb}%      % left type
-      \else\if\@@tmpa 7\relax%
-        \putratom{-209}{585}{\@@tmpb}%      % right type
-      \else\if\@@tmpa 8\relax%
-        \putratom{-111}{546}{\@@tmpb}%      % right type
-      \else\if\@@tmpa 9\relax%
-        \putlatom{-60}{253}{\@@tmpb}%      % left type
-      \else\ifx\@@tmpa\aaz\relax%
-        \putratom{-38}{282}{\@@tmpb}%      % right type
-      \else\ifx\@@tmpa\aax\relax%
-        \putratom{-38}{282}{\@@tmpb}%      % right type
-      \else\ifx\@@tmpa\aay\relax%
-        \putratom{-209}{371}{\@@tmpb}%       % right type
-      \fi\fi\fi\fi\fi\fi\fi\fi\fi\fi\fi\fi%
-   \expandafter\twoCH@R\member//%
-   \set@fusion@decavb
-\fi\fi\fi\fi\fi\fi\fi\fi\fi\fi%
-\fi\fi\fi\fi\fi\fi%
-}%
-\iniflag\iniatom
-\put(-171,303){\set@hetatom@sixv{#3}{0}{4}{7}{0}%
-\if@eclip \global\@ecliptrue\fi%
-\if@fclip \global\@fcliptrue\fi%
-}% %substituents on 5 to 6
-\put(-171,303){\set@hetatom@sixv{#3}{-6}{0}{3}{0}%
- \@gclipfalse \if@aclip \global\@gcliptrue \fi%
- \@hclipfalse \if@bclip \global\@hcliptrue \fi%
-}% %substituents on 7 to 8
-\put(0,0){\set@vrtx@decafusevb{#3}%
-  \if@iclip \global\@icliptrue \fi
-  \if@jclip \global\@jcliptrue \fi
-}%9 %for 4a position, %10 for 8a position
-\put(0,0){\iniflag%2000/11/11 by S. Fujita
-\set@hetatom@sixv{#3}{1}{1}{6}{0}%
-\@aclipfalse \if@bclip \global\@acliptrue \fi%
-\@bclipfalse \if@cclip \global\@bcliptrue \fi%
-\@cclipfalse \if@clip \global\@ccliptrue \fi%
-\@clipfalse \if@eclip \global\@cliptrue \fi%
-}% %substituents on 1 to 4
-{%
-\@eclipfalse \if@clip \@ecliptrue \fi%
-\@clipfalse \if@cclip \@cliptrue \fi%
-\@cclipfalse \if@bclip \@ccliptrue \fi%
-\@bclipfalse \if@aclip \@bcliptrue \fi%
-\put(0,0){\setsixringv{#4}{1}{1}{6}{0}}% %substituents on 1 to 4
-}%
-{%
-\put(-171,303){\setsixringv{#4}{0}{4}{7}{0}}% %substituents on 5 to 6
-}%
-{%
- \@aclipfalse \if@gclip \@acliptrue \fi%
- \@bclipfalse \if@hclip \@bcliptrue \fi%
-\put(-171,303){\setsixringv{#4}{-6}{0}{3}{0}}% %substituents on 7 to 8
-}%
-{\@clipfusefalse \if@iclip \@clipfusetrue \fi%
- \put(-171,303){\setatombond{#4}{-8}{9}}%   %9 %for 4a position
-}%
-{\@clipfusefalse \if@jclip \@clipfusetrue \fi%
-  \put(0,406){\setatombond{#4}{-9}{3}}%  %10 for 8a position
-}%
-\end{picture}\iniatom\iniflag}% %end of \decaheterovb macro
-\def\ylhetpositionb#1#2#3#4#5{%
-\@@ylswfalse%%%\@reset@ylsw
-\@forsemicol\member:=#1\do{%
-\if@@ylsw\else%
-\ifx\member\empty\else%
-\expandafter\@m@mb@r\member;\relax%
-\expandafter\threech@r\@membera{}{}\relax%
-\ifx\@memberb\@yl\relax\@@ylswtrue\else\@@ylswfalse\fi
-\if@@ylsw
-\ifnum#5<0\relax%
-\@tmpaa=-\@tmpa\relax \advance\@tmpaa by#2\relax%
-\else\@tmpaa=\@tmpa\relax \advance\@tmpaa by#2\relax\fi
-\ifnum\@tmpaa>#3\relax%
-\ifnum\@tmpaa<#4\relax%
-\ifcase\@tmpaa%0 omit
- \or
-    \ifx\aaa\empty%
-     \ifx\ggg\empty% aaa and ggg are absent
-       \gdef\@ylii{0}\gdef\@yli{-406}\global\@ylswtrue%\@ylatrue% subst. on 1
-     \else% ggg is present
-       \gdef\@ylii{0}\gdef\@yli{-442}\global\@ylswtrue%\@ylatrue% subst. on 1
-     \fi
-    \else%aaa is present
-      \gdef\@ylii{0}\gdef\@yli{-442}\global\@ylswtrue%\@ylatrue% subst. on 1
-    \fi
- \or
-    \ifx\bbb\empty
-     \ifx\hhh\empty% aaa and hhh are absent
-      \gdef\@ylii{-171}\gdef\@yli{-303}\global\@ylswtrue%\@ylbtrue% subst. on 2
-     \else%hhh is present
-      \gdef\@ylii{-213}\gdef\@yli{-327}\global\@ylswtrue%\@ylbtrue% subst. on 2
-     \fi
-    \else
-      \gdef\@ylii{-213}\gdef\@yli{-327}\global\@ylswtrue%\@ylbtrue% subst. on 2
-    \fi
- \or\ifx\ccc\empty
-      \gdef\@ylii{-171}\gdef\@yli{-103}\global\@ylswtrue%\@ylctrue% subst. on 3
-    \else
-      \gdef\@ylii{-213}\gdef\@yli{-79}\global\@ylswtrue%\@ylctrue% subst. on 3
-    \fi
- \or
-   \ifx\ddd\empty
-       \gdef\@ylii{0}\gdef\@yli{0}\global\@ylswtrue%\@yldtrue% subst. on 4
-    \else% ddd present
-      \gdef\@ylii{0}\gdef\@yli{36}\global\@ylswtrue%\@yldtrue% subst. on 4
-    \fi
- \or
-    \ifx\eee\empty
-       \gdef\@ylii{173}\gdef\@yli{-103}\global\@ylswtrue%\@yletrue% subst. on 5
-    \else% eee is present
-       \gdef\@ylii{223}\gdef\@yli{-79}\global\@ylswtrue%\@yletrue% subst. on 5
-   \fi
- \or
-    \ifx\fff\empty
-       \gdef\@ylii{173}\gdef\@yli{-303}\global\@ylswtrue%\@ylftrue% subst. on 6
-    \else%fff is present
-      \gdef\@ylii{213}\gdef\@yli{-327}\global\@ylswtrue%\@ylftrue% subst. on 6
-    \fi
-\fi%end of ifcase
-\fi\fi\fi\fi\fi}}%
-\def\test@vertix@decavb#1{%
-\@forsemicol\member:=#1\do{%
-\ifx\member\empty\else%
-\expandafter\@m@mb@r\member;\relax%
-\expandafter\twoch@r\@membera{}%
-\ifcase\@tmpa%
- \or% \xdef\aaa{\@memberb}%1
-   \if\@tmpb s\relax\def\aaa{}\else\def\aaa{@}\fi
- \or% \xdef\bbb{\@memberb}%2
-   \if\@tmpb s\relax\def\bbb{}\else\def\bbb{@}\fi
- \or% \xdef\ccc{\@memberb}%3
-   \if\@tmpb s\relax\def\ccc{}\else\def\ccc{@}\fi
- \or%
-   \if\@tmpb a%
-     \def\iii{@}%4a
-   \else\if\@tmpb s%
-     \def\ddd{}%4
-   \else\if\@tmpb h%
-     \def\ddd{@}%4
-   \else\ifx\@tmpb\empty%
-     \def\ddd{@}%4
-   \fi\fi\fi\fi%
- \or% \xdef\eee{\@memberb}%5
-   \if\@tmpb s\relax\def\eee{}\else\def\eee{@}\fi
- \or% \xdef\fff{\@memberb}%6
-   \if\@tmpb s\relax\def\fff{}\else\def\fff{@}\fi
- \or% \xdef\ggg{\@memberb}%7
-   \if\@tmpb s\relax\def\ggg{}\else\def\ggg{@}\fi
- \or%
-   \if\@tmpb a%
-     \def\jjj{@}%8a
-   \else\if\@tmpb s%
-     \def\hhh{}%8
-   \else\if\@tmpb h%
-     \def\hhh{@}%4
-   \else\ifx\@tmpb\empty%
-     \def\hhh{@}%4
-   \fi\fi\fi\fi%
-\or% \xdef\iii{\@memberb}%9 (= 4a)
-   \if\@tmpb s\relax\def\iii{}\else\def\iii{@}\fi
-\or% \xdef\jjj{\@memberb}%10 (= 8a)
-   \if\@tmpb s\relax\def\jjj{}\else\def\jjj{@}\fi
-\fi\fi}%
-}% end of the macro \test@vertix@decavb
-\def\set@vrtx@decafusevb#1{%
-\@forsemicol\member:=#1\do{%
-\ifx\member\empty\else%
-\expandafter\@m@mb@r\member;\relax%
-\expandafter\twoch@r\@membera{}%
-\ifcase\@tmpa\or\or\or
- \or%%%%4
-   \if\@tmpb a%
-     \global\@icliptrue%
-     \putlatom{-135}{280}{\@memberb}% % left type
-   \else\relax
-   \fi
- \or\or\or
- \or%8
-   \if\@tmpb a%
-     \global\@jcliptrue%
-     \putratom{-31}{356}{\@memberb}%  % right type
-   \else\relax
-   \fi
-\or%9 (= 4a)
-     \global\@icliptrue%
-     \putlatom{-135}{280}{\@memberb}% % left type
-\or%10 (= 8a)
-     \global\@jcliptrue%
-     \putratom{-31}{356}{\@memberb}%  % right type
-\fi\fi}%
-}% end of the macro \set@vrtx@decafusevb
-\def\decaheterovt{\@ifnextchar({\@deca@heterovt(@}{\@deca@heterovt(@)}}
-\def\@deca@heterovt(#1){\@ifnextchar[{\@deca@@heterovt(#1)[@}%
-{\@deca@@heterovt(#1)[@]}}
-\def\@deca@@heterovt(#1)[#2]#3#4{\@ifnextchar[%
-{\@decaheterovt(#1)[#2]{#3}{#4}[@}%
-{\@decaheterovt(#1)[#2]{#3}{#4}[@]}}
-\def\@decaheterovt(#1)[#2]#3#4[#5]{%
-\iniflag\iniatom%
-\test@vertix@decavb{#3}%
-\@reset@ylsw%
-{\let\fff=\aaa
-\ylhetpositiont{#4}{5}{5}{7}{0}% %substituent on 1
-}%
-\if@ylsw \ifx\@@ylii\empty
-\def\@@ylii{-171}\def\@@yli{-303}\fi
-\else
-{\let\aaa=\bbb\let\bbb=\ccc\let\ccc=\ddd
-\ylhetpositiont{#4}{-1}{0}{4}{0}% %substituents on 2 to 4
-}%
-\fi
-\if@ylsw \ifx\@@ylii\empty
-\def\@@ylii{-171}\def\@@yli{-303}\fi
-\else
-{\let\ccc=\eee\let\ddd=\fff
-\let\eee=\ggg\let\fff=\hhh
-\ylhetpositiont{#4}{-2}{2}{7}{0}% %substituents on 5 to 8
-}%
-\fi
-\if@ylsw \ifx\@@ylii\empty
-\def\@@ylii{0}\def\@@yli{0}\fi
-\else
-{%
-\clipdetection%
-\@clipfusefalse \if@iclip \@clipfusetrue \fi%
-\ylatombondposition{#4}{-8}{5}%   %9 %for 4a position
-}%
-\fi
-\if@ylsw \ifx\@@ylii\empty
-\def\@@ylii{-171}\def\@@yli{-303}\fi
-\else
-{%
-\clipdetection%
-\@clipfusefalse \if@jclip \@clipfusetrue \fi%
-\ylatombondposition{#4}{-9}{11}%  %10 for 8a position
-}%
-\fi
-\if@ylsw \ifx\@@ylii\empty
-\def\@@ylii{0}\def\@@yli{-406}\fi
-\fi
-\if@ylsw
- \yl@shiftii=\@ylii
- \yl@shifti=\@yli
- \advance\yl@shiftii\@@ylii
- \advance\yl@shifti\@@yli
- \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}(1200,880)(-\shiftii,-\shifti)%
-  \iforigpt \put(-\shiftii,-\shifti){\circle*{50}}%
-           \put(-\noshift,-\noshift){\circle{50}}%
-   \typeout{command `decaheterovt' origin: %
-    (\the\noshift,\the\noshift) ---> (\the\shiftii,\the\shifti)}\fi%
-\fi
-\begingroup
-\resetbdsw%
-\@bond@@omit{#5}%
-{%
- \let\fff=\aaa \let\aaa=\bbb \let\bbb=\ccc
- \let\ccc=\ddd \let\ddd=\iii \let\eee=\jjj
-\put(171,303){\set@skel@bond{#1}{b}{a}}%
-  % bond between 2 and 3 \@bbb -> \skbonda etc
-\put(171,303){\set@skel@bond{#1}{c}{b}}%
-  % bond between 3 and 4 \@ccc -> \skbondb etc
-\put(171,303){\set@skel@bond{#1}{d}{c}}%
-  % bond between 4 and 4a \@ddd -> \skbondc etc
-\put(171,303){\set@skel@bond{#1}{k}{d}}%
-  % bond between 4a and 8a \@kkk -> \skbondd etc
-\put(171,303){\set@skel@bond{#1}{j}{e}}%
-  % bond between 8a and 1 \@jjj -> \skbonde etc
-\put(171,303){\set@skel@bond{#1}{a}{f}}%
-  % bond between 1 and 2 \@aaa -> \skbondf etc
-}%
-{%
- \let\aaa=\jjj\let\bbb=\iii
- \let\ccc=\eee\let\ddd=\fff
- \let\eee=\ggg\let\fff=\hhh
-\set@skel@bond{#1}{e}{b}% bond between 4a and 5 \@eee -> \skbondb etc
-\set@skel@bond{#1}{f}{c}% bond between 5 and 6 \@fff -> \skbondc etc
-\set@skel@bond{#1}{g}{d}% bond between 6 and 7 \@ggg -> \skbondd etc
-\set@skel@bond{#1}{h}{e}% bond between 7 and 8 \@hhh -> \skbonde etc
-\set@skel@bond{#1}{i}{f}% bond between 8 and 8a \@iii -> \skbondf etc
-}%
-\endgroup
-\@tfor\member:=#2\do{%
-\if\member r\relax%
-{%
- \let\ccc=\eee\let\ddd=\fff\let\eee=\ggg\let\fff=\ggg
- \put(0,0){\bondc}% bond between 7 and 8
- \put(0,0){\bonde}% bond between 5 and 6
-}%
-{%
- \let\fff=\aaa\let\aaa=\bbb
- \let\bbb=\ccc\let\ccc=\ddd
- \let\ddd=\iii\let\eee=\jjj
- \put(171,303){\bondf}% bond between 1 and 2
- \put(171,303){\bondb}% bond between 3 and 4
- \put(171,303){\bondd}% bond between 4a and 8a
-}%
-\else\if\member l\relax%
-\else\if\member a\relax%
-{\let\fff=\aaa\let\aaa=\bbb
- \put(171,303){\bondf}% bond between 1 and 2
-}%
-\else\if\member b\relax
-{\let\aaa=\bbb\let\bbb=\ccc
- \put(171,303){\bonda}% bond between 2 and 3
-}%
-\else\if\member c\relax
-{\let\bbb=\ccc\let\ccc=\ddd
- \put(171,303){\bondb}% bond between 3 and 4
-}%
-\else\if\member d\relax%
-{\let\ccc=\ddd\let\ddd=\eee
- \put(171,303){\bondc}% bond between 4 and 4a
-}%
-\else\if\member e\relax%
-{\let\ccc=\eee\let\bbb=\iii%
- \put(0,0){\bondb}% bond between 5 and 4a
-}%
-\else\if\member f\relax%
-{\let\ccc=\eee\let\ddd=\fff
- \put(0,0){\bondc}% bond between 5 and 6
-}%
-\else\if\member g\relax%
-{\let\ddd=\fff\let\eee=\ggg
- \put(0,0){\bondd}% bond between 6 and 7
-}%
-\else\if\member h\relax%
-{\let\eee=\ggg \let\fff=\hhh%
- \put(0,0){\bonde}% bond between 8 and 7
-}%
-\else\if\member i\relax%
-{\let\aaa=\jjj \let\fff=\hhh%
- \put(0,0){\bondf}% bond between 8 and 8a
-}%
-\else\if\member j\relax%
-{\let\fff=\aaa\let\eee=\jjj%
- \put(171,303){\bonde}% bond between 1 and 8a
-}%
-\else\if\member k\relax%
-{\let\aaa=\jjj\let\bbb=\iii%
- \put(0,0){\bonda}% bond between 8a and 4a
-}%
-\else\if\member K\relax%
-{\let\eee=\jjj\let\ddd=\iii%
- \put(171,303){\bondd}% bond between 8a and 4a in the other ring
-}%
-\else\if\member A%left aromatic circle
-  \put(171,506){\circle{240}}               %circle
-\else\if\member B%left aromatic circle
-  \put(0,203){\circle{240}}             %circle
-\else
-  \expandafter\twoCH@@R\member//%
-  \def\aax{8a}\def\aay{4a}\def\aaz{10}%
-      \if\@@tmpa 1\relax%                  % plus charge etc.
-        \putlatom{111}{546}{\@@tmpb}%      % left type
-      \else\if\@@tmpa 2\relax%
-        \putlatom{209}{585}{\@@tmpb}%      % left type
-      \else\if\@@tmpa 3\relax%
-        \putratom{209}{546}{\@@tmpb}%      % right type
-      \else\if\@@tmpa 4\relax%
-        \putratom{209}{431}{\@@tmpb}%      % right type
-      \else\if\@@tmpa 5\relax%
-        \putratom{60}{120}{\@@tmpb}%      % right type
-      \else\if\@@tmpa 6\relax%
-        \putratom{-38}{68}{\@@tmpb}%       % right type
-      \else\if\@@tmpa 7\relax%
-        \putratom{-120}{120}{\@@tmpb}%       % right type
-      \else\if\@@tmpa 8\relax%
-        \putlatom{-60}{253}{\@@tmpb}%      % left type
-      \else\if\@@tmpa 9\relax%
-        \putratom{60}{253}{\@@tmpb}%      % right type
-      \else\ifx\@@tmpa\aaz\relax%
-        \putratom{-38}{282}{\@@tmpb}%      % right type
-      \else\ifx\@@tmpa\aax\relax%
-        \putratom{-38}{282}{\@@tmpb}%      % right type
-      \else\ifx\@@tmpa\aay\relax%
-        \putratom{60}{253}{\@@tmpb}%      % right type
-      \fi\fi\fi\fi\fi\fi\fi\fi\fi\fi\fi\fi%
-  \expandafter\twoCH@R\member//%
-   \set@fusion@decavt
-\fi\fi\fi\fi\fi\fi\fi\fi\fi\fi%
-\fi\fi\fi\fi\fi\fi%
-}%
-\iniflag
-\put(0,0){\set@hetatom@sixv{#3}{-2}{2}{7}{0}%
- \@hclipfalse \if@fclip \global\@hcliptrue \fi%
- \@gclipfalse \if@eclip \global\@gcliptrue \fi%
- \@fclipfalse \if@clip \global\@fcliptrue \fi%
- \@eclipfalse \if@cclip \global\@ecliptrue \fi%
-}% %substituents on 5 to 8
-\put(0,0){\set@vrtx@decafusevt{#3}%
-  \if@iclip \global\@icliptrue \fi
-  \if@jclip \global\@jcliptrue \fi
-}%9 %for 4a position, %10 for 8a position
-\put(171,303){\set@hetatom@sixv{#3}{-1}{0}{4}{0}%
-\@clipfalse \if@cclip \global\@cliptrue \fi%
-\@cclipfalse \if@bclip \global\@ccliptrue \fi%
-\@bclipfalse \if@aclip \global\@bcliptrue \fi%
-}% %substituents on 2 to 4
-{%
-\@fclipfalse%locally cancelled 1999/2/15 by Shinsaku Fujita
-\put(171,303){\set@hetatom@sixv{#3}{5}{5}{7}{0}%
-\@aclipfalse \if@fclip \global\@acliptrue \fi%
-}% %substituent on 1
-}%
-{%
-\@fclipfalse \if@aclip \@fcliptrue \fi%
-\put(171,303){\setsixringv{#4}{5}{5}{7}{0}}% %substituent on 1
-}%
-{%
-\@aclipfalse \if@bclip \@acliptrue \fi%
-\@bclipfalse \if@cclip \@bcliptrue \fi%
-\@cclipfalse \if@clip \@ccliptrue \fi%
-\put(171,303){\setsixringv{#4}{-1}{0}{4}{0}}% %substituents on 2 to 4
-}%
-{%
- \@cclipfalse \if@eclip \@ccliptrue \fi%
- \@clipfalse \if@fclip \@cliptrue \fi%
- \@eclipfalse \if@gclip \@ecliptrue \fi%
- \@fclipfalse \if@hclip \@fcliptrue \fi%
-\put(0,0){\setsixringv{#4}{-2}{2}{7}{0}}% %substituents on 5 to 8
-}%
-{\@clipfusefalse \if@iclip \@clipfusetrue \fi%
- \put(171,303){\setatombond{#4}{-8}{5}}%   %9 %for 4a position
-}%
-{\@clipfusefalse \if@jclip \@clipfusetrue \fi%
-  \put(0,406){\setatombond{#4}{-9}{11}}%  %10 for 8a position
-}%
-\end{picture}\iniatom\iniflag}%  %end of \decaheterovt macro
-\def\ylhetpositiont#1#2#3#4#5{%
-\@@ylswfalse%%%\@reset@ylsw
-\@forsemicol\member:=#1\do{%
-\if@@ylsw\else%
-\ifx\member\empty\else%
-\expandafter\@m@mb@r\member;\relax%
-\expandafter\threech@r\@membera{}{}\relax%
-\ifx\@memberb\@yl\relax\@@ylswtrue\else\@@ylswfalse\fi
-\if@@ylsw
-\ifnum#5<0\relax%
-\@tmpaa=-\@tmpa\relax \advance\@tmpaa by#2\relax%
-\else\@tmpaa=\@tmpa\relax \advance\@tmpaa by#2\relax\fi
-\ifnum\@tmpaa>#3\relax%
-\ifnum\@tmpaa<#4\relax%
-\ifcase\@tmpaa%0 omit
- \or
-    \ifx\aaa\empty%
-     \ifx\bbb\empty% aaa and bbb are absent
-       \gdef\@ylii{0}\gdef\@yli{-406}\global\@ylswtrue%\@ylatrue% subst. on 1
-     \else% bbb is present
-       \gdef\@ylii{0}\gdef\@yli{-442}\global\@ylswtrue%\@ylatrue% subst. on 1
-     \fi
-    \else%aaa is present
-      \gdef\@ylii{0}\gdef\@yli{-442}\global\@ylswtrue%\@ylatrue% subst. on 1
-    \fi
- \or
-    \ifx\bbb\empty
-     \ifx\ccc\empty% aaa and ccc are absent
-      \gdef\@ylii{-171}\gdef\@yli{-303}\global\@ylswtrue%\@ylbtrue% subst. on 2
-     \else%ccc is present
-      \gdef\@ylii{-213}\gdef\@yli{-327}\global\@ylswtrue%\@ylbtrue% subst. on 2
-     \fi
-    \else
-      \gdef\@ylii{-213}\gdef\@yli{-327}\global\@ylswtrue%\@ylbtrue% subst. on 2
-    \fi
- \or
-    \ifx\ccc\empty
-     \ifx\ddd\empty
-      \ifx\eee\empty% ccc, ddd, eee are absent
-       \gdef\@ylii{-171}\gdef\@yli{-103}\global\@ylswtrue%\@ylctrue%subst. on 3
-      \else%eee is present
-       \gdef\@ylii{-213}\gdef\@yli{-79}\global\@ylswtrue%\@ylctrue% subst. on 3
-      \fi
-     \else%ddd is present
-      \gdef\@ylii{-213}\gdef\@yli{-79}\global\@ylswtrue%\@ylctrue% subst. on 3
-     \fi
-    \else%ccc is present
-      \gdef\@ylii{-213}\gdef\@yli{-79}\global\@ylswtrue%\@ylctrue% subst. on 3
-    \fi
- \or
-   \ifx\ddd\empty
-     \ifx\fff\empty%ddd and fff are absent
-       \gdef\@ylii{0}\gdef\@yli{0}\global\@ylswtrue%\@yldtrue% subst. on 4
-     \else%fff present
-      \gdef\@ylii{0}\gdef\@yli{36}\global\@ylswtrue%\@yldtrue% subst. on 4
-     \fi
-    \else% ddd present
-      \gdef\@ylii{0}\gdef\@yli{36}\global\@ylswtrue%\@yldtrue% subst. on 4
-    \fi
- \or
-    \ifx\eee\empty
-     \ifx\ggg\empty%eee and ggg are absent
-       \gdef\@ylii{173}\gdef\@yli{-103}\global\@ylswtrue%\@yletrue% subst. on 5
-     \else% ggg is present
-       \gdef\@ylii{223}\gdef\@yli{-79}\global\@ylswtrue%\@yletrue% subst. on 5
-     \fi
-    \else% eee is present
-       \gdef\@ylii{223}\gdef\@yli{-79}\global\@ylswtrue%\@yletrue% subst. on 5
-    \fi
- \or
-    \ifx\fff\empty
-     \ifx\hhh\empty%fff and hhh are absent
-       \gdef\@ylii{173}\gdef\@yli{-303}\global\@ylswtrue%\@ylftrue% subst. on 6
-     \else%hhh is present
-      \gdef\@ylii{213}\gdef\@yli{-327}\global\@ylswtrue%\@ylftrue% subst. on 6
-     \fi
-    \else%fff is present
-      \gdef\@ylii{213}\gdef\@yli{-327}\global\@ylswtrue%\@ylftrue% subst. on 6
-    \fi
-\fi%end of ifcase
-\fi\fi\fi\fi\fi}}%
-\def\set@vrtx@decafusevt#1{%
-\@forsemicol\member:=#1\do{%
-\ifx\member\empty\else%
-\expandafter\@m@mb@r\member;\relax%
-\expandafter\twoch@r\@membera{}%
-\ifcase\@tmpa\or\or\or
- \or%%%%4
-   \if\@tmpb a%
-     \global\@icliptrue%
-     \putratom{135}{280}{\@memberb}% % right type
-   \else\relax
-   \fi
- \or\or\or
- \or%8
-   \if\@tmpb a%
-     \global\@jcliptrue%
-     \putlatom{31}{356}{\@memberb}%  % left type
-   \else\relax
-   \fi
-\or%9 (= 4a)
-     \global\@icliptrue%
-     \putratom{135}{280}{\@memberb}% % right type
-\or%10 (= 8a)
-     \global\@jcliptrue%
-     \putlatom{31}{356}{\@memberb}%  % left type
-\fi\fi}%
-}% end of the macro \set@vrtx@decafusevt
-\def\quinolinev{%
- \@ifnextchar[{\@quinolinev[@}{\@quinolinev[acfhk]}}
-\def\@quinolinev[#1]#2{%
-\iforigpt \typeout{command `quinolinev' %
-  is based on `decaheterov'.}\fi%
-\decaheterov[#1]{1==N}{#2}}
-\def\quinolinevi{%
- \@ifnextchar[{\@quinolinevi[@}{\@quinolinevi[acfhk]}}
-\def\@quinolinevi[#1]#2{%
-\iforigpt \typeout{command `quinolinevi' %
- is based on `decaheterovi'.}\fi%
-\decaheterovi[#1]{1==N}{#2}}
-\def\quinolinevb{%
- \@ifnextchar[{\@quinolinevb[@}{\@quinolinevb[acfhk]}}
-\def\@quinolinevb[#1]#2{%
-\iforigpt \typeout{command `quinolinevb' %
- is based on `decaheterovb'.}\fi%
-\decaheterovb[#1]{1==N}{#2}}
-\def\quinolinevt{%
- \@ifnextchar[{\@quinolinevt[@}{\@quinolinevt[acfhk]}}
-\def\@quinolinevt[#1]#2{%
-\iforigpt \typeout{command `quinolinevt' %
- is based on `decaheterovt'.}\fi%
-\decaheterovt[#1]{1==N}{#2}}
-\def\isoquinolinev{%
- \@ifnextchar[{\@isoquinolinev[@}{\@isoquinolinev[acfhk]}}
-\def\@isoquinolinev[#1]#2{%
-\iforigpt \typeout{command `isoquinolinev' %
- is based on `decaheterov'.}\fi%
-\decaheterov[#1]{2==N}{#2}}
-\def\isoquinolinevi{%
- \@ifnextchar[{\@isoquinolinevi[@}{\@isoquinolinevi[acfhk]}}
-\def\@isoquinolinevi[#1]#2{%
-\iforigpt \typeout{command `isoquinolinevi' %
- is based on `decaheterovi'.}\fi%
-\decaheterovi[#1]{2==N}{#2}}%
-\def\isoquinolinevb{%
- \@ifnextchar[{\@isoquinolinevb[@}{\@isoquinolinevb[acfhk]}}
-\def\@isoquinolinevb[#1]#2{%
-\iforigpt \typeout{command `isoquinolinevb' %
- is based on `decaheterovi'.}\fi%
-\decaheterovb[#1]{2==N}{#2}}%
-\def\isoquinolinevt{%
- \@ifnextchar[{\@isoquinolinevt[@}{\@isoquinolinevt[acfhk]}}
-\def\@isoquinolinevt[#1]#2{%
-\iforigpt \typeout{command `isoquinolinevt' %
- is based on `decaheterovt'.}\fi%
-\decaheterovt[#1]{2==N}{#2}}%
-\def\quinoxalinev{%
- \@ifnextchar[{\@quinoxalinev[@}{\@quinoxalinev[acfhk]}}
-\def\@quinoxalinev[#1]#2{%
-\iforigpt \typeout{command `quinoxalinev' %
- is based on `decaheterov'.}\fi%
-\decaheterov[#1]{1==N;4==N}{#2}}
-\def\quinoxalinevi{%
- \@ifnextchar[{\@quinoxalinevi[@}{\@quinoxalinevi[acfhk]}}
-\def\@quinoxalinev[#1]#2{%
-\iforigpt \typeout{command `quinoxalinevi' %
- is based on `decaheterovi'.}\fi%
-\decaheterovi[#1]{1==N;4==N}{#2}}
-\def\quinoxalinevb{%
- \@ifnextchar[{\@quinoxalinevb[@}{\@quinoxalinevb[acfhk]}}
-\def\@quinoxalinevb[#1]#2{%
-\iforigpt \typeout{command `quinoxalinevb' %
- is based on `decaheterovb'.}\fi%
-\decaheterovb[#1]{1==N;4==N}{#2}}
-\def\quinoxalinevt{%
- \@ifnextchar[{\@quinoxalinevt[@}{\@quinoxalinevt[acfhk]}}
-\def\@quinoxalinevt[#1]#2{%
-\iforigpt \typeout{command `quinoxalinevt' %
- is based on `decaheterovt'.}\fi%
-\decaheterovt[#1]{1==N;4==N}{#2}}
-\def\quinazolinev{%
- \@ifnextchar[{\@quinazolinev[@}{\@quinazolinev[acfhk]}}
-\def\@quinazolinev[#1]#2{%
-\iforigpt \typeout{command `quinazolinev' %
- is based on `decaheterov'.}\fi%
-\decaheterov[#1]{1==N;3==N}{#2}}
-\def\quinazolinevi{%
- \@ifnextchar[{\@quinazolinevi[@}{\@quinazolinevi[acfhk]}}
-\def\@quinazolinevi[#1]#2{%
-\iforigpt \typeout{command `quinazolinevi' %
- is based on `decaheterovi'.}\fi%
-\decaheterovi[#1]{1==N;3==N}{#2}}
-\def\quinazolinevb{%
- \@ifnextchar[{\@quinazolinevb[@}{\@quinazolinevb[acfhk]}}
-\def\@quinazolinevb[#1]#2{%
-\iforigpt \typeout{command `quinazolinevb' %
- is based on `decaheterovb'.}\fi%
-\decaheterovb[#1]{1==N;3==N}{#2}}
-\def\quinazolinevt{%
- \@ifnextchar[{\@quinazolinevt[@}{\@quinazolinevt[acfhk]}}
-\def\@quinazolinevt[#1]#2{%
-\iforigpt \typeout{command `quinazolinevt' %
- is based on `decaheterovt'.}\fi%
-\decaheterovt[#1]{1==N;3==N}{#2}}
-\def\cinnolinev{%
- \@ifnextchar[{\@cinnolinev[@}{\@cinnolinev[acfhk]}}
-\def\@cinnolinev[#1]#2{%
-\iforigpt \typeout{command `cinnolinev' %
- is based on `decaheterov'.}\fi%
-\decaheterov[#1]{1==N;2==N}{#2}}
-\def\cinnolinevi{%
- \@ifnextchar[{\@cinnolinevi[@}{\@cinnolinevi[acfhk]}}
-\def\@cinnolinevi[#1]#2{%
-\iforigpt \typeout{command `cinnolinevi' %
- is based on `decaheterovi'.}\fi%
-\decaheterovi[#1]{1==N;2==N}{#2}}
-\def\cinnolinevb{%
- \@ifnextchar[{\@cinnolinevb[@}{\@cinnolinevb[acfhk]}}
-\def\@cinnolinevb[#1]#2{%
-\iforigpt \typeout{command `cinnolinevb' %
- is based on `decaheterovb'.}\fi%
-\decaheterovb[#1]{1==N;2==N}{#2}}
-\def\cinnolinevt{%
- \@ifnextchar[{\@cinnolinevt[@}{\@cinnolinevt[acfhk]}}
-\def\@cinnolinevt[#1]#2{%
-\iforigpt \typeout{command `cinnolinevt' %
- is based on `decaheterovt'.}\fi%
-\decaheterovt[#1]{1==N;2==N}{#2}}
-\def\pteridinev{\@ifnextchar[{\@pteridinev[@}{\@pteridinev[acfhk]}}
-\def\@pteridinev[#1]#2{%
-\iforigpt \typeout{command `pteridinev' %
- is based on `decaheterov'.}\fi%
-\decaheterov[#1]{1==N;3==N;5==N;8==N}{#2}}
-\def\pteridinevi{\@ifnextchar[{\@pteridinevi[@}{\@pteridinevi[acfhk]}}
-\def\@pteridinevi[#1]#2{%
-\iforigpt \typeout{command `pteridinevi' %
- is based on `decaheterovi'.}\fi%
-\decaheterovi[#1]{1==N;3==N;5==N;8==N}{#2}}
-\def\pteridinevb{\@ifnextchar[{\@pteridinevb[@}{\@pteridinevb[acfhk]}}
-\def\@pteridinevb[#1]#2{%
-\iforigpt \typeout{command `pteridinevb' %
- is based on `decaheterovb'.}\fi%
-\decaheterovb[#1]{1==N;3==N;5==N;8==N}{#2}}
-\def\pteridinevt{\@ifnextchar[{\@pteridinevt[@}{\@pteridinevt[acfhk]}}
-\def\@pteridinevt[#1]#2{%
-\iforigpt \typeout{command `pteridinevt' %
- is based on `decaheterovt'.}\fi%
-\decaheterovt[#1]{1==N;3==N;5==N;8==N}{#2}}
-\def\nonaheterov{\@ifnextchar({\@nona@heterov(@}{\@nona@heterov(@)}}
-\def\@nona@heterov(#1){\@ifnextchar[{\@nona@@heterov(#1)[@}%
-{\@nona@@heterov(#1)[@]}}
-\def\@nona@@heterov(#1)[#2]#3#4{\@ifnextchar[%
-{\@nonaheterov(#1)[#2]{#3}{#4}[@}%
-{\@nonaheterov(#1)[#2]{#3}{#4}[@]}}
-\def\@nonaheterov(#1)[#2]#3#4[#5]{%
-\iniflag\iniatom%
-\test@vertix@nonav{#3}%
-\@reset@ylsw%
-\ylposition{#4}{5}{1}{5}{-1}% %substituents on 1 to 3
-\if@ylsw \ifx\@@ylii\empty
-\def\@@ylii{-342}\def\@@yli{0}\fi
-\else
-{\let\ddd=\eee\let\eee=\fff\let\fff=\ggg
-\ylposition{#4}{11}{3}{7}{-1}% %substituents on 5 to 7
-}%
-\fi
-\if@ylsw \ifx\@@ylii\empty
-\def\@@ylii{0}\def\@@yli{0}\fi
-\else
-{\let\aaa=\hhh
-\ylposition{#4}{-3}{0}{2}{0}%%substituent on 4
-}%
-\fi
-\if@ylsw \ifx\@@ylii\empty
-\def\@@ylii{0}\def\@@yli{0}\fi
-\else
-{%
-\clipdetection%
-\@clipfusefalse \if@iclip \@clipfusetrue \fi%
-\ylatombondposition{#4}{-8}{7}%   %9 %for 7a position
-}%
-\fi
-\if@ylsw \ifx\@@ylii\empty
-\def\@@ylii{-171}\def\@@yli{-103}\fi
-\else
-{%
-\clipdetection%
-\@clipfusefalse \if@jclip \@clipfusetrue \fi%
-\ylatombondposition{#4}{-7}{1}%   %8 for 3a position
-}%
-\fi
-\if@ylsw \ifx\@@ylii\empty
-\def\@@ylii{-171}\def\@@yli{-303}\fi
-\fi
-\if@ylsw
- \yl@shiftii=\@ylii
- \yl@shifti=\@yli
- \advance\yl@shiftii\@@ylii
- \advance\yl@shifti\@@yli
- \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}(1200,880)(-\shiftii,-\shifti)%
-  \iforigpt \put(-\shiftii,-\shifti){\circle*{50}}%
-           \put(-\noshift,-\noshift){\circle{50}}%
-   \typeout{command `nonaheterov' origin: %
-    (\the\noshift,\the\noshift) ---> (\the\shiftii,\the\shifti)}\fi%
-\fi
-\begingroup
-\resetbdsw%
-\@bond@@omit{#5}%
-{\let\fff=\jjj \let\eee=\iii%
-\put(342,0){\set@skel@bond{#1}{a}{c}}%
-  % bond between 1 and 2 \@aaa -> \skbondc etc
-\put(342,0){\set@skel@bond{#1}{b}{b}}%
-  % bond between 2 and 3 \@bbb -> \skbondb etc
-\put(342,0){\set@skel@longbond{#1}{c}{skbondhoriz}}%
-  % bond between 3 and 3a \@ccc -> \skbondhoriz etc
-\put(342,0){\set@skel@bond{#1}{j}{e}}%
-  % bond between 3a and 7a \@jjj -> \skbonde etc
-\put(342,0){\set@skel@bond{#1}{i}{d}}%
-  % bond between 7a and 1 \@iii -> \skbondd etc
-}%
-{\let\aaa=\hhh \let\ddd=\eee\let\eee=\fff\let\fff=\ggg%
- \let\ccc=\iii\let\bbb=\jjj%
-\set@skel@bond{#1}{d}{a}% bond between 3a and 4 \@ddd -> \skbonda etc
-\set@skel@bond{#1}{h}{c}% bond between 7 and 7a \@hhh -> \skbondc etc
-\set@skel@bond{#1}{g}{d}% bond between 6 and 7 \@ggg -> \skbondd etc
-\set@skel@bond{#1}{f}{e}% bond between 5 and 6 \@fff -> \skbonde etc
-\set@skel@bond{#1}{e}{f}% bond between 4 and 5 \@eee -> \skbondf etc
-}%
-\endgroup
-\@tfor\member:=#2\do{%
-\if\member r\relax%
-{\let\aaa=\hhh \let\ddd=\eee\let\eee=\fff\let\fff=\ggg%
- \let\ccc=\iii\let\bbb=\jjj%
- \put(0,0){\bondb}% bond between 3a and 7a
- \put(0,0){\bondf}% bond between 4 and 5
- \put(0,0){\bondd}% bond between 6 and 7
-}%
-\else\if\member l\relax%
-\else\if\member a\relax%
- \put(342,0){\bondc}% bond between 3 and 4
-\else\if\member b\relax%
- \put(342,0){\bondb}% bond between 2 and 3
-\else\if\member c\relax%
- \put(342,0){\bondhoriz}% bond between 3 and 3a
-\else\if\member d\relax%
-{\let\aaa=\hhh \let\bbb=\jjj%
- \put(0,0){\bonda}% bond between 4 and 3a
-}
-\else\if\member e\relax%
-{\let\aaa=\hhh \let\fff=\ggg%
- \put(0,0){\bondf}% bond between 4 and 5
-}%
-\else\if\member f\relax%
-{\let\eee=\fff \let\fff=\ggg%
- \put(0,0){\bonde}% bond between 5 and 6
-}%
-\else\if\member g\relax%
-{\let\ddd=\eee \let\eee=\fff%
- \put(0,0){\bondd}% bond between 6 and 7
-}%
-\else\if\member h\relax%
-{\let\ccc=\iii \let\ddd=\eee%
- \put(0,0){\bondc}% bond between 7 and 7a
-}%
-\else\if\member i\relax%
-{\let\eee=\iii%
- \put(342,0){\bondd}% bond between 1 and 7a
-}%
-\else\if\member j\relax%
-{\let\ccc=\iii\let\bbb=\jjj%
- \put(0,0){\bondb}% bond between 7a and 3a
-}%
-\else\if\member J\relax%
-{\let\eee=\iii\let\fff=\jjj%
- \put(342,0){\bonde}% bond between 7a and 3a
-}%
-\else\if\member A%left aromatic circle
-  \put(0,203){\circle{240}}               %circle
-\else\if\member B%left aromatic circle
-  \put(342,173){\circle{180}}               %circle 1993/11/20 S.Fujita
-\else
- \expandafter\twoCH@@R\member//%
-  \def\aax{7a} \def\aay{3a}%
-      \if\@@tmpa 1\relax%
-        \putratom{304}{68}{\@@tmpb}%       % right type
-      \else\if\@@tmpa 2\relax%
-        \putratom{402}{120}{\@@tmpb}%      % right type
-      \else\if\@@tmpa 3\relax%
-        \putratom{402}{253}{\@@tmpb}%      % right type
-      \else\if\@@tmpa 4\relax%
-        \putratom{-38}{282}{\@@tmpb}%      % right type
-      \else\if\@@tmpa 5\relax%
-        \putlatom{-60}{120}{\@@tmpb}%      % left type
-      \else\if\@@tmpa 6\relax%
-        \putlatom{-60}{253}{\@@tmpb}%      % left type
-      \else\if\@@tmpa 7\relax%
-        \putratom{-38}{68}{\@@tmpb}%       % right type
-      \else\if\@@tmpa 8\relax%
-        \putratom{60}{253}{\@@tmpb}%       % right type
-      \else\ifx\@@tmpa\aax\relax%
-        \putratom{60}{253}{\@@tmpb}%       % right type
-      \else\ifx\@@tmpa\aay\relax%
-        \putratom{60}{120}{\@@tmpb}%       % right type
-      \else\if\@@tmpa 9\relax%
-        \putratom{60}{120}{\@@tmpb}%       % right type
-      \fi\fi\fi\fi\fi\fi\fi\fi\fi\fi\fi%
-   \expandafter\twoCH@R\member//%
-   \set@fusion@nonav
-\fi\fi\fi\fi\fi\fi\fi\fi\fi%
-\fi\fi\fi\fi\fi\fi%
-}%
-\iniflag\iniatom%
-\@tmpclipfalse
-\put(0,0){\set@hetatom@sixv{#3}{11}{3}{7}{-1}%
- \@gclipfalse \if@fclip \global\@gcliptrue \fi%
- \@fclipfalse \if@eclip \global\@fcliptrue \fi%
- \@eclipfalse \if@clip \global\@ecliptrue \fi%
-}%substituents on 5 to 7
-\put(342,0){\set@hetatom@sixv{#3}{5}{1}{5}{-1}%
-   \if@bclip \global\@bcliptrue\fi
-   \if@cclip \global\@ccliptrue\fi
-   \if@clip \global\@cliptrue\fi
-}% %substituents on 1 to 3
-\put(0,0){\set@hetatom@sixv{#3}{-3}{0}{2}{0}%
- \@aclipfalse \if@aclip \global\@hcliptrue \fi%
-}%%substituent on 4
-\put(0,0){\set@vrtx@nonafusev{#3}%
-  \@tmpclipfalse
-  \if@iclip \global\@tmpcliptrue \fi
-  \if@jclip \global\@icliptrue \fi
-  \if@tmpclip \global\@jcliptrue \fi
-}% fused positions
-\put(342,0){\setsixringv{#4}{5}{1}{5}{-1}}% %substituents on 1 to 3
-{\@clipfalse \if@eclip \@cliptrue \fi%      %substituents on 5 to 7
- \@eclipfalse \if@fclip \@ecliptrue \fi%
- \@fclipfalse \if@gclip \@fcliptrue \fi%
-\put(0,0){\setsixringv{#4}{11}{3}{7}{-1}}%
-}%
-{\@aclipfalse \if@hclip \@acliptrue \fi%    %substituent on 4
-\put(0,0){\setsixringv{#4}{-3}{0}{2}{0}}%
-}%
-{\@clipfusefalse \if@iclip \@clipfusetrue \fi%
- \put(171,103){\setatombond{#4}{-8}{7}}%    %9 for 7a position
-}%
-{\@clipfusefalse \if@jclip \@clipfusetrue \fi%
-  \put(171,303){\setatombond{#4}{-7}{1}}%   %8 for 3a position
-}%
-\end{picture}\iniatom\iniflag}%    %end of \nonaheterov macro
-\def\test@vertix@nonav#1{%
-\@forsemicol\member:=#1\do{%
-\ifx\member\empty\else%
-\expandafter\@m@mb@r\member;\relax%
-\expandafter\twoch@r\@membera{}%
-\ifcase\@tmpa%
- \or%
-   \if\@tmpb s\relax\def\ddd{}\else\def\ddd{@}\fi
- \or%2
-   \if\@tmpb s\relax\def\ccc{}\else\def\ccc{@}\fi
- \or%3%
-   \if\@tmpb a%
-     \def\jjj{@}%3a
-   \else\if\@tmpb s%
-     \def\bbb{}%3
-   \else\if\@tmpb h%
-     \def\bbb{@}%3
-   \else\ifx\@tmpb\empty%
-     \def\bbb{@}%3
-   \fi\fi\fi\fi%
- \or%4
-   \if\@tmpb s\relax\def\hhh{}\else\def\hhh{@}\fi
- \or%5
-   \if\@tmpb s\relax\def\ggg{}\else\def\ggg{@}\fi
- \or%6
-   \if\@tmpb s\relax\def\fff{}\else\def\fff{@}\fi
- \or%7
-   \if\@tmpb a%
-     \xdef\iii{@}%7a
-   \else\if\@tmpb s%
-     \xdef\eee{}%7s
-   \else\if\@tmpb h%
-     \xdef\eee{@}%7h
-   \else\ifx\@tmpb\empty%
-     \xdef\eee{@}%7
-   \fi\fi\fi\fi%
-\or%8 (= 3a)
-   \if\@tmpb s\relax\def\jjj{}\else\def\jjj{@}\fi
-\or%9 (= 7a)
-   \if\@tmpb s\relax\def\iii{}\else\def\iii{@}\fi
-\fi\fi}}% end of \test@vertix@nonav
-\def\set@vrtx@nonafusev#1{%
-\@forsemicol\member:=#1\do{%
-\ifx\member\empty\else%
-\expandafter\@m@mb@r\member;\relax%
-\expandafter\twoch@r\@membera{}%
-\ifcase\@tmpa\or\or
- \or%%%%3
-   \if\@tmpb a%
-     \global\@icliptrue%
-     \putlatom{207}{280}{\@memberb}% % left type
-   \else\relax
-   \fi
- \or\or\or
- \or%7
-   \if\@tmpb a%
-     \global\@jcliptrue%
-     \putlatom{207}{65}{\@memberb}%  % left type
-   \else\relax
-   \fi
-\or%8 (= 3a)
-     \global\@icliptrue%
-     \putlatom{207}{280}{\@memberb}% % left type
-\or%9 (= 7a)
-     \global\@jcliptrue%
-     \putlatom{207}{65}{\@memberb}%  % left type
-\fi\fi}%
-}% end of the macro \set@vrtx@nonafusev
-\def\nonaheterovi{\@ifnextchar({\@nona@heterovi(@}{\@nona@heterovi(@)}}
-\def\@nona@heterovi(#1){\@ifnextchar[{\@nona@@heterovi(#1)[@}%
-{\@nona@@heterovi(#1)[@]}}
-\def\@nona@@heterovi(#1)[#2]#3#4{\@ifnextchar[%
-{\@nonaheterovi(#1)[#2]{#3}{#4}[@}%
-{\@nonaheterovi(#1)[#2]{#3}{#4}[@]}}
-\def\@nonaheterovi(#1)[#2]#3#4[#5]{%
-\iniflag\iniatom%initialize
-\test@vertix@nonavi{#3}%
-\@reset@ylsw%
-\ylposition{#4}{0}{0}{4}{0}% %substituents on 1 to 3
-\if@ylsw \ifx\@@ylii\empty
-\def\@@ylii{-342}\def\@@yli{0}\fi
-\else
-{\let\ddd=\eee\let\eee=\fff\let\fff=\ggg
-\ylposition{#4}{0}{3}{7}{0}%%substituents on 4 to 6
-}%
-\fi
-\if@ylsw \ifx\@@ylii\empty
-\def\@@ylii{0}\def\@@yli{0}\fi
-\else
-{\let\aaa=\hhh
-\ylposition{#4}{-6}{0}{2}{0}%%substituent on 7
-}%
-\fi
-\if@ylsw \ifx\@@ylii\empty
-\def\@@ylii{0}\def\@@yli{0}\fi
-\else
-{%
-\clipdetection%
-\@clipfusefalse \if@iclip \@clipfusetrue \fi%
-\ylatombondposition{#4}{-7}{7}%   %8 for 3a position
-}%
-\fi
-\if@ylsw \ifx\@@ylii\empty
-\def\@@ylii{-171}\def\@@yli{-103}\fi
-\else
-{%
-\clipdetection%
-\@clipfusefalse \if@jclip \@clipfusetrue \fi%
-\ylatombondposition{#4}{-8}{1}%  %9 for 7a position
-}%
-\fi
-\if@ylsw \ifx\@@ylii\empty
-\def\@@ylii{-171}\def\@@yli{-303}\fi
-\fi
-\if@ylsw
- \yl@shiftii=\@ylii
- \yl@shifti=\@yli
- \advance\yl@shiftii\@@ylii
- \advance\yl@shifti\@@yli
- \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}(1200,880)(-\shiftii,-\shifti)%
-  \iforigpt \put(-\shiftii,-\shifti){\circle*{50}}%
-           \put(-\noshift,-\noshift){\circle{50}}%
-   \typeout{command `nonaheterovi' origin: %
-    (\the\noshift,\the\noshift) ---> (\the\shiftii,\the\shifti)}\fi%
-\fi
-\begingroup
-\resetbdsw%
-\@bond@@omit{#5}%
-{\let\fff=\jjj \let\eee=\iii%
-\put(342,0){\set@skel@bond{#1}{a}{a}}%
-  % bond between 1 and 2 \@aaa -> \skbonda etc
-\put(342,0){\set@skel@bond{#1}{b}{b}}%
-  % bond between 2 and 3 \@bbb -> \skbondb etc
-\put(342,0){\set@skel@longbond{#1}{c}{skbondhorizi}}%
-  % bond between 3 and 3a \@ccc -> \skbondhoriz etc
-\put(342,0){\set@skel@bond{#1}{j}{e}}%
-  % bond between 3a and 7a \@jjj -> \skbonde etc
-\put(342,0){\set@skel@bond{#1}{i}{f}}%
-  % bond between 7a and 1 \@iii -> \skbondf etc
-}%
-{\let\aaa=\hhh \let\ddd=\eee\let\eee=\fff\let\fff=\ggg%
- \let\ccc=\iii\let\bbb=\jjj%
-\set@skel@bond{#1}{h}{a}% bond between 7a and 7 \@hhh -> \skbonda etc
-\set@skel@bond{#1}{d}{c}% bond between 3a and 4 \@ddd -> \skbondc etc
-\set@skel@bond{#1}{e}{d}% bond between 4 and 5 \@eee -> \skbondd etc
-\set@skel@bond{#1}{f}{e}% bond between 5 and 6 \@fff -> \skbonde etc
-\set@skel@bond{#1}{g}{f}% bond between 6 and 7 \@ggg -> \skbondf etc
-}%
-\endgroup
-\@tfor\member:=#2\do{%
-\if\member r\relax%
-{\let\aaa=\hhh \let\ddd=\eee\let\eee=\fff\let\fff=\ggg
- \let\ccc=\iii\let\bbb=\jjj
- \put(0,0){\bondb}% bond between 3a and 7a
- \put(0,0){\bondf}% bond between 6 and 7
- \put(0,0){\bondd}% bond between 4 and 5
-}%
-\else\if\member l\relax%
-\else\if\member a\relax%
- \put(342,0){\bonda}% bond between 1 and 2
-\else\if\member b\relax%
- \put(342,0){\bondb}% bond between 2 and 3
-\else\if\member c\relax%
- \put(342,0){\bondhorizi}% bond between 3 and 3a
-\else\if\member d\relax%
-{\let\ccc=\iii \let\ddd=\eee%
- \put(0,0){\bondc}% bond between 4 and 3a
-}%
-\else\if\member e\relax%
-{\let\ddd=\eee\let\eee=\fff%
- \put(0,0){\bondd}% bond between 4 and 5
-}%
-\else\if\member f\relax%
-{\let\eee=\fff \let\fff=\ggg%
- \put(0,0){\bonde}% bond between 5 and 6
-}%
-\else\if\member g\relax%
-{\let\aaa=\hhh \let\fff=\ggg%
- \put(0,0){\bondf}% bond between 7 and 6
-}%
-\else\if\member h\relax%
-{\let\aaa=\hhh \let\bbb=\jjj%
- \put(0,0){\bonda}% bond between 7 and 7a
-}%
-\else\if\member i\relax%
-{\let\fff=\jjj%
- \put(342,0){\bondf}% bond between 1 and 7a
-}%
-\else\if\member j\relax%
-{\let\ccc=\iii\let\bbb=\jjj%
- \put(0,0){\bondb}% bond between 7a and 3a
-}%
-\else\if\member J\relax%
-{\let\eee=\iii\let\fff=\jjj%
- \put(342,0){\bonde}% bond between 7a and 3a
-}%
-\else\if\member A%left aromatic circle
-  \put(0,203){\circle{240}}%               %circle
-\else\if\member B%left aromatic circle
-  \put(342,233){\circle{180}}               %circle 1993/11/20 S.Fujita
-\else
- \expandafter\twoCH@@R\member//%
-  \def\aax{7a} \def\aay{3a}%
-      \if\@@tmpa 1\relax%
-        \putratom{304}{282}{\@@tmpb}%       % right type
-      \else\if\@@tmpa 3\relax%
-        \putratom{402}{120}{\@@tmpb}%      % right type
-      \else\if\@@tmpa 2\relax%
-        \putratom{402}{253}{\@@tmpb}%      % right type
-      \else\if\@@tmpa 7\relax%
-        \putratom{-38}{282}{\@@tmpb}%      % right type
-      \else\if\@@tmpa 6\relax%
-        \putlatom{-60}{120}{\@@tmpb}%      % left type
-      \else\if\@@tmpa 5\relax%
-        \putlatom{-60}{253}{\@@tmpb}%      % left type
-      \else\if\@@tmpa 4\relax%
-        \putratom{-38}{68}{\@@tmpb}%       % right type
-      \else\if\@@tmpa 9\relax%
-        \putratom{60}{253}{\@@tmpb}%       % right type
-      \else\ifx\@@tmpa\aax\relax%
-        \putratom{60}{253}{\@@tmpb}%       % right type
-      \else\ifx\@@tmpa\aay\relax%
-        \putratom{60}{120}{\@@tmpb}%       % right type
-      \else\if\@@tmpa 8\relax%
-        \putratom{60}{120}{\@@tmpb}%       % right type
-      \fi\fi\fi\fi\fi\fi\fi\fi\fi\fi\fi%
-   \expandafter\twoCH@R\member//%
-   \set@fusion@nonavi
-\fi\fi\fi\fi\fi\fi\fi\fi\fi%
-\fi\fi\fi\fi\fi\fi%
-}%
-\iniflag
-\put(342,0){\set@hetatom@sixv{#3}{0}{0}{4}{0}%
-   \if@aclip \global\@acliptrue\fi
-   \if@bclip \global\@bcliptrue\fi
-   \if@cclip \global\@ccliptrue\fi
-}% %substituents on 1 to 3
-\put(0,0){\set@hetatom@sixv{#3}{0}{3}{7}{0}%
-   \@gclipfalse \if@fclip \global\@gcliptrue \fi%
-   \@fclipfalse \if@eclip \global\@fcliptrue \fi%
-   \@eclipfalse \if@clip \global\@ecliptrue \fi}%substituents on 4 to 6
-\put(0,0){\set@hetatom@sixv{#3}{-6}{0}{2}{0}%
-  \@hclipfalse \if@aclip \global\@hcliptrue \fi}%%substituent on 7
-\put(0,0){\set@vrtx@nonafusevi{#3}%
-  \if@iclip \global\@icliptrue \fi
-  \if@jclip \global\@jcliptrue \fi}% fused positions
-\put(342,0){\setsixringv{#4}{0}{0}{4}{0}}% %substituents on 1 to 3
-{\@clipfalse \if@eclip \@cliptrue \fi%     %substituents on 4 to 6
- \@eclipfalse \if@fclip \@ecliptrue \fi%
- \@fclipfalse \if@gclip \@fcliptrue \fi%
-\put(0,0){\setsixringv{#4}{0}{3}{7}{0}}%
-}%
-{\@aclipfalse \if@hclip \@acliptrue \fi%   %substituent on 7
-\put(0,0){\setsixringv{#4}{-6}{0}{2}{0}}%
-}%
-{\@clipfusefalse \if@iclip \@clipfusetrue \fi%
- \put(171,103){\setatombond{#4}{-7}{7}}%   %8 for 3a position
-}%
-{\@clipfusefalse \if@jclip \@clipfusetrue \fi%
-  \put(171,303){\setatombond{#4}{-8}{1}}%  %9 for 7a position
-}%
-\end{picture}\iniatom\iniflag}%    %end of \nonaheterovi macro
-\def\test@vertix@nonavi#1{%
-\@forsemicol\member:=#1\do{%
-\ifx\member\empty\else%
-\expandafter\@m@mb@r\member;\relax%
-\expandafter\twoch@r\@membera{}%
-\ifcase\@tmpa%
- \or%
-   \if\@tmpb s\relax\def\aaa{}\else\def\aaa{@}\fi
- \or%2
-   \if\@tmpb s\relax\def\bbb{}\else\def\bbb{@}\fi
- \or%3%
-   \if\@tmpb a%
-     \def\iii{@}%3a
-   \else\if\@tmpb s%
-     \def\ccc{}%3
-   \else\if\@tmpb h%
-     \def\ccc{@}%3
-   \else\ifx\@tmpb\empty%
-     \def\ccc{@}%3
-   \fi\fi\fi\fi%
- \or%4
-   \if\@tmpb s\relax\def\eee{}\else\def\eee{@}\fi
- \or%5
-   \if\@tmpb s\relax\def\fff{}\else\def\fff{@}\fi
- \or%6
-   \if\@tmpb s\relax\def\ggg{}\else\def\ggg{@}\fi
- \or%7
-   \if\@tmpb a%
-     \xdef\jjj{@}%7a
-   \else\if\@tmpb s%
-     \xdef\hhh{}%7s
-   \else\if\@tmpb h%
-     \xdef\hhh{@}%7h
-   \else\ifx\@tmpb\empty%
-     \xdef\hhh{@}%7
-   \fi\fi\fi\fi%
-\or%8 (= 3a)
-   \if\@tmpb s\relax\def\iii{}\else\def\iii{@}\fi
-\or%9 (= 7a)
-   \if\@tmpb s\relax\def\jjj{}\else\def\jjj{@}\fi
-\fi\fi}}
-\def\set@vrtx@nonafusevi#1{%
-\@forsemicol\member:=#1\do{%
-\ifx\member\empty\else%
-\expandafter\@m@mb@r\member;\relax%
-\expandafter\twoch@r\@membera{}%
-\ifcase\@tmpa\or\or
- \or%%%%3
-   \if\@tmpb a%
-     \global\@icliptrue%
-     \putlatom{207}{65}{\@memberb}%  % left type
-   \else\relax
-   \fi
- \or\or\or
- \or%7
-   \if\@tmpb a%
-     \global\@jcliptrue%
-     \putlatom{207}{280}{\@memberb}% % left type
-   \else\relax
-   \fi
-\or%8 (= 3a)
-     \global\@icliptrue%
-     \putlatom{207}{65}{\@memberb}%  % left type
-\or%9 (= 7a)
-     \global\@jcliptrue%
-     \putlatom{207}{280}{\@memberb}% % left type
-\fi\fi}%
-}% end of the macro \set@vrtx@nonafusevi
-\def\purinev{\@ifnextchar[{\@purinev[@}{\@purinev[ra]}}
-\def\@purinev[#1]#2{%
-\iforigpt \typeout{command `purinev' %
-  is based on `nonaheterov'.}\fi%
-\nonaheterov[#1]{1==N;3==N;5==N;7==N}{#2}}
-\def\purinevi{\@ifnextchar[{\@purinevi[@}{\@purinevi[ra]}}
-\def\@purinevi[#1]#2{%
-\iforigpt \typeout{command `purinevi' %
-  is based on `nonaheterovi'.}\fi%
-\nonaheterovi[#1]{1==N;3==N;5==N;7==N}{#2}}
-\def\indolev{\@ifnextchar[{\@indolev[@}{\@indolev[rb]}}
-\def\@indolev[#1]#2{%
-\iforigpt \typeout{command `indolev' %
- is based on `nonaheterov'.}\fi%
-\nonaheterov[#1]{1==N}{#2}}
-\def\indolevi{\@ifnextchar[{\@indolevi[@}{\@indolevi[rb]}}
-\def\@indolevi[#1]#2{%
-\iforigpt \typeout{command `indolevi' %
- is based on `nonaheterovi'.}\fi%
-\nonaheterovi[#1]{1==N}{#2}}
-\def\indolizinev{%
-  \@ifnextchar[{\@indolizinev[@}{\@indolizinev[aceg]}}
-\def\@indolizinev[#1]#2{%
-\iforigpt \typeout{command `indolizinev' %
-  is based on `nonaheterov'.}\fi%
-\nonaheterov[#1]{7a==N}{#2}}
-\def\indolizinevi{%
-  \@ifnextchar[{\@indolizinevi[@}{\@indolizinevi[aceg]}}
-\def\@indolizinevi[#1]#2{%
-\iforigpt \typeout{command `indolizinevi' %
-  is based on `nonaheterovi'.}\fi%
-\nonaheterovi[#1]{7a==N}{#2}}
-\def\isoindolev{\@ifnextchar[{\@isoindolev[@}{\@isoindolev[cegi]}}
-\def\@isoindolev[#1]#2{%
-\iforigpt \typeout{command `isoindolev' %
-  is based on `nonaheterov'.}\fi%
-\nonaheterov[#1]{2==N}{#2}}
-\def\isoindolevi{\@ifnextchar[{\@isoindolevi[@}{\@isoindolevi[cegi]}}
-\def\@isoindolevi[#1]#2{%
-\iforigpt \typeout{command `isoindolevi' %
-  is based on `nonaheterovi'.}\fi%
-\nonaheterovi[#1]{2==N}{#2}}
-\def\benzofuranev{%
- \@ifnextchar[{\@benzofuranev[@}{\@benzofuranev[rb]}}
-\def\@benzofuranev[#1]#2{%
-\iforigpt \typeout{command `benzofuranev' %
-  is based on `nonaheterov'.}\fi%
-\nonaheterov[#1]{1==O}{#2}}
-\def\benzofuranevi{%
- \@ifnextchar[{\@benzofuranevi[@}{\@benzofuranevi[rb]}}
-\def\@benzofuranevi[#1]#2{%
-\iforigpt \typeout{command `benzofuranevi' %
-  is based on `nonaheterovi'.}\fi%
-\nonaheterovi[#1]{1==O}{#2}}
-\def\isobenzofuranev{\@ifnextchar[{\@isobenzofuranev[@}%
- {\@isobenzofuranev[cegi]}}
-\def\@isobenzofuranev[#1]#2{%
-\iforigpt \typeout{command `isobenzofuranev' %
-  is based on `nonaheterov'.}\fi%
-\nonaheterov[#1]{2==O}{#2}}
-\def\isobenzofuranevi{\@ifnextchar[{\@isobenzofuranevi[@}%
- {\@isobenzofuranevi[cegi]}}
-\def\@isobenzofuranevi[#1]#2{%
-\iforigpt \typeout{command `isobenzofuranevi' %
-  is based on `nonaheterovi'.}\fi%
-\nonaheterovi[#1]{2==O}{#2}}
-\def\benzoxazolev{%
- \@ifnextchar[{\@benzoxazolev[@}{\@benzoxazolev[rb]}}
-\def\@benzoxazolev[#1]#2{%
-\iforigpt \typeout{command `benzoxazolev' %
-  is based on `nonaheterov'.}\fi%
-\nonaheterov[#1]{1==O;3==N}{#2}}
-\def\benzoxazolevi{%
- \@ifnextchar[{\@benzoxazolevi[@}{\@benzoxazolevi[rb]}}
-\def\@benzoxazolevi[#1]#2{%
-\iforigpt \typeout{command `benzoxazolevi' %
- is based on `nonaheterovi'.}\fi%
-\nonaheterovi[#1]{1==O;3==N}{#2}}
-\def\sixunitv{\@ifnextchar[{\@sixunitv[@}{\@sixunitv[@]}}
-\def\@sixunitv[#1]#2#3#4{\sixheterov[#1]{#2}{#3}[#4]}
-\def\fiveunitv{\@ifnextchar[{\@fiveunitv[@}{\@fiveunitv[r]}}
-\def\@fiveunitv[#1]#2#3#4{\fiveheterov[#1]{#2}{#3}[#4]}
-\def\fiveunitvi{\@ifnextchar[{\@fiveunitvi[@}{\@fiveunitvi[r]}}
-\def\@fiveunitvi[#1]#2#3#4{\fiveheterovi[#1]{#2}{#3}[#4]}
-\def\bondshoriz{%
- \begin{picture}(200,300)(0,0)
-  \ifx\fff\empty%
-    \ifx\bbb\empty%
-     \put(-138,270){\line(1,0){134}}%double bond 4-3
-    \else%
-     \put(-138,270){\line(1,0){115}}%double bond 4-3
-    \fi%
-  \else%
-    \ifx\bbb\empty%
-     \put(-120,270){\line(1,0){115}}%double bond 4-3
-    \else%
-     \put(-120,270){\line(1,0){96}}%double bond 4-3
-    \fi%
-  \fi\end{picture}}%
-\def\bondshorizi{%
- \begin{picture}(200,300)(0,0)
-  \ifx\eee\empty%
-    \ifx\ccc\empty%
-     \put(-138,136){\line(1,0){134}}%double bond 4-3
-    \else%%
-     \put(-138,136){\line(1,0){115}}%double bond 4-3
-    \fi%
-  \else%
-    \ifx\ccc\empty%
-     \put(-120,136){\line(1,0){115}}%double bond 4-3
-    \else%
-     \put(-120,136){\line(1,0){96}}%double bond 4-3
-    \fi%
-  \fi\end{picture}}%
-\def\skbondshoriz{%
- \begin{picture}(200,300)(0,0)
-  \ifx\fff\empty%
-    \ifx\bbb\empty%
-     \put(-171,303){\line(1,0){200}}%bond 4-3
-    \else%
-     \put(-171,303){\line(1,0){158}}%bond 4-3
-    \fi%
-  \else%
-    \ifx\bbb\empty%
-     \put(29,303){\line(-1,0){158}}%bond 4-3
-    \else%
-     \put(-129,303){\line(1,0){116}}%bond 4-3
-    \fi%
-  \fi\end{picture}}%
-\def\skbondshorizi{%
- \begin{picture}(200,300)(0,0)
-  \ifx\eee\empty%
-    \ifx\ccc\empty%
-     \put(-171,103){\line(1,0){200}}%bond 4-3
-    \else%
-     \put(-171,103){\line(1,0){158}}%bond 4-3
-    \fi%
-  \else%
-    \ifx\ccc\empty%
-     \put(29,103){\line(-1,0){158}}%bond 4-3
-    \else%
-     \put(-129,103){\line(1,0){116}}%bond 4-3
-    \fi%
-  \fi\end{picture}}%
-\def\dotskbondshoriz{%
- \begin{picture}(200,300)(0,0)
-  \ifx\fff\empty%
-    \ifx\bbb\empty%
-       \@ifundefined{dottedline}{%
-        \put(-171,303){\line(1,0){200}}%bond 4-3
-           }{{\thicklines%
-              \dottedline{20}(-171,303)(29,303)}}%
-    \else%
-       \@ifundefined{dottedline}{%
-        \put(-171,303){\line(1,0){158}}%bond 4-3
-           }{{\thicklines%
-              \dottedline{20}(-171,303)(-29,303)}}%
-    \fi%
-  \else%
-    \ifx\bbb\empty%
-       \@ifundefined{dottedline}{%
-        \put(29,303){\line(-1,0){158}}%bond 4-3
-           }{{\thicklines%
-              \dottedline{20}(29,303)(-129,303)}}%
-    \else%
-       \@ifundefined{dottedline}{%
-       \put(-129,303){\line(1,0){116}}%bond 4-3
-           }{{\thicklines%
-              \dottedline{20}(-129,303)(-13,303)}}%
-    \fi%
-  \fi\end{picture}}%
-\def\dotskbondshorizi{%
- \begin{picture}(200,300)(0,0)
-  \ifx\eee\empty%
-    \ifx\ccc\empty%
-       \@ifundefined{dottedline}{%
-        \put(-171,103){\line(1,0){200}}%bond 4-3
-           }{{\thicklines%
-              \dottedline{20}(-171,103)(29,103)}}%
-    \else%
-       \@ifundefined{dottedline}{%
-        \put(-171,103){\line(1,0){158}}%bond 4-3
-           }{{\thicklines%
-              \dottedline{20}(-171,103)(-29,103)}}%
-    \fi%
-  \else%
-    \ifx\ccc\empty%
-       \@ifundefined{dottedline}{%
-        \put(29,103){\line(-1,0){158}}%bond 4-3
-           }{{\thicklines%
-              \dottedline{20}(29,103)(-129,103)}}%
-    \else%
-       \@ifundefined{dottedline}{%
-        \put(-129,103){\line(1,0){116}}%bond 4-3
-           }{{\thicklines%
-              \dottedline{20}(-129,103)(-13,103)}}%
-    \fi%
-  \fi\end{picture}}%
-\def\fourhetero{\@ifnextchar({\@four@hetero(@}{\@four@hetero(@)}}
-\def\@four@hetero(#1){\@ifnextchar[{\@four@@hetero(#1)[@}%
-{\@four@@hetero(#1)[@]}}
-\def\@four@@hetero(#1)[#2]#3#4{\@ifnextchar[%
-{\@fourhetero(#1)[#2]{#3}{#4}[@}%
-{\@fourhetero(#1)[#2]{#3}{#4}[@]}}
-\def\@fourhetero(#1)[#2]#3#4[#5]{%
-\iniatom\iniflag%initialize
-\test@vertix@sixv{#3}{e}{c}{b}{f}{@}{@}%
-\@reset@ylsw%
-\ylposition{#4}{5}{1}{4}{-1}% for 2 to 3
-\if@ylsw \ifx\@@ylii\empty
-\def\@@ylii{142}\def\@@yli{0}\fi
-\else
-\ylposition{#4}{4}{4}{6}{0}% for 1
-\fi
-\if@ylsw \ifx\@@ylii\empty
-\def\@@ylii{0}\def\@@yli{0}\fi
-\else
-\ylposition{#4}{2}{5}{7}{0}% for 4
-\fi
-\if@ylsw \ifx\@@ylii\empty
-\def\@@ylii{0}\def\@@yli{0}\fi
-\fi
-\if@ylsw
- \yl@shiftii=\@ylii
- \yl@shifti=\@yli
- \advance\yl@shiftii\@@ylii
- \advance\yl@shifti\@@yli
- \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 `fourhetero' origin: %
-    (\the\noshift,\the\noshift) ---> (\the\shiftii,\the\shifti)}\fi%
-\fi
-{\resetbdsw%
-\@bond@@omit{#5}%
-\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}\iniatom\iniflag}%     %end of \fourhetero macro
-\def\set@fusionadd@fourv{%
-      \if\@@tmpa 1\relax%
-        \putlatom{-200}{120}{\scriptsize \@@tmpb}%       % right type
-      \else\if\@@tmpa 2\relax%
-        \putratom{60}{120}{\scriptsize \@@tmpb}%        % right type
-      \else\if\@@tmpa 3\relax%
-        \putratom{60}{233}{\scriptsize \@@tmpb}%        % right type
-      \else\if\@@tmpa 4\relax%
-        \putlatom{-200}{233}{\scriptsize \@@tmpb}%       % right type
-      \else
-        \set@fusion@fourv
-      \fi\fi\fi\fi%
-}%
-\def\set@fusion@fourv{%
-\if\@@tmpa d\relax%
-        \putlratom{-171}{303}{\@@tmpb}%     % bond fused
-        \FuseWarning{0}{200}%
-          {\fuseAx}{\fuseAy}{\fuseBx}{\fuseBy}{d}%
-      \else\if\@@tmpa D\relax%
-        \putlratom{-171}{103}{\@@tmpb}%     % bond fused
-        \FuseWarning{0}{-200}%
-          {\fuseAx}{\fuseAy}{\fuseBx}{\fuseBy}{D}%
-      \else\if\@@tmpa a\relax%
-        \putlratom{-173}{103}{\@@tmpb}%     % bond fused
-        \FuseWarning{-200}{0}%
-          {\fuseAx}{\fuseAy}{\fuseBx}{\fuseBy}{f}%
-      \else\if\@@tmpa A\relax%
-        \putlratom{27}{103}{\@@tmpb}%       % bond fused
-        \FuseWarning{200}{0}%
-          {\fuseAx}{\fuseAy}{\fuseBx}{\fuseBy}{A}%
-      \else\if\@@tmpa b\relax%
-        \putlratom{27}{103}{\@@tmpb}%    % bond fused
-        \FuseWarning{0}{-200}%
-          {\fuseAx}{\fuseAy}{\fuseBx}{\fuseBy}{b}%
-      \else\if\@@tmpa B\relax%
-        \putlratom{27}{303}{\@@tmpb}%    % bond fused
-        \FuseWarning{0}{200}%
-          {\fuseAx}{\fuseAy}{\fuseBx}{\fuseBy}{B}%
-      \else\if\@@tmpa c\relax%
-        \putlratom{27}{303}{\@@tmpb}%    % bond fused
-        \FuseWarning{200}{0}%
-          {\fuseAx}{\fuseAy}{\fuseBx}{\fuseBy}{c}%
-      \else\if\@@tmpa C\relax%
-        \putlratom{-171}{303}{\@@tmpb}%      % bond fused
-        \FuseWarning{-200}{0}%
-          {\fuseAx}{\fuseAy}{\fuseBx}{\fuseBy}{C}%
-\fi\fi\fi\fi\fi\fi\fi\fi%
-}% end of the macro \set@fusion@fourv
- \def\bondtria{%
-  \ifx\ddd\empty%
-   \ifx\bbb\empty%
-    \put(-6,42){\line(3,5){72}}%           %double bond 1-2
-   \else%
-    \put(-6,42){\line(3,5){60}}%           %double bond 1-2
-   \fi%
-  \else%
-   \ifx\bbb\empty%
-    \put(6,62){\line(3,5){60}}%            %double bond 1-2
-   \else%
-    \put(10,32){\line(3,5){60}}%           %double bond 1-2
-   \fi%
-  \fi%
-}%
- \def\bondtrib{%
-  \ifx\ddd\empty%
-   \ifx\fff\empty%
-    \put(6,42){\line(-3,5){72}}%           %double bond 1-3
-   \else%
-    \put(6,42){\line(-3,5){60}}%           %double bond 1-3
-   \fi%
-  \else%
-   \ifx\fff\empty%
-    \put(-6,62){\line(-3,5){60}}%          %double bond 1-2
-   \else%
-    \put(6,42){\line(-3,5){60}}%           %double bond 1-2
-   \fi%
-  \fi%
- }%
-\def\skbondtria{%
- \begin{picture}(200,200)(0,0)
-  \ifx\ddd\empty%
-    \ifx\bbb\empty%
-     \put(0,0){\line(3,5){103}}%           %bond 1-2
-    \else%
-     \put(0,0){\line(3,5){80}}%            %bond 1-2
-    \fi%
-  \else%
-    \ifx\bbb\empty%
-     \put(103,171){\line(-3,-5){80}}%      %bond 1-2
-    \else%
-     \put(35,21){\line(3,5){60}}%          %bond 1-2
-    \fi%
-  \fi\end{picture}}%
-\def\skbondtrib{%
- \begin{picture}(200,200)(0,0)
-  \ifx\ddd\empty%
-    \ifx\fff\empty%
-     \put(0,0){\line(-3,5){103}}%         %bond 1-3
-    \else%
-     \put(0,0){\line(-3,5){80}}%          %bond 1-3
-    \fi%
-  \else%
-    \ifx\fff\empty%
-     \put(-103,171){\line(3,-5){80}}%     %bond 1-3
-    \else%
-     \put(-35,21){\line(-3,5){60}}%       %bond 1-3
-    \fi%
-  \fi\end{picture}}%
-\def\dotskbondtria{%
- \begin{picture}(200,200)(0,0)
-  \ifx\ddd\empty%
-    \ifx\bbb\empty%
-       \@ifundefined{dottedline}{%
-        \put(0,0){\line(3,5){103}}%           %bond 1-2
-           }{{\thicklines%
-              \dottedline{20}(0,0)(103,171)}}%
-    \else%
-       \@ifundefined{dottedline}{%
-        \put(0,0){\line(3,5){80}}%            %bond 1-2
-           }{{\thicklines%
-              \dottedline{20}(0,0)(80,133)}}%
-    \fi%
-  \else%
-    \ifx\bbb\empty%
-       \@ifundefined{dottedline}{%
-        \put(103,171){\line(-3,-5){80}}%      %bond 1-2
-           }{{\thicklines%
-              \dottedline{20}(103,171)(23,38)}}%
-    \else%
-       \@ifundefined{dottedline}{%
-        \put(35,21){\line(3,5){60}}%          %bond 1-2
-           }{{\thicklines%
-              \dottedline{20}(35,21)(95,121)}}%
-    \fi%
-  \fi\end{picture}}%
-\def\dotskbondtrib{%
- \begin{picture}(200,200)(0,0)
-  \ifx\ddd\empty%
-    \ifx\fff\empty%
-       \@ifundefined{dottedline}{%
-        \put(0,0){\line(-3,5){103}}%         %bond 1-3
-           }{{\thicklines%
-              \dottedline{20}(0,0)(-103,171)}}%
-    \else%
-       \@ifundefined{dottedline}{%
-        \put(0,0){\line(-3,5){80}}%          %bond 1-3
-           }{{\thicklines%
-              \dottedline{20}(0,0)(-80,133)}}%
-    \fi%
-  \else%
-    \ifx\fff\empty%
-       \@ifundefined{dottedline}{%
-        \put(-103,171){\line(3,-5){80}}%     %bond 1-3
-           }{{\thicklines%
-              \dottedline{20}(-103,171)(-23,38)}}%
-    \else%
-       \@ifundefined{dottedline}{%
-        \put(-35,21){\line(-3,5){60}}%       %bond 1-3
-           }{{\thicklines%
-              \dottedline{20}(-35,21)(-95,121)}}%
-    \fi%
-  \fi\end{picture}}%
-\def\threehetero{\@ifnextchar({\@three@hetero(@}{\@three@hetero(@)}}
-\def\@three@hetero(#1){\@ifnextchar[{\@three@@hetero(#1)[@}%
-{\@three@@hetero(#1)[@]}}
-\def\@three@@hetero(#1)[#2]#3#4{\@ifnextchar[%
-{\@threehetero(#1)[#2]{#3}{#4}[@}%
-{\@threehetero(#1)[#2]{#3}{#4}[@]}}
-\def\@threehetero(#1)[#2]#3#4[#5]{%
-\iniatom\iniflag%initialize
-\test@vertix@sixv{#3}{d}{b}{f}{@}{@}{@}%
-\@reset@ylsw%
-\ylposition{#4}{3}{3}{5}{0}%subst 1
-\if@ylsw \ifx\@@ylii\empty
-\def\@@ylii{68}\def\@@yli{0}\fi
-\else
-\ylposition{#4}{0}{1}{3}{0}%subst 2
-\fi
-\if@ylsw \ifx\@@ylii\empty
-\def\@@ylii{142}\def\@@yli{132}\fi
-\else
-\ylposition{#4}{3}{5}{7}{0}%subst 3
-\fi
-\if@ylsw \ifx\@@ylii\empty
-\def\@@ylii{0}\def\@@yli{132}\fi
-\fi
-\if@ylsw
- \yl@shiftii=\@ylii
- \yl@shifti=\@yli
- \advance\yl@shiftii\@@ylii
- \advance\yl@shifti\@@yli
- \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 `threeheterov' origin: %
-    (68,0) ---> (468,240)}\fi%
-\fi
-{\resetbdsw%
-\@bond@@omit{#5}%
-\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}%
-\iniatom\iniflag}%     %end of \threehetero macro
-\let\threeheterov=\threehetero
-\def\set@fusionadd@threev{%
-      \if\@@tmpa 0\relax%
-        \putratom{-94}{92}{\scriptsize\@@tmpb}%      % right type
-      \else\if\@@tmpa 1\relax%
-        \putratom{-94}{60}{\scriptsize\@@tmpb}%      % right type
-      \else\if\@@tmpa 2\relax%
-        \putratom{-52}{120}{\scriptsize\@@tmpb}%     % right type
-      \else\if\@@tmpa 3\relax%
-        \putratom{-126}{126}{\scriptsize\@@tmpb}%    % right type
-      \else\if\@@tmpa 4\relax%
-        \putratom{-30}{-20}{\scriptsize\@@tmpb}%      % right type
-      \else\if\@@tmpa 5\relax%
-        \putratom{52}{110}{\scriptsize\@@tmpb}%      % right type
-      \else\if\@@tmpa 6\relax%
-        \putratom{-250}{110}{\scriptsize\@@tmpb}%    % right type
-      \else
-        \set@fusion@threev
-      \fi\fi\fi\fi\fi\fi\fi%
-}%
-\def\set@fusion@threev{%
-\if\@@tmpa b\relax%
-        \putlratom{29}{171}{\@@tmpb}%    % bond fused
-        \FuseWarning{200}{0}%
-          {\fuseAx}{\fuseAy}{\fuseBx}{\fuseBy}{b}%
-      \else\if\@@tmpa B\relax%
-        \putlratom{-171}{171}{\@@tmpb}%      % bond fused
-        \FuseWarning{-200}{0}%
-          {\fuseAx}{\fuseAy}{\fuseBx}{\fuseBy}{B}%
-      \else\if\@@tmpa a\relax%
-        \putlratom{-68}{0}{\@@tmpb}%    % bond fused
-        \FuseWarning{-103}{-171}%
-          {\fuseAx}{\fuseAy}{\fuseBx}{\fuseBy}{a}%
-      \else\if\@@tmpa A\relax%
-        \putlratom{29}{171}{\@@tmpb}%    % bond fused
-        \FuseWarning{103}{171}%
-          {\fuseAx}{\fuseAy}{\fuseBx}{\fuseBy}{A}%
-      \else\if\@@tmpa c\relax%
-        \putlratom{-171}{171}{\@@tmpb}%      % bond fused
-        \FuseWarning{-103}{171}%
-          {\fuseAx}{\fuseAy}{\fuseBx}{\fuseBy}{c}%
-      \else\if\@@tmpa C\relax%
-        \putlratom{-68}{0}{\@@tmpb}%    % bond fused
-        \FuseWarning{103}{-171}%
-          {\fuseAx}{\fuseAy}{\fuseBx}{\fuseBy}{C}%
-\fi\fi\fi\fi\fi\fi%
-}% end of the macro \set@fusion@threev
- \def\Bondtria{%
-  \ifx\aaa\empty%
-   \ifx\ccc\empty%
-    \put(-6,-42){\line(3,-5){72}}%           %double bond 1-2
-   \else%
-    \put(-6,-42){\line(3,-5){60}}%           %double bond 1-2
-   \fi%
-  \else%
-   \ifx\ccc\empty%
-    \put(6,-62){\line(3,-5){60}}%            %double bond 1-2
-   \else%
-    \put(10,-32){\line(3,-5){60}}%           %double bond 1-2
-   \fi%
-  \fi%
-}%
- \def\Bondtrib{%
-  \ifx\aaa\empty%
-   \ifx\eee\empty%
-    \put(6,-42){\line(-3,-5){72}}%           %double bond 1-3
-   \else%
-    \put(6,-42){\line(-3,-5){60}}%           %double bond 1-3
-   \fi%
-  \else%
-   \ifx\fff\empty%
-    \put(-6,-62){\line(-3,-5){60}}%          %double bond 1-2
-   \else%
-    \put(6,-42){\line(-3,-5){60}}%           %double bond 1-2
-   \fi%
-  \fi%
- }%
-\def\skBondtria{%
-  \ifx\aaa\empty%
-    \ifx\ccc\empty%
-     \put(0,0){\line(3,-5){103}}%           %bond 1-2
-    \else%
-     \put(0,0){\line(3,-5){80}}%            %bond 1-2
-    \fi%
-  \else%
-    \ifx\ccc\empty%
-     \put(103,-171){\line(-3,5){80}}%      %bond 1-2
-    \else%
-     \put(35,-21){\line(3,-5){60}}%          %bond 1-2
-    \fi%
-  \fi
-}%
-\def\skBondtrib{%
-  \ifx\aaa\empty%
-    \ifx\eee\empty%
-     \put(0,0){\line(-3,-5){103}}%         %bond 1-3
-    \else%
-     \put(0,0){\line(-3,-5){80}}%          %bond 1-3
-    \fi%
-  \else%
-    \ifx\eee\empty%
-     \put(-103,-171){\line(3,5){80}}%     %bond 1-3
-    \else%
-     \put(-35,-21){\line(-3,-5){60}}%       %bond 1-3
-    \fi%
-  \fi
-}%
-\def\dotskBondtria{%
-  \ifx\aaa\empty%
-    \ifx\ccc\empty%
-       \@ifundefined{dottedline}{%
-        \put(0,0){\line(3,-5){103}}%           %bond 1-2
-           }{{\thicklines%
-              \dottedline{20}(0,0)(103,-171)}}%
-    \else%
-       \@ifundefined{dottedline}{%
-        \put(0,0){\line(3,-5){80}}%            %bond 1-2
-           }{{\thicklines%
-              \dottedline{20}(0,0)(80,-133)}}%
-    \fi%
-  \else%
-    \ifx\ccc\empty%
-       \@ifundefined{dottedline}{%
-       \put(103,-171){\line(-3,5){80}}%      %bond 1-2
-           }{{\thicklines%
-              \dottedline{20}(103,-171)(23,-38)}}%
-    \else%
-       \@ifundefined{dottedline}{%
-       \put(35,-21){\line(3,-5){60}}%          %bond 1-2
-           }{{\thicklines%
-              \dottedline{20}(35,-21)(95,-121)}}%
-    \fi%
-  \fi
-}%
-\def\dotskBondtrib{%
-  \ifx\aaa\empty%
-    \ifx\eee\empty%
-       \@ifundefined{dottedline}{%
-        \put(0,0){\line(-3,-5){103}}%         %bond 1-3
-           }{{\thicklines%
-              \dottedline{20}(0,0)(-103,-171)}}%
-    \else%
-       \@ifundefined{dottedline}{%
-        \put(0,0){\line(-3,-5){80}}%          %bond 1-3
-           }{{\thicklines%
-              \dottedline{20}(0,0)(-80,-133)}}%
-    \fi%
-  \else%
-    \ifx\eee\empty%
-       \@ifundefined{dottedline}{%
-        \put(-103,-171){\line(3,5){80}}%     %bond 1-3
-           }{{\thicklines%
-              \dottedline{20}(-103,-171)(-23,-38)}}%
-    \else%
-       \@ifundefined{dottedline}{%
-        \put(-35,-21){\line(-3,-5){60}}%       %bond 1-3
-           }{{\thicklines%
-              \dottedline{20}(-35,-21)(-95,-121)}}%
-    \fi%
-  \fi
-}%
-\def\threeheteroi{\@ifnextchar({\@three@heteroi(@}{\@three@heteroi(@)}}
-\def\@three@heteroi(#1){\@ifnextchar[{\@three@@heteroi(#1)[@}%
-{\@three@@heteroi(#1)[@]}}
-\def\@three@@heteroi(#1)[#2]#3#4{\@ifnextchar[%
-{\@threeheteroi(#1)[#2]{#3}{#4}[@}%
-{\@threeheteroi(#1)[#2]{#3}{#4}[@]}}
-\def\@threeheteroi(#1)[#2]#3#4[#5]{%
-\iniatom\iniflag%initialize
-\test@vertix@sixv{#3}{a}{c}{e}{@}{@}{@}%
-\@reset@ylsw%
-\ylposition{#4}{0}{0}{2}{0}%subst 1
-\if@ylsw \ifx\@@ylii\empty
-\def\@@ylii{68}\def\@@yli{406}\fi
-\else
-\ylposition{#4}{1}{2}{4}{0}%subst 2
-\fi
-\if@ylsw \ifx\@@ylii\empty
-\def\@@ylii{142}\def\@@yli{275}\fi
-\else
-\ylposition{#4}{2}{4}{6}{0}%subst 3
-\fi
-\if@ylsw \ifx\@@ylii\empty
-\def\@@ylii{0}\def\@@yli{275}\fi
-\fi
-\if@ylsw
- \yl@shiftii=\@ylii
- \yl@shifti=\@yli
- \advance\yl@shiftii\@@ylii
- \advance\yl@shifti\@@yli
- \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 `threeheteroi' origin: %
-    (0,0) ---> (-468,-340)}\fi%
-\fi
-{\resetbdsw%
-\@bond@@omit{#5}%
-\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@eclip\global\@ecliptrue\fi
-}%subst 3
-\put(-142,-275){\set@hetatom@sixv{#3}{1}{2}{4}{0}%
-\if@cclip\global\@ccliptrue\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}%
-\iniatom\iniflag}%     %end of \threeheteroi macro
-\let\threeheterovi=\threeheteroi
-\def\set@fusionadd@threevi{%
-      \if\@@tmpa 0\relax%
-        \putratom{-94}{-120}{\scriptsize\@@tmpb}%      % right type
-      \else\if\@@tmpa 1\relax%
-        \putratom{-94}{-80}{\scriptsize\@@tmpb}%      % right type
-      \else\if\@@tmpa 2\relax%
-        \putratom{-52}{-150}{\scriptsize\@@tmpb}%     % right type
-      \else\if\@@tmpa 3\relax%
-        \putratom{-126}{-150}{\scriptsize\@@tmpb}%    % right type
-      \else\if\@@tmpa 4\relax%
-        \putratom{-30}{0}{\scriptsize\@@tmpb}%      % right type
-      \else\if\@@tmpa 5\relax%
-        \putratom{32}{-130}{\scriptsize\@@tmpb}%      % right type
-      \else\if\@@tmpa 6\relax%
-        \putratom{-230}{-130}{\scriptsize\@@tmpb}%    % right type
-      \else
-        \set@fusion@threevi
-      \fi\fi\fi\fi\fi\fi\fi%
-}%
-\def\set@fusion@threevi{%
-\if\@@tmpa b\relax%
-        \putlratom{29}{-171}{\@@tmpb}%    % bond fused
-        \FuseWarning{200}{0}%
-          {\fuseAx}{\fuseAy}{\fuseBx}{\fuseBy}{b}%
-  \else\if\@@tmpa B\relax%
-        \putlratom{-171}{-171}{\@@tmpb}%      % bond fused
-        \FuseWarning{-200}{0}%
-          {\fuseAx}{\fuseAy}{\fuseBx}{\fuseBy}{B}%
-  \else\if\@@tmpa a\relax%
-        \putlratom{-68}{0}{\@@tmpb}%    % bond fused
-        \FuseWarning{-103}{171}%
-          {\fuseAx}{\fuseAy}{\fuseBx}{\fuseBy}{a}%
-  \else\if\@@tmpa A\relax%
-        \putlratom{29}{-171}{\@@tmpb}%      % bond fused
-        \FuseWarning{103}{-171}%
-          {\fuseAx}{\fuseAy}{\fuseBx}{\fuseBy}{A}%
-  \else\if\@@tmpa c\relax%
-        \putlratom{-171}{-171}{\@@tmpb}%      % bond fused
-        \FuseWarning{103}{171}%
-          {\fuseAx}{\fuseAy}{\fuseBx}{\fuseBy}{c}%
-  \else\if\@@tmpa C\relax%
-        \putlratom{-68}{0}{\@@tmpb}%    % bond fused
-        \FuseWarning{-103}{-171}%
-          {\fuseAx}{\fuseAy}{\fuseBx}{\fuseBy}{C}%
-\fi\fi\fi\fi\fi\fi%
-}% end of the macro \set@fusion@threevi
-\endinput
-%%
-%% End of file `hetarom.sty'.
diff --git a/Master/texmf-dist/tex/latex/xymtex/hetaromh.sty b/Master/texmf-dist/tex/latex/xymtex/hetaromh.sty
deleted file mode 100644
index 23f00dbb23b..00000000000
--- a/Master/texmf-dist/tex/latex/xymtex/hetaromh.sty
+++ /dev/null
@@ -1,2435 +0,0 @@
-%%
-%% This is file `hetaromh.sty',
-%% generated with the docstrip utility.
-%%
-%% The original source files were:
-%%
-%% hetaromh.dtx  (with options: `hetaromh')
-%% 
-%% This is a generated file.
-%% 
-%% Copyright 1996,1998,2000 by Shinsaku Fujita
-%% 
-%% This file is part of the XyMTeX system.
-%% =======================================
-%% 
-%% Version 1.01 Released on August 16, 1996
-%% Version 1.02 Released on October 31, 1996 (private version)
-%% Version 2.00 Released on December 25, 1998
-%% Version 2.00a Released on November 11, 2000
-%% 
-%% Copyright (C) 1996, 1998, 2000 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: hetaromh.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{hetaromh}
-\def\versi@ndate{November 11, 2000}
-\def\versi@nno{ver2.00a}
-\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{test@vertix@decavi}{\input hetarom.sty\relax}{}%
-\unitlength=0.1pt%
-\iniatom%
-\def\hbonda{%
-  \ifx\aaa\empty%
-   \ifx\bbb\empty%
-     \put(42,6){\line(3,5){78}}%           %double bond 1-2
-   \else%
-     \put(42,6){\line(3,5){62}}%           %double bond 1-2
-   \fi%
-  \else%
-   \ifx\bbb\empty%
-     \put(57,36){\line(3,5){62}}%          %double bond 1-2
-   \else%
-     \put(57,36){\line(3,5){62}}%          %double bond 1-2
-   \fi\fi}%
-\def\hbondf{%
-  \ifx\aaa\empty%
-   \ifx\fff\empty%
-    \put(42,-6){\line(3,-5){78}}%          %double bond 1-6
-   \else%
-     \put(42,-6){\line(3,-5){62}}%         %double bond 1-6
-   \fi%
-  \else%
-   \ifx\fff\empty%
-     \put(57,-36){\line(3,-5){62}}%        %double bond 1-6
-   \else%
-     \put(57,-36){\line(3,-5){62}}%        %double bond 1-6
-   \fi\fi}%
- \def\hbondb{%
-  \ifx\bbb\empty%
-   \ifx\ccc\empty%
-    \put(129,138){\line(1,0){148}}%        %double bond 2-3
-   \else%
-    \put(129,138){\line(1,0){134}}%        %double bond 3-2
-   \fi%
-  \else%
-   \ifx\ccc\empty%
-    \put(143,138){\line(1,0){134}}%        %double bond 3-2
-   \else%
-    \put(143,138){\line(1,0){110}}%        %double bond 3-2
-   \fi\fi}%
- \def\hbondc{%
-  \ifx\ddd\empty%
-   \ifx\ccc\empty%
-    \put(364,6){\line(-3,5){78}}%          %double bond 4-3
-   \else%
-    \put(364,6){\line(-3,5){62}}%          %double bond 4-3
-   \fi%
-  \else%
-   \ifx\ccc\empty%
-    \put(349,36){\line(-3,5){62}}%         %double bond 4-3
-   \else%
-    \put(349,36){\line(-3,5){62}}%         %double bond 4-3
-   \fi\fi}%
- \def\hbondd{%
-  \ifx\ddd\empty%
-   \ifx\eee\empty%
-    \put(364,-6){\line(-3,-5){78}}%        %double bond 4-5
-   \else%
-    \put(364,-6){\line(-3,-5){62}}%        %double bond 4-5
-   \fi%
-  \else%
-   \ifx\eee\empty%
-    \put(349,-36){\line(-3,-5){62}}%       %double bond 4-5
-   \else%
-    \put(349,-36){\line(-3,-5){62}}%       %double bond 4-5
-   \fi\fi}%
-\def\hbonde{%
-  \ifx\fff\empty%
-   \ifx\eee\empty%
-    \put(129,-138){\line(1,0){148}}%       %double bond 6-5
-   \else%
-    \put(129,-138){\line(1,0){134}}%       %double bond 5-6
-   \fi%
-  \else%
-   \ifx\eee\empty%
-    \put(143,-138){\line(1,0){134}}%       %double bond 5-6
-   \else%
-    \put(143,-138){\line(1,0){110}}%       %double bond 5-6
-   \fi\fi}%
-\def\hbondvert{%
-  \ifx\fff\empty%
-    \ifx\bbb\empty%
-     \put(136,-138){\line(0,1){277}}%      %double bond 4-3
-    \else%
-     \put(136,-138){\line(0,1){258}}%      %double bond 4-3
-    \fi%
-  \else%
-    \ifx\bbb\empty%
-     \put(136,-120){\line(0,1){258}}%      %double bond 4-3
-    \else
-     \put(136,-120){\line(0,1){239}}%      %double bond 4-3
-    \fi\fi}%
-\def\hbondverti{%
-  \ifx\eee\empty%
-    \ifx\ccc\empty%
-     \put(270,-138){\line(0,0){277}}%      %double bond 4-3
-    \else%
-     \put(270,-138){\line(0,1){258}}%      %double bond 4-3
-    \fi%
-  \else%
-    \ifx\ccc\empty%
-     \put(270,-120){\line(0,1){258}}%      %double bond 4-3
-    \else%
-     \put(270,-120){\line(0,1){239}}%      %double bond 4-3
-    \fi\fi}%
-\def\hskbonda{%
-  \ifx\aaa\empty%
-    \ifx\bbb\empty%
-     \put(0,0){\line(3,5){103}}%           %bond 1-2
-    \else%
-     \put(0,0){\line(3,5){79}}%            %bond 1-2
-    \fi%
-   \else%
-    \ifx\bbb\empty%
-     \put(24,40){\line(3,5){79}}%          %bond 1-2
-    \else%
-     \put(24,40){\line(3,5){62}}%          %bond 1-2
-    \fi\fi}%
-\def\hskbondf{%
-  \ifx\aaa\empty%
-    \ifx\fff\empty
-     \put(0,0){\line(3,-5){103}}%          %bond 1-6
-    \else%
-     \put(0,0){\line(3,-5){79}}%           %bond 1-6
-    \fi%
-   \else%
-    \ifx\fff\empty%
-     \put(24,-40){\line(3,-5){79}}%        %bond 1-6
-    \else%
-     \put(24,-40){\line(3,-5){62}}%        %bond 1-6
-    \fi\fi}%
-\def\hskbondc{%
-  \ifx\ddd\empty%
-    \ifx\ccc\empty%
-    \put(406,0){\line(-3,5){103}}%         %bond 4-3
-    \else%
-     \put(406,0){\line(-3,5){79}}%         %bond 4-3
-    \fi%
-  \else%
-    \ifx\ccc\empty%
-     \put(382,40){\line(-3,5){79}}%        %bond 4-3
-    \else%
-     \put(382,40){\line(-3,5){62}}%        %bond 4-3
-    \fi\fi}%
-\def\hskbondd{%
-  \ifx\ddd\empty%
-    \ifx\eee\empty%
-     \put(406,0){\line(-3,-5){103}}%       %bond 4-5
-    \else%
-     \put(406,0){\line(-3,-5){79}}%        %bond 4-5
-    \fi%
-  \else%
-    \ifx\eee\empty%
-     \put(382,-40){\line(-3,-5){79}}%      %bond 4-5
-    \else%
-     \put(382,-40){\line(-3,-5){62}}%      %bond 4-5
-    \fi\fi}%
-\def\hskbondb{%
-  \ifx\bbb\empty%
-    \ifx\ccc\empty%
-     \put(103,171){\line(1,0){200}}%       %bond 2-3
-    \else%
-     \put(103,171){\line(1,0){160}}%       %bond 3-2
-    \fi%
-  \else%
-    \ifx\ccc\empty%
-     \put(143,171){\line(1,0){160}}%       %bond 3-2
-    \else%
-     \put(143,171){\line(1,0){120}}%       %bond 3-2
-    \fi\fi}%
-\def\hskbonde{%
-  \ifx\eee\empty%
-    \ifx\fff\empty%
-     \put(103,-171){\line(1,0){200}}%      %bond 6-5
-    \else%
-     \put(143,-171){\line(1,0){160}}%      %bond 5-6
-    \fi%
-  \else%
-    \ifx\fff\empty%
-     \put(103,-171){\line(1,0){160}}%      %bond 5-6
-    \else%
-     \put(143,-171){\line(1,0){120}}%      %bond 5-6
-    \fi\fi}%
-\def\hskbondvert{%
-  \ifx\fff\empty%
-    \ifx\bbb\empty%
-     \put(103,-171){\line(0,1){342}}%      %bond 4-3
-    \else%
-     \put(103,-171){\line(0,1){300}}%      %bond 4-3
-    \fi%
-  \else%
-    \ifx\bbb\empty%
-     \put(103,171){\line(0,-1){300}}%      %bond 4-3
-    \else%
-     \put(103,-129){\line(0,1){258}}%      %bond 4-3
-    \fi\fi}%
-\def\hskbondverti{%
-  \ifx\eee\empty%
-    \ifx\ccc\empty%
-     \put(303,-171){\line(0,1){342}}%      %bond 4-3
-    \else%
-     \put(303,-171){\line(0,1){300}}%      %bond 4-3
-    \fi%
-  \else%
-    \ifx\ccc\empty%
-     \put(303,171){\line(0,-1){300}}%      %bond 4-3
-    \else%
-     \put(303,-129){\line(0,1){258}}%      %bond 4-3
-    \fi\fi}%
-\def\dothskbonda{%
-  \ifx\aaa\empty%
-    \ifx\bbb\empty%
-       \@ifundefined{dottedline}{%
-         \put(0,0){\line(3,5){103}}%           %bond 1-2
-           }{{\thicklines%
-              \dottedline{20}(0,0)(103,171)}}%
-    \else%
-       \@ifundefined{dottedline}{%
-         \put(0,0){\line(3,5){79}}%            %bond 1-2
-           }{{\thicklines%
-              \dottedline{20}(0,0)(79,132)}}%
-    \fi%
-   \else%
-    \ifx\bbb\empty%
-       \@ifundefined{dottedline}{%
-         \put(24,40){\line(3,5){79}}%          %bond 1-2
-           }{{\thicklines%
-              \dottedline{20}(24,40)(103,171)}}%
-    \else%
-       \@ifundefined{dottedline}{%
-         \put(24,40){\line(3,5){62}}%          %bond 1-2
-           }{{\thicklines%
-              \dottedline{20}(24,40)(86,143)}}%
-    \fi\fi}%
-\def\dothskbondb{%
-  \ifx\bbb\empty%
-    \ifx\ccc\empty%
-       \@ifundefined{dottedline}{%
-        \put(103,171){\line(1,0){200}}%       %bond 2-3
-           }{{\thicklines%
-              \dottedline{20}(103,171)(303,171)}}%
-    \else%
-       \@ifundefined{dottedline}{%
-        \put(103,171){\line(1,0){160}}%       %bond 3-2
-           }{{\thicklines%
-              \dottedline{20}(103,171)(263,171)}}%
-    \fi%
-  \else%
-    \ifx\ccc\empty%
-       \@ifundefined{dottedline}{%
-        \put(143,171){\line(1,0){160}}%       %bond 3-2
-           }{{\thicklines%
-              \dottedline{20}(143,171)(303,171)}}%
-    \else%
-       \@ifundefined{dottedline}{%
-        \put(143,171){\line(1,0){120}}%       %bond 3-2
-           }{{\thicklines%
-              \dottedline{20}(143,171)(263,171)}}%
-    \fi\fi}%
-\def\dothskbondc{%
-  \ifx\ddd\empty%
-    \ifx\ccc\empty%
-       \@ifundefined{dottedline}{%
-        \put(406,0){\line(-3,5){103}}%         %bond 4-3
-           }{{\thicklines%
-              \dottedline{20}(406,0)(303,171)}}%
-    \else%
-       \@ifundefined{dottedline}{%
-        \put(406,0){\line(-3,5){79}}%         %bond 4-3
-           }{{\thicklines%
-              \dottedline{20}(406,0)(327,132)}}%
-    \fi%
-  \else%
-    \ifx\ccc\empty%
-       \@ifundefined{dottedline}{%
-        \put(382,40){\line(-3,5){79}}%        %bond 4-3
-           }{{\thicklines%
-              \dottedline{20}(382,40)(303,171)}}%
-    \else%
-       \@ifundefined{dottedline}{%
-        \put(382,40){\line(-3,5){62}}%        %bond 4-3
-           }{{\thicklines%
-              \dottedline{20}(382,40)(320,143)}}%
-    \fi\fi}%
-\def\dothskbondd{%
-  \ifx\ddd\empty%
-    \ifx\eee\empty%
-       \@ifundefined{dottedline}{%
-        \put(406,0){\line(-3,-5){103}}%       %bond 4-5
-           }{{\thicklines%
-              \dottedline{20}(406,0)(303,-171)}}%
-    \else%
-       \@ifundefined{dottedline}{%
-        \put(406,0){\line(-3,-5){79}}%        %bond 4-5
-           }{{\thicklines%
-              \dottedline{20}(406,0)(327,-132)}}%
-    \fi%
-  \else%
-    \ifx\eee\empty%
-       \@ifundefined{dottedline}{%
-        \put(382,-40){\line(-3,-5){79}}%      %bond 4-5
-           }{{\thicklines%
-              \dottedline{20}(382,-40)(303,-171)}}%
-    \else%
-       \@ifundefined{dottedline}{%
-        \put(382,-40){\line(-3,-5){62}}%      %bond 4-5
-           }{{\thicklines%
-              \dottedline{20}(382,-40)(320,-143)}}%
-    \fi\fi}%
-\def\dothskbonde{%
-  \ifx\eee\empty%
-    \ifx\fff\empty%
-       \@ifundefined{dottedline}{%
-        \put(103,-171){\line(1,0){200}}%      %bond 6-5
-           }{{\thicklines%
-              \dottedline{20}(103,-171)(303,-171)}}%
-    \else%
-       \@ifundefined{dottedline}{%
-        \put(143,-171){\line(1,0){160}}%      %bond 5-6
-           }{{\thicklines%
-              \dottedline{20}(143,-171)(303,-171)}}%
-    \fi%
-  \else%
-    \ifx\fff\empty%
-       \@ifundefined{dottedline}{%
-        \put(103,-171){\line(1,0){160}}%      %bond 5-6
-           }{{\thicklines%
-              \dottedline{20}(103,-171)(263,-171)}}%
-    \else%
-       \@ifundefined{dottedline}{%
-        \put(143,-171){\line(1,0){120}}%      %bond 5-6
-           }{{\thicklines%
-              \dottedline{20}(143,-171)(263,-171)}}%
-    \fi\fi}%
-\def\dothskbondf{%
-  \ifx\aaa\empty%
-    \ifx\fff\empty
-       \@ifundefined{dottedline}{%
-        \put(0,0){\line(3,-5){103}}%          %bond 1-6
-           }{{\thicklines%
-              \dottedline{20}(0,0)(103,-171)}}%
-    \else%
-       \@ifundefined{dottedline}{%
-        \put(0,0){\line(3,-5){79}}%           %bond 1-6
-           }{{\thicklines%
-              \dottedline{20}(0,0)(79,-131)}}%
-    \fi%
-   \else%
-    \ifx\fff\empty%
-       \@ifundefined{dottedline}{%
-        \put(24,-40){\line(3,-5){79}}%        %bond 1-6
-           }{{\thicklines%
-              \dottedline{20}(24,-40)(103,-171)}}%
-    \else%
-       \@ifundefined{dottedline}{%
-        \put(24,-40){\line(3,-5){62}}%        %bond 1-6
-           }{{\thicklines%
-              \dottedline{20}(24,-40)(86,-143)}}%
-    \fi\fi}%
-\def\dothskbondvert{%
-  \ifx\fff\empty%
-    \ifx\bbb\empty%
-       \@ifundefined{dottedline}{%
-        \put(103,-171){\line(0,1){342}}%      %bond 4-3
-           }{{\thicklines%
-              \dottedline{20}(103,-171)(103,171)}}%
-    \else%
-       \@ifundefined{dottedline}{%
-        \put(103,-171){\line(0,1){300}}%      %bond 4-3
-           }{{\thicklines%
-              \dottedline{20}(103,-171)(103,129)}}%
-    \fi%
-  \else%
-    \ifx\bbb\empty%
-       \@ifundefined{dottedline}{%
-        \put(103,171){\line(0,-1){300}}%      %bond 4-3
-           }{{\thicklines%
-              \dottedline{20}(103,171)(103,-129)}}%
-    \else%
-       \@ifundefined{dottedline}{%
-        \put(103,-129){\line(0,1){258}}%      %bond 4-3
-           }{{\thicklines%
-              \dottedline{20}(103,-129)(103,129)}}%
-    \fi\fi}%
-\def\dothskbondverti{%
-  \ifx\eee\empty%
-    \ifx\ccc\empty%
-       \@ifundefined{dottedline}{%
-        \put(303,-171){\line(0,1){342}}%      %bond 4-3
-           }{{\thicklines%
-              \dottedline{20}(303,-171)(303,171)}}%
-    \else%
-       \@ifundefined{dottedline}{%
-        \put(303,-171){\line(0,1){300}}%      %bond 4-3
-           }{{\thicklines%
-              \dottedline{20}(303,-171)(303,129)}}%
-    \fi%
-  \else%
-    \ifx\ccc\empty%
-       \@ifundefined{dottedline}{%
-        \put(303,171){\line(0,-1){300}}%      %bond 4-3
-           }{{\thicklines%
-              \dottedline{20}(303,171)(303,-129)}}%
-    \else%
-       \@ifundefined{dottedline}{%
-        \put(303,-129){\line(0,1){258}}%      %bond 4-3
-           }{{\thicklines%
-              \dottedline{20}(303,-129)(303,129)}}%
-    \fi\fi}%
-\def\set@skel@bondh#1#2#3{%
- \expandafter\if\csname @#2#2#2\endcsname #2\relax%OK
-                               % \if\@aaa #2\relax%OK
-  \@skbondlistfalse
-  \@tfor\member:=#1\do{%
-   \expandafter\twoCH@@R\member//
-    \if\@@tmpa #2\relax%
-      \if\@@tmpb A\relax%
-        \expandafter\csname dothskbond#3\endcsname% \dothskbonda etc.
-        \@skbondlisttrue
-      \else\if\@@tmpb B\relax%
-        {\thicklines
-        \expandafter\csname hskbond#3\endcsname% \hskbonda etc.
-        }%
-        \@skbondlisttrue
-      \fi\fi
-     \fi%
-    }%
-   \if@skbondlist\else
-     {\thinlines
-        \expandafter\csname hskbond#3\endcsname% \hskbonda etc.
-     }%
-   \fi%
-  \else
-    \expandafter\ifx\csname @#2#2#2\endcsname \empty\relax%
-                                %    \ifx\@aaa\empty\relax
-    \@tfor\member:=#1\do{%
-     \expandafter\twoCH@@R\member//
-      \if\@@tmpa #2\relax%
-       \XyMTeXWarning{Unavailable bond `#2' in SKBONDLIST}\fi
-    }%
-  \fi\fi
-}% end of \set@skel@bondh
-\def\sixheteroh{\@ifnextchar({\@six@heteroh(@}{\@six@heteroh(@)}}
-\def\@six@heteroh(#1){\@ifnextchar[{\@six@@heteroh(#1)[@}%
-{\@six@@heteroh(#1)[@]}}
-\def\@six@@heteroh(#1)[#2]#3#4{\@ifnextchar[%
-{\@sixheteroh(#1)[#2]{#3}{#4}[@}%
-{\@sixheteroh(#1)[#2]{#3}{#4}[@]}}
-\def\@sixheteroh(#1)[#2]#3#4[#5]{%
-\iniatom\iniflag%initialize
-\test@vrtx@sixh{#3}%
-\@reset@ylsw%
-\ylpositionh{#4}{0}{0}{7}{0}%
-\if@ylsw
- \yl@shiftii=\@ylii
- \yl@shifti=\@yli
- \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}(880,800)(-240,-400)%
-  \iforigpt \put(-\shifti,-\shiftii){\circle*{50}}%
-           \put(-\noshift,-\noshift){\circle{50}}%
-   \typeout{command `sixheteroh' origin: %
-    (\the\noshift,\the\noshift) ---> (\the\shifti,\the\shiftii)}\fi%
-\fi
-{%
-\resetbdsw%
-\@bond@@omit{#5}%
-\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 \hbondd \hbondf \hbondb%
-\else \if\member l\relax \hbonda \hbondc \hbonde%
-\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}%              %subst 1--6
-\end{picture}\iniatom\iniflag}%     %end of \sixheteroh macro
-\def\test@vrtx@sixh#1{%
-\@forsemicol\member:=#1\do{%
-\ifx\member\empty\else
-\expandafter\@m@mb@r\member;\relax%
-\expandafter\twoch@r\@membera{}%
-\ifcase\@tmpa%
- \or% \xdef\aaa{\@memberb}%
-   \if\@tmpb s\relax\def\aaa{}\else\def\aaa{@}\fi
- \or% \xdef\bbb{\@memberb}%
-   \if\@tmpb s\relax\def\bbb{}\else\def\bbb{@}\fi
- \or% \xdef\ccc{\@memberb}%
-   \if\@tmpb s\relax\def\ccc{}\else\def\ccc{@}\fi
- \or% \xdef\ddd{\@memberb}%
-   \if\@tmpb s\relax\def\ddd{}\else\def\ddd{@}\fi
- \or% \xdef\eee{\@memberb}%
-   \if\@tmpb s\relax\def\eee{}\else\def\eee{@}\fi
- \or% \xdef\fff{\@memberb}%
-   \if\@tmpb s\relax\def\fff{}\else\def\fff{@}\fi
-\fi\fi}%
-}% end of \test@vrtx@sixh
-\def\sixheterohi{\@ifnextchar({\@six@heterohi(@}{\@six@heterohi(@)}}
-\def\@six@heterohi(#1){\@ifnextchar[{\@six@@heterohi(#1)[@}%
-{\@six@@heterohi(#1)[@]}}
-\def\@six@@heterohi(#1)[#2]#3#4{\@ifnextchar[%
-{\@sixheterohi(#1)[#2]{#3}{#4}[@}%
-{\@sixheterohi(#1)[#2]{#3}{#4}[@]}}
-\def\@sixheterohi(#1)[#2]#3#4[#5]{%
-\iniatom\iniflag%initialize
-\test@vrtx@sixhi{#3}%
-\@reset@ylsw%
-\ylpositionh{#4}{5}{0}{5}{-1}%               %subst 1--4
-\ylpositionh{#4}{11}{4}{7}{-1}%              %subst 5 and 6
-\if@ylsw
- \yl@shiftii=\@ylii
- \yl@shifti=\@yli
- \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}(880,800)(-240,-400)%
-  \iforigpt \put(-\shifti,-\shiftii){\circle*{50}}%
-           \put(-\noshift,-\noshift){\circle{50}}%
-   \typeout{command `sixheterohi' origin: %
-    (\the\noshift,\the\noshift) ---> (\the\shifti,\the\shiftii)}\fi%
-\fi
-{\resetbdsw%
-\@bond@@omit{#5}%
-\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 \hbondd \hbondf \hbondb%
-\else \if\member l\relax \hbonda \hbondc \hbonde%
-\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}\iniatom\iniflag}%     %end of \sixheterohi macro
-\def\test@vrtx@sixhi#1{%
-\@forsemicol\member:=#1\do{%
-\ifx\member\empty\else
-\expandafter\@m@mb@r\member;\relax%
-\expandafter\twoch@r\@membera{}%
-\ifcase\@tmpa%
- \or \if\@tmpb s\relax\def\ddd{}\else\def\ddd{@}\fi
- \or \if\@tmpb s\relax\def\ccc{}\else\def\ccc{@}\fi
- \or \if\@tmpb s\relax\def\bbb{}\else\def\bbb{@}\fi
- \or \if\@tmpb s\relax\def\aaa{}\else\def\aaa{@}\fi
- \or \if\@tmpb s\relax\def\fff{}\else\def\fff{@}\fi
- \or \if\@tmpb s\relax\def\eee{}\else\def\eee{@}\fi
-\fi\fi}%
-}% end of \test@vrtx@sixhi
-\def\pyridineh{\@ifnextchar[{\@pyridineh[@}{\@pyridineh[r]}}%
-\def\@pyridineh[#1]#2{%
-\iforigpt \typeout{command `pyridineh' %
- is based on `sixheteroh'.}\fi%
-\sixheteroh[#1]{1==N}{#2}}%end of \pyridineh macro
-\def\pyridinehi{\@ifnextchar[{\@pyridinehi}{\@pyridinehi[r]}}%
-\def\@pyridinehi[#1]#2{%
-\iforigpt \typeout{command `pyridinehi' %
- is based on `sixheterohi'.}\fi%
-\sixheterohi[#1]{1==N}{#2}}% %end of \pyridinehi macro
-\def\pyrazineh{\@ifnextchar[{\@pyrazineh[@}{\@pyrazineh[r]}}%
-\def\@pyrazineh[#1]#2{%
-\iforigpt \typeout{command `pyrazineh' %
- is based on `sixheteroh'.}\fi%
-\sixheteroh[#1]{1==N;4==N}{#2}}%end of \pyrazineh macro
-\def\pyrimidineh{%
- \@ifnextchar[{\@pyrimidineh[@}{\@pyrimidineh[r]}}%
-\def\@pyrimidineh[#1]#2{%
-\iforigpt \typeout{command `pyrimidineh' %
- is based on `sixheteroh'.}\fi%
-\sixheteroh[#1]{1==N;3==N}{#2}}%
-   %end of \pyrimidineh macro
-\def\pyrimidinehi{%
- \@ifnextchar[{\@pyrimidinehi[@}{\@pyrimidinehi[r]}}%
-\def\@pyrimidinehi[#1]#2{%
-\iforigpt \typeout{command `pyrimidinehi' %
- is based on `sixheterohi'.}\fi%
-\sixheterohi[#1]{1==N;3==N}{#2}}%end of \pyrimidinehi macro
-\def\pyridazineh{\@ifnextchar[{\@pyridazineh[@}{\@pyridazineh[r]}}%
-\def\@pyridazineh[#1]#2{%
-\iforigpt \typeout{command `pyridazineh' %
- is based on `sixheteroh'.}\fi%
-\sixheteroh[#1]{1==N;2==N}{#2}}%
-   %end of \pyridazineh macro
-\def\pyridazinehi{%
- \@ifnextchar[{\@pyridazinehi}{\@pyridazinehi[r]}}%
-\def\@pyridazinehi[#1]#2{%
-\iforigpt \typeout{command `pyridazinehi' %
- is based on `sixheterohi'.}\fi%
-\sixheterohi[#1]{1==N;2==N}{#2}}%end of \pyridazinehi macro
-\def\triazineh{\@ifnextchar[{\@triazineh[@}{\@triazineh[r]}}%
-\def\@triazineh[#1]#2{%
-\iforigpt \typeout{command `triazineh' %
- is based on `sixheteroh'.}\fi%
-\sixheteroh[#1]{1==N;3==N;5==N}{#2}}%end of \triazineh macro
-\def\triazinehi{\@ifnextchar[{\@triazinehi[@}{\@triazinehi[r]}}%
-\def\@triazinehi[#1]#2{%
-\iforigpt \typeout{command `triazinehi' %
- is based on `sixheterohi'.}\fi%
-\sixheterohi[#1]{1==N;3==N;5==N}{#2}}%end of \triazinehi macro
-\def\fiveheteroh{\@ifnextchar({\@five@heteroh(@}{\@five@heteroh(@)}}
-\def\@five@heteroh(#1){\@ifnextchar[{\@five@@heteroh(#1)[@}%
-{\@five@@heteroh(#1)[@]}}
-\def\@five@@heteroh(#1)[#2]#3#4{\@ifnextchar[%
-{\@fiveheteroh(#1)[#2]{#3}{#4}[@}%
-{\@fiveheteroh(#1)[#2]{#3}{#4}[@]}}
-\def\@fiveheteroh(#1)[#2]#3#4[#5]{%
-\iniatom\iniflag%initialize
-\test@vrtx@fivehi{#3}%
-\@reset@ylsw%
-\ylpositionh{#4}{5}{1}{5}{-1}%   % for 1 to 3
-\if@ylsw \ifx\@@ylii\empty
-\def\@@ylii{0}\def\@@yli{0}\fi
-\else
-\ylpositionh{#4}{10}{4}{7}{-1}%  % for 4 to 5
-\fi
-\if@ylsw \ifx\@@ylii\empty
-\def\@@ylii{0}\def\@@yli{0}\fi
-\fi
-\if@ylsw
- \yl@shiftii=\@ylii
- \yl@shifti=\@yli
- \advance\yl@shiftii\@@ylii
- \advance\yl@shifti\@@yli
- \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 `fiveheteroh' origin: %
-    (\the\noshift,\the\noshift) ---> (\the\shifti,\the\shiftii)}\fi%
-\fi
-{\resetbdsw%
-\@bond@@omit{#5}%
-\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 -> \skbondhoriz 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 1 \@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}%
-\put(0,0){\set@hetatom@sixh{#3}{5}{1}{5}{-1}}%   % for 1 to 3
-\put(0,0){\set@hetatom@sixh{#3}{10}{4}{7}{-1}}%  % for 4 to 5
-\put(0,0){\setsixringh{#4}{5}{1}{5}{-1}}%   % for 1 to 3
-\put(0,0){\setsixringh{#4}{10}{4}{7}{-1}}%  % for 4 to 5
-\end{picture}\iniatom\iniflag}%      %end of \fiveheteroh macro
-\def\test@vrtx@fivehi#1{%
-\@forsemicol\member:=#1\do{%
-\ifx\member\empty\else
-\expandafter\@m@mb@r\member;\relax%
-\expandafter\twoch@r\@membera{}%
-\ifcase\@tmpa%
- \or \if\@tmpb s\relax\def\ddd{}\else\def\ddd{@}\fi
- \or \if\@tmpb s\relax\def\ccc{}\else\def\ccc{@}\fi
- \or \if\@tmpb s\relax\def\bbb{}\else\def\bbb{@}\fi
- \or \if\@tmpb s\relax\def\fff{}\else\def\fff{@}\fi
- \or \if\@tmpb s\relax\def\eee{}\else\def\eee{@}\fi
- \or \if\@tmpb s\relax\def\aaa{}\else\def\aaa{@}\fi% dummy
-\fi\fi}%
-}% end of \test@vrtx@sixhi
-\def\fiveheterohi{\@ifnextchar({\@five@heterohi(@}{\@five@heterohi(@)}}
-\def\@five@heterohi(#1){\@ifnextchar[{\@five@@heterohi(#1)[@}%
-{\@five@@heterohi(#1)[@]}}
-\def\@five@@heterohi(#1)[#2]#3#4{\@ifnextchar[%
-{\@fiveheterohi(#1)[#2]{#3}{#4}[@}%
-{\@fiveheterohi(#1)[#2]{#3}{#4}[@]}}
-\def\@fiveheterohi(#1)[#2]#3#4[#5]{%
-\iniatom\iniflag%initialize
-\test@vertix@sixv{#3}{a}{b}{c}{e}{f}{d}%d--dummy
-\@reset@ylsw%
-\ylpositionh{#4}{0}{0}{4}{0}%              % for 1 to 3
-\if@ylsw \ifx\@@ylii\empty
-\def\@@ylii{0}\def\@@yli{0}\fi
-\else
-\ylpositionh{#4}{1}{4}{7}{0}%              % for 4 to 5
-\fi
-\if@ylsw \ifx\@@ylii\empty
-\def\@@ylii{0}\def\@@yli{0}\fi
-\fi
-\if@ylsw
- \yl@shiftii=\@ylii
- \yl@shifti=\@yli
- \advance\yl@shiftii\@@ylii
- \advance\yl@shifti\@@yli
- \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 `fiveheterohi' origin: %
-    (\the\noshift,\the\noshift) ---> (\the\shifti,\the\shiftii)}\fi%
-\fi
-{\resetbdsw%
-\@bond@@omit{#5}%
-\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}\iniatom\iniflag}%         %end of \fiveheterohi macro
-\def\pyrroleh{\@ifnextchar[{\@pyrroleh[@}{\@pyrroleh[bd]}}%
-\def\@pyrroleh[#1]#2{%
-\iforigpt \typeout{command `pyrroleh' %
- is based on `fiveheteroh'.}\fi%
-\fiveheteroh[#1]{1==N}{#2}}%
-\def\pyrazoleh{\@ifnextchar[{\@pyrazoleh[@}{\@pyrazoleh[bd]}}%
-\def\@pyrazoleh[#1]#2{%
-\iforigpt \typeout{command `pyrazoleh' %
- is based on `fiveheteroh'.}\fi%
-\fiveheteroh[#1]{1==N;2==N}{#2}}%
-\def\imidazoleh{\@ifnextchar[{\@imidazoleh[@}{\@imidazoleh[bd]}}%
-\def\@imidazoleh[#1]#2{%
-\iforigpt \typeout{command `imidazoleh' %
- is based on `fiveheteroh'.}\fi%
-\fiveheteroh[#1]{1==N;3==N}{#2}}%
-\def\isoxazoleh{\@ifnextchar[{\@isoxazoleh[@}{\@isoxazoleh[bd]}}%
-\def\@isoxazoleh[#1]#2{%
-\iforigpt \typeout{command `isoxazoleh' %
- is based on `fiveheteroh'.}\fi%
-\fiveheteroh[#1]{1==O;2==N}{#2}}%
-\def\oxazoleh{\@ifnextchar[{\@oxazoleh[@}{\@oxazoleh[bd]}}%
-\def\@oxazoleh[#1]#2{%
-\iforigpt \typeout{command `oxazoleh' %
- is based on `fiveheteroh'.}\fi%
-\fiveheteroh[#1]{1==O;3==N}{#2}}%
-\def\furanh{\@ifnextchar[{\@furanh[@}{\@furanh[bd]}}
-\def\@furanh[#1]#2{%
-\iforigpt \typeout{command `furanh' %
-  is based on `fiveheteroh'.}\fi%
-\fiveheteroh[#1]{1==O}{#2}}
-\def\thiopheneh{\@ifnextchar[{\@thiopheneh[@}{\@thiopheneh[bd]}}
-\def\@thiopheneh[#1]#2{%
-\iforigpt \typeout{command `thiopheneh' %
-  is based on `fiveheteroh'.}\fi%
-\fiveheteroh[#1]{1==S}{#2}}
-\def\pyrrolehi{\@ifnextchar[{\@pyrrolehi[@}{\@pyrrolehi[bd]}}%
-\def\@pyrrolehi[#1]#2{%
-\iforigpt \typeout{command `pyrrolehi' %
- is based on `fiveheterohi'.}\fi%
-\fiveheterohi[#1]{1==N}{#2}}%
-\def\pyrazolehi{\@ifnextchar[{\@pyrazolehi[@}{\@pyrazolehi[bd]}}%
-\def\@pyrazolehi[#1]#2{%
-\iforigpt \typeout{command `pyrazolehi' %
- is based on `fiveheterohi'.}\fi%
-\fiveheterohi[#1]{1==N;2==N}{#2}}%
-\def\imidazolehi{\@ifnextchar[{\@imidazolehi[@}{\@imidazolehi[bd]}}%
-\def\@imidazolehi[#1]#2{%
-\iforigpt \typeout{command `imidazolehi' %
- is based on `fiveheterohi'.}\fi%
-\fiveheterohi[#1]{1==N;3==N}{#2}}%
-\def\isoxazolehi{\@ifnextchar[{\@isoxazolehi[@}{\@isoxazolehi[bd]}}%
-\def\@isoxazolehi[#1]#2{%
-\iforigpt \typeout{command `isoxazolehi' %
- is based on `fiveheterohi'.}\fi%
-\fiveheterohi[#1]{1==O;2==N}{#2}}%
-\def\oxazolehi{\@ifnextchar[{\@oxazolehi[@}{\@oxazolehi[bd]}}%
-\def\@oxazolehi[#1]#2{%
-\iforigpt \typeout{command `oxazolehi' %
- is based on `fiveheterohi'.}\fi%
-\fiveheterohi[#1]{1==O;3==N}{#2}}%
-\def\furanhi{\@ifnextchar[{\@furanhi[@}{\@furanhi[bd]}}
-\def\@furanhi[#1]#2{%
-\iforigpt \typeout{command `furanhi' %
-  is based on `fiveheterohi'.}\fi%
-\fiveheterohi[#1]{1==O}{#2}}
-\def\thiophenehi{\@ifnextchar[{\@thiophenehi[@}{\@thiophenehi[bd]}}
-\def\@thiophenehi[#1]#2{%
-\iforigpt \typeout{command `thiophenehi' %
-  is based on `fiveheterohi'.}\fi%
-\fiveheterohi[#1]{1==S}{#2}}
-\def\decaheteroh{\@ifnextchar({\@deca@heteroh(@}{\@deca@heteroh(@)}}
-\def\@deca@heteroh(#1){\@ifnextchar[{\@deca@@heteroh(#1)[@}%
-{\@deca@@heteroh(#1)[@]}}
-\def\@deca@@heteroh(#1)[#2]#3#4{\@ifnextchar[%
-{\@decaheteroh(#1)[#2]{#3}{#4}[@}%
-{\@decaheteroh(#1)[#2]{#3}{#4}[@]}}
-\def\@decaheteroh(#1)[#2]#3#4[#5]{%
-\iniflag\iniatom%
-\test@vertix@sixv{#3}{a}{b}{c}{d}{e}{f}%
-\test@vertix@decav{#3}{g}{h}{i}{j}{@}{@}%
-\@reset@ylsw%
-\ylhetpositionh{#4}{0}{0}{5}{0}% %substituents on 1 to 4
-\if@ylsw \ifx\@@ylii\empty
-\def\@@ylii{0}\def\@@yli{0}\fi
-\else
-{\let\ddd=\eee\let\eee=\fff\let\fff=\ggg
-\ylhetpositionh{#4}{-1}{3}{7}{0}% %substituents on 5 to 7
-}%
-\fi
-\if@ylsw \ifx\@@ylii\empty
-\def\@@ylii{0}\def\@@yli{342}\fi
-\else
-{\let\aaa=\hhh
-\ylhetpositionh{#4}{-7}{0}{2}{0}% %substituent on 8
-}%
-\fi
-\if@ylsw \ifx\@@ylii\empty
-\def\@@ylii{0}\def\@@yli{342}\fi
-\else
-{%
-\clipdetection%
-\@clipfusefalse \if@iclip \@clipfusetrue \fi%
-\ylatombondposition{#4}{-8}{4}%   %9 for 4a position
-}%
-\fi
-\if@ylsw \ifx\@@ylii\empty
-\def\@@ylii{-303}\def\@@yli{171}\fi
-\else
-{%
-\clipdetection%
-\@clipfusefalse \if@jclip \@clipfusetrue \fi%
-\ylatombondposition{#4}{-9}{10}% %10 for 8a position
-}%
-\fi
-\if@ylsw \ifx\@@ylii\empty
-\def\@@ylii{-103}\def\@@yli{171}\fi
-\fi
-\if@ylsw
- \yl@shiftii=\@ylii
- \yl@shifti=\@yli
- \advance\yl@shiftii\@@ylii
- \advance\yl@shifti\@@yli
- \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}(1200,1200)(-400,-800)
-  \iforigpt \put(-\shiftii,-\shiftiii){\circle*{50}}%
-           \put(-\noshift,-\noshift){\circle{50}}%
-   \typeout{command `decaheteroh' origin: %
-    (\the\noshift,\the\noshift) ---> (\the\shiftii,\the\shiftiii)}\fi%
-\fi
-\begingroup
-\resetbdsw%
-\@bond@@omit{#5}%
-{\let\fff=\jjj \let\eee=\iii%
-\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 -> \skbondd etc
-\set@skel@bondh{#1}{k}{e}% bond between 7 and 8 \@kkk -> \skbonde etc
-\set@skel@bondh{#1}{j}{f}% bond between 7 and 8 \@jjj -> \skbondf etc
-}%
-{\let\aaa=\hhh \let\ddd=\eee\let\eee=\fff\let\fff=\ggg%
- \let\ccc=\iii\let\bbb=\jjj%
-\put(0,-342){\set@skel@bondh{#1}{i}{a}}%
-  % bond between 8a and 8 \@iii -> \hskbonda etc
-\put(0,-342){\set@skel@bondh{#1}{e}{c}}%
-  % bond between 4a and 5 \@eee -> \hskbondc etc
-\put(0,-342){\set@skel@bondh{#1}{f}{d}}%
-  % bond between 5 and 6 \@fff -> \hskbondd etc
-\put(0,-342){\set@skel@bondh{#1}{g}{e}}%
-  % bond between 6 and 7 \@ggg -> \hskbonde etc
-\put(0,-342){\set@skel@bondh{#1}{h}{f}}%
-  % bond between 7 and 8 \@hhh -> \hskbondf etc
-}%
-\endgroup
-\@tfor\member:=#2\do{%
-\if\member r\relax%
-{\let\fff=\jjj \let\eee=\iii%
- \put(0,0){\hbonda}% bond between 1 and 2%
- \put(0,0){\hbondc}% bond between 3 and 4%
-}%
-{\let\aaa=\hhh \let\ddd=\eee\let\eee=\fff\let\fff=\ggg%
- \let\ccc=\iii\let\bbb=\jjj%
- \put(0,-342){\hbondb}% bond between 8a and 4a
- \put(0,-342){\hbondf}% bond between 8 and 7
- \put(0,-342){\hbondd}% bond between 5 and 6
-}%
-\else \if\member l\relax%
-\else \if\member a\relax%
- \put(0,0){\hbonda}% bond between 1 and 2
-\else \if\member b\relax%
- \put(0,0){\hbondb}% bond between 2 and 3
-\else \if\member c\relax%
- \put(0,0){\hbondc}% bond between 3 and 4
-\else \if\member d\relax%
-{\let\eee=\iii%
- \put(0,0){\hbondd}% bond between 4 and 4a
-}%
-\else \if\member e\relax%
-{\let\ccc=\iii \let\ddd=\eee%
- \put(0,-342){\hbondc}% bond between 5 and 4a
-}%
-\else \if\member f\relax%
-{\let\ddd=\eee \let\eee=\fff%
- \put(0,-342){\hbondd}% bond between 5 and 6
-}%
-\else \if\member g\relax%
-{\let\eee=\fff \let\fff=\ggg%
- \put(0,-342){\hbonde}% bond between 6 and 7
-}%
-\else \if\member h\relax%
-{\let\aaa=\hhh \let\fff=\ggg%
- \put(0,-342){\hbondf}% bond between 8 and 7
-}%
-\else \if\member i\relax%
-{\let\aaa=\hhh \let\bbb=\jjj%
- \put(0,-342){\hbonda}% bond between 8 and 8a
-}%
-\else \if\member j\relax%
-{\let\fff=\jjj%
- \put(0,0){\hbondf}% bond between 1 and 8a
-}%
-\else \if\member k\relax%
-{\let\ccc=\iii\let\bbb=\jjj%
- \put(0,-342){\hbondb}% bond between 8a and 4a
-}%
-\else \if\member K\relax%
-{\let\eee=\iii\let\fff=\jjj%
- \put(0,0){\hbonde}% bond between 8a and 4a in the other ring
-}%
-\else \if\member A%left aromatic circle
-  \put(203,0){\circle{240}}%                %circle
-\else \if\member B%left aromatic circle
-  \put(203,-342){\circle{240}}%             %circle
-\else
-  \expandafter\twoCH@@R\member//%
-  \def\aax{8a} \def\aay{4a} \def\aaz{10}%
-      \if\@@tmpa 4\relax%
-        \putratom{272}{-18}{\@@tmpb}%       % right type
-      \else\if\@@tmpa 1\relax%
-        \putratom{68}{-18}{\@@tmpb}%        % right type
-      \else\if\@@tmpa 3\relax%
-        \putratom{233}{60}{\@@tmpb}%        % right type
-      \else\if\@@tmpa 2\relax%
-        \putratom{120}{60}{\@@tmpb}%        % right type
-      \else\ifx\@@tmpa\aaz\relax%
-        \putratom{120}{-110}{\@@tmpb}%      % right type
-      \else\ifx\@@tmpa\aax\relax%
-        \putratom{120}{-110}{\@@tmpb}%      % right type
-      \else\ifx\@@tmpa\aay\relax
-        \putratom{233}{-110}{\@@tmpb}%      % right type
-      \else\if\@@tmpa 9\relax%
-        \putratom{233}{-110}{\@@tmpb}%      % right type
-      \else\if\@@tmpa 5\relax%
-        \putratom{272}{-360}{\@@tmpb}%      % right type
-      \else\if\@@tmpa 8\relax%
-        \putratom{68}{-360}{\@@tmpb}%       % right type
-      \else\if\@@tmpa 6\relax%
-        \putratom{233}{-452}{\@@tmpb}%      % right type
-      \else\if\@@tmpa 7\relax%
-        \putratom{120}{-452}{\@@tmpb}%      % right type
-     \fi\fi\fi\fi\fi\fi\fi\fi\fi\fi\fi\fi%
-   \expandafter\twoCH@R\member//%
-   \set@fusion@decah
-\fi\fi\fi\fi\fi\fi\fi\fi\fi\fi%
-\fi\fi\fi\fi\fi\fi}%
-\iniflag
-\put(0,0){\set@hetatom@sixh{#3}{0}{0}{5}{0}%
-   \if@aclip \global\@acliptrue\fi
-   \if@bclip \global\@bcliptrue\fi
-   \if@cclip \global\@ccliptrue\fi
-   \if@clip \global\@cliptrue\fi}% %substituents on 1 to 4
-\put(0,-342){\iniflag%2000/11/11 by Shinsaku Fujita
-   \set@hetatom@sixh{#3}{-1}{3}{7}{0}%
-   \@gclipfalse \if@fclip \global\@gcliptrue \fi%
-   \@fclipfalse \if@eclip \global\@fcliptrue \fi%
-   \@eclipfalse \if@clip \global\@ecliptrue \fi}%substituents on 5 to 7
-\put(0,-342){\iniflag%2000/11/11 by Shinsaku Fujita
-  \set@hetatom@sixh{#3}{-7}{0}{2}{0}%
-  \@hclipfalse \if@aclip \global\@hcliptrue \fi}%%substituent on 8
-\put(0,0){\set@vrtx@fuseh{#3}%
-  \if@iclip \global\@icliptrue \fi
-  \if@jclip \global\@jcliptrue \fi}% fused positions
-\put(0,0){\setsixringh{#4}{0}{0}{5}{0}}% %substituents on 1 to 4
-{\@clipfalse \if@eclip \@cliptrue \fi%   %substituents on 5 to 7
- \@eclipfalse \if@fclip \@ecliptrue \fi%
- \@fclipfalse \if@gclip \@fcliptrue \fi%
-\put(0,-342){\setsixringh{#4}{-1}{3}{7}{0}}%
-}%
-{\@aclipfalse \if@hclip \@acliptrue \fi%   %substituent on 8
-\put(0,-342){\setsixringh{#4}{-7}{0}{2}{0}}%
-}%
-{\@clipfusefalse \if@iclip \@clipfusetrue \fi%
- \put(303,-171){\setatombond{#4}{-8}{4}}   %9 for 4a position
-}%
-{\@clipfusefalse \if@jclip \@clipfusetrue \fi%
-  \put(103,-171){\setatombond{#4}{-9}{10}} %10 for 8a position
-}%
-\end{picture}\iniatom\iniflag}%      %end of \decaheteroh macro
-\def\ylhetpositionh#1#2#3#4#5{%
-\@@ylswfalse%%%\@reset@ylsw
-\@forsemicol\member:=#1\do{%
-\if@@ylsw\else
-\ifx\member\empty\else
-\expandafter\@m@mb@r\member;\relax
-\expandafter\threech@r\@membera{}{}\relax
-\ifx\@memberb\@yl\relax\@@ylswtrue\else\@@ylswfalse\fi
-\if@@ylsw
-\ifnum#5<0\relax%
-\@tmpaa=-\@tmpa\relax \advance\@tmpaa by#2\relax%
-\else\@tmpaa=\@tmpa\relax \advance\@tmpaa by#2\relax\fi
-\ifnum\@tmpaa>#3\relax%
-\ifnum\@tmpaa<#4\relax%
-\ifcase\@tmpaa%0 omit
- \or
-  \ifx\aaa\empty
-      \gdef\@ylii{0}\gdef\@yli{0}\global\@ylswtrue%\@ylatrue% subst. on 1
-  \else
-      \gdef\@ylii{30}\gdef\@yli{0}\global\@ylswtrue%\@ylatrue% subst. on 1
-  \fi
- \or
-  \ifx\bbb\empty
-      \gdef\@ylii{-103}\gdef\@yli{-171}\global\@ylswtrue%\@ylbtrue% subst. on 2
-  \else
-      \gdef\@ylii{-73}\gdef\@yli{-223}\global\@ylswtrue%\@ylbtrue% subst. on 2
-  \fi
- \or
-  \ifx\ccc\empty
-      \gdef\@ylii{-303}\gdef\@yli{-171}\global\@ylswtrue%\@ylctrue% subst. on 3
-  \else
-      \gdef\@ylii{-333}\gdef\@yli{-223}\global\@ylswtrue%\@ylctrue% subst. on 3
-  \fi
- \or
-  \ifx\ddd\empty
-      \gdef\@ylii{-406}\gdef\@yli{0}\global\@ylswtrue%\@yldtrue% subst. on 4
-   \else
-      \gdef\@ylii{-436}\gdef\@yli{0}\global\@ylswtrue%\@yldtrue% subst. on 4
-   \fi
- \or
-    \ifx\eee\empty
-     \gdef\@ylii{-303}\gdef\@yli{171}\global\@ylswtrue%\@yletrue% subst. on 5
-    \else
-     \gdef\@ylii{-333}\gdef\@yli{223}\global\@ylswtrue%\@yletrue% subst. on 5
-    \fi
- \or
-   \ifx\fff\empty
-      \gdef\@ylii{-103}\gdef\@yli{171}\global\@ylswtrue%\@ylftrue% subst. on 6
-     \else
-      \gdef\@ylii{-73}\gdef\@yli{223}\global\@ylswtrue%\@ylftrue% subst. on 6
-     \fi
-\fi%end of ifcase
-\fi\fi\fi\fi\fi}}%
-\def\decaheterohi{\@ifnextchar({\@deca@heterohi(@}{\@deca@heterohi(@)}}
-\def\@deca@heterohi(#1){\@ifnextchar[{\@deca@@heterohi(#1)[@}%
-{\@deca@@heterohi(#1)[@]}}
-\def\@deca@@heterohi(#1)[#2]#3#4{\@ifnextchar[%
-{\@decaheterohi(#1)[#2]{#3}{#4}[@}%
-{\@decaheterohi(#1)[#2]{#3}{#4}[@]}}
-\def\@decaheterohi(#1)[#2]#3#4[#5]{%
-\iniflag\iniatom%
-\test@vertix@decavi{#3}%
-\@reset@ylsw%
-\ylhetpositionh{#4}{5}{0}{5}{-1}% %substituents on 1 to 4
-\if@ylsw \ifx\@@ylii\empty
-\def\@@ylii{0}\def\@@yli{0}\fi
-\else
-{\let\ddd=\eee\let\eee=\fff\let\fff=\ggg
-\ylhetpositionh{#4}{12}{3}{7}{-1}% %substituents on 6 to 8
-}%
-\fi
-\if@ylsw \ifx\@@ylii\empty
-\def\@@ylii{0}\def\@@yli{342}\fi
-\else
-{\let\aaa=\hhh
-\ylhetpositionh{#4}{-4}{0}{2}{0}% %substituent on 5
-}%
-\fi
-\if@ylsw \ifx\@@ylii\empty
-\def\@@ylii{0}\def\@@yli{342}\fi
-\else
-{%
-\clipdetection%
-\@clipfusefalse \if@iclip \@clipfusetrue \fi%
-\ylatombondposition{#4}{-9}{4}%   %10 for 8a position
-}%
-\fi
-\if@ylsw \ifx\@@ylii\empty
-\def\@@ylii{-303}\def\@@yli{171}\fi
-\else
-{%
-\clipdetection%
-\@clipfusefalse \if@jclip \@clipfusetrue \fi%
-\ylatombondposition{#4}{-8}{10}% %9 for 4a position
-}%
-\fi
-\if@ylsw \ifx\@@ylii\empty
-\def\@@ylii{-103}\def\@@yli{171}\fi
-\fi
-\if@ylsw
- \yl@shiftii=\@ylii
- \yl@shifti=\@yli
- \advance\yl@shiftii\@@ylii
- \advance\yl@shifti\@@yli
- \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}(1200,1200)(-400,-800)%
-  \iforigpt \put(-\shiftii,-\shiftiii){\circle*{50}}%
-           \put(-\noshift,-\noshift){\circle{50}}%
-   \typeout{command `decaheterohi' origin: %
-    (\the\noshift,\the\noshift) ---> (\the\shiftii,\the\shiftiii)}\fi%
-\fi
-\begingroup
-\resetbdsw%
-\@bond@@omit{#5}%
-{\let\fff=\jjj \let\eee=\iii%
-\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 4a \@ddd -> \hskbondf etc
-\set@skel@bondh{#1}{k}{e}% bond between 4a and 8a \@kkk -> \hskbonde etc
-\set@skel@bondh{#1}{j}{d}% bond between 8a and 1 \@jjj -> \hskbondd etc
-}%
-{\let\aaa=\hhh \let\ddd=\eee\let\eee=\fff\let\fff=\ggg%
- \let\ccc=\iii\let\bbb=\jjj%
-\put(0,-342){\set@skel@bondh{#1}{e}{a}}%
-  % bond between 4a and 5 \@eee -> \hskbonda etc
-\put(0,-342){\set@skel@bondh{#1}{i}{c}}%
-  % bond between 8a and 8 \@iii -> \hskbondc etc
-\put(0,-342){\set@skel@bondh{#1}{h}{d}}%
-  % bond between 7 and 8 \@hhh -> \hskbondd etc
-\put(0,-342){\set@skel@bondh{#1}{g}{e}}%
-  % bond between 6 and 7 \@ggg -> \hskbonde etc
-\put(0,-342){\set@skel@bondh{#1}{f}{f}}%
-  % bond between 5 and 6 \@fff -> \hskbondf etc
-}%
-\endgroup
-\@tfor\member:=#2\do{%
-\if\member r\relax%
-{\let\fff=\jjj \let\eee=\iii%
- \put(0,0){\hbonda}% bond between 1 and 2
- \put(0,0){\hbondc}% bond between 3 and 4
-}%
-{\let\aaa=\hhh \let\ddd=\eee\let\eee=\fff\let\fff=\ggg%
- \let\ccc=\iii\let\bbb=\jjj%
- \put(0,-342){\hbondb}% bond between 8a and 4a
- \put(0,-342){\hbondf}% bond between 8 and 7
- \put(0,-342){\hbondd}% bond between 5 and 6
-}%
-\else \if\member l\relax%
-\else \if\member a\relax%
- \put(0,0){\hbondc}% bond between 3 and 4
-\else \if\member b\relax
- \put(0,0){\hbondb}% bond between 2 and 3
-\else \if\member c\relax
- \put(0,0){\hbonda}% bond between 1 and 2
-\else \if\member d\relax%
-{\let\fff=\jjj%
- \put(0,0){\hbondf}% bond between 1 and 8a
-}%
-\else \if\member e\relax%
-{\let\aaa=\hhh \let\bbb=\jjj%
- \put(0,-342){\hbonda}% bond between 8 and 8a
-}%
-\else \if\member f\relax%
-{\let\aaa=\hhh \let\fff=\ggg%
- \put(0,-342){\hbondf}% bond between 8 and 7
-}%
-\else \if\member g\relax%
-{\let\eee=\fff \let\fff=\ggg%
- \put(0,-342){\hbonde}% bond between 6 and 7
-}%
-\else \if\member h\relax%
-{\let\ddd=\eee \let\eee=\fff%
- \put(0,-342){\hbondd}% bond between 5 and 6
-}%
-\else \if\member i\relax%
-{\let\ccc=\iii \let\ddd=\eee%
- \put(0,-342){\hbondc}% bond between 5 and 4a
-}%
-\else \if\member j\relax%
-{\let\eee=\iii%
- \put(0,0){\hbondd}% bond between 4 and 4a
-}%
-\else \if\member k\relax%
-{\let\ccc=\iii\let\bbb=\jjj%
- \put(0,-342){\hbondb}% bond between 8a and 4a
-}%
-\else \if\member K\relax%
-{\let\eee=\iii\let\fff=\jjj%
- \put(0,0){\hbonde}% bond between 8a and 4a
-}%
-\else \if\member A%left aromatic circle
-  \put(203,0){\circle{240}}%                %circle
-\else \if\member B%left aromatic circle
-  \put(203,-342){\circle{240}}%             %circle
-\else \expandafter\twoCH@@R\member//%
-  \def\aax{8a}\def\aay{4a}\def\aaz{10}%
-      \if\@@tmpa 4\relax%
-        \putratom{68}{-18}{\@@tmpb}%        % right type
-      \else\if\@@tmpa 1\relax%
-        \putratom{272}{-18}{\@@tmpb}%       % right type
-      \else\if\@@tmpa 3\relax%
-        \putratom{120}{60}{\@@tmpb}%        % right type
-      \else\if\@@tmpa 2\relax%
-        \putratom{233}{60}{\@@tmpb}%        % right type
-      \else\ifx\@@tmpa\aaz\relax%
-        \putratom{233}{-110}{\@@tmpb}%      % right type
-      \else\ifx\@@tmpa\aax\relax%
-        \putratom{233}{-110}{\@@tmpb}%      % right type
-      \else\ifx\@@tmpa\aay\relax%
-        \putratom{120}{-110}{\@@tmpb}%      % right type
-      \else\if\@@tmpa 9\relax%
-        \putratom{120}{-110}{\@@tmpb}%      % right type
-      \else\if\@@tmpa 5\relax%
-        \putratom{68}{-360}{\@@tmpb}%       % right type
-      \else\if\@@tmpa 8\relax%
-        \putratom{272}{-360}{\@@tmpb}%      % right type
-      \else\if\@@tmpa 6\relax%
-        \putratom{120}{-452}{\@@tmpb}%      % right type
-      \else\if\@@tmpa 7\relax%
-        \putratom{233}{-452}{\@@tmpb}%      % right type
-     \fi\fi\fi\fi\fi\fi\fi\fi\fi\fi\fi\fi%
-   \expandafter\twoCH@R\member//%
-   \set@fusion@decahi
-\fi\fi\fi\fi\fi\fi\fi\fi\fi\fi%
-\fi\fi\fi\fi\fi\fi}%
-\iniflag
-\@tmpclipfalse
-\put(0,0){\set@hetatom@sixh{#3}{5}{0}{5}{-1}%
-   \if@aclip \global\@acliptrue\fi
-   \if@bclip \global\@bcliptrue\fi
-   \if@cclip \global\@ccliptrue\fi
-   \if@clip \global\@cliptrue\fi
-}% %substituents on 1 to 4
-\put(0,-342){\iniflag%2000/11/11 by Shinsaku Fujita
- \set@hetatom@sixh{#3}{12}{3}{7}{-1}%
- \@gclipfalse \if@fclip \global\@gcliptrue \fi%
- \@fclipfalse \if@eclip \global\@fcliptrue \fi%
- \@eclipfalse \if@clip \global\@ecliptrue \fi%
-}%substituents on 6 to 8
-\put(0,-342){\set@hetatom@sixh{#3}{-4}{0}{2}{0}%
- \@aclipfalse \if@aclip \global\@hcliptrue \fi%
-}%%substituent on 5
-\put(0,0){\set@vrtx@decafusehi{#3}%
-  \@tmpclipfalse
-  \if@iclip \global\@tmpcliptrue \fi
-  \if@jclip \global\@icliptrue \fi
-  \if@tmpclip \global\@jcliptrue \fi
-}% fused positions
-\put(0,0){\setsixringh{#4}{5}{0}{5}{-1}}% %substituents on 1 to 4
-{\@clipfalse \if@eclip \@cliptrue \fi%    %substituents on 6 to 8
- \@eclipfalse \if@fclip \@ecliptrue \fi%
- \@fclipfalse \if@gclip \@fcliptrue \fi%
-\put(0,-342){\setsixringh{#4}{12}{3}{7}{-1}}%
-}%
-{\@aclipfalse \if@hclip \@acliptrue \fi%    %substituent on 5
-\put(0,-342){\setsixringh{#4}{-4}{0}{2}{0}}%
-}%
-{\@clipfusefalse \if@iclip \@clipfusetrue \fi%
- \put(303,-171){\setatombond{#4}{-9}{4}}%   %10 for 8a position
-}%
-{\@clipfusefalse \if@jclip \@clipfusetrue \fi
-  \put(103,-171){\setatombond{#4}{-8}{10}}% %9 for 4a position
-}%
-\end{picture}\iniatom\iniflag}%      %end of \decaheterohi macro
-\def\set@vrtx@decafusehi#1{%
-\@forsemicol\member:=#1\do{%
-\ifx\member\empty\else
-\expandafter\@m@mb@r\member;\relax%
-\expandafter\twoch@r\@membera{}%
-\ifcase\@tmpa\or\or\or
- \or%%%%4
-   \if\@tmpb a%
-     \global\@icliptrue%
-     \putlatom{135}{-211}{\@memberb}%             % left type
-   \else\if\@tmpb h%
-      \XyMTeXWarning{Forbidden fused position `4a' or `9'}%
-   \else\if\@tmpb s%
-      \XyMTeXWarning{Forbidden fused position `4a' or `9'}%
-   \else\ifx\@tmpb\empty\relax
-   \else
-      \XyMTeXWarning{Forbidden fused position `4a' or `9'}%
-   \fi\fi\fi\fi
- \or\or\or
- \or%8
-   \if\@tmpb a%
-     \global\@jcliptrue%
-     \putratom{273}{-211}{\@memberb}%             % right type
-   \else\if\@tmpb h%
-      \XyMTeXWarning{Forbidden fused position `8a' or `10'}%
-   \else\if\@tmpb s%
-      \XyMTeXWarning{Forbidden fused position `8a' or `10'}%
-   \else\ifx\@tmpb\empty\relax
-   \else
-      \XyMTeXWarning{Forbidden fused position `8a' or `10'}%
-   \fi\fi\fi\fi
-\or%9 (= 4a)
-   \ifx\@tmpb\empty%
-     \global\@icliptrue%
-     \putlatom{135}{-211}{\@memberb}%             % left type
-   \else
-      \XyMTeXWarning{Forbidden fused position `4a' or `9'}%
-   \fi
-\or%10 (= 8a)
-   \ifx\@tmpb\empty%
-     \global\@jcliptrue%
-     \putratom{273}{-211}{\@memberb}%             % right type
-   \else
-      \XyMTeXWarning{Forbidden fused position `8a' or `10'}%
-   \fi
-\fi\fi}%
-}% end of the macro \set@vrtx@decafusehi
-\def\set@fusion@decahi{%
-  \let\@@tmpa=\@tmpa
-  \let\@@tmpb=\@tmpb
-  \if\@tmpa a%
-      \let\@@tmpa=\@tmpa
-      \put(0,0){\set@fusionadd@sixhi}%
-  \else\if\@tmpa A%
-      \let\@@tmpa=\@tmpa
-      \put(0,0){\set@fusionadd@sixhi}%
-  \else\if\@tmpa b%
-      \let\@@tmpa=\@tmpa
-      \put(0,0){\set@fusionadd@sixhi}%
-  \else\if\@tmpa B%
-      \let\@@tmpa=\@tmpa
-      \put(0,0){\set@fusionadd@sixhi}%
-  \else\if\@tmpa c%
-      \let\@@tmpa=\@tmpa
-      \put(0,0){\set@fusionadd@sixhi}%
-  \else\if\@tmpa C%
-      \let\@@tmpa=\@tmpa
-      \put(0,0){\set@fusionadd@sixhi}%
-  \else\if\@tmpa d%
-      \let\@@tmpa=\@tmpa
-      \put(0,0){\set@fusionadd@sixhi}%
-      \if@smallringsw\else
-       \XyMTeXWarning{Unfavorable Fusion for bond `d'}%
-      \fi
-  \else\if\@tmpa D%
-      \let\@@tmpa=\@tmpa
-      \put(0,0){\set@fusionadd@sixhi}%
-      \if@smallringsw\else
-       \XyMTeXWarning{Unfavorable Fusion for bond `D'}%
-      \fi
-  \else\if\@tmpa e%
-      \edef\@@tmpa{c}%
-      \put(0,-342){\set@fusionadd@sixhi}%
-      \if@smallringsw\else
-       \XyMTeXWarning{Unfavorable Fusion for bond `e'}%
-      \fi
-  \else\if\@tmpa E%
-      \edef\@@tmpa{C}%
-      \put(0,-342){\set@fusionadd@sixhi}%
-      \if@smallringsw\else
-       \XyMTeXWarning{Unfavorable Fusion for bond `E'}%
-      \fi
-  \else\if\@tmpa f%
-      \edef\@@tmpa{d}%
-      \put(0,-342){\set@fusionadd@sixhi}%
-  \else\if\@tmpa F%
-      \edef\@@tmpa{D}%
-      \put(0,-342){\set@fusionadd@sixhi}%
-  \else\if\@tmpa g%
-      \edef\@@tmpa{e}%
-      \put(0,-342){\set@fusionadd@sixhi}%
-  \else\if\@tmpa G%
-      \edef\@@tmpa{E}%
-      \put(0,-342){\set@fusionadd@sixhi}%
-  \else\if\@tmpa h%
-      \edef\@@tmpa{f}%
-      \put(0,-342){\set@fusionadd@sixhi}%
-  \else\if\@tmpa H%
-      \edef\@@tmpa{F}%
-      \put(0,-342){\set@fusionadd@sixhi}%
-  \else\if\@tmpa i%
-      \edef\@@tmpa{a}%
-      \put(0,-342){\set@fusionadd@sixhi}%
-      \if@smallringsw\else
-       \XyMTeXWarning{Unfavorable Fusion for bond `i'}%
-      \fi
-  \else\if\@tmpa I%
-      \edef\@@tmpa{A}%
-      \put(0,-342){\set@fusionadd@sixhi}%
-      \if@smallringsw\else
-       \XyMTeXWarning{Unfavorable Fusion for bond `I'}%
-      \fi
-  \else\if\@tmpa j%
-      \edef\@@tmpa{f}%
-      \put(0,0){\set@fusionadd@sixhi}%
-      \if@smallringsw\else
-       \XyMTeXWarning{Unfavorable Fusion for bond `j'}%
-      \fi
-  \else\if\@tmpa J%
-      \edef\@@tmpa{F}%
-      \put(0,0){\set@fusionadd@sixhi}%
-      \if@smallringsw\else
-       \XyMTeXWarning{Unfavorable Fusion for bond `J'}%
-      \fi
-  \else\if\@tmpa k%
-      \edef\@@tmpa{e}%
-      \put(0,0){\set@fusionadd@sixhi}%
-      \if@smallringsw\else
-       \XyMTeXWarning{Forbidden Fusion for bond `k'}%
-      \fi
-  \else\if\@tmpa K%
-      \edef\@@tmpa{E}%
-      \put(0,0){\set@fusionadd@sixhi}%
-      \if@smallringsw\else
-       \XyMTeXWarning{Forbidden Fusion for bond `K'}%
-      \fi
-  \fi\fi\fi\fi\fi\fi\fi\fi\fi\fi\fi\fi%
-  \fi\fi\fi\fi\fi\fi\fi\fi\fi\fi%
-}% end of the macro \set@fusion@decahi
-\def\quinolineh{%
- \@ifnextchar[{\@quinolineh[@}{\@quinolineh[acfhk]}}%
-\def\@quinolineh[#1]#2{%
-\iforigpt \typeout{command `quinolineh' %
- is based on `decaheteroh'.}\fi%
-\decaheteroh[#1]{1==N}{#2}}%
-\def\quinolinehi{%
- \@ifnextchar[{\@quinolinehi[@}{\@quinolinehi[acfhk]}}%
-\def\@quinolinehi[#1]#2{%
-\iforigpt \typeout{command `quinolinehi' %
- is based on `decaheterohi'.}\fi%
-\decaheterohi[#1]{1==N}{#2}}%
-\def\isoquinolineh{%
- \@ifnextchar[{\@isoquinolineh[@}{\@isoquinolineh[acfhk]}}%
-\def\@isoquinolineh[#1]#2{%
-\iforigpt \typeout{command `isoquinolineh' %
- is based on `decaheteroh'.}\fi%
-\decaheteroh[#1]{2==N}{#2}}%
-\def\isoquinolinehi{%
- \@ifnextchar[{\@isoquinolinehi[@}{\@isoquinolinehi[acfhk]}}%
-\def\@isoquinolinehi[#1]#2{%
-\iforigpt \typeout{command `isoquinolinehi' %
- is based on `decaheterohi'.}\fi%
-\decaheterohi[#1]{2==N}{#2}}%
-\def\quinoxalineh{%
- \@ifnextchar[{\@quinoxalineh[@}{\@quinoxalineh[acfhk]}}%
-\def\@quinoxalineh[#1]#2{%
-\iforigpt \typeout{command `quinoxalineh' %
- is based on `decaheteroh'.}\fi%
-\decaheteroh[#1]{1==N;4==N}{#2}}%
-\def\quinazolineh{%
- \@ifnextchar[{\@quinazolineh[@}{\@quinazolineh[acfhk]}}%
-\def\@quinazolineh[#1]#2{%
-\iforigpt \typeout{command `quinazolineh' %
- is based on `decaheteroh'.}\fi%
-\decaheteroh[#1]{1==N;3==N}{#2}}%
-\def\quinazolinehi{%
- \@ifnextchar[{\@quinazolinehi[@}{\@quinazolinehi[acfhk]}}%
-\def\@quinazolinehi[#1]#2{%
-\iforigpt \typeout{command `quinazolinehi' %
- is based on `decaheterohi'.}\fi%
-\decaheterohi[#1]{1==N;3==N}{#2}}%
-\def\cinnolineh{%
- \@ifnextchar[{\@cinnolineh[@}{\@cinnolineh[acfhk]}}%
-\def\@cinnolineh[#1]#2{%
-\iforigpt \typeout{command `cinnolineh' %
- is based on `decaheteroh'.}\fi%
-\decaheteroh[#1]{1==N;2==N}{#2}}%
-\def\cinnolinehi{%
- \@ifnextchar[{\@cinnolinehi[@}{\@cinnolinehi[acfhk]}}%
-\def\@cinnolinehi[#1]#2{%
-\iforigpt \typeout{command `cinnolinehi' %
- is based on `decaheterohi'.}\fi%
-\decaheterohi[#1]{1==N;2==N}{#2}}%
-\def\pteridineh{%
- \@ifnextchar[{\@pteridineh[@}{\@pteridineh[acfhk]}}%
-\def\@pteridineh[#1]#2{%
-\iforigpt \typeout{command `pteridineh' %
- is based on `decaheteroh'.}\fi%
-\decaheteroh[#1]{1==N;3==N;5==N;8==N}{#2}}%
-\def\pteridinehi{%
- \@ifnextchar[{\@pteridinehi[@}{\@pteridinehi[acfhk]}}%
-\def\@pteridinehi[#1]#2{%
-\iforigpt \typeout{command `pteridinehi' %
-  is based on `decaheterohi'.}\fi%
-\decaheterohi[#1]{1==N;3==N;5==N;8==N}{#2}}%
-\def\nonaheteroh{\@ifnextchar({\@nona@heteroh(@}{\@nona@heteroh(@)}}
-\def\@nona@heteroh(#1){\@ifnextchar[{\@nona@@heteroh(#1)[@}%
-{\@nona@@heteroh(#1)[@]}}
-\def\@nona@@heteroh(#1)[#2]#3#4{\@ifnextchar[%
-{\@nonaheteroh(#1)[#2]{#3}{#4}[@}%
-{\@nonaheteroh(#1)[#2]{#3}{#4}[@]}}
-\def\@nonaheteroh(#1)[#2]#3#4[#5]{%
-\iniflag\iniatom%
-\test@vertix@nonav{#3}%
-\@reset@ylsw%
-\ylpositionh{#4}{5}{1}{5}{-1}%  %substituents on 1 to 3
-\if@ylsw \ifx\@@ylii\empty
-\def\@@ylii{0}\def\@@yli{0}\fi
-\else
-{\let\ddd=\eee\let\eee=\fff\let\fff=\ggg
-\ylpositionh{#4}{11}{3}{7}{-1}% %substituents on 5 to 7
-}%
-\fi
-\if@ylsw \ifx\@@ylii\empty
-\def\@@ylii{0}\def\@@yli{342}\fi
-\else
-{\let\aaa=\hhh
-\ylpositionh{#4}{-3}{0}{2}{0}%%substituent on 4
-}%
-\fi
-\if@ylsw \ifx\@@ylii\empty
-\def\@@ylii{0}\def\@@yli{342}\fi
-\else
-{%
-\clipdetection%
-\@clipfusefalse \if@iclip \@clipfusetrue \fi%
-\ylatombondposition{#4}{-8}{4}%   %9 for 7a position
-}%
-\fi
-\if@ylsw \ifx\@@ylii\empty
-\def\@@ylii{-303}\def\@@yli{171}\fi
-\else
-{%
-\clipdetection%
-\@clipfusefalse \if@jclip \@clipfusetrue \fi%
-\ylatombondposition{#4}{-7}{10}% %8 for 3a position
-}%
-\fi
-\if@ylsw \ifx\@@ylii\empty
-\def\@@ylii{-103}\def\@@yli{171}\fi
-\fi
-\if@ylsw
- \yl@shiftii=\@ylii
- \yl@shifti=\@yli
- \advance\yl@shiftii\@@ylii
- \advance\yl@shifti\@@yli
- \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}(1200,1200)(-400,-800)%
-  \iforigpt \put(-\shiftii,-\shiftiii){\circle*{50}}%
-           \put(-\noshift,-\noshift){\circle{50}}%
-   \typeout{command `nonahetero' origin: %
-    (\the\noshift,\the\noshift) ---> (\the\shiftii,\the\shiftiii)}\fi%
-\fi
-\begingroup
-\resetbdsw%
-\@bond@@omit{#5}%
-{\let\fff=\jjj \let\eee=\iii%
-\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@longbond{#1}{c}{hskbondvert}%
-      % bond between 3 and 3a \@ccc -> \hskbondhoriz etc
-\set@skel@bondh{#1}{j}{e}% bond between 3a and 7a \@jjj -> \hskbonde etc
-\set@skel@bondh{#1}{i}{d}% bond between 7a and 1 \@iii -> \hskbondd etc
-}%
-{\let\aaa=\hhh \let\ddd=\eee\let\eee=\fff\let\fff=\ggg
- \let\ccc=\iii\let\bbb=\jjj%
-\put(0,-342){\set@skel@bondh{#1}{d}{a}}%
-  % bond between 3a and 4 \@ddd -> \hskbonda etc
-\put(0,-342){\set@skel@bondh{#1}{h}{c}}%
-  % bond between 7a and 7 \@hhh -> \hskbondc etc
-\put(0,-342){\set@skel@bondh{#1}{g}{d}}%
-  % bond between 6 and 7 \@ggg -> \hskbondd etc
-\put(0,-342){\set@skel@bondh{#1}{f}{e}}%
-  % bond between 5 and 6 \@fff -> \hskbonde etc
-\put(0,-342){\set@skel@bondh{#1}{e}{f}}%
-  % bond between 4 and 5 \@eee -> \hskbondf etc
-}%
-\endgroup
-\@tfor\member:=#2\do{%
-\if\member r\relax%
-{\let\aaa=\hhh \let\ddd=\eee\let\eee=\fff\let\fff=\ggg%
- \let\ccc=\iii\let\bbb=\jjj%
- \put(0,-342){\hbondb}% bond between 3a and 7a
- \put(0,-342){\hbondf}% bond between 4 and 5
- \put(0,-342){\hbondd}% bond between 6 and 7
-}%
-\else \if\member l\relax%
-\else \if\member a\relax%
- \put(0,0){\hbondc}% bond between 3 and 4
-\else \if\member b\relax%
- \put(0,0){\hbondb}% bond between 2 and 3
-\else \if\member c\relax%
- \put(0,0){\hbondvert}% bond between 3 and 3a
-\else \if\member d\relax%
-{\let\aaa=\hhh \let\bbb=\jjj%
- \put(0,-342){\hbonda}% bond between 4 and 3a
-}%
-\else \if\member e\relax%
-{\let\aaa=\hhh \let\fff=\ggg%
- \put(0,-342){\hbondf}% bond between 4 and 5
-}%
-\else \if\member f\relax%
-{\let\eee=\fff \let\fff=\ggg%
- \put(0,-342){\hbonde}% bond between 5 and 6
-}%
-\else \if\member g\relax%
-{\let\ddd=\eee \let\eee=\fff%
- \put(0,-342){\hbondd}% bond between 6 and 7
-}%
-\else \if\member h\relax%
-{\let\ccc=\iii \let\ddd=\eee%
- \put(0,-342){\hbondc}% bond between 7 and 7a
-}%
-\else \if\member i\relax%
-{\let\eee=\iii%
- \put(0,0){\hbondd}% bond between 1 and 7a
-}%
-\else \if\member j\relax%
-{\let\ccc=\iii\let\bbb=\jjj%
- \put(0,-342){\hbondb}% bond between 7a and 3a
-}%
-\else \if\member J\relax%
-{\let\eee=\iii\let\fff=\jjj%
- \put(0,0){\hbonde}% bond between 7a and 3a
-}%
-\else \if\member B%left aromatic circle
-  \put(233,0){\circle{180}}%               %circle (five-membered)
-\else \if\member A%left aromatic circle
-  \put(203,-342){\circle{240}}%            %circle (six-membered)
-\else
-  \expandafter\twoCH@@R\member//%
-  \def\aax{3a} \def\aay{7a}%
-      \if\@@tmpa 1\relax%
-        \putratom{272}{-18}{\@@tmpb}%      % right type
-      \else\if\@@tmpa 2\relax%
-        \putratom{233}{60}{\@@tmpb}%       % right type
-      \else\if\@@tmpa 3\relax%
-        \putratom{120}{60}{\@@tmpb}%       % right type
-      \else\if\@@tmpa 4\relax%
-        \putratom{68}{-360}{\@@tmpb}%      % right type
-      \else\if\@@tmpa 5\relax%
-        \putratom{120}{-452}{\@@tmpb}%     % right type
-      \else\if\@@tmpa 6\relax%
-        \putratom{233}{-452}{\@@tmpb}%     % right type
-      \else\if\@@tmpa 7\relax%
-        \putratom{272}{-360}{\@@tmpb}%     % right type
-      \else\if\@@tmpa 8\relax%
-        \putratom{120}{-110}{\@@tmpb}%     % right type
-      \else\ifx\@@tmpa\aax\relax%
-        \putratom{120}{-110}{\@@tmpb}%     % right type
-      \else\ifx\@@tmpa\aay\relax%
-        \putratom{233}{-110}{\@@tmpb}%     % right type
-      \else\if\@@tmpa 9\relax%
-        \putratom{233}{-110}{\@@tmpb}%     % right type
-      \else\if\@@tmpa 0\relax%
-        \putratom{196}{-30}{\@@tmpb}%      % right type
-      \fi\fi\fi\fi\fi\fi\fi\fi\fi\fi\fi\fi%
-   \expandafter\twoCH@R\member//%
-   \set@fusion@nonah
-\fi\fi\fi\fi\fi\fi\fi\fi\fi%
-\fi\fi\fi\fi\fi\fi}%
-\iniflag
-\@tmpclipfalse
-\put(0,0){\set@hetatom@sixh{#3}{5}{1}{5}{-1}%
-   \if@aclip \global\@acliptrue\fi
-   \if@bclip \global\@bcliptrue\fi
-   \if@cclip \global\@ccliptrue\fi
-}% %substituents on 1 to 3
-\put(0,-342){\set@hetatom@sixh{#3}{11}{3}{7}{-1}%
- \@gclipfalse \if@fclip \global\@gcliptrue \fi%
- \@fclipfalse \if@eclip \global\@fcliptrue \fi%
- \@eclipfalse \if@clip \global\@ecliptrue \fi%
-}%substituents on 5 to 7
-\put(0,-342){\set@hetatom@sixh{#3}{-3}{0}{2}{0}%
- \@aclipfalse \if@aclip \global\@hcliptrue \fi%
-}%%substituent on 4
-\put(0,0){\set@vrtx@nonafuseh{#3}%
-  \@tmpclipfalse
-  \if@iclip \global\@tmpcliptrue \fi
-  \if@jclip \global\@icliptrue \fi
-  \if@tmpclip \global\@jcliptrue \fi
-}% fused positions
-\put(0,0){\setsixringh{#4}{5}{1}{5}{-1}}%  %substituents on 1 to 3
-{\@clipfalse \if@eclip \@cliptrue \fi%     %substituents on 5 to 7
- \@eclipfalse \if@fclip \@ecliptrue \fi%
- \@fclipfalse \if@gclip \@fcliptrue \fi%
-\put(0,-342){\setsixringh{#4}{11}{3}{7}{-1}}%
-}%
-{\@aclipfalse \if@hclip \@acliptrue \fi%   %substituent on 4
-\put(0,-342){\setsixringh{#4}{-3}{0}{2}{0}}%
-}%
-{\@clipfusefalse \if@iclip \@clipfusetrue \fi%
- \put(303,-171){\setatombond{#4}{-8}{4}}%   %9 for 7a position
-}%
-{\@clipfusefalse \if@jclip \@clipfusetrue \fi%
-  \put(103,-171){\setatombond{#4}{-7}{10}}% %8 for 3a position
-}%
-\end{picture}\iniatom\iniflag}%        %end of \nonaheteroh macro
-\def\set@vrtx@nonafuseh#1{%
-\@forsemicol\member:=#1\do{%
-\ifx\member\empty\else
-\expandafter\@m@mb@r\member;\relax%
-\expandafter\twoch@r\@membera{}%
-\ifcase\@tmpa\or\or
- \or%%%%3
-   \if\@tmpb a%
-     \global\@icliptrue%
-     \putlatom{135}{-211}{\@memberb}%             % left type
-   \else\if\@tmpb h%
-      \XyMTeXWarning{Forbidden fused position `3a' or `8'}%
-   \else\if\@tmpb s%
-      \XyMTeXWarning{Forbidden fused position `3a' or `8'}%
-   \else\ifx\@tmpb\empty\relax
-   \else
-      \XyMTeXWarning{Forbidden fused position `3a' or `8'}%
-   \fi\fi\fi\fi
- \or\or\or
- \or%7
-   \if\@tmpb a%
-     \global\@jcliptrue%
-     \putratom{273}{-211}{\@memberb}%             % right type
-   \else\if\@tmpb h%
-      \XyMTeXWarning{Forbidden fused position `7a' or `9'}%
-   \else\if\@tmpb s%
-      \XyMTeXWarning{Forbidden fused position `7a' or `9'}%
-   \else\ifx\@tmpb\empty\relax
-   \else
-      \XyMTeXWarning{Forbidden fused position `7a' or `9'}%
-   \fi\fi\fi\fi
-\or%8 (= 3a)
-   \ifx\@tmpb\empty%
-     \global\@icliptrue%
-     \putlatom{135}{-211}{\@memberb}%             % left type
-   \else
-      \XyMTeXWarning{Forbidden fused position `3a' or `8'}%
-   \fi
-\or%9 (= 7a)
-   \ifx\@tmpb\empty%
-     \global\@jcliptrue%
-     \putratom{273}{-211}{\@memberb}%             % right type
-   \else
-      \XyMTeXWarning{Forbidden fused position `7a' or `9'}%
-   \fi
-\fi\fi}%
-}% end of the macro \set@vrtx@nonafuseh
-\def\nonaheterohi{\@ifnextchar({\@nona@heterohi(@}{\@nona@heterohi(@)}}
-\def\@nona@heterohi(#1){\@ifnextchar[{\@nona@@heterohi(#1)[@}%
-{\@nona@@heterohi(#1)[@]}}
-\def\@nona@@heterohi(#1)[#2]#3#4{\@ifnextchar[%
-{\@nonaheterohi(#1)[#2]{#3}{#4}[@}%
-{\@nonaheterohi(#1)[#2]{#3}{#4}[@]}}
-\def\@nonaheterohi(#1)[#2]#3#4[#5]{%
-\iniflag\iniatom%initialize
-\test@vertix@nonavi{#3}%
-\@reset@ylsw%
-\ylpositionh{#4}{0}{0}{4}{0}%   %substituents on 1 to 3
-\if@ylsw \ifx\@@ylii\empty
-\def\@@ylii{0}\def\@@yli{0}\fi
-\else
-{\let\ddd=\eee\let\eee=\fff\let\fff=\ggg
-\ylpositionh{#4}{0}{3}{7}{0}%%substituents on 4 to 6
-}%
-\fi
-\if@ylsw \ifx\@@ylii\empty
-\def\@@ylii{0}\def\@@yli{342}\fi
-\else
-{\let\aaa=\hhh
-\ylpositionh{#4}{-6}{0}{2}{0}%%substituent on 7
-}%
-\fi
-\if@ylsw \ifx\@@ylii\empty
-\def\@@ylii{0}\def\@@yli{342}\fi
-\else
-{%
-\clipdetection%
-\@clipfusefalse \if@iclip \@clipfusetrue \fi%
-\ylatombondposition{#4}{-7}{4}%  %8 for 3a position
-}%
-\fi
-\if@ylsw \ifx\@@ylii\empty
-\def\@@ylii{-303}\def\@@yli{171}\fi
-\else
-{%
-\clipdetection%
-\@clipfusefalse \if@jclip \@clipfusetrue \fi%
-\ylatombondposition{#4}{-8}{10}%%9 for 7a position
-}%
-\fi
-\if@ylsw \ifx\@@ylii\empty
-\def\@@ylii{-103}\def\@@yli{171}\fi
-\fi
-\if@ylsw
- \yl@shiftii=\@ylii
- \yl@shifti=\@yli
- \advance\yl@shiftii\@@ylii
- \advance\yl@shifti\@@yli
- \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}(1200,1200)(-400,-800)%
-  \iforigpt \put(-\shiftii,-\shiftiii){\circle*{50}}%
-           \put(-\noshift,-\noshift){\circle{50}}%
-   \typeout{command `nonaheterohi' origin: %
-    (\the\noshift,\the\noshift) ---> (\the\shiftii,\the\shiftiii)}\fi%
-\fi
-\begingroup
-\resetbdsw%
-\@bond@@omit{#5}%
-{\let\fff=\jjj \let\eee=\iii%
-\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 3a \@ccc -> \hskbondverti etc
-\set@skel@bondh{#1}{j}{e}% bond between 3a and 7a \@jjj -> \hskbonde etc
-\set@skel@bondh{#1}{i}{f}% bond between 7a and 1 \@iii -> \hskbondf etc
-}%
-{\let\aaa=\hhh \let\ddd=\eee\let\eee=\fff\let\fff=\ggg%
- \let\ccc=\iii\let\bbb=\jjj%
-\put(0,-342){\set@skel@bondh{#1}{h}{a}}%
-  % bond between 7a and 7 \@hhh -> \hskbonda etc
-\put(0,-342){\set@skel@bondh{#1}{d}{c}}%
-  % bond between 3a and 4 \@ddd -> \hskbondc etc
-\put(0,-342){\set@skel@bondh{#1}{e}{d}}%
-  % bond between 4 and 5 \@eee -> \hskbondd etc
-\put(0,-342){\set@skel@bondh{#1}{f}{e}}%
-  % bond between 5 and 6 \@fff -> \hskbonde etc
-\put(0,-342){\set@skel@bondh{#1}{g}{f}}%
-  % bond between 6 and 7 \@ggg -> \hskbondf etc
-}%
-\endgroup
-\@tfor\member:=#2\do{%
-\if\member r\relax%
-{\let\aaa=\hhh \let\ddd=\eee\let\eee=\fff\let\fff=\ggg%
- \let\ccc=\iii\let\bbb=\jjj%
- \put(0,-342){\hbondb}% bond between 3a and 7a
- \put(0,-342){\hbondf}% bond between 6 and 7
- \put(0,-342){\hbondd}% bond between 4 and 5
-}%
-\else \if\member l\relax%
-\else \if\member a\relax%
- \put(0,0){\hbonda}% bond between 1 and 2
-\else \if\member b\relax%
- \put(0,0){\hbondb}% bond between 2 and 3
-\else \if\member c\relax%
- \put(0,0){\hbondverti}% bond between 3 and 3a
-\else \if\member d\relax%
-{\let\ccc=\iii \let\ddd=\eee%
- \put(0,-342){\hbondc}% bond between 4 and 3a
-}%
-\else \if\member e\relax%
-{\let\ddd=\eee\let\eee=\fff%
- \put(0,-342){\hbondd}% bond between 4 and 5
-}%
-\else \if\member f\relax%
-{\let\eee=\fff \let\fff=\ggg%
- \put(0,-342){\hbonde}% bond between 5 and 6
-}%
-\else \if\member g\relax%
-{\let\aaa=\hhh \let\fff=\ggg%
- \put(0,-342){\hbondf}% bond between 7 and 6
-}%
-\else \if\member h\relax%
-{\let\aaa=\hhh \let\bbb=\jjj%
- \put(0,-342){\hbonda}% bond between 7 and 7a
-}%
-\else \if\member i\relax%
-{\let\fff=\jjj%
- \put(0,0){\hbondf}% bond between 1 and 7a
-}%
-\else \if\member j\relax%
-{\let\ccc=\iii\let\bbb=\jjj%
- \put(0,-342){\hbondb}% bond between 7a and 3a
-}%
-\else \if\member J\relax%
-{\let\eee=\iii\let\fff=\jjj%
- \put(0,0){\hbonde}% bond between 7a and 3a
-}%
-\else \if\member B%aromatic circle
-  \put(173,0){\circle{180}}%               %circle (five-membered)
-\else \if\member A%aromatic circle
-  \put(203,-342){\circle{240}}%            %circle (six-membered)
-\else
- \expandafter\twoCH@@R\member//%
-  \def\aax{7a} \def\aay{3a}%
-      \if\@@tmpa 1\relax%
-        \putratom{68}{-18}{\@@tmpb}%       % right type
-      \else\if\@@tmpa 3\relax%
-        \putratom{233}{60}{\@@tmpb}%       % right type
-      \else\if\@@tmpa 2\relax%
-        \putratom{120}{60}{\@@tmpb}%       % right type
-      \else\if\@@tmpa 7\relax%
-        \putratom{68}{-360}{\@@tmpb}%      % right type
-      \else\if\@@tmpa 6\relax%
-        \putratom{120}{-452}{\@@tmpb}%     % right type
-      \else\if\@@tmpa 5\relax%
-        \putratom{233}{-452}{\@@tmpb}%     % right type
-      \else\if\@@tmpa 4\relax%
-        \putratom{272}{-360}{\@@tmpb}%     % right type
-      \else\if\@@tmpa 9\relax%
-        \putratom{120}{-110}{\@@tmpb}%     % right type
-      \else\ifx\@@tmpa\aax\relax%
-        \putratom{120}{-110}{\@@tmpb}%     % right type
-      \else\ifx\@@tmpa\aay\relax%
-        \putratom{233}{-110}{\@@tmpb}%     % right type
-      \else\if\@@tmpa 8\relax%
-        \putratom{233}{-110}{\@@tmpb}%     % right type
-      \else\if\@@tmpa 0\relax%
-        \putratom{140}{-30}{\@@tmpb}%      % right type
-      \fi\fi\fi\fi\fi\fi\fi\fi\fi\fi\fi\fi%
-   \expandafter\twoCH@R\member//%
-   \set@fusion@nonahi
-\fi\fi\fi\fi\fi\fi\fi\fi\fi%
-\fi\fi\fi\fi\fi\fi}%
-\iniflag
-\put(0,0){\set@hetatom@sixh{#3}{0}{0}{4}{0}%
-   \if@aclip \global\@acliptrue\fi
-   \if@bclip \global\@bcliptrue\fi
-   \if@cclip \global\@ccliptrue\fi
-}% %substituents on 1 to 3
-\put(0,-342){\set@hetatom@sixh{#3}{0}{3}{7}{0}%
-   \@gclipfalse \if@fclip \global\@gcliptrue \fi%
-   \@fclipfalse \if@eclip \global\@fcliptrue \fi%
-   \@eclipfalse \if@clip \global\@ecliptrue \fi}%substituents on 4 to 6
-\put(0,-342){\set@hetatom@sixh{#3}{-6}{0}{2}{0}%
-  \@hclipfalse \if@aclip \global\@hcliptrue \fi}%%substituent on 7
-\put(0,0){\set@vrtx@nonafusehi{#3}%
-  \if@iclip \global\@icliptrue \fi
-  \if@jclip \global\@jcliptrue \fi}% fused positions
-\put(0,0){\setsixringh{#4}{0}{0}{4}{0}}%   %substituents on 1 to 3
-{\@clipfalse \if@eclip \@cliptrue \fi%     %substituents on 4 to 6
- \@eclipfalse \if@fclip \@ecliptrue \fi%
- \@fclipfalse \if@gclip \@fcliptrue \fi%
-\put(0,-342){\setsixringh{#4}{0}{3}{7}{0}}%
-}%
-{\@aclipfalse \if@hclip \@acliptrue \fi%   %substituent on 7
-\put(0,-342){\setsixringh{#4}{-6}{0}{2}{0}}%
-}%
-{\@clipfusefalse \if@iclip \@clipfusetrue \fi%
- \put(303,-171){\setatombond{#4}{-7}{4}}%  %8 for 3a position
-}%
-{\@clipfusefalse \if@jclip \@clipfusetrue \fi%
-  \put(103,-171){\setatombond{#4}{-8}{10}}%%9 for 7a position
-}%
-\end{picture}\iniatom\iniflag}%      %end of \nonaheterohi macro
-\def\set@vrtx@nonafusehi#1{%
-\@forsemicol\member:=#1\do{%
-\ifx\member\empty\else
-\expandafter\@m@mb@r\member;\relax%
-\expandafter\twoCH@R\@membera//%
-\ifcase\@tmpa%
- \or
- \or
- \or%%%%3
-   \if\@tmpb a%
-     \global\@icliptrue%
-     \putratom{273}{-211}{\@memberb}%            % right type
-   \else\relax
-   \fi
- \or%4
- \or%5
- \or%6
- \or%7
-   \if\@tmpb a%
-     \global\@jcliptrue%
-     \putlatom{135}{-211}{\@memberb}%            % left type
-   \else\relax
-   \fi
-\or%8 (= 3a)
-   \ifx\@tmpb\empty
-     \global\@icliptrue%
-     \putratom{273}{-211}{\@memberb}%            % right type
-   \else
-     \XyMTeXWarning{Forbidden spiro ring for the 3a position}%
-   \fi
-\or%9 (= 7a)
-   \ifx\@tmpb\empty
-     \global\@jcliptrue%
-     \putlatom{135}{-211}{\@memberb}%            % left type
-   \else
-     \XyMTeXWarning{Forbidden spiro ring for the 7a position}%
-   \fi
-\fi\fi}%
-}% end of the macro \set@vrtx@nonafusehi
-\def\purineh{\@ifnextchar[{\@purineh[@}{\@purineh[ra]}}%
-\def\@purineh[#1]#2{%
-\iforigpt \typeout{command `purineh' %
- is based on `nonaheteroh'.}\fi%
-\nonaheteroh[#1]{1==N;3==N;5==N;7==N}{#2}}%
-\def\purinehi{\@ifnextchar[{\@purinehi[@}{\@purinehi[ra]}}%
-\def\@purinehi[#1]#2{%
-\iforigpt \typeout{command `purinehi' %
- is based on `nonaheterohi'.}\fi%
-\nonaheterohi[#1]{1==N;3==N;5==N;7==N}{#2}}%
-\def\indoleh{\@ifnextchar[{\@indoleh[@}{\@indoleh[rb]}}%
-\def\@indoleh[#1]#2{%
-\iforigpt \typeout{command `indoleh' %
- is based on `nonaheteroh'.}\fi%
-\nonaheteroh[#1]{1==N}{#2}}%
-\def\indolehi{\@ifnextchar[{\@indolehi[@}{\@indolehi[rb]}}%
-\def\@indolehi[#1]#2{%
-\iforigpt \typeout{command `indolehi' %
- is based on `nonaheterohi'.}\fi%
-\nonaheterohi[#1]{1==N}{#2}}%
-\def\indolizineh{%
- \@ifnextchar[{\@indolizineh[@}{\@indolizineh[aceg]}}%
-\def\@indolizineh[#1]#2{%
-\iforigpt \typeout{command `indolizineh' %
-  is based on `nonaheteroh'.}\fi%
-\nonaheteroh[#1]{7a==N}{#2}}%
-\def\indolizinehi{%
- \@ifnextchar[{\@indolizinehi[@}{\@indolizinehi[aceg]}}%
-\def\@indolizinehi[#1]#2{%
-\iforigpt \typeout{command `indolizinehi' %
- is based on `nonaheterohi'.}\fi%
-\nonaheterohi[#1]{7a==N}{#2}}%
-\def\isoindoleh{%
- \@ifnextchar[{\@isoindoleh[@}{\@isoindoleh[cegi]}}%
-\def\@isoindoleh[#1]#2{%
-\iforigpt \typeout{command `isoindoleh' %
- is based on `nonaheteroh'.}\fi%
-\nonaheteroh[#1]{2==N}{#2}}%
-\def\isoindolehi{%
- \@ifnextchar[{\@isoindolehi[@}{\@isoindolehi[cegi]}}%
-\def\@isoindolehi[#1]#2{%
-\iforigpt \typeout{command `isoindolehi' %
- is based on `nonaheterohi'.}\fi%
-\nonaheterohi[#1]{2==N}{#2}}%
-\def\benzofuraneh{%
- \@ifnextchar[{\@benzofuraneh[@}{\@benzofuraneh[rb]}}%
-\def\@benzofuraneh[#1]#2{%
-\iforigpt \typeout{command `benzofuraneh' %
- is based on `nonaheteroh'.}\fi%
-\nonaheteroh[#1]{1==O}{#2}}%
-\def\benzofuranehi{%
- \@ifnextchar[{\@benzofuranehi[@}{\@benzofuranehi[rb]}}%
-\def\@benzofuranehi[#1]#2{%
-\iforigpt \typeout{command `benzofuranehi' %
- is based on `nonaheterohi'.}\fi%
-\nonaheterohi[#1]{1==O}{#2}}%
-\def\isobenzofuraneh{\@ifnextchar[{\@isobenzofuraneh[@}%
- {\@isobenzofuraneh[cegi]}}%
-\def\@isobenzofuraneh[#1]#2{%
-\iforigpt \typeout{command `isobenzofuraneh' %
- is based on `nonaheteroh'.}\fi%
-\nonaheteroh[#1]{2==O}{#2}}%
-\def\isobenzofuranehi{\@ifnextchar[{\@isobenzofuranehi[@}%
- {\@isobenzofuranehi[cegi]}}%
-\def\@isobenzofuranehi[#1]#2{%
-\iforigpt \typeout{command `isobenzofuranehi' %
- is based on `nonaheterohi'.}\fi%
-\nonaheterohi[#1]{2==O}{#2}}%
-\def\benzoxazoleh{%
- \@ifnextchar[{\@benzoxazoleh[@}{\@benzoxazoleh[rb]}}%
-\def\@benzoxazoleh[#1]#2{%
-\iforigpt \typeout{command `benzoxazoleh' %
- is based on `nonaheteroh'.}\fi%
-\nonaheteroh[#1]{1==O;3==N}{#2}}%
-\def\benzoxazolehi{%
- \@ifnextchar[{\@benzoxazolehi[@}{\@benzoxazolehi[rb]}}%
-\def\@benzoxazolehi[#1]#2{%
-\iforigpt \typeout{command `benzoxazolehi' %
- is based on `nonaheterohi'.}\fi%
-\nonaheterohi[#1]{1==O;3==N}{#2}}%
-\def\sixunith{\@ifnextchar[{\@sixunith[@}{\@sixunith[@]}}
-\def\@sixunith[#1]#2#3#4{\sixheteroh[#1]{#2}{#3}[#4]}
-\def\fiveunith{\@ifnextchar[{\@fiveunith[@}{\@fiveunith[r]}}
-\def\@fiveunith[#1]#2#3#4{\fiveheteroh[#1]{#2}{#3}[#4]}
-\def\fiveunithi{\@ifnextchar[{\@fiveunithi[@}{\@fiveunithi[r]}}
-\def\@fiveunithi[#1]#2#3#4{\fiveheterohi[#1]{#2}{#3}[#4]}
-
-\def\threeheteroh{\@ifnextchar({\@three@heteroh(@}{\@three@heteroh(@)}}
-\def\@three@heteroh(#1){\@ifnextchar[{\@three@@heteroh(#1)[@}%
-{\@three@@heteroh(#1)[@]}}
-\def\@three@@heteroh(#1)[#2]#3#4{\@ifnextchar[%
-{\@threeheteroh(#1)[#2]{#3}{#4}[@}%
-{\@threeheteroh(#1)[#2]{#3}{#4}[@]}}
-\def\@threeheteroh(#1)[#2]#3#4[#5]{%
-\iniatom\iniflag%initialize
-\test@vertix@sixv{#3}{d}{f}{b}{@}{@}{@}%tentative use for six-h
-\@reset@ylsw%
-\ylpositionh{#4}{3}{3}{5}{0}%subst 1
-\if@ylsw \ifx\@@ylii\empty
-\def\@@ylii{235}\def\@@yli{-103}\fi
-\else
-\ylpositionh{#4}{-1}{1}{3}{0}%subst 3
-\fi
-\if@ylsw \ifx\@@ylii\empty
-\def\@@ylii{103}\def\@@yli{-29}\fi
-\else
-\ylpositionh{#4}{4}{5}{7}{0}%subst 2
-\fi
-\if@ylsw \ifx\@@ylii\empty
-\def\@@ylii{103}\def\@@yli{-171}\fi
-\fi
-\if@ylsw
- \yl@shiftii=\@ylii
- \yl@shifti=\@yli
- \advance\yl@shiftii\@@ylii
- \advance\yl@shifti\@@yli
- \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,-240){\circle*{50}}%
-           \put(0,0){\circle{50}}%
-   \typeout{command `threeheteroh' origin: %
-    (0,0) ---> (200,240)}\fi%
-\fi
-\iniatom\iniflag%initialize
-\test@vertix@sixv{#3}{c}{e}{a}{@}{@}{@}%
-\test@vertix@sixv{#3}{b}{d}{f}{@}{@}{@}%
-{\resetbdsw%
-\@bond@@omit{#5}%
-\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}%
-\iniatom\iniflag}%     %end of \threeheteroh macro
-\def\set@fusionadd@threeh{%
-      \if\@@tmpa 0\relax%
-        \putratom{35}{85}{\scriptsize\@@tmpb}%      % right type
-      \else\if\@@tmpa 1\relax%
-        \putratom{80}{85}{\scriptsize\@@tmpb}%      % right type
-      \else\if\@@tmpa 2\relax%
-        \putratom{15}{50}{\scriptsize\@@tmpb}%     % right type
-      \else\if\@@tmpa 3\relax%
-        \putratom{15}{120}{\scriptsize\@@tmpb}%    % right type
-      \else\if\@@tmpa 4\relax%
-        \putratom{180}{130}{\scriptsize\@@tmpb}%      % right type
-      \else\if\@@tmpa 5\relax%
-        \putratom{20}{-60}{\scriptsize\@@tmpb}%      % right type
-      \else\if\@@tmpa 6\relax%
-        \putratom{20}{230}{\scriptsize\@@tmpb}%    % right type
-      \else
-        \set@fusion@threeh
-      \fi\fi\fi\fi\fi\fi\fi%
-}%
-\def\set@fusion@threeh{%
-\if\@@tmpa b\relax%
-        \putlratom{0}{0}{\@@tmpb}%    % bond fused
-        \FuseWarning{0}{-200}%
-          {\fuseAx}{\fuseAy}{\fuseBx}{\fuseBy}{b}%
-      \else\if\@@tmpa B\relax%
-        \putlratom{0}{200}{\@@tmpb}%      % bond fused
-        \FuseWarning{0}{200}%
-          {\fuseAx}{\fuseAy}{\fuseBx}{\fuseBy}{B}%
-      \else\if\@@tmpa a\relax%
-        \putlratom{171}{103}{\@@tmpb}%    % bond fused
-        \FuseWarning{171}{103}%
-          {\fuseAx}{\fuseAy}{\fuseBx}{\fuseBy}{a}%
-      \else\if\@@tmpa A\relax%
-        \putlratom{0}{0}{\@@tmpb}%    % bond fused
-        \FuseWarning{-171}{-103}%
-          {\fuseAx}{\fuseAy}{\fuseBx}{\fuseBy}{A}%
-      \else\if\@@tmpa c\relax%
-        \putlratom{0}{200}{\@@tmpb}%      % bond fused
-        \FuseWarning{-171}{103}%
-          {\fuseAx}{\fuseAy}{\fuseBx}{\fuseBy}{c}%
-      \else\if\@@tmpa C\relax%
-        \putlratom{171}{103}{\@@tmpb}%    % bond fused
-        \FuseWarning{171}{-103}%
-          {\fuseAx}{\fuseAy}{\fuseBx}{\fuseBy}{C}%
-\fi\fi\fi\fi\fi\fi%
-}% end of the macro \set@fusion@threeh
-\def\threeheterohi{\@ifnextchar({\@three@heterohi(@}{\@three@heterohi(@)}}
-\def\@three@heterohi(#1){\@ifnextchar[{\@three@@heterohi(#1)[@}%
-{\@three@@heterohi(#1)[@]}}
-\def\@three@@heterohi(#1)[#2]#3#4{\@ifnextchar[%
-{\@threeheterohi(#1)[#2]{#3}{#4}[@}%
-{\@threeheterohi(#1)[#2]{#3}{#4}[@]}}
-\def\@threeheterohi(#1)[#2]#3#4[#5]{%
-\iniatom\iniflag%initialize
-\test@vertix@sixv{#3}{a}{e}{c}{@}{@}{@}%tentative use for six-h
-\@reset@ylsw%
-\ylpositionh{#4}{0}{0}{2}{0}%subst 1
-\if@ylsw \ifx\@@ylii\empty
-\def\@@ylii{171}\def\@@yli{-103}\fi
-\else
-\ylpositionh{#4}{0}{2}{4}{0}%subst 3
-\fi
-\if@ylsw \ifx\@@ylii\empty
-\def\@@ylii{303}\def\@@yli{-29}\fi
-\else
-\ylpositionh{#4}{3}{4}{6}{0}%subst 2
-\fi
-\if@ylsw \ifx\@@ylii\empty
-\def\@@ylii{303}\def\@@yli{-171}\fi
-\fi
-\if@ylsw
- \yl@shiftii=\@ylii
- \yl@shifti=\@yli
- \advance\yl@shiftii\@@ylii
- \advance\yl@shifti\@@yli
- \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,-240){\circle*{50}}%
-           \put(0,0){\circle{50}}%
-   \typeout{command `threeheterohi' origin: %
-    (0,0) ---> (400,240)}\fi%
-\fi
-\iniatom\iniflag%initialize
-\test@vertix@sixv{#3}{e}{c}{a}{@}{@}{@}%
-\test@vertix@sixv{#3}{f}{d}{b}{@}{@}{@}%
-{\resetbdsw%
-\@bond@@omit{#5}%
-\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}%
-\iniatom\iniflag}%     %end of \threeheterohi macro
-\def\set@fusionadd@threehi{%
-      \if\@@tmpa 0\relax%
-        \putlatom{-35}{85}{\scriptsize\@@tmpb}%      % left type
-      \else\if\@@tmpa 1\relax%
-        \putlatom{-80}{85}{\scriptsize\@@tmpb}%      % left type
-      \else\if\@@tmpa 2\relax%
-        \putlatom{-15}{50}{\scriptsize\@@tmpb}%     % left type
-      \else\if\@@tmpa 3\relax%
-        \putlatom{-15}{120}{\scriptsize\@@tmpb}%    % left type
-      \else\if\@@tmpa 4\relax%
-        \putlatom{-180}{130}{\scriptsize\@@tmpb}%      % left type
-      \else\if\@@tmpa 5\relax%
-        \putlatom{-20}{-60}{\scriptsize\@@tmpb}%      % left type
-      \else\if\@@tmpa 6\relax%
-        \putlatom{-20}{230}{\scriptsize\@@tmpb}%    % left type
-      \else
-        \set@fusion@threehi
-      \fi\fi\fi\fi\fi\fi\fi%
-}%
-\def\set@fusion@threehi{%
-\if\@@tmpa b\relax%
-        \putlratom{0}{0}{\@@tmpb}%    % bond fused
-        \FuseWarning{0}{-200}%
-          {\fuseAx}{\fuseAy}{\fuseBx}{\fuseBy}{b}%
-      \else\if\@@tmpa B\relax%
-        \putlratom{0}{200}{\@@tmpb}%      % bond fused
-        \FuseWarning{0}{200}%
-          {\fuseAx}{\fuseAy}{\fuseBx}{\fuseBy}{B}%
-      \else\if\@@tmpa a\relax%
-        \putlratom{-171}{103}{\@@tmpb}%    % bond fused
-        \FuseWarning{-171}{103}%
-          {\fuseAx}{\fuseAy}{\fuseBx}{\fuseBy}{a}%
-      \else\if\@@tmpa A\relax%
-        \putlratom{0}{0}{\@@tmpb}%    % bond fused
-        \FuseWarning{171}{-103}%
-          {\fuseAx}{\fuseAy}{\fuseBx}{\fuseBy}{A}%
-      \else\if\@@tmpa c\relax%
-        \putlratom{0}{200}{\@@tmpb}%      % bond fused
-        \FuseWarning{171}{103}%
-          {\fuseAx}{\fuseAy}{\fuseBx}{\fuseBy}{c}%
-      \else\if\@@tmpa C\relax%
-        \putlratom{-171}{103}{\@@tmpb}%    % bond fused
-        \FuseWarning{-171}{-103}%
-          {\fuseAx}{\fuseAy}{\fuseBx}{\fuseBy}{C}%
-\fi\fi\fi\fi\fi\fi%
-}% end of the macro \set@fusion@threehi
-\endinput
-%%
-%% End of file `hetaromh.sty'.
diff --git a/Master/texmf-dist/tex/latex/xymtex/locant.sty b/Master/texmf-dist/tex/latex/xymtex/locant.sty
deleted file mode 100644
index 211de7b8eed..00000000000
--- a/Master/texmf-dist/tex/latex/xymtex/locant.sty
+++ /dev/null
@@ -1,107 +0,0 @@
-%%
-%% This is file `locant.sty',
-%% generated with the docstrip utility.
-%%
-%% The original source files were:
-%%
-%% locant.dtx  (with options: `locant')
-%% 
-%% This is a generated file.
-%% 
-%% Copyright 1996 by Shinsaku Fujita
-%% 
-%% This file is part of the XyMTeX system.
-%% =======================================
-%% 
-%% Released on August 16, 1996
-%% 
-%% Copyright (C) 1996 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: locant.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 1.01}
-\typeout{       -- Released August 16, 1996 by Shinsaku Fujita}
-\def\j@urnalname{locant}
-\def\versi@ndate{August 16, 1996}
-\def\versi@nno{ver1.01}
-\def\copyrighth@lder{SF} % Shinsaku Fujita
-\typeout{XyMTeX Macro File `\j@urnalname' (\versi@nno) <\versi@ndate>%
-\space[\copyrighth@lder]}
-\def\bdloocant#1#2#3#4#5#6{%
-\begin{picture}(800,880)(-\shiftii,-\shifti)
-\putratom{90}{360}{#1}%
-\putratom{200}{180}{#2}%
-\putratom{90}{-20}{#3}%
-\putlatom{-90}{360}{#6}%
-\putlatom{-200}{180}{#5}%
-\putlatom{-90}{-20}{#4}%
-\end{picture}}%
-\def\bdlocant{\bdloocant{a}{b}{c}{d}{e}{f}}
-\def\sxloocant#1#2#3#4#5#6{%
-\begin{picture}(800,880)(-\shiftii,-\shifti)%
-\putratom{-10}{340}{\scriptsize #1}%
-\putlatom{150}{260}{\scriptsize #2}%
-\putlatom{150}{110}{\scriptsize #3}%
-\putratom{-10}{40}{\scriptsize #4}%
-\putratom{-150}{110}{\scriptsize #5}%
-\putratom{-150}{260}{\scriptsize #6}%
-\end{picture}}%
-\def\sxlocant{\sxloocant{1}{2}{3}{4}{5}{6}}
-\def\bdloocnth#1#2#3#4#5#6{%
-\begin{picture}(880,800)(-\shifti,-\shiftii)%
-\putlatom{10}{80}{#1}%
-\putratom{180}{210}{#2}%
-\putratom{380}{80}{#3}%
-\putratom{380}{-120}{#4}%
-\putratom{180}{-260}{#5}%
-\putlatom{10}{-120}{#6}%
-\end{picture}}%
-\def\bdlocnth{\bdloocnth{a}{b}{c}{d}{e}{f}}
-\def\sxloocnth#1#2#3#4#5#6{%
-\begin{picture}(880,800)(-\shifti,-\shiftii)%
-\putratom{40}{-20}{\scriptsize #1}%
-\putratom{110}{100}{\scriptsize #2}%
-\putlatom{290}{100}{\scriptsize #3}%
-\putlatom{380}{-20}{\scriptsize #4}%
-\putratom{110}{-140}{\scriptsize #6}%
-\putlatom{290}{-140}{\scriptsize #5}%
-\end{picture}}%
-\def\sxlocnth{\sxloocnth{1}{2}{3}{4}{5}{6}}
-\endinput
-%%
-%% End of file `locant.sty'.
diff --git a/Master/texmf-dist/tex/latex/xymtex/lowcycle.sty b/Master/texmf-dist/tex/latex/xymtex/lowcycle.sty
deleted file mode 100644
index 245a88800be..00000000000
--- a/Master/texmf-dist/tex/latex/xymtex/lowcycle.sty
+++ /dev/null
@@ -1,141 +0,0 @@
-%%
-%% This is file `lowcycle.sty',
-%% generated with the docstrip utility.
-%%
-%% The original source files were:
-%%
-%% lowcycle.dtx  (with options: `lowcycle')
-%% 
-%% This is a generated file.
-%% 
-%% Copyright 1996,1998 by Shinsaku Fujita
-%% 
-%% This file is part of the XyMTeX system.
-%% =======================================
-%% 
-%% Version 1.01 Released on August 16, 1996
-%% Version 1.02 Released on October 31, 1996 (private version)
-%% Version 2.00 Released on December 25, 1998
-%% 
-%% Copyright (C) 1996, 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: lowcycle.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{lowcycle}
-\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{threehetero}{\input hetarom.sty\relax}{}
-\@ifundefined{sixheteroh}{\input hetaromh.sty\relax}{}
-\unitlength=0.1pt
-\def\cyclopentanev{\@ifnextchar[{\@cyclopentanev[@}{\@cyclopentanev[]}}
-\def\@cyclopentanev[#1]#2{%
-\iforigpt \typeout{command `cyclopentanev' %
-                  is based on `fiveheterov'.}\fi%
-\fiveheterov[#1]{}{#2}}
-\def\cyclopentanevi{\@ifnextchar[{\@cyclopentanevi[@}{\@cyclopentanevi[]}}
-\def\@cyclopentanevi[#1]#2{%
-\iforigpt \typeout{command `cyclopentanevi' %
-                   is based on `fiveheterovi'.}\fi%
-\fiveheterovi[#1]{}{#2}}
-\def\cyclopentaneh{\@ifnextchar[{\@cyclopentaneh[@}{\@cyclopentaneh[]}}
-\def\@cyclopentaneh[#1]#2{%
-\iforigpt \typeout{command `cyclophentaneh' %
-                   is based on `fiveheteroh'.}\fi%
-\fiveheteroh[#1]{}{#2}}
-\def\cyclopentanehi{%
-  \@ifnextchar[{\@cyclopentanehi[@}{\@cyclopentanehi[]}}
-\def\@cyclopentanehi[#1]#2{%
-\iforigpt \typeout{command `cyclopentanehi' %
-                   is based on `fiveheterohi'.}\fi%
-\fiveheterohi[#1]{}{#2}}
-\def\indanev{\@ifnextchar[{\@indanev[@}{\@indanev[rb]}}
-\def\@indanev[#1]#2{%
-\iforigpt \typeout{command `indanev' %
-               is based on `nonaheterov'.}\fi%
-\nonaheterov[#1]{}{#2}}
-\def\indanevi{\@ifnextchar[{\@indanevi[@}{\@indanevi[rb]}}
-\def\@indanevi[#1]#2{%
-\iforigpt \typeout{command `indanevi' %
-              is based on `nonaheterovi'.}\fi%
-\nonaheterovi[#1]{}{#2}}
-\def\indaneh{\@ifnextchar[{\@indaneh[@}{\@indaneh[rb]}}
-\def\@indaneh[#1]#2{%
-\iforigpt \typeout{command `indaneh' %
-        is based on `nonaheteroh'.}\fi%
-\nonaheteroh[#1]{}{#2}}
-\def\indanehi{\@ifnextchar[{\@indanehi[@}{\@indanehi[rb]}}
-\def\@indanehi[#1]#2{%
-\iforigpt \typeout{command `indanehi' %
-        is based on `nonaheterohi'.}\fi%
-\nonaheterohi[#1]{}{#2}}
-\def\cyclobutane{\@ifnextchar[{\@cyclobutane[@}{\@cyclobutane[]}}
-\def\@cyclobutane[#1]#2{%
-\iforigpt \typeout{command `cyclobutane' %
-      is based on `fourhetero'.}\fi%
-\fourhetero[#1]{}{#2}}
-\def\cyclopropane{\@ifnextchar[{\@cyclopropane[@}{\@cyclopropane[]}}
-\def\@cyclopropane[#1]#2{%
-\iforigpt \typeout{command `cyclopropane' %
-      is based on `threehetero'.}\fi%
-\threehetero[#1]{}{#2}}
-\let\cyclopropanev=\cyclopropane
-\def\cyclopropanei{\@ifnextchar[{\@cyclopropanei[@}{\@cyclopropanei[]}}
-\def\@cyclopropanei[#1]#2{%
-\iforigpt \typeout{command `cyclopropanei' %
-      is based on `threeheteroi'.}\fi%
-\threeheteroi[#1]{}{#2}}
-\let\cyclopropanevi=\cyclopropanei
-\def\cyclopropaneh{\@ifnextchar[{\@cyclopropaneh[@}{\@cyclopropaneh[]}}
-\def\@cyclopropaneh[#1]#2{%
-\iforigpt \typeout{command `cyclopropaneh' %
-      is based on `threeheteroh'.}\fi%
-\threeheteroh[#1]{}{#2}}
-\def\cyclopropanehi{\@ifnextchar[{\@cyclopropanehi[@}{\@cyclopropanehi[]}}
-\def\@cyclopropanehi[#1]#2{%
-\iforigpt \typeout{command `cyclopropanehi' %
-      is based on `threeheterohi'.}\fi%
-\threeheterohi[#1]{}{#2}}
-\endinput
-%%
-%% End of file `lowcycle.sty'.
diff --git a/Master/texmf-dist/tex/latex/xymtex/methylen.sty b/Master/texmf-dist/tex/latex/xymtex/methylen.sty
deleted file mode 100644
index 50013fe367f..00000000000
--- a/Master/texmf-dist/tex/latex/xymtex/methylen.sty
+++ /dev/null
@@ -1,3075 +0,0 @@
-%%
-%% This is file `methylen.sty',
-%% generated with the docstrip utility.
-%%
-%% The original source files were:
-%%
-%% methylen.dtx  (with options: `methylen')
-%% 
-%% This is a generated file.
-%% 
-%% Copyright 1998 by Shinsaku Fujita
-%% 
-%% This file is part of the XyMTeX system.
-%% =======================================
-%% 
-%% Version 1.02 Released on October 31, 1996 (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: methylen.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{Westbond}{\input aliphat.sty\relax}{}
-\@ifundefined{bzdrv}{\input carom.sty\relax}{}
-\@ifundefined{hbonde}{\input hetaromh.sty\relax}{}
-\unitlength=0.1pt
-\newif\if@wrongbdWa \@wrongbdWafalse
-\newif\if@wrongbdWd \@wrongbdWdfalse
-\newif\if@wrongbdWaL \@wrongbdWaLfalse
-\newif\if@wrongbdWdL \@wrongbdWdLfalse
-\def\@methsubsta{%
-\if@aclip% %clipping
-   \if\@tmpb S%single bond
-    \ifx\@tmpc\empty%
-      \yl@xdiff=31\relax
-      \yl@ydiff=-17\relax
-           \put(0,436){\line(0,1){110}}%      % single bond at 1
-           \putlratom{-31}{563}{\@memberb}%   % left or right type
-    \else\if\@tmpc B%(B) beta
-      \yl@xdiff=-36\relax
-      \yl@ydiff=-27\relax
-           \putlatom{-42}{563}{\@memberb}%    % left type
-           {%
-           \thicklines%
-           \put(-18,436){\line(-3,5){60}}%    % single bond at 1
-           }%
-    \else\if\@tmpc A%(A) alpha
-      \yl@xdiff=37\relax
-      \yl@ydiff=-27\relax
-           \putratom{41}{563}{\@memberb}%     % right type
-       \@ifundefined{dottedline}{%
-           \put(18,436){\line(3,5){60}}%      % single bond at 1
-           }{{\thicklines%
-              \dottedline{20}(18,436)(72,526)}}%
-    \else\if\@tmpc b%(b) beta
-      \yl@xdiff=-36\relax
-      \yl@ydiff=-27\relax
-           \putlatom{-42}{563}{\@memberb}%    % left type
-           \put(-18,436){\line(-3,5){60}}%    % single bond at 1
-    \else\if\@tmpc a%(a) alpha
-      \yl@xdiff=37\relax
-      \yl@ydiff=-27\relax
-           \putratom{41}{563}{\@memberb}%     % right type
-           \put(18,436){\line(3,5){60}}%      % single bond at 1
-    \fi\fi\fi\fi\fi%
-   \else\if\@tmpb D%double bond
-      \yl@xdiff=31\relax
-      \yl@ydiff=-17\relax
-           \putlratom{-31}{563}{\@memberb}%   % left or right type
-           \put(-12,436){\line(0,1){110}}%    % double bond at 1
-           \put(12,436){\line(0,1){110}}%     % double bond at 1
-   \else\if\@tmpb B%beta single bond
-      \yl@xdiff=31\relax
-      \yl@ydiff=-17\relax
-           \putlratom{-31}{563}{\@memberb}%   % left or right type
-           {%
-           \thicklines%
-           \put(0,436){\line(0,1){110}}%      % single bond at 1
-           }%
-   \else\if\@tmpb A%alpha single bond
-      \yl@xdiff=31\relax
-      \yl@ydiff=-17\relax
-           \putlratom{-31}{563}{\@memberb}%   % left or right type
-           \@ifundefined{dottedline}{%
-             \put(0,436){\line(0,1){110}}%    % single bond at 1
-           }{{\thicklines%
-              \dottedline{20}(0,436)(0,546)}}%
-   \else\if\@tmpb W%beta single bond
-      \yl@xdiff=-10\relax
-      \yl@ydiff=46\relax
-      \if@wrongbdWa
-        \XyMTeXWarning{Wrong Bond-Modifier (W)}%
-      \fi
-           \putratom{150}{276}{\@memberb}%   % left or right type
-           \put(40,382){\line(5,-3){100}}%      % single bond at 1
-   \else%
-      \yl@xdiff=31\relax
-      \yl@ydiff=-17\relax
-           \putlratom{-31}{563}{\@memberb}%   % left or right type
-           \put(0,436){\line(0,1){110}}%      % single bond at 1
-   \fi\fi\fi\fi\fi%
-\else% % no clipping
-   \if\@tmpb S%single bond
-    \ifx\@tmpc\empty%
-      \yl@xdiff=31\relax
-      \yl@ydiff=-17\relax
-           \put(0,406){\line(0,1){140}}%      % single bond at 1
-           \putlratom{-31}{563}{\@memberb}%   % left or right type
-    \else\if\@tmpc B%(B) beta
-      \yl@xdiff=-30\relax
-      \yl@ydiff=-37\relax
-           \putlatom{-42}{563}{\@memberb}%    % left type
-           {%
-           \thicklines%
-           \put(0,406){\line(-3,5){72}}%      % single bond at 1
-           }%
-    \else\if\@tmpc A%(A) alpha
-      \yl@xdiff=31\relax
-      \yl@ydiff=-37\relax
-           \putratom{41}{563}{\@memberb}%     % right type
-       \@ifundefined{dottedline}{%
-           \put(0,406){\line(3,5){72}}%       % single bond at 1
-           }{{\thicklines%
-              \dottedline{20}(0,406)(72,526)}}%
-    \else\if\@tmpc b%(b) beta
-      \yl@xdiff=-30\relax
-      \yl@ydiff=-37\relax
-           \putlatom{-42}{563}{\@memberb}%    % left type
-           \put(0,406){\line(-3,5){72}}%      % single bond at 1
-    \else\if\@tmpc a%(a) alpha
-      \yl@xdiff=31\relax
-      \yl@ydiff=-37\relax
-           \putratom{41}{563}{\@memberb}%     % right type
-           \put(0,406){\line(3,5){72}}%       % single bond at 1
-    \fi\fi\fi\fi\fi%
-   \else\if\@tmpb D%double bond
-      \yl@xdiff=31\relax
-      \yl@ydiff=-17\relax
-           \putlratom{-31}{563}{\@memberb}%   % left or right type
-           \put(-12,406){\line(0,1){140}}%    % double bond at 1
-           \put(12,406){\line(0,1){140}}%     % double bond at 1
-   \else\if\@tmpb B%beta single bond
-      \yl@xdiff=31\relax
-      \yl@ydiff=-17\relax
-           \putlratom{-31}{563}{\@memberb}%   % left or right type
-           {%
-           \thicklines%
-           \put(0,406){\line(0,1){140}}%      % single bond at 1
-           }%
-   \else\if\@tmpb A%alpha single bond
-      \yl@xdiff=31\relax
-      \yl@ydiff=-17\relax
-           \putlratom{-31}{563}{\@memberb}%   % left or right type
-           \@ifundefined{dottedline}{%
-             \put(0,406){\line(0,1){140}}%    % single bond at 1
-           }{{\thicklines%
-              \dottedline{20}(0,406)(0,546)}}%
-   \else\if\@tmpb W%beta single bond
-      \yl@xdiff=-10\relax
-      \yl@ydiff=58\relax
-      \if@wrongbdWa
-        \XyMTeXWarning{Wrong Bond-Modifier (W)}%
-      \fi
-           \putratom{130}{276}{\@memberb}%   % left or right type
-           \put(0,406){\line(5,-3){120}}%      % single bond at 1
-   \else%
-      \yl@xdiff=31\relax
-      \yl@ydiff=-17\relax
-           \putlratom{-31}{563}{\@memberb}%   % left or right type
-           \put(0,406){\line(0,1){140}}%      % single bond at 1
-   \fi\fi\fi\fi\fi%
- \fi}%
-\def\@methsubstd{%
-\if@clip %clipping
-    \if\@tmpb S%single bond
-    \ifx\@tmpc\empty%
-      \yl@xdiff=31\relax
-      \yl@ydiff=90\relax
-           \putlratom{-31}{-230}{\@memberb}%  % left or right type
-            \put(0,-30){\line(0,-1){110}}%    % single bond at 4
-    \else\if\@tmpc B%(B) beta
-      \yl@xdiff=-36\relax
-      \yl@ydiff=100\relax
-           \putlatom{-42}{-230}{\@memberb}%   % left type
-           {%
-           \thicklines%
-           \put(-18,-30){\line(-3,-5){60}}%   % single bond at 4
-           }%
-    \else\if\@tmpc A%(A) alpha
-      \yl@xdiff=37\relax
-      \yl@ydiff=100\relax
-           \putratom{41}{-230}{\@memberb}%    % right type
-       \@ifundefined{dottedline}{%
-           \put(18,-30){\line(3,-5){60}}%     % single bond at 4
-           }{{\thicklines%
-              \dottedline{20}(18,-30)(72,-120)}}%
-    \else\if\@tmpc b%(b) beta
-      \yl@xdiff=-36\relax
-      \yl@ydiff=100\relax
-           \putlatom{-42}{-230}{\@memberb}%   % left type
-           \put(-18,-30){\line(-3,-5){60}}%   % single bond at 4
-    \else\if\@tmpc a%(a) alpha
-      \yl@xdiff=37\relax
-      \yl@ydiff=100\relax
-           \putratom{41}{-230}{\@memberb}%    % right type
-           \put(18,-30){\line(3,-5){60}}%     % single bond at 4
-    \fi\fi\fi\fi\fi%
-   \else\if\@tmpb D%double bond
-      \yl@xdiff=31\relax
-      \yl@ydiff=90\relax
-           \putlratom{-31}{-230}{\@memberb}%  % left or right type
-           \put(-12,-30){\line(0,-1){110}}%   % double bond at 4
-           \put(12,-30){\line(0,-1){110}}%    % double bond at 4
-   \else\if\@tmpb B%beta single bond
-      \yl@xdiff=31\relax
-      \yl@ydiff=90\relax
-           \putlratom{-31}{-230}{\@memberb}%  % left or right type
-           {%
-           \thicklines%
-           \put(0,-30){\line(0,-1){110}}%    % single bond at 4
-           }%
-   \else\if\@tmpb A%alpha single bond
-      \yl@xdiff=31\relax
-      \yl@ydiff=90\relax
-           \putlratom{-31}{-230}{\@memberb}%  % left or right type
-       \@ifundefined{dottedline}{%
-           \put(0,-30){\line(0,-1){110}}%     % single bond at 4
-           }{{\thicklines%
-              \dottedline{20}(0,-30)(0,-140)}}%
-   \else\if\@tmpb W%beta single bond
-      \yl@xdiff=-10\relax
-      \yl@ydiff=30\relax
-           \putlratom{150}{54}{\@memberb}%  % left or right type
-           \put(40,24){\line(5,3){100}}%    % single bond at 4
-      \if@wrongbdWd
-        \XyMTeXWarning{Wrong Bond-Modifier (W)}%
-      \fi
-   \else%
-      \yl@xdiff=31\relax
-      \yl@ydiff=90\relax
-           \putlratom{-31}{-230}{\@memberb}%  % left or right type
-           \put(0,-30){\line(0,-1){110}}%     % single bond at 4
-   \fi\fi\fi\fi\fi%
- \else% no clipping
-   \if\@tmpb S%single bond
-    \ifx\@tmpc\empty%
-      \yl@xdiff=31\relax
-      \yl@ydiff=90\relax
-           \putlratom{-31}{-230}{\@memberb}%  % left or right type
-            \put(0,0){\line(0,-1){140}}%      % single bond at 4
-    \else\if\@tmpc B%(B) beta
-      \yl@xdiff=-30\relax
-      \yl@ydiff=110\relax
-           \putlatom{-42}{-230}{\@memberb}%   % left type
-           {%
-           \thicklines%
-           \put(0,0){\line(-3,-5){72}}%       % single bond at 4
-           }%
-    \else\if\@tmpc A%(A) alpha
-      \yl@xdiff=31\relax
-      \yl@ydiff=110\relax
-           \putratom{41}{-230}{\@memberb}%    % right type
-       \@ifundefined{dottedline}{%
-           \put(0,0){\line(3,-5){72}}%        % single bond at 4
-           }{{\thicklines%
-              \dottedline{20}(0,0)(72,-120)}}%
-    \else\if\@tmpc b%(b) beta
-      \yl@xdiff=-30\relax
-      \yl@ydiff=110\relax
-           \putlatom{-42}{-230}{\@memberb}%   % left type
-           \put(0,0){\line(-3,-5){72}}%       % single bond at 4
-    \else\if\@tmpc a%(a) alpha
-      \yl@xdiff=31\relax
-      \yl@ydiff=110\relax
-           \putratom{41}{-230}{\@memberb}%    % right type
-           \put(0,0){\line(3,-5){72}}%        % single bond at 4
-    \fi\fi\fi\fi\fi%
-   \else\if\@tmpb D%double bond
-      \yl@xdiff=31\relax
-      \yl@ydiff=90\relax
-           \putlratom{-31}{-230}{\@memberb}%  % left or right type
-           \put(-12,0){\line(0,-1){140}}%     % double bond at 4
-           \put(12,0){\line(0,-1){140}}%      % double bond at 4
-   \else\if\@tmpb B%beta single bond
-      \yl@xdiff=31\relax
-      \yl@ydiff=90\relax
-           \putlratom{-31}{-230}{\@memberb}%  % left or right type
-           {%
-           \thicklines%
-           \put(0,0){\line(0,-1){140}}%       % single bond at 4
-           }%
-   \else\if\@tmpb A%alpha single bond
-      \yl@xdiff=31\relax
-      \yl@ydiff=90\relax
-           \putlratom{-31}{-230}{\@memberb}%  % left or right type
-       \@ifundefined{dottedline}{%
-           \put(0,0){\line(0,-1){140}}%      % single bond at 4
-           }{{\thicklines%
-              \dottedline{20}(0,0)(0,-140)}}%
-   \else\if\@tmpb W%beta single bond
-      \yl@xdiff=-10\relax
-      \yl@ydiff=30\relax
-           \putlratom{150}{54}{\@memberb}%  % left or right type
-           \put(0,0){\line(5,3){140}}%    % single bond at 4
-      \if@wrongbdWd
-        \XyMTeXWarning{Wrong Bond-Modifier (W)}%
-      \fi
-   \else%
-      \yl@xdiff=31\relax
-      \yl@ydiff=90\relax
-           \putlratom{-31}{-230}{\@memberb}%  % left or right type
-           \put(0,0){\line(0,-1){140}}%       % single bond at 4
-   \fi\fi\fi\fi\fi%
- \fi}%
-\def\@methsubstdL{%
-\if@clip %clipping
-    \if\@tmpb S%single bond
-    \ifx\@tmpc\empty%
-      \yl@xdiff=31\relax
-      \yl@ydiff=90\relax
-           \putlratom{-31}{-230}{\@memberb}%  % left or right type
-            \put(0,-30){\line(0,-1){110}}%    % single bond at 4
-    \else\if\@tmpc B%(B) beta
-      \yl@xdiff=-36\relax
-      \yl@ydiff=100\relax
-           \putlatom{-42}{-230}{\@memberb}%   % left type
-           {%
-           \thicklines%
-           \put(-18,-30){\line(-3,-5){60}}%   % single bond at 4
-           }%
-    \else\if\@tmpc A%(A) alpha
-      \yl@xdiff=37\relax
-      \yl@ydiff=100\relax
-           \putratom{41}{-230}{\@memberb}%    % right type
-       \@ifundefined{dottedline}{%
-           \put(18,-30){\line(3,-5){60}}%     % single bond at 4
-           }{{\thicklines%
-              \dottedline{20}(18,-30)(72,-120)}}%
-    \else\if\@tmpc b%(b) beta
-      \yl@xdiff=-36\relax
-      \yl@ydiff=100\relax
-           \putlatom{-42}{-230}{\@memberb}%   % left type
-           \put(-18,-30){\line(-3,-5){60}}%   % single bond at 4
-    \else\if\@tmpc a%(a) alpha
-      \yl@xdiff=37\relax
-      \yl@ydiff=100\relax
-           \putratom{41}{-230}{\@memberb}%    % right type
-           \put(18,-30){\line(3,-5){60}}%     % single bond at 4
-    \fi\fi\fi\fi\fi%
-   \else\if\@tmpb D%double bond
-      \yl@xdiff=31\relax
-      \yl@ydiff=90\relax
-           \putlratom{-31}{-230}{\@memberb}%  % left or right type
-           \put(-12,-30){\line(0,-1){110}}%   % double bond at 4
-           \put(12,-30){\line(0,-1){110}}%    % double bond at 4
-   \else\if\@tmpb B%beta single bond
-      \yl@xdiff=31\relax
-      \yl@ydiff=90\relax
-           \putlratom{-31}{-230}{\@memberb}%  % left or right type
-           {%
-           \thicklines%
-           \put(0,-30){\line(0,-1){110}}%    % single bond at 4
-           }%
-   \else\if\@tmpb A%alpha single bond
-      \yl@xdiff=31\relax
-      \yl@ydiff=90\relax
-           \putlratom{-31}{-230}{\@memberb}%  % left or right type
-       \@ifundefined{dottedline}{%
-           \put(0,-30){\line(0,-1){110}}%     % single bond at 4
-           }{{\thicklines%
-              \dottedline{20}(0,-30)(0,-140)}}%
-   \else\if\@tmpb W%beta single bond
-      \yl@xdiff=10\relax
-      \yl@ydiff=30\relax
-           \putlatom{-150}{54}{\@memberb}%  % lefttype
-           \put(-40,24){\line(-5,3){100}}%    % single bond at 4
-      \if@wrongbdWdL
-        \XyMTeXWarning{Wrong Bond-Modifier (W)}%
-      \fi
-   \else%
-      \yl@xdiff=31\relax
-      \yl@ydiff=90\relax
-           \putlratom{-31}{-230}{\@memberb}%  % left or right type
-           \put(0,-30){\line(0,-1){110}}%     % single bond at 4
-   \fi\fi\fi\fi\fi%
- \else% no clipping
-   \if\@tmpb S%single bond
-    \ifx\@tmpc\empty%
-      \yl@xdiff=31\relax
-      \yl@ydiff=90\relax
-           \putlratom{-31}{-230}{\@memberb}%  % left or right type
-            \put(0,0){\line(0,-1){140}}%      % single bond at 4
-    \else\if\@tmpc B%(B) beta
-      \yl@xdiff=-30\relax
-      \yl@ydiff=110\relax
-           \putlatom{-42}{-230}{\@memberb}%   % left type
-           {%
-           \thicklines%
-           \put(0,0){\line(-3,-5){72}}%       % single bond at 4
-           }%
-    \else\if\@tmpc A%(A) alpha
-      \yl@xdiff=31\relax
-      \yl@ydiff=110\relax
-           \putratom{41}{-230}{\@memberb}%    % right type
-       \@ifundefined{dottedline}{%
-           \put(0,0){\line(3,-5){72}}%        % single bond at 4
-           }{{\thicklines%
-              \dottedline{20}(0,0)(72,-120)}}%
-    \else\if\@tmpc b%(b) beta
-      \yl@xdiff=-30\relax
-      \yl@ydiff=110\relax
-           \putlatom{-42}{-230}{\@memberb}%   % left type
-           \put(0,0){\line(-3,-5){72}}%       % single bond at 4
-    \else\if\@tmpc a%(a) alpha
-      \yl@xdiff=31\relax
-      \yl@ydiff=110\relax
-           \putratom{41}{-230}{\@memberb}%    % right type
-           \put(0,0){\line(3,-5){72}}%        % single bond at 4
-    \fi\fi\fi\fi\fi%
-   \else\if\@tmpb D%double bond
-      \yl@xdiff=31\relax
-      \yl@ydiff=90\relax
-           \putlratom{-31}{-230}{\@memberb}%  % left or right type
-           \put(-12,0){\line(0,-1){140}}%     % double bond at 4
-           \put(12,0){\line(0,-1){140}}%      % double bond at 4
-   \else\if\@tmpb B%beta single bond
-      \yl@xdiff=31\relax
-      \yl@ydiff=90\relax
-           \putlratom{-31}{-230}{\@memberb}%  % left or right type
-           {%
-           \thicklines%
-           \put(0,0){\line(0,-1){140}}%       % single bond at 4
-           }%
-   \else\if\@tmpb A%alpha single bond
-      \yl@xdiff=31\relax
-      \yl@ydiff=90\relax
-           \putlratom{-31}{-230}{\@memberb}%  % left or right type
-       \@ifundefined{dottedline}{%
-           \put(0,0){\line(0,-1){140}}%      % single bond at 4
-           }{{\thicklines%
-              \dottedline{20}(0,0)(0,-140)}}%
-   \else\if\@tmpb W%beta single bond
-      \yl@xdiff=10\relax
-      \yl@ydiff=30\relax
-           \putlatom{-150}{54}{\@memberb}%  % left type
-           \put(0,0){\line(-5,3){140}}%    % single bond at 4
-      \if@wrongbdWdL
-        \XyMTeXWarning{Wrong Bond-Modifier (W)}%
-      \fi
-   \else%
-      \yl@xdiff=31\relax
-      \yl@ydiff=90\relax
-           \putlratom{-31}{-230}{\@memberb}%  % left or right type
-           \put(0,0){\line(0,-1){140}}%       % single bond at 4
-   \fi\fi\fi\fi\fi%
- \fi}%
-\def\@methsubstaL{%
-\if@aclip% %clipping
-   \if\@tmpb S%single bond
-    \ifx\@tmpc\empty%
-      \yl@xdiff=31\relax
-      \yl@ydiff=-17\relax
-           \put(0,436){\line(0,1){110}}%      % single bond at 1
-           \putlratom{-31}{563}{\@memberb}%   % left or right type
-    \else\if\@tmpc B%(B) beta
-      \yl@xdiff=-36\relax
-      \yl@ydiff=-27\relax
-           \putlatom{-42}{563}{\@memberb}%    % left type
-           {%
-           \thicklines%
-           \put(-18,436){\line(-3,5){60}}%    % single bond at 1
-           }%
-    \else\if\@tmpc A%(A) alpha
-      \yl@xdiff=37\relax
-      \yl@ydiff=-27\relax
-           \putratom{41}{563}{\@memberb}%     % right type
-       \@ifundefined{dottedline}{%
-           \put(18,436){\line(3,5){60}}%      % single bond at 1
-           }{{\thicklines%
-              \dottedline{20}(18,436)(72,526)}}%
-    \else\if\@tmpc b%(b) beta
-      \yl@xdiff=-36\relax
-      \yl@ydiff=-27\relax
-           \putlatom{-42}{563}{\@memberb}%    % left type
-           \put(-18,436){\line(-3,5){60}}%    % single bond at 1
-    \else\if\@tmpc a%(a) alpha
-      \yl@xdiff=37\relax
-      \yl@ydiff=-27\relax
-           \putratom{41}{563}{\@memberb}%     % right type
-           \put(18,436){\line(3,5){60}}%      % single bond at 1
-    \fi\fi\fi\fi\fi%
-   \else\if\@tmpb D%double bond
-      \yl@xdiff=31\relax
-      \yl@ydiff=-17\relax
-           \putlratom{-31}{563}{\@memberb}%   % left or right type
-           \put(-12,436){\line(0,1){110}}%    % double bond at 1
-           \put(12,436){\line(0,1){110}}%     % double bond at 1
-   \else\if\@tmpb B%beta single bond
-      \yl@xdiff=31\relax
-      \yl@ydiff=-17\relax
-           \putlratom{-31}{563}{\@memberb}%   % left or right type
-           {%
-           \thicklines%
-           \put(0,436){\line(0,1){110}}%      % single bond at 1
-           }%
-   \else\if\@tmpb A%alpha single bond
-      \yl@xdiff=31\relax
-      \yl@ydiff=-17\relax
-           \putlratom{-31}{563}{\@memberb}%   % left or right type
-           \@ifundefined{dottedline}{%
-             \put(0,436){\line(0,1){110}}%    % single bond at 1
-           }{{\thicklines%
-              \dottedline{20}(0,436)(0,546)}}%
-   \else\if\@tmpb W%beta single bond
-      \yl@xdiff=10\relax
-      \yl@ydiff=46\relax
-           \putlatom{-150}{276}{\@memberb}%   % left type
-           \put(-40,382){\line(-5,-3){100}}%      % single bond at 1
-      \if@wrongbdWaL
-        \XyMTeXWarning{Wrong Bond-Modifier (W)}%
-      \fi
-   \else%
-      \yl@xdiff=31\relax
-      \yl@ydiff=-17\relax
-           \putlratom{-31}{563}{\@memberb}%   % left or right type
-           \put(0,436){\line(0,1){110}}%      % single bond at 1
-   \fi\fi\fi\fi\fi%
-\else% % no clipping
-   \if\@tmpb S%single bond
-    \ifx\@tmpc\empty%
-      \yl@xdiff=31\relax
-      \yl@ydiff=-17\relax
-           \put(0,406){\line(0,1){140}}%      % single bond at 1
-           \putlratom{-31}{563}{\@memberb}%   % left or right type
-    \else\if\@tmpc B%(B) beta
-      \yl@xdiff=-30\relax
-      \yl@ydiff=-37\relax
-           \putlatom{-42}{563}{\@memberb}%    % left type
-           {%
-           \thicklines%
-           \put(0,406){\line(-3,5){72}}%      % single bond at 1
-           }%
-    \else\if\@tmpc A%(A) alpha
-      \yl@xdiff=31\relax
-      \yl@ydiff=-37\relax
-           \putratom{41}{563}{\@memberb}%     % right type
-       \@ifundefined{dottedline}{%
-           \put(0,406){\line(3,5){72}}%       % single bond at 1
-           }{{\thicklines%
-              \dottedline{20}(0,406)(72,526)}}%
-    \else\if\@tmpc b%(b) beta
-      \yl@xdiff=-30\relax
-      \yl@ydiff=-37\relax
-           \putlatom{-42}{563}{\@memberb}%    % left type
-           \put(0,406){\line(-3,5){72}}%      % single bond at 1
-    \else\if\@tmpc a%(a) alpha
-      \yl@xdiff=31\relax
-      \yl@ydiff=-37\relax
-           \putratom{41}{563}{\@memberb}%     % right type
-           \put(0,406){\line(3,5){72}}%       % single bond at 1
-    \fi\fi\fi\fi\fi%
-   \else\if\@tmpb D%double bond
-      \yl@xdiff=31\relax
-      \yl@ydiff=-17\relax
-           \putlratom{-31}{563}{\@memberb}%   % left or right type
-           \put(-12,406){\line(0,1){140}}%    % double bond at 1
-           \put(12,406){\line(0,1){140}}%     % double bond at 1
-   \else\if\@tmpb B%beta single bond
-      \yl@xdiff=31\relax
-      \yl@ydiff=-17\relax
-           \putlratom{-31}{563}{\@memberb}%   % left or right type
-           {%
-           \thicklines%
-           \put(0,406){\line(0,1){140}}%      % single bond at 1
-           }%
-   \else\if\@tmpb A%alpha single bond
-      \yl@xdiff=31\relax
-      \yl@ydiff=-17\relax
-           \putlratom{-31}{563}{\@memberb}%   % left or right type
-           \@ifundefined{dottedline}{%
-             \put(0,406){\line(0,1){140}}%    % single bond at 1
-           }{{\thicklines%
-              \dottedline{20}(0,406)(0,546)}}%
-   \else\if\@tmpb W%beta single bond
-      \yl@xdiff=10\relax
-      \yl@ydiff=58\relax
-           \putlatom{-130}{276}{\@memberb}%   % left type
-           \put(0,406){\line(-5,-3){120}}%      % single bond at 1
-      \if@wrongbdWaL
-        \XyMTeXWarning{Wrong Bond-Modifier (W)}%
-      \fi
-   \else%
-      \yl@xdiff=31\relax
-      \yl@ydiff=-17\relax
-           \putlratom{-31}{563}{\@memberb}%   % left or right type
-           \put(0,406){\line(0,1){140}}%      % single bond at 1
-   \fi\fi\fi\fi\fi%
- \fi}%
-\def\SKbondB{%
-  \ifx\bbb\empty%
-    \ifx\ccc\empty%
-     \put(0,406){\line(5,-3){171}}%        %bond 1-2
-    \else%
-     \put(0,406){\line(5,-3){136}}%        %bond 1-2
-    \fi%
-   \else%
-    \ifx\ccc\empty%
-     \put(35,385){\line(5,-3){136}}%       %bond 1-2
-    \else%
-     \put(35,385){\line(5,-3){100}}%       %bond 1-2
-    \fi%
-   \fi}%
-\def\SKbondA{%
-  \ifx\bbb\empty%
-    \ifx\aaa\empty%
-     \put(0,406){\line(-5,-3){171}}%       %bond 1-6
-    \else%
-     \put(0,406){\line(-5,-3){136}}%       %bond 1-6
-    \fi%
-   \else%
-    \ifx\aaa\empty%
-     \put(-35,385){\line(-5,-3){136}}%     %bond 1-6
-    \else%
-     \put(-35,385){\line(-5,-3){100}}%     %bond 1-6
-    \fi%
-   \fi}%
-\def\SKbondBi{%
- \begin{picture}(0,0)(0,0)
-  \ifx\bbb\empty%
-    \ifx\ccc\empty%
-     \put(0,0){\line(5,3){171}}%           %bond 4-3
-    \else%
-     \put(0,0){\line(5,3){136}}%           %bond 4-3
-    \fi%
-  \else%
-    \ifx\ccc\empty%
-     \put(35,21){\line(5,3){138}}%         %bond 4-3
-    \else%
-     \put(35,21){\line(5,3){100}}%         %bond 4-3
-    \fi%
-  \fi\end{picture}}%
-\def\SKbondAi{%
- \begin{picture}(0,0)(0,0)
-  \ifx\bbb\empty%
-    \ifx\aaa\empty%
-     \put(0,0){\line(-5,3){171}}%          %bond 4-5
-    \else%
-     \put(0,0){\line(-5,3){136}}%          %bond 4-5
-    \fi%
-  \else%
-    \ifx\aaa\empty%
-     \put(-35,21){\line(-5,3){138}}%       %bond 4-5
-    \else%
-     \put(-35,21){\line(-5,3){100}}%        %bond 4-5
-    \fi%
-  \fi\end{picture}}%
-\def\bondB{%
-  \ifx\bbb\empty%
-   \ifx\ccc\empty%
-    \put(6,364){\line(5,-3){126}}%         %double bond 1-2
-   \else%
-    \put(6,364){\line(5,-3){100}}%         %double bond 1-2
-   \fi%
-  \else%
-   \ifx\ccc\empty%
-    \put(35,340){\line(5,-3){100}}%        %double bond 1-2
-   \else%
-    \put(35,352){\line(5,-3){100}}%        %double bond 1-2
-   \fi%                                    % line <1OO not available
-  \fi%
- }%
-\def\bondBB{%
-  \ifx\bbb\empty%
-   \ifx\ccc\empty%
-    \put(42,420){\line(5,-3){126}}%         %double bond 1-2
-   \else%
-    \put(42,420){\line(5,-3){100}}%         %double bond 1-2
-   \fi%
-  \else%
-   \ifx\ccc\empty%
-    \put(52,412){\line(5,-3){110}}%        %double bond 1-2
-   \else%
-    \put(52,412){\line(5,-3){100}}%        %double bond 1-2
-   \fi%                                    % line <1OO not available
-  \fi%
- }%
-\def\bondA{%
-  \ifx\bbb\empty%
-   \ifx\aaa\empty%
-    \put(-6,364){\line(-5,-3){126}}%        %double bond 1-6
-   \else%
-    \put(-6,364){\line(-5,-3){100}}%        %double bond 1-6
-   \fi%
-  \else%
-   \ifx\aaa\empty%
-    \put(-35,340){\line(-5,-3){100}}%       %double bond 1-6
-   \else%
-    \put(-35,352){\line(-5,-3){100}}%       %double bond 1-6
-   \fi%                                     % line <1OO not available
-  \fi%
-}%
-\def\bondAA{%
-  \ifx\bbb\empty%
-   \ifx\aaa\empty%
-    \put(-42,420){\line(-5,-3){126}}%        %double bond 1-6
-   \else%
-    \put(-42,420){\line(-5,-3){100}}%        %double bond 1-6
-   \fi%
-  \else%
-   \ifx\aaa\empty%
-    \put(-52,412){\line(-5,-3){100}}%       %double bond 1-6
-   \else%
-    \put(-52,412){\line(-5,-3){100}}%       %double bond 1-6
-   \fi%                                     % line <1OO not available
-  \fi%
-}%
- \def\bondBi{%
-  \ifx\bbb\empty%
-   \ifx\ccc\empty%
-    \put(6,42){\line(5,3){126}}           %double bond 4-3
-   \else%
-    \put(6,42){\line(5,3){100}}           %double bond 4-3
-   \fi%
-  \else%
-   \ifx\ccc\empty%
-    \put(35,66){\line(5,3){100}}%          %double bond 4-3
-   \else%
-    \put(35,60){\line(5,3){100}}%          %double bond 4-3
-   \fi%                                    % line <1OO not available
-  \fi%
-}%
- \def\bondBBi{%
-  \ifx\bbb\empty%
-   \ifx\ccc\empty%
-    \put(42,-14){\line(5,3){126}}%        %double bond 1-6
-   \else%
-    \put(30,-14){\line(5,3){100}}%        %double bond 1-6
-   \fi%
-  \else%
-   \ifx\ccc\empty%
-    \put(52,0){\line(5,3){100}}%       %double bond 1-6
-   \else%
-    \put(52,0){\line(5,3){100}}%        %double bond 4-5
-   \fi%                                    % line <1OO not available
-  \fi%
-}%
-
- \def\bondAi{%
-  \ifx\bbb\empty%
-   \ifx\aaa\empty%
-    \put(-6,42){\line(-5,3){126}}%         %double bond 4-5
-   \else%
-    \put(-6,42){\line(-5,3){100}}%         %double bond 4-5
-   \fi%
-  \else%
-   \ifx\aaa\empty%
-    \put(-35,66){\line(-5,3){100}}%        %double bond 4-5
-   \else%
-    \put(-35,60){\line(-5,3){100}}%        %double bond 4-5
-   \fi%                                    % line <1OO not available
-  \fi%
- }%
- \def\bondAAi{%
-  \ifx\bbb\empty%
-   \ifx\aaa\empty%
-    \put(-42,-14){\line(-5,3){126}}%        %double bond 1-6
-   \else%
-    \put(-42,-14){\line(-5,3){100}}%        %double bond 1-6
-   \fi%
-  \else%
-   \ifx\aaa\empty%
-    \put(-52,6){\line(-5,3){100}}%       %double bond 1-6
-   \else%
-    \put(-52,0){\line(-5,3){100}}%        %double bond 4-5
-   \fi%                                    % line <1OO not available
-  \fi%
- }%
-\newif\if@adoublebond \@adoublebondfalse
-\newif\if@bdoublebond \@bdoublebondfalse
-\newif\if@Adoublebond \@Adoublebondfalse
-\newif\if@Bdoublebond \@Bdoublebondfalse
-\def\reset@double{%
-\@adoublebondfalse\@bdoublebondfalse
-\@Adoublebondfalse\@Bdoublebondfalse}
-\newif\if@linterchainsw \@linterchainswfalse
-\newif\if@rinterchainsw \@rinterchainswfalse
-\def\reset@interchainsw{\@linterchainswfalse\@rinterchainswfalse}
-\def\@@trimethylene#1#2#3#4{%
-\leavevmode
-\iniatom\iniflag%initialize
-\test@vrtx@trimethy{#1}{#4}%
-\begin{picture}(450,480)(0,0)
-  \put(171,-303){\SKbondB}% bond between 1 and 2
-  \put(171,-303){\SKbondA}% bond between 1 and 6
-\if@adoublebond\relax\put(171,-303){\bondA}\fi
-\if@bdoublebond\relax\put(171,-303){\bondB}\fi
-\if@Adoublebond\relax\put(171,-303){\bondAA}\fi
-\if@Bdoublebond\relax\put(171,-303){\bondBB}\fi
-\test@termcnt=#3\relax
-\set@hetatom@methyl{#1}{#4}{0}{4}{0}%
-\@forsemicol\member:=#2\do{%
-\ifx\member\empty\else
-\expandafter\@m@mb@r\member;\relax%
-\expandafter\threech@r\@membera{}{}%
-\@tmpaa=\@tmpa \advance\@tmpaa by#4\relax
-\ifx\@memberb\@yl\else
-\ifcase\@tmpaa%0 omit
-\or
- \ifcase#3
-   {\if@aclip \@cliptrue \else \@clipfalse\fi
-   \put(0,0){\@methsubstdL}}%
-  \or\relax
-  \or
-   {\if@aclip \@cliptrue \else \@clipfalse\fi
-   \put(0,0){\@methsubstdL}}%
- \fi
-\or
-{\if@bclip \@acliptrue \else \@aclipfalse\fi
-  \put(171,-303){\@methsubsta}}
-\or
- \ifcase#3
-  {\if@cclip \@cliptrue\else \@clipfalse\fi
-  \put(342,0){\@methsubstd}}%
- \or
-  {\if@cclip \@cliptrue\else \@clipfalse\fi
-  \put(342,0){\@methsubstd}}%
- \or\relax
- \fi
-\fi%end of ifcase
-\fi\fi
-}%
-\end{picture}}% end of \@@trimethylene
-\def\test@vrtx@trimethy#1#2{%
-\@forsemicol\member:=#1\do{%
-\ifx\member\empty\else
-\expandafter\@m@mb@r\member;\relax%
-\expandafter\twoch@r\@membera{}%
-\@tmpaa=\@tmpa \advance\@tmpaa by#2\relax
-\ifcase\@tmpaa%
- \or \if\@tmpb s\relax \xdef\aaa{}\else\if\@tmpb h\relax
-     \xdef\aaa{@}\else\xdef\aaa{@}\fi\fi
- \or \if\@tmpb s\relax \xdef\bbb{}\else\if\@tmpb h\relax
-     \xdef\bbb{@}\else\xdef\bbb{@}\fi\fi
- \or \if\@tmpb s\relax \xdef\ccc{}\else\if\@tmpb h\relax
-     \xdef\ccc{@}\else\xdef\ccc{@}\fi\fi
-\fi\fi}}
-\def\yltrimethyleneposition#1#2#3#4{%
-\@forsemicol\member:=#1\do{%
-\ifx\member\empty\else
-\expandafter\@m@mb@r\member;\relax%
-\expandafter\twoch@r\@membera{}%
-\@tmpaa=\@tmpa \advance\@tmpaa by#4\relax
-\ifcase\@tmpaa%
- \or \def\aaa{@}%\def\aaa{\@memberb}%
- \or \def\bbb{@}%\def\bbb{\@memberb}%
- \or \def\ccc{@}%\def\ccc{\@memberb}%
-\fi\fi}%
-\@@ylswfalse%%%\@reset@ylsw
-\@forsemicol\member:=#2\do{\expandafter\@m@mb@r\member;\relax%
-\expandafter\threech@r\@membera{}{}%
-\@tmpaa=\@tmpa \advance\@tmpaa by#4\relax
-\ifx\@memberb\@yl\relax\@@ylswtrue\else\@@ylswfalse\fi
-\if@@ylsw
-\ifcase\@tmpaa%0 omit
-\or
- \ifcase#3
-   \ifx\aaa\empty
-    \gdef\@ylii{0}\gdef\@yli{0}\global\@ylswtrue% subst. on 1
-   \else
-    \if@linterchainsw%interchain position
-     \gdef\@ylii{0}\gdef\@yli{40}\global\@ylswtrue% subst. on 1
-    \else% terminal position
-     \gdef\@ylii{40}\gdef\@yli{-24}\global\@ylswtrue% subst. on 1
-    \fi
-   \fi
-  \or\relax
-  \or
-   \ifx\aaa\empty
-    \gdef\@ylii{0}\gdef\@yli{0}\global\@ylswtrue% subst. on 1
-   \else
-    \if@linterchainsw%interchain position
-     \gdef\@ylii{0}\gdef\@yli{40}\global\@ylswtrue% subst. on 1
-    \else% terminal position
-     \gdef\@ylii{40}\gdef\@yli{-24}\global\@ylswtrue% subst. on 1
-    \fi
-   \fi
- \fi
-\or
-   \ifx\bbb\empty
-    \gdef\@ylii{-171}\gdef\@yli{-103}\global\@ylswtrue% subst. on 2
-   \else
-    \gdef\@ylii{-171}\gdef\@yli{-133}\global\@ylswtrue% subst. on 2
-   \fi
-\or
- \ifcase#3
-   \ifx\ccc\empty
-    \gdef\@ylii{-342}\gdef\@yli{0}\global\@ylswtrue% subst. on 3
-   \else
-    \if@rinterchainsw%interchain position
-     \gdef\@ylii{-342}\gdef\@yli{40}\global\@ylswtrue% subst. on 3
-    \else
-     \gdef\@ylii{-382}\gdef\@yli{-24}\global\@ylswtrue% subst. on 3
-    \fi
-   \fi
- \or
-   \ifx\ccc\empty
-    \gdef\@ylii{-342}\gdef\@yli{0}\global\@ylswtrue% subst. on 3
-   \else
-    \if@rinterchainsw%interchain position
-     \gdef\@ylii{-342}\gdef\@yli{40}\global\@ylswtrue% subst. on 3
-    \else
-     \gdef\@ylii{-382}\gdef\@yli{-24}\global\@ylswtrue% subst. on 3
-    \fi
-   \fi
- \or\relax
- \fi
-\fi%end of ifcase
-\fi}}% end of \yltrimethyleneposition
-\newcount\test@termcnt
-\def\set@hetatom@methyl#1#2#3#4#5{%
-\@forsemicol\member:=#1\do{%
-\ifx\member\empty\else
-\expandafter\@m@mb@r\member;\relax%
-\expandafter\twoCH@R\@membera//%
-\ifnum#5 < 0\relax%
-\@tmpaa=-\@tmpa\relax \advance\@tmpaa by#2\relax%
-\else\@tmpaa=\@tmpa\relax \advance\@tmpaa by#2\relax \fi
-\ifnum\@tmpaa >#3\relax%
-\ifnum\@tmpaa <#4\relax%
-\ifcase\@tmpaa%
-\or%position 1 <--- position 6 of set@hetatom@sixv
- \ifnum\test@termcnt=1\else%not terminal point (left)
-  \if\@tmpb h\relax%
-     \@acliptrue%
-     \putlatom{0}{30}{\@memberb}%  % right type
-   \else\if\@tmpb s\relax%
-     \@aclipfalse%
-     \putlatom{0}{0}{\@memberb}%  % right type
-   \else\if\@tmpb a\relax%omit fused position
-   \else
-     \@acliptrue%
-     \putlatom{36}{-23}{\@memberb}% % left type
-   \fi\fi\fi
-  \fi
-\or%position 2 <--- position 1 of set@hetatom@sixv
-  \if\@tmpb h\relax%
-     \@bcliptrue%
-     \putratom{171}{53}{\@memberb}%  % right type
-   \else\if\@tmpb s\relax%
-     \@bclipfalse%
-     \putratom{171}{103}{\@memberb}%  % right type
-   \else\if\@tmpb a\relax%omit fused position
-   \else
-     \@bcliptrue%
-     \putratom{140}{65}{\@memberb}%  % right type
-   \fi\fi\fi
-\or%position 3 <--- position 2 of set@hetatom@sixv
- \ifnum\test@termcnt=2\else%not terminal point (right)
-  \if\@tmpb h\relax
-     \@ccliptrue%
-     \putratom{330}{30}{\@memberb}%  % right type
-   \else\if\@tmpb s\relax
-     \@cclipfalse%
-     \putratom{346}{0}{\@memberb}%  % right type
-   \else\if\@tmpb a\relax%omit fused position
-   \else
-     \@ccliptrue%
-     \putratom{306}{-23}{\@memberb}%  % right type
-   \fi\fi\fi
-  \fi
-\fi% end of ifcase
-\fi\fi\fi}}% end of the macro \set@hetatom@methyl
-\def\trimethylene{%
-\@ifnextchar[{\@trimethylene[@}{\@trimethylene[]}}
-\def\@trimethylene[#1]#2#3{%
-\iniflag\iniatom%
-\@reset@ylsw%
-\reset@interchainsw%
-\yltrimethyleneposition{#2}{#3}{0}{0}%
-\if@ylsw
- \yl@shiftii=\@ylii
- \yl@shifti=\@yli
- \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}(450,480)(-50,-180)
-  \iforigpt \put(-50,-180){\circle*{50}}%
-           \put(0,0){\circle{50}}%
-   \typeout{command `trimethylene' origin: %
-    (0,0) ---> (50,180)}\fi%
-\fi
-\reset@double%
-\@tfor\member:=#1\do{%
-\if\member a\relax
-\@adoublebondtrue
-\else\if\member b\relax
-\@bdoublebondtrue
-\else\if\member A\relax
-\@Adoublebondtrue
-\else\if\member B\relax
-\@Bdoublebondtrue
-\else
-  \expandafter\twoCH@@R\member//%
-    \set@fusion@trimeth
-\fi\fi\fi\fi}%
-\@wrongbdWatrue
-\@wrongbdWdfalse
-   \put(0,0){\@@trimethylene{#2}{#3}{0}{0}}%
-\end{picture}}% end of \trimethylene \@trimethylene
-\def\set@fusion@trimeth{%
-\if\@@tmpa a\relax%
-        \putlratom{0}{0}{\@@tmpb}%     % bond fused
-        \FuseWarning{-171}{-103}%
-          {\fuseAx}{\fuseAy}{\fuseBx}{\fuseBy}{a}%
-      \else\if\@@tmpa A\relax%
-        \putlratom{171}{103}{\@@tmpb}%       % bond fused
-        \FuseWarning{171}{103}%
-          {\fuseAx}{\fuseAy}{\fuseBx}{\fuseBy}{A}%
-      \else\if\@@tmpa b\relax%
-        \putlratom{171}{103}{\@@tmpb}%       % bond fused
-        \FuseWarning{-171}{103}%
-          {\fuseAx}{\fuseAy}{\fuseBx}{\fuseBy}{b}%
-      \else\if\@@tmpa B\relax%
-        \putlratom{342}{0}{\@@tmpb}%    % bond fused
-        \FuseWarning{171}{-103}%
-          {\fuseAx}{\fuseAy}{\fuseBx}{\fuseBy}{B}%
-   \fi\fi\fi\fi
-}% end of the macro \set@fusion@trimeth
-\def\@@trimethylenei#1#2#3#4{%
-\leavevmode
-\iniatom\iniflag%initialize
-\test@vrtx@trimethy{#1}{#4}%
-\begin{picture}(450,480)(0,0)
-  \put(171,0){\SKbondAi}% bond between 1 and 2
-  \put(171,0){\SKbondBi}% bond between 2 and 3
-\if@adoublebond\relax\put(171,0){\bondAi}\fi
-\if@bdoublebond\relax\put(171,0){\bondBi}\fi
-\if@Adoublebond\relax\put(171,0){\bondAAi}\fi
-\if@Bdoublebond\relax\put(171,0){\bondBBi}\fi
-\test@termcnt=#3\relax
-\set@hetatom@methyli{#1}{#4}{0}{4}{0}%
-\@forsemicol\member:=#2\do{%
-\ifx\member\empty\else
-\expandafter\@m@mb@r\member;\relax%
-\expandafter\threech@r\@membera{}{}%
-\@tmpaa=\@tmpa \advance\@tmpaa by#4\relax
-\ifx\@memberb\@yl\else
-\ifcase\@tmpaa%0 omit
-\or
- \ifcase#3
-   \put(0,-303){\@methsubstaL}%
-  \or\relax
-  \or
-   \put(0,-303){\@methsubstaL}%
- \fi
-\or
-{\if@bclip \@cliptrue \else \@clipfalse\fi
-  \put(171,0){\@methsubstd}}%
-\or
- \ifcase#3
-  {\if@cclip \@acliptrue\else \@aclipfalse\fi
-  \put(342,-303){\@methsubsta}}%
- \or
-  {\if@cclip \@acliptrue\else \@aclipfalse\fi
-  \put(342,-303){\@methsubsta}}%
- \or\relax
- \fi
-\fi%end of ifcase
-\fi\fi
-}%
-\end{picture}}% end of \@@trimethylenei
-\def\yltrimethyleneiposition#1#2#3#4{%
-\@forsemicol\member:=#1\do{%
-\ifx\member\empty\else
-\expandafter\@m@mb@r\member;\relax%
-\expandafter\twoCH@R\@membera//%
-\@tmpaa=\@tmpa \advance\@tmpaa by#4\relax
-\ifcase\@tmpaa%
- \or \def\aaa{@}%\def\aaa{\@memberb}%
- \or \def\bbb{@}%\def\bbb{\@memberb}%
- \or \def\ccc{@}%\def\ccc{\@memberb}%
-\fi%
-\fi}%
-\@@ylswfalse%%%\@reset@ylsw
-\@forsemicol\member:=#2\do{\expandafter\@m@mb@r\member;\relax%
-\expandafter\threech@r\@membera{}{}%
-\@tmpaa=\@tmpa \advance\@tmpaa by#4\relax
-\ifx\@memberb\@yl\relax\@@ylswtrue\else\@@ylswfalse\fi
-\if@@ylsw
-\ifcase\@tmpaa%0 omit
-\or%%%%%%position 1
- \ifcase#3
-   \ifx\aaa\empty
-%%    \gdef\@ylii{0}\gdef\@yli{0}\global\@ylswtrue% subst. on 1
-    \gdef\@ylii{0}\gdef\@yli{-103}\global\@ylswtrue% subst. on 1
-   \else
-    \if@linterchainsw%interchain position
-     \gdef\@ylii{0}\gdef\@yli{-133}\global\@ylswtrue% subst. on 1
-    \else% terminal position
-%%     \gdef\@ylii{40}\gdef\@yli{-24}\global\@ylswtrue% subst. on 1
-     \gdef\@ylii{40}\gdef\@yli{-79}\global\@ylswtrue% subst. on 1
-    \fi
-   \fi
-  \or\relax
-  \or
-   \ifx\aaa\empty
-%%    \gdef\@ylii{0}\gdef\@yli{0}\global\@ylswtrue% subst. on 1
-    \gdef\@ylii{0}\gdef\@yli{-103}\global\@ylswtrue% subst. on 1
-   \else
-    \if@linterchainsw%interchain position
-     \gdef\@ylii{0}\gdef\@yli{-133}\global\@ylswtrue% subst. on 1
-    \else% terminal position
-%%     \gdef\@ylii{40}\gdef\@yli{-24}\global\@ylswtrue% subst. on 1
-     \gdef\@ylii{40}\gdef\@yli{-79}\global\@ylswtrue% subst. on 1
-    \fi
-   \fi
- \fi
-\or%%%%%%%%position 2
-   \ifx\bbb\empty
-%%    \gdef\@ylii{-171}\gdef\@yli{-103}\global\@ylswtrue% subst. on 2
-    \gdef\@ylii{-171}\gdef\@yli{0}\global\@ylswtrue% subst. on 2
-   \else
-%%    \gdef\@ylii{-171}\gdef\@yli{-133}\global\@ylswtrue% subst. on 2
-    \gdef\@ylii{-171}\gdef\@yli{50}\global\@ylswtrue% subst. on 2
-   \fi
-\or%%%%%%%%position 3
- \ifcase#3
-   \ifx\ccc\empty
-%%    \gdef\@ylii{-342}\gdef\@yli{0}\global\@ylswtrue% subst. on 3
-    \gdef\@ylii{-342}\gdef\@yli{-103}\global\@ylswtrue% subst. on 3
-   \else
-    \if@rinterchainsw%interchain position
-%%     \gdef\@ylii{-342}\gdef\@yli{40}\global\@ylswtrue% subst. on 3
-     \gdef\@ylii{-342}\gdef\@yli{-133}\global\@ylswtrue% subst. on 3
-    \else
-%%     \gdef\@ylii{-382}\gdef\@yli{-24}\global\@ylswtrue% subst. on 3
-     \gdef\@ylii{-382}\gdef\@yli{-79}\global\@ylswtrue% subst. on 3
-    \fi
-   \fi
- \or
-   \ifx\ccc\empty
-    \gdef\@ylii{-342}\gdef\@yli{-103}\global\@ylswtrue% subst. on 3
-   \else
-    \if@rinterchainsw%interchain position
-     \gdef\@ylii{-342}\gdef\@yli{-133}\global\@ylswtrue% subst. on 3
-    \else
-     \gdef\@ylii{-382}\gdef\@yli{-79}\global\@ylswtrue% subst. on 3
-    \fi
-   \fi
- \or\relax
- \fi
-\fi%end of ifcase
-\fi}}% end of \yltrimethyleneiposition
-\def\set@hetatom@methyli#1#2#3#4#5{%
-\@forsemicol\member:=#1\do{%
-\ifx\member\empty\else
-\expandafter\@m@mb@r\member;\relax%
-\expandafter\twoch@r\@membera{}%
-\ifnum#5 < 0\relax%
-\@tmpaa=-\@tmpa\relax \advance\@tmpaa by#2\relax%
-\else\@tmpaa=\@tmpa\relax \advance\@tmpaa by#2\relax \fi
-\ifnum\@tmpaa >#3\relax%
-\ifnum\@tmpaa <#4\relax%
-\ifcase\@tmpaa%
-\or%position 1 <-- \set@hetatom@sixv position 5
- \ifnum\test@termcnt=1\else%not terminal point (left)
-  \if\@tmpb h\relax
-     \@acliptrue%
-     \putlatom{0}{70}{\@memberb}%  % right type
-   \else\if\@tmpb s\relax
-     \@aclipfalse%
-     \putlatom{0}{103}{\@memberb}%  % right type
-   \else\if\@tmpb a\relax%omit fused position
-   \else
-     \@acliptrue%
-     \putlatom{36}{65}{\@memberb}%  % left type
-   \fi\fi\fi
- \fi
-\or%position 2 <-- \set@hetatom@sixv position 4
-  \if\@tmpb h\relax
-     \@bcliptrue%
-     \putratom{171}{50}{\@memberb}%  % right type
-   \else\if\@tmpb s\relax
-     \@bclipfalse%
-     \putratom{171}{0}{\@memberb}%  % right type
-   \else\if\@tmpb a\relax%omit fused position
-   \else
-     \@bcliptrue%
-     \putratom{140}{-23}{\@memberb}%  % right type
-   \fi\fi\fi
-\or%position 3 <-- \set@hetatom@sixv position 3
- \ifnum\test@termcnt=2\else%not terminal point (right)
-  \if\@tmpb h\relax
-     \@ccliptrue%
-     \putratom{342}{70}{\@memberb}%  % right type
-   \else\if\@tmpb s\relax
-     \@cclipfalse%
-     \putratom{342}{103}{\@memberb}%  % right type
-   \else\if\@tmpb a\relax%omit fused position
-   \else
-     \@ccliptrue%
-     \putratom{306}{65}{\@memberb}%   % right type
-   \fi\fi\fi
-  \fi
-\fi% end of ifcase
-\fi\fi\fi}}% end of the macro \set@hetatom@methyli
-\def\trimethylenei{%
-\@ifnextchar[{\@trimethylenei[@}{\@trimethylenei[]}}
-\def\@trimethylenei[#1]#2#3{%
-\iniflag\iniatom%
-\@reset@ylsw%
-\reset@interchainsw%
-\yltrimethyleneiposition{#2}{#3}{0}{0}%
-\if@ylsw
- \yl@shiftii=\@ylii
- \yl@shifti=\@yli
- \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}(450,480)(-50,-180)
-  \iforigpt \put(-50,-180){\circle*{50}}%
-           \put(0,0){\circle{50}}%
-   \typeout{command `trimethylene' origin: %
-    (0,0) ---> (50,180)}\fi%
-\fi
-\reset@double%
-\@tfor\member:=#1\do{%
-\if\member a\relax
-\@adoublebondtrue
-\else\if\member b\relax
-\@bdoublebondtrue
-\else\if\member A\relax
-\@Adoublebondtrue
-\else\if\member B\relax
-\@Bdoublebondtrue
-\else
-  \expandafter\twoCH@@R\member//%
-    \set@fusion@trimethi
-\fi\fi\fi\fi}%
-\@wrongbdWafalse
-\@wrongbdWdtrue
-   \put(0,0){\@@trimethylenei{#2}{#3}{0}{0}}%
-\end{picture}}% end of \trimethylenei
-\def\set@fusion@trimethi{%
-\if\@@tmpa a\relax%
-        \putlratom{0}{103}{\@@tmpb}%     % bond fused
-        \FuseWarning{-171}{103}%
-          {\fuseAx}{\fuseAy}{\fuseBx}{\fuseBy}{a}%
-      \else\if\@@tmpa A\relax%
-        \putlratom{171}{0}{\@@tmpb}%       % bond fused
-        \FuseWarning{171}{-103}%
-          {\fuseAx}{\fuseAy}{\fuseBx}{\fuseBy}{A}%
-      \else\if\@@tmpa b\relax%
-        \putlratom{171}{0}{\@@tmpb}%       % bond fused
-        \FuseWarning{-171}{-103}%
-          {\fuseAx}{\fuseAy}{\fuseBx}{\fuseBy}{b}%
-      \else\if\@@tmpa B\relax%
-        \putlratom{342}{103}{\@@tmpb}%    % bond fused
-        \FuseWarning{171}{103}%
-          {\fuseAx}{\fuseAy}{\fuseBx}{\fuseBy}{B}%
-   \fi\fi\fi\fi
-}% end of the macro \set@fusion@trimethi
-\def\@@dimethylene#1#2#3#4{%
-\leavevmode
-\iniatom\iniflag%initialize
-\test@vrtx@dimethy{#1}{#4}%
-\begin{picture}(250,480)(0,0)
-  \put(171,-303){\SKbondA}% bond between 1 and 2
-\if@adoublebond
- \put(171,-303){\bondA}%upper side double bond
-\else\if@Adoublebond
- \put(171,-303){\bondAA}%lower side double bond
-\fi\fi%
-\test@termcnt=#3\relax
-\set@hetatom@methyl{#1}{#4}{0}{3}{0}%
-\@forsemicol\member:=#2\do{%
-\ifx\member\empty\else
-\expandafter\@m@mb@r\member;\relax%
-\expandafter\threech@r\@membera{}{}%
-\@tmpaa=\@tmpa \advance\@tmpaa by#4\relax
-\ifx\@memberb\@yl\else
-\ifcase\@tmpaa%0 omit
-\or
- \ifcase#3
-   {\if@aclip \@cliptrue \else \@clipfalse\fi
-   \put(0,0){\@methsubstdL}}%
-  \or\relax
-  \or
-   {\if@aclip \@cliptrue \else \@clipfalse\fi
-   \put(0,0){\@methsubstdL}}%
- \fi
-\or
- \ifcase#3
-  {\if@bclip \@acliptrue \else \@aclipfalse\fi
-   \put(171,-303){\@methsubsta}}
- \or
-  {\if@bclip \@acliptrue \else \@aclipfalse\fi
-   \put(171,-303){\@methsubsta}}
- \or\relax
- \fi
-\fi%end of ifcase
-\fi\fi%
-}%
-\end{picture}}% end of \@@dimethylene
-\def\test@vrtx@dimethy#1#2{%
-\@forsemicol\member:=#1\do{%
-\ifx\member\empty\else
-\expandafter\@m@mb@r\member;\relax%
-\expandafter\twoch@r\@membera{}%
-\@tmpaa=\@tmpa \advance\@tmpaa by#2\relax
-\ifcase\@tmpaa%
- \or \if\@tmpb s\relax \xdef\aaa{}\else\if\@tmpb h\relax
-     \xdef\aaa{@}\else\xdef\aaa{@}\fi\fi
- \or \if\@tmpb s\relax \xdef\bbb{}\else\if\@tmpb h\relax
-     \xdef\bbb{@}\else\xdef\bbb{@}\fi\fi
-\fi\fi}}
-\def\yldimethyleneposition#1#2#3#4{%
-\@forsemicol\member:=#1\do{%
-\ifx\member\empty\else
-\expandafter\@m@mb@r\member;\relax%
-\expandafter\twoch@r\@membera{}%
-\@tmpaa=\@tmpa \advance\@tmpaa by#4\relax
-\ifcase\@tmpaa%
- \or \def\aaa{\@memberb}%
- \or \def\bbb{\@memberb}%
-\fi\fi}%
-\@@ylswfalse%%%\@reset@ylsw
-\@forsemicol\member:=#2\do{%
-\ifx\member\empty\else
-\expandafter\@m@mb@r\member;\relax%
-\expandafter\threech@r\@membera{}{}%
-\@tmpaa=\@tmpa \advance\@tmpaa by#4\relax
-\ifx\@memberb\@yl\relax\@@ylswtrue\else\@@ylswfalse\fi
-\if@@ylsw
-\ifcase\@tmpaa%0 omit
-\or
- \ifcase#3
-   \ifx\aaa\empty
-    \gdef\@ylii{0}\gdef\@yli{0}\global\@ylswtrue% subst. on 1
-   \else
-    \if@linterchainsw%interchain position
-     \gdef\@ylii{0}\gdef\@yli{40}\global\@ylswtrue% subst. on 1
-    \else%terminal position
-     \gdef\@ylii{40}\gdef\@yli{-24}\global\@ylswtrue% subst. on 1
-    \fi
-   \fi
-  \or\relax
-  \or
-   \ifx\aaa\empty
-    \gdef\@ylii{0}\gdef\@yli{0}\global\@ylswtrue% subst. on 1
-   \else
-    \if@linterchainsw%interchain position
-     \gdef\@ylii{0}\gdef\@yli{40}\global\@ylswtrue% subst. on 1
-    \else%terminal position
-     \gdef\@ylii{40}\gdef\@yli{-24}\global\@ylswtrue% subst. on 1
-    \fi
-   \fi
- \fi
-\or
- \ifcase#3
-   \ifx\bbb\empty
-    \gdef\@ylii{-171}\gdef\@yli{-103}\global\@ylswtrue% subst. on 2
-   \else
-    \if@rinterchainsw%interchain position
-     \gdef\@ylii{-171}\gdef\@yli{-133}\global\@ylswtrue% subst. on 2
-    \else%terminal position
-     \gdef\@ylii{-211}\gdef\@yli{-93}\global\@ylswtrue% subst. on 2
-    \fi
-   \fi
-  \or
-   \ifx\bbb\empty
-    \gdef\@ylii{-171}\gdef\@yli{-103}\global\@ylswtrue% subst. on 2
-   \else
-    \if@rinterchainsw%interchain position
-     \gdef\@ylii{-171}\gdef\@yli{-133}\global\@ylswtrue% subst. on 2
-    \else%terminal position
-     \gdef\@ylii{-211}\gdef\@yli{-93}\global\@ylswtrue% subst. on 2
-    \fi
-   \fi
-  \or \relax
-  \fi
-\fi%end of ifcase
-\fi\fi}}% end of \yldimethyleneposition
-\def\dimethylene{%
-\@ifnextchar[{\@dimethylene[@}{\@dimethylene[]}}
-\def\@dimethylene[#1]#2#3{%
-\iniflag\iniatom%
-\@reset@ylsw%
-\reset@interchainsw%
-\yldimethyleneposition{#2}{#3}{0}{0}%
-\if@ylsw
- \yl@shiftii=\@ylii
- \yl@shifti=\@yli
- \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}(250,480)(-50,-180)
-  \iforigpt \put(-50,-180){\circle*{50}}%
-           \put(0,0){\circle{50}}%
-   \typeout{command `dimethylene' origin: %
-    (0,0) ---> (50,180)}\fi%
-\fi
-\reset@double%
-\@tfor\member:=#1\do{%
-\if\member a\relax
-\@adoublebondtrue
-\else\if\member A\relax
-\@Adoublebondtrue
-\else
-  \expandafter\twoCH@@R\member//%
-    \set@fusion@dimeth
-\fi\fi}%
-\@wrongbdWafalse
-\@wrongbdWdfalse
-   \put(0,0){\@@dimethylene{#2}{#3}{0}{0}}%
-\end{picture}}% end of \dimethylene
-\def\set@fusion@dimeth{%
-\if\@@tmpa a\relax%
-        \putlratom{0}{0}{\@@tmpb}%     % bond fused
-        \FuseWarning{-171}{-103}%
-          {\fuseAx}{\fuseAy}{\fuseBx}{\fuseBy}{a}%
- \else\if\@@tmpa A\relax%
-        \putlratom{171}{103}{\@@tmpb}%       % bond fused
-        \FuseWarning{171}{103}%
-          {\fuseAx}{\fuseAy}{\fuseBx}{\fuseBy}{A}%
- \fi\fi
-}% end of the macro \set@fusion@dimeth
-\def\@@dimethylenei#1#2#3#4{%
-\leavevmode
-\iniatom\iniflag%initialize
-\test@vrtx@dimethy{#1}{#4}%
-\begin{picture}(250,480)(0,0)
-  \put(171,0){\SKbondAi}% bond between 1 and 2
-\if@adoublebond
- \put(171,0){\bondAi}%upper side double bond
-\else\if@Adoublebond
- \put(171,0){\bondAAi}%lower side double bond
-\fi\fi%
-\test@termcnt=#3\relax
-\set@hetatom@methyli{#1}{#4}{0}{3}{0}%
-\@forsemicol\member:=#2\do{%
-\ifx\member\empty\else
-\expandafter\@m@mb@r\member;\relax%
-\expandafter\threech@r\@membera{}{}%
-\@tmpaa=\@tmpa \advance\@tmpaa by#4\relax
-\ifx\@memberb\@yl\else
-\ifcase\@tmpaa%0 omit
-\or
- \ifcase#3
-   \put(0,-303){\@methsubstaL}%
-  \or\relax
-  \or
-   \put(0,-303){\@methsubstaL}%
- \fi
-\or
- \ifcase#3
-  {\if@bclip \@cliptrue \else \@clipfalse\fi
-   \put(171,0){\@methsubstd}}
- \or
-  {\if@bclip \@cliptrue \else \@clipfalse\fi
-   \put(171,0){\@methsubstd}}
- \or\relax
- \fi
-\fi%end of ifcase
-\fi\fi%
-}%
-\end{picture}}% end of \@@dimethylenei
-\def\yldimethyleneiposition#1#2#3#4{%
-\@forsemicol\member:=#1\do{%
-\ifx\member\empty\else
-\expandafter\@m@mb@r\member;\relax%
-\expandafter\twoch@r\@membera{}%
-\@tmpaa=\@tmpa \advance\@tmpaa by#4\relax
-\ifcase\@tmpaa%
- \or \def\aaa{\@memberb}%
- \or \def\bbb{\@memberb}%
-\fi\fi}%
-\@@ylswfalse%%%\@reset@ylsw
-\@forsemicol\member:=#2\do{\expandafter\@m@mb@r\member;\relax%
-\expandafter\threech@r\@membera{}{}%
-\@tmpaa=\@tmpa \advance\@tmpaa by#4\relax
-\ifx\@memberb\@yl\relax\@@ylswtrue\else\@@ylswfalse\fi
-\if@@ylsw
-\ifcase\@tmpaa%0 omit
-\or%%%%%%%%position 1
- \ifcase#3
-   \ifx\aaa\empty
-    \gdef\@ylii{0}\gdef\@yli{-103}\global\@ylswtrue% subst. on 1
-   \else
-    \if@linterchainsw%interchain position
-     \gdef\@ylii{0}\gdef\@yli{-133}\global\@ylswtrue% subst. on 1
-    \else%terminal position
-     \gdef\@ylii{40}\gdef\@yli{-79}\global\@ylswtrue% subst. on 1
-    \fi
-   \fi
-  \or\relax
-  \or
-   \ifx\aaa\empty
-    \gdef\@ylii{0}\gdef\@yli{-103}\global\@ylswtrue% subst. on 1
-   \else
-    \if@linterchainsw%interchain position
-     \gdef\@ylii{0}\gdef\@yli{-133}\global\@ylswtrue% subst. on 1
-    \else%terminal position
-     \gdef\@ylii{40}\gdef\@yli{-79}\global\@ylswtrue% subst. on 1
-    \fi
-   \fi
- \fi
-\or%%%%%%%%position 2
- \ifcase#3
-   \ifx\bbb\empty
-    \gdef\@ylii{-171}\gdef\@yli{0}\global\@ylswtrue% subst. on 2
-   \else
-    \if@rinterchainsw%interchain position
-     \gdef\@ylii{-171}\gdef\@yli{33}\global\@ylswtrue% subst. on 2
-    \else%terminal position
- %    \gdef\@ylii{-211}\gdef\@yli{-93}\global\@ylswtrue% subst. on 2
-     \gdef\@ylii{-211}\gdef\@yli{-10}\global\@ylswtrue% subst. on 2
-    \fi
-   \fi
-  \or
-   \ifx\bbb\empty
-    \gdef\@ylii{-171}\gdef\@yli{0}\global\@ylswtrue% subst. on 2
-   \else
-    \if@rinterchainsw%interchain position
-     \gdef\@ylii{-171}\gdef\@yli{33}\global\@ylswtrue% subst. on 2
-    \else%terminal position
-     \gdef\@ylii{-211}\gdef\@yli{-10}\global\@ylswtrue% subst. on 2
-    \fi
-   \fi
-  \or \relax
-  \fi
-\fi%end of ifcase
-\fi}}% end of \yldimethyleneiposition
-\def\dimethylenei{%
-\@ifnextchar[{\@dimethylenei[@}{\@dimethylenei[]}}
-\def\@dimethylenei[#1]#2#3{%
-\iniflag\iniatom%
-\@reset@ylsw%
-\reset@interchainsw%
-\yldimethyleneiposition{#2}{#3}{0}{0}%
-\if@ylsw
- \yl@shiftii=\@ylii
- \yl@shifti=\@yli
- \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}(250,480)(-50,-180)
-  \iforigpt \put(-50,-180){\circle*{50}}%
-           \put(0,0){\circle{50}}%
-   \typeout{command `dimethylene' origin: %
-    (0,0) ---> (50,180)}\fi%
-\fi
-\reset@double%
-\@tfor\member:=#1\do{%
-\if\member a\relax
-\@adoublebondtrue
-\else\if\member A\relax
-\@Adoublebondtrue
-\else
-  \expandafter\twoCH@@R\member//%
-    \set@fusion@dimethi
-\fi\fi}%
-\@wrongbdWafalse
-\@wrongbdWdfalse
-   \put(0,0){\@@dimethylenei{#2}{#3}{0}{0}}%
-\end{picture}}% end of \dimethylenei
-\def\set@fusion@dimethi{%
-\if\@@tmpa a\relax%
-        \putlratom{0}{103}{\@@tmpb}%     % bond fused
-        \FuseWarning{-171}{103}%
-          {\fuseAx}{\fuseAy}{\fuseBx}{\fuseBy}{a}%
-   \else\if\@@tmpa A\relax%
-        \putlratom{171}{0}{\@@tmpb}%       % bond fused
-        \FuseWarning{171}{-103}%
-          {\fuseAx}{\fuseAy}{\fuseBx}{\fuseBy}{A}%
-\fi\fi
-}% end of the macro \set@fusion@dimethi
-\def\tetramethylene{%
-\@ifnextchar[{\@tetramethylene[@}{\@tetramethylene[]}}
-\def\@tetramethylene[#1]#2#3{%
-\iniflag\iniatom%
-\@reset@ylsw%
-{\@linterchainswfalse%
-\@rinterchainswtrue%
-\yltrimethyleneposition{#2}{#3}{0}{0}}%
-\if@ylsw \ifx\@@ylii\empty
-\def\@@ylii{0}\def\@@yli{0}\fi
-\else
-{\@rinterchainswfalse%
-\@linterchainswtrue%
-\yldimethyleneposition{#2}{#3}{1}{-2}}%
-\if@ylsw \ifx\@@ylii\empty
-\def\@@ylii{-342}\def\@@yli{0}\fi\fi
-\fi
-\if@ylsw
- \yl@shiftii=\@ylii
- \yl@shifti=\@yli
- \advance\yl@shiftii\@@ylii
- \advance\yl@shifti\@@yli
- \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}(900,480)(-200,-180)
-  \iforigpt \put(-200,-180){\circle*{50}}%
-           \put(0,0){\circle{50}}%
-   \typeout{command `tetramethylene' origin: %
-    (0,0) ---> (200,180)}\fi%
-\fi
-{\reset@double%
-\@tfor\member:=#1\do{%
-\if\member a\relax
-\@adoublebondtrue
-\else\if\member b\relax
-\@bdoublebondtrue
-\else\if\member A\relax
-\@Adoublebondtrue
-\else\if\member B\relax
-\@Bdoublebondtrue
-\else\if\member c\relax%dummy
-\else\if\member C\relax%dummy
-\else
-  \expandafter\twoCH@@R\member//%
-    \set@fusion@tetrameth
-\fi\fi
-\fi\fi\fi\fi}%
-\@wrongbdWatrue
-\@wrongbdWdtrue
-\put(0,0){\@@trimethylene{#2}{#3}{0}{0}}}%
-{\reset@double%
-\@tfor\member:=#1\do{%
-\if\member c\relax
-\@adoublebondtrue
-\else\if\member C\relax
-\@Adoublebondtrue
-\fi\fi}%
-\@wrongbdWafalse
-\@wrongbdWdtrue
-\put(342,0){\@@dimethylene{#2}{#3}{1}{-2}}}%
-\end{picture}}% end of \tetramethylene
-\def\set@fusion@tetrameth{%
-\if\@@tmpa a\relax%
-        \putlratom{0}{0}{\@@tmpb}%     % bond fused
-        \FuseWarning{-171}{-103}%
-          {\fuseAx}{\fuseAy}{\fuseBx}{\fuseBy}{a}%
-      \else\if\@@tmpa A\relax%
-        \putlratom{171}{103}{\@@tmpb}%       % bond fused
-        \FuseWarning{171}{103}%
-          {\fuseAx}{\fuseAy}{\fuseBx}{\fuseBy}{A}%
-      \else\if\@@tmpa b\relax%
-        \putlratom{171}{103}{\@@tmpb}%       % bond fused
-        \FuseWarning{-171}{103}%
-          {\fuseAx}{\fuseAy}{\fuseBx}{\fuseBy}{b}%
-      \else\if\@@tmpa B\relax%
-        \putlratom{342}{0}{\@@tmpb}%    % bond fused
-        \FuseWarning{171}{-103}%
-          {\fuseAx}{\fuseAy}{\fuseBx}{\fuseBy}{B}%
-      \else\if\@@tmpa c\relax%
-        \putlratom{342}{0}{\@@tmpb}%     % bond fused
-        \FuseWarning{-171}{-103}%
-          {\fuseAx}{\fuseAy}{\fuseBx}{\fuseBy}{c}%
-      \else\if\@@tmpa C\relax%
-        \putlratom{513}{103}{\@@tmpb}%       % bond fused
-        \FuseWarning{171}{103}%
-          {\fuseAx}{\fuseAy}{\fuseBx}{\fuseBy}{C}%
-   \fi\fi
-   \fi\fi\fi\fi
-}% end of the macro \set@fusion@tetrameth
-\def\tetramethylenei{%
-\@ifnextchar[{\@tetramethylenei[@}{\@tetramethylenei[]}}
-\def\@tetramethylenei[#1]#2#3{%
-\iniflag\iniatom%
-\@reset@ylsw%
-{\@linterchainswfalse%
-\@rinterchainswtrue%
-\yltrimethyleneiposition{#2}{#3}{0}{0}}%
-\if@ylsw \ifx\@@ylii\empty
-\def\@@ylii{0}\def\@@yli{0}\fi
-\else
-{\@rinterchainswfalse%
-\@linterchainswtrue%
-\yldimethyleneiposition{#2}{#3}{1}{-2}}%
-\if@ylsw \ifx\@@ylii\empty
-\def\@@ylii{-342}\def\@@yli{0}\fi\fi
-\fi
-\if@ylsw
- \yl@shiftii=\@ylii
- \yl@shifti=\@yli
- \advance\yl@shiftii\@@ylii
- \advance\yl@shifti\@@yli
- \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}(900,480)(-200,-180)
-  \iforigpt \put(-200,-180){\circle*{50}}%
-           \put(0,0){\circle{50}}%
-   \typeout{command `tetramethylene' origin: %
-    (0,0) ---> (200,180)}\fi%
-\fi
-{\reset@double%
-\@tfor\member:=#1\do{%
-\if\member a\relax
-\@adoublebondtrue
-\else\if\member b\relax
-\@bdoublebondtrue
-\else\if\member A\relax
-\@Adoublebondtrue
-\else\if\member B\relax
-\@Bdoublebondtrue
-\else\if\member c\relax%dummy
-\else\if\member C\relax%dummy
-\else
-  \expandafter\twoCH@@R\member//%
-    \set@fusion@tetramethi
-\fi\fi
-\fi\fi\fi\fi}%
-\@wrongbdWatrue
-\@wrongbdWdtrue
-\put(0,0){\@@trimethylenei{#2}{#3}{0}{0}}}
-{\reset@double%
-\@tfor\member:=#1\do{%
-\if\member c\relax
-\@adoublebondtrue
-\else\if\member C\relax
-\@Adoublebondtrue
-\fi\fi}%
-\@wrongbdWatrue
-\@wrongbdWdfalse
-\put(342,0){\@@dimethylenei{#2}{#3}{1}{-2}}}
-\end{picture}}%end of \tetramethylenei
-\def\set@fusion@tetramethi{%
-\if\@@tmpa a\relax%
-        \putlratom{0}{103}{\@@tmpb}%     % bond fused
-        \FuseWarning{-171}{103}%
-          {\fuseAx}{\fuseAy}{\fuseBx}{\fuseBy}{a}%
-      \else\if\@@tmpa A\relax%
-        \putlratom{171}{0}{\@@tmpb}%       % bond fused
-        \FuseWarning{171}{-103}%
-          {\fuseAx}{\fuseAy}{\fuseBx}{\fuseBy}{A}%
-      \else\if\@@tmpa b\relax%
-        \putlratom{171}{0}{\@@tmpb}%       % bond fused
-        \FuseWarning{-171}{-103}%
-          {\fuseAx}{\fuseAy}{\fuseBx}{\fuseBy}{b}%
-      \else\if\@@tmpa B\relax%
-        \putlratom{342}{103}{\@@tmpb}%    % bond fused
-        \FuseWarning{171}{103}%
-          {\fuseAx}{\fuseAy}{\fuseBx}{\fuseBy}{B}%
-      \else\if\@@tmpa c\relax%
-        \putlratom{342}{103}{\@@tmpb}%     % bond fused
-        \FuseWarning{-171}{103}%
-          {\fuseAx}{\fuseAy}{\fuseBx}{\fuseBy}{c}%
-      \else\if\@@tmpa C\relax%
-        \putlratom{513}{0}{\@@tmpb}%       % bond fused
-        \FuseWarning{171}{-103}%
-          {\fuseAx}{\fuseAy}{\fuseBx}{\fuseBy}{C}%
-   \fi\fi
-   \fi\fi\fi\fi
-}% end of the macro \set@fusion@tetramethi
-\def\tetramethylenecup{%
-\@ifnextchar[{\@tetramethylenecup[@}{\@tetramethylenecup[]}}
-\def\@tetramethylenecup[#1]#2#3{%
-\iniflag\iniatom%
-\@reset@ylsw%
-{\@linterchainswfalse%
-\@rinterchainswtrue%
-\yldimethyleneiposition{#2}{#3}{0}{0}}%
-\if@ylsw \ifx\@@ylii\empty
-\def\@@ylii{0}\def\@@yli{0}\fi
-\else
-{\@rinterchainswfalse%
-\@linterchainswtrue%
-\yldimethyleneposition{#2}{#3}{0}{-2}}%
-\fi
-\if@ylsw \ifx\@@ylii\empty
-\def\@@ylii{-371}\def\@@yli{0}\fi\fi
-\if@ylsw
- \yl@shiftii=\@ylii
- \yl@shifti=\@yli
- \advance\yl@shiftii\@@ylii
- \advance\yl@shifti\@@yli
- \advance\yl@shiftii\yl@xdiff
- \advance\yl@shifti\yl@ydiff
- \begin{picture}(0,0)(-\yl@shiftii,-\yl@shifti)
- \reset@yl@xydiff
-\else
-\begin{picture}(900,480)(-200,-180)
-  \iforigpt \put(-200,-180){\circle*{50}}%
-           \put(0,0){\circle{50}}%
-   \typeout{command `tetramethylenecup' origin: %
-    (0,0) ---> (200,180)}\fi%
-\fi%
-{\reset@double%
-\@tfor\member:=#1\do{%
-\if\member a\relax
-\@adoublebondtrue
-\else\if\member A\relax
-\@Adoublebondtrue
-\else\if\member b\relax%dummy
-\else\if\member B\relax%dummy
-\else\if\member c\relax%dummy
-\else\if\member C\relax%dummy
-\else
-  \expandafter\twoCH@@R\member//%
-    \set@fusion@tetracup% for all bonds
-\fi\fi\fi\fi
-\fi\fi}%
-\@wrongbdWafalse
-\@wrongbdWdtrue
-\put(0,0){\@@dimethylenei{#2}{#3}{0}{0}}}%
-{\@forsemicol\member:=#2\do{%
-\ifx\member\empty\else
-\expandafter\@m@mb@r\member;\relax%
-\expandafter\twoch@r\@membera{}%
-\ifcase\@tmpa%
- \or \relax%
- \or \if\@tmpb s\relax\else\if\@tmpb h\relax
-     \xdef\fff{@}\xdef\bbb{@}\else
-     \xdef\fff{@}\xdef\bbb{@}\fi\fi
- \or \if\@tmpb s\relax\else\if\@tmpb h\relax
-     \xdef\eee{@}\xdef\ccc{@}\else
-     \xdef\eee{@}\xdef\ccc{@}\fi\fi
-\fi\fi}%
-\put(68,171){\hskbonde}%
-\reset@double%
-\@tfor\member:=#1\do{%
- \if\member b\relax
- \@bdoublebondtrue
- \put(68,171){\hbonde}%
- \else\if\member B\relax
- \@bdoublebondtrue
- \put(68,-171){\hbondb}%
- \fi\fi}}%
-{\reset@double%
-\@tfor\member:=#1\do{%
-\if\member c\relax
-\@adoublebondtrue
-\else\if\member C\relax
-\@Adoublebondtrue
-\else\if\member d\relax
-\@bdoublebondtrue
-\else\if\member D\relax
-\@Bdoublebondtrue
-\fi\fi\fi\fi}%
- \@wrongbdWafalse
- \@wrongbdWdLtrue
-\put(371,0){\@@dimethylene{#2}{#3}{0}{-2}}}%
-\end{picture}}% end of \tetramethylenecup
-\def\set@fusion@tetracup{%
-\if\@@tmpa a\relax%
-        \putlratom{0}{103}{\@@tmpb}%     % bond fused
-        \FuseWarning{-171}{103}%
-          {\fuseAx}{\fuseAy}{\fuseBx}{\fuseBy}{a}%
-      \else\if\@@tmpa A\relax%
-        \putlratom{171}{0}{\@@tmpb}%       % bond fused
-        \FuseWarning{171}{-103}%
-          {\fuseAx}{\fuseAy}{\fuseBx}{\fuseBy}{A}%
-      \else\if\@@tmpa b\relax%
-        \putlratom{171}{0}{\@@tmpb}%       % bond fused
-        \FuseWarning{-200}{0}%
-          {\fuseAx}{\fuseAy}{\fuseBx}{\fuseBy}{b}%
-      \else\if\@@tmpa B\relax%
-        \putlratom{371}{0}{\@@tmpb}%    % bond fused
-        \FuseWarning{200}{0}%
-          {\fuseAx}{\fuseAy}{\fuseBx}{\fuseBy}{B}%
-      \else\if\@@tmpa c\relax%
-        \putlratom{371}{0}{\@@tmpb}%     % bond fused
-        \FuseWarning{-171}{-103}%
-          {\fuseAx}{\fuseAy}{\fuseBx}{\fuseBy}{c}%
-      \else\if\@@tmpa C\relax%
-        \putlratom{542}{103}{\@@tmpb}%       % bond fused
-        \FuseWarning{171}{103}%
-          {\fuseAx}{\fuseAy}{\fuseBx}{\fuseBy}{C}%
-   \fi\fi
-   \fi\fi\fi\fi
-}% end of the macro \set@fusion@tetracup
-\def\tetramethylenecap{%
-\@ifnextchar[{\@tetramethylenecap[@}{\@tetramethylenecap[]}}
-\def\@tetramethylenecap[#1]#2#3{%
-\iniflag\iniatom%
-\@reset@ylsw%
-{\@linterchainswfalse%
-\@rinterchainswtrue%
-\yldimethyleneposition{#2}{#3}{0}{0}}%
-\if@ylsw \ifx\@@ylii\empty
-\def\@@ylii{0}\def\@@yli{0}\fi
-\else
-{\@rinterchainswfalse%
-\@linterchainswtrue%
-\yldimethyleneiposition{#2}{#3}{0}{-2}}%
-\fi
-\if@ylsw \ifx\@@ylii\empty
-\def\@@ylii{-371}\def\@@yli{0}\fi\fi
-\if@ylsw
- \yl@shiftii=\@ylii
- \yl@shifti=\@yli
- \advance\yl@shiftii\@@ylii
- \advance\yl@shifti\@@yli
- \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}(900,480)(-200,-180)
-  \iforigpt \put(-200,-180){\circle*{50}}%
-           \put(0,0){\circle{50}}%
-   \typeout{command `tetramethylenecap' origin: %
-    (0,0) ---> (50,180)}\fi%
-\fi%
-{\reset@double%
-\@tfor\member:=#1\do{%
-\if\member a\relax
-\@adoublebondtrue
-\else\if\member A\relax
-\@Adoublebondtrue
-\else\if\member b\relax%dummy
-\else\if\member B\relax%dummy
-\else\if\member c\relax%dummy
-\else\if\member C\relax%dummy
-\else
-  \expandafter\twoCH@@R\member//%
-    \set@fusion@tetracap% for all bonds
-\fi\fi\fi\fi
-\fi\fi}%
-\@wrongbdWatrue
-\put(0,0){\@@dimethylene{#2}{#3}{0}{0}}}%
-{\@forsemicol\member:=#2\do{%
-\ifx\member\empty\else
-\expandafter\@m@mb@r\member;\relax%
-\expandafter\twoch@r\@membera{}%
-\ifcase\@tmpa%
- \or \relax%
- \or \if\@tmpb s\relax\else\if\@tmpb h\relax
-     \xdef\fff{@}\xdef\bbb{@}\else
-     \xdef\fff{@}\xdef\bbb{@}\fi\fi
- \or \if\@tmpb s\relax\else\if\@tmpb h\relax
-     \xdef\eee{@}\xdef\ccc{@}\else
-     \xdef\eee{@}\xdef\ccc{@}\fi\fi
-\fi\fi}%
-\put(68,-68){\hskbondb}%
-\reset@double%
-\@tfor\member:=#1\do{%
- \if\member b\relax
- \@bdoublebondtrue
- \put(68,-68){\hbondb}%
- \else\if\member B\relax
- \@bdoublebondtrue
- \put(68,274){\hbonde}%
- \fi\fi}}%
-{\reset@double%
-\@tfor\member:=#1\do{%
-\if\member c\relax
-\@adoublebondtrue
-\else\if\member C\relax
-\@Adoublebondtrue
-\else\if\member d\relax
-\@bdoublebondtrue
-\else\if\member D\relax
-\@Bdoublebondtrue
-\fi\fi\fi\fi}%
- \@wrongbdWaLtrue
-\put(371,0){\@@dimethylenei{#2}{#3}{0}{-2}}}%
-\end{picture}}% end of \tetramethylenecap
-\def\set@fusion@tetracap{%
-\if\@@tmpa a\relax%
-        \putlratom{0}{0}{\@@tmpb}%     % bond fused
-        \FuseWarning{-171}{-103}%
-          {\fuseAx}{\fuseAy}{\fuseBx}{\fuseBy}{a}%
-      \else\if\@@tmpa A\relax%
-        \putlratom{171}{103}{\@@tmpb}%       % bond fused
-        \FuseWarning{171}{103}%
-          {\fuseAx}{\fuseAy}{\fuseBx}{\fuseBy}{A}%
-      \else\if\@@tmpa b\relax%
-        \putlratom{171}{103}{\@@tmpb}%       % bond fused
-        \FuseWarning{-200}{0}%
-          {\fuseAx}{\fuseAy}{\fuseBx}{\fuseBy}{b}%
-      \else\if\@@tmpa B\relax%
-        \putlratom{371}{103}{\@@tmpb}%    % bond fused
-        \FuseWarning{200}{0}%
-          {\fuseAx}{\fuseAy}{\fuseBx}{\fuseBy}{B}%
-      \else\if\@@tmpa c\relax%
-        \putlratom{371}{103}{\@@tmpb}%     % bond fused
-        \FuseWarning{-171}{103}%
-          {\fuseAx}{\fuseAy}{\fuseBx}{\fuseBy}{c}%
-      \else\if\@@tmpa C\relax%
-        \putlratom{542}{0}{\@@tmpb}%       % bond fused
-        \FuseWarning{171}{-103}%
-          {\fuseAx}{\fuseAy}{\fuseBx}{\fuseBy}{C}%
-   \fi\fi
-   \fi\fi\fi\fi
-}% end of the macro \set@fusion@tetracap
-\def\pentamethylene{%
-\@ifnextchar[{\@pentamethylene[@}{\@pentamethylene[]}}
-\def\@pentamethylene[#1]#2#3{%
-\iniflag\iniatom%
-\@reset@ylsw%
-{\@linterchainswfalse%
-\@rinterchainswtrue%
-\yltrimethyleneposition{#2}{#3}{0}{0}}%
-\if@ylsw \ifx\@@ylii\empty
-\def\@@ylii{0}\def\@@yli{0}\fi
-\else
-{\@rinterchainswfalse%
-\@linterchainswtrue%
-\yltrimethyleneposition{#2}{#3}{1}{-2}}%
-\if@ylsw \ifx\@@ylii\empty
-\def\@@ylii{-342}\def\@@yli{0}\fi\fi
-\fi
-\if@ylsw
- \yl@shiftii=\@ylii
- \yl@shifti=\@yli
- \advance\yl@shiftii\@@ylii
- \advance\yl@shifti\@@yli
- \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}(1100,480)(-200,-180)
-  \iforigpt \put(-200,-180){\circle*{50}}%
-           \put(0,0){\circle{50}}%
-   \typeout{command `pentamethylene' origin: %
-    (0,0) ---> (200,180)}\fi%
-\fi%
-{\reset@double%
-\@tfor\member:=#1\do{%
-\if\member a\relax
-\@adoublebondtrue
-\else\if\member b\relax
-\@bdoublebondtrue
-\else\if\member A\relax
-\@Adoublebondtrue
-\else\if\member B\relax
-\@Bdoublebondtrue
-\else\if\member c\relax%dummy
-\else\if\member C\relax%dummy
-\else\if\member d\relax%dummy
-\else\if\member D\relax%dummy
-\else
-  \expandafter\twoCH@@R\member//%
-    \set@fusion@pentameth% for all bonds
-\fi\fi\fi\fi
-\fi\fi\fi\fi}%
-\@wrongbdWatrue
-\@wrongbdWdtrue
-\put(0,0){\@@trimethylene{#2}{#3}{0}{0}}}%
-{\reset@double%
-\@tfor\member:=#1\do{%
-\if\member c\relax
-\@adoublebondtrue
-\else\if\member d\relax
-\@bdoublebondtrue
-\else\if\member C\relax
-\@Adoublebondtrue
-\else\if\member D\relax
-\@Bdoublebondtrue
-\fi\fi\fi\fi}%
-\@wrongbdWatrue
-\@wrongbdWdfalse
-\put(342,0){\@@trimethylene{#2}{#3}{1}{-2}}}%
-\end{picture}}% end of \pentamethylene
-\def\set@fusion@pentameth{%
-\if\@@tmpa a\relax%
-        \putlratom{0}{0}{\@@tmpb}%     % bond fused
-        \FuseWarning{-171}{-103}%
-          {\fuseAx}{\fuseAy}{\fuseBx}{\fuseBy}{a}%
-      \else\if\@@tmpa A\relax%
-        \putlratom{171}{103}{\@@tmpb}%       % bond fused
-        \FuseWarning{171}{103}%
-          {\fuseAx}{\fuseAy}{\fuseBx}{\fuseBy}{A}%
-      \else\if\@@tmpa b\relax%
-        \putlratom{171}{103}{\@@tmpb}%       % bond fused
-        \FuseWarning{-171}{103}%
-          {\fuseAx}{\fuseAy}{\fuseBx}{\fuseBy}{b}%
-      \else\if\@@tmpa B\relax%
-        \putlratom{342}{0}{\@@tmpb}%    % bond fused
-        \FuseWarning{171}{-103}%
-          {\fuseAx}{\fuseAy}{\fuseBx}{\fuseBy}{B}%
-      \else\if\@@tmpa c\relax%
-        \putlratom{342}{0}{\@@tmpb}%     % bond fused
-        \FuseWarning{-171}{-103}%
-          {\fuseAx}{\fuseAy}{\fuseBx}{\fuseBy}{c}%
-      \else\if\@@tmpa C\relax%
-        \putlratom{513}{103}{\@@tmpb}%       % bond fused
-        \FuseWarning{171}{103}%
-          {\fuseAx}{\fuseAy}{\fuseBx}{\fuseBy}{C}%
-      \else\if\@@tmpa d\relax%
-        \putlratom{513}{103}{\@@tmpb}%     % bond fused
-        \FuseWarning{-171}{103}%
-          {\fuseAx}{\fuseAy}{\fuseBx}{\fuseBy}{d}%
-      \else\if\@@tmpa D\relax%
-        \putlratom{684}{0}{\@@tmpb}%       % bond fused
-        \FuseWarning{171}{-103}%
-          {\fuseAx}{\fuseAy}{\fuseBx}{\fuseBy}{D}%
-   \fi\fi\fi\fi
-   \fi\fi\fi\fi
-}% end of the macro \set@fusion@pentameth
-\def\pentamethylenei{%
-\@ifnextchar[{\@pentamethylenei[@}{\@pentamethylenei[]}}
-\def\@pentamethylenei[#1]#2#3{%
-\iniflag\iniatom%
-\@reset@ylsw%
-{\@linterchainswfalse%
-\@rinterchainswtrue%
-\yltrimethyleneiposition{#2}{#3}{0}{0}}%
-\if@ylsw \ifx\@@ylii\empty
-\def\@@ylii{0}\def\@@yli{0}\fi
-\else
-{\@rinterchainswfalse%
-\@linterchainswtrue%
-\yltrimethyleneiposition{#2}{#3}{1}{-2}}%
-\if@ylsw \ifx\@@ylii\empty
-\def\@@ylii{-342}\def\@@yli{0}\fi\fi
-\fi
-\if@ylsw
- \yl@shiftii=\@ylii
- \yl@shifti=\@yli
- \advance\yl@shiftii\@@ylii
- \advance\yl@shifti\@@yli
- \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}(1100,480)(-200,-180)
-  \iforigpt \put(-200,-180){\circle*{50}}%
-           \put(0,0){\circle{50}}%
-   \typeout{command `pentamethylene' origin: %
-    (0,0) ---> (200,180)}\fi%
-\fi%
-{\reset@double%
-\@tfor\member:=#1\do{%
-\if\member a\relax
-\@adoublebondtrue
-\else\if\member b\relax
-\@bdoublebondtrue
-\else\if\member A\relax
-\@Adoublebondtrue
-\else\if\member B\relax
-\@Bdoublebondtrue
-\else\if\member c\relax%dummy
-\else\if\member C\relax%dummy
-\else\if\member d\relax%dummy
-\else\if\member D\relax%dummy
-\else
-  \expandafter\twoCH@@R\member//%
-    \set@fusion@pentamethi% for all bonds
-\fi\fi\fi\fi
-\fi\fi\fi\fi}%
-\@wrongbdWatrue
-\@wrongbdWdtrue
-\put(0,0){\@@trimethylenei{#2}{#3}{0}{0}}}%
-{\reset@double%
-\@tfor\member:=#1\do{%
-\if\member c\relax
-\@adoublebondtrue
-\else\if\member d\relax
-\@bdoublebondtrue
-\else\if\member C\relax
-\@Adoublebondtrue
-\else\if\member D\relax
-\@Bdoublebondtrue
-\fi\fi\fi\fi}%
-\@wrongbdWafalse
-\@wrongbdWdtrue
-\put(342,0){\@@trimethylenei{#2}{#3}{1}{-2}}}
-\end{picture}}% end of \pentamethylenei
-\def\set@fusion@pentamethi{%
-\if\@@tmpa a\relax%
-        \putlratom{0}{103}{\@@tmpb}%     % bond fused
-        \FuseWarning{-171}{103}%
-          {\fuseAx}{\fuseAy}{\fuseBx}{\fuseBy}{a}%
-      \else\if\@@tmpa A\relax%
-        \putlratom{171}{0}{\@@tmpb}%       % bond fused
-        \FuseWarning{171}{-103}%
-          {\fuseAx}{\fuseAy}{\fuseBx}{\fuseBy}{A}%
-      \else\if\@@tmpa b\relax%
-        \putlratom{171}{0}{\@@tmpb}%       % bond fused
-        \FuseWarning{-171}{-103}%
-          {\fuseAx}{\fuseAy}{\fuseBx}{\fuseBy}{b}%
-      \else\if\@@tmpa B\relax%
-        \putlratom{342}{103}{\@@tmpb}%    % bond fused
-        \FuseWarning{171}{103}%
-          {\fuseAx}{\fuseAy}{\fuseBx}{\fuseBy}{B}%
-      \else\if\@@tmpa c\relax%
-        \putlratom{342}{103}{\@@tmpb}%     % bond fused
-        \FuseWarning{-171}{103}%
-          {\fuseAx}{\fuseAy}{\fuseBx}{\fuseBy}{c}%
-      \else\if\@@tmpa C\relax%
-        \putlratom{513}{0}{\@@tmpb}%       % bond fused
-        \FuseWarning{171}{103}%
-          {\fuseAx}{\fuseAy}{\fuseBx}{\fuseBy}{C}%
-      \else\if\@@tmpa d\relax%
-        \putlratom{513}{0}{\@@tmpb}%     % bond fused
-        \FuseWarning{-171}{-103}%
-          {\fuseAx}{\fuseAy}{\fuseBx}{\fuseBy}{d}%
-      \else\if\@@tmpa D\relax%
-        \putlratom{684}{103}{\@@tmpb}%       % bond fused
-        \FuseWarning{171}{103}%
-          {\fuseAx}{\fuseAy}{\fuseBx}{\fuseBy}{D}%
-   \fi\fi\fi\fi
-   \fi\fi\fi\fi
-}% end of the macro \set@fusion@pentamethi
-\newif\if@normorinvsw \@normorinvswfalse
-\def\set@normaldirection{%
-\@normorinvswfalse
-\let\@yltrinormorinv=\yltrimethyleneposition
-\let\@yldinormorinv=\yldimethyleneposition
-\let\@@trinormorinv=\@@trimethylene
-\let\@@dinormorinv=\@@dimethylene}
-\def\set@inversedirection{%
-\@normorinvswtrue
-\let\@yltrinormorinv=\yltrimethyleneiposition
-\let\@yldinormorinv=\yldimethyleneiposition
-\let\@@trinormorinv=\@@trimethylenei
-\let\@@dinormorinv=\@@dimethylenei}
-\def\hexamethylene{%
-\@ifnextchar[{\set@normaldirection\@hexamethylene[@}{%
-\set@normaldirection\@hexamethylene[]}}
-\def\hexamethylenei{%
-\@ifnextchar[{\set@inversedirection\@hexamethylene[@}{%
-\set@inversedirection\@hexamethylene[]}}
-\def\@hexamethylene[#1]#2#3{%
-\iniflag\iniatom%
-\@reset@ylsw%
-{\@linterchainswfalse%
-\@rinterchainswtrue%
-\@yltrinormorinv{#2}{#3}{0}{0}}%
-\if@ylsw \ifx\@@ylii\empty
-\def\@@ylii{0}\def\@@yli{0}\fi
-\else
-{\@rinterchainswtrue%
-\@linterchainswtrue%
-\@yltrinormorinv{#2}{#3}{1}{-2}}%
-\fi
-\if@ylsw \ifx\@@ylii\empty
-\def\@@ylii{-342}\def\@@yli{0}\fi
-\else
-{\@rinterchainswfalse%
-\@linterchainswtrue%
-\@yldinormorinv{#2}{#3}{1}{-4}}%
-\fi
-\if@ylsw \ifx\@@ylii\empty
-\def\@@ylii{-684}\def\@@yli{0}\fi\fi
-\if@ylsw
- \yl@shiftii=\@ylii
- \yl@shifti=\@yli
- \advance\yl@shiftii\@@ylii
- \advance\yl@shifti\@@yli
- \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}(1100,480)(-200,-180)
-  \iforigpt \put(-200,-180){\circle*{50}}%
-           \put(0,0){\circle{50}}%
-   \typeout{command `hexamethylene' origin: %
-    (0,0) ---> (200,180)}\fi%
-\fi%
-{\reset@double%
-\@tfor\member:=#1\do{%
-\if\member a\relax
-\@adoublebondtrue
-\else\if\member b\relax
-\@bdoublebondtrue
-\else\if\member A\relax
-\@Adoublebondtrue
-\else\if\member B\relax
-\@Bdoublebondtrue
-\else\if\member c\relax%dummy
-\else\if\member C\relax%dummy
-\else\if\member d\relax%dummy
-\else\if\member D\relax%dummy
-\else\if\member e\relax%dummy
-\else\if\member E\relax%dummy
-\else
-  \expandafter\twoCH@@R\member//%
-    \set@fusion@hexameth% for all bonds
-\fi\fi\fi\fi\fi\fi
-\fi\fi\fi\fi}%
-\@wrongbdWatrue
-\@wrongbdWdtrue
-\put(0,0){\@@trinormorinv{#2}{#3}{0}{0}}}%
-{\reset@double%
-\@tfor\member:=#1\do{%
-\if\member c\relax
-\@adoublebondtrue
-\else\if\member d\relax
-\@bdoublebondtrue
-\else\if\member C\relax
-\@Adoublebondtrue
-\else\if\member D\relax
-\@Bdoublebondtrue
-\fi\fi\fi\fi}%
-\@wrongbdWatrue
-\@wrongbdWdtrue
-\put(342,0){\@@trinormorinv{#2}{#3}{1}{-2}}}%
-{\reset@double%
-\@tfor\member:=#1\do{%
-\if\member e\relax
-\@adoublebondtrue
-\else\if\member E\relax
-\@Adoublebondtrue
-\fi\fi}%
-\if@normorinvsw% inverse
- \@wrongbdWatrue
- \@wrongbdWdfalse
-\else% normal
- \@wrongbdWafalse
- \@wrongbdWdtrue
-\fi
-\put(684,0){\@@dinormorinv{#2}{#3}{1}{-4}}}%
-\end{picture}}% end of \@hexamethylene
-\def\set@fusion@hexameth{%
-\if@normorinvsw
-  \if\@@tmpa e\relax%
-        \putlratom{684}{103}{\@@tmpb}%     % bond fused
-        \FuseWarning{-171}{103}%
-          {\fuseAx}{\fuseAy}{\fuseBx}{\fuseBy}{e}%
-      \else\if\@@tmpa E\relax%
-        \putlratom{855}{0}{\@@tmpb}%       % bond fused
-        \FuseWarning{171}{-103}%
-          {\fuseAx}{\fuseAy}{\fuseBx}{\fuseBy}{E}%
-      \else
-        \set@fusion@pentamethi
-  \fi\fi
-\else
-  \if\@@tmpa e\relax%
-        \putlratom{684}{0}{\@@tmpb}%     % bond fused
-        \FuseWarning{-171}{-103}%
-          {\fuseAx}{\fuseAy}{\fuseBx}{\fuseBy}{e}%
-      \else\if\@@tmpa E\relax%
-        \putlratom{855}{103}{\@@tmpb}%       % bond fused
-        \FuseWarning{171}{103}%
-          {\fuseAx}{\fuseAy}{\fuseBx}{\fuseBy}{E}%
-      \else
-        \set@fusion@pentameth
-  \fi\fi
-\fi
-}% end of the macro \set@fusion@hexameth
-\def\heptamethylene{%
-\@ifnextchar[{\set@normaldirection\@heptamethylene[@}{%
-\set@normaldirection\@heptamethylene[]}}
-\def\heptamethylenei{%
-\@ifnextchar[{\set@inversedirection\@heptamethylene[@}{%
-\set@inversedirection\@heptamethylene[]}}
-\def\@heptamethylene[#1]#2#3{%
-\iniflag\iniatom%
-\@reset@ylsw%
-{\@linterchainswfalse%
-\@rinterchainswtrue%
-\@yltrinormorinv{#2}{#3}{0}{0}}%
-\if@ylsw \ifx\@@ylii\empty
-\def\@@ylii{0}\def\@@yli{0}\fi
-\else
-{\@rinterchainswtrue%
-\@linterchainswtrue%
-\@yltrinormorinv{#2}{#3}{1}{-2}}%
-\fi
-\if@ylsw \ifx\@@ylii\empty
-\def\@@ylii{-342}\def\@@yli{0}\fi
-\else
-{\@rinterchainswfalse%
-\@linterchainswtrue%
-\@yltrinormorinv{#2}{#3}{1}{-4}}%
-\fi
-\if@ylsw \ifx\@@ylii\empty
-\def\@@ylii{-684}\def\@@yli{0}\fi\fi
-\if@ylsw
- \yl@shiftii=\@ylii
- \yl@shifti=\@yli
- \advance\yl@shiftii\@@ylii
- \advance\yl@shifti\@@yli
- \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}(1450,480)(-200,-180)
-  \iforigpt \put(-200,-180){\circle*{50}}%
-           \put(0,0){\circle{50}}%
-   \typeout{command `heptamethylene' origin: %
-    (0,0) ---> (200,180)}\fi%
-\fi%
-{\reset@double%
-\@tfor\member:=#1\do{%
-\if\member a\relax
-\@adoublebondtrue
-\else\if\member b\relax
-\@bdoublebondtrue
-\else\if\member A\relax
-\@Adoublebondtrue
-\else\if\member B\relax
-\@Bdoublebondtrue
-\else\if\member c\relax%dummy
-\else\if\member C\relax%dummy
-\else\if\member d\relax%dummy
-\else\if\member D\relax%dummy
-\else\if\member e\relax%dummy
-\else\if\member E\relax%dummy
-\else\if\member f\relax%dummy
-\else\if\member F\relax%dummy
-\else
-  \expandafter\twoCH@@R\member//%
-    \set@fusion@heptameth% for all bonds
-\fi\fi\fi\fi\fi\fi\fi\fi
-\fi\fi\fi\fi}%
-\@wrongbdWatrue
-\@wrongbdWdtrue
-\put(0,0){\@@trinormorinv{#2}{#3}{0}{0}}}%
-{\reset@double%
-\@tfor\member:=#1\do{%
-\if\member c\relax
-\@adoublebondtrue
-\else\if\member d\relax
-\@bdoublebondtrue
-\else\if\member C\relax
-\@Adoublebondtrue
-\else\if\member D\relax
-\@Bdoublebondtrue
-\fi\fi\fi\fi}%
-\@wrongbdWatrue
-\@wrongbdWdtrue
-\put(342,0){\@@trinormorinv{#2}{#3}{1}{-2}}}%
-{\reset@double%
-\@tfor\member:=#1\do{%
-\if\member e\relax
-\@adoublebondtrue
-\else\if\member E\relax
-\@Adoublebondtrue
-\else\if\member f\relax
-\@bdoublebondtrue
-\else\if\member F\relax
-\@Bdoublebondtrue
-\fi\fi\fi\fi}%
-\if@normorinvsw% inverse
-\@wrongbdWafalse
-\@wrongbdWdtrue
-\else%normal
-\@wrongbdWatrue
-\@wrongbdWdfalse
-\fi
-\put(684,0){\@@trinormorinv{#2}{#3}{1}{-4}}}%
-\end{picture}}% end of \@heptamethylene
-\def\set@fusion@heptameth{%
-\if@normorinvsw
-  \if\@@tmpa e\relax%
-        \putlratom{684}{103}{\@@tmpb}%     % bond fused
-        \FuseWarning{-171}{103}%
-          {\fuseAx}{\fuseAy}{\fuseBx}{\fuseBy}{e}%
-      \else\if\@@tmpa E\relax%
-        \putlratom{855}{0}{\@@tmpb}%       % bond fused
-        \FuseWarning{171}{-103}%
-          {\fuseAx}{\fuseAy}{\fuseBx}{\fuseBy}{E}%
-      \else\if\@@tmpa f\relax%
-        \putlratom{855}{0}{\@@tmpb}%     % bond fused
-        \FuseWarning{-171}{-103}%
-          {\fuseAx}{\fuseAy}{\fuseBx}{\fuseBy}{f}%
-      \else\if\@@tmpa F\relax%
-        \putlratom{1027}{103}{\@@tmpb}%       % bond fused
-        \FuseWarning{171}{103}%
-          {\fuseAx}{\fuseAy}{\fuseBx}{\fuseBy}{F}%
-      \else
-        \set@fusion@pentamethi
-  \fi\fi\fi\fi
-\else
-  \if\@@tmpa e\relax%
-        \putlratom{684}{0}{\@@tmpb}%     % bond fused
-        \FuseWarning{-171}{-103}%
-          {\fuseAx}{\fuseAy}{\fuseBx}{\fuseBy}{e}%
-      \else\if\@@tmpa E\relax%
-        \putlratom{855}{103}{\@@tmpb}%       % bond fused
-        \FuseWarning{171}{103}%
-          {\fuseAx}{\fuseAy}{\fuseBx}{\fuseBy}{E}%
-      \else\if\@@tmpa f\relax%
-        \putlratom{855}{103}{\@@tmpb}%     % bond fused
-        \FuseWarning{-171}{103}%
-          {\fuseAx}{\fuseAy}{\fuseBx}{\fuseBy}{f}%
-      \else\if\@@tmpa F\relax%
-        \putlratom{1027}{0}{\@@tmpb}%       % bond fused
-        \FuseWarning{171}{-103}%
-          {\fuseAx}{\fuseAy}{\fuseBx}{\fuseBy}{F}%
-      \else
-        \set@fusion@pentameth
-  \fi\fi\fi\fi
-\fi
-}% end of the macro \set@fusion@heptameth
-\def\octamethylene{%
-\@ifnextchar[{\set@normaldirection\@octamethylene[@}{%
-\set@normaldirection\@octamethylene[]}}
-\def\octamethylenei{%
-\@ifnextchar[{\set@inversedirection\@octamethylene[@}{%
-\set@inversedirection\@octamethylene[]}}
-\def\@octamethylene[#1]#2#3{%
-\iniflag\iniatom%
-\@reset@ylsw%
-{\@linterchainswfalse%
-\@rinterchainswtrue%
-\@yltrinormorinv{#2}{#3}{0}{0}}%
-\if@ylsw \ifx\@@ylii\empty
-\def\@@ylii{0}\def\@@yli{0}\fi
-\else
-{\@rinterchainswtrue%
-\@linterchainswtrue%
-\@yltrinormorinv{#2}{#3}{1}{-2}}%
-\fi
-\if@ylsw \ifx\@@ylii\empty
-\def\@@ylii{-342}\def\@@yli{0}\fi
-\else
-{\@rinterchainswtrue%
-\@linterchainswtrue%
-\@yltrinormorinv{#2}{#3}{1}{-4}}%
-\fi
-\if@ylsw \ifx\@@ylii\empty
-\def\@@ylii{-684}\def\@@yli{0}\fi
-\else
-{\@rinterchainswfalse%
-\@linterchainswtrue%
-\@yldinormorinv{#2}{#3}{1}{-6}}%
-\fi
-\if@ylsw \ifx\@@ylii\empty
-\def\@@ylii{-1026}\def\@@yli{0}\fi\fi
-\if@ylsw
- \yl@shiftii=\@ylii
- \yl@shifti=\@yli
- \advance\yl@shiftii\@@ylii
- \advance\yl@shifti\@@yli
- \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}(1620,480)(-200,-180)
-  \iforigpt \put(-200,-180){\circle*{50}}%
-           \put(0,0){\circle{50}}%
-   \typeout{command `octamethylene' origin: %
-    (0,0) ---> (200,180)}\fi%
-\fi%
-{\reset@double%
-\@tfor\member:=#1\do{%
-\if\member a\relax
-\@adoublebondtrue
-\else\if\member b\relax
-\@bdoublebondtrue
-\else\if\member A\relax
-\@Adoublebondtrue
-\else\if\member B\relax
-\@Bdoublebondtrue
-\else\if\member c\relax%dummy
-\else\if\member C\relax%dummy
-\else\if\member d\relax%dummy
-\else\if\member D\relax%dummy
-\else\if\member e\relax%dummy
-\else\if\member E\relax%dummy
-\else\if\member f\relax%dummy
-\else\if\member F\relax%dummy
-\else\if\member g\relax%dummy
-\else\if\member G\relax%dummy
-\else
-  \expandafter\twoCH@@R\member//%
-    \set@fusion@octameth% for all bonds
-\fi\fi\fi\fi\fi\fi\fi\fi\fi\fi
-\fi\fi\fi\fi}%
-\@wrongbdWatrue
-\@wrongbdWdtrue
-\put(0,0){\@@trinormorinv{#2}{#3}{0}{0}}}%
-{\reset@double%
-\@tfor\member:=#1\do{%
-\if\member c\relax
-\@adoublebondtrue
-\else\if\member d\relax
-\@bdoublebondtrue
-\else\if\member C\relax
-\@Adoublebondtrue
-\else\if\member D\relax
-\@Bdoublebondtrue
-\fi\fi\fi\fi}%
-\@wrongbdWatrue
-\@wrongbdWdtrue
-\put(342,0){\@@trinormorinv{#2}{#3}{1}{-2}}}%
-{\reset@double%
-\@tfor\member:=#1\do{%
-\if\member e\relax
-\@adoublebondtrue
-\else\if\member E\relax
-\@Adoublebondtrue
-\else\if\member f\relax
-\@bdoublebondtrue
-\else\if\member F\relax
-\@Bdoublebondtrue
-\fi\fi\fi\fi}%
-\@wrongbdWatrue
-\@wrongbdWdtrue
-\put(684,0){\@@trinormorinv{#2}{#3}{1}{-4}}}%
-{\reset@double%
-\@tfor\member:=#1\do{%
-\if\member g\relax
-\@adoublebondtrue
-\else\if\member G\relax
-\@Adoublebondtrue
-\fi\fi}%
-\if@normorinvsw% inverse
-\@wrongbdWatrue
-\@wrongbdWdfalse
-\else% normal
-\@wrongbdWafalse
-\@wrongbdWdtrue
-\fi
-\put(1026,0){\@@dinormorinv{#2}{#3}{1}{-6}}}%
-\end{picture}}% end of \@octamethylene
-\def\set@fusion@octameth{%
-\if@normorinvsw
-  \if\@@tmpa e\relax%
-        \putlratom{684}{103}{\@@tmpb}%     % bond fused
-        \FuseWarning{-171}{103}%
-          {\fuseAx}{\fuseAy}{\fuseBx}{\fuseBy}{e}%
-      \else\if\@@tmpa E\relax%
-        \putlratom{855}{0}{\@@tmpb}%       % bond fused
-        \FuseWarning{171}{-103}%
-          {\fuseAx}{\fuseAy}{\fuseBx}{\fuseBy}{E}%
-      \else\if\@@tmpa f\relax%
-        \putlratom{855}{0}{\@@tmpb}%     % bond fused
-        \FuseWarning{-171}{-103}%
-          {\fuseAx}{\fuseAy}{\fuseBx}{\fuseBy}{f}%
-      \else\if\@@tmpa F\relax%
-        \putlratom{1027}{103}{\@@tmpb}%       % bond fused
-        \FuseWarning{171}{103}%
-          {\fuseAx}{\fuseAy}{\fuseBx}{\fuseBy}{F}%
-      \else\if\@@tmpa g\relax%
-        \putlratom{1027}{103}{\@@tmpb}%     % bond fused
-        \FuseWarning{-171}{103}%
-          {\fuseAx}{\fuseAy}{\fuseBx}{\fuseBy}{g}%
-      \else\if\@@tmpa G\relax%
-        \putlratom{1198}{0}{\@@tmpb}%       % bond fused
-        \FuseWarning{171}{-103}%
-          {\fuseAx}{\fuseAy}{\fuseBx}{\fuseBy}{G}%
-      \else
-        \set@fusion@pentamethi
-  \fi\fi\fi\fi\fi\fi
-\else
-  \if\@@tmpa e\relax%
-        \putlratom{684}{0}{\@@tmpb}%     % bond fused
-        \FuseWarning{-171}{-103}%
-          {\fuseAx}{\fuseAy}{\fuseBx}{\fuseBy}{e}%
-      \else\if\@@tmpa E\relax%
-        \putlratom{855}{103}{\@@tmpb}%       % bond fused
-        \FuseWarning{171}{103}%
-          {\fuseAx}{\fuseAy}{\fuseBx}{\fuseBy}{E}%
-      \else\if\@@tmpa f\relax%
-        \putlratom{855}{103}{\@@tmpb}%     % bond fused
-        \FuseWarning{-171}{103}%
-          {\fuseAx}{\fuseAy}{\fuseBx}{\fuseBy}{f}%
-      \else\if\@@tmpa F\relax%
-        \putlratom{1027}{0}{\@@tmpb}%       % bond fused
-        \FuseWarning{171}{-103}%
-          {\fuseAx}{\fuseAy}{\fuseBx}{\fuseBy}{F}%
-      \else\if\@@tmpa g\relax%
-        \putlratom{1027}{0}{\@@tmpb}%     % bond fused
-        \FuseWarning{-171}{-103}%
-          {\fuseAx}{\fuseAy}{\fuseBx}{\fuseBy}{g}%
-      \else\if\@@tmpa G\relax%
-        \putlratom{1198}{103}{\@@tmpb}%       % bond fused
-        \FuseWarning{171}{103}%
-          {\fuseAx}{\fuseAy}{\fuseBx}{\fuseBy}{G}%
-      \else
-        \set@fusion@pentameth
-  \fi\fi\fi\fi\fi\fi
-\fi
-}% end of the macro \set@fusion@octameth
-\def\nonamethylene{%
-\@ifnextchar[{\set@normaldirection\@nonamethylene[@}{%
-\set@normaldirection\@nonamethylene[]}}
-
-\def\nonamethylenei{%
-\@ifnextchar[{\set@inversedirection\@nonamethylene[@}{%
-\set@inversedirection\@nonamethylene[]}}
-\def\@nonamethylene[#1]#2#3{%
-\iniflag\iniatom%
-\@reset@ylsw%
-{\@linterchainswfalse%
-\@rinterchainswtrue%
-\@yltrinormorinv{#2}{#3}{0}{0}}%
-\if@ylsw \ifx\@@ylii\empty
-\def\@@ylii{0}\def\@@yli{0}\fi
-\else
-{\@rinterchainswtrue%
-\@linterchainswtrue%
-\@yltrinormorinv{#2}{#3}{1}{-2}}%
-\fi
-\if@ylsw \ifx\@@ylii\empty
-\def\@@ylii{-342}\def\@@yli{0}\fi
-\else
-{\@rinterchainswtrue%
-\@linterchainswtrue%
-\@yltrinormorinv{#2}{#3}{1}{-4}}%
-\fi
-\if@ylsw \ifx\@@ylii\empty
-\def\@@ylii{-684}\def\@@yli{0}\fi
-\else
-{\@rinterchainswfalse%
-\@linterchainswtrue%
-\@yltrinormorinv{#2}{#3}{1}{-6}}%
-\fi
-\if@ylsw \ifx\@@ylii\empty
-\def\@@ylii{-1026}\def\@@yli{0}\fi\fi
-\if@ylsw
- \yl@shiftii=\@ylii
- \yl@shifti=\@yli
- \advance\yl@shiftii\@@ylii
- \advance\yl@shifti\@@yli
- \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}(1790,480)(-200,-180)
-  \iforigpt \put(-200,-180){\circle*{50}}%
-           \put(0,0){\circle{50}}%
-   \typeout{command `nonamethylene' origin: %
-    (0,0) ---> (200,180)}\fi%
-\fi%
-{\reset@double%
-\@tfor\member:=#1\do{%
-\if\member a\relax
-\@adoublebondtrue
-\else\if\member b\relax
-\@bdoublebondtrue
-\else\if\member A\relax
-\@Adoublebondtrue
-\else\if\member B\relax
-\@Bdoublebondtrue
-\else\if\member c\relax%dummy
-\else\if\member C\relax%dummy
-\else\if\member d\relax%dummy
-\else\if\member D\relax%dummy
-\else\if\member e\relax%dummy
-\else\if\member E\relax%dummy
-\else\if\member f\relax%dummy
-\else\if\member F\relax%dummy
-\else\if\member g\relax%dummy
-\else\if\member G\relax%dummy
-\else\if\member h\relax%dummy
-\else\if\member H\relax%dummy
-\else
-  \expandafter\twoCH@@R\member//%
-    \set@fusion@nonameth% for all bonds
-\fi\fi\fi\fi\fi\fi\fi\fi\fi\fi\fi\fi
-\fi\fi\fi\fi}%
-\@wrongbdWatrue
-\@wrongbdWdtrue
-\put(0,0){\@@trinormorinv{#2}{#3}{0}{0}}}%
-{\reset@double%
-\@tfor\member:=#1\do{%
-\if\member c\relax
-\@adoublebondtrue
-\else\if\member d\relax
-\@bdoublebondtrue
-\else\if\member C\relax
-\@Adoublebondtrue
-\else\if\member D\relax
-\@Bdoublebondtrue
-\fi\fi\fi\fi}%
-\@wrongbdWatrue
-\@wrongbdWdtrue
-\put(342,0){\@@trinormorinv{#2}{#3}{1}{-2}}}%
-{\reset@double%
-\@tfor\member:=#1\do{%
-\if\member e\relax
-\@adoublebondtrue
-\else\if\member E\relax
-\@Adoublebondtrue
-\else\if\member f\relax
-\@bdoublebondtrue
-\else\if\member F\relax
-\@Bdoublebondtrue
-\fi\fi\fi\fi}%
-\@wrongbdWatrue
-\@wrongbdWdtrue
-\put(684,0){\@@trinormorinv{#2}{#3}{1}{-4}}}%
-{\reset@double%
-\@tfor\member:=#1\do{%
-\if\member g\relax
-\@adoublebondtrue
-\else\if\member G\relax
-\@Adoublebondtrue
-\else\if\member h\relax
-\@bdoublebondtrue
-\else\if\member H\relax
-\@Bdoublebondtrue
-\fi\fi\fi\fi}%
-\if@normorinvsw% inverse
-\@wrongbdWafalse
-\@wrongbdWdtrue
-\else% normal
-\@wrongbdWatrue
-\@wrongbdWdfalse
-\fi
-\put(1026,0){\@@trinormorinv{#2}{#3}{1}{-6}}}%
-\end{picture}}% end of \@nonamethylene
-\def\set@fusion@nonameth{%
-\if@normorinvsw
- \if\@@tmpa h\relax%
-        \putlratom{1198}{0}{\@@tmpb}%     % bond fused
-        \FuseWarning{-171}{-103}%
-          {\fuseAx}{\fuseAy}{\fuseBx}{\fuseBy}{h}%
-      \else\if\@@tmpa H\relax%
-        \putlratom{1369}{103}{\@@tmpb}%       % bond fused
-        \FuseWarning{171}{103}%
-          {\fuseAx}{\fuseAy}{\fuseBx}{\fuseBy}{H}%
-      \else
-        \set@fusion@octameth
-  \fi\fi
-\else
- \if\@@tmpa h\relax%
-        \putlratom{1198}{103}{\@@tmpb}%     % bond fused
-        \FuseWarning{-171}{103}%
-          {\fuseAx}{\fuseAy}{\fuseBx}{\fuseBy}{h}%
-      \else\if\@@tmpa H\relax%
-        \putlratom{1369}{0}{\@@tmpb}%       % bond fused
-        \FuseWarning{171}{-103}%
-          {\fuseAx}{\fuseAy}{\fuseBx}{\fuseBy}{H}%
-      \else
-        \set@fusion@octameth
-  \fi\fi
-\fi
-}% end of the macro \set@fusion@nonameth
-\def\decamethylene{%
-\@ifnextchar[{\set@normaldirection\@decamethylene[@}{%
-\set@normaldirection\@decamethylene[]}}
-\def\decamethylenei{%
-\@ifnextchar[{\set@inversedirection\@decamethylene[@}{%
-\set@inversedirection\@decamethylene[]}}
-\def\@decamethylene[#1]#2#3{%
-\iniflag\iniatom%
-\@reset@ylsw%
-{\@linterchainswfalse%
-\@rinterchainswtrue%
-\@yltrinormorinv{#2}{#3}{0}{0}}%
-\if@ylsw \ifx\@@ylii\empty
-\def\@@ylii{0}\def\@@yli{0}\fi
-\else
-{\@rinterchainswtrue%
-\@linterchainswtrue%
-\@yltrinormorinv{#2}{#3}{1}{-2}}%
-\fi
-\if@ylsw \ifx\@@ylii\empty
-\def\@@ylii{-342}\def\@@yli{0}\fi
-\else
-{\@rinterchainswtrue%
-\@linterchainswtrue%
-\@yltrinormorinv{#2}{#3}{1}{-4}}%
-\fi
-\if@ylsw \ifx\@@ylii\empty
-\def\@@ylii{-684}\def\@@yli{0}\fi
-\else
-{\@rinterchainswtrue%
-\@linterchainswtrue%
-\@yltrinormorinv{#2}{#3}{1}{-6}}%
-\fi
-\if@ylsw \ifx\@@ylii\empty
-\def\@@ylii{-1026}\def\@@yli{0}\fi
-\else
-{\@rinterchainswfalse%
-\@linterchainswtrue%
-\@yldinormorinv{#2}{#3}{1}{-8}}%
-\fi
-\if@ylsw \ifx\@@ylii\empty
-\def\@@ylii{-1368}\def\@@yli{0}\fi\fi
-\if@ylsw
- \yl@shiftii=\@ylii
- \yl@shifti=\@yli
- \advance\yl@shiftii\@@ylii
- \advance\yl@shifti\@@yli
- \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}(1960,480)(-200,-180)
-  \iforigpt \put(-200,-180){\circle*{50}}%
-           \put(0,0){\circle{50}}%
-   \typeout{command `decamethylene' origin: %
-    (0,0) ---> (200,180)}\fi%
-\fi%
-{\reset@double%
-\@tfor\member:=#1\do{%
-\if\member a\relax
-\@adoublebondtrue
-\else\if\member b\relax
-\@bdoublebondtrue
-\else\if\member A\relax
-\@Adoublebondtrue
-\else\if\member B\relax
-\@Bdoublebondtrue
-\else\if\member c\relax%dummy
-\else\if\member C\relax%dummy
-\else\if\member d\relax%dummy
-\else\if\member D\relax%dummy
-\else\if\member e\relax%dummy
-\else\if\member E\relax%dummy
-\else\if\member f\relax%dummy
-\else\if\member F\relax%dummy
-\else\if\member g\relax%dummy
-\else\if\member G\relax%dummy
-\else\if\member h\relax%dummy
-\else\if\member H\relax%dummy
-\else\if\member i\relax%dummy
-\else\if\member I\relax%dummy
-\else
-  \expandafter\twoCH@@R\member//%
-    \set@fusion@decameth% for all bonds
-\fi\fi\fi\fi\fi\fi\fi\fi\fi\fi\fi\fi\fi\fi
-\fi\fi\fi\fi}%
-\@wrongbdWatrue
-\@wrongbdWdtrue
-\put(0,0){\@@trinormorinv{#2}{#3}{0}{0}}}%
-{\reset@double%
-\@tfor\member:=#1\do{%
-\if\member c\relax
-\@adoublebondtrue
-\else\if\member d\relax
-\@bdoublebondtrue
-\else\if\member C\relax
-\@Adoublebondtrue
-\else\if\member D\relax
-\@Bdoublebondtrue
-\fi\fi\fi\fi}%
-\@wrongbdWatrue
-\@wrongbdWdtrue
-\put(342,0){\@@trinormorinv{#2}{#3}{1}{-2}}}%
-{\reset@double%
-\@tfor\member:=#1\do{%
-\if\member e\relax
-\@adoublebondtrue
-\else\if\member E\relax
-\@Adoublebondtrue
-\else\if\member f\relax
-\@bdoublebondtrue
-\else\if\member F\relax
-\@Bdoublebondtrue
-\fi\fi\fi\fi}%
-\@wrongbdWatrue
-\@wrongbdWdtrue
-\put(684,0){\@@trinormorinv{#2}{#3}{1}{-4}}}%
-{\reset@double%
-\@tfor\member:=#1\do{%
-\if\member g\relax
-\@adoublebondtrue
-\else\if\member G\relax
-\@Adoublebondtrue
-\else\if\member h\relax
-\@bdoublebondtrue
-\else\if\member H\relax
-\@Bdoublebondtrue
-\fi\fi\fi\fi}%
-\@wrongbdWatrue
-\@wrongbdWdtrue
-\put(1026,0){\@@trinormorinv{#2}{#3}{1}{-6}}}%
-{\reset@double%
-\@tfor\member:=#1\do{%
-\if\member i\relax
-\@adoublebondtrue
-\else\if\member I\relax
-\@Adoublebondtrue
-\fi\fi}%
-\if@normorinvsw% inverse
-\@wrongbdWatrue
-\@wrongbdWdfalse
-\else% normal
-\@wrongbdWafalse
-\@wrongbdWdtrue
-\fi
-\put(1368,0){\@@dinormorinv{#2}{#3}{1}{-8}}}%
-\end{picture}}% end \@decamethylene
-\def\set@fusion@decameth{%
-\if@normorinvsw
- \if\@@tmpa h\relax%
-        \putlratom{1198}{0}{\@@tmpb}%     % bond fused
-        \FuseWarning{-171}{-103}%
-          {\fuseAx}{\fuseAy}{\fuseBx}{\fuseBy}{h}%
-      \else\if\@@tmpa H\relax%
-        \putlratom{1369}{103}{\@@tmpb}%       % bond fused
-        \FuseWarning{171}{103}%
-          {\fuseAx}{\fuseAy}{\fuseBx}{\fuseBy}{H}%
-      \else\if\@@tmpa i\relax%
-        \putlratom{1369}{103}{\@@tmpb}%       % bond fused
-        \FuseWarning{-171}{103}%
-          {\fuseAx}{\fuseAy}{\fuseBx}{\fuseBy}{i}%
-      \else\if\@@tmpa I\relax%
-        \putlratom{1540}{0}{\@@tmpb}%       % bond fused
-        \FuseWarning{171}{-103}%
-          {\fuseAx}{\fuseAy}{\fuseBx}{\fuseBy}{I}%
-      \else
-        \set@fusion@octameth
-  \fi\fi\fi\fi
-\else
- \if\@@tmpa h\relax%
-        \putlratom{1198}{103}{\@@tmpb}%     % bond fused
-        \FuseWarning{-171}{103}%
-          {\fuseAx}{\fuseAy}{\fuseBx}{\fuseBy}{h}%
-      \else\if\@@tmpa H\relax%
-        \putlratom{1369}{0}{\@@tmpb}%       % bond fused
-        \FuseWarning{171}{-103}%
-          {\fuseAx}{\fuseAy}{\fuseBx}{\fuseBy}{H}%
-      \else\if\@@tmpa i\relax%
-        \putlratom{1369}{0}{\@@tmpb}%     % bond fused
-        \FuseWarning{-171}{-103}%
-          {\fuseAx}{\fuseAy}{\fuseBx}{\fuseBy}{i}%
-      \else\if\@@tmpa I\relax%
-        \putlratom{1540}{103}{\@@tmpb}%       % bond fused
-        \FuseWarning{171}{103}%
-          {\fuseAx}{\fuseAy}{\fuseBx}{\fuseBy}{I}%
-      \else
-        \set@fusion@octameth
-  \fi\fi\fi\fi
-\fi%
-}% end of the macro \set@fusion@decameth
-\endinput
-%%
-%% End of file `methylen.sty'.
diff --git a/Master/texmf-dist/tex/latex/xymtex/polymers.sty b/Master/texmf-dist/tex/latex/xymtex/polymers.sty
deleted file mode 100644
index 4a73e25db83..00000000000
--- a/Master/texmf-dist/tex/latex/xymtex/polymers.sty
+++ /dev/null
@@ -1,231 +0,0 @@
-%%
-%% This is file `polymers.sty',
-%% generated with the docstrip utility.
-%%
-%% The original source files were:
-%%
-%% polymers.dtx  (with options: `polymers')
-%% 
-%% This is a generated file.
-%% 
-%% Copyright 1996,1998 by Shinsaku Fujita
-%% 
-%% This file is part of the XyMTeX system.
-%% =======================================
-%% 
-%% Version 1.01 Released on August 16, 1996
-%% Version 1.02 Released on October 31, 1996 (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: polymers.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{polymers}
-\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{Westbond}{\input aliphat.sty\relax}{}
-\@ifundefined{bzdrv}{\input carom.sty\relax}{}
-\unitlength=0.1pt
-\def\@forsemicol#1:=#2\do#3{%
-%% \edef\@fortmp{#2}\ifx\@fortmp\@empty%
-  \expandafter\def\expandafter\@fortmp\expandafter{#2}%
-  \ifx\@fortmp\@empty%
-    \else%
-    \expandafter\@forl@@p#2;\@nil;\@nil\@@#1{#3}\fi}
-\def\leftPMdelim#1{$\mathstrut #1$}
-\def\leftpmdelim{\leftPMdelim{\biggm(}}
-\def\rightPMdelim#1#2{%
- $\mathstrut #1_{\mkern-5mu #2}$}
-\def\rightpmdelim#1{\rightPMdelim{\biggm)}{#1}}
-\def\leftPolymer#1#2{%
-\begin{picture}(0,0)(0,0)
-\putlatom{0}{0}{#2}
-\putlatom{120}{0}{$#1$}
-\end{picture}}
-\def\leftpolymer#1{\leftPolymer{\biggm(}{#1}}
-\def\rightPolymer#1#2#3{%
-\begin{picture}(0,0)(0,0)
-\putratom{0}{0}{#2}
-\putratom{-150}{0}{%
- $\mathstrut#1_{\mkern-2mu #3}$}
-\end{picture}}
-\def\rightpolymer#1#2{\rightPolymer{\biggm)}{#1}{#2}}
-\def\leftsqrPolymer#1#2{%
-\begin{picture}(0,0)(0,0)
-\putlatom{0}{0}{#2}
-\putlatom{120}{0}{$#1$}
-\end{picture}}
-\def\leftSqrpolymer#1{\leftsqrPolymer{\Biggm[}{#1}}
-\def\rightsqrPolymer#1#2#3{%
-\begin{picture}(0,0)(0,0)
-\putratom{0}{0}{#2}
-\putratom{-150}{0}{%
- $\mathstrut #1_{#3}$}
-\end{picture}}
-\def\rightSqrpolymer#1#2{\rightsqrPolymer{\Biggm]}{#1}{#2}}
-\def\lsqrdelimiter#1{%
-\hbox{\vrule \@width\fboxrule
-$\vcenter to#1{%
-\hrule \@height\fboxrule \@width\fboxsep
-\vfill
-\hrule \@height\fboxrule \@width\fboxsep}$}}
-\def\leftsqrpolymer#1{%
- \leftsqrPolymer{\lsqrdelimiter{300\unitlength}}{#1}}
-\def\rsqrdelimiter#1{%
-\hbox{$\vcenter to#1{%
-\hrule \@height\fboxrule \@width\fboxsep \vfill
-\hrule \@height\fboxrule \@width\fboxsep}$\kern-\fboxrule
-\vrule \@width\fboxrule\kern2pt}}
-\def\rightsqrpolymer#1#2{%
-\rightsqrPolymer{\rsqrdelimiter{300\unitlength}}{#1}{#2}}
-\long\def\@sqrpolymer#1#2#3{%
-\begingroup \fboxrule=#1
- \leavevmode\setbox\@tempboxa\hbox{#2}\@tempdima\fboxrule
-    \advance\@tempdima \fboxsep \advance\@tempdima \dp\@tempboxa
- \@tempdimb=\wd\@tempboxa
- \advance\@tempdimb by \fboxsep
- \advance\@tempdimb by \fboxsep
- \advance\@tempdimb by \fboxrule
- \advance\@tempdimb by \fboxrule
-   \hbox{\lower \@tempdima\hbox
-  {\vbox{
-  \hbox to\@tempdimb{%
-  \vrule \@height \fboxrule \@width\fboxsep\hfill
-  \vrule \@height \fboxrule \@width\fboxsep}
-  \nointerlineskip
-          \hbox{\vrule \@width \fboxrule \hskip\fboxsep
-          \vbox{\vskip\fboxsep \copy\@tempboxa\vskip\fboxsep}\hskip
-                 \fboxsep\vrule \@width \fboxrule}
-  \nointerlineskip
-  \hbox to\@tempdimb{%
-  \vrule \@height \fboxrule \@width\fboxsep\hfill
-  \vrule \@height \fboxrule \@width\fboxsep}}}}%
-\kern2pt\lower\@tempdima\hbox{\scriptsize$#3$}\endgroup}
-\long\def\sqrpolymer#1#2{\@sqrpolymer{0.4pt}{#1}{#2}}
-\long\def\Sqrpolymer#1#2{\@sqrpolymer{1pt}{#1}{#2}}
-\long\def\mpolymer#1#2{%
- \leavevmode\setbox\@tempboxa\hbox{#1}\@tempdima\fboxrule
-  \advance\@tempdima \fboxsep \advance\@tempdima \dp\@tempboxa
-  \hbox{\lower \@tempdima\hbox{\vbox{\hbox{\hskip\fboxsep%
-  $\left(\vcenter{\vskip\fboxsep \copy\@tempboxa\vskip\fboxsep}%
-  \right)_{#2}$}}}}}
-\def\WestPbond{%
-\begin{picture}(100,100)(0,0)
-\put(-100,0){\Westbond}
-\put(-60,0){\line(-1,0){90}}
-\end{picture}}
-\def\EastPbond{%
-\begin{picture}(100,100)(0,0)
-\put(100,0){\Eastbond}
-\put(60,0){\line(1,0){90}}
-\end{picture}}
-\def\sbond{%
-\begin{picture}(160,0)(0,0)
-\put(0,33){\line(1,0){160}}
-\end{picture}}
-\newif\if@centbondsw \@centbondswfalse
-\newif\if@centatswi \@centatswifalse
-\newif\if@centatswii \@centatswiifalse
-\def\polyethylene{\@ifnextchar[{\@polyethylene}{\@polyethylene[]}}
-\def\@polyethylene[#1]#2#3{%
- \begin{picture}(1100,600)(-400,-300)%
-  \iforigpt \put(-400,-300){\circle*{50}}%
-           \put(-\noshift,-\noshift){\circle{50}}%
-   \typeout{command `polyethylene' origin: %
-    (\the\noshift,\the\noshift) ---> (400,300)}\fi%
-\def\@@@temp{#1}
-\ifx\@@@temp\empty\else
-\@tfor\member:=#1\do{%
-   \expandafter\twoch@@r\member{}{}%
-   \ifcase\@@tmpa
-    \or \relax \putratom{47}{50}{\scriptsize\@@tmpb}%
-    \or \relax \putratom{347}{50}{\scriptsize\@@tmpb}%
-\fi}\fi
-\@forsemicol\member:=#2\do{%
-\ifx\member\empty\else
-\expandafter\@m@mb@r\member;\relax%
-   \expandafter\threech@r\@membera{}{}%
-   \ifcase\@tmpa \global\@centbondswtrue \put(20,0){\Eastbond}%
-   \or \global\@centatswitrue \putlratom{-40}{-33}{\@memberb}%
-   \or \global\@centatswiitrue \putlratom{260}{-33}{\@memberb}%
-\fi\fi}%
-\if@centatswi \else \putlratom{-40}{-33}{C}\fi
-\if@centatswii \else \putlratom{260}{-33}{C}\fi
-\if@centbondsw \else \put(70,0){\line(1,0){160}}\fi
-\global\@centbondswfalse
-\global\@centatswifalse
-\global\@centatswiifalse
-\gdef\numrepeated{x}
-\@forsemicol\member:=#3\do{%
-\ifx\member\empty\else
-\expandafter\@m@mb@r\member;\relax%
-\expandafter\threech@r\@membera{}{}%
-\ifcase\@tmpa \gdef\numrepeated{\@memberb}%
-\or\put(0,0){\Northbond}%
-\or\put(0,0){\WestPbond}%
-\or\put(0,0){\Southbond}%
-\or\put(300,0){\Southbond}%
-\or\put(300,0){\EastPbond}%
-\or\put(300,0){\Northbond}%
-\fi\fi}%end of ifcase
-\put(-200,-33){\leftpmdelim}
-\put(400,-33){\rightpmdelim{\numrepeated}}
-\end{picture}}%end of macro polyethylene
-\def\polystyrene{\@ifnextchar[{\@polystyrene}{\@polystyrene[]}}
-\def\@polystyrene[#1]#2#3#4{%
-\begin{picture}(1100,1200)(0,-640)%
-  \iforigpt \put(0,-640){\circle*{50}}%
-           \put(-\noshift,-\noshift){\circle{50}}%
-   \typeout{command `polystyrene' origin: %
-    (\the\noshift,\the\noshift) ---> (0,640)}\fi%
-\begingroup \origptfalse
-\put(0,0){\polyethylene[#1]{#2}{#3}}%
-\put(700,0){\line(0,1){240}}%
-\put(300,-646){\bzdrv{#4}}%
-\endgroup
-\end{picture}}%end of macro polystyrene
-\endinput
-%%
-%% End of file `polymers.sty'.
diff --git a/Master/texmf-dist/tex/latex/xymtex/xymtex.sty b/Master/texmf-dist/tex/latex/xymtex/xymtex.sty
deleted file mode 100644
index e529da86c9a..00000000000
--- a/Master/texmf-dist/tex/latex/xymtex/xymtex.sty
+++ /dev/null
@@ -1,85 +0,0 @@
-% xymtex.sty
-% Copyright (C) 1993, 1966, 1998 by Shinsaku Fujita, all rights reserved.
-% %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
-% \typeout{XyMTeX for Drawing Chemical Structural Formulas. Version 1.00}
-% \typeout{       -- Released December 1, 1993 by Shinsaku Fujita}
-% \typeout{XyMTeX for Drawing Chemical Structural Formulas. Version 1.00a}
-% \typeout{       -- Released May 22, 1996 by Shinsaku Fujita}
-% \typeout{XyMTeX for Drawing Chemical Structural Formulas. Version 1.02}
-% \typeout{       -- Released October 31, 1998 by Shinsaku Fujita}
-% %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
-% \def\j@urnalname{xymtex.sty}
-% \def\versi@ndate{May 22, 1996}
-% \def\versi@nno{ver1.00a}
-% \def\copyrighth@lder{SF} % Shinsaku Fujita
-% %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
-% \def\j@urnalname{xymtex.sty}
-% \def\versi@ndate{October 31, 1998}
-% \def\versi@nno{ver1.02}
-% \def\copyrighth@lder{SF} % Shinsaku Fujita
-% %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
-%
-% This file is a part of the macro package ``XyMTeX'' which has been 
-% designed for typesetting chemical structural formulas.
-%
-% This file is to be contained in the ``xymtex'' directory which is 
-% an input directory for TeX. It is a LaTeX optional style file and 
-% should be used only within LaTeX, because several macros of the file 
-% are based on LaTeX commands. 
-%
-% For the review of XyMTeX, see
-%  (1)  Shinsaku Fujita, ``Typesetting structural formulas with the text
-%    formatter TeX/LaTeX'', Computers and Chemistry, 18, 109--116 (1994). 
-% The following book deals with an application of TeX/LaTeX to 
-% preparation of manuscripts of chemical fields:
-%  (2)  Shinsaku Fujita, ``LaTeX for Chemists and Biochemists'' 
-%    Tokyo Kagaku Dozin, Tokyo (1993) [in Japanese].  
-%  (3)  Shinskau Fujita, ``XyMTeX for drwoing chemical structural 
-%    formulas'', TUGboat, 16(1), 80--88 (1995).
-%
-% Copying of this file is authorized only if either
-%  (1) you make absolutely no changes to your copy, including name and 
-%     directory name; or
-%  (2) if you do make changes, 
-%     (a) you name it something other than the names included in the 
-%         ``xymtex'' directory and 
-%     (b) you are requested to leave this notice intact.
-% This restriction ensures that all standard styles are identical.
-%
-% Please report any bugs, comments, suggestions, etc. to:
-%   Shinsaku Fujita, 
-%   Ashigara Research Laboratories, Fuji Photo Film Co., Ltd., 
-%   Minami-Ashigara, Kanagawa-ken, 250-01, Japan.
-%
-% New address:
-%   Shinsaku Fujita, 
-%   Department of Chemistry and Materials Technology, 
-%   Kyoto Institute of Technology, \\
-%   Matsugasaki, Sakyoku, Kyoto, 606 Japan
-% %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
-\typeout{XyMTeX for Drawing Chemical Structural Formulas. Version 2.00}
-\typeout{       -- Released December 25, 1998 by Shinsaku Fujita}
-\def\j@urnalname{xymtex.sty}
-\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]}
-
-\usepackage{epic}
-\usepackage{chemstr}
-\usepackage{carom}
-\usepackage{hetarom}
-\usepackage{hetaromh}
-\usepackage{lowcycle}
-\usepackage{ccycle}
-\usepackage{hcycle}
-\usepackage{aliphat}
-\usepackage{locant}
-\usepackage{polymers}
-\usepackage{methylen}
-\usepackage{fusering}
-
-\endinput
-
\ No newline at end of file