diff options
Diffstat (limited to 'Master/texmf-dist/tex/latex/xymtex/carom.sty')
-rw-r--r-- | Master/texmf-dist/tex/latex/xymtex/carom.sty | 1369 |
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'. |