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, 1369 insertions, 0 deletions
diff --git a/Master/texmf-dist/tex/latex/xymtex/carom.sty b/Master/texmf-dist/tex/latex/xymtex/carom.sty new file mode 100644 index 00000000000..88621f99597 --- /dev/null +++ b/Master/texmf-dist/tex/latex/xymtex/carom.sty @@ -0,0 +1,1369 @@ +%% +%% 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'. |