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