diff options
Diffstat (limited to 'Master/texmf-dist/tex/latex/xymtex/methylen.sty')
-rw-r--r-- | Master/texmf-dist/tex/latex/xymtex/methylen.sty | 3075 |
1 files changed, 0 insertions, 3075 deletions
diff --git a/Master/texmf-dist/tex/latex/xymtex/methylen.sty b/Master/texmf-dist/tex/latex/xymtex/methylen.sty deleted file mode 100644 index 50013fe367f..00000000000 --- a/Master/texmf-dist/tex/latex/xymtex/methylen.sty +++ /dev/null @@ -1,3075 +0,0 @@ -%% -%% This is file `methylen.sty', -%% generated with the docstrip utility. -%% -%% The original source files were: -%% -%% methylen.dtx (with options: `methylen') -%% -%% This is a generated file. -%% -%% Copyright 1998 by Shinsaku Fujita -%% -%% This file is part of the XyMTeX system. -%% ======================================= -%% -%% Version 1.02 Released on October 31, 1996 (private version) -%% Version 2.00 Released on December 25, 1998 -%% -%% Copyright (C) 1998 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: methylen.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{methylen} -\def\versi@ndate{December 25, 1998} -\def\versi@nno{ver2.00} -\def\copyrighth@lder{SF} % Shinsaku Fujita -\typeout{XyMTeX Macro File `\j@urnalname' (\versi@nno) <\versi@ndate>% -\space[\copyrighth@lder]} -\@ifundefined{setsixringv}{\input chemstr.sty\relax}{} -\@ifundefined{Westbond}{\input aliphat.sty\relax}{} -\@ifundefined{bzdrv}{\input carom.sty\relax}{} -\@ifundefined{hbonde}{\input hetaromh.sty\relax}{} -\unitlength=0.1pt -\newif\if@wrongbdWa \@wrongbdWafalse -\newif\if@wrongbdWd \@wrongbdWdfalse -\newif\if@wrongbdWaL \@wrongbdWaLfalse -\newif\if@wrongbdWdL \@wrongbdWdLfalse -\def\@methsubsta{% -\if@aclip% %clipping - \if\@tmpb S%single bond - \ifx\@tmpc\empty% - \yl@xdiff=31\relax - \yl@ydiff=-17\relax - \put(0,436){\line(0,1){110}}% % single bond at 1 - \putlratom{-31}{563}{\@memberb}% % left or right type - \else\if\@tmpc B%(B) beta - \yl@xdiff=-36\relax - \yl@ydiff=-27\relax - \putlatom{-42}{563}{\@memberb}% % left type - {% - \thicklines% - \put(-18,436){\line(-3,5){60}}% % single bond at 1 - }% - \else\if\@tmpc A%(A) alpha - \yl@xdiff=37\relax - \yl@ydiff=-27\relax - \putratom{41}{563}{\@memberb}% % right type - \@ifundefined{dottedline}{% - \put(18,436){\line(3,5){60}}% % single bond at 1 - }{{\thicklines% - \dottedline{20}(18,436)(72,526)}}% - \else\if\@tmpc b%(b) beta - \yl@xdiff=-36\relax - \yl@ydiff=-27\relax - \putlatom{-42}{563}{\@memberb}% % left type - \put(-18,436){\line(-3,5){60}}% % single bond at 1 - \else\if\@tmpc a%(a) alpha - \yl@xdiff=37\relax - \yl@ydiff=-27\relax - \putratom{41}{563}{\@memberb}% % right type - \put(18,436){\line(3,5){60}}% % single bond at 1 - \fi\fi\fi\fi\fi% - \else\if\@tmpb D%double bond - \yl@xdiff=31\relax - \yl@ydiff=-17\relax - \putlratom{-31}{563}{\@memberb}% % left or right type - \put(-12,436){\line(0,1){110}}% % double bond at 1 - \put(12,436){\line(0,1){110}}% % double bond at 1 - \else\if\@tmpb B%beta single bond - \yl@xdiff=31\relax - \yl@ydiff=-17\relax - \putlratom{-31}{563}{\@memberb}% % left or right type - {% - \thicklines% - \put(0,436){\line(0,1){110}}% % single bond at 1 - }% - \else\if\@tmpb A%alpha single bond - \yl@xdiff=31\relax - \yl@ydiff=-17\relax - \putlratom{-31}{563}{\@memberb}% % left or right type - \@ifundefined{dottedline}{% - \put(0,436){\line(0,1){110}}% % single bond at 1 - }{{\thicklines% - \dottedline{20}(0,436)(0,546)}}% - \else\if\@tmpb W%beta single bond - \yl@xdiff=-10\relax - \yl@ydiff=46\relax - \if@wrongbdWa - \XyMTeXWarning{Wrong Bond-Modifier (W)}% - \fi - \putratom{150}{276}{\@memberb}% % left or right type - \put(40,382){\line(5,-3){100}}% % single bond at 1 - \else% - \yl@xdiff=31\relax - \yl@ydiff=-17\relax - \putlratom{-31}{563}{\@memberb}% % left or right type - \put(0,436){\line(0,1){110}}% % single bond at 1 - \fi\fi\fi\fi\fi% -\else% % no clipping - \if\@tmpb S%single bond - \ifx\@tmpc\empty% - \yl@xdiff=31\relax - \yl@ydiff=-17\relax - \put(0,406){\line(0,1){140}}% % single bond at 1 - \putlratom{-31}{563}{\@memberb}% % left or right type - \else\if\@tmpc B%(B) beta - \yl@xdiff=-30\relax - \yl@ydiff=-37\relax - \putlatom{-42}{563}{\@memberb}% % left type - {% - \thicklines% - \put(0,406){\line(-3,5){72}}% % single bond at 1 - }% - \else\if\@tmpc A%(A) alpha - \yl@xdiff=31\relax - \yl@ydiff=-37\relax - \putratom{41}{563}{\@memberb}% % right type - \@ifundefined{dottedline}{% - \put(0,406){\line(3,5){72}}% % single bond at 1 - }{{\thicklines% - \dottedline{20}(0,406)(72,526)}}% - \else\if\@tmpc b%(b) beta - \yl@xdiff=-30\relax - \yl@ydiff=-37\relax - \putlatom{-42}{563}{\@memberb}% % left type - \put(0,406){\line(-3,5){72}}% % single bond at 1 - \else\if\@tmpc a%(a) alpha - \yl@xdiff=31\relax - \yl@ydiff=-37\relax - \putratom{41}{563}{\@memberb}% % right type - \put(0,406){\line(3,5){72}}% % single bond at 1 - \fi\fi\fi\fi\fi% - \else\if\@tmpb D%double bond - \yl@xdiff=31\relax - \yl@ydiff=-17\relax - \putlratom{-31}{563}{\@memberb}% % left or right type - \put(-12,406){\line(0,1){140}}% % double bond at 1 - \put(12,406){\line(0,1){140}}% % double bond at 1 - \else\if\@tmpb B%beta single bond - \yl@xdiff=31\relax - \yl@ydiff=-17\relax - \putlratom{-31}{563}{\@memberb}% % left or right type - {% - \thicklines% - \put(0,406){\line(0,1){140}}% % single bond at 1 - }% - \else\if\@tmpb A%alpha single bond - \yl@xdiff=31\relax - \yl@ydiff=-17\relax - \putlratom{-31}{563}{\@memberb}% % left or right type - \@ifundefined{dottedline}{% - \put(0,406){\line(0,1){140}}% % single bond at 1 - }{{\thicklines% - \dottedline{20}(0,406)(0,546)}}% - \else\if\@tmpb W%beta single bond - \yl@xdiff=-10\relax - \yl@ydiff=58\relax - \if@wrongbdWa - \XyMTeXWarning{Wrong Bond-Modifier (W)}% - \fi - \putratom{130}{276}{\@memberb}% % left or right type - \put(0,406){\line(5,-3){120}}% % single bond at 1 - \else% - \yl@xdiff=31\relax - \yl@ydiff=-17\relax - \putlratom{-31}{563}{\@memberb}% % left or right type - \put(0,406){\line(0,1){140}}% % single bond at 1 - \fi\fi\fi\fi\fi% - \fi}% -\def\@methsubstd{% -\if@clip %clipping - \if\@tmpb S%single bond - \ifx\@tmpc\empty% - \yl@xdiff=31\relax - \yl@ydiff=90\relax - \putlratom{-31}{-230}{\@memberb}% % left or right type - \put(0,-30){\line(0,-1){110}}% % single bond at 4 - \else\if\@tmpc B%(B) beta - \yl@xdiff=-36\relax - \yl@ydiff=100\relax - \putlatom{-42}{-230}{\@memberb}% % left type - {% - \thicklines% - \put(-18,-30){\line(-3,-5){60}}% % single bond at 4 - }% - \else\if\@tmpc A%(A) alpha - \yl@xdiff=37\relax - \yl@ydiff=100\relax - \putratom{41}{-230}{\@memberb}% % right type - \@ifundefined{dottedline}{% - \put(18,-30){\line(3,-5){60}}% % single bond at 4 - }{{\thicklines% - \dottedline{20}(18,-30)(72,-120)}}% - \else\if\@tmpc b%(b) beta - \yl@xdiff=-36\relax - \yl@ydiff=100\relax - \putlatom{-42}{-230}{\@memberb}% % left type - \put(-18,-30){\line(-3,-5){60}}% % single bond at 4 - \else\if\@tmpc a%(a) alpha - \yl@xdiff=37\relax - \yl@ydiff=100\relax - \putratom{41}{-230}{\@memberb}% % right type - \put(18,-30){\line(3,-5){60}}% % single bond at 4 - \fi\fi\fi\fi\fi% - \else\if\@tmpb D%double bond - \yl@xdiff=31\relax - \yl@ydiff=90\relax - \putlratom{-31}{-230}{\@memberb}% % left or right type - \put(-12,-30){\line(0,-1){110}}% % double bond at 4 - \put(12,-30){\line(0,-1){110}}% % double bond at 4 - \else\if\@tmpb B%beta single bond - \yl@xdiff=31\relax - \yl@ydiff=90\relax - \putlratom{-31}{-230}{\@memberb}% % left or right type - {% - \thicklines% - \put(0,-30){\line(0,-1){110}}% % single bond at 4 - }% - \else\if\@tmpb A%alpha single bond - \yl@xdiff=31\relax - \yl@ydiff=90\relax - \putlratom{-31}{-230}{\@memberb}% % left or right type - \@ifundefined{dottedline}{% - \put(0,-30){\line(0,-1){110}}% % single bond at 4 - }{{\thicklines% - \dottedline{20}(0,-30)(0,-140)}}% - \else\if\@tmpb W%beta single bond - \yl@xdiff=-10\relax - \yl@ydiff=30\relax - \putlratom{150}{54}{\@memberb}% % left or right type - \put(40,24){\line(5,3){100}}% % single bond at 4 - \if@wrongbdWd - \XyMTeXWarning{Wrong Bond-Modifier (W)}% - \fi - \else% - \yl@xdiff=31\relax - \yl@ydiff=90\relax - \putlratom{-31}{-230}{\@memberb}% % left or right type - \put(0,-30){\line(0,-1){110}}% % single bond at 4 - \fi\fi\fi\fi\fi% - \else% no clipping - \if\@tmpb S%single bond - \ifx\@tmpc\empty% - \yl@xdiff=31\relax - \yl@ydiff=90\relax - \putlratom{-31}{-230}{\@memberb}% % left or right type - \put(0,0){\line(0,-1){140}}% % single bond at 4 - \else\if\@tmpc B%(B) beta - \yl@xdiff=-30\relax - \yl@ydiff=110\relax - \putlatom{-42}{-230}{\@memberb}% % left type - {% - \thicklines% - \put(0,0){\line(-3,-5){72}}% % single bond at 4 - }% - \else\if\@tmpc A%(A) alpha - \yl@xdiff=31\relax - \yl@ydiff=110\relax - \putratom{41}{-230}{\@memberb}% % right type - \@ifundefined{dottedline}{% - \put(0,0){\line(3,-5){72}}% % single bond at 4 - }{{\thicklines% - \dottedline{20}(0,0)(72,-120)}}% - \else\if\@tmpc b%(b) beta - \yl@xdiff=-30\relax - \yl@ydiff=110\relax - \putlatom{-42}{-230}{\@memberb}% % left type - \put(0,0){\line(-3,-5){72}}% % single bond at 4 - \else\if\@tmpc a%(a) alpha - \yl@xdiff=31\relax - \yl@ydiff=110\relax - \putratom{41}{-230}{\@memberb}% % right type - \put(0,0){\line(3,-5){72}}% % single bond at 4 - \fi\fi\fi\fi\fi% - \else\if\@tmpb D%double bond - \yl@xdiff=31\relax - \yl@ydiff=90\relax - \putlratom{-31}{-230}{\@memberb}% % left or right type - \put(-12,0){\line(0,-1){140}}% % double bond at 4 - \put(12,0){\line(0,-1){140}}% % double bond at 4 - \else\if\@tmpb B%beta single bond - \yl@xdiff=31\relax - \yl@ydiff=90\relax - \putlratom{-31}{-230}{\@memberb}% % left or right type - {% - \thicklines% - \put(0,0){\line(0,-1){140}}% % single bond at 4 - }% - \else\if\@tmpb A%alpha single bond - \yl@xdiff=31\relax - \yl@ydiff=90\relax - \putlratom{-31}{-230}{\@memberb}% % left or right type - \@ifundefined{dottedline}{% - \put(0,0){\line(0,-1){140}}% % single bond at 4 - }{{\thicklines% - \dottedline{20}(0,0)(0,-140)}}% - \else\if\@tmpb W%beta single bond - \yl@xdiff=-10\relax - \yl@ydiff=30\relax - \putlratom{150}{54}{\@memberb}% % left or right type - \put(0,0){\line(5,3){140}}% % single bond at 4 - \if@wrongbdWd - \XyMTeXWarning{Wrong Bond-Modifier (W)}% - \fi - \else% - \yl@xdiff=31\relax - \yl@ydiff=90\relax - \putlratom{-31}{-230}{\@memberb}% % left or right type - \put(0,0){\line(0,-1){140}}% % single bond at 4 - \fi\fi\fi\fi\fi% - \fi}% -\def\@methsubstdL{% -\if@clip %clipping - \if\@tmpb S%single bond - \ifx\@tmpc\empty% - \yl@xdiff=31\relax - \yl@ydiff=90\relax - \putlratom{-31}{-230}{\@memberb}% % left or right type - \put(0,-30){\line(0,-1){110}}% % single bond at 4 - \else\if\@tmpc B%(B) beta - \yl@xdiff=-36\relax - \yl@ydiff=100\relax - \putlatom{-42}{-230}{\@memberb}% % left type - {% - \thicklines% - \put(-18,-30){\line(-3,-5){60}}% % single bond at 4 - }% - \else\if\@tmpc A%(A) alpha - \yl@xdiff=37\relax - \yl@ydiff=100\relax - \putratom{41}{-230}{\@memberb}% % right type - \@ifundefined{dottedline}{% - \put(18,-30){\line(3,-5){60}}% % single bond at 4 - }{{\thicklines% - \dottedline{20}(18,-30)(72,-120)}}% - \else\if\@tmpc b%(b) beta - \yl@xdiff=-36\relax - \yl@ydiff=100\relax - \putlatom{-42}{-230}{\@memberb}% % left type - \put(-18,-30){\line(-3,-5){60}}% % single bond at 4 - \else\if\@tmpc a%(a) alpha - \yl@xdiff=37\relax - \yl@ydiff=100\relax - \putratom{41}{-230}{\@memberb}% % right type - \put(18,-30){\line(3,-5){60}}% % single bond at 4 - \fi\fi\fi\fi\fi% - \else\if\@tmpb D%double bond - \yl@xdiff=31\relax - \yl@ydiff=90\relax - \putlratom{-31}{-230}{\@memberb}% % left or right type - \put(-12,-30){\line(0,-1){110}}% % double bond at 4 - \put(12,-30){\line(0,-1){110}}% % double bond at 4 - \else\if\@tmpb B%beta single bond - \yl@xdiff=31\relax - \yl@ydiff=90\relax - \putlratom{-31}{-230}{\@memberb}% % left or right type - {% - \thicklines% - \put(0,-30){\line(0,-1){110}}% % single bond at 4 - }% - \else\if\@tmpb A%alpha single bond - \yl@xdiff=31\relax - \yl@ydiff=90\relax - \putlratom{-31}{-230}{\@memberb}% % left or right type - \@ifundefined{dottedline}{% - \put(0,-30){\line(0,-1){110}}% % single bond at 4 - }{{\thicklines% - \dottedline{20}(0,-30)(0,-140)}}% - \else\if\@tmpb W%beta single bond - \yl@xdiff=10\relax - \yl@ydiff=30\relax - \putlatom{-150}{54}{\@memberb}% % lefttype - \put(-40,24){\line(-5,3){100}}% % single bond at 4 - \if@wrongbdWdL - \XyMTeXWarning{Wrong Bond-Modifier (W)}% - \fi - \else% - \yl@xdiff=31\relax - \yl@ydiff=90\relax - \putlratom{-31}{-230}{\@memberb}% % left or right type - \put(0,-30){\line(0,-1){110}}% % single bond at 4 - \fi\fi\fi\fi\fi% - \else% no clipping - \if\@tmpb S%single bond - \ifx\@tmpc\empty% - \yl@xdiff=31\relax - \yl@ydiff=90\relax - \putlratom{-31}{-230}{\@memberb}% % left or right type - \put(0,0){\line(0,-1){140}}% % single bond at 4 - \else\if\@tmpc B%(B) beta - \yl@xdiff=-30\relax - \yl@ydiff=110\relax - \putlatom{-42}{-230}{\@memberb}% % left type - {% - \thicklines% - \put(0,0){\line(-3,-5){72}}% % single bond at 4 - }% - \else\if\@tmpc A%(A) alpha - \yl@xdiff=31\relax - \yl@ydiff=110\relax - \putratom{41}{-230}{\@memberb}% % right type - \@ifundefined{dottedline}{% - \put(0,0){\line(3,-5){72}}% % single bond at 4 - }{{\thicklines% - \dottedline{20}(0,0)(72,-120)}}% - \else\if\@tmpc b%(b) beta - \yl@xdiff=-30\relax - \yl@ydiff=110\relax - \putlatom{-42}{-230}{\@memberb}% % left type - \put(0,0){\line(-3,-5){72}}% % single bond at 4 - \else\if\@tmpc a%(a) alpha - \yl@xdiff=31\relax - \yl@ydiff=110\relax - \putratom{41}{-230}{\@memberb}% % right type - \put(0,0){\line(3,-5){72}}% % single bond at 4 - \fi\fi\fi\fi\fi% - \else\if\@tmpb D%double bond - \yl@xdiff=31\relax - \yl@ydiff=90\relax - \putlratom{-31}{-230}{\@memberb}% % left or right type - \put(-12,0){\line(0,-1){140}}% % double bond at 4 - \put(12,0){\line(0,-1){140}}% % double bond at 4 - \else\if\@tmpb B%beta single bond - \yl@xdiff=31\relax - \yl@ydiff=90\relax - \putlratom{-31}{-230}{\@memberb}% % left or right type - {% - \thicklines% - \put(0,0){\line(0,-1){140}}% % single bond at 4 - }% - \else\if\@tmpb A%alpha single bond - \yl@xdiff=31\relax - \yl@ydiff=90\relax - \putlratom{-31}{-230}{\@memberb}% % left or right type - \@ifundefined{dottedline}{% - \put(0,0){\line(0,-1){140}}% % single bond at 4 - }{{\thicklines% - \dottedline{20}(0,0)(0,-140)}}% - \else\if\@tmpb W%beta single bond - \yl@xdiff=10\relax - \yl@ydiff=30\relax - \putlatom{-150}{54}{\@memberb}% % left type - \put(0,0){\line(-5,3){140}}% % single bond at 4 - \if@wrongbdWdL - \XyMTeXWarning{Wrong Bond-Modifier (W)}% - \fi - \else% - \yl@xdiff=31\relax - \yl@ydiff=90\relax - \putlratom{-31}{-230}{\@memberb}% % left or right type - \put(0,0){\line(0,-1){140}}% % single bond at 4 - \fi\fi\fi\fi\fi% - \fi}% -\def\@methsubstaL{% -\if@aclip% %clipping - \if\@tmpb S%single bond - \ifx\@tmpc\empty% - \yl@xdiff=31\relax - \yl@ydiff=-17\relax - \put(0,436){\line(0,1){110}}% % single bond at 1 - \putlratom{-31}{563}{\@memberb}% % left or right type - \else\if\@tmpc B%(B) beta - \yl@xdiff=-36\relax - \yl@ydiff=-27\relax - \putlatom{-42}{563}{\@memberb}% % left type - {% - \thicklines% - \put(-18,436){\line(-3,5){60}}% % single bond at 1 - }% - \else\if\@tmpc A%(A) alpha - \yl@xdiff=37\relax - \yl@ydiff=-27\relax - \putratom{41}{563}{\@memberb}% % right type - \@ifundefined{dottedline}{% - \put(18,436){\line(3,5){60}}% % single bond at 1 - }{{\thicklines% - \dottedline{20}(18,436)(72,526)}}% - \else\if\@tmpc b%(b) beta - \yl@xdiff=-36\relax - \yl@ydiff=-27\relax - \putlatom{-42}{563}{\@memberb}% % left type - \put(-18,436){\line(-3,5){60}}% % single bond at 1 - \else\if\@tmpc a%(a) alpha - \yl@xdiff=37\relax - \yl@ydiff=-27\relax - \putratom{41}{563}{\@memberb}% % right type - \put(18,436){\line(3,5){60}}% % single bond at 1 - \fi\fi\fi\fi\fi% - \else\if\@tmpb D%double bond - \yl@xdiff=31\relax - \yl@ydiff=-17\relax - \putlratom{-31}{563}{\@memberb}% % left or right type - \put(-12,436){\line(0,1){110}}% % double bond at 1 - \put(12,436){\line(0,1){110}}% % double bond at 1 - \else\if\@tmpb B%beta single bond - \yl@xdiff=31\relax - \yl@ydiff=-17\relax - \putlratom{-31}{563}{\@memberb}% % left or right type - {% - \thicklines% - \put(0,436){\line(0,1){110}}% % single bond at 1 - }% - \else\if\@tmpb A%alpha single bond - \yl@xdiff=31\relax - \yl@ydiff=-17\relax - \putlratom{-31}{563}{\@memberb}% % left or right type - \@ifundefined{dottedline}{% - \put(0,436){\line(0,1){110}}% % single bond at 1 - }{{\thicklines% - \dottedline{20}(0,436)(0,546)}}% - \else\if\@tmpb W%beta single bond - \yl@xdiff=10\relax - \yl@ydiff=46\relax - \putlatom{-150}{276}{\@memberb}% % left type - \put(-40,382){\line(-5,-3){100}}% % single bond at 1 - \if@wrongbdWaL - \XyMTeXWarning{Wrong Bond-Modifier (W)}% - \fi - \else% - \yl@xdiff=31\relax - \yl@ydiff=-17\relax - \putlratom{-31}{563}{\@memberb}% % left or right type - \put(0,436){\line(0,1){110}}% % single bond at 1 - \fi\fi\fi\fi\fi% -\else% % no clipping - \if\@tmpb S%single bond - \ifx\@tmpc\empty% - \yl@xdiff=31\relax - \yl@ydiff=-17\relax - \put(0,406){\line(0,1){140}}% % single bond at 1 - \putlratom{-31}{563}{\@memberb}% % left or right type - \else\if\@tmpc B%(B) beta - \yl@xdiff=-30\relax - \yl@ydiff=-37\relax - \putlatom{-42}{563}{\@memberb}% % left type - {% - \thicklines% - \put(0,406){\line(-3,5){72}}% % single bond at 1 - }% - \else\if\@tmpc A%(A) alpha - \yl@xdiff=31\relax - \yl@ydiff=-37\relax - \putratom{41}{563}{\@memberb}% % right type - \@ifundefined{dottedline}{% - \put(0,406){\line(3,5){72}}% % single bond at 1 - }{{\thicklines% - \dottedline{20}(0,406)(72,526)}}% - \else\if\@tmpc b%(b) beta - \yl@xdiff=-30\relax - \yl@ydiff=-37\relax - \putlatom{-42}{563}{\@memberb}% % left type - \put(0,406){\line(-3,5){72}}% % single bond at 1 - \else\if\@tmpc a%(a) alpha - \yl@xdiff=31\relax - \yl@ydiff=-37\relax - \putratom{41}{563}{\@memberb}% % right type - \put(0,406){\line(3,5){72}}% % single bond at 1 - \fi\fi\fi\fi\fi% - \else\if\@tmpb D%double bond - \yl@xdiff=31\relax - \yl@ydiff=-17\relax - \putlratom{-31}{563}{\@memberb}% % left or right type - \put(-12,406){\line(0,1){140}}% % double bond at 1 - \put(12,406){\line(0,1){140}}% % double bond at 1 - \else\if\@tmpb B%beta single bond - \yl@xdiff=31\relax - \yl@ydiff=-17\relax - \putlratom{-31}{563}{\@memberb}% % left or right type - {% - \thicklines% - \put(0,406){\line(0,1){140}}% % single bond at 1 - }% - \else\if\@tmpb A%alpha single bond - \yl@xdiff=31\relax - \yl@ydiff=-17\relax - \putlratom{-31}{563}{\@memberb}% % left or right type - \@ifundefined{dottedline}{% - \put(0,406){\line(0,1){140}}% % single bond at 1 - }{{\thicklines% - \dottedline{20}(0,406)(0,546)}}% - \else\if\@tmpb W%beta single bond - \yl@xdiff=10\relax - \yl@ydiff=58\relax - \putlatom{-130}{276}{\@memberb}% % left type - \put(0,406){\line(-5,-3){120}}% % single bond at 1 - \if@wrongbdWaL - \XyMTeXWarning{Wrong Bond-Modifier (W)}% - \fi - \else% - \yl@xdiff=31\relax - \yl@ydiff=-17\relax - \putlratom{-31}{563}{\@memberb}% % left or right type - \put(0,406){\line(0,1){140}}% % single bond at 1 - \fi\fi\fi\fi\fi% - \fi}% -\def\SKbondB{% - \ifx\bbb\empty% - \ifx\ccc\empty% - \put(0,406){\line(5,-3){171}}% %bond 1-2 - \else% - \put(0,406){\line(5,-3){136}}% %bond 1-2 - \fi% - \else% - \ifx\ccc\empty% - \put(35,385){\line(5,-3){136}}% %bond 1-2 - \else% - \put(35,385){\line(5,-3){100}}% %bond 1-2 - \fi% - \fi}% -\def\SKbondA{% - \ifx\bbb\empty% - \ifx\aaa\empty% - \put(0,406){\line(-5,-3){171}}% %bond 1-6 - \else% - \put(0,406){\line(-5,-3){136}}% %bond 1-6 - \fi% - \else% - \ifx\aaa\empty% - \put(-35,385){\line(-5,-3){136}}% %bond 1-6 - \else% - \put(-35,385){\line(-5,-3){100}}% %bond 1-6 - \fi% - \fi}% -\def\SKbondBi{% - \begin{picture}(0,0)(0,0) - \ifx\bbb\empty% - \ifx\ccc\empty% - \put(0,0){\line(5,3){171}}% %bond 4-3 - \else% - \put(0,0){\line(5,3){136}}% %bond 4-3 - \fi% - \else% - \ifx\ccc\empty% - \put(35,21){\line(5,3){138}}% %bond 4-3 - \else% - \put(35,21){\line(5,3){100}}% %bond 4-3 - \fi% - \fi\end{picture}}% -\def\SKbondAi{% - \begin{picture}(0,0)(0,0) - \ifx\bbb\empty% - \ifx\aaa\empty% - \put(0,0){\line(-5,3){171}}% %bond 4-5 - \else% - \put(0,0){\line(-5,3){136}}% %bond 4-5 - \fi% - \else% - \ifx\aaa\empty% - \put(-35,21){\line(-5,3){138}}% %bond 4-5 - \else% - \put(-35,21){\line(-5,3){100}}% %bond 4-5 - \fi% - \fi\end{picture}}% -\def\bondB{% - \ifx\bbb\empty% - \ifx\ccc\empty% - \put(6,364){\line(5,-3){126}}% %double bond 1-2 - \else% - \put(6,364){\line(5,-3){100}}% %double bond 1-2 - \fi% - \else% - \ifx\ccc\empty% - \put(35,340){\line(5,-3){100}}% %double bond 1-2 - \else% - \put(35,352){\line(5,-3){100}}% %double bond 1-2 - \fi% % line <1OO not available - \fi% - }% -\def\bondBB{% - \ifx\bbb\empty% - \ifx\ccc\empty% - \put(42,420){\line(5,-3){126}}% %double bond 1-2 - \else% - \put(42,420){\line(5,-3){100}}% %double bond 1-2 - \fi% - \else% - \ifx\ccc\empty% - \put(52,412){\line(5,-3){110}}% %double bond 1-2 - \else% - \put(52,412){\line(5,-3){100}}% %double bond 1-2 - \fi% % line <1OO not available - \fi% - }% -\def\bondA{% - \ifx\bbb\empty% - \ifx\aaa\empty% - \put(-6,364){\line(-5,-3){126}}% %double bond 1-6 - \else% - \put(-6,364){\line(-5,-3){100}}% %double bond 1-6 - \fi% - \else% - \ifx\aaa\empty% - \put(-35,340){\line(-5,-3){100}}% %double bond 1-6 - \else% - \put(-35,352){\line(-5,-3){100}}% %double bond 1-6 - \fi% % line <1OO not available - \fi% -}% -\def\bondAA{% - \ifx\bbb\empty% - \ifx\aaa\empty% - \put(-42,420){\line(-5,-3){126}}% %double bond 1-6 - \else% - \put(-42,420){\line(-5,-3){100}}% %double bond 1-6 - \fi% - \else% - \ifx\aaa\empty% - \put(-52,412){\line(-5,-3){100}}% %double bond 1-6 - \else% - \put(-52,412){\line(-5,-3){100}}% %double bond 1-6 - \fi% % line <1OO not available - \fi% -}% - \def\bondBi{% - \ifx\bbb\empty% - \ifx\ccc\empty% - \put(6,42){\line(5,3){126}} %double bond 4-3 - \else% - \put(6,42){\line(5,3){100}} %double bond 4-3 - \fi% - \else% - \ifx\ccc\empty% - \put(35,66){\line(5,3){100}}% %double bond 4-3 - \else% - \put(35,60){\line(5,3){100}}% %double bond 4-3 - \fi% % line <1OO not available - \fi% -}% - \def\bondBBi{% - \ifx\bbb\empty% - \ifx\ccc\empty% - \put(42,-14){\line(5,3){126}}% %double bond 1-6 - \else% - \put(30,-14){\line(5,3){100}}% %double bond 1-6 - \fi% - \else% - \ifx\ccc\empty% - \put(52,0){\line(5,3){100}}% %double bond 1-6 - \else% - \put(52,0){\line(5,3){100}}% %double bond 4-5 - \fi% % line <1OO not available - \fi% -}% - - \def\bondAi{% - \ifx\bbb\empty% - \ifx\aaa\empty% - \put(-6,42){\line(-5,3){126}}% %double bond 4-5 - \else% - \put(-6,42){\line(-5,3){100}}% %double bond 4-5 - \fi% - \else% - \ifx\aaa\empty% - \put(-35,66){\line(-5,3){100}}% %double bond 4-5 - \else% - \put(-35,60){\line(-5,3){100}}% %double bond 4-5 - \fi% % line <1OO not available - \fi% - }% - \def\bondAAi{% - \ifx\bbb\empty% - \ifx\aaa\empty% - \put(-42,-14){\line(-5,3){126}}% %double bond 1-6 - \else% - \put(-42,-14){\line(-5,3){100}}% %double bond 1-6 - \fi% - \else% - \ifx\aaa\empty% - \put(-52,6){\line(-5,3){100}}% %double bond 1-6 - \else% - \put(-52,0){\line(-5,3){100}}% %double bond 4-5 - \fi% % line <1OO not available - \fi% - }% -\newif\if@adoublebond \@adoublebondfalse -\newif\if@bdoublebond \@bdoublebondfalse -\newif\if@Adoublebond \@Adoublebondfalse -\newif\if@Bdoublebond \@Bdoublebondfalse -\def\reset@double{% -\@adoublebondfalse\@bdoublebondfalse -\@Adoublebondfalse\@Bdoublebondfalse} -\newif\if@linterchainsw \@linterchainswfalse -\newif\if@rinterchainsw \@rinterchainswfalse -\def\reset@interchainsw{\@linterchainswfalse\@rinterchainswfalse} -\def\@@trimethylene#1#2#3#4{% -\leavevmode -\iniatom\iniflag%initialize -\test@vrtx@trimethy{#1}{#4}% -\begin{picture}(450,480)(0,0) - \put(171,-303){\SKbondB}% bond between 1 and 2 - \put(171,-303){\SKbondA}% bond between 1 and 6 -\if@adoublebond\relax\put(171,-303){\bondA}\fi -\if@bdoublebond\relax\put(171,-303){\bondB}\fi -\if@Adoublebond\relax\put(171,-303){\bondAA}\fi -\if@Bdoublebond\relax\put(171,-303){\bondBB}\fi -\test@termcnt=#3\relax -\set@hetatom@methyl{#1}{#4}{0}{4}{0}% -\@forsemicol\member:=#2\do{% -\ifx\member\empty\else -\expandafter\@m@mb@r\member;\relax% -\expandafter\threech@r\@membera{}{}% -\@tmpaa=\@tmpa \advance\@tmpaa by#4\relax -\ifx\@memberb\@yl\else -\ifcase\@tmpaa%0 omit -\or - \ifcase#3 - {\if@aclip \@cliptrue \else \@clipfalse\fi - \put(0,0){\@methsubstdL}}% - \or\relax - \or - {\if@aclip \@cliptrue \else \@clipfalse\fi - \put(0,0){\@methsubstdL}}% - \fi -\or -{\if@bclip \@acliptrue \else \@aclipfalse\fi - \put(171,-303){\@methsubsta}} -\or - \ifcase#3 - {\if@cclip \@cliptrue\else \@clipfalse\fi - \put(342,0){\@methsubstd}}% - \or - {\if@cclip \@cliptrue\else \@clipfalse\fi - \put(342,0){\@methsubstd}}% - \or\relax - \fi -\fi%end of ifcase -\fi\fi -}% -\end{picture}}% end of \@@trimethylene -\def\test@vrtx@trimethy#1#2{% -\@forsemicol\member:=#1\do{% -\ifx\member\empty\else -\expandafter\@m@mb@r\member;\relax% -\expandafter\twoch@r\@membera{}% -\@tmpaa=\@tmpa \advance\@tmpaa by#2\relax -\ifcase\@tmpaa% - \or \if\@tmpb s\relax \xdef\aaa{}\else\if\@tmpb h\relax - \xdef\aaa{@}\else\xdef\aaa{@}\fi\fi - \or \if\@tmpb s\relax \xdef\bbb{}\else\if\@tmpb h\relax - \xdef\bbb{@}\else\xdef\bbb{@}\fi\fi - \or \if\@tmpb s\relax \xdef\ccc{}\else\if\@tmpb h\relax - \xdef\ccc{@}\else\xdef\ccc{@}\fi\fi -\fi\fi}} -\def\yltrimethyleneposition#1#2#3#4{% -\@forsemicol\member:=#1\do{% -\ifx\member\empty\else -\expandafter\@m@mb@r\member;\relax% -\expandafter\twoch@r\@membera{}% -\@tmpaa=\@tmpa \advance\@tmpaa by#4\relax -\ifcase\@tmpaa% - \or \def\aaa{@}%\def\aaa{\@memberb}% - \or \def\bbb{@}%\def\bbb{\@memberb}% - \or \def\ccc{@}%\def\ccc{\@memberb}% -\fi\fi}% -\@@ylswfalse%%%\@reset@ylsw -\@forsemicol\member:=#2\do{\expandafter\@m@mb@r\member;\relax% -\expandafter\threech@r\@membera{}{}% -\@tmpaa=\@tmpa \advance\@tmpaa by#4\relax -\ifx\@memberb\@yl\relax\@@ylswtrue\else\@@ylswfalse\fi -\if@@ylsw -\ifcase\@tmpaa%0 omit -\or - \ifcase#3 - \ifx\aaa\empty - \gdef\@ylii{0}\gdef\@yli{0}\global\@ylswtrue% subst. on 1 - \else - \if@linterchainsw%interchain position - \gdef\@ylii{0}\gdef\@yli{40}\global\@ylswtrue% subst. on 1 - \else% terminal position - \gdef\@ylii{40}\gdef\@yli{-24}\global\@ylswtrue% subst. on 1 - \fi - \fi - \or\relax - \or - \ifx\aaa\empty - \gdef\@ylii{0}\gdef\@yli{0}\global\@ylswtrue% subst. on 1 - \else - \if@linterchainsw%interchain position - \gdef\@ylii{0}\gdef\@yli{40}\global\@ylswtrue% subst. on 1 - \else% terminal position - \gdef\@ylii{40}\gdef\@yli{-24}\global\@ylswtrue% subst. on 1 - \fi - \fi - \fi -\or - \ifx\bbb\empty - \gdef\@ylii{-171}\gdef\@yli{-103}\global\@ylswtrue% subst. on 2 - \else - \gdef\@ylii{-171}\gdef\@yli{-133}\global\@ylswtrue% subst. on 2 - \fi -\or - \ifcase#3 - \ifx\ccc\empty - \gdef\@ylii{-342}\gdef\@yli{0}\global\@ylswtrue% subst. on 3 - \else - \if@rinterchainsw%interchain position - \gdef\@ylii{-342}\gdef\@yli{40}\global\@ylswtrue% subst. on 3 - \else - \gdef\@ylii{-382}\gdef\@yli{-24}\global\@ylswtrue% subst. on 3 - \fi - \fi - \or - \ifx\ccc\empty - \gdef\@ylii{-342}\gdef\@yli{0}\global\@ylswtrue% subst. on 3 - \else - \if@rinterchainsw%interchain position - \gdef\@ylii{-342}\gdef\@yli{40}\global\@ylswtrue% subst. on 3 - \else - \gdef\@ylii{-382}\gdef\@yli{-24}\global\@ylswtrue% subst. on 3 - \fi - \fi - \or\relax - \fi -\fi%end of ifcase -\fi}}% end of \yltrimethyleneposition -\newcount\test@termcnt -\def\set@hetatom@methyl#1#2#3#4#5{% -\@forsemicol\member:=#1\do{% -\ifx\member\empty\else -\expandafter\@m@mb@r\member;\relax% -\expandafter\twoCH@R\@membera//% -\ifnum#5 < 0\relax% -\@tmpaa=-\@tmpa\relax \advance\@tmpaa by#2\relax% -\else\@tmpaa=\@tmpa\relax \advance\@tmpaa by#2\relax \fi -\ifnum\@tmpaa >#3\relax% -\ifnum\@tmpaa <#4\relax% -\ifcase\@tmpaa% -\or%position 1 <--- position 6 of set@hetatom@sixv - \ifnum\test@termcnt=1\else%not terminal point (left) - \if\@tmpb h\relax% - \@acliptrue% - \putlatom{0}{30}{\@memberb}% % right type - \else\if\@tmpb s\relax% - \@aclipfalse% - \putlatom{0}{0}{\@memberb}% % right type - \else\if\@tmpb a\relax%omit fused position - \else - \@acliptrue% - \putlatom{36}{-23}{\@memberb}% % left type - \fi\fi\fi - \fi -\or%position 2 <--- position 1 of set@hetatom@sixv - \if\@tmpb h\relax% - \@bcliptrue% - \putratom{171}{53}{\@memberb}% % right type - \else\if\@tmpb s\relax% - \@bclipfalse% - \putratom{171}{103}{\@memberb}% % right type - \else\if\@tmpb a\relax%omit fused position - \else - \@bcliptrue% - \putratom{140}{65}{\@memberb}% % right type - \fi\fi\fi -\or%position 3 <--- position 2 of set@hetatom@sixv - \ifnum\test@termcnt=2\else%not terminal point (right) - \if\@tmpb h\relax - \@ccliptrue% - \putratom{330}{30}{\@memberb}% % right type - \else\if\@tmpb s\relax - \@cclipfalse% - \putratom{346}{0}{\@memberb}% % right type - \else\if\@tmpb a\relax%omit fused position - \else - \@ccliptrue% - \putratom{306}{-23}{\@memberb}% % right type - \fi\fi\fi - \fi -\fi% end of ifcase -\fi\fi\fi}}% end of the macro \set@hetatom@methyl -\def\trimethylene{% -\@ifnextchar[{\@trimethylene[@}{\@trimethylene[]}} -\def\@trimethylene[#1]#2#3{% -\iniflag\iniatom% -\@reset@ylsw% -\reset@interchainsw% -\yltrimethyleneposition{#2}{#3}{0}{0}% -\if@ylsw - \yl@shiftii=\@ylii - \yl@shifti=\@yli - \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}(450,480)(-50,-180) - \iforigpt \put(-50,-180){\circle*{50}}% - \put(0,0){\circle{50}}% - \typeout{command `trimethylene' origin: % - (0,0) ---> (50,180)}\fi% -\fi -\reset@double% -\@tfor\member:=#1\do{% -\if\member a\relax -\@adoublebondtrue -\else\if\member b\relax -\@bdoublebondtrue -\else\if\member A\relax -\@Adoublebondtrue -\else\if\member B\relax -\@Bdoublebondtrue -\else - \expandafter\twoCH@@R\member//% - \set@fusion@trimeth -\fi\fi\fi\fi}% -\@wrongbdWatrue -\@wrongbdWdfalse - \put(0,0){\@@trimethylene{#2}{#3}{0}{0}}% -\end{picture}}% end of \trimethylene \@trimethylene -\def\set@fusion@trimeth{% -\if\@@tmpa a\relax% - \putlratom{0}{0}{\@@tmpb}% % bond fused - \FuseWarning{-171}{-103}% - {\fuseAx}{\fuseAy}{\fuseBx}{\fuseBy}{a}% - \else\if\@@tmpa A\relax% - \putlratom{171}{103}{\@@tmpb}% % bond fused - \FuseWarning{171}{103}% - {\fuseAx}{\fuseAy}{\fuseBx}{\fuseBy}{A}% - \else\if\@@tmpa b\relax% - \putlratom{171}{103}{\@@tmpb}% % bond fused - \FuseWarning{-171}{103}% - {\fuseAx}{\fuseAy}{\fuseBx}{\fuseBy}{b}% - \else\if\@@tmpa B\relax% - \putlratom{342}{0}{\@@tmpb}% % bond fused - \FuseWarning{171}{-103}% - {\fuseAx}{\fuseAy}{\fuseBx}{\fuseBy}{B}% - \fi\fi\fi\fi -}% end of the macro \set@fusion@trimeth -\def\@@trimethylenei#1#2#3#4{% -\leavevmode -\iniatom\iniflag%initialize -\test@vrtx@trimethy{#1}{#4}% -\begin{picture}(450,480)(0,0) - \put(171,0){\SKbondAi}% bond between 1 and 2 - \put(171,0){\SKbondBi}% bond between 2 and 3 -\if@adoublebond\relax\put(171,0){\bondAi}\fi -\if@bdoublebond\relax\put(171,0){\bondBi}\fi -\if@Adoublebond\relax\put(171,0){\bondAAi}\fi -\if@Bdoublebond\relax\put(171,0){\bondBBi}\fi -\test@termcnt=#3\relax -\set@hetatom@methyli{#1}{#4}{0}{4}{0}% -\@forsemicol\member:=#2\do{% -\ifx\member\empty\else -\expandafter\@m@mb@r\member;\relax% -\expandafter\threech@r\@membera{}{}% -\@tmpaa=\@tmpa \advance\@tmpaa by#4\relax -\ifx\@memberb\@yl\else -\ifcase\@tmpaa%0 omit -\or - \ifcase#3 - \put(0,-303){\@methsubstaL}% - \or\relax - \or - \put(0,-303){\@methsubstaL}% - \fi -\or -{\if@bclip \@cliptrue \else \@clipfalse\fi - \put(171,0){\@methsubstd}}% -\or - \ifcase#3 - {\if@cclip \@acliptrue\else \@aclipfalse\fi - \put(342,-303){\@methsubsta}}% - \or - {\if@cclip \@acliptrue\else \@aclipfalse\fi - \put(342,-303){\@methsubsta}}% - \or\relax - \fi -\fi%end of ifcase -\fi\fi -}% -\end{picture}}% end of \@@trimethylenei -\def\yltrimethyleneiposition#1#2#3#4{% -\@forsemicol\member:=#1\do{% -\ifx\member\empty\else -\expandafter\@m@mb@r\member;\relax% -\expandafter\twoCH@R\@membera//% -\@tmpaa=\@tmpa \advance\@tmpaa by#4\relax -\ifcase\@tmpaa% - \or \def\aaa{@}%\def\aaa{\@memberb}% - \or \def\bbb{@}%\def\bbb{\@memberb}% - \or \def\ccc{@}%\def\ccc{\@memberb}% -\fi% -\fi}% -\@@ylswfalse%%%\@reset@ylsw -\@forsemicol\member:=#2\do{\expandafter\@m@mb@r\member;\relax% -\expandafter\threech@r\@membera{}{}% -\@tmpaa=\@tmpa \advance\@tmpaa by#4\relax -\ifx\@memberb\@yl\relax\@@ylswtrue\else\@@ylswfalse\fi -\if@@ylsw -\ifcase\@tmpaa%0 omit -\or%%%%%%position 1 - \ifcase#3 - \ifx\aaa\empty -%% \gdef\@ylii{0}\gdef\@yli{0}\global\@ylswtrue% subst. on 1 - \gdef\@ylii{0}\gdef\@yli{-103}\global\@ylswtrue% subst. on 1 - \else - \if@linterchainsw%interchain position - \gdef\@ylii{0}\gdef\@yli{-133}\global\@ylswtrue% subst. on 1 - \else% terminal position -%% \gdef\@ylii{40}\gdef\@yli{-24}\global\@ylswtrue% subst. on 1 - \gdef\@ylii{40}\gdef\@yli{-79}\global\@ylswtrue% subst. on 1 - \fi - \fi - \or\relax - \or - \ifx\aaa\empty -%% \gdef\@ylii{0}\gdef\@yli{0}\global\@ylswtrue% subst. on 1 - \gdef\@ylii{0}\gdef\@yli{-103}\global\@ylswtrue% subst. on 1 - \else - \if@linterchainsw%interchain position - \gdef\@ylii{0}\gdef\@yli{-133}\global\@ylswtrue% subst. on 1 - \else% terminal position -%% \gdef\@ylii{40}\gdef\@yli{-24}\global\@ylswtrue% subst. on 1 - \gdef\@ylii{40}\gdef\@yli{-79}\global\@ylswtrue% subst. on 1 - \fi - \fi - \fi -\or%%%%%%%%position 2 - \ifx\bbb\empty -%% \gdef\@ylii{-171}\gdef\@yli{-103}\global\@ylswtrue% subst. on 2 - \gdef\@ylii{-171}\gdef\@yli{0}\global\@ylswtrue% subst. on 2 - \else -%% \gdef\@ylii{-171}\gdef\@yli{-133}\global\@ylswtrue% subst. on 2 - \gdef\@ylii{-171}\gdef\@yli{50}\global\@ylswtrue% subst. on 2 - \fi -\or%%%%%%%%position 3 - \ifcase#3 - \ifx\ccc\empty -%% \gdef\@ylii{-342}\gdef\@yli{0}\global\@ylswtrue% subst. on 3 - \gdef\@ylii{-342}\gdef\@yli{-103}\global\@ylswtrue% subst. on 3 - \else - \if@rinterchainsw%interchain position -%% \gdef\@ylii{-342}\gdef\@yli{40}\global\@ylswtrue% subst. on 3 - \gdef\@ylii{-342}\gdef\@yli{-133}\global\@ylswtrue% subst. on 3 - \else -%% \gdef\@ylii{-382}\gdef\@yli{-24}\global\@ylswtrue% subst. on 3 - \gdef\@ylii{-382}\gdef\@yli{-79}\global\@ylswtrue% subst. on 3 - \fi - \fi - \or - \ifx\ccc\empty - \gdef\@ylii{-342}\gdef\@yli{-103}\global\@ylswtrue% subst. on 3 - \else - \if@rinterchainsw%interchain position - \gdef\@ylii{-342}\gdef\@yli{-133}\global\@ylswtrue% subst. on 3 - \else - \gdef\@ylii{-382}\gdef\@yli{-79}\global\@ylswtrue% subst. on 3 - \fi - \fi - \or\relax - \fi -\fi%end of ifcase -\fi}}% end of \yltrimethyleneiposition -\def\set@hetatom@methyli#1#2#3#4#5{% -\@forsemicol\member:=#1\do{% -\ifx\member\empty\else -\expandafter\@m@mb@r\member;\relax% -\expandafter\twoch@r\@membera{}% -\ifnum#5 < 0\relax% -\@tmpaa=-\@tmpa\relax \advance\@tmpaa by#2\relax% -\else\@tmpaa=\@tmpa\relax \advance\@tmpaa by#2\relax \fi -\ifnum\@tmpaa >#3\relax% -\ifnum\@tmpaa <#4\relax% -\ifcase\@tmpaa% -\or%position 1 <-- \set@hetatom@sixv position 5 - \ifnum\test@termcnt=1\else%not terminal point (left) - \if\@tmpb h\relax - \@acliptrue% - \putlatom{0}{70}{\@memberb}% % right type - \else\if\@tmpb s\relax - \@aclipfalse% - \putlatom{0}{103}{\@memberb}% % right type - \else\if\@tmpb a\relax%omit fused position - \else - \@acliptrue% - \putlatom{36}{65}{\@memberb}% % left type - \fi\fi\fi - \fi -\or%position 2 <-- \set@hetatom@sixv position 4 - \if\@tmpb h\relax - \@bcliptrue% - \putratom{171}{50}{\@memberb}% % right type - \else\if\@tmpb s\relax - \@bclipfalse% - \putratom{171}{0}{\@memberb}% % right type - \else\if\@tmpb a\relax%omit fused position - \else - \@bcliptrue% - \putratom{140}{-23}{\@memberb}% % right type - \fi\fi\fi -\or%position 3 <-- \set@hetatom@sixv position 3 - \ifnum\test@termcnt=2\else%not terminal point (right) - \if\@tmpb h\relax - \@ccliptrue% - \putratom{342}{70}{\@memberb}% % right type - \else\if\@tmpb s\relax - \@cclipfalse% - \putratom{342}{103}{\@memberb}% % right type - \else\if\@tmpb a\relax%omit fused position - \else - \@ccliptrue% - \putratom{306}{65}{\@memberb}% % right type - \fi\fi\fi - \fi -\fi% end of ifcase -\fi\fi\fi}}% end of the macro \set@hetatom@methyli -\def\trimethylenei{% -\@ifnextchar[{\@trimethylenei[@}{\@trimethylenei[]}} -\def\@trimethylenei[#1]#2#3{% -\iniflag\iniatom% -\@reset@ylsw% -\reset@interchainsw% -\yltrimethyleneiposition{#2}{#3}{0}{0}% -\if@ylsw - \yl@shiftii=\@ylii - \yl@shifti=\@yli - \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}(450,480)(-50,-180) - \iforigpt \put(-50,-180){\circle*{50}}% - \put(0,0){\circle{50}}% - \typeout{command `trimethylene' origin: % - (0,0) ---> (50,180)}\fi% -\fi -\reset@double% -\@tfor\member:=#1\do{% -\if\member a\relax -\@adoublebondtrue -\else\if\member b\relax -\@bdoublebondtrue -\else\if\member A\relax -\@Adoublebondtrue -\else\if\member B\relax -\@Bdoublebondtrue -\else - \expandafter\twoCH@@R\member//% - \set@fusion@trimethi -\fi\fi\fi\fi}% -\@wrongbdWafalse -\@wrongbdWdtrue - \put(0,0){\@@trimethylenei{#2}{#3}{0}{0}}% -\end{picture}}% end of \trimethylenei -\def\set@fusion@trimethi{% -\if\@@tmpa a\relax% - \putlratom{0}{103}{\@@tmpb}% % bond fused - \FuseWarning{-171}{103}% - {\fuseAx}{\fuseAy}{\fuseBx}{\fuseBy}{a}% - \else\if\@@tmpa A\relax% - \putlratom{171}{0}{\@@tmpb}% % bond fused - \FuseWarning{171}{-103}% - {\fuseAx}{\fuseAy}{\fuseBx}{\fuseBy}{A}% - \else\if\@@tmpa b\relax% - \putlratom{171}{0}{\@@tmpb}% % bond fused - \FuseWarning{-171}{-103}% - {\fuseAx}{\fuseAy}{\fuseBx}{\fuseBy}{b}% - \else\if\@@tmpa B\relax% - \putlratom{342}{103}{\@@tmpb}% % bond fused - \FuseWarning{171}{103}% - {\fuseAx}{\fuseAy}{\fuseBx}{\fuseBy}{B}% - \fi\fi\fi\fi -}% end of the macro \set@fusion@trimethi -\def\@@dimethylene#1#2#3#4{% -\leavevmode -\iniatom\iniflag%initialize -\test@vrtx@dimethy{#1}{#4}% -\begin{picture}(250,480)(0,0) - \put(171,-303){\SKbondA}% bond between 1 and 2 -\if@adoublebond - \put(171,-303){\bondA}%upper side double bond -\else\if@Adoublebond - \put(171,-303){\bondAA}%lower side double bond -\fi\fi% -\test@termcnt=#3\relax -\set@hetatom@methyl{#1}{#4}{0}{3}{0}% -\@forsemicol\member:=#2\do{% -\ifx\member\empty\else -\expandafter\@m@mb@r\member;\relax% -\expandafter\threech@r\@membera{}{}% -\@tmpaa=\@tmpa \advance\@tmpaa by#4\relax -\ifx\@memberb\@yl\else -\ifcase\@tmpaa%0 omit -\or - \ifcase#3 - {\if@aclip \@cliptrue \else \@clipfalse\fi - \put(0,0){\@methsubstdL}}% - \or\relax - \or - {\if@aclip \@cliptrue \else \@clipfalse\fi - \put(0,0){\@methsubstdL}}% - \fi -\or - \ifcase#3 - {\if@bclip \@acliptrue \else \@aclipfalse\fi - \put(171,-303){\@methsubsta}} - \or - {\if@bclip \@acliptrue \else \@aclipfalse\fi - \put(171,-303){\@methsubsta}} - \or\relax - \fi -\fi%end of ifcase -\fi\fi% -}% -\end{picture}}% end of \@@dimethylene -\def\test@vrtx@dimethy#1#2{% -\@forsemicol\member:=#1\do{% -\ifx\member\empty\else -\expandafter\@m@mb@r\member;\relax% -\expandafter\twoch@r\@membera{}% -\@tmpaa=\@tmpa \advance\@tmpaa by#2\relax -\ifcase\@tmpaa% - \or \if\@tmpb s\relax \xdef\aaa{}\else\if\@tmpb h\relax - \xdef\aaa{@}\else\xdef\aaa{@}\fi\fi - \or \if\@tmpb s\relax \xdef\bbb{}\else\if\@tmpb h\relax - \xdef\bbb{@}\else\xdef\bbb{@}\fi\fi -\fi\fi}} -\def\yldimethyleneposition#1#2#3#4{% -\@forsemicol\member:=#1\do{% -\ifx\member\empty\else -\expandafter\@m@mb@r\member;\relax% -\expandafter\twoch@r\@membera{}% -\@tmpaa=\@tmpa \advance\@tmpaa by#4\relax -\ifcase\@tmpaa% - \or \def\aaa{\@memberb}% - \or \def\bbb{\@memberb}% -\fi\fi}% -\@@ylswfalse%%%\@reset@ylsw -\@forsemicol\member:=#2\do{% -\ifx\member\empty\else -\expandafter\@m@mb@r\member;\relax% -\expandafter\threech@r\@membera{}{}% -\@tmpaa=\@tmpa \advance\@tmpaa by#4\relax -\ifx\@memberb\@yl\relax\@@ylswtrue\else\@@ylswfalse\fi -\if@@ylsw -\ifcase\@tmpaa%0 omit -\or - \ifcase#3 - \ifx\aaa\empty - \gdef\@ylii{0}\gdef\@yli{0}\global\@ylswtrue% subst. on 1 - \else - \if@linterchainsw%interchain position - \gdef\@ylii{0}\gdef\@yli{40}\global\@ylswtrue% subst. on 1 - \else%terminal position - \gdef\@ylii{40}\gdef\@yli{-24}\global\@ylswtrue% subst. on 1 - \fi - \fi - \or\relax - \or - \ifx\aaa\empty - \gdef\@ylii{0}\gdef\@yli{0}\global\@ylswtrue% subst. on 1 - \else - \if@linterchainsw%interchain position - \gdef\@ylii{0}\gdef\@yli{40}\global\@ylswtrue% subst. on 1 - \else%terminal position - \gdef\@ylii{40}\gdef\@yli{-24}\global\@ylswtrue% subst. on 1 - \fi - \fi - \fi -\or - \ifcase#3 - \ifx\bbb\empty - \gdef\@ylii{-171}\gdef\@yli{-103}\global\@ylswtrue% subst. on 2 - \else - \if@rinterchainsw%interchain position - \gdef\@ylii{-171}\gdef\@yli{-133}\global\@ylswtrue% subst. on 2 - \else%terminal position - \gdef\@ylii{-211}\gdef\@yli{-93}\global\@ylswtrue% subst. on 2 - \fi - \fi - \or - \ifx\bbb\empty - \gdef\@ylii{-171}\gdef\@yli{-103}\global\@ylswtrue% subst. on 2 - \else - \if@rinterchainsw%interchain position - \gdef\@ylii{-171}\gdef\@yli{-133}\global\@ylswtrue% subst. on 2 - \else%terminal position - \gdef\@ylii{-211}\gdef\@yli{-93}\global\@ylswtrue% subst. on 2 - \fi - \fi - \or \relax - \fi -\fi%end of ifcase -\fi\fi}}% end of \yldimethyleneposition -\def\dimethylene{% -\@ifnextchar[{\@dimethylene[@}{\@dimethylene[]}} -\def\@dimethylene[#1]#2#3{% -\iniflag\iniatom% -\@reset@ylsw% -\reset@interchainsw% -\yldimethyleneposition{#2}{#3}{0}{0}% -\if@ylsw - \yl@shiftii=\@ylii - \yl@shifti=\@yli - \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}(250,480)(-50,-180) - \iforigpt \put(-50,-180){\circle*{50}}% - \put(0,0){\circle{50}}% - \typeout{command `dimethylene' origin: % - (0,0) ---> (50,180)}\fi% -\fi -\reset@double% -\@tfor\member:=#1\do{% -\if\member a\relax -\@adoublebondtrue -\else\if\member A\relax -\@Adoublebondtrue -\else - \expandafter\twoCH@@R\member//% - \set@fusion@dimeth -\fi\fi}% -\@wrongbdWafalse -\@wrongbdWdfalse - \put(0,0){\@@dimethylene{#2}{#3}{0}{0}}% -\end{picture}}% end of \dimethylene -\def\set@fusion@dimeth{% -\if\@@tmpa a\relax% - \putlratom{0}{0}{\@@tmpb}% % bond fused - \FuseWarning{-171}{-103}% - {\fuseAx}{\fuseAy}{\fuseBx}{\fuseBy}{a}% - \else\if\@@tmpa A\relax% - \putlratom{171}{103}{\@@tmpb}% % bond fused - \FuseWarning{171}{103}% - {\fuseAx}{\fuseAy}{\fuseBx}{\fuseBy}{A}% - \fi\fi -}% end of the macro \set@fusion@dimeth -\def\@@dimethylenei#1#2#3#4{% -\leavevmode -\iniatom\iniflag%initialize -\test@vrtx@dimethy{#1}{#4}% -\begin{picture}(250,480)(0,0) - \put(171,0){\SKbondAi}% bond between 1 and 2 -\if@adoublebond - \put(171,0){\bondAi}%upper side double bond -\else\if@Adoublebond - \put(171,0){\bondAAi}%lower side double bond -\fi\fi% -\test@termcnt=#3\relax -\set@hetatom@methyli{#1}{#4}{0}{3}{0}% -\@forsemicol\member:=#2\do{% -\ifx\member\empty\else -\expandafter\@m@mb@r\member;\relax% -\expandafter\threech@r\@membera{}{}% -\@tmpaa=\@tmpa \advance\@tmpaa by#4\relax -\ifx\@memberb\@yl\else -\ifcase\@tmpaa%0 omit -\or - \ifcase#3 - \put(0,-303){\@methsubstaL}% - \or\relax - \or - \put(0,-303){\@methsubstaL}% - \fi -\or - \ifcase#3 - {\if@bclip \@cliptrue \else \@clipfalse\fi - \put(171,0){\@methsubstd}} - \or - {\if@bclip \@cliptrue \else \@clipfalse\fi - \put(171,0){\@methsubstd}} - \or\relax - \fi -\fi%end of ifcase -\fi\fi% -}% -\end{picture}}% end of \@@dimethylenei -\def\yldimethyleneiposition#1#2#3#4{% -\@forsemicol\member:=#1\do{% -\ifx\member\empty\else -\expandafter\@m@mb@r\member;\relax% -\expandafter\twoch@r\@membera{}% -\@tmpaa=\@tmpa \advance\@tmpaa by#4\relax -\ifcase\@tmpaa% - \or \def\aaa{\@memberb}% - \or \def\bbb{\@memberb}% -\fi\fi}% -\@@ylswfalse%%%\@reset@ylsw -\@forsemicol\member:=#2\do{\expandafter\@m@mb@r\member;\relax% -\expandafter\threech@r\@membera{}{}% -\@tmpaa=\@tmpa \advance\@tmpaa by#4\relax -\ifx\@memberb\@yl\relax\@@ylswtrue\else\@@ylswfalse\fi -\if@@ylsw -\ifcase\@tmpaa%0 omit -\or%%%%%%%%position 1 - \ifcase#3 - \ifx\aaa\empty - \gdef\@ylii{0}\gdef\@yli{-103}\global\@ylswtrue% subst. on 1 - \else - \if@linterchainsw%interchain position - \gdef\@ylii{0}\gdef\@yli{-133}\global\@ylswtrue% subst. on 1 - \else%terminal position - \gdef\@ylii{40}\gdef\@yli{-79}\global\@ylswtrue% subst. on 1 - \fi - \fi - \or\relax - \or - \ifx\aaa\empty - \gdef\@ylii{0}\gdef\@yli{-103}\global\@ylswtrue% subst. on 1 - \else - \if@linterchainsw%interchain position - \gdef\@ylii{0}\gdef\@yli{-133}\global\@ylswtrue% subst. on 1 - \else%terminal position - \gdef\@ylii{40}\gdef\@yli{-79}\global\@ylswtrue% subst. on 1 - \fi - \fi - \fi -\or%%%%%%%%position 2 - \ifcase#3 - \ifx\bbb\empty - \gdef\@ylii{-171}\gdef\@yli{0}\global\@ylswtrue% subst. on 2 - \else - \if@rinterchainsw%interchain position - \gdef\@ylii{-171}\gdef\@yli{33}\global\@ylswtrue% subst. on 2 - \else%terminal position - % \gdef\@ylii{-211}\gdef\@yli{-93}\global\@ylswtrue% subst. on 2 - \gdef\@ylii{-211}\gdef\@yli{-10}\global\@ylswtrue% subst. on 2 - \fi - \fi - \or - \ifx\bbb\empty - \gdef\@ylii{-171}\gdef\@yli{0}\global\@ylswtrue% subst. on 2 - \else - \if@rinterchainsw%interchain position - \gdef\@ylii{-171}\gdef\@yli{33}\global\@ylswtrue% subst. on 2 - \else%terminal position - \gdef\@ylii{-211}\gdef\@yli{-10}\global\@ylswtrue% subst. on 2 - \fi - \fi - \or \relax - \fi -\fi%end of ifcase -\fi}}% end of \yldimethyleneiposition -\def\dimethylenei{% -\@ifnextchar[{\@dimethylenei[@}{\@dimethylenei[]}} -\def\@dimethylenei[#1]#2#3{% -\iniflag\iniatom% -\@reset@ylsw% -\reset@interchainsw% -\yldimethyleneiposition{#2}{#3}{0}{0}% -\if@ylsw - \yl@shiftii=\@ylii - \yl@shifti=\@yli - \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}(250,480)(-50,-180) - \iforigpt \put(-50,-180){\circle*{50}}% - \put(0,0){\circle{50}}% - \typeout{command `dimethylene' origin: % - (0,0) ---> (50,180)}\fi% -\fi -\reset@double% -\@tfor\member:=#1\do{% -\if\member a\relax -\@adoublebondtrue -\else\if\member A\relax -\@Adoublebondtrue -\else - \expandafter\twoCH@@R\member//% - \set@fusion@dimethi -\fi\fi}% -\@wrongbdWafalse -\@wrongbdWdfalse - \put(0,0){\@@dimethylenei{#2}{#3}{0}{0}}% -\end{picture}}% end of \dimethylenei -\def\set@fusion@dimethi{% -\if\@@tmpa a\relax% - \putlratom{0}{103}{\@@tmpb}% % bond fused - \FuseWarning{-171}{103}% - {\fuseAx}{\fuseAy}{\fuseBx}{\fuseBy}{a}% - \else\if\@@tmpa A\relax% - \putlratom{171}{0}{\@@tmpb}% % bond fused - \FuseWarning{171}{-103}% - {\fuseAx}{\fuseAy}{\fuseBx}{\fuseBy}{A}% -\fi\fi -}% end of the macro \set@fusion@dimethi -\def\tetramethylene{% -\@ifnextchar[{\@tetramethylene[@}{\@tetramethylene[]}} -\def\@tetramethylene[#1]#2#3{% -\iniflag\iniatom% -\@reset@ylsw% -{\@linterchainswfalse% -\@rinterchainswtrue% -\yltrimethyleneposition{#2}{#3}{0}{0}}% -\if@ylsw \ifx\@@ylii\empty -\def\@@ylii{0}\def\@@yli{0}\fi -\else -{\@rinterchainswfalse% -\@linterchainswtrue% -\yldimethyleneposition{#2}{#3}{1}{-2}}% -\if@ylsw \ifx\@@ylii\empty -\def\@@ylii{-342}\def\@@yli{0}\fi\fi -\fi -\if@ylsw - \yl@shiftii=\@ylii - \yl@shifti=\@yli - \advance\yl@shiftii\@@ylii - \advance\yl@shifti\@@yli - \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}(900,480)(-200,-180) - \iforigpt \put(-200,-180){\circle*{50}}% - \put(0,0){\circle{50}}% - \typeout{command `tetramethylene' origin: % - (0,0) ---> (200,180)}\fi% -\fi -{\reset@double% -\@tfor\member:=#1\do{% -\if\member a\relax -\@adoublebondtrue -\else\if\member b\relax -\@bdoublebondtrue -\else\if\member A\relax -\@Adoublebondtrue -\else\if\member B\relax -\@Bdoublebondtrue -\else\if\member c\relax%dummy -\else\if\member C\relax%dummy -\else - \expandafter\twoCH@@R\member//% - \set@fusion@tetrameth -\fi\fi -\fi\fi\fi\fi}% -\@wrongbdWatrue -\@wrongbdWdtrue -\put(0,0){\@@trimethylene{#2}{#3}{0}{0}}}% -{\reset@double% -\@tfor\member:=#1\do{% -\if\member c\relax -\@adoublebondtrue -\else\if\member C\relax -\@Adoublebondtrue -\fi\fi}% -\@wrongbdWafalse -\@wrongbdWdtrue -\put(342,0){\@@dimethylene{#2}{#3}{1}{-2}}}% -\end{picture}}% end of \tetramethylene -\def\set@fusion@tetrameth{% -\if\@@tmpa a\relax% - \putlratom{0}{0}{\@@tmpb}% % bond fused - \FuseWarning{-171}{-103}% - {\fuseAx}{\fuseAy}{\fuseBx}{\fuseBy}{a}% - \else\if\@@tmpa A\relax% - \putlratom{171}{103}{\@@tmpb}% % bond fused - \FuseWarning{171}{103}% - {\fuseAx}{\fuseAy}{\fuseBx}{\fuseBy}{A}% - \else\if\@@tmpa b\relax% - \putlratom{171}{103}{\@@tmpb}% % bond fused - \FuseWarning{-171}{103}% - {\fuseAx}{\fuseAy}{\fuseBx}{\fuseBy}{b}% - \else\if\@@tmpa B\relax% - \putlratom{342}{0}{\@@tmpb}% % bond fused - \FuseWarning{171}{-103}% - {\fuseAx}{\fuseAy}{\fuseBx}{\fuseBy}{B}% - \else\if\@@tmpa c\relax% - \putlratom{342}{0}{\@@tmpb}% % bond fused - \FuseWarning{-171}{-103}% - {\fuseAx}{\fuseAy}{\fuseBx}{\fuseBy}{c}% - \else\if\@@tmpa C\relax% - \putlratom{513}{103}{\@@tmpb}% % bond fused - \FuseWarning{171}{103}% - {\fuseAx}{\fuseAy}{\fuseBx}{\fuseBy}{C}% - \fi\fi - \fi\fi\fi\fi -}% end of the macro \set@fusion@tetrameth -\def\tetramethylenei{% -\@ifnextchar[{\@tetramethylenei[@}{\@tetramethylenei[]}} -\def\@tetramethylenei[#1]#2#3{% -\iniflag\iniatom% -\@reset@ylsw% -{\@linterchainswfalse% -\@rinterchainswtrue% -\yltrimethyleneiposition{#2}{#3}{0}{0}}% -\if@ylsw \ifx\@@ylii\empty -\def\@@ylii{0}\def\@@yli{0}\fi -\else -{\@rinterchainswfalse% -\@linterchainswtrue% -\yldimethyleneiposition{#2}{#3}{1}{-2}}% -\if@ylsw \ifx\@@ylii\empty -\def\@@ylii{-342}\def\@@yli{0}\fi\fi -\fi -\if@ylsw - \yl@shiftii=\@ylii - \yl@shifti=\@yli - \advance\yl@shiftii\@@ylii - \advance\yl@shifti\@@yli - \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}(900,480)(-200,-180) - \iforigpt \put(-200,-180){\circle*{50}}% - \put(0,0){\circle{50}}% - \typeout{command `tetramethylene' origin: % - (0,0) ---> (200,180)}\fi% -\fi -{\reset@double% -\@tfor\member:=#1\do{% -\if\member a\relax -\@adoublebondtrue -\else\if\member b\relax -\@bdoublebondtrue -\else\if\member A\relax -\@Adoublebondtrue -\else\if\member B\relax -\@Bdoublebondtrue -\else\if\member c\relax%dummy -\else\if\member C\relax%dummy -\else - \expandafter\twoCH@@R\member//% - \set@fusion@tetramethi -\fi\fi -\fi\fi\fi\fi}% -\@wrongbdWatrue -\@wrongbdWdtrue -\put(0,0){\@@trimethylenei{#2}{#3}{0}{0}}} -{\reset@double% -\@tfor\member:=#1\do{% -\if\member c\relax -\@adoublebondtrue -\else\if\member C\relax -\@Adoublebondtrue -\fi\fi}% -\@wrongbdWatrue -\@wrongbdWdfalse -\put(342,0){\@@dimethylenei{#2}{#3}{1}{-2}}} -\end{picture}}%end of \tetramethylenei -\def\set@fusion@tetramethi{% -\if\@@tmpa a\relax% - \putlratom{0}{103}{\@@tmpb}% % bond fused - \FuseWarning{-171}{103}% - {\fuseAx}{\fuseAy}{\fuseBx}{\fuseBy}{a}% - \else\if\@@tmpa A\relax% - \putlratom{171}{0}{\@@tmpb}% % bond fused - \FuseWarning{171}{-103}% - {\fuseAx}{\fuseAy}{\fuseBx}{\fuseBy}{A}% - \else\if\@@tmpa b\relax% - \putlratom{171}{0}{\@@tmpb}% % bond fused - \FuseWarning{-171}{-103}% - {\fuseAx}{\fuseAy}{\fuseBx}{\fuseBy}{b}% - \else\if\@@tmpa B\relax% - \putlratom{342}{103}{\@@tmpb}% % bond fused - \FuseWarning{171}{103}% - {\fuseAx}{\fuseAy}{\fuseBx}{\fuseBy}{B}% - \else\if\@@tmpa c\relax% - \putlratom{342}{103}{\@@tmpb}% % bond fused - \FuseWarning{-171}{103}% - {\fuseAx}{\fuseAy}{\fuseBx}{\fuseBy}{c}% - \else\if\@@tmpa C\relax% - \putlratom{513}{0}{\@@tmpb}% % bond fused - \FuseWarning{171}{-103}% - {\fuseAx}{\fuseAy}{\fuseBx}{\fuseBy}{C}% - \fi\fi - \fi\fi\fi\fi -}% end of the macro \set@fusion@tetramethi -\def\tetramethylenecup{% -\@ifnextchar[{\@tetramethylenecup[@}{\@tetramethylenecup[]}} -\def\@tetramethylenecup[#1]#2#3{% -\iniflag\iniatom% -\@reset@ylsw% -{\@linterchainswfalse% -\@rinterchainswtrue% -\yldimethyleneiposition{#2}{#3}{0}{0}}% -\if@ylsw \ifx\@@ylii\empty -\def\@@ylii{0}\def\@@yli{0}\fi -\else -{\@rinterchainswfalse% -\@linterchainswtrue% -\yldimethyleneposition{#2}{#3}{0}{-2}}% -\fi -\if@ylsw \ifx\@@ylii\empty -\def\@@ylii{-371}\def\@@yli{0}\fi\fi -\if@ylsw - \yl@shiftii=\@ylii - \yl@shifti=\@yli - \advance\yl@shiftii\@@ylii - \advance\yl@shifti\@@yli - \advance\yl@shiftii\yl@xdiff - \advance\yl@shifti\yl@ydiff - \begin{picture}(0,0)(-\yl@shiftii,-\yl@shifti) - \reset@yl@xydiff -\else -\begin{picture}(900,480)(-200,-180) - \iforigpt \put(-200,-180){\circle*{50}}% - \put(0,0){\circle{50}}% - \typeout{command `tetramethylenecup' origin: % - (0,0) ---> (200,180)}\fi% -\fi% -{\reset@double% -\@tfor\member:=#1\do{% -\if\member a\relax -\@adoublebondtrue -\else\if\member A\relax -\@Adoublebondtrue -\else\if\member b\relax%dummy -\else\if\member B\relax%dummy -\else\if\member c\relax%dummy -\else\if\member C\relax%dummy -\else - \expandafter\twoCH@@R\member//% - \set@fusion@tetracup% for all bonds -\fi\fi\fi\fi -\fi\fi}% -\@wrongbdWafalse -\@wrongbdWdtrue -\put(0,0){\@@dimethylenei{#2}{#3}{0}{0}}}% -{\@forsemicol\member:=#2\do{% -\ifx\member\empty\else -\expandafter\@m@mb@r\member;\relax% -\expandafter\twoch@r\@membera{}% -\ifcase\@tmpa% - \or \relax% - \or \if\@tmpb s\relax\else\if\@tmpb h\relax - \xdef\fff{@}\xdef\bbb{@}\else - \xdef\fff{@}\xdef\bbb{@}\fi\fi - \or \if\@tmpb s\relax\else\if\@tmpb h\relax - \xdef\eee{@}\xdef\ccc{@}\else - \xdef\eee{@}\xdef\ccc{@}\fi\fi -\fi\fi}% -\put(68,171){\hskbonde}% -\reset@double% -\@tfor\member:=#1\do{% - \if\member b\relax - \@bdoublebondtrue - \put(68,171){\hbonde}% - \else\if\member B\relax - \@bdoublebondtrue - \put(68,-171){\hbondb}% - \fi\fi}}% -{\reset@double% -\@tfor\member:=#1\do{% -\if\member c\relax -\@adoublebondtrue -\else\if\member C\relax -\@Adoublebondtrue -\else\if\member d\relax -\@bdoublebondtrue -\else\if\member D\relax -\@Bdoublebondtrue -\fi\fi\fi\fi}% - \@wrongbdWafalse - \@wrongbdWdLtrue -\put(371,0){\@@dimethylene{#2}{#3}{0}{-2}}}% -\end{picture}}% end of \tetramethylenecup -\def\set@fusion@tetracup{% -\if\@@tmpa a\relax% - \putlratom{0}{103}{\@@tmpb}% % bond fused - \FuseWarning{-171}{103}% - {\fuseAx}{\fuseAy}{\fuseBx}{\fuseBy}{a}% - \else\if\@@tmpa A\relax% - \putlratom{171}{0}{\@@tmpb}% % bond fused - \FuseWarning{171}{-103}% - {\fuseAx}{\fuseAy}{\fuseBx}{\fuseBy}{A}% - \else\if\@@tmpa b\relax% - \putlratom{171}{0}{\@@tmpb}% % bond fused - \FuseWarning{-200}{0}% - {\fuseAx}{\fuseAy}{\fuseBx}{\fuseBy}{b}% - \else\if\@@tmpa B\relax% - \putlratom{371}{0}{\@@tmpb}% % bond fused - \FuseWarning{200}{0}% - {\fuseAx}{\fuseAy}{\fuseBx}{\fuseBy}{B}% - \else\if\@@tmpa c\relax% - \putlratom{371}{0}{\@@tmpb}% % bond fused - \FuseWarning{-171}{-103}% - {\fuseAx}{\fuseAy}{\fuseBx}{\fuseBy}{c}% - \else\if\@@tmpa C\relax% - \putlratom{542}{103}{\@@tmpb}% % bond fused - \FuseWarning{171}{103}% - {\fuseAx}{\fuseAy}{\fuseBx}{\fuseBy}{C}% - \fi\fi - \fi\fi\fi\fi -}% end of the macro \set@fusion@tetracup -\def\tetramethylenecap{% -\@ifnextchar[{\@tetramethylenecap[@}{\@tetramethylenecap[]}} -\def\@tetramethylenecap[#1]#2#3{% -\iniflag\iniatom% -\@reset@ylsw% -{\@linterchainswfalse% -\@rinterchainswtrue% -\yldimethyleneposition{#2}{#3}{0}{0}}% -\if@ylsw \ifx\@@ylii\empty -\def\@@ylii{0}\def\@@yli{0}\fi -\else -{\@rinterchainswfalse% -\@linterchainswtrue% -\yldimethyleneiposition{#2}{#3}{0}{-2}}% -\fi -\if@ylsw \ifx\@@ylii\empty -\def\@@ylii{-371}\def\@@yli{0}\fi\fi -\if@ylsw - \yl@shiftii=\@ylii - \yl@shifti=\@yli - \advance\yl@shiftii\@@ylii - \advance\yl@shifti\@@yli - \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}(900,480)(-200,-180) - \iforigpt \put(-200,-180){\circle*{50}}% - \put(0,0){\circle{50}}% - \typeout{command `tetramethylenecap' origin: % - (0,0) ---> (50,180)}\fi% -\fi% -{\reset@double% -\@tfor\member:=#1\do{% -\if\member a\relax -\@adoublebondtrue -\else\if\member A\relax -\@Adoublebondtrue -\else\if\member b\relax%dummy -\else\if\member B\relax%dummy -\else\if\member c\relax%dummy -\else\if\member C\relax%dummy -\else - \expandafter\twoCH@@R\member//% - \set@fusion@tetracap% for all bonds -\fi\fi\fi\fi -\fi\fi}% -\@wrongbdWatrue -\put(0,0){\@@dimethylene{#2}{#3}{0}{0}}}% -{\@forsemicol\member:=#2\do{% -\ifx\member\empty\else -\expandafter\@m@mb@r\member;\relax% -\expandafter\twoch@r\@membera{}% -\ifcase\@tmpa% - \or \relax% - \or \if\@tmpb s\relax\else\if\@tmpb h\relax - \xdef\fff{@}\xdef\bbb{@}\else - \xdef\fff{@}\xdef\bbb{@}\fi\fi - \or \if\@tmpb s\relax\else\if\@tmpb h\relax - \xdef\eee{@}\xdef\ccc{@}\else - \xdef\eee{@}\xdef\ccc{@}\fi\fi -\fi\fi}% -\put(68,-68){\hskbondb}% -\reset@double% -\@tfor\member:=#1\do{% - \if\member b\relax - \@bdoublebondtrue - \put(68,-68){\hbondb}% - \else\if\member B\relax - \@bdoublebondtrue - \put(68,274){\hbonde}% - \fi\fi}}% -{\reset@double% -\@tfor\member:=#1\do{% -\if\member c\relax -\@adoublebondtrue -\else\if\member C\relax -\@Adoublebondtrue -\else\if\member d\relax -\@bdoublebondtrue -\else\if\member D\relax -\@Bdoublebondtrue -\fi\fi\fi\fi}% - \@wrongbdWaLtrue -\put(371,0){\@@dimethylenei{#2}{#3}{0}{-2}}}% -\end{picture}}% end of \tetramethylenecap -\def\set@fusion@tetracap{% -\if\@@tmpa a\relax% - \putlratom{0}{0}{\@@tmpb}% % bond fused - \FuseWarning{-171}{-103}% - {\fuseAx}{\fuseAy}{\fuseBx}{\fuseBy}{a}% - \else\if\@@tmpa A\relax% - \putlratom{171}{103}{\@@tmpb}% % bond fused - \FuseWarning{171}{103}% - {\fuseAx}{\fuseAy}{\fuseBx}{\fuseBy}{A}% - \else\if\@@tmpa b\relax% - \putlratom{171}{103}{\@@tmpb}% % bond fused - \FuseWarning{-200}{0}% - {\fuseAx}{\fuseAy}{\fuseBx}{\fuseBy}{b}% - \else\if\@@tmpa B\relax% - \putlratom{371}{103}{\@@tmpb}% % bond fused - \FuseWarning{200}{0}% - {\fuseAx}{\fuseAy}{\fuseBx}{\fuseBy}{B}% - \else\if\@@tmpa c\relax% - \putlratom{371}{103}{\@@tmpb}% % bond fused - \FuseWarning{-171}{103}% - {\fuseAx}{\fuseAy}{\fuseBx}{\fuseBy}{c}% - \else\if\@@tmpa C\relax% - \putlratom{542}{0}{\@@tmpb}% % bond fused - \FuseWarning{171}{-103}% - {\fuseAx}{\fuseAy}{\fuseBx}{\fuseBy}{C}% - \fi\fi - \fi\fi\fi\fi -}% end of the macro \set@fusion@tetracap -\def\pentamethylene{% -\@ifnextchar[{\@pentamethylene[@}{\@pentamethylene[]}} -\def\@pentamethylene[#1]#2#3{% -\iniflag\iniatom% -\@reset@ylsw% -{\@linterchainswfalse% -\@rinterchainswtrue% -\yltrimethyleneposition{#2}{#3}{0}{0}}% -\if@ylsw \ifx\@@ylii\empty -\def\@@ylii{0}\def\@@yli{0}\fi -\else -{\@rinterchainswfalse% -\@linterchainswtrue% -\yltrimethyleneposition{#2}{#3}{1}{-2}}% -\if@ylsw \ifx\@@ylii\empty -\def\@@ylii{-342}\def\@@yli{0}\fi\fi -\fi -\if@ylsw - \yl@shiftii=\@ylii - \yl@shifti=\@yli - \advance\yl@shiftii\@@ylii - \advance\yl@shifti\@@yli - \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}(1100,480)(-200,-180) - \iforigpt \put(-200,-180){\circle*{50}}% - \put(0,0){\circle{50}}% - \typeout{command `pentamethylene' origin: % - (0,0) ---> (200,180)}\fi% -\fi% -{\reset@double% -\@tfor\member:=#1\do{% -\if\member a\relax -\@adoublebondtrue -\else\if\member b\relax -\@bdoublebondtrue -\else\if\member A\relax -\@Adoublebondtrue -\else\if\member B\relax -\@Bdoublebondtrue -\else\if\member c\relax%dummy -\else\if\member C\relax%dummy -\else\if\member d\relax%dummy -\else\if\member D\relax%dummy -\else - \expandafter\twoCH@@R\member//% - \set@fusion@pentameth% for all bonds -\fi\fi\fi\fi -\fi\fi\fi\fi}% -\@wrongbdWatrue -\@wrongbdWdtrue -\put(0,0){\@@trimethylene{#2}{#3}{0}{0}}}% -{\reset@double% -\@tfor\member:=#1\do{% -\if\member c\relax -\@adoublebondtrue -\else\if\member d\relax -\@bdoublebondtrue -\else\if\member C\relax -\@Adoublebondtrue -\else\if\member D\relax -\@Bdoublebondtrue -\fi\fi\fi\fi}% -\@wrongbdWatrue -\@wrongbdWdfalse -\put(342,0){\@@trimethylene{#2}{#3}{1}{-2}}}% -\end{picture}}% end of \pentamethylene -\def\set@fusion@pentameth{% -\if\@@tmpa a\relax% - \putlratom{0}{0}{\@@tmpb}% % bond fused - \FuseWarning{-171}{-103}% - {\fuseAx}{\fuseAy}{\fuseBx}{\fuseBy}{a}% - \else\if\@@tmpa A\relax% - \putlratom{171}{103}{\@@tmpb}% % bond fused - \FuseWarning{171}{103}% - {\fuseAx}{\fuseAy}{\fuseBx}{\fuseBy}{A}% - \else\if\@@tmpa b\relax% - \putlratom{171}{103}{\@@tmpb}% % bond fused - \FuseWarning{-171}{103}% - {\fuseAx}{\fuseAy}{\fuseBx}{\fuseBy}{b}% - \else\if\@@tmpa B\relax% - \putlratom{342}{0}{\@@tmpb}% % bond fused - \FuseWarning{171}{-103}% - {\fuseAx}{\fuseAy}{\fuseBx}{\fuseBy}{B}% - \else\if\@@tmpa c\relax% - \putlratom{342}{0}{\@@tmpb}% % bond fused - \FuseWarning{-171}{-103}% - {\fuseAx}{\fuseAy}{\fuseBx}{\fuseBy}{c}% - \else\if\@@tmpa C\relax% - \putlratom{513}{103}{\@@tmpb}% % bond fused - \FuseWarning{171}{103}% - {\fuseAx}{\fuseAy}{\fuseBx}{\fuseBy}{C}% - \else\if\@@tmpa d\relax% - \putlratom{513}{103}{\@@tmpb}% % bond fused - \FuseWarning{-171}{103}% - {\fuseAx}{\fuseAy}{\fuseBx}{\fuseBy}{d}% - \else\if\@@tmpa D\relax% - \putlratom{684}{0}{\@@tmpb}% % bond fused - \FuseWarning{171}{-103}% - {\fuseAx}{\fuseAy}{\fuseBx}{\fuseBy}{D}% - \fi\fi\fi\fi - \fi\fi\fi\fi -}% end of the macro \set@fusion@pentameth -\def\pentamethylenei{% -\@ifnextchar[{\@pentamethylenei[@}{\@pentamethylenei[]}} -\def\@pentamethylenei[#1]#2#3{% -\iniflag\iniatom% -\@reset@ylsw% -{\@linterchainswfalse% -\@rinterchainswtrue% -\yltrimethyleneiposition{#2}{#3}{0}{0}}% -\if@ylsw \ifx\@@ylii\empty -\def\@@ylii{0}\def\@@yli{0}\fi -\else -{\@rinterchainswfalse% -\@linterchainswtrue% -\yltrimethyleneiposition{#2}{#3}{1}{-2}}% -\if@ylsw \ifx\@@ylii\empty -\def\@@ylii{-342}\def\@@yli{0}\fi\fi -\fi -\if@ylsw - \yl@shiftii=\@ylii - \yl@shifti=\@yli - \advance\yl@shiftii\@@ylii - \advance\yl@shifti\@@yli - \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}(1100,480)(-200,-180) - \iforigpt \put(-200,-180){\circle*{50}}% - \put(0,0){\circle{50}}% - \typeout{command `pentamethylene' origin: % - (0,0) ---> (200,180)}\fi% -\fi% -{\reset@double% -\@tfor\member:=#1\do{% -\if\member a\relax -\@adoublebondtrue -\else\if\member b\relax -\@bdoublebondtrue -\else\if\member A\relax -\@Adoublebondtrue -\else\if\member B\relax -\@Bdoublebondtrue -\else\if\member c\relax%dummy -\else\if\member C\relax%dummy -\else\if\member d\relax%dummy -\else\if\member D\relax%dummy -\else - \expandafter\twoCH@@R\member//% - \set@fusion@pentamethi% for all bonds -\fi\fi\fi\fi -\fi\fi\fi\fi}% -\@wrongbdWatrue -\@wrongbdWdtrue -\put(0,0){\@@trimethylenei{#2}{#3}{0}{0}}}% -{\reset@double% -\@tfor\member:=#1\do{% -\if\member c\relax -\@adoublebondtrue -\else\if\member d\relax -\@bdoublebondtrue -\else\if\member C\relax -\@Adoublebondtrue -\else\if\member D\relax -\@Bdoublebondtrue -\fi\fi\fi\fi}% -\@wrongbdWafalse -\@wrongbdWdtrue -\put(342,0){\@@trimethylenei{#2}{#3}{1}{-2}}} -\end{picture}}% end of \pentamethylenei -\def\set@fusion@pentamethi{% -\if\@@tmpa a\relax% - \putlratom{0}{103}{\@@tmpb}% % bond fused - \FuseWarning{-171}{103}% - {\fuseAx}{\fuseAy}{\fuseBx}{\fuseBy}{a}% - \else\if\@@tmpa A\relax% - \putlratom{171}{0}{\@@tmpb}% % bond fused - \FuseWarning{171}{-103}% - {\fuseAx}{\fuseAy}{\fuseBx}{\fuseBy}{A}% - \else\if\@@tmpa b\relax% - \putlratom{171}{0}{\@@tmpb}% % bond fused - \FuseWarning{-171}{-103}% - {\fuseAx}{\fuseAy}{\fuseBx}{\fuseBy}{b}% - \else\if\@@tmpa B\relax% - \putlratom{342}{103}{\@@tmpb}% % bond fused - \FuseWarning{171}{103}% - {\fuseAx}{\fuseAy}{\fuseBx}{\fuseBy}{B}% - \else\if\@@tmpa c\relax% - \putlratom{342}{103}{\@@tmpb}% % bond fused - \FuseWarning{-171}{103}% - {\fuseAx}{\fuseAy}{\fuseBx}{\fuseBy}{c}% - \else\if\@@tmpa C\relax% - \putlratom{513}{0}{\@@tmpb}% % bond fused - \FuseWarning{171}{103}% - {\fuseAx}{\fuseAy}{\fuseBx}{\fuseBy}{C}% - \else\if\@@tmpa d\relax% - \putlratom{513}{0}{\@@tmpb}% % bond fused - \FuseWarning{-171}{-103}% - {\fuseAx}{\fuseAy}{\fuseBx}{\fuseBy}{d}% - \else\if\@@tmpa D\relax% - \putlratom{684}{103}{\@@tmpb}% % bond fused - \FuseWarning{171}{103}% - {\fuseAx}{\fuseAy}{\fuseBx}{\fuseBy}{D}% - \fi\fi\fi\fi - \fi\fi\fi\fi -}% end of the macro \set@fusion@pentamethi -\newif\if@normorinvsw \@normorinvswfalse -\def\set@normaldirection{% -\@normorinvswfalse -\let\@yltrinormorinv=\yltrimethyleneposition -\let\@yldinormorinv=\yldimethyleneposition -\let\@@trinormorinv=\@@trimethylene -\let\@@dinormorinv=\@@dimethylene} -\def\set@inversedirection{% -\@normorinvswtrue -\let\@yltrinormorinv=\yltrimethyleneiposition -\let\@yldinormorinv=\yldimethyleneiposition -\let\@@trinormorinv=\@@trimethylenei -\let\@@dinormorinv=\@@dimethylenei} -\def\hexamethylene{% -\@ifnextchar[{\set@normaldirection\@hexamethylene[@}{% -\set@normaldirection\@hexamethylene[]}} -\def\hexamethylenei{% -\@ifnextchar[{\set@inversedirection\@hexamethylene[@}{% -\set@inversedirection\@hexamethylene[]}} -\def\@hexamethylene[#1]#2#3{% -\iniflag\iniatom% -\@reset@ylsw% -{\@linterchainswfalse% -\@rinterchainswtrue% -\@yltrinormorinv{#2}{#3}{0}{0}}% -\if@ylsw \ifx\@@ylii\empty -\def\@@ylii{0}\def\@@yli{0}\fi -\else -{\@rinterchainswtrue% -\@linterchainswtrue% -\@yltrinormorinv{#2}{#3}{1}{-2}}% -\fi -\if@ylsw \ifx\@@ylii\empty -\def\@@ylii{-342}\def\@@yli{0}\fi -\else -{\@rinterchainswfalse% -\@linterchainswtrue% -\@yldinormorinv{#2}{#3}{1}{-4}}% -\fi -\if@ylsw \ifx\@@ylii\empty -\def\@@ylii{-684}\def\@@yli{0}\fi\fi -\if@ylsw - \yl@shiftii=\@ylii - \yl@shifti=\@yli - \advance\yl@shiftii\@@ylii - \advance\yl@shifti\@@yli - \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}(1100,480)(-200,-180) - \iforigpt \put(-200,-180){\circle*{50}}% - \put(0,0){\circle{50}}% - \typeout{command `hexamethylene' origin: % - (0,0) ---> (200,180)}\fi% -\fi% -{\reset@double% -\@tfor\member:=#1\do{% -\if\member a\relax -\@adoublebondtrue -\else\if\member b\relax -\@bdoublebondtrue -\else\if\member A\relax -\@Adoublebondtrue -\else\if\member B\relax -\@Bdoublebondtrue -\else\if\member c\relax%dummy -\else\if\member C\relax%dummy -\else\if\member d\relax%dummy -\else\if\member D\relax%dummy -\else\if\member e\relax%dummy -\else\if\member E\relax%dummy -\else - \expandafter\twoCH@@R\member//% - \set@fusion@hexameth% for all bonds -\fi\fi\fi\fi\fi\fi -\fi\fi\fi\fi}% -\@wrongbdWatrue -\@wrongbdWdtrue -\put(0,0){\@@trinormorinv{#2}{#3}{0}{0}}}% -{\reset@double% -\@tfor\member:=#1\do{% -\if\member c\relax -\@adoublebondtrue -\else\if\member d\relax -\@bdoublebondtrue -\else\if\member C\relax -\@Adoublebondtrue -\else\if\member D\relax -\@Bdoublebondtrue -\fi\fi\fi\fi}% -\@wrongbdWatrue -\@wrongbdWdtrue -\put(342,0){\@@trinormorinv{#2}{#3}{1}{-2}}}% -{\reset@double% -\@tfor\member:=#1\do{% -\if\member e\relax -\@adoublebondtrue -\else\if\member E\relax -\@Adoublebondtrue -\fi\fi}% -\if@normorinvsw% inverse - \@wrongbdWatrue - \@wrongbdWdfalse -\else% normal - \@wrongbdWafalse - \@wrongbdWdtrue -\fi -\put(684,0){\@@dinormorinv{#2}{#3}{1}{-4}}}% -\end{picture}}% end of \@hexamethylene -\def\set@fusion@hexameth{% -\if@normorinvsw - \if\@@tmpa e\relax% - \putlratom{684}{103}{\@@tmpb}% % bond fused - \FuseWarning{-171}{103}% - {\fuseAx}{\fuseAy}{\fuseBx}{\fuseBy}{e}% - \else\if\@@tmpa E\relax% - \putlratom{855}{0}{\@@tmpb}% % bond fused - \FuseWarning{171}{-103}% - {\fuseAx}{\fuseAy}{\fuseBx}{\fuseBy}{E}% - \else - \set@fusion@pentamethi - \fi\fi -\else - \if\@@tmpa e\relax% - \putlratom{684}{0}{\@@tmpb}% % bond fused - \FuseWarning{-171}{-103}% - {\fuseAx}{\fuseAy}{\fuseBx}{\fuseBy}{e}% - \else\if\@@tmpa E\relax% - \putlratom{855}{103}{\@@tmpb}% % bond fused - \FuseWarning{171}{103}% - {\fuseAx}{\fuseAy}{\fuseBx}{\fuseBy}{E}% - \else - \set@fusion@pentameth - \fi\fi -\fi -}% end of the macro \set@fusion@hexameth -\def\heptamethylene{% -\@ifnextchar[{\set@normaldirection\@heptamethylene[@}{% -\set@normaldirection\@heptamethylene[]}} -\def\heptamethylenei{% -\@ifnextchar[{\set@inversedirection\@heptamethylene[@}{% -\set@inversedirection\@heptamethylene[]}} -\def\@heptamethylene[#1]#2#3{% -\iniflag\iniatom% -\@reset@ylsw% -{\@linterchainswfalse% -\@rinterchainswtrue% -\@yltrinormorinv{#2}{#3}{0}{0}}% -\if@ylsw \ifx\@@ylii\empty -\def\@@ylii{0}\def\@@yli{0}\fi -\else -{\@rinterchainswtrue% -\@linterchainswtrue% -\@yltrinormorinv{#2}{#3}{1}{-2}}% -\fi -\if@ylsw \ifx\@@ylii\empty -\def\@@ylii{-342}\def\@@yli{0}\fi -\else -{\@rinterchainswfalse% -\@linterchainswtrue% -\@yltrinormorinv{#2}{#3}{1}{-4}}% -\fi -\if@ylsw \ifx\@@ylii\empty -\def\@@ylii{-684}\def\@@yli{0}\fi\fi -\if@ylsw - \yl@shiftii=\@ylii - \yl@shifti=\@yli - \advance\yl@shiftii\@@ylii - \advance\yl@shifti\@@yli - \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}(1450,480)(-200,-180) - \iforigpt \put(-200,-180){\circle*{50}}% - \put(0,0){\circle{50}}% - \typeout{command `heptamethylene' origin: % - (0,0) ---> (200,180)}\fi% -\fi% -{\reset@double% -\@tfor\member:=#1\do{% -\if\member a\relax -\@adoublebondtrue -\else\if\member b\relax -\@bdoublebondtrue -\else\if\member A\relax -\@Adoublebondtrue -\else\if\member B\relax -\@Bdoublebondtrue -\else\if\member c\relax%dummy -\else\if\member C\relax%dummy -\else\if\member d\relax%dummy -\else\if\member D\relax%dummy -\else\if\member e\relax%dummy -\else\if\member E\relax%dummy -\else\if\member f\relax%dummy -\else\if\member F\relax%dummy -\else - \expandafter\twoCH@@R\member//% - \set@fusion@heptameth% for all bonds -\fi\fi\fi\fi\fi\fi\fi\fi -\fi\fi\fi\fi}% -\@wrongbdWatrue -\@wrongbdWdtrue -\put(0,0){\@@trinormorinv{#2}{#3}{0}{0}}}% -{\reset@double% -\@tfor\member:=#1\do{% -\if\member c\relax -\@adoublebondtrue -\else\if\member d\relax -\@bdoublebondtrue -\else\if\member C\relax -\@Adoublebondtrue -\else\if\member D\relax -\@Bdoublebondtrue -\fi\fi\fi\fi}% -\@wrongbdWatrue -\@wrongbdWdtrue -\put(342,0){\@@trinormorinv{#2}{#3}{1}{-2}}}% -{\reset@double% -\@tfor\member:=#1\do{% -\if\member e\relax -\@adoublebondtrue -\else\if\member E\relax -\@Adoublebondtrue -\else\if\member f\relax -\@bdoublebondtrue -\else\if\member F\relax -\@Bdoublebondtrue -\fi\fi\fi\fi}% -\if@normorinvsw% inverse -\@wrongbdWafalse -\@wrongbdWdtrue -\else%normal -\@wrongbdWatrue -\@wrongbdWdfalse -\fi -\put(684,0){\@@trinormorinv{#2}{#3}{1}{-4}}}% -\end{picture}}% end of \@heptamethylene -\def\set@fusion@heptameth{% -\if@normorinvsw - \if\@@tmpa e\relax% - \putlratom{684}{103}{\@@tmpb}% % bond fused - \FuseWarning{-171}{103}% - {\fuseAx}{\fuseAy}{\fuseBx}{\fuseBy}{e}% - \else\if\@@tmpa E\relax% - \putlratom{855}{0}{\@@tmpb}% % bond fused - \FuseWarning{171}{-103}% - {\fuseAx}{\fuseAy}{\fuseBx}{\fuseBy}{E}% - \else\if\@@tmpa f\relax% - \putlratom{855}{0}{\@@tmpb}% % bond fused - \FuseWarning{-171}{-103}% - {\fuseAx}{\fuseAy}{\fuseBx}{\fuseBy}{f}% - \else\if\@@tmpa F\relax% - \putlratom{1027}{103}{\@@tmpb}% % bond fused - \FuseWarning{171}{103}% - {\fuseAx}{\fuseAy}{\fuseBx}{\fuseBy}{F}% - \else - \set@fusion@pentamethi - \fi\fi\fi\fi -\else - \if\@@tmpa e\relax% - \putlratom{684}{0}{\@@tmpb}% % bond fused - \FuseWarning{-171}{-103}% - {\fuseAx}{\fuseAy}{\fuseBx}{\fuseBy}{e}% - \else\if\@@tmpa E\relax% - \putlratom{855}{103}{\@@tmpb}% % bond fused - \FuseWarning{171}{103}% - {\fuseAx}{\fuseAy}{\fuseBx}{\fuseBy}{E}% - \else\if\@@tmpa f\relax% - \putlratom{855}{103}{\@@tmpb}% % bond fused - \FuseWarning{-171}{103}% - {\fuseAx}{\fuseAy}{\fuseBx}{\fuseBy}{f}% - \else\if\@@tmpa F\relax% - \putlratom{1027}{0}{\@@tmpb}% % bond fused - \FuseWarning{171}{-103}% - {\fuseAx}{\fuseAy}{\fuseBx}{\fuseBy}{F}% - \else - \set@fusion@pentameth - \fi\fi\fi\fi -\fi -}% end of the macro \set@fusion@heptameth -\def\octamethylene{% -\@ifnextchar[{\set@normaldirection\@octamethylene[@}{% -\set@normaldirection\@octamethylene[]}} -\def\octamethylenei{% -\@ifnextchar[{\set@inversedirection\@octamethylene[@}{% -\set@inversedirection\@octamethylene[]}} -\def\@octamethylene[#1]#2#3{% -\iniflag\iniatom% -\@reset@ylsw% -{\@linterchainswfalse% -\@rinterchainswtrue% -\@yltrinormorinv{#2}{#3}{0}{0}}% -\if@ylsw \ifx\@@ylii\empty -\def\@@ylii{0}\def\@@yli{0}\fi -\else -{\@rinterchainswtrue% -\@linterchainswtrue% -\@yltrinormorinv{#2}{#3}{1}{-2}}% -\fi -\if@ylsw \ifx\@@ylii\empty -\def\@@ylii{-342}\def\@@yli{0}\fi -\else -{\@rinterchainswtrue% -\@linterchainswtrue% -\@yltrinormorinv{#2}{#3}{1}{-4}}% -\fi -\if@ylsw \ifx\@@ylii\empty -\def\@@ylii{-684}\def\@@yli{0}\fi -\else -{\@rinterchainswfalse% -\@linterchainswtrue% -\@yldinormorinv{#2}{#3}{1}{-6}}% -\fi -\if@ylsw \ifx\@@ylii\empty -\def\@@ylii{-1026}\def\@@yli{0}\fi\fi -\if@ylsw - \yl@shiftii=\@ylii - \yl@shifti=\@yli - \advance\yl@shiftii\@@ylii - \advance\yl@shifti\@@yli - \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}(1620,480)(-200,-180) - \iforigpt \put(-200,-180){\circle*{50}}% - \put(0,0){\circle{50}}% - \typeout{command `octamethylene' origin: % - (0,0) ---> (200,180)}\fi% -\fi% -{\reset@double% -\@tfor\member:=#1\do{% -\if\member a\relax -\@adoublebondtrue -\else\if\member b\relax -\@bdoublebondtrue -\else\if\member A\relax -\@Adoublebondtrue -\else\if\member B\relax -\@Bdoublebondtrue -\else\if\member c\relax%dummy -\else\if\member C\relax%dummy -\else\if\member d\relax%dummy -\else\if\member D\relax%dummy -\else\if\member e\relax%dummy -\else\if\member E\relax%dummy -\else\if\member f\relax%dummy -\else\if\member F\relax%dummy -\else\if\member g\relax%dummy -\else\if\member G\relax%dummy -\else - \expandafter\twoCH@@R\member//% - \set@fusion@octameth% for all bonds -\fi\fi\fi\fi\fi\fi\fi\fi\fi\fi -\fi\fi\fi\fi}% -\@wrongbdWatrue -\@wrongbdWdtrue -\put(0,0){\@@trinormorinv{#2}{#3}{0}{0}}}% -{\reset@double% -\@tfor\member:=#1\do{% -\if\member c\relax -\@adoublebondtrue -\else\if\member d\relax -\@bdoublebondtrue -\else\if\member C\relax -\@Adoublebondtrue -\else\if\member D\relax -\@Bdoublebondtrue -\fi\fi\fi\fi}% -\@wrongbdWatrue -\@wrongbdWdtrue -\put(342,0){\@@trinormorinv{#2}{#3}{1}{-2}}}% -{\reset@double% -\@tfor\member:=#1\do{% -\if\member e\relax -\@adoublebondtrue -\else\if\member E\relax -\@Adoublebondtrue -\else\if\member f\relax -\@bdoublebondtrue -\else\if\member F\relax -\@Bdoublebondtrue -\fi\fi\fi\fi}% -\@wrongbdWatrue -\@wrongbdWdtrue -\put(684,0){\@@trinormorinv{#2}{#3}{1}{-4}}}% -{\reset@double% -\@tfor\member:=#1\do{% -\if\member g\relax -\@adoublebondtrue -\else\if\member G\relax -\@Adoublebondtrue -\fi\fi}% -\if@normorinvsw% inverse -\@wrongbdWatrue -\@wrongbdWdfalse -\else% normal -\@wrongbdWafalse -\@wrongbdWdtrue -\fi -\put(1026,0){\@@dinormorinv{#2}{#3}{1}{-6}}}% -\end{picture}}% end of \@octamethylene -\def\set@fusion@octameth{% -\if@normorinvsw - \if\@@tmpa e\relax% - \putlratom{684}{103}{\@@tmpb}% % bond fused - \FuseWarning{-171}{103}% - {\fuseAx}{\fuseAy}{\fuseBx}{\fuseBy}{e}% - \else\if\@@tmpa E\relax% - \putlratom{855}{0}{\@@tmpb}% % bond fused - \FuseWarning{171}{-103}% - {\fuseAx}{\fuseAy}{\fuseBx}{\fuseBy}{E}% - \else\if\@@tmpa f\relax% - \putlratom{855}{0}{\@@tmpb}% % bond fused - \FuseWarning{-171}{-103}% - {\fuseAx}{\fuseAy}{\fuseBx}{\fuseBy}{f}% - \else\if\@@tmpa F\relax% - \putlratom{1027}{103}{\@@tmpb}% % bond fused - \FuseWarning{171}{103}% - {\fuseAx}{\fuseAy}{\fuseBx}{\fuseBy}{F}% - \else\if\@@tmpa g\relax% - \putlratom{1027}{103}{\@@tmpb}% % bond fused - \FuseWarning{-171}{103}% - {\fuseAx}{\fuseAy}{\fuseBx}{\fuseBy}{g}% - \else\if\@@tmpa G\relax% - \putlratom{1198}{0}{\@@tmpb}% % bond fused - \FuseWarning{171}{-103}% - {\fuseAx}{\fuseAy}{\fuseBx}{\fuseBy}{G}% - \else - \set@fusion@pentamethi - \fi\fi\fi\fi\fi\fi -\else - \if\@@tmpa e\relax% - \putlratom{684}{0}{\@@tmpb}% % bond fused - \FuseWarning{-171}{-103}% - {\fuseAx}{\fuseAy}{\fuseBx}{\fuseBy}{e}% - \else\if\@@tmpa E\relax% - \putlratom{855}{103}{\@@tmpb}% % bond fused - \FuseWarning{171}{103}% - {\fuseAx}{\fuseAy}{\fuseBx}{\fuseBy}{E}% - \else\if\@@tmpa f\relax% - \putlratom{855}{103}{\@@tmpb}% % bond fused - \FuseWarning{-171}{103}% - {\fuseAx}{\fuseAy}{\fuseBx}{\fuseBy}{f}% - \else\if\@@tmpa F\relax% - \putlratom{1027}{0}{\@@tmpb}% % bond fused - \FuseWarning{171}{-103}% - {\fuseAx}{\fuseAy}{\fuseBx}{\fuseBy}{F}% - \else\if\@@tmpa g\relax% - \putlratom{1027}{0}{\@@tmpb}% % bond fused - \FuseWarning{-171}{-103}% - {\fuseAx}{\fuseAy}{\fuseBx}{\fuseBy}{g}% - \else\if\@@tmpa G\relax% - \putlratom{1198}{103}{\@@tmpb}% % bond fused - \FuseWarning{171}{103}% - {\fuseAx}{\fuseAy}{\fuseBx}{\fuseBy}{G}% - \else - \set@fusion@pentameth - \fi\fi\fi\fi\fi\fi -\fi -}% end of the macro \set@fusion@octameth -\def\nonamethylene{% -\@ifnextchar[{\set@normaldirection\@nonamethylene[@}{% -\set@normaldirection\@nonamethylene[]}} - -\def\nonamethylenei{% -\@ifnextchar[{\set@inversedirection\@nonamethylene[@}{% -\set@inversedirection\@nonamethylene[]}} -\def\@nonamethylene[#1]#2#3{% -\iniflag\iniatom% -\@reset@ylsw% -{\@linterchainswfalse% -\@rinterchainswtrue% -\@yltrinormorinv{#2}{#3}{0}{0}}% -\if@ylsw \ifx\@@ylii\empty -\def\@@ylii{0}\def\@@yli{0}\fi -\else -{\@rinterchainswtrue% -\@linterchainswtrue% -\@yltrinormorinv{#2}{#3}{1}{-2}}% -\fi -\if@ylsw \ifx\@@ylii\empty -\def\@@ylii{-342}\def\@@yli{0}\fi -\else -{\@rinterchainswtrue% -\@linterchainswtrue% -\@yltrinormorinv{#2}{#3}{1}{-4}}% -\fi -\if@ylsw \ifx\@@ylii\empty -\def\@@ylii{-684}\def\@@yli{0}\fi -\else -{\@rinterchainswfalse% -\@linterchainswtrue% -\@yltrinormorinv{#2}{#3}{1}{-6}}% -\fi -\if@ylsw \ifx\@@ylii\empty -\def\@@ylii{-1026}\def\@@yli{0}\fi\fi -\if@ylsw - \yl@shiftii=\@ylii - \yl@shifti=\@yli - \advance\yl@shiftii\@@ylii - \advance\yl@shifti\@@yli - \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}(1790,480)(-200,-180) - \iforigpt \put(-200,-180){\circle*{50}}% - \put(0,0){\circle{50}}% - \typeout{command `nonamethylene' origin: % - (0,0) ---> (200,180)}\fi% -\fi% -{\reset@double% -\@tfor\member:=#1\do{% -\if\member a\relax -\@adoublebondtrue -\else\if\member b\relax -\@bdoublebondtrue -\else\if\member A\relax -\@Adoublebondtrue -\else\if\member B\relax -\@Bdoublebondtrue -\else\if\member c\relax%dummy -\else\if\member C\relax%dummy -\else\if\member d\relax%dummy -\else\if\member D\relax%dummy -\else\if\member e\relax%dummy -\else\if\member E\relax%dummy -\else\if\member f\relax%dummy -\else\if\member F\relax%dummy -\else\if\member g\relax%dummy -\else\if\member G\relax%dummy -\else\if\member h\relax%dummy -\else\if\member H\relax%dummy -\else - \expandafter\twoCH@@R\member//% - \set@fusion@nonameth% for all bonds -\fi\fi\fi\fi\fi\fi\fi\fi\fi\fi\fi\fi -\fi\fi\fi\fi}% -\@wrongbdWatrue -\@wrongbdWdtrue -\put(0,0){\@@trinormorinv{#2}{#3}{0}{0}}}% -{\reset@double% -\@tfor\member:=#1\do{% -\if\member c\relax -\@adoublebondtrue -\else\if\member d\relax -\@bdoublebondtrue -\else\if\member C\relax -\@Adoublebondtrue -\else\if\member D\relax -\@Bdoublebondtrue -\fi\fi\fi\fi}% -\@wrongbdWatrue -\@wrongbdWdtrue -\put(342,0){\@@trinormorinv{#2}{#3}{1}{-2}}}% -{\reset@double% -\@tfor\member:=#1\do{% -\if\member e\relax -\@adoublebondtrue -\else\if\member E\relax -\@Adoublebondtrue -\else\if\member f\relax -\@bdoublebondtrue -\else\if\member F\relax -\@Bdoublebondtrue -\fi\fi\fi\fi}% -\@wrongbdWatrue -\@wrongbdWdtrue -\put(684,0){\@@trinormorinv{#2}{#3}{1}{-4}}}% -{\reset@double% -\@tfor\member:=#1\do{% -\if\member g\relax -\@adoublebondtrue -\else\if\member G\relax -\@Adoublebondtrue -\else\if\member h\relax -\@bdoublebondtrue -\else\if\member H\relax -\@Bdoublebondtrue -\fi\fi\fi\fi}% -\if@normorinvsw% inverse -\@wrongbdWafalse -\@wrongbdWdtrue -\else% normal -\@wrongbdWatrue -\@wrongbdWdfalse -\fi -\put(1026,0){\@@trinormorinv{#2}{#3}{1}{-6}}}% -\end{picture}}% end of \@nonamethylene -\def\set@fusion@nonameth{% -\if@normorinvsw - \if\@@tmpa h\relax% - \putlratom{1198}{0}{\@@tmpb}% % bond fused - \FuseWarning{-171}{-103}% - {\fuseAx}{\fuseAy}{\fuseBx}{\fuseBy}{h}% - \else\if\@@tmpa H\relax% - \putlratom{1369}{103}{\@@tmpb}% % bond fused - \FuseWarning{171}{103}% - {\fuseAx}{\fuseAy}{\fuseBx}{\fuseBy}{H}% - \else - \set@fusion@octameth - \fi\fi -\else - \if\@@tmpa h\relax% - \putlratom{1198}{103}{\@@tmpb}% % bond fused - \FuseWarning{-171}{103}% - {\fuseAx}{\fuseAy}{\fuseBx}{\fuseBy}{h}% - \else\if\@@tmpa H\relax% - \putlratom{1369}{0}{\@@tmpb}% % bond fused - \FuseWarning{171}{-103}% - {\fuseAx}{\fuseAy}{\fuseBx}{\fuseBy}{H}% - \else - \set@fusion@octameth - \fi\fi -\fi -}% end of the macro \set@fusion@nonameth -\def\decamethylene{% -\@ifnextchar[{\set@normaldirection\@decamethylene[@}{% -\set@normaldirection\@decamethylene[]}} -\def\decamethylenei{% -\@ifnextchar[{\set@inversedirection\@decamethylene[@}{% -\set@inversedirection\@decamethylene[]}} -\def\@decamethylene[#1]#2#3{% -\iniflag\iniatom% -\@reset@ylsw% -{\@linterchainswfalse% -\@rinterchainswtrue% -\@yltrinormorinv{#2}{#3}{0}{0}}% -\if@ylsw \ifx\@@ylii\empty -\def\@@ylii{0}\def\@@yli{0}\fi -\else -{\@rinterchainswtrue% -\@linterchainswtrue% -\@yltrinormorinv{#2}{#3}{1}{-2}}% -\fi -\if@ylsw \ifx\@@ylii\empty -\def\@@ylii{-342}\def\@@yli{0}\fi -\else -{\@rinterchainswtrue% -\@linterchainswtrue% -\@yltrinormorinv{#2}{#3}{1}{-4}}% -\fi -\if@ylsw \ifx\@@ylii\empty -\def\@@ylii{-684}\def\@@yli{0}\fi -\else -{\@rinterchainswtrue% -\@linterchainswtrue% -\@yltrinormorinv{#2}{#3}{1}{-6}}% -\fi -\if@ylsw \ifx\@@ylii\empty -\def\@@ylii{-1026}\def\@@yli{0}\fi -\else -{\@rinterchainswfalse% -\@linterchainswtrue% -\@yldinormorinv{#2}{#3}{1}{-8}}% -\fi -\if@ylsw \ifx\@@ylii\empty -\def\@@ylii{-1368}\def\@@yli{0}\fi\fi -\if@ylsw - \yl@shiftii=\@ylii - \yl@shifti=\@yli - \advance\yl@shiftii\@@ylii - \advance\yl@shifti\@@yli - \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}(1960,480)(-200,-180) - \iforigpt \put(-200,-180){\circle*{50}}% - \put(0,0){\circle{50}}% - \typeout{command `decamethylene' origin: % - (0,0) ---> (200,180)}\fi% -\fi% -{\reset@double% -\@tfor\member:=#1\do{% -\if\member a\relax -\@adoublebondtrue -\else\if\member b\relax -\@bdoublebondtrue -\else\if\member A\relax -\@Adoublebondtrue -\else\if\member B\relax -\@Bdoublebondtrue -\else\if\member c\relax%dummy -\else\if\member C\relax%dummy -\else\if\member d\relax%dummy -\else\if\member D\relax%dummy -\else\if\member e\relax%dummy -\else\if\member E\relax%dummy -\else\if\member f\relax%dummy -\else\if\member F\relax%dummy -\else\if\member g\relax%dummy -\else\if\member G\relax%dummy -\else\if\member h\relax%dummy -\else\if\member H\relax%dummy -\else\if\member i\relax%dummy -\else\if\member I\relax%dummy -\else - \expandafter\twoCH@@R\member//% - \set@fusion@decameth% for all bonds -\fi\fi\fi\fi\fi\fi\fi\fi\fi\fi\fi\fi\fi\fi -\fi\fi\fi\fi}% -\@wrongbdWatrue -\@wrongbdWdtrue -\put(0,0){\@@trinormorinv{#2}{#3}{0}{0}}}% -{\reset@double% -\@tfor\member:=#1\do{% -\if\member c\relax -\@adoublebondtrue -\else\if\member d\relax -\@bdoublebondtrue -\else\if\member C\relax -\@Adoublebondtrue -\else\if\member D\relax -\@Bdoublebondtrue -\fi\fi\fi\fi}% -\@wrongbdWatrue -\@wrongbdWdtrue -\put(342,0){\@@trinormorinv{#2}{#3}{1}{-2}}}% -{\reset@double% -\@tfor\member:=#1\do{% -\if\member e\relax -\@adoublebondtrue -\else\if\member E\relax -\@Adoublebondtrue -\else\if\member f\relax -\@bdoublebondtrue -\else\if\member F\relax -\@Bdoublebondtrue -\fi\fi\fi\fi}% -\@wrongbdWatrue -\@wrongbdWdtrue -\put(684,0){\@@trinormorinv{#2}{#3}{1}{-4}}}% -{\reset@double% -\@tfor\member:=#1\do{% -\if\member g\relax -\@adoublebondtrue -\else\if\member G\relax -\@Adoublebondtrue -\else\if\member h\relax -\@bdoublebondtrue -\else\if\member H\relax -\@Bdoublebondtrue -\fi\fi\fi\fi}% -\@wrongbdWatrue -\@wrongbdWdtrue -\put(1026,0){\@@trinormorinv{#2}{#3}{1}{-6}}}% -{\reset@double% -\@tfor\member:=#1\do{% -\if\member i\relax -\@adoublebondtrue -\else\if\member I\relax -\@Adoublebondtrue -\fi\fi}% -\if@normorinvsw% inverse -\@wrongbdWatrue -\@wrongbdWdfalse -\else% normal -\@wrongbdWafalse -\@wrongbdWdtrue -\fi -\put(1368,0){\@@dinormorinv{#2}{#3}{1}{-8}}}% -\end{picture}}% end \@decamethylene -\def\set@fusion@decameth{% -\if@normorinvsw - \if\@@tmpa h\relax% - \putlratom{1198}{0}{\@@tmpb}% % bond fused - \FuseWarning{-171}{-103}% - {\fuseAx}{\fuseAy}{\fuseBx}{\fuseBy}{h}% - \else\if\@@tmpa H\relax% - \putlratom{1369}{103}{\@@tmpb}% % bond fused - \FuseWarning{171}{103}% - {\fuseAx}{\fuseAy}{\fuseBx}{\fuseBy}{H}% - \else\if\@@tmpa i\relax% - \putlratom{1369}{103}{\@@tmpb}% % bond fused - \FuseWarning{-171}{103}% - {\fuseAx}{\fuseAy}{\fuseBx}{\fuseBy}{i}% - \else\if\@@tmpa I\relax% - \putlratom{1540}{0}{\@@tmpb}% % bond fused - \FuseWarning{171}{-103}% - {\fuseAx}{\fuseAy}{\fuseBx}{\fuseBy}{I}% - \else - \set@fusion@octameth - \fi\fi\fi\fi -\else - \if\@@tmpa h\relax% - \putlratom{1198}{103}{\@@tmpb}% % bond fused - \FuseWarning{-171}{103}% - {\fuseAx}{\fuseAy}{\fuseBx}{\fuseBy}{h}% - \else\if\@@tmpa H\relax% - \putlratom{1369}{0}{\@@tmpb}% % bond fused - \FuseWarning{171}{-103}% - {\fuseAx}{\fuseAy}{\fuseBx}{\fuseBy}{H}% - \else\if\@@tmpa i\relax% - \putlratom{1369}{0}{\@@tmpb}% % bond fused - \FuseWarning{-171}{-103}% - {\fuseAx}{\fuseAy}{\fuseBx}{\fuseBy}{i}% - \else\if\@@tmpa I\relax% - \putlratom{1540}{103}{\@@tmpb}% % bond fused - \FuseWarning{171}{103}% - {\fuseAx}{\fuseAy}{\fuseBx}{\fuseBy}{I}% - \else - \set@fusion@octameth - \fi\fi\fi\fi -\fi% -}% end of the macro \set@fusion@decameth -\endinput -%% -%% End of file `methylen.sty'. |