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