%%
%% 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, 2001, 2002, 2004, 2010 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.
%% 
%% This file is part of the XyMTeX system.
%% =======================================
%% 
%% Old Versions:
%% 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
%% Version 2.01 Released on June 20, 2001 (private version)
%% Version 3.00 Released on April 30, 2002
%% Version 4.00 Released on May 30, 2002 (private version)
%% Version 4.01 Released on August 30, 2004
%% 
%% The Present Version:
%% Version 5.00 Released on October 01, 2010
%% 
%% This work may be distributed and/or modified under the
%% conditions of the LaTeX Project Public License, either version 1.3
%% of this license or (at your option) any later version.
%% The latest version of this license is in
%%    http://www.latex-project.org/lppl.txt
%% and version 1.3 or later is part of all distributions of LaTeX
%% version 2005/12/01 or later.
%% 
%% This work has the LPPL maintenance status `maintained'.
%% The Current Maintainer of this work is Shinsaku Fujita.
%% 
%% This work consists of the files carom.dtx and carom.ins
%% and the derived file carom.sty.
%% 
%% =======================================
%% 
%% 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 5.00}
\typeout{       -- Released October 01, 2010 by Shinsaku Fujita}
\def\j@urnalname{carom}
\def\versi@ndate{October 01, 2010}
\def\versi@nno{ver5.00}
\def\copyrighth@lder{SF} % Shinsaku Fujita
\typeout{XyMTeX Macro File `\j@urnalname' (\versi@nno) <\versi@ndate>%
\space[\copyrighth@lder]}
\@ifundefined{setsixringv}{\input chemstr.sty\relax}{}
\@ifundefined{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
\let\benzenev=\bzdrv
\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
\let\benzeneh=\bzdrh
\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
\let\naphthalenev=\naphdrv
\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
\let\naphthalenevb=\naphdrvb
\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
\let\naphthalenevt=\naphdrvt
\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
\let\naphthaleneh=\naphdrh
\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{sfpicture}(0,0)(-\yl@shiftii,-\yl@shifti)%
 \reset@yl@xydiff%1999/1/6 by S. Fujita
\else
 \begin{sfpicture}(1200,880)(-\shiftii,-\shifti)%
  \origptoutput{hanthracenev}%
\fi
  \Put@Line(0,406)(-5,-3){171}%       %bond 8-7
  \Put@Line(0,406)(5,-3){171}%        %bond 8-8a
  \Put@Line(0,0)(-5,3){171}%          %bond 5-6
  \Put@Line(0,0)(5,3){171}%           %bond 5-10a
  \Put@Line(171,103)(0,1){200}%       %bond 10a-8a
  \Put@Line(-171,103)(0,1){200}%      %bond 6-7
  \Put@Line(342,406)(-5,-3){171}%     %bond 9-8a
  \Put@Line(342,406)(5,-3){171}%      %bond 9-9a
  \Put@Line(342,0)(-5,3){171}%        %bond 10-10a
  \Put@Line(342,0)(5,3){171}%         %bond 10-4a
  \Put@Line(513,103)(0,1){200}%       %bond 4a-9a
  %%%%
  \Put@Line(684,406)(-5,-3){171}%     %bond 1-9a    1-6
  \Put@Line(684,406)(5,-3){171}%      %bond 1-2     1-2
  \Put@Line(855,103)(0,1){200}%       %bond 3-2     3-2
  \Put@Line(684,0)(5,3){171}%         %bond 4-3     4-3
  \Put@Line(684,0)(-5,3){171}%        %bond 4-4a    4-5
\@tfor\member:=#1\do{%
\if\member r%no endcyclic double bonds
\else\if\member a%
  \Put@Line(690,364)(5,-3){126}%      %double bond 1-2
\else\if\member b%
  \Put@Line(822,129)(0,1){148}%       %double bond 3-2
\else\if\member c%
  \Put@Line(690,42)(5,3){126}%        %double bond 4-3
\else\if\member d%
  \Put@Line(690,42)(-5,3){126}%       %double bond 4-4a
\else\if\member e%
  \Put@Line(348,42)(5,3){126}%        %double bond 10-4a
\else\if\member f%
  \Put@Line(348,42)(-5,3){126}%       %double bond 10-10a
\else\if\member g%
  \Put@Line(6,42)(5,3){126}%          %double bond 5-10a
\else\if\member h%
  \Put@Line(-6,42)(-5,3){126}%        %double bond 5-6
\else\if\member i%
  \Put@Line(-138,129)(0,1){148}%      %double bond 6-7
\else\if\member j%
  \Put@Line(-6,364)(-5,-3){126}%      %double bond 8-7
\else\if\member k%
  \Put@Line(6,364)(5,-3){126}%        %double bond 8-8a
\else\if\member l%
  \Put@Line(348,364)(-5,-3){126}%     %double bond 9-8a
\else\if\member m%
  \Put@Line(348,364)(5,-3){126}%      %double bond 9-9a
\else\if\member n%
  \Put@Line(690,364)(-5,-3){126}%     %double bond 1-9a
\else\if\member o%
  \Put@Line(544,129)(0,1){148}%       %double bond 4a-9a
\else\if\member O%
  \Put@Line(482,129)(0,1){148}%       %double bond 4a-9a at the other ring
\else\if\member p%
  \Put@Line(138,129)(0,1){148}%       %double bond 10a-8a
\else\if\member P%
  \Put@Line(204,129)(0,1){148}%       %double bond 10a-8a at the other ring
\else\if\member C%left aromatic circle
  \Put@oCircle(0,203){240}%            %circle
\else\if\member B%right aromatic circle
  \Put@oCircle(342,203){240}%          %circle
\else\if\member A%right aromatic circle
  \Put@oCircle(684,203){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}%
\global\drawsamesubsttrue%2002/05/30 warning on
\Put@Direct(0,0){\setsixringv{#2}{-7}{0}{2}{0}}%  %for 8 positions
\global\drawsamesubstfalse%2002/05/30 warning off
\Put@Direct(0,0){\setsixringv{#2}{-1}{3}{7}{0}}%  %for 5 to 7 positions
\Put@Direct(684,0){\setsixringv{#2}{0}{0}{5}{0}}% %for 1 to 4 positions
\Put@Direct(342,0){\setsixringv{#2}{-8}{0}{2}{0}}%for 9-position
\Put@Direct(342,0){\setsixringv{#2}{-6}{3}{5}{0}}%for 10-position
\Put@Direct(0,0){\setfusedbond{#2}{-12}{-1}{1}{0}}% for 8a and 10a
\Put@Direct(342,0){\setfusedbond{#2}{-11}{-1}{1}{0}}% for 9a and 4a
\end{sfpicture}}%               %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[bBC]{#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{sfpicture}(0,0)(-\yl@shiftii,-\yl@shifti)
 \reset@yl@xydiff%1999/1/6 by S. Fujita
\else
 \begin{sfpicture}(1200,1200)(-\shiftii,-\shifti)
  \origptoutput{hphenanthrenev}%
\fi
  \Put@Line(0,406)(-5,-3){171}%       %bond 6-5
  \Put@Line(0,406)(5,-3){171}%        %bond 5-4a
  \Put@Line(0,0)(-5,3){171}%          %bond 8-7
  \Put@Line(0,0)(5,3){171}%            %bond 8-8a
  \Put@Line(171,103)(0,1){200}%       %bond 8a-4b
  \Put@Line(-171,103)(0,1){200}%      %bond 7-6
  \Put@Line(342,406)(-5,-3){171}%     %bond 4a-4b
  \Put@Line(342,406)(5,-3){171}%      %bond 4a-10a
  \Put@Line(342,0)(-5,3){171}%        %bond 9-8a
  \Put@Line(342,0)(5,3){171}%         %bond 9-10
  \Put@Line(513,103)(0,1){200}%       %bond 10-10a
  %%%%
  \Put@Line(342,406)(0,1){200}%       %bond 4a-4
  \Put@Line(513,709)(-5,-3){171}%     %bond 3-4
  \Put@Line(513,709)(5,-3){171}%      %bond 3-2
  \Put@Line(684,406)(0,1){200}%       %bond 1-2
  \Put@Line(513,303)(5,3){171}%       %bond 10a-1
\@tfor\member:=#1\do{%
\if\member r%no endcyclic double bonds
\else\if\member a%
  \Put@Line(651,432)(0,1){148}%       %double bond 1-2
\else\if\member b%
  \Put@Line(519,667)(5,-3){126}%      %double bond 3-2
\else\if\member c%
  \Put@Line(519,667)(-5,-3){126}%     %double bond 3-4
\else\if\member d%
  \Put@Line(375,432)(0,1){148}%       %double bond 4a-4
\else\if\member e%
  \Put@Line(348,364)(-5,-3){126}%     %double bond 4a-4b
\else\if\member f%
  \Put@Line(6,364)(5,-3){126}%        %double bond 5-4b
\else\if\member g%
  \Put@Line(-6,364)(-5,-3){126}%      %double bond 5-6
\else\if\member h%
  \Put@Line(-138,129)(0,1){148}%      %double bond 6-7
\else\if\member i%
  \Put@Line(-6,42)(-5,3){126}%        %double bond 8-7
\else\if\member j%
  \Put@Line(6,42)(5,3){126}%          %double bond 8-8a
\else\if\member k%
  \Put@Line(348,42)(-5,3){126}%       %double bond 9-8a
\else\if\member l%
  \Put@Line(348,42)(5,3){126}%        %double bond 9-10
\else\if\member m%
  \Put@Line(482,129)(0,1){148}%       %double bond 10-10a
\else\if\member n%
  \Put@Line(519,345)(5,3){126}%       %double bond 10a-1
\else\if\member o%
  \Put@Line(507,345)(-5,3){126}%      %double bond 10a-4a
\else\if\member O%
  \Put@Line(348,364)(5,-3){126}%     %double bond 4a-10a
\else\if\member p%
  \Put@Line(138,129)(0,1){148}%       %double bond 8a-4b
\else\if\member P%
  \Put@Line(204,129)(0,1){148}%       %double bond 8a-4b
\else\if\member C%left aromatic circle
  \Put@oCircle(0,203){240}%            %circle
\else\if\member B%right aromatic circle
  \Put@oCircle(342,203){240}%          %circle
\else\if\member A%right aromatic circle
  \Put@oCircle(513,506){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}%
\global\drawsamesubsttrue%2002/05/30 warning on
\Put@Direct(0,0){\setsixringv{#2}{-4}{0}{2}{0}}%   %for 5 position
\global\drawsamesubstfalse%2002/05/30 warning off
\Put@Direct(0,0){\setsixringv{#2}{12}{3}{7}{-1}}%   %for 6 to 8 positions
\Put@Direct(342,0){\setsixringv{#2}{13}{2}{5}{-1}}%   %for 9 to 10 positions
\Put@Direct(513,303){\setsixringv{#2}{4}{0}{4}{-1}}% %for 1 to 3 positions
\Put@Direct(513,303){\setsixringv{#2}{2}{5}{7}{0}}%  %for 4-position
\Put@Direct(0,0){\setfusedbond{#2}{-12}{-1}{1}{0}}%  % for 4b and 8a
\Put@Direct(342,0){\setfusedbond{#2}{-10}{0}{2}{0}}% % for 4a and 10a
\end{sfpicture}}%               %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{%
\iniatom\iniflag%initialize
\@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{sfpicture}(0,0)(-\yl@shiftii,-\yl@shifti)
 \reset@yl@xydiff%1999/1/6 by S. Fujita
\else
 \begin{sfpicture}(1600,1300)(-\shiftii,-\shifti)
  \origptoutput{steroid}%
\fi
  \Put@Direct(0,0){\@steroidskeleton{#1}{#2}}%
\end{sfpicture}}%               %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@Line(0,406)(-5,-3){171}%       %bond 1-2
  \Put@Line(0,406)(5,-3){171}%        %bond 1-10
  \Put@Line(0,0)(-5,3){171}%          %bond 4-3
  \Put@Line(0,0)(5,3){171}%           %bond 4-5
  \Put@Line(171,103)(0,1){200}%       %bond 5-10
  \Put@Line(-171,103)(0,1){200}%      %bond 3-2
  \Put@Line(342,406)(-5,-3){171}%     %bond 9-10
  \Put@Line(342,406)(5,-3){171}%      %bond 9-8
  \Put@Line(342,0)(-5,3){171}%        %bond 6-5
  \Put@Line(342,0)(5,3){171}%         %bond 6-7
  \Put@Line(513,103)(0,1){200}%       %bond 7-8
  %%%%
  \Put@Line(342,406)(0,1){200}%       %bond 9-11
  \Put@Line(513,709)(-5,-3){171}%     %bond 12-11
  \Put@Line(513,709)(5,-3){171}%      %bond 12-13
  \Put@Line(684,406)(0,1){200}%       %bond 14-13
  \Put@Line(513,303)(5,3){171}%       %bond 8-14
  %%%%
  \Put@Line(855,709)(-5,-3){171}%     %bond 17-13
  \Put@Line(855,709)(5,-3){171}%      %bond 17-16
  \Put@Line(1026,406)(0,1){200}%      %bond 15-16
  \Put@Line(684,406)(1,0){342}%       %bond 14-15
\@tfor\member:=#1\do{%
\if\member Z%no endcyclic double bonds
\else\if\member a%
  \Put@Line(-6,364)(-5,-3){126}%      %double bond 1-2 5-6
\else\if\member b%
  \Put@Line(-138,129)(0,1){148}%      %double bond 3-2 6-7
\else\if\member c%
  \Put@Line(-6,42)(-5,3){126}%        %double bond 4-3 8-7
\else\if\member d%
  \Put@Line(6,42)(5,3){126}%          %double bond 4-5 8-8a
\else\if\member e%
  \Put@Line(348,42)(-5,3){126}%       %double bond 6-5 9-8a
\else\if\member f%
  \Put@Line(348,42)(5,3){126}%        %double bond 6-7 9-10
\else\if\member g%
  \Put@Line(482,129)(0,1){148}%       %double bond 7-8 10-10a
\else\if\member h%
  \Put@Line(507,345)(-5,3){126}%      %double bond 8-9  10a-4a
\else\if\member H%
  \Put@Line(348,364)(5,-3){126}%     %double bond 9-8  4a-10a
\else\if\member i%
  \Put@Line(348,364)(-5,-3){126}%     %double bond 9-10  4a-4b
\else\if\member j%
  \Put@Line(6,364)(5,-3){126}%        %double bond 1-10 5-4b
\else\if\member k%
  \Put@Line(138,129)(0,1){148}%       %double bond 5-10 8a-4b
\else\if\member K%
  \Put@Line(204,129)(0,1){148}%       %double bond 5-10 8a-4b
\else\if\member l%
  \Put@Line(375,432)(0,1){148}%       %double bond 9-11    4-5
\else\if\member m%
  \Put@Line(519,667)(-5,-3){126}%     %double bond 12-11   3-4
\else\if\member n%
  \Put@Line(519,667)(5,-3){126}%      %double bond 12-13   3-2
\else\if\member o%
  \Put@Line(651,432)(0,1){148}%       %double bond 13-14  1-2
\else\if\member O%
  \Put@Line(717,432)(0,1){148}%       %double bond 13-14  1-2
\else\if\member p%
  \Put@Line(519,345)(5,3){126}%       %double bond 8-14 10a-1
\else\if\member q%
  \Put@Line(720,439)(1,0){260}%       %double bond 14-15
\else\if\member r%
  \Put@Line(993,432)(0,1){148}%       %double bond 15-16  1-2
\else\if\member s%
  \Put@Line(861,667)(5,-3){126}%      %double bond 17-16   3-2
\else\if\member t%
  \Put@Line(861,667)(-5,-3){126}%     %double bond 17-13   3-4
\else\if\member A%left aromatic circle
  \Put@oCircle(0,203){240}%            %circle
\else\if\member B%right aromatic circle
  \Put@oCircle(342,203){240}%          %circle
\else\if\member C%right aromatic circle
  \Put@oCircle(513,506){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
\global\drawsamesubsttrue%2002/05/30 warning on
\Put@Direct(0,0){\setsixringv{#2}{0}{0}{2}{0}}%  %for 1
\global\drawsamesubstfalse%2002/05/30 warning off
\Put@Direct(0,0){\setsixringv{#2}{8}{3}{7}{-1}}%  %for 2 to 4 positions
\Put@Direct(342,0){\setsixringv{#2}{10}{2}{5}{-1}}% %for 6 to 7 positions
\Put@Direct(513,303){\setsixringv{#2}{-11}{0}{2}{0}}%for 12 position
\Put@Direct(513,303){\setsixringv{#2}{-5}{5}{7}{0}}% %for 11 position
\Put@Direct(855,303){\setsixringv{#2}{18}{0}{4}{-1}}%for 15 to 17 positions
\Put@Direct(171,103){\setatombond{#2}{-4}{7}}%     % for 5
\Put@Direct(171,303){\setatombond{#2}{-9}{1}}%     % for 10
\Put@Direct(513,303){\setatombond{#2}{-7}{1}}%     % for 8
\Put@Direct(342,406){\setatombond{#2}{-8}{7}}%     % for 9
\Put@Direct(684,406){\setatombond{#2}{-13}{7}}%    % for 14
\Put@Direct(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@Direct(0,0){\set@fusionadd@sixv}%
  \else\if\@tmpa A%
      \edef\@@tmpa{F}%
      \Put@Direct(0,0){\set@fusionadd@sixv}%
  \else\if\@tmpa b%
      \edef\@@tmpa{e}%
      \Put@Direct(0,0){\set@fusionadd@sixv}%
  \else\if\@tmpa B%
      \edef\@@tmpa{E}%
      \Put@Direct(0,0){\set@fusionadd@sixv}%
  \else\if\@tmpa c%
      \edef\@@tmpa{d}%
      \Put@Direct(0,0){\set@fusionadd@sixv}%
  \else\if\@tmpa C%
      \edef\@@tmpa{D}%
      \Put@Direct(0,0){\set@fusionadd@sixv}%
  \else\if\@tmpa d%
      \edef\@@tmpa{c}%
      \Put@Direct(0,0){\set@fusionadd@sixv}%
      \if@smallringsw\else
       \XyMTeXWarning{Unfavorable Fusion for bond `d'}%
      \fi
  \else\if\@tmpa D%
      \edef\@@tmpa{C}%
      \Put@Direct(0,0){\set@fusionadd@sixv}%
      \if@smallringsw\else
       \XyMTeXWarning{Unfavorable Fusion for bond `D'}%
      \fi
  \else\if\@tmpa e%
      \edef\@@tmpa{d}%
      \Put@Direct(342,0){\set@fusionadd@sixv}%
      \if@smallringsw\else
       \XyMTeXWarning{Unfavorable Fusion for bond `e'}%
      \fi
  \else\if\@tmpa E%
      \edef\@@tmpa{D}%
      \Put@Direct(342,0){\set@fusionadd@sixv}%
      \if@smallringsw\else
       \XyMTeXWarning{Unfavorable Fusion for bond `E'}%
      \fi
  \else\if\@tmpa f%
      \edef\@@tmpa{c}%
      \Put@Direct(342,0){\set@fusionadd@sixv}%
      \if@smallringsw\else
       \XyMTeXWarning{Unfavorable Fusion for bond `f'}%
      \fi
  \else\if\@tmpa F%
      \edef\@@tmpa{C}%
      \Put@Direct(342,0){\set@fusionadd@sixv}%
      \if@smallringsw\else
       \XyMTeXWarning{Unfavorable Fusion for bond `f'}%
      \fi
  \else\if\@tmpa g%
      \edef\@@tmpa{b}%
      \Put@Direct(342,0){\set@fusionadd@sixv}%
      \if@smallringsw\else
       \XyMTeXWarning{Unfavorable Fusion for bond `g'}%
      \fi
  \else\if\@tmpa G%
      \edef\@@tmpa{B}%
      \Put@Direct(342,0){\set@fusionadd@sixv}%
      \if@smallringsw\else
       \XyMTeXWarning{Unfavorable Fusion for bond `g'}%
      \fi
  \else\if\@tmpa h%
      \edef\@@tmpa{a}%
      \Put@Direct(342,0){\set@fusionadd@sixv}%
      \if@smallringsw\else
       \XyMTeXWarning{Forbidden Fusion for bond `h'}%
      \fi
  \else\if\@tmpa H%
      \edef\@@tmpa{A}%
      \Put@Direct(342,0){\set@fusionadd@sixv}%
      \if@smallringsw\else
       \XyMTeXWarning{Forbidden Fusion for bond `H'}%
      \fi
  \else\if\@tmpa i%
      \edef\@@tmpa{f}%
      \Put@Direct(342,0){\set@fusionadd@sixv}%
      \if@smallringsw\else
       \XyMTeXWarning{Unfavorable Fusion for bond `i'}%
      \fi
  \else\if\@tmpa I%
      \edef\@@tmpa{F}%
      \Put@Direct(342,0){\set@fusionadd@sixv}%
      \if@smallringsw\else
       \XyMTeXWarning{Unfavorable Fusion for bond `I'}%
      \fi
  \else\if\@tmpa j%
      \edef\@@tmpa{a}%
      \Put@Direct(0,0){\set@fusionadd@sixv}%
      \if@smallringsw\else
       \XyMTeXWarning{Unfavorable Fusion for bond `j'}%
      \fi
  \else\if\@tmpa J%
      \edef\@@tmpa{A}%
      \Put@Direct(0,0){\set@fusionadd@sixv}%
      \if@smallringsw\else
       \XyMTeXWarning{Unfavorable Fusion for bond `J'}%
      \fi
  \else\if\@tmpa k%
      \edef\@@tmpa{b}%
      \Put@Direct(0,0){\set@fusionadd@sixv}%
      \if@smallringsw\else
       \XyMTeXWarning{Forbidden Fusion for bond `k'}%
      \fi
  \else\if\@tmpa K%
      \edef\@@tmpa{B}%
      \Put@Direct(0,0){\set@fusionadd@sixv}%
      \if@smallringsw\else
       \XyMTeXWarning{Forbidden Fusion for bond `K'}%
      \fi
  \else\if\@tmpa l%
      \edef\@@tmpa{e}%
      \Put@Direct(513,303){\set@fusionadd@sixv}%
      \if@smallringsw\else
       \XyMTeXWarning{Unfavorable Fusion for bond `l'}%
      \fi
  \else\if\@tmpa L%
      \edef\@@tmpa{E}%
      \Put@Direct(513,303){\set@fusionadd@sixv}%
      \if@smallringsw\else
       \XyMTeXWarning{Unfavorable Fusion for bond `L'}%
      \fi
  \else\if\@tmpa m%
      \edef\@@tmpa{f}%
      \Put@Direct(513,303){\set@fusionadd@sixv}%
  \else\if\@tmpa M%
      \edef\@@tmpa{F}%
      \Put@Direct(513,303){\set@fusionadd@sixv}%
  \else\if\@tmpa n%
      \edef\@@tmpa{a}%
      \Put@Direct(513,303){\set@fusionadd@sixv}%
      \if@smallringsw\else
       \XyMTeXWarning{Unfavorable Fusion for bond `n'}%
      \fi
  \else\if\@tmpa N%
      \edef\@@tmpa{A}%
      \Put@Direct(513,303){\set@fusionadd@sixv}%
      \if@smallringsw\else
       \XyMTeXWarning{Unfavorable Fusion for bond `N'}%
      \fi
  \else\if\@tmpa o%
      \edef\@@tmpa{b}%
      \Put@Direct(513,303){\set@fusionadd@sixv}%
      \if@smallringsw\else
       \XyMTeXWarning{Forbidden Fusion for bond `o'}%
      \fi
  \else\if\@tmpa O%
      \edef\@@tmpa{B}%
      \Put@Direct(513,303){\set@fusionadd@sixv}%
      \if@smallringsw\else
       \XyMTeXWarning{Forbidden Fusion for bond `O'}%
      \fi
  \else\if\@tmpa p%
      \edef\@@tmpa{c}%
      \Put@Direct(513,303){\set@fusionadd@sixv}%
      \if@smallringsw\else
       \XyMTeXWarning{Unfavorable Fusion for bond `N'}%
      \fi
  \else\if\@tmpa P%
      \edef\@@tmpa{C}%
      \Put@Direct(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@Direct(855,303){\set@fusionadd@sixv}%
  \else\if\@tmpa R%
      \edef\@@tmpa{B}%
      \Put@Direct(855,303){\set@fusionadd@sixv}%
  \else\if\@tmpa s%
      \edef\@@tmpa{a}%
      \Put@Direct(855,303){\set@fusionadd@sixv}%
  \else\if\@tmpa S%
      \edef\@@tmpa{A}%
      \Put@Direct(855,303){\set@fusionadd@sixv}%
  \else\if\@tmpa t%
      \edef\@@tmpa{f}%
      \Put@Direct(855,303){\set@fusionadd@sixv}%
      \if@smallringsw\else
       \XyMTeXWarning{Unfavorable Fusion for bond `t'}%
      \fi
  \else\if\@tmpa T%
      \edef\@@tmpa{F}%
      \Put@Direct(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{sfpicture}(0,0)(-\yl@shiftii,-\yl@shifti)%
 \reset@yl@xydiff%1999/1/6 by S. Fujita
\else
 \begin{sfpicture}(2000,1500)(-\shiftii,-\shifti)%
  \iforigpt \typeout{command `steroidchain' is based on `steroid'.}\fi%
\fi
  \Put@Direct(0,0){\@steroidskeleton{#1}{#2}}%
  \Put@Line(855,709)(0,1){200}%       %bond 17-20
  \Put@Line(1026,1012)(-5,-3){171}%   %bond 22-20
  \Put@Line(1026,1012)(5,-3){171}%    %bond 22-23
  \Put@Line(1197,709)(0,1){200}%      %bond 24-23
  \Put@Line(1197,709)(1,0){200}%      %bond 24-25
  \Put@Line(1397,709)(3,5){103}%      %bond 25-26
  \Put@Line(1397,709)(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@Line(888,735)(0,1){148}%       %double bond 17-20
 \else\if\@tmpb b%
  \Put@Line(1020,970)(-5,-3){126}%    %double bond 22-20
 \else\if\@tmpb c%
  \Put@Line(1032,970)(5,-3){126}%     %double bond 22-23
 \else\if\@tmpb d%
  \Put@Line(1164,735)(0,1){148}%      %double bond 24-23
 \else\if\@tmpb e%
  \Put@Line(1233,742)(1,0){140}%      %double bond 24-25
 \else\if\@tmpb f%
  \Put@Line(1433,715)(3,5){72}%       %double bond 25-26
 \else\if\@tmpb g%
  \Put@Line(1433,697)(3,-5){72}%      %double bond 25-27
 \fi\fi\fi\fi\fi\fi\fi\fi\fi}%
\Put@Direct(1026,606){\setsixringv{#2}{-21}{0}{3}{0}}%for 22 and 23 positions
\Put@Direct(1026,606){\setsixringv{#2}{-14}{5}{7}{0}}%for 20 position
\Put@Direct(1197,709){\setsixringv{#2}{-20}{3}{5}{0}}%for 24 position
\Put@Direct(1397,709){\setatombond{#2}{-24}{4}}%      % for 5
\end{sfpicture}}%               %end of \steroidchain macro%
\endinput
%%
%% End of file `carom.sty'.