summaryrefslogtreecommitdiff
path: root/Master/texmf-dist/tex/latex/xymtex/hetaromh.sty
diff options
context:
space:
mode:
Diffstat (limited to 'Master/texmf-dist/tex/latex/xymtex/hetaromh.sty')
-rw-r--r--Master/texmf-dist/tex/latex/xymtex/hetaromh.sty2435
1 files changed, 0 insertions, 2435 deletions
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'.