%%
%% This is file `carom.sty',
%% generated with the docstrip utility.
%%
%% The original source files were:
%%
%% carom.dtx  (with options: `carom')
%% 
%% This is a generated file.
%% 
%% Copyright 1996, 1988, 2000 by Shinsaku Fujita
%% 
%% This file is part of the XyMTeX system.
%% =======================================
%% 
%% Version 1.01 Released on August 16, 1996
%% Version 1.02 Released on October 31, 1998
%% Version 2.00 Released on December 25, 1998
%% Version 2.00a Released on June 14, 2000
%% 
%% Copyright (C) 1996,1998,2000 by Shinsaku Fujita, all rights reserved.
%% This style file is created for drawing chemical structural formulas
%% This style file is to be contained in the ``xymtex'' directory which
%% is an input directory for TeX.
%% 
%% Copying of this file is authorized only if either
%% 
%%  (1) you make absolutely no changes to your copy, including name and
%%      directory name
%%  (2) if you do make changes,
%%      (a) you name it something other than the names included in the
%%          ``xymtex'' directory and
%%      (b) you acknowledge the original name.
%%  This restriction ensures that all standard styles are identical.
%% 
%% =======================================
%% 
%% This file contains several codes modified from latex.tex (LaTeX2.09)
%% and from latex.ltx (a LaTeX2e), the reused parts of which are subject to
%% Copyright 1994 the LaTeX3 project and the individual authors (For further
%% copyright information see the file legal.txt of the LaTeX2e standard
%% distribution, and any other copyright indicated in this file.)
%% 
%% File: carom.dtx
%% \CharacterTable
%%  {Upper-case    \A\B\C\D\E\F\G\H\I\J\K\L\M\N\O\P\Q\R\S\T\U\V\W\X\Y\Z
%%   Lower-case    \a\b\c\d\e\f\g\h\i\j\k\l\m\n\o\p\q\r\s\t\u\v\w\x\y\z
%%   Digits        \0\1\2\3\4\5\6\7\8\9
%%   Exclamation   \!     Double quote  \"     Hash (number) \#
%%   Dollar        \$     Percent       \%     Ampersand     \&
%%   Acute accent  \'     Left paren    \(     Right paren   \)
%%   Asterisk      \*     Plus          \+     Comma         \,
%%   Minus         \-     Point         \.     Solidus       \/
%%   Colon         \:     Semicolon     \;     Less than     \<
%%   Equals        \=     Greater than  \>     Question mark \?
%%   Commercial at \@     Left bracket  \[     Backslash     \\
%%   Right bracket \]     Circumflex    \^     Underscore    \_
%%   Grave accent  \`     Left brace    \{     Vertical bar  \|
%%   Right brace   \}     Tilde         \~}
\typeout{XyMTeX for Drawing Chemical Structural Formulas. Version 2.00}
\typeout{       -- Released December 25, 1998 by Shinsaku Fujita}
\def\j@urnalname{carom}
\def\versi@ndate{June 14, 2000}
\def\versi@nno{ver2.00a}
\def\copyrighth@lder{SF} % Shinsaku Fujita
\typeout{XyMTeX Macro File `\j@urnalname' (\versi@nno) <\versi@ndate>%
\space[\copyrighth@lder]}
\@ifundefined{setsixringv}{\input chemstr.sty\relax}{}
\@ifundefined{decaheterov}{\input hetarom.sty\relax}{}
\@ifundefined{decaheteroh}{\input hetaromh.sty\relax}{}
\unitlength=0.1pt
\def\cyclohexanev{\@ifnextchar[{\@cyclohexanev[@}{\@cyclohexanev[@]}}
\def\@cyclohexanev[#1]#2{\sixheterov[#1]{}{#2}}
\def\cyclohexaneh{\@ifnextchar[{\@cyclohexaneh[@}{\@cyclohexaneh[@]}}
\def\@cyclohexaneh[#1]#2{\sixheteroh[#1]{}{#2}}
\def\bzdrv{\@ifnextchar[{\@bzdrv}{\@bzdrv[r]}}
\def\@bzdrv[#1]#2{%
\iforigpt \typeout{command `bzdrv' is based on `cyclohexanev'.}\fi%
\expandafter\twoCH@R#1//%
\if\@tmpa r% right-handed set of double bonds
 \ifx\@tmpb\empty
  \cyclohexanev[bdf]{#2}%
 \fi
\else\if\@tmpa l%left-handed set of double bonds
 \ifx\@tmpb\empty
  \cyclohexanev[ace]{#2}%
 \fi
\else\if\@tmpa c%aromatic circle
 \ifx\@tmpb\empty
  \cyclohexanev[A]{#2}%
 \fi
\else\if\@tmpa p%p-quinone
 \if\@tmpb a% (A)
  \cyclohexanev[be]{#2}%
 \else\ifx\@tmpb\empty% (A)
  \cyclohexanev[be]{#2}%
 \else\if\@tmpb b% (B)
  \cyclohexanev[cf]{#2}%
 \else\if\@tmpb c% (C)
  \cyclohexanev[ad]{#2}%
 \fi\fi\fi\fi%
\else\if\@tmpa o%o-quinone
  \if\@tmpb a% (A)%
   \cyclohexanev[ce]{#2}%
  \else\ifx\@tmpb\empty% (A)
   \cyclohexanev[ce]{#2}%
  \else\if\@tmpb b%o-quinone (B)
   \cyclohexanev[df]{#2}%
  \else\if\@tmpb c%o-quinone (C)
   \cyclohexanev[ae]{#2}%
  \else\if\@tmpb d%o-quinone (D)
   \cyclohexanev[bf]{#2}%
  \else\if\@tmpb e%o-quinone (E)
   \cyclohexanev[ac]{#2}%
  \else\if\@tmpb f%o-quinone (F)
   \cyclohexanev[bd]{#2}%
  \fi\fi\fi\fi\fi\fi\fi%
\else% added 1998/11/15 by S. Fujita
   \cyclohexanev[@#1]{#2}%
\fi\fi\fi\fi\fi%
}%               %end of \bzdrv macro
\def\bzdrh{\@ifnextchar[{\@bzdrh}{\@bzdrh[r]}}
\def\@bzdrh[#1]#2{%
\iforigpt \typeout{command `bzdrh' is based on `cyclohexaneh'.}\fi%
\expandafter\twoCH@R#1//%
\if\@tmpa r% right-handed set of double bonds
  \cyclohexaneh[bdf]{#2}%
\else\if\@tmpa l%left-handed set of double bonds
  \cyclohexaneh[ace]{#2}%
\else\if\@tmpa c%aromatic circle
  \cyclohexaneh[A]{#2}%
\else\if\@tmpa p%p-quinone
 \if\@tmpb a% (A)
  \cyclohexaneh[be]{#2}%
 \else\ifx\@tmpb\empty% (A)
  \cyclohexaneh[be]{#2}%
 \else\if\@tmpb b% (B)
  \cyclohexaneh[cf]{#2}%
 \else\if\@tmpb c% (C)
  \cyclohexaneh[ad]{#2}%
 \fi\fi\fi\fi%
\else\if\@tmpa o%o-quinone
  \if\@tmpb a% (A)%
   \cyclohexaneh[ce]{#2}%
  \else\ifx\@tmpb\empty% (A)
   \cyclohexaneh[ce]{#2}%
  \else\if\@tmpb b%o-quinone (B)
   \cyclohexaneh[df]{#2}%
  \else\if\@tmpb c%o-quinone (C)
   \cyclohexaneh[ae]{#2}%
  \else\if\@tmpb d%o-quinone (D)
   \cyclohexaneh[bf]{#2}%
  \else\if\@tmpb e%o-quinone (E)
   \cyclohexaneh[ac]{#2}%
  \else\if\@tmpb f%o-quinone (F)
   \cyclohexaneh[bd]{#2}%
  \fi\fi\fi\fi\fi\fi\fi%
\else% added 1998/11/15 by S. Fujita
   \cyclohexaneh[@#1]{#2}%
\fi\fi\fi\fi\fi%
}%               %end of \bzdrh macro
\def\decalinev{\@ifnextchar[{\@decalinev[@}{\@decalinev[@]}}
\def\@decalinev[#1]#2{%
\iforigpt \typeout{command `decalinev' is based on `decaheterov'.}\fi%
\decaheterov[#1]{}{#2}}
\def\decalinevb{\@ifnextchar[{\@decalinevb[@}{\@decalinevb[@]}}
\def\@decalinevb[#1]#2{%
\iforigpt \typeout{command `decalinevb' is based on `decaheterovb'.}\fi%
\decaheterovb[#1]{}{#2}}
\def\decalinevt{\@ifnextchar[{\@decalinevt[@}{\@decalinevt[@]}}
\def\@decalinevt[#1]#2{%
\iforigpt \typeout{command `decalinevt' is based on `decaheterovt'.}\fi%
\decaheterovt[#1]{}{#2}}
\def\decalineh{\@ifnextchar[{\@decalineh[@}{\@decalineh[@]}}
\def\@decalineh[#1]#2{%
\iforigpt \typeout{command `decalineh' is based on `decaheteroh'.}\fi%
\decaheteroh[#1]{}{#2}}
\def\naphdrv{\@ifnextchar[{\@naphdrv}{\@naphdrv[r]}}
\def\@naphdrv[#1]#2{%
\iforigpt \typeout{command `naphdrv' is based on `decalinev'.}\fi%
 \expandafter\threech@r#1{}{}%
\if\@tmpa r% right-handed set of double bonds
  \decalinev[acfhk]{#2}%
\else\if\@tmpa A%aromatic circle
  \decalinev[AB]{#2}%
\else\if\@tmpa p%p-quinone
 \if\@tmpb a% (A)
  \decalinev[bfhk]{#2}%
 \else\ifx\@tmpb\empty% (A)
  \decalinev[bfhk]{#2}%
 \else\if\@tmpb b% (B)
  \decalinev[acgk]{#2}%
 \fi\fi\fi%
\else%
 \if\@tmpa o%o-quinone
  \if\@tmpb a% (A)
   \decalinev[cfhk]{#2}%
  \else\ifx\@tmpb\empty% (A)
   \decalinev[cfhk]{#2}%
  \else\if\@tmpb b%o-quinone (B)
   \decalinev[dfhj]{#2}%
  \else\if\@tmpb c%o-quinone (C)
   \decalinev[afhk]{#2}%
  \else\if\@tmpb d%o-quinone (D)
   \decalinev[achk]{#2}%
  \else\if\@tmpb e%o-quinone (E)
   \decalinev[acei]{#2}%
  \else\if\@tmpb f%o-quinone (F)
   \decalinev[acfk]{#2}%
  \fi\fi\fi\fi\fi\fi%
  \fi%
%%%
\else\if\@tmpa q%various quinone
  \if\@tmpb a% (A)2,6-type
   \decalinev[cehj]{#2}%
  \else\ifx\@tmpb\empty% (A)2,6-type
   \decalinev[cehj]{#2}%
  \else\if\@tmpb b%2,6-quinone (B)
   \decalinev[adfi]{#2}%
  \else\if\@tmpb c%1,5-quinone (C)
   \decalinev[bdgi]{#2}%
  \else\if\@tmpb d%1,5-quinone (D)
   \decalinev[begj]{#2}%
  \else\if\@tmpb e%1,7-quinone (E)
   \decalinev[bdfi]{#2}%
  \else\if\@tmpb f%1,7-quinone (F)
   \decalinev[cegj]{#2}%
  \else\if\@tmpb g%1,7-quinone (G)
   \decalinev[behj]{#2}%
  \else\if\@tmpb h%1,7-quinone (H)
   \decalinev[adgi]{#2}%
  \fi\fi\fi\fi\fi\fi\fi\fi\fi%
\else\if\@tmpa P%quinone having 4 carbonyl groups
  \if\@tmpb a% (A)1,4,5,8-type
   \decalinev[bgk]{#2}%
  \else\ifx\@tmpb\empty% (A)1,4,5,8-type
   \decalinev[bgk]{#2}%
  \else\if\@tmpb b% (B)1,2,5,8-type
   \decalinev[cgk]{#2}%
  \fi\fi\fi%
\else\if\@tmpa Q%1,2,3,4
   \decalinev[fhk]{#2}%
\else\if\@tmpa O%quinone having 4 carbonyl groups
  \if\@tmpb a% (A)1,2,5,6-type
   \decalinev[chk]{#2}%
  \else\ifx\@tmpb\empty% (A)1,2,5,6-type
   \decalinev[chk]{#2}%
  \else\if\@tmpb b% (B)1,2,7,8-type
   \decalinev[cfk]{#2}%
  \else\if\@tmpb c% (C)1,2,3,5-type
   \decalinev[dgi]{#2}%
  \else\if\@tmpb d% (D)1,2,3,7-type
   \decalinev[dfi]{#2}%
  \fi\fi\fi\fi\fi%
\else% added 1998/11/23 by S. Fujita
   \decalinev[@#1]{#2}%
\fi\fi\fi\fi\fi\fi\fi\fi%
}%               %end of \naphdrv macro
\def\naphdrvb{\@ifnextchar[{\@naphdrvb}{\@naphdrvb[r]}}
\def\@naphdrvb[#1]#2{%
\iforigpt \typeout{command `naphdrvb' is based on `decalinevb'.}\fi%
 \expandafter\threech@r#1{}{}%
\if\@tmpa r% right-handed set of double bonds
  \decalinevb[acfhk]{#2}%
\else\if\@tmpa A%aromatic circle
  \decalinevb[AB]{#2}%
\else\if\@tmpa p%p-quinone
 \if\@tmpb a% (A)
  \decalinevb[bfhk]{#2}%
 \else\ifx\@tmpb\empty% (A)
  \decalinevb[bfhk]{#2}%
 \else\if\@tmpb b% (B)
  \decalinevb[acgk]{#2}%
 \fi\fi\fi%
\else%
 \if\@tmpa o%o-quinone
  \if\@tmpb a% (A)
   \decalinevb[cfhk]{#2}%
  \else\ifx\@tmpb\empty% (A)
   \decalinevb[cfhk]{#2}%
  \else\if\@tmpb b%o-quinone (B)
   \decalinevb[dfhj]{#2}%
  \else\if\@tmpb c%o-quinone (C)
   \decalinevb[afhk]{#2}%
  \else\if\@tmpb d%o-quinone (D)
   \decalinevb[achk]{#2}%
  \else\if\@tmpb e%o-quinone (E)
   \decalinevb[acei]{#2}%
  \else\if\@tmpb f%o-quinone (F)
   \decalinevb[acfk]{#2}%
  \fi\fi\fi\fi\fi\fi%
  \fi%
%%%
\else\if\@tmpa q%various quinone
  \if\@tmpb a% (A)2,6-type
   \decalinevb[cehj]{#2}%
  \else\ifx\@tmpb\empty% (A)2,6-type
   \decalinevb[cehj]{#2}%
  \else\if\@tmpb b%2,6-quinone (B)
   \decalinevb[adfi]{#2}%
  \else\if\@tmpb c%1,5-quinone (C)
   \decalinevb[bdgi]{#2}%
  \else\if\@tmpb d%1,5-quinone (D)
   \decalinevb[begj]{#2}%
  \else\if\@tmpb e%1,7-quinone (E)
   \decalinevb[bdfi]{#2}%
  \else\if\@tmpb f%1,7-quinone (F)
   \decalinevb[cegj]{#2}%
  \else\if\@tmpb g%1,7-quinone (G)
   \decalinevb[behj]{#2}%
  \else\if\@tmpb h%1,7-quinone (H)
   \decalinevb[adgi]{#2}%
  \fi\fi\fi\fi\fi\fi\fi\fi\fi%
\else\if\@tmpa P%quinone having 4 carbonyl groups
  \if\@tmpb a% (A)1,4,5,8-type
   \decalinevb[bgk]{#2}%
  \else\ifx\@tmpb\empty% (A)1,4,5,8-type
   \decalinevb[bgk]{#2}%
  \else\if\@tmpb b% (B)1,2,5,8-type
   \decalinevb[cgk]{#2}%
  \fi\fi\fi%
\else\if\@tmpa Q%1,2,3,4
   \decalinevb[fhk]{#2}%
\else\if\@tmpa O%quinone having 4 carbonyl groups
  \if\@tmpb a% (A)1,2,5,6-type
   \decalinevb[chk]{#2}%
  \else\ifx\@tmpb\empty% (A)1,2,5,6-type
   \decalinevb[chk]{#2}%
  \else\if\@tmpb b% (B)1,2,7,8-type
   \decalinevb[cfk]{#2}%
  \else\if\@tmpb c% (C)1,2,3,5-type
   \decalinevb[dgi]{#2}%
  \else\if\@tmpb d% (D)1,2,3,7-type
   \decalinevb[dfi]{#2}%
  \fi\fi\fi\fi\fi%
\else% added 1998/11/23 by S. Fujita
   \decalinevb[@#1]{#2}%
\fi\fi\fi\fi\fi\fi\fi\fi%
}%               %end of \naphdrvb macro
\def\naphdrvt{\@ifnextchar[{\@naphdrvt}{\@naphdrvt[r]}}
\def\@naphdrvt[#1]#2{%
\iforigpt \typeout{command `naphdrvt' is based on `decalinevt'.}\fi%
 \expandafter\threech@r#1{}{}%
\if\@tmpa r% right-handed set of double bonds
  \decalinevt[acfhk]{#2}%
\else\if\@tmpa A%aromatic circle
  \decalinevt[AB]{#2}%
\else\if\@tmpa p%p-quinone
 \if\@tmpb a% (A)
  \decalinevt[bfhk]{#2}%
 \else\ifx\@tmpb\empty% (A)
  \decalinevt[bfhk]{#2}%
 \else\if\@tmpb b% (B)
  \decalinevt[acgk]{#2}%
 \fi\fi\fi%
\else%
 \if\@tmpa o%o-quinone
  \if\@tmpb a% (A)
   \decalinevt[cfhk]{#2}%
  \else\ifx\@tmpb\empty% (A)
   \decalinevt[cfhk]{#2}%
  \else\if\@tmpb b%o-quinone (B)
   \decalinevt[dfhj]{#2}%
  \else\if\@tmpb c%o-quinone (C)
   \decalinevt[afhk]{#2}%
  \else\if\@tmpb d%o-quinone (D)
   \decalinevt[achk]{#2}%
  \else\if\@tmpb e%o-quinone (E)
   \decalinevt[acei]{#2}%
  \else\if\@tmpb f%o-quinone (F)
   \decalinevt[acfk]{#2}%
  \fi\fi\fi\fi\fi\fi%
  \fi%
%%%
\else\if\@tmpa q%various quinone
  \if\@tmpb a% (A)2,6-type
   \decalinevt[cehj]{#2}%
  \else\ifx\@tmpb\empty% (A)2,6-type
   \decalinevt[cehj]{#2}%
  \else\if\@tmpb b%2,6-quinone (B)
   \decalinevt[adfi]{#2}%
  \else\if\@tmpb c%1,5-quinone (C)
   \decalinevt[bdgi]{#2}%
  \else\if\@tmpb d%1,5-quinone (D)
   \decalinevt[begj]{#2}%
  \else\if\@tmpb e%1,7-quinone (E)
   \decalinevt[bdfi]{#2}%
  \else\if\@tmpb f%1,7-quinone (F)
   \decalinevt[cegj]{#2}%
  \else\if\@tmpb g%1,7-quinone (G)
   \decalinevt[behj]{#2}%
  \else\if\@tmpb h%1,7-quinone (H)
   \decalinevt[adgi]{#2}%
  \fi\fi\fi\fi\fi\fi\fi\fi\fi%
\else\if\@tmpa P%quinone having 4 carbonyl groups
  \if\@tmpb a% (A)1,4,5,8-type
   \decalinevt[bgk]{#2}%
  \else\ifx\@tmpb\empty% (A)1,4,5,8-type
   \decalinevt[bgk]{#2}%
  \else\if\@tmpb b% (B)1,2,5,8-type
   \decalinevt[cgk]{#2}%
  \fi\fi\fi%
\else\if\@tmpa Q%1,2,3,4
   \decalinevt[fhk]{#2}%
\else\if\@tmpa O%quinone having 4 carbonyl groups
  \if\@tmpb a% (A)1,2,5,6-type
   \decalinevt[chk]{#2}%
  \else\ifx\@tmpb\empty% (A)1,2,5,6-type
   \decalinevt[chk]{#2}%
  \else\if\@tmpb b% (B)1,2,7,8-type
   \decalinevt[cfk]{#2}%
  \else\if\@tmpb c% (C)1,2,3,5-type
   \decalinevt[dgi]{#2}%
  \else\if\@tmpb d% (D)1,2,3,7-type
   \decalinevt[dfi]{#2}%
  \fi\fi\fi\fi\fi%
\else% added 1998/11/23 by S. Fujita
   \decalinevt[@#1]{#2}%
\fi\fi\fi\fi\fi\fi\fi\fi%
}%               %end of \naphdrvt macro
\def\naphdrh{\@ifnextchar[{\@naphdrh}{\@naphdrh[r]}}
\def\@naphdrh[#1]#2{%
\iforigpt \typeout{command `nathdrh' is based on `decalineh'.}\fi%
 \expandafter\threech@r#1{}{}%
\if\@tmpa r% right-handed set of double bonds
  \decalineh[acfhk]{#2}%
\else\if\@tmpa A%aromatic circle
  \decalineh[AB]{#2}%
\else\if\@tmpa p%p-quinone
 \if\@tmpb a% (A)
  \decalineh[bfhk]{#2}%
 \else\ifx\@tmpb\empty% (A)
  \decalineh[bfhk]{#2}%
 \else\if\@tmpb b% (B)
  \decalineh[acgk]{#2}%
 \fi\fi\fi%
\else%
 \if\@tmpa o%o-quinone
  \if\@tmpb a% (A)
   \decalineh[cfhk]{#2}%
  \else\ifx\@tmpb\empty% (A)
   \decalineh[cfhk]{#2}%
  \else\if\@tmpb b%o-quinone (B)
   \decalineh[dfhj]{#2}%
  \else\if\@tmpb c%o-quinone (C)
   \decalineh[afhk]{#2}%
  \else\if\@tmpb d%o-quinone (D)
   \decalineh[achk]{#2}%
  \else\if\@tmpb e%o-quinone (E)
   \decalineh[acei]{#2}%
  \else\if\@tmpb f%o-quinone (F)
   \decalineh[acfk]{#2}%
  \fi\fi\fi\fi\fi\fi%
  \fi%
\else\if\@tmpa q%various quinone
  \if\@tmpb a% (A)2,6-type
   \decalineh[cehj]{#2}%
  \else\ifx\@tmpb\empty% (A)2,6-type
   \decalineh[cehj]{#2}%
  \else\if\@tmpb b%2,6-quinone (B)
   \decalineh[adfi]{#2}%
  \else\if\@tmpb c%1,5-quinone (C)
   \decalineh[bdgi]{#2}%
  \else\if\@tmpb d%1,5-quinone (D)
   \decalineh[begj]{#2}%
  \else\if\@tmpb e%1,7-quinone (E)
   \decalineh[bdfi]{#2}%
  \else\if\@tmpb f%1,7-quinone (F)
   \decalineh[cegj]{#2}%
  \else\if\@tmpb g%1,7-quinone (G)
   \decalineh[behj]{#2}%
  \else\if\@tmpb h%1,7-quinone (H)
   \decalineh[adgi]{#2}%
  \fi\fi\fi\fi\fi\fi\fi\fi\fi%
\else\if\@tmpa P%quinone having 4 carbonyl groups
  \if\@tmpb a% (A)1,4,5,8-type
   \decalineh[bgk]{#2}%
  \else\ifx\@tmpb\empty% (A)1,4,5,8-type
   \decalineh[bgk]{#2}%
  \else\if\@tmpb b% (B)1,2,5,8-type
   \decalineh[cgk]{#2}%
  \fi\fi\fi%
\else\if\@tmpa Q%1,2,3,4
   \decalineh[fhk]{#2}%
\else\if\@tmpa O%quinone having 4 carbonyl groups
  \if\@tmpb a% (A)1,2,5,6-type
   \decalineh[chk]{#2}%
  \else\ifx\@tmpb\empty% (A)1,2,5,6-type
   \decalineh[chk]{#2}%
  \else\if\@tmpb b% (B)1,2,7,8-type
   \decalineh[cfk]{#2}%
  \else\if\@tmpb c% (C)1,2,3,5-type
   \decalineh[dgi]{#2}%
  \else\if\@tmpb d% (D)1,2,3,7-type
   \decalineh[dfi]{#2}%
  \fi\fi\fi\fi\fi%
\else% added 1998/11/23 by S. Fujita
   \decalineh[@#1]{#2}%
\fi\fi\fi\fi\fi\fi\fi\fi%
}%               %end of \naphdrh macro
\def\tetralinev{\@ifnextchar[{\@tetralinev}{\@tetralinev[r]}}
\def\@tetralinev[#1]#2{%
 \iforigpt \typeout{command `tetralinev' is based on `decalinev'.}\fi%
 \expandafter\threech@r#1{}{}%
 \if\@tmpa r% right-handed set of double bonds
    \decalinev[fhk]{#2}%
 \else\if\@tmpa A%aromatic circle
    \decalinev[A]{#2}%
 \else\if\@tmpa e%inner double bond
  \if\@tmpb a% (A)%
    \decalinev[afhk]{#2}%
  \else\ifx\@tmpb\empty% (A)
    \decalinev[afhk]{#2}%
  \else\if\@tmpb b% (B)
    \decalinev[bfhk]{#2}%
  \else\if\@tmpb c% (C)
    \decalinev[cfhk]{#2}%
  \fi\fi\fi\fi%
 \else%1998/11/23 by Shinsaku Fujita
    \decalinev[@#1]{#2}%
 \fi\fi\fi%
}%               %end of \tetralinev macro
\def\tetralinevb{\@ifnextchar[{\@tetralinevb}{\@tetralinevb[r]}}
\def\@tetralinevb[#1]#2{%
 \iforigpt \typeout{command `tetralinevb' is based on `decalinevb'.}\fi%
 \expandafter\threech@r#1{}{}%
 \if\@tmpa r% right-handed set of double bonds
    \decalinevb[fhK]{#2}%  %[fhK] in place of [fhk]
 \else\if\@tmpa A%aromatic circle
    \decalinevb[A]{#2}%
 \else\if\@tmpa e%inner double bond
  \if\@tmpb a% (A)%
    \decalinevb[afhK]{#2}%
  \else\ifx\@tmpb\empty% (A)
    \decalinevb[afhK]{#2}%
  \else\if\@tmpb b% (B)
    \decalinevb[bfhK]{#2}%
  \else\if\@tmpb c% (C)
    \decalinevb[cfhK]{#2}%
  \fi\fi\fi\fi%
 \else%1998/11/23 by Shinsaku Fujita
    \decalinevb[@#1]{#2}%
 \fi\fi\fi%
}%               %end of \tetralinevb macro
\def\tetralinevt{\@ifnextchar[{\@tetralinevt}{\@tetralinevt[r]}}
\def\@tetralinevt[#1]#2{%
 \iforigpt \typeout{command `tetralinevt' is based on `decalinevt'.}\fi%
 \expandafter\threech@r#1{}{}%
 \if\@tmpa r% right-handed set of double bonds
    \decalinevt[fhk]{#2}%
 \else\if\@tmpa A%aromatic circle
    \decalinevt[A]{#2}%
 \else\if\@tmpa e%inner double bond
  \if\@tmpb a% (A)%
    \decalinevt[afhk]{#2}%
  \else\ifx\@tmpb\empty% (A)
    \decalinevt[afhk]{#2}%
  \else\if\@tmpb b% (B)
    \decalinevt[bfhk]{#2}%
  \else\if\@tmpb c% (C)
    \decalinevt[cfhk]{#2}%
  \fi\fi\fi\fi%
 \else%1998/11/23 by Shinsaku Fujita
    \decalinevt[@#1]{#2}%
 \fi\fi\fi%
}%               %end of \tetralinevt macro
\def\tetralineh{\@ifnextchar[{\@tetralineh}{\@tetralineh[r]}}
\def\@tetralineh[#1]#2{%
 \iforigpt \typeout{command `tetralineh' is based on `decalineh'.}\fi%
 \expandafter\threech@r#1{}{}%
 \if\@tmpa r% right-handed set of double bonds
    \decalineh[fhk]{#2}%
 \else\if\@tmpa A%aromatic circle
    \decalineh[A]{#2}%
 \else\if\@tmpa e%inner double bond
  \if\@tmpb a% (A)%
    \decalineh[afhk]{#2}%
  \else\ifx\@tmpb\empty% (A)
    \decalineh[afhk]{#2}%
  \else\if\@tmpb b% (B)
    \decalineh[bfhk]{#2}%
  \else\if\@tmpb c% (C)
    \decalineh[cfhk]{#2}%
  \fi\fi\fi\fi%
\else% added 1998/11/23 by S. Fujita
   \decalineh[@#1]{#2}%
 \fi\fi\fi%
}%               %end of \tetralineh macro
\def\hanthracenev{\@ifnextchar[{\@hanthracenev[@}{\@hanthracenev[r]}}
\def\@hanthracenev[#1]#2{%
\@reset@ylsw\reset@@yl
\ylposition{#2}{-7}{0}{2}{0}%  %for 8 positions
\if@ylsw \ifx\@@ylii\empty
\def\@@ylii{0}\def\@@yli{0}\fi
\else\ylposition{#2}{-1}{3}{7}{0}% for 5 to 7 positions
\fi
\if@ylsw\ifx\@@ylii\empty
\def\@@ylii{0}\def\@@yli{0}\fi\else
\ylposition{#2}{0}{0}{5}{0}% for 1 to 4 positions
\fi
\if@ylsw\ifx\@@ylii\empty
\def\@@ylii{-684}\def\@@yli{0}\fi\else
\ylposition{#2}{-8}{0}{2}{0}%for 9-position
\fi
\if@ylsw\ifx\@@ylii\empty
\def\@@ylii{-342}\def\@@yli{0}\fi\else
\ylposition{#2}{-6}{3}{5}{0}%for 10-position
\fi
\if@ylsw\ifx\@@ylii\empty
\def\@@ylii{-342}\def\@@yli{0}\fi\else
\ylfusedposition{#2}{-11}{-1}{1}{0}% for 9a and 4a
\fi
\if@ylsw\ifx\@@ylii\empty
\def\@@ylii{-342}\def\@@yli{0}\fi\else
\ylfusedposition{#2}{-12}{-1}{1}{0}% for 8a and 10a
\fi
\if@ylsw\ifx\@@ylii\empty
\def\@@ylii{0}\def\@@yli{0}\fi\fi
\if@ylsw
 \yl@shiftii=\@ylii
 \ifx\@@ylii\empty\else
 \advance\yl@shiftii\@@ylii\fi
 \yl@shifti=\@yli
 \ifx\@@yli\empty\else
 \advance\yl@shifti\@@yli\fi
 \advance\yl@shiftii\yl@xdiff
 \advance\yl@shifti\yl@ydiff
 \begin{picture}(0,0)(-\yl@shiftii,-\yl@shifti)
 \reset@yl@xydiff%1999/1/6 by S. Fujita
\else
 \begin{picture}(1200,880)(-\shiftii,-\shifti)
  \iforigpt \put(-\shiftii,-\shifti){\circle*{50}}%
           \put(-\noshift,-\noshift){\circle{50}}%
   \typeout{command `hanthracenev' origin: %
    (\the\noshift,\the\noshift) ---> (\the\shiftii,\the\shifti)}\fi%
\fi
  \put(0,406){\line(-5,-3){171}}%       %bond 8-7
  \put(0,406){\line(5,-3){171}}%        %bond 8-8a
  \put(0,0){\line(-5,3){171}}%          %bond 5-6
  \put(0,0){\line(5,3){171}}%           %bond 5-10a
  \put(171,103){\line(0,1){200}}%       %bond 10a-8a
  \put(-171,103){\line(0,1){200}}%      %bond 6-7
  \put(342,406){\line(-5,-3){171}}%     %bond 9-8a
  \put(342,406){\line(5,-3){171}}%      %bond 9-9a
  \put(342,0){\line(-5,3){171}}%        %bond 10-10a
  \put(342,0){\line(5,3){171}}%         %bond 10-4a
  \put(513,103){\line(0,1){200}}%       %bond 4a-9a
  %%%%
  \put(684,406){\line(-5,-3){171}}%     %bond 1-9a    1-6
  \put(684,406){\line(5,-3){171}}%      %bond 1-2     1-2
  \put(855,103){\line(0,1){200}}%       %bond 3-2     3-2
  \put(684,0){\line(5,3){171}}%         %bond 4-3     4-3
  \put(684,0){\line(-5,3){171}}%        %bond 4-4a    4-5
\@tfor\member:=#1\do{%
\if\member r%no endcyclic double bonds
\else\if\member a%
  \put(690,364){\line(5,-3){126}}%      %double bond 1-2
\else\if\member b%
  \put(822,129){\line(0,1){148}}%       %double bond 3-2
\else\if\member c%
  \put(690,42){\line(5,3){126}}%        %double bond 4-3
\else\if\member d%
  \put(690,42){\line(-5,3){126}}%       %double bond 4-4a
\else\if\member e%
  \put(348,42){\line(5,3){126}}%        %double bond 10-4a
\else\if\member f%
  \put(348,42){\line(-5,3){126}}%       %double bond 10-10a
\else\if\member g%
  \put(6,42){\line(5,3){126}}%          %double bond 5-10a
\else\if\member h%
  \put(-6,42){\line(-5,3){126}}%        %double bond 5-6
\else\if\member i%
  \put(-138,129){\line(0,1){148}}%      %double bond 6-7
\else\if\member j%
  \put(-6,364){\line(-5,-3){126}}%      %double bond 8-7
\else\if\member k%
  \put(6,364){\line(5,-3){126}}%        %double bond 8-8a
\else\if\member l%
  \put(348,364){\line(-5,-3){126}}%     %double bond 9-8a
\else\if\member m%
  \put(348,364){\line(5,-3){126}}%      %double bond 9-9a
\else\if\member n%
  \put(690,364){\line(-5,-3){126}}%     %double bond 1-9a
\else\if\member o%
  \put(544,129){\line(0,1){148}}%       %double bond 4a-9a
\else\if\member O%
  \put(482,129){\line(0,1){148}}%       %double bond 4a-9a at the other ring
\else\if\member p%
  \put(138,129){\line(0,1){148}}%       %double bond 10a-8a
\else\if\member P%
  \put(204,129){\line(0,1){148}}%       %double bond 10a-8a at the other ring
\else\if\member C%left aromatic circle
  \put(0,203){\circle{240}}            %circle
\else\if\member B%right aromatic circle
  \put(342,203){\circle{240}}%          %circle
\else\if\member A%right aromatic circle
  \put(684,203){\circle{240}}%          %circle
\else
  \expandafter\twoCH@R\member//%
  \set@fusion@hanthrav
\fi\fi\fi\fi\fi\fi\fi\fi\fi\fi\fi\fi\fi\fi\fi\fi\fi\fi\fi\fi\fi\fi}
\put(0,0){\setsixringv{#2}{-7}{0}{2}{0}}%  %for 8 positions
\put(0,0){\setsixringv{#2}{-1}{3}{7}{0}}%  %for 5 to 7 positions
\put(684,0){\setsixringv{#2}{0}{0}{5}{0}}% %for 1 to 4 positions
\put(342,0){\setsixringv{#2}{-8}{0}{2}{0}}%for 9-position
\put(342,0){\setsixringv{#2}{-6}{3}{5}{0}}%for 10-position
\put(0,0){\setfusedbond{#2}{-12}{-1}{1}{0}}% for 8a and 10a
\put(342,0){\setfusedbond{#2}{-11}{-1}{1}{0}}% for 9a and 4a
\end{picture}}%               %end of \hanthracenev macro%
\def\anthracenev{\@ifnextchar[{\@anthracenev}{\@anthracenev[r]}}
\def\@anthracenev[#1]#2{%
 \iforigpt \typeout{command `anthracenev' is %
                    based on `hanthracenev'.}\fi%
%% \expandafter\threech@r#1{}{}%error1998/11/23 by Shinsaku Fujita
 \expandafter\twoCH@R#1//%
 \if\@tmpa r% right-handed set of double bonds
    \hanthracenev[acflhjo]{#2}%
 \else\if\@tmpa l% left-handed set of double bonds
    \hanthracenev[acehjmp]{#2}%
 \else\if\@tmpa A%aromatic circle
    \hanthracenev[ABC]{#2}%
 \else\if\@tmpa p%9,10-quinone
  \if\@tmpb a% (A)%
    \hanthracenev[achjop]{#2}%
   \else\ifx\@tmpb\empty% (A)
    \hanthracenev[achjop]{#2}%
   \else\if\@tmpb A% circle type
    \hanthracenev[AC]{#2}%
   \else
    \hanthracenev[achjop]{#2}%
  \fi\fi\fi%
 \else\if\@tmpa o%o-quinone
  \if\@tmpb a% (A)%
    \hanthracenev[cfjhlo]{#2}%
   \else\ifx\@tmpb\empty% (A)
    \hanthracenev[cehjmp]{#2}%
   \else\if\@tmpb b% (B)
    \hanthracenev[dfhjln]{#2}%
   \else\if\@tmpb c% (C)
    \hanthracenev[aehjmp]{#2}%
   \else\if\@tmpb A% cicle type
    \hanthracenev[cBC]{#2}%
  \fi\fi\fi\fi\fi%
 \else\if\@tmpa q%1,4-quinone
  \if\@tmpb a% (A)%
    \hanthracenev[bfhjlo]{#2}%
   \else\ifx\@tmpb\empty% (A)
    \hanthracenev[behjmp]{#2}%
   \else\if\@tmpb A% circle type
    \hanthracenev[AB]{#2}%
   \else%
    \hanthracenev[behjmp]{#2}%
  \fi\fi\fi%
 \else
    \hanthracenev[@#1]{#2}%
 \fi\fi\fi\fi\fi\fi%
}%               %end of \anthracenev macro%
\def\hphenanthrenev{%
 \@ifnextchar[{\@hphenanthrenev[@}{\@hphenanthrenev[r]}}
\def\@hphenanthrenev[#1]#2{%
\@reset@ylsw\reset@@yl
\ylposition{#2}{-4}{0}{2}{0}%   %for 5 position
\if@ylsw \ifx\@@ylii\empty
\def\@@ylii{0}\def\@@yli{0}\fi
\else
\ylposition{#2}{12}{3}{7}{-1}%   %for 6 to 8 positions
\fi
\if@ylsw\ifx\@@ylii\empty
\def\@@ylii{0}\def\@@yli{0}\fi\else
\ylposition{#2}{13}{2}{5}{-1}%   %for 9 to 10 positions
\fi
\if@ylsw\ifx\@@ylii\empty
\def\@@ylii{-342}\def\@@yli{0}\fi\else
\ylposition{#2}{4}{0}{4}{-1}% %for 1 to 3 positions
\fi
\if@ylsw\ifx\@@ylii\empty
\def\@@ylii{-513}\def\@@yli{-303}\fi\else
\ylposition{#2}{2}{5}{7}{0}%  %for 4-position
\fi
\if@ylsw\ifx\@@ylii\empty
\def\@@ylii{-513}\def\@@yli{-303}\fi\else
\ylfusedposition{#2}{-12}{-1}{1}{0}%  % for 4b and 8a
\fi
\if@ylsw\ifx\@@ylii\empty
\def\@@ylii{0}\def\@@yli{0}\fi\else
\ylfusedposition{#2}{-10}{0}{2}{0}% % for 4a and 10a
\fi
\if@ylsw\ifx\@@ylii\empty
\def\@@ylii{-342}\def\@@yli{0}\fi\fi
\if@ylsw
 \yl@shiftii=\@ylii
 \ifx\@@ylii\empty\else
 \advance\yl@shiftii\@@ylii\fi
 \yl@shifti=\@yli
 \ifx\@@yli\empty\else
 \advance\yl@shifti\@@yli\fi
 \advance\yl@shiftii\yl@xdiff
 \advance\yl@shifti\yl@ydiff
 \begin{picture}(0,0)(-\yl@shiftii,-\yl@shifti)
 \reset@yl@xydiff%1999/1/6 by S. Fujita
\else
 \begin{picture}(1200,1200)(-\shiftii,-\shifti)
  \iforigpt \put(-\shiftii,-\shifti){\circle*{50}}%
           \put(-\noshift,-\noshift){\circle{50}}%
  \typeout{command `hphenanthrenev' origin: %
  (\the\noshift,\the\noshift) ---> (\the\shiftii,\the\shifti)}\fi%
\fi
  \put(0,406){\line(-5,-3){171}}%       %bond 6-5
  \put(0,406){\line(5,-3){171}}%        %bond 5-4a
  \put(0,0){\line(-5,3){171}}%          %bond 8-7
  \put(0,0){\line(5,3){171}}%            %bond 8-8a
  \put(171,103){\line(0,1){200}}%       %bond 8a-4b
  \put(-171,103){\line(0,1){200}}%      %bond 7-6
  \put(342,406){\line(-5,-3){171}}%     %bond 4a-4b
  \put(342,406){\line(5,-3){171}}%      %bond 4a-10a
  \put(342,0){\line(-5,3){171}}%        %bond 9-8a
  \put(342,0){\line(5,3){171}}%         %bond 9-10
  \put(513,103){\line(0,1){200}}%       %bond 10-10a
  %%%%
  \put(342,406){\line(0,1){200}}%       %bond 4a-4
  \put(513,709){\line(-5,-3){171}}%     %bond 3-4
  \put(513,709){\line(5,-3){171}}%      %bond 3-2
  \put(684,406){\line(0,1){200}}%       %bond 1-2
  \put(513,303){\line(5,3){171}}%       %bond 10a-1
\@tfor\member:=#1\do{%
\if\member r%no endcyclic double bonds
\else\if\member a%
  \put(651,432){\line(0,1){148}}%       %double bond 1-2
\else\if\member b%
  \put(519,667){\line(5,-3){126}}%      %double bond 3-2
\else\if\member c%
  \put(519,667){\line(-5,-3){126}}%     %double bond 3-4
\else\if\member d%
  \put(375,432){\line(0,1){148}}%       %double bond 4a-4
\else\if\member e%
  \put(348,364){\line(-5,-3){126}}%     %double bond 4a-4b
\else\if\member f%
  \put(6,364){\line(5,-3){126}}%        %double bond 5-4b
\else\if\member g%
  \put(-6,364){\line(-5,-3){126}}%      %double bond 5-6
\else\if\member h%
  \put(-138,129){\line(0,1){148}}%      %double bond 6-7
\else\if\member i%
  \put(-6,42){\line(-5,3){126}}%        %double bond 8-7
\else\if\member j%
  \put(6,42){\line(5,3){126}}%          %double bond 8-8a
\else\if\member k%
  \put(348,42){\line(-5,3){126}}%       %double bond 9-8a
\else\if\member l%
  \put(348,42){\line(5,3){126}}%        %double bond 9-10
\else\if\member m%
  \put(482,129){\line(0,1){148}}%       %double bond 10-10a
\else\if\member n%
  \put(519,345){\line(5,3){126}}%       %double bond 10a-1
\else\if\member o%
  \put(507,345){\line(-5,3){126}}%      %double bond 10a-4a
\else\if\member O%
  \put(348,364){\line(5,-3){126}}%     %double bond 4a-10a
\else\if\member p%
  \put(138,129){\line(0,1){148}}%       %double bond 8a-4b
\else\if\member P%
  \put(204,129){\line(0,1){148}}%       %double bond 8a-4b
\else\if\member C%left aromatic circle
  \put(0,203){\circle{240}}            %circle
\else\if\member B%right aromatic circle
  \put(342,203){\circle{240}}%          %circle
\else\if\member A%right aromatic circle
  \put(513,506){\circle{240}}%          %circle
\else
  \expandafter\twoCH@R\member//%
  \set@fusion@hphenanv
\fi\fi\fi\fi\fi\fi\fi\fi\fi\fi\fi\fi\fi\fi\fi\fi\fi\fi\fi\fi\fi\fi}%
\put(0,0){\setsixringv{#2}{-4}{0}{2}{0}}%   %for 5 position
\put(0,0){\setsixringv{#2}{12}{3}{7}{-1}}%   %for 6 to 8 positions
\put(342,0){\setsixringv{#2}{13}{2}{5}{-1}}%   %for 9 to 10 positions
\put(513,303){\setsixringv{#2}{4}{0}{4}{-1}}% %for 1 to 3 positions
\put(513,303){\setsixringv{#2}{2}{5}{7}{0}}%  %for 4-position
\put(0,0){\setfusedbond{#2}{-12}{-1}{1}{0}}%  % for 4b and 8a
\put(342,0){\setfusedbond{#2}{-10}{0}{2}{0}}% % for 4a and 10a
\end{picture}}%               %end of \hphenanthrenev macro%
\def\phenanthrenev{\@ifnextchar[{\@phenanthrenev}{\@phenanthrenev[r]}}
\def\@phenanthrenev[#1]#2{%
 \iforigpt \typeout{command `phenanthrenev' is %
    based on `hphenantherenv'.}\fi%
 \expandafter\threech@r#1{}{}%
 \if\@tmpa r% right-handed set of double bonds
    \hphenanthrenev[acgilop]{#2}%
 \else\if\@tmpa A%aromatic circle
    \hphenanthrenev[ABC]{#2}%
 \else\if\@tmpa p%1,4-quinone
  \if\@tmpb a% (A)%
    \hphenanthrenev[bgilop]{#2}%
   \else\ifx\@tmpb\empty% (A)
    \hphenanthrenev[bgilop]{#2}%
   \else\if\@tmpb A% circle type
    \hphenanthrenev[BCb]{#2}%
   \else
    \hphenanthrenev[bgilop]{#2}%
  \fi\fi\fi%
 \else\if\@tmpa o%o-quinone
  \if\@tmpb a% (A)%
    \hphenanthrenev[cgilop]{#2}%
   \else\ifx\@tmpb\empty% (A)
    \hphenanthrenev[cgilop]{#2}%
   \else\if\@tmpb b% (B)
    \hphenanthrenev[dgilnp]{#2}%
   \else\if\@tmpb c% (C)
    \hphenanthrenev[agilop]{#2}%
   \else\if\@tmpb A% cicle type
    \hphenanthrenev[cBC]{#2}%
  \fi\fi\fi\fi\fi%
 \else\if\@tmpa q%9,10-quinone
  \if\@tmpb a% (A)%
    \hphenanthrenev[acgiop]{#2}%
   \else\ifx\@tmpb\empty% (A)
    \hphenanthrenev[acgiop]{#2}%
   \else\if\@tmpb A% circle type
    \hphenanthrenev[AC]{#2}%
   \else
    \hphenanthrenev[acgiop]{#2}%
  \fi\fi\fi%
 \else
    \hphenanthrenev[@#1]{#2}%
 \fi\fi\fi\fi\fi%
}%               %end of \phenanthrenev macro%
\def\steroid{\@ifnextchar[{\@steroid[@}{\@steroid[Z]}}
\def\@steroid[#1]#2{%
\@reset@ylsw\reset@@yl
\yl@steroidposition{#2}%
\if@ylsw
 \yl@shiftii=\@ylii
 \ifx\@@ylii\empty\else
 \advance\yl@shiftii\@@ylii\fi
 \yl@shifti=\@yli
 \ifx\@@yli\empty\else
 \advance\yl@shifti\@@yli\fi
 \advance\yl@shiftii\yl@xdiff
 \advance\yl@shifti\yl@ydiff
 \begin{picture}(0,0)(-\yl@shiftii,-\yl@shifti)
 \reset@yl@xydiff%1999/1/6 by S. Fujita
\else
 \begin{picture}(1600,1300)(-\shiftii,-\shifti)
  \iforigpt \put(-\shiftii,-\shifti){\circle*{50}}%
           \put(-\noshift,-\noshift){\circle{50}}%
   \typeout{command `steroid' origin: %
    (\the\noshift,\the\noshift) ---> (\the\shiftii,\the\shifti)}\fi%
\fi
  \put(0,0){\@steroidskeleton{#1}{#2}}%
\end{picture}}%               %end of \steroid macro%
\def\yl@steroidposition#1{%
\ylposition{#1}{0}{0}{2}{0}%  %for 1
\if@ylsw \ifx\@@ylii\empty
\def\@@ylii{0}\def\@@yli{0}\fi
\else
\ylposition{#1}{8}{3}{7}{-1}%  %for 2 to 4 positions
\fi
\if@ylsw\ifx\@@ylii\empty
\def\@@ylii{0}\def\@@yli{0}\fi\else
\ylposition{#1}{10}{2}{5}{-1}% %for 6 to 7 positions
\fi
\if@ylsw\ifx\@@ylii\empty
\def\@@ylii{-342}\def\@@yli{0}\fi\else
\ylposition{#1}{-11}{0}{2}{0}%for 12 position
\fi
\if@ylsw\ifx\@@ylii\empty
\def\@@ylii{-513}\def\@@yli{-303}\fi\else
\ylposition{#1}{-5}{5}{7}{0}% %for 11 position
\fi
\if@ylsw\ifx\@@ylii\empty
\def\@@ylii{-513}\def\@@yli{-303}\fi\else
\ylposition{#1}{18}{0}{4}{-1}%for 15 to 17 positions
\fi
\if@ylsw\ifx\@@ylii\empty
\def\@@ylii{-855}\def\@@yli{-303}\fi\else
\ylatombondposition{#1}{-4}{7}%     % for 5
\fi
\if@ylsw\ifx\@@ylii\empty
\def\@@ylii{-171}\def\@@yli{-103}\fi\else
\ylatombondposition{#1}{-9}{1}%     % for 10
\fi
\if@ylsw\ifx\@@ylii\empty
\def\@@ylii{-171}\def\@@yli{-303}\fi\else
\ylatombondposition{#1}{-7}{1}%     % for 8
\fi
\if@ylsw\ifx\@@ylii\empty
\def\@@ylii{-513}\def\@@yli{-303}\fi\else
\ylatombondposition{#1}{-8}{7}%     % for 9
\fi
\if@ylsw\ifx\@@ylii\empty
\def\@@ylii{-342}\def\@@yli{-406}\fi\else
\ylatombondposition{#1}{-13}{7}%    % for 14
\fi
\if@ylsw\ifx\@@ylii\empty
\def\@@ylii{-684}\def\@@yli{-406}\fi\else
\ylatombondposition{#1}{-12}{1}%    % for 13
\fi
\if@ylsw\ifx\@@ylii\empty
\def\@@ylii{-684}\def\@@yli{-606}\fi\fi%
}% end of \yl@steroidposition
\def\@steroidskeleton#1#2{%
  \put(0,406){\line(-5,-3){171}}%       %bond 1-2
  \put(0,406){\line(5,-3){171}}%        %bond 1-10
  \put(0,0){\line(-5,3){171}}%          %bond 4-3
  \put(0,0){\line(5,3){171}}%           %bond 4-5
  \put(171,103){\line(0,1){200}}%       %bond 5-10
  \put(-171,103){\line(0,1){200}}%      %bond 3-2
  \put(342,406){\line(-5,-3){171}}%     %bond 9-10
  \put(342,406){\line(5,-3){171}}%      %bond 9-8
  \put(342,0){\line(-5,3){171}}%        %bond 6-5
  \put(342,0){\line(5,3){171}}%         %bond 6-7
  \put(513,103){\line(0,1){200}}%       %bond 7-8
  %%%%
  \put(342,406){\line(0,1){200}}%       %bond 9-11
  \put(513,709){\line(-5,-3){171}}%     %bond 12-11
  \put(513,709){\line(5,-3){171}}%      %bond 12-13
  \put(684,406){\line(0,1){200}}%       %bond 14-13
  \put(513,303){\line(5,3){171}}%       %bond 8-14
  %%%%
  \put(855,709){\line(-5,-3){171}}%     %bond 17-13
  \put(855,709){\line(5,-3){171}}%      %bond 17-16
  \put(1026,406){\line(0,1){200}}%      %bond 15-16
  \put(684,406){\line(1,0){342}}%       %bond 14-15
\@tfor\member:=#1\do{%
\if\member Z%no endcyclic double bonds
\else\if\member a%
  \put(-6,364){\line(-5,-3){126}}%      %double bond 1-2 5-6
\else\if\member b%
  \put(-138,129){\line(0,1){148}}%      %double bond 3-2 6-7
\else\if\member c%
  \put(-6,42){\line(-5,3){126}}%        %double bond 4-3 8-7
\else\if\member d%
  \put(6,42){\line(5,3){126}}%          %double bond 4-5 8-8a
\else\if\member e%
  \put(348,42){\line(-5,3){126}}%       %double bond 6-5 9-8a
\else\if\member f%
  \put(348,42){\line(5,3){126}}%        %double bond 6-7 9-10
\else\if\member g%
  \put(482,129){\line(0,1){148}}%       %double bond 7-8 10-10a
\else\if\member h%
  \put(507,345){\line(-5,3){126}}%      %double bond 8-9  10a-4a
\else\if\member H%
  \put(348,364){\line(5,-3){126}}%     %double bond 9-8  4a-10a
\else\if\member i%
  \put(348,364){\line(-5,-3){126}}%     %double bond 9-10  4a-4b
\else\if\member j%
  \put(6,364){\line(5,-3){126}}%        %double bond 1-10 5-4b
\else\if\member k%
  \put(138,129){\line(0,1){148}}%       %double bond 5-10 8a-4b
\else\if\member K%
  \put(204,129){\line(0,1){148}}%       %double bond 5-10 8a-4b
\else\if\member l%
  \put(375,432){\line(0,1){148}}%       %double bond 9-11    4-5
\else\if\member m%
  \put(519,667){\line(-5,-3){126}}%     %double bond 12-11   3-4
\else\if\member n%
  \put(519,667){\line(5,-3){126}}%      %double bond 12-13   3-2
\else\if\member o%
  \put(651,432){\line(0,1){148}}%       %double bond 13-14  1-2
\else\if\member O%
  \put(717,432){\line(0,1){148}}%       %double bond 13-14  1-2
\else\if\member p%
  \put(519,345){\line(5,3){126}}%       %double bond 8-14 10a-1
\else\if\member q%
  \put(720,439){\line(1,0){260}}%       %double bond 14-15
\else\if\member r%
  \put(993,432){\line(0,1){148}}%       %double bond 15-16  1-2
\else\if\member s%
  \put(861,667){\line(5,-3){126}}%      %double bond 17-16   3-2
\else\if\member t%
  \put(861,667){\line(-5,-3){126}}%     %double bond 17-13   3-4
\else\if\member A%left aromatic circle
  \put(0,203){\circle{240}}%            %circle
\else\if\member B%right aromatic circle
  \put(342,203){\circle{240}}%          %circle
\else\if\member C%right aromatic circle
  \put(513,506){\circle{240}}%          %circle
\else
  \expandafter\twoCH@R\member//%
  \set@fusion@steroid
\fi\fi\fi\fi\fi\fi\fi\fi\fi\fi\fi\fi\fi\fi\fi\fi\fi\fi%
\fi\fi\fi\fi\fi\fi\fi\fi\fi}%
\iniflag
\put(0,0){\setsixringv{#2}{0}{0}{2}{0}}%  %for 1
\put(0,0){\setsixringv{#2}{8}{3}{7}{-1}}%  %for 2 to 4 positions
\put(342,0){\setsixringv{#2}{10}{2}{5}{-1}}% %for 6 to 7 positions
\put(513,303){\setsixringv{#2}{-11}{0}{2}{0}}%for 12 position
\put(513,303){\setsixringv{#2}{-5}{5}{7}{0}}% %for 11 position
\put(855,303){\setsixringv{#2}{18}{0}{4}{-1}}%for 15 to 17 positions
\put(171,103){\setatombond{#2}{-4}{7}}%     % for 5
\put(171,303){\setatombond{#2}{-9}{1}}%     % for 10
\put(513,303){\setatombond{#2}{-7}{1}}%     % for 8
\put(342,406){\setatombond{#2}{-8}{7}}%     % for 9
\put(684,406){\setatombond{#2}{-13}{7}}%    % for 14
\put(684,606){\setatombond{#2}{-12}{1}}%    % for 13
}% end of \@steroidskeleton
\def\set@fusion@steroid{%
  \let\@@tmpa=\@tmpa
  \let\@@tmpb=\@tmpb
  \if\@tmpa a%
      \edef\@@tmpa{f}%
      \put(0,0){\set@fusionadd@sixv}%
  \else\if\@tmpa A%
      \edef\@@tmpa{F}%
      \put(0,0){\set@fusionadd@sixv}%
  \else\if\@tmpa b%
      \edef\@@tmpa{e}%
      \put(0,0){\set@fusionadd@sixv}%
  \else\if\@tmpa B%
      \edef\@@tmpa{E}%
      \put(0,0){\set@fusionadd@sixv}%
  \else\if\@tmpa c%
      \edef\@@tmpa{d}%
      \put(0,0){\set@fusionadd@sixv}%
  \else\if\@tmpa C%
      \edef\@@tmpa{D}%
      \put(0,0){\set@fusionadd@sixv}%
  \else\if\@tmpa d%
      \edef\@@tmpa{c}%
      \put(0,0){\set@fusionadd@sixv}%
      \if@smallringsw\else
       \XyMTeXWarning{Unfavorable Fusion for bond `d'}%
      \fi
  \else\if\@tmpa D%
      \edef\@@tmpa{C}%
      \put(0,0){\set@fusionadd@sixv}%
      \if@smallringsw\else
       \XyMTeXWarning{Unfavorable Fusion for bond `D'}%
      \fi
  \else\if\@tmpa e%
      \edef\@@tmpa{d}%
      \put(342,0){\set@fusionadd@sixv}%
      \if@smallringsw\else
       \XyMTeXWarning{Unfavorable Fusion for bond `e'}%
      \fi
  \else\if\@tmpa E%
      \edef\@@tmpa{D}%
      \put(342,0){\set@fusionadd@sixv}%
      \if@smallringsw\else
       \XyMTeXWarning{Unfavorable Fusion for bond `E'}%
      \fi
  \else\if\@tmpa f%
      \edef\@@tmpa{c}%
      \put(342,0){\set@fusionadd@sixv}%
      \if@smallringsw\else
       \XyMTeXWarning{Unfavorable Fusion for bond `f'}%
      \fi
  \else\if\@tmpa F%
      \edef\@@tmpa{C}%
      \put(342,0){\set@fusionadd@sixv}%
      \if@smallringsw\else
       \XyMTeXWarning{Unfavorable Fusion for bond `f'}%
      \fi
  \else\if\@tmpa g%
      \edef\@@tmpa{b}%
      \put(342,0){\set@fusionadd@sixv}%
      \if@smallringsw\else
       \XyMTeXWarning{Unfavorable Fusion for bond `g'}%
      \fi
  \else\if\@tmpa G%
      \edef\@@tmpa{B}%
      \put(342,0){\set@fusionadd@sixv}%
      \if@smallringsw\else
       \XyMTeXWarning{Unfavorable Fusion for bond `g'}%
      \fi
  \else\if\@tmpa h%
      \edef\@@tmpa{a}%
      \put(342,0){\set@fusionadd@sixv}%
      \if@smallringsw\else
       \XyMTeXWarning{Forbidden Fusion for bond `h'}%
      \fi
  \else\if\@tmpa H%
      \edef\@@tmpa{A}%
      \put(342,0){\set@fusionadd@sixv}%
      \if@smallringsw\else
       \XyMTeXWarning{Forbidden Fusion for bond `H'}%
      \fi
  \else\if\@tmpa i%
      \edef\@@tmpa{f}%
      \put(342,0){\set@fusionadd@sixv}%
      \if@smallringsw\else
       \XyMTeXWarning{Unfavorable Fusion for bond `i'}%
      \fi
  \else\if\@tmpa I%
      \edef\@@tmpa{F}%
      \put(342,0){\set@fusionadd@sixv}%
      \if@smallringsw\else
       \XyMTeXWarning{Unfavorable Fusion for bond `I'}%
      \fi
  \else\if\@tmpa j%
      \edef\@@tmpa{a}%
      \put(0,0){\set@fusionadd@sixv}%
      \if@smallringsw\else
       \XyMTeXWarning{Unfavorable Fusion for bond `j'}%
      \fi
  \else\if\@tmpa J%
      \edef\@@tmpa{A}%
      \put(0,0){\set@fusionadd@sixv}%
      \if@smallringsw\else
       \XyMTeXWarning{Unfavorable Fusion for bond `J'}%
      \fi
  \else\if\@tmpa k%
      \edef\@@tmpa{b}%
      \put(0,0){\set@fusionadd@sixv}%
      \if@smallringsw\else
       \XyMTeXWarning{Forbidden Fusion for bond `k'}%
      \fi
  \else\if\@tmpa K%
      \edef\@@tmpa{B}%
      \put(0,0){\set@fusionadd@sixv}%
      \if@smallringsw\else
       \XyMTeXWarning{Forbidden Fusion for bond `K'}%
      \fi
  \else\if\@tmpa l%
      \edef\@@tmpa{e}%
      \put(513,303){\set@fusionadd@sixv}%
      \if@smallringsw\else
       \XyMTeXWarning{Unfavorable Fusion for bond `l'}%
      \fi
  \else\if\@tmpa L%
      \edef\@@tmpa{E}%
      \put(513,303){\set@fusionadd@sixv}%
      \if@smallringsw\else
       \XyMTeXWarning{Unfavorable Fusion for bond `L'}%
      \fi
  \else\if\@tmpa m%
      \edef\@@tmpa{f}%
      \put(513,303){\set@fusionadd@sixv}%
  \else\if\@tmpa M%
      \edef\@@tmpa{F}%
      \put(513,303){\set@fusionadd@sixv}%
  \else\if\@tmpa n%
      \edef\@@tmpa{a}%
      \put(513,303){\set@fusionadd@sixv}%
      \if@smallringsw\else
       \XyMTeXWarning{Unfavorable Fusion for bond `n'}%
      \fi
  \else\if\@tmpa N%
      \edef\@@tmpa{A}%
      \put(513,303){\set@fusionadd@sixv}%
      \if@smallringsw\else
       \XyMTeXWarning{Unfavorable Fusion for bond `N'}%
      \fi
  \else\if\@tmpa o%
      \edef\@@tmpa{b}%
      \put(513,303){\set@fusionadd@sixv}%
      \if@smallringsw\else
       \XyMTeXWarning{Forbidden Fusion for bond `o'}%
      \fi
  \else\if\@tmpa O%
      \edef\@@tmpa{B}%
      \put(513,303){\set@fusionadd@sixv}%
      \if@smallringsw\else
       \XyMTeXWarning{Forbidden Fusion for bond `O'}%
      \fi
  \else\if\@tmpa p%
      \edef\@@tmpa{c}%
      \put(513,303){\set@fusionadd@sixv}%
      \if@smallringsw\else
       \XyMTeXWarning{Unfavorable Fusion for bond `N'}%
      \fi
  \else\if\@tmpa P%
      \edef\@@tmpa{C}%
      \put(513,303){\set@fusionadd@sixv}%
      \if@smallringsw\else
       \XyMTeXWarning{Unfavorable Fusion for bond `N'}%
      \fi
  \else\if\@tmpa q%
       \XyMTeXWarning{Mismatched dimension for bond `q'}%
  \else\if\@tmpa Q%
       \XyMTeXWarning{Mismatched dimension for bond `Q'}%
  \else\if\@tmpa r%
      \edef\@@tmpa{b}%
      \put(855,303){\set@fusionadd@sixv}%
  \else\if\@tmpa R%
      \edef\@@tmpa{B}%
      \put(855,303){\set@fusionadd@sixv}%
  \else\if\@tmpa s%
      \edef\@@tmpa{a}%
      \put(855,303){\set@fusionadd@sixv}%
  \else\if\@tmpa S%
      \edef\@@tmpa{A}%
      \put(855,303){\set@fusionadd@sixv}%
  \else\if\@tmpa t%
      \edef\@@tmpa{f}%
      \put(855,303){\set@fusionadd@sixv}%
      \if@smallringsw\else
       \XyMTeXWarning{Unfavorable Fusion for bond `t'}%
      \fi
  \else\if\@tmpa T%
      \edef\@@tmpa{F}%
      \put(855,303){\set@fusionadd@sixv}%
      \if@smallringsw\else
       \XyMTeXWarning{Unfavorable Fusion for bond `T'}%
      \fi
   \fi\fi\fi\fi\fi\fi\fi\fi%
   \fi\fi\fi\fi\fi\fi\fi\fi\fi\fi%
  \fi\fi\fi\fi\fi\fi\fi\fi\fi\fi\fi\fi%
  \fi\fi\fi\fi\fi\fi\fi\fi\fi\fi%
}% end of the macro \set@fusion@steroid
\def\steroidchain{\@ifnextchar[{\@steroidchain[@}{\@steroidchain[Z]}}
\def\@steroidchain[#1]#2{%
\@reset@ylsw\reset@@yl
\yl@steroidposition{#2}%
\ylposition{#2}{-21}{0}{3}{0}%for 22 and 23 positions
\if@ylsw \ifx\@@ylii\empty
\def\@@ylii{-1026}\def\@@yli{-606}\fi
\else
\ylposition{#2}{-14}{5}{7}{0}%for 20 position
\fi
\if@ylsw\ifx\@@ylii\empty
\def\@@ylii{-1026}\def\@@yli{-606}\fi\else
\ylposition{#2}{-20}{3}{5}{0}%for 24 position
\fi
\if@ylsw\ifx\@@ylii\empty
\def\@@ylii{-1197}\def\@@yli{-709}\fi\else
\ylatombondposition{#2}{-24}{4}%      % for 5
\fi
\if@ylsw\ifx\@@ylii\empty
\def\@@ylii{-1397}\def\@@yli{-709}\fi\fi
\if@ylsw
 \yl@shiftii=\@ylii
 \ifx\@@ylii\empty\else
 \advance\yl@shiftii\@@ylii\fi
 \yl@shifti=\@yli
 \ifx\@@yli\empty\else
 \advance\yl@shifti\@@yli\fi
 \advance\yl@shiftii\yl@xdiff
 \advance\yl@shifti\yl@ydiff
 \begin{picture}(0,0)(-\yl@shiftii,-\yl@shifti)
 \reset@yl@xydiff%1999/1/6 by S. Fujita
\else
 \begin{picture}(2000,1500)(-\shiftii,-\shifti)
  \iforigpt \typeout{command `steroidchain' is based on `steroid'.}\fi%
\fi
  \put(0,0){\@steroidskeleton{#1}{#2}}%
  \put(855,709){\line(0,1){200}}%       %bond 17-20
  \put(1026,1012){\line(-5,-3){171}}%   %bond 22-20
  \put(1026,1012){\line(5,-3){171}}%    %bond 22-23
  \put(1197,709){\line(0,1){200}}%      %bond 24-23
  \put(1197,709){\line(1,0){200}}%      %bond 24-25
  \put(1397,709){\line(3,5){103}}%      %bond 25-26
  \put(1397,709){\line(3,-5){103}}%     %bond 25-27
\@tfor\member:=#1\do{%
\expandafter\twoCH@R\member//\relax%
\if\@tmpa Z\relax%
 \ifx\@tmpb\empty%no action
 \else\if\@tmpb a%
  \put(888,735){\line(0,1){148}}%       %double bond 17-20
 \else\if\@tmpb b%
  \put(1020,970){\line(-5,-3){126}}%    %double bond 22-20
 \else\if\@tmpb c%
  \put(1032,970){\line(5,-3){126}}%     %double bond 22-23
 \else\if\@tmpb d%
  \put(1164,735){\line(0,1){148}}%      %double bond 24-23
 \else\if\@tmpb e%
  \put(1233,742){\line(1,0){140}}%      %double bond 24-25
 \else\if\@tmpb f%
  \put(1433,715){\line(3,5){72}}%       %double bond 25-26
 \else\if\@tmpb g%
  \put(1433,697){\line(3,-5){72}}%      %double bond 25-27
 \fi\fi\fi\fi\fi\fi\fi\fi\fi}
\put(1026,606){\setsixringv{#2}{-21}{0}{3}{0}}%for 22 and 23 positions
\put(1026,606){\setsixringv{#2}{-14}{5}{7}{0}}%for 20 position
\put(1197,709){\setsixringv{#2}{-20}{3}{5}{0}}%for 24 position
\put(1397,709){\setatombond{#2}{-24}{4}}%      % for 5
\end{picture}}%               %end of \steroidchain macro%
\endinput
%%
%% End of file `carom.sty'.