From 0a17be9af1c1cd8e5452befa92ff920a401c47fb Mon Sep 17 00:00:00 2001 From: Karl Berry Date: Tue, 2 Jan 2007 22:42:25 +0000 Subject: remove xymtex (again), it is nonfree git-svn-id: svn://tug.org/texlive/trunk@3102 c570f23f-e606-0410-a88d-b1316a301751 --- Master/texmf-dist/tex/latex/xymtex/aliphat.sty | 1464 ------ Master/texmf-dist/tex/latex/xymtex/carom.sty | 1369 ------ Master/texmf-dist/tex/latex/xymtex/ccycle.sty | 1854 ------- Master/texmf-dist/tex/latex/xymtex/chemist.sty | 936 ---- Master/texmf-dist/tex/latex/xymtex/chemstr.sty | 5905 ----------------------- Master/texmf-dist/tex/latex/xymtex/fusering.sty | 2013 -------- Master/texmf-dist/tex/latex/xymtex/hcycle.sty | 387 -- Master/texmf-dist/tex/latex/xymtex/hetarom.sty | 3835 --------------- Master/texmf-dist/tex/latex/xymtex/hetaromh.sty | 2435 ---------- Master/texmf-dist/tex/latex/xymtex/locant.sty | 107 - Master/texmf-dist/tex/latex/xymtex/lowcycle.sty | 141 - Master/texmf-dist/tex/latex/xymtex/methylen.sty | 3075 ------------ Master/texmf-dist/tex/latex/xymtex/polymers.sty | 231 - Master/texmf-dist/tex/latex/xymtex/xymtex.sty | 85 - 14 files changed, 23837 deletions(-) delete mode 100644 Master/texmf-dist/tex/latex/xymtex/aliphat.sty delete mode 100644 Master/texmf-dist/tex/latex/xymtex/carom.sty delete mode 100644 Master/texmf-dist/tex/latex/xymtex/ccycle.sty delete mode 100644 Master/texmf-dist/tex/latex/xymtex/chemist.sty delete mode 100644 Master/texmf-dist/tex/latex/xymtex/chemstr.sty delete mode 100644 Master/texmf-dist/tex/latex/xymtex/fusering.sty delete mode 100644 Master/texmf-dist/tex/latex/xymtex/hcycle.sty delete mode 100644 Master/texmf-dist/tex/latex/xymtex/hetarom.sty delete mode 100644 Master/texmf-dist/tex/latex/xymtex/hetaromh.sty delete mode 100644 Master/texmf-dist/tex/latex/xymtex/locant.sty delete mode 100644 Master/texmf-dist/tex/latex/xymtex/lowcycle.sty delete mode 100644 Master/texmf-dist/tex/latex/xymtex/methylen.sty delete mode 100644 Master/texmf-dist/tex/latex/xymtex/polymers.sty delete mode 100644 Master/texmf-dist/tex/latex/xymtex/xymtex.sty (limited to 'Master/texmf-dist/tex/latex') diff --git a/Master/texmf-dist/tex/latex/xymtex/aliphat.sty b/Master/texmf-dist/tex/latex/xymtex/aliphat.sty deleted file mode 100644 index 7ba5a100403..00000000000 --- a/Master/texmf-dist/tex/latex/xymtex/aliphat.sty +++ /dev/null @@ -1,1464 +0,0 @@ -%% -%% This is file `aliphat.sty', -%% generated with the docstrip utility. -%% -%% The original source files were: -%% -%% aliphat.dtx (with options: `aliphat') -%% -%% This is a generated file. -%% -%% Copyright 1996, 1998 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, 1996 -%% Version 2.00 Released on December 25, 1998 -%% -%% Copyright (C) 1996, 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: aliphat.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{aliphat} -\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}{} -\unitlength=0.1pt -\def\Northbond{% -\yl@xdiff=40 -\yl@ydiff=-15 -\begin{picture}(100,200)(0,0) - \if\@tmpb D\relax% - \multiput(-13,52)(26,0){2}{\line(0,1){100}}% double bond up - \else\if\@tmpb T\relax% - \multiput(-20,52)(20,0){3}{\line(0,1){100}}% triple bond up - \else\if\@tmpb A%(A) alpha - {\thicklines\put(-8,52){\line(0,1){100}}}% single bond (alpha) - \else\if\@tmpb B%(B) beta - \@ifundefined{dottedline}{\put(0,52){\line(0,1){100}}}% - {{\thicklines \dottedline{20}(0,52)(0,152)}}% - \else\if\@tmpb S% - \put(0,52){\line(0,1){100}}% - \else \put(0,52){\line(0,1){100}}% - \fi\fi\fi\fi\fi% - \putlratom{-40}{167}{\@memberb}%==1 upper substituent -\end{picture}}% -\def\Eastbond{% -\yl@xdiff=-10 -\yl@ydiff=33 -\begin{picture}(200,200)(0,0) - \if\@tmpb D\relax% - \multiput(50,-13)(0,26){2}{\line(1,0){140}}% double bond right - \else\if\@tmpb T\relax% - \multiput(50,-20)(0,20){3}{\line(1,0){140}}% double bond right - \else\if\@tmpb A%(A) alpha - {\thicklines\put(50,0){\line(1,0){140}}}% single bond (alpha) - \else\if\@tmpb B%(B) beta - \@ifundefined{dottedline}{\put(50,0){\line(1,0){140}}}% - {{\thicklines \dottedline{20}(50,0)(203,0)}}% - \else\if\@tmpb S% - \put(50,0){\line(1,0){140}}% - \else \put(50,0){\line(1,0){140}}% - \fi\fi\fi\fi\fi% - \putratom{200}{-33}{\@memberb}%==2 right substituent -\end{picture}}% -\def\Southbond{% -\yl@xdiff=40 -\yl@ydiff=95 -\begin{picture}(100,300)(0,0) - \if\@tmpb D\relax% - \multiput(-13,-48)(26,0){2}{\line(0,-1){100}}% double bond down - \else\if\@tmpb T\relax% - \multiput(-20,-48)(20,0){3}{\line(0,-1){100}}% double bond down - \else\if\@tmpb A%(A) alpha - {\thicklines\put(-8,-48){\line(0,-1){100}}}% single bond (alpha) - \else\if\@tmpb B%(B) beta - \@ifundefined{dottedline}{\put(0,-48){\line(0,-1){100}}}% - {{\thicklines \dottedline{20}(0,-48)(0,-148)}}% - \else\if\@tmpb S% - \put(0,-48){\line(0,-1){100}}% - \else \put(0,-48){\line(0,-1){100}}% - \fi\fi\fi\fi\fi% - \putlratom{-40}{-243}{\@memberb}%==3 down substituent -\end{picture}}% -\def\Westbond{% -\yl@xdiff=10 -\yl@ydiff=33 -\begin{picture}(100,300)(0,0) - \if\@tmpb D\relax% - \multiput(-190,-13)(0,26){2}{\line(1,0){140}}% double bond left - \else\if\@tmpb T\relax% - \multiput(-190,-20)(0,20){3}{\line(1,0){140}}% double bond left - \else\if\@tmpb A%(A) alpha - {\thicklines\put(-190,0){\line(1,0){140}}}% single bond (alpha) - \else\if\@tmpb B%(B) beta - \@ifundefined{dottedline}{\put(-190,0){\line(1,0){140}}}% - {{\thicklines \dottedline{20}(-190,0)(-40,0)}}% - \else\if\@tmpb S% - \put(-190,0){\line(1,0){140}}% - \else \put(-190,0){\line(1,0){140}}% - \fi\fi\fi\fi\fi% - \putlatom{-200}{-33}{\@memberb}%==4 left substituent -\end{picture}}% -\def\NEBond{%degree 120 -\yl@xdiff=-9 -\yl@ydiff=13 -\begin{picture}(100,300)(0,0) - \if\@tmpb D\relax% - \put(33,48){\line(5,3){121}}% - \put(47,26){\line(5,3){121}}%northeast double bond - \else\if\@tmpb T\relax% - \put(31,52){\line(5,3){121}}% - \put(40,37){\line(5,3){121}}% - \put(49,22){\line(5,3){121}}%northeast triple bond - \else\if\@tmpb A%(A) alpha - {\thicklines\put(40,47){\line(5,3){121}}}% single bond (alpha) - \else\if\@tmpb B%(B) beta - \@ifundefined{dottedline}{\put(40,47){\line(5,3){121}}}% - {{\thicklines \dottedline{20}(40,47)(161,120)}}% - \else\if\@tmpb S% - \put(40,47){\line(5,3){121}}% - \else \put(40,47){\line(5,3){121}}% - \fi\fi\fi\fi\fi% - \putratom{170}{107}{\@memberb}%==2 (northeast substituent) -\end{picture}}% -\def\NEbond{%degree 90 -\yl@xdiff=-5 -\yl@ydiff=10 -\begin{picture}(100,300)(0,0) - \if\@tmpb D\relax% - \put(31,46){\line(1,1){100}}% - \put(49,28){\line(1,1){100}}%northeast double bond - \else\if\@tmpb T\relax% - \put(27,50){\line(1,1){100}}% - \put(40,37){\line(1,1){100}}% - \put(53,24){\line(1,1){100}}%northeast triple bond - \else\if\@tmpb A%(A) alpha - {\thicklines\put(40,47){\line(1,1){100}}}% single bond (alpha) - \else\if\@tmpb B%(B) beta - \@ifundefined{dottedline}{\put(40,47){\line(1,1){100}}}% - {{\thicklines \dottedline{20}(40,47)(140,147)}}% - \else\if\@tmpb S% - \put(40,47){\line(1,1){100}}% - \else \put(40,47){\line(1,1){100}}% - \fi\fi\fi\fi\fi% - \putratom{145}{137}{\@memberb}%==2 (northeast substituent) -\end{picture}}% -\def\SEBond{%degree 120 -\yl@xdiff=-9 -\yl@ydiff=67 -\begin{picture}(100,300)(0,0) - \if\@tmpb D\relax% - \put(33,-48){\line(5,-3){121}}% - \put(47,-26){\line(5,-3){121}}%southeast double bond - \else\if\@tmpb T\relax% - \put(31,-52){\line(5,-3){121}}% - \put(40,-37){\line(5,-3){121}}% - \put(49,-22){\line(5,-3){121}}%southeast triple bond - \else\if\@tmpb A%(A) alpha - {\thicklines\put(40,-47){\line(5,-3){121}}}% single bond (alpha) - \else\if\@tmpb B%(B) beta - \@ifundefined{dottedline}{\put(40,-47){\line(5,-3){121}}}% - {{\thicklines \dottedline{20}(40,-47)(161,-120)}}% - \else\if\@tmpb S% - \put(40,-47){\line(5,-3){121}}% - \else \put(40,-47){\line(5,-3){121}}% - \fi\fi\fi\fi\fi% - \putratom{170}{-187}{\@memberb}%==2 (southeast substituent) -\end{picture}}% -\def\SEbond{%degree 90 -\yl@xdiff=-5 -\yl@ydiff=56 -\begin{picture}(100,300)(0,0) - \if\@tmpb D\relax% - \put(31,-46){\line(1,-1){100}}% - \put(49,-28){\line(1,-1){100}}%southeast double bond - \else\if\@tmpb T\relax% - \put(27,-50){\line(1,-1){100}}% - \put(40,-37){\line(1,-1){100}}% - \put(53,-24){\line(1,-1){100}}%southeast triple bond - \else\if\@tmpb A%(A) alpha - {\thicklines\put(53,-47){\line(1,-1){100}}}% single bond (alpha) - \else\if\@tmpb B%(B) beta - \@ifundefined{dottedline}{\put(40,-47){\line(1,-1){100}}}% - {{\thicklines \dottedline{20}(40,-47)(140,-147)}}% - \else\if\@tmpb S% - \put(40,-47){\line(1,-1){100}}% - \else \put(40,-47){\line(1,-1){100}}% - \fi\fi\fi\fi\fi% - \putratom{145}{-203}{\@memberb}%==3 (southeast substituent) -\end{picture}}% -\def\NWBond{% -\begin{picture}(100,300)(0,0) -\yl@xdiff=9 -\yl@ydiff=13 - \if\@tmpb D\relax% - \put(-59,48){\line(-5,3){121}}% - \put(-73,26){\line(-5,3){121}}%northwest double bond - \else\if\@tmpb T\relax% - \put(-57,52){\line(-5,3){121}}% - \put(-66,37){\line(-5,3){121}}% - \put(-75,22){\line(-5,3){121}}%northwest triple bond - \else\if\@tmpb A%(A) alpha - {\thicklines\put(-66,47){\line(-5,3){121}}}% single bond (alpha) - \else\if\@tmpb B%(B) beta - \@ifundefined{dottedline}{\put(-66,47){\line(-5,3){121}}}% - {{\thicklines \dottedline{20}(-66,47)(-187,120)}}% - \else\if\@tmpb S% - \put(-66,47){\line(-5,3){121}}% - \else \put(-66,47){\line(-5,3){121}}% - \fi\fi\fi\fi\fi% - \putlatom{-196}{107}{\@memberb}%==2 (northwest substituent) -\end{picture}}% -\def\NWbond{% -\begin{picture}(100,300)(0,0) -\yl@xdiff=13 -\yl@ydiff=10 - \if\@tmpb D\relax% - \put(-41,46){\line(-1,1){100}}% - \put(-59,28){\line(-1,1){100}}%northwest double bond - \else\if\@tmpb T\relax% - \put(-37,50){\line(-1,1){100}}% - \put(-50,37){\line(-1,1){100}}% - \put(-63,24){\line(-1,1){100}}%northwest triple bond - \else\if\@tmpb A%(A) alpha - {\thicklines\put(-50,47){\line(-1,1){100}}}% single bond (alpha) - \else\if\@tmpb B%(B) beta - \@ifundefined{dottedline}{\put(-50,47){\line(-1,1){100}}}% - {{\thicklines \dottedline{20}(-50,47)(-137,147)}}% - \else\if\@tmpb S% - \put(-50,47){\line(-1,1){100}}% - \else \put(-50,47){\line(-1,1){100}}% - \fi\fi\fi\fi\fi% - \putlatom{-163}{137}{\@memberb}%==2 (northwest substituent) -\end{picture}}% -\def\SWBond{% -\yl@xdiff=9 -\yl@ydiff=67 -\begin{picture}(100,300)(0,0) - \if\@tmpb D\relax% - \put(-59,-48){\line(-5,-3){121}}% - \put(-73,-26){\line(-5,-3){121}}%southwest double bond - \else\if\@tmpb T\relax% - \put(-57,-52){\line(-5,-3){121}}% - \put(-66,-37){\line(-5,-3){121}}% - \put(-75,-22){\line(-5,-3){121}}%southwest triple bond - \else\if\@tmpb A%(A) alpha - {\thicklines\put(-66,-47){\line(-5,-3){121}}}% single bond (alpha) - \else\if\@tmpb B%(B) beta - \@ifundefined{dottedline}{\put(-66,-47){\line(-5,-3){121}}}% - {{\thicklines \dottedline{20}(-66,-47)(-187,-120)}}% - \else\if\@tmpb S% - \put(-66,-47){\line(-5,-3){121}}% - \else \put(-66,-47){\line(-5,-3){121}}% - \fi\fi\fi\fi\fi% - \putlatom{-196}{-187}{\@memberb}%==2 (southwest substituent) -\end{picture}}% -\def\SWbond{% -\yl@xdiff=13 -\yl@ydiff=56 -\begin{picture}(100,300)(0,0) - \if\@tmpb D\relax% - \put(-41,-46){\line(-1,-1){100}}% - \put(-59,-28){\line(-1,-1){100}}%southwest double bond - \else\if\@tmpb T\relax% - \put(-37,-50){\line(-1,-1){100}}% - \put(-50,-37){\line(-1,-1){100}}% - \put(-63,-24){\line(-1,-1){100}}%southwest triple bond - \else\if\@tmpb A%(A) alpha - {\thicklines\put(-50,-47){\line(-1,-1){100}}}% single bond (alpha) - \else\if\@tmpb B%(B) beta - \@ifundefined{dottedline}{\put(-50,-47){\line(-1,-1){100}}}% - {{\thicklines \dottedline{20}(-50,-47)(-137,-147)}}% - \else\if\@tmpb S% - \put(-50,-47){\line(-1,-1){100}}% - \else \put(-50,-47){\line(-1,-1){100}}% - \fi\fi\fi\fi\fi% - \putlatom{-163}{-203}{\@memberb}%==3 (southwest substituent) -\end{picture}}% -\def\NEBOND{%degree 120 -\yl@xdiff=-1 -\yl@ydiff=-10 -\begin{picture}(100,300)(0,0) - \if\@tmpb D\relax% - \put(48,33){\line(3,5){72}}% - \put(26,47){\line(3,5){72}}%northeast double bond - \else\if\@tmpb T\relax% - \put(52,31){\line(3,5){72}}% - \put(37,40){\line(3,5){72}}% - \put(22,49){\line(3,5){72}}%northeast triple bond - \else\if\@tmpb A%(A) alpha - {\thicklines\put(40,47){\line(3,5){72}}}% single bond (alpha) - \else\if\@tmpb B%(B) beta - \@ifundefined{dottedline}{\put(47,40){\line(3,5){72}}}% - {{\thicklines \dottedline{20}(47,40)(120,161)}}% - \else\if\@tmpb S% - \put(47,40){\line(3,5){72}}% - \else \put(47,40){\line(3,5){72}}% - \fi\fi\fi\fi\fi% - \putratom{120}{170}{\@memberb}%==2 (northeast substituent) -\end{picture}}% -\def\SEBOND{%degree 120 -\yl@xdiff=-1 -\yl@ydiff=70 -\begin{picture}(100,300)(0,0) - \if\@tmpb D\relax% - \put(48,-33){\line(3,-5){72}}% - \put(26,-47){\line(3,-5){72}}%southeast double bond - \else\if\@tmpb T\relax% - \put(52,-31){\line(3,-5){72}}% - \put(37,-40){\line(3,-5){72}}% - \put(22,-49){\line(3,-5){72}}%southeast triple bond - \else\if\@tmpb A%(A) alpha - {\thicklines\put(47,-40){\line(3,-5){72}}}% single bond (alpha) - \else\if\@tmpb B%(B) beta - \@ifundefined{dottedline}{\put(47,-40){\line(3,-5){72}}}% - {{\thicklines \dottedline{20}(47,-40)(120,-161)}}% - \else\if\@tmpb S% - \put(47,-40){\line(3,-5){72}}% - \else \put(47,-40){\line(3,-5){72}}% - \fi\fi\fi\fi\fi% - \putratom{120}{-230}{\@memberb}%==2 (southeast substituent) -\end{picture}}% -\def\NWBOND{% -\yl@xdiff=1 -\yl@ydiff=-10 -\begin{picture}(100,300)(0,0) - \if\@tmpb D\relax% - \put(-48,33){\line(-3,5){72}}% - \put(-26,47){\line(-3,5){72}}%northwest double bond - \else\if\@tmpb T\relax% - \put(-52,31){\line(-3,5){72}}% - \put(-37,40){\line(-3,5){72}}% - \put(-22,49){\line(-3,5){72}}%northwest triple bond - \else\if\@tmpb A%(A) alpha - {\thicklines\put(-40,47){\line(-3,5){72}}}% single bond (alpha) - \else\if\@tmpb B%(B) beta - \@ifundefined{dottedline}{\put(-47,40){\line(-3,5){72}}}% - {{\thicklines \dottedline{20}(-47,40)(-120,161)}}% - \else\if\@tmpb S% - \put(-47,40){\line(-3,5){72}}% - \else \put(-47,40){\line(-3,5){72}}% - \fi\fi\fi\fi\fi% - \putlatom{-120}{170}{\@memberb}%==2 (northwest substituent) -%% \putlatom{-120}{170}{\@memberb}%==2 (northwest substituent) -\end{picture}}% -\def\SWBOND{% -\yl@xdiff=1 -\yl@ydiff=70 -\begin{picture}(100,300)(0,0) - \if\@tmpb D\relax% - \put(-48,-33){\line(-3,-5){72}}% - \put(-26,-47){\line(-3,-5){72}}%southwest double bond - \else\if\@tmpb T\relax% - \put(-52,-31){\line(-3,-5){72}}% - \put(-37,-40){\line(-3,-5){72}}% - \put(-22,-49){\line(-3,-5){72}}%southwest triple bond - \else\if\@tmpb A%(A) alpha - {\thicklines\put(-47,-40){\line(-3,-5){72}}}% single bond (alpha) - \else\if\@tmpb B%(B) beta - \@ifundefined{dottedline}{\put(-47,-40){\line(-3,-5){72}}}% - {{\thicklines \dottedline{20}(-47,-40)(-120,-161)}}% - \else\if\@tmpb S% - \put(-47,-40){\line(-3,-5){72}}% - \else \put(-47,-40){\line(-3,-5){72}}% - \fi\fi\fi\fi\fi% - \putlatom{-120}{-230}{\@memberb}%==2 (southwest substituent) -\end{picture}}% -\def\tetrahedral{\@ifnextchar[{\@tetrahedral[r}{\@tetrahedral[r]}} -\def\@tetrahedral#1]#2{% -\@reset@ylsw% -\yltetrahedralposition{#2}% -\if@ylsw \ifx\@@ylii\empty -\def\@@ylii{0}\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}(600,600)(-300,-300)% - \iforigpt \put(-300,-300){\circle*{50}}% - \put(-\noshift,-\noshift){\circle{50}}% - \typeout{command `tetrahedral' origin: % - (\the\noshift,\the\noshift) ---> (300,300)}\fi% -\fi -\@tfor\member:=#1\do{% - \expandafter\twoch@@r\member{}{}% - \if\@@tmpa 0\relax {\putratom{47}{50}{\scriptsize\@@tmpb}}\fi}% -\@forsemicol\member:=#2\do{ -\ifx\member\empty\else -\expandafter\@m@mb@r\member;\relax% -\expandafter\threech@r\@membera{}{}% -\ifx\@memberb\@yl\else -\ifcase\@tmpa -{\putlratom{-40}{-33}{\hbox to.72em{\hss\@memberb\hss}}}%central atom -\or\put(0,0){\Northbond}% -\or\put(0,0){\Westbond}% -\or\put(0,0){\Southbond}% -\or\put(0,0){\Eastbond}\fi%end of ifcase -\fi\fi}% -\end{picture}}%end of macro tetrahedral -\def\yltetrahedralposition#1{% -\@@ylswfalse%%%\@reset@ylsw -\@forsemicol\member:=#1\do{% -\if@@ylsw\else -\ifx\member\empty\else -\expandafter\@m@mb@r\member;\relax -\expandafter\threech@r\@membera{}{}\relax -\ifx\@memberb\@yl\relax\@@ylswtrue\else\@@ylswfalse\fi -\if@@ylsw -\ifcase\@tmpa - \or \gdef\@ylii{0}\gdef\@yli{-52}\global\@ylswtrue%N subst. on 1 - \or \gdef\@ylii{52}\gdef\@yli{0}\global\@ylswtrue%W subst. on 1 - \or \gdef\@ylii{0}\gdef\@yli{52}\global\@ylswtrue%S subst. on 1 - \or \gdef\@ylii{-52}\gdef\@yli{0}\global\@ylswtrue%E subst. on 1 -\fi%end of ifcase -\fi\fi\fi}}% - -\def\divalenth#1#2{% -\@reset@ylsw% -\yldivalenthposition{#1}{#2}% -\if@ylsw \ifx\@@ylii\empty -\def\@@ylii{0}\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}(600,400)(-300,-200)% - \iforigpt \put(-300,-200){\circle*{50}}% - \put(-\noshift,-\noshift){\circle{50}}% - \typeout{command `tetrahedral' origin: % - (\the\noshift,\the\noshift) ---> (300,200)}\fi% -\fi -{\expandafter\@m@mb@r#1;\relax - \putratom{-30}{-33}{\@memberb}}% -\@forsemicol\member:=#2\do{% -\ifx\member\empty\else -\expandafter\@m@mb@r\member;\relax% -\expandafter\threech@r\@membera{}{}% -\ifx\@memberb\@yl\else -\ifcase\@tmpa -\or\put(0,0){\Westbond}% -\or\put(\the\@tempcnta,0){\Eastbond}\fi%end of ifcase -\fi\fi}% -\end{picture}}%end of macro tetrahedral -\def\yldivalenthposition#1#2{% -{\expandafter\@m@mb@r#1;\relax - \setbox0=\hbox{\@memberb}% - \@tempcnta=\wd0 - \@tempcntb=\unitlength - \divide\@tempcnta by\@tempcntb - \global\advance\@tempcnta by-62% - \@tempcntb=\@tempcnta \global\advance\@tempcntb by50\relax - }% -\@@ylswfalse% -\@forsemicol\member:=#2\do{% -\if@@ylsw\else -\ifx\member\empty\else -\expandafter\@m@mb@r\member;\relax -\expandafter\threech@r\@membera{}{}\relax -\ifx\@memberb\@yl\relax\@@ylswtrue\else\@@ylswfalse\fi -\if@@ylsw -\ifcase\@tmpa - \or \gdef\@ylii{50}\gdef\@yli{0}\global\@ylswtrue%W subst. on 1 - \or \edef\@ylii{-\the\@tempcntb}\gdef\@yli{0}\global\@ylswtrue%E subst. on 1 -\fi%end of ifcase -\fi\fi\fi}}% -\def\rtrigonal{\@ifnextchar[{\@rtrigonal[r}{\@rtrigonal[r]}} -\def\@rtrigonal#1]#2{% -\@reset@ylsw% -\ylrtrigonalposition{#2}% -\if@ylsw \ifx\@@ylii\empty -\def\@@ylii{0}\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}(600,600)(-300,-300)% - \iforigpt \put(-300,-300){\circle*{50}}% - \put(-\noshift,-\noshift){\circle{50}}% - \typeout{command `rtrigonal' origin: % - (\the\noshift,\the\noshift) ---> (300,300)}\fi% -\fi -\@tfor\member:=#1\do{% - \expandafter\twoch@@r\member{}{}% - \if\@@tmpa 0\relax {\putratom{-27}{50}{\scriptsize\@@tmpb}}\fi}% -\@forsemicol\member:=#2\do{% -\ifx\member\empty\else -\expandafter\@m@mb@r\member;\relax% -\expandafter\threech@r\@membera{}{}% -\ifx\@memberb\@yl\else -\ifcase\@tmpa {\putlratom{-40}{-33}{\@memberb}}%central atom -\or\put(0,0){\Westbond}% -\or\put(0,0){\SEbond}% -\or\put(0,0){\NEbond}% -\fi%end of ifcase -\fi\fi}% -\end{picture}}%end of macro rtrigonal -\def\ylrtrigonalposition#1{% -\@@ylswfalse%%%\@reset@ylsw -\@forsemicol\member:=#1\do{% -\if@@ylsw\else -\ifx\member\empty\else -\expandafter\@m@mb@r\member;\relax -\expandafter\threech@r\@membera{}{}\relax -\ifx\@memberb\@yl\relax\@@ylswtrue\else\@@ylswfalse\fi -\if@@ylsw -\ifcase\@tmpa - \or \gdef\@ylii{52}\gdef\@yli{0}\global\@ylswtrue% W subst. on 1 - \or \gdef\@ylii{-40}\gdef\@yli{47}\global\@ylswtrue% SE subst. on 1 - \or \gdef\@ylii{-40}\gdef\@yli{-47}\global\@ylswtrue% NE subst. on 1 -\fi%end of ifcase -\fi\fi\fi}}% -\def\Rtrigonal{\@ifnextchar[{\@Rtrigonal[r}{\@Rtrigonal[r]}} -\def\@Rtrigonal#1]#2{% -\@reset@ylsw% -\ylRtrigonalposition{#2}% -\if@ylsw \ifx\@@ylii\empty -\def\@@ylii{0}\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}(600,600)(-300,-300)% - \iforigpt \put(-300,-300){\circle*{50}}% - \put(-\noshift,-\noshift){\circle{50}}% - \typeout{command `Rtrigonal' origin: % - (\the\noshift,\the\noshift) ---> (300,300)}\fi% -\fi -\@tfor\member:=#1\do{% - \expandafter\twoch@@r\member{}{}% - \if\@@tmpa 0\relax {\putratom{-27}{50}{\scriptsize\@@tmpb}}\fi}% -\@forsemicol\member:=#2\do{% -\ifx\member\empty\else -\expandafter\@m@mb@r\member;\relax% -\expandafter\threech@r\@membera{}{}% -\ifx\@memberb\@yl\else -\ifcase\@tmpa {\putlratom{-40}{-33}{\@memberb}}%central atom -\or\put(0,0){\Westbond}% -\or\put(0,0){\SEBOND}% -\or\put(0,0){\NEBOND}% -\fi%end of ifcase -\fi\fi}% -\end{picture}}%end of macro Rtrigonal -\def\ylRtrigonalposition#1{% -\@@ylswfalse%%%\@reset@ylsw -\@forsemicol\member:=#1\do{% -\if@@ylsw\else -\ifx\member\empty\else -\expandafter\@m@mb@r\member;\relax -\expandafter\threech@r\@membera{}{}\relax -\ifx\@memberb\@yl\relax\@@ylswtrue\else\@@ylswfalse\fi -\if@@ylsw -\ifcase\@tmpa - \or \gdef\@ylii{52}\gdef\@yli{0}\global\@ylswtrue% W subst. on 1 - \or \gdef\@ylii{-47}\gdef\@yli{40}\global\@ylswtrue% SE subst. on 1 - \or \gdef\@ylii{-47}\gdef\@yli{-40}\global\@ylswtrue% NE subst. on 1 -\fi%end of ifcase -\fi\fi\fi}}% -\def\ltrigonal{\@ifnextchar[{\@ltrigonal[r}{\@ltrigonal[r]}} -\def\@ltrigonal#1]#2{% -\@reset@ylsw% -\ylltrigonalposition{#2}% -\if@ylsw \ifx\@@ylii\empty -\def\@@ylii{0}\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}(600,600)(-300,-300)% - \iforigpt \put(-300,-300){\circle*{50}}% - \put(-\noshift,-\noshift){\circle{50}}% - \typeout{command `ltrigonal' origin: % - (\the\noshift,\the\noshift) ---> (300,300)}\fi% -\fi -\@tfor\member:=#1\do{% - \expandafter\twoch@@r\member{}{}% - \if\@@tmpa 0\relax {\putratom{-27}{50}{\scriptsize\@@tmpb}}\fi}% -\@forsemicol\member:=#2\do{% -\ifx\member\empty\else -\expandafter\@m@mb@r\member;\relax% -\expandafter\threech@r\@membera{}{}% -\ifx\@memberb\@yl\else -\ifcase\@tmpa -{\putlratom{-40}{-33}{\@memberb}}%central atom -\or\put(0,0){\Eastbond}% -\or\put(0,0){\NWbond}% -\or\put(0,0){\SWbond}% -\fi%end of ifcase -\fi\fi}% -\end{picture}}%end of macro ltrigonal -\def\ylltrigonalposition#1{% -\@@ylswfalse%%%\@reset@ylsw -\@forsemicol\member:=#1\do{% -\if@@ylsw\else -\ifx\member\empty\else -\expandafter\@m@mb@r\member;\relax -\expandafter\threech@r\@membera{}{}\relax -\ifx\@memberb\@yl\relax\@@ylswtrue\else\@@ylswfalse\fi -\if@@ylsw -\ifcase\@tmpa - \or \gdef\@ylii{-52}\gdef\@yli{0}\global\@ylswtrue% W subst. on 1 - \or \gdef\@ylii{50}\gdef\@yli{-47}\global\@ylswtrue% NW subst. on 1 - \or \gdef\@ylii{50}\gdef\@yli{47}\global\@ylswtrue% SW subst. on 1 -\fi%end of ifcase -\fi\fi\fi}}% -\def\Ltrigonal{\@ifnextchar[{\@Ltrigonal[r}{\@Ltrigonal[r]}} -\def\@Ltrigonal#1]#2{% -\@reset@ylsw% -\ylLtrigonalposition{#2}% -\if@ylsw \ifx\@@ylii\empty -\def\@@ylii{0}\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}(600,600)(-300,-300)% - \iforigpt \put(-300,-300){\circle*{50}}% - \put(-\noshift,-\noshift){\circle{50}}% - \typeout{command `Ltrigonal' origin: % - (\the\noshift,\the\noshift) ---> (300,300)}\fi% -\fi -\@tfor\member:=#1\do{% - \expandafter\twoch@@r\member{}{}% - \if\@@tmpa 0\relax {\putratom{-27}{50}{\scriptsize\@@tmpb}}\fi}% -\@forsemicol\member:=#2\do{% -\ifx\member\empty\else -\expandafter\@m@mb@r\member;\relax% -\expandafter\threech@r\@membera{}{}% -\ifx\@memberb\@yl\else -\ifcase\@tmpa -{\putlratom{-40}{-33}{\@memberb}}%central atom -\or\put(0,0){\Eastbond}% -\or\put(0,0){\NWBOND}% -\or\put(0,0){\SWBOND}% -\fi%end of ifcase -\fi\fi}% -\end{picture}}%end of macro Ltrigonal -\def\ylLtrigonalposition#1{% -\@@ylswfalse%%%\@reset@ylsw -\@forsemicol\member:=#1\do{% -\if@@ylsw\else -\ifx\member\empty\else -\expandafter\@m@mb@r\member;\relax -\expandafter\threech@r\@membera{}{}\relax -\ifx\@memberb\@yl\relax\@@ylswtrue\else\@@ylswfalse\fi -\if@@ylsw -\ifcase\@tmpa - \or \gdef\@ylii{-52}\gdef\@yli{0}\global\@ylswtrue% W subst. on 1 - \or \gdef\@ylii{47}\gdef\@yli{-40}\global\@ylswtrue% NWB subst. on 1 - \or \gdef\@ylii{47}\gdef\@yli{40}\global\@ylswtrue% SWB subst. on 1 -\fi%end of ifcase -\fi\fi\fi}}% -\def\utrigonal{\@ifnextchar[{\@utrigonal[r}{\@utrigonal[r]}} -\def\@utrigonal#1]#2{% -\@reset@ylsw% -\ylutrigonalposition{#2}% -\if@ylsw \ifx\@@ylii\empty -\def\@@ylii{0}\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}(600,600)(-300,-300)% - \iforigpt \put(-300,-300){\circle*{50}}% - \put(-\noshift,-\noshift){\circle{50}}% - \typeout{command `utrigonal' origin: % - (\the\noshift,\the\noshift) ---> (300,300)}\fi% -\fi -\@tfor\member:=#1\do{% - \expandafter\twoch@@r\member{}{}% - \if\@@tmpa 0\relax {\putratom{-27}{50}{\scriptsize\@@tmpb}}\fi}% -\@forsemicol\member:=#2\do{% -\ifx\member\empty\else -\expandafter\@m@mb@r\member;\relax% -\expandafter\threech@r\@membera{}{}% -\ifx\@memberb\@yl\else -\ifcase\@tmpa -{\putlratom{-40}{-33}{\@memberb}}%central atom -\or\put(0,0){\Southbond}% -\or\put(0,0){\NEbond}% -\or\put(0,0){\NWbond}% -\fi%end of ifcase -\fi\fi}% -\end{picture}}%end of macro utrigonal -\def\ylutrigonalposition#1{% -\@@ylswfalse%%%\@reset@ylsw -\@forsemicol\member:=#1\do{% -\if@@ylsw\else -\ifx\member\empty\else -\expandafter\@m@mb@r\member;\relax -\expandafter\threech@r\@membera{}{}\relax -\ifx\@memberb\@yl\relax\@@ylswtrue\else\@@ylswfalse\fi -\if@@ylsw -\ifcase\@tmpa - \or \gdef\@ylii{0}\gdef\@yli{52}\global\@ylswtrue%S subst. on 1 - \or \gdef\@ylii{-40}\gdef\@yli{-47}\global\@ylswtrue% NE subst. on 1 - \or \gdef\@ylii{50}\gdef\@yli{-47}\global\@ylswtrue% NW subst. on 1 -\fi%end of ifcase -\fi\fi\fi}}% -\def\Utrigonal{\@ifnextchar[{\@Utrigonal[r}{\@Utrigonal[r]}} -\def\@Utrigonal#1]#2{% -\@reset@ylsw% -\ylUtrigonalposition{#2}% -\if@ylsw \ifx\@@ylii\empty -\def\@@ylii{0}\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}(600,600)(-300,-300)% - \iforigpt \put(-300,-300){\circle*{50}}% - \put(-\noshift,-\noshift){\circle{50}}% - \typeout{command `Utrigonal' origin: % - (\the\noshift,\the\noshift) ---> (300,300)}\fi% -\fi -\@tfor\member:=#1\do{% - \expandafter\twoch@@r\member{}{}% - \if\@@tmpa 0\relax {\putratom{-27}{50}{\scriptsize\@@tmpb}}\fi}% -\@forsemicol\member:=#2\do{% -\ifx\member\empty\else -\expandafter\@m@mb@r\member;\relax% -\expandafter\threech@r\@membera{}{}% -\ifx\@memberb\@yl\else -\ifcase\@tmpa -{\putlratom{-40}{-33}{\@memberb}}%central atom -\or\put(0,0){\Southbond}% -\or\put(0,0){\NEBond}% -\or\put(0,0){\NWBond}% -\fi%end of ifcase -\fi\fi}% -\end{picture}}%end of macro Utrigonal -\def\ylUtrigonalposition#1{% -\@@ylswfalse%%%\@reset@ylsw -\@forsemicol\member:=#1\do{% -\if@@ylsw\else -\ifx\member\empty\else -\expandafter\@m@mb@r\member;\relax -\expandafter\threech@r\@membera{}{}\relax -\ifx\@memberb\@yl\relax\@@ylswtrue\else\@@ylswfalse\fi -\if@@ylsw -\ifcase\@tmpa - \or \gdef\@ylii{0}\gdef\@yli{52}\global\@ylswtrue%S subst. on 1 - \or \gdef\@ylii{-40}\gdef\@yli{-47}\global\@ylswtrue% NEB subst. on 1 - \or \gdef\@ylii{66}\gdef\@yli{-47}\global\@ylswtrue% NWB subst. on 1 -\fi%end of ifcase -\fi\fi\fi}}% -\def\dtrigonal{\@ifnextchar[{\@dtrigonal[r}{\@dtrigonal[r]}} -\def\@dtrigonal#1]#2{% -\@reset@ylsw% -\yldtrigonalposition{#2}% -\if@ylsw \ifx\@@ylii\empty -\def\@@ylii{0}\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}(600,600)(-300,-300) - \iforigpt \put(-300,-300){\circle*{50}}% - \put(-\noshift,-\noshift){\circle{50}}% - \typeout{command `dtrigonal' origin: % - (\the\noshift,\the\noshift) ---> (300,300)}\fi% -\fi -\@tfor\member:=#1\do{% - \expandafter\twoch@@r\member{}{}% - \if\@@tmpa 0\relax {\putratom{37}{50}{\scriptsize\@@tmpb}}\fi}% -\@forsemicol\member:=#2\do{% -\ifx\member\empty\else -\expandafter\@m@mb@r\member;\relax% -\expandafter\threech@r\@membera{}{}% -\ifx\@memberb\@yl\else -\ifcase\@tmpa -{\putlratom{-40}{-33}{\@memberb}}%central atom -\or\put(0,0){\Northbond}% -\or\put(0,0){\SEbond}% -\or\put(0,0){\SWbond}% -\fi%end of ifcase -\fi\fi}% -\end{picture}}%end of macro dtrigonal -\def\yldtrigonalposition#1{% -\@@ylswfalse%%%\@reset@ylsw -\@forsemicol\member:=#1\do{% -\if@@ylsw\else -\ifx\member\empty\else -\expandafter\@m@mb@r\member;\relax -\expandafter\threech@r\@membera{}{}\relax -\ifx\@memberb\@yl\relax\@@ylswtrue\else\@@ylswfalse\fi -\if@@ylsw -\ifcase\@tmpa - \or \gdef\@ylii{0}\gdef\@yli{-52}\global\@ylswtrue%N subst. on 1 - \or \gdef\@ylii{-40}\gdef\@yli{47}\global\@ylswtrue% SE subst. on 1 - \or \gdef\@ylii{50}\gdef\@yli{47}\global\@ylswtrue% SW subst. on 1 -\fi%end of ifcase -\fi\fi\fi}}% -\def\Dtrigonal{\@ifnextchar[{\@Dtrigonal[r}{\@Dtrigonal[r]}} -\def\@Dtrigonal#1]#2{% -\@reset@ylsw% -\ylDtrigonalposition{#2}% -\if@ylsw \ifx\@@ylii\empty -\def\@@ylii{0}\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}(600,600)(-300,-300) - \iforigpt \put(-300,-300){\circle*{50}}% - \put(-\noshift,-\noshift){\circle{50}}% - \typeout{command `Dtrigonal' origin: % - (\the\noshift,\the\noshift) ---> (300,300)}\fi% -\fi -\@tfor\member:=#1\do{% - \expandafter\twoch@@r\member{}{}% - \if\@@tmpa 0\relax {\putratom{37}{50}{\scriptsize\@@tmpb}}\fi}% -\@forsemicol\member:=#2\do{% -\ifx\member\empty\else -\expandafter\@m@mb@r\member;\relax% -\expandafter\threech@r\@membera{}{}% -\ifx\@memberb\@yl\else -\ifcase\@tmpa -{\putlratom{-40}{-33}{\@memberb}}%central atom -\or\put(0,0){\Northbond}% -\or\put(0,0){\SEBond}% -\or\put(0,0){\SWBond}% -\fi%end of ifcase -\fi\fi}% -\end{picture}}%end of macro Dtrigonal -\def\ylDtrigonalposition#1{% -\@@ylswfalse%%%\@reset@ylsw -\@forsemicol\member:=#1\do{% -\if@@ylsw\else -\ifx\member\empty\else -\expandafter\@m@mb@r\member;\relax -\expandafter\threech@r\@membera{}{}\relax -\ifx\@memberb\@yl\relax\@@ylswtrue\else\@@ylswfalse\fi -\if@@ylsw -\ifcase\@tmpa - \or \gdef\@ylii{0}\gdef\@yli{-52}\global\@ylswtrue%N subst. on 1 - \or \gdef\@ylii{-40}\gdef\@yli{47}\global\@ylswtrue% SEB subst. on 1 - \or \gdef\@ylii{66}\gdef\@yli{47}\global\@ylswtrue% SWB subst. on 1 -\fi%end of ifcase -\fi\fi\fi}}% -\def\ethylene{\@ifnextchar[{\@ethylene}{\@ethylene[]}} -\def\@ethylene[#1]#2#3{% -\@reset@ylsw% -\ylethylenepositiona{#3}% -\if@ylsw \ifx\@@ylii\empty -\def\@@ylii{0}\def\@@yli{0}\fi -\else -\ylethylenepositionb{#3}% -\fi -\if@ylsw \ifx\@@ylii\empty -\def\@@ylii{-230}\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}(800,600)(-300,-300) - \iforigpt \put(-300,-300){\circle*{50}}% - \put(-\noshift,-\noshift){\circle{50}}% - \typeout{command `ethylene' origin: % - (\the\noshift,\the\noshift) ---> (300,300)}\fi% -\fi -{\def\aaa{#1}\ifx\aaa\empty% - \multiput(42,-13)(0,25){2}{\line(1,0){140}}\fi% double bond -}% -\@tfor\member:=#1\do{% - \expandafter\twoch@@r\member{}{}% - \if\@@tmpa 1\relax {\putratom{-27}{60}{\scriptsize\@@tmpb}}% - \else\if\@@tmpa 2\relax {\putratom{203}{60}{\scriptsize\@@tmpb}}% - \else\if\@@tmpa d\relax% - {\multiput(42,-13)(0,25){2}{\line(1,0){140}}}% double bond - \else\if\@@tmpa t\relax% - {\multiput(42,-20)(0,20){3}{\line(1,0){140}}}% triple bond right - \fi\fi\fi\fi}% -{\def\aaa{#2}% -\ifx\aaa\empty% -\putratom{-40}{-33}{C}%central atom -\putratom{190}{-33}{C}%central atom -\else% -\@forsemicol\member:=#2\do{% -\ifx\member\empty\else -\expandafter\@m@mb@r\member;\relax% -\expandafter\threech@r\@membera{}{}% -\ifcase\@tmpa% -\or\putratom{-40}{-33}{\@memberb}%central atom -\or\putratom{190}{-33}{\@memberb}%central atom -\fi\fi}%end of ifcase -\fi% -}% -\@forsemicol\member:=#3\do{% -\ifx\member\empty\else -\expandafter\@m@mb@r\member;\relax% -\expandafter\threech@r\@membera{}{}% -\ifx\@memberb\@yl\else -\ifcase\@tmpa% -\or\put(0,0){\NWbond}% -\or\put(0,0){\SWbond}% -\or\put(230,0){\SEbond}% -\or\put(230,0){\NEbond}% -\fi%end of ifcase -\fi\fi}% -\end{picture}}%end of macro ethylene -\let\ethyleneh=\ethylene -\def\ylethylenepositiona#1{% -\@@ylswfalse%%%\@reset@ylsw -\@forsemicol\member:=#1\do{% -\if@@ylsw\else -\ifx\member\empty\else -\expandafter\@m@mb@r\member;\relax -\expandafter\threech@r\@membera{}{}\relax -\ifx\@memberb\@yl\relax\@@ylswtrue\else\@@ylswfalse\fi -\if@@ylsw -\ifcase\@tmpa - \or \gdef\@ylii{50}\gdef\@yli{-47}\global\@ylswtrue% NW subst. on 1 - \or \gdef\@ylii{50}\gdef\@yli{47}\global\@ylswtrue% SW subst. on 1 -\fi%end of ifcase -\fi\fi\fi}}% -\def\ylethylenepositionb#1{% -\@@ylswfalse%%%\@reset@ylsw -\@forsemicol\member:=#1\do{% -\if@@ylsw\else -\ifx\member\empty\else -\expandafter\@m@mb@r\member;\relax -\expandafter\threech@r\@membera{}{}\relax -\ifx\@memberb\@yl\relax\@@ylswtrue\else\@@ylswfalse\fi -\if@@ylsw -\ifcase\@tmpa - \or%omit - \or%omit - \or \gdef\@ylii{-40}\gdef\@yli{47}\global\@ylswtrue% SE subst. on 1 - \or \gdef\@ylii{-40}\gdef\@yli{-47}\global\@ylswtrue% NE subst. on 1 -\fi%end of ifcase -\fi\fi\fi}}% -\def\Ethylene{\@ifnextchar[{\@ethylene}{\@ethylene[]}} -\def\@ethylene[#1]#2#3{% -\@reset@ylsw% -\ylethylenepositiona{#3}% -\if@ylsw \ifx\@@ylii\empty -\def\@@ylii{0}\def\@@yli{0}\fi -\else -\ylethylenepositionb{#3}% -\fi -\if@ylsw \ifx\@@ylii\empty -\def\@@ylii{-230}\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}(800,600)(-300,-300) - \iforigpt \put(-300,-300){\circle*{50}}% - \put(-\noshift,-\noshift){\circle{50}}% - \typeout{command `ethylene' origin: % - (\the\noshift,\the\noshift) ---> (300,300)}\fi% -\fi -{\def\aaa{#1}\ifx\aaa\empty% - \multiput(42,-13)(0,25){2}{\line(1,0){140}}\fi% double bond -}% -\@tfor\member:=#1\do{% - \expandafter\twoch@@r\member{}{}% - \if\@@tmpa 1\relax {\putratom{-27}{60}{\scriptsize\@@tmpb}}% - \else\if\@@tmpa 2\relax {\putratom{203}{60}{\scriptsize\@@tmpb}}% - \else\if\@@tmpa d\relax% - {\multiput(42,-13)(0,25){2}{\line(1,0){140}}}% double bond - \else\if\@@tmpa t\relax% - {\multiput(42,-20)(0,20){3}{\line(1,0){140}}}% triple bond right - \fi\fi\fi\fi}% -{\def\aaa{#2}% -\ifx\aaa\empty% -\putratom{-40}{-33}{C}%central atom -\putratom{190}{-33}{C}%central atom -\else% -\@forsemicol\member:=#2\do{% -\ifx\member\empty\else -\expandafter\@m@mb@r\member;\relax% -\expandafter\threech@r\@membera{}{}% -\ifcase\@tmpa% -\or\putratom{-40}{-33}{\@memberb}%central atom -\or\putratom{190}{-33}{\@memberb}%central atom -\fi\fi}%end of ifcase -\fi% -}% -\@forsemicol\member:=#3\do{% -\ifx\member\empty\else -\expandafter\@m@mb@r\member;\relax% -\expandafter\threech@r\@membera{}{}% -\ifx\@memberb\@yl\else -\ifcase\@tmpa% -\or\put(0,0){\NWBOND}% -\or\put(0,0){\SWBOND}% -\or\put(230,0){\SEBOND}% -\or\put(230,0){\NEBOND}% -\fi%end of ifcase -\fi\fi}% -\end{picture}}%end of macro Ethylene -\let\Ethyleneh=\Ethylene -\def\ethylenev{\@ifnextchar[{\@ethylenev}{\@ethylenev[]}} -\def\@ethylenev[#1]#2#3{% -\@reset@ylsw% -\ylethylenevpositiona{#3}% -\if@ylsw \ifx\@@ylii\empty -\def\@@ylii{0}\def\@@yli{0}\fi -\else -\ylethylenevpositionb{#3}% -\fi -\if@ylsw \ifx\@@ylii\empty -\def\@@ylii{0}\def\@@yli{-230}\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}(600,800)(-300,-300) - \iforigpt \put(-300,-300){\circle*{50}}% - \put(-\noshift,-\noshift){\circle{50}}% - \typeout{command `ethylenev' origin: % - (\the\noshift,\the\noshift) ---> (300,300)}\fi% -\fi -\def\aaa{#1}\ifx\aaa\empty% - \put(-20,47){\line(0,1){140}}% vertical - \put(6,47){\line(0,1){140}}\fi% double bond -\@tfor\member:=#1\do{% - \expandafter\twoch@@r\member{}{}% - \if\@@tmpa 1\relax \putratom{37}{0}{\scriptsize\@@tmpb} - \else\if\@@tmpa 2\relax \putratom{37}{216}{\scriptsize\@@tmpb} - \else\if\@@tmpa d\relax% - \put(-13,47){\line(0,1){140}}% vertical - \put(13,47){\line(0,1){140}}% double bond - \else\if\@@tmpa t\relax% - \put(-20,47){\line(0,1){140}}% vertical - \put(-0,47){\line(0,1){140}}% triple bond - \put(20,47){\line(0,1){140}}% - \fi\fi\fi\fi}% -\def\aaa{#2}% -\ifx\aaa\empty% -\putratom{-40}{-33}{C}%central atom -\putratom{-40}{197}{C}%central atom -\else% -\@forsemicol\member:=#2\do{% -\ifx\member\empty\else -\expandafter\@m@mb@r\member;\relax% -\expandafter\threech@r\@membera{}{}% -\ifcase\@tmpa% -\or\putratom{-40}{-33}{\@memberb}%central atom -\or\putratom{-40}{197}{\@memberb}%central atom -\fi\fi}%end of ifcase -\fi% -\@forsemicol\member:=#3\do{% -\ifx\member\empty\else -\expandafter\@m@mb@r\member;\relax% -\expandafter\threech@r\@membera{}{}% -\ifx\@memberb\@yl\else -\ifcase\@tmpa% -\or\put(0,0){\SWbond}% -\or\put(0,0){\SEbond}% -\or\put(0,230){\NEbond}% -\or\put(0,230){\NWbond}% -\fi%end of ifcase -\fi\fi}% -\end{picture}}%end of macro ethylenev -\def\ylethylenevpositiona#1{% -\@@ylswfalse%%%\@reset@ylsw -\@forsemicol\member:=#1\do{% -\if@@ylsw\else -\ifx\member\empty\else -\expandafter\@m@mb@r\member;\relax -\expandafter\threech@r\@membera{}{}\relax -\ifx\@memberb\@yl\relax\@@ylswtrue\else\@@ylswfalse\fi -\if@@ylsw -\ifcase\@tmpa - \or \gdef\@ylii{50}\gdef\@yli{47}\global\@ylswtrue% SW subst. on 1 - \or \gdef\@ylii{-40}\gdef\@yli{47}\global\@ylswtrue% SE subst. on 1 -\fi%end of ifcase -\fi\fi\fi}}% -\def\ylethylenevpositionb#1{% -\@@ylswfalse%%%\@reset@ylsw -\@forsemicol\member:=#1\do{% -\if@@ylsw\else -\ifx\member\empty\else -\expandafter\@m@mb@r\member;\relax -\expandafter\threech@r\@membera{}{}\relax -\ifx\@memberb\@yl\relax\@@ylswtrue\else\@@ylswfalse\fi -\if@@ylsw -\ifcase\@tmpa - \or%omit - \or%omit - \or \gdef\@ylii{-40}\gdef\@yli{-47}\global\@ylswtrue% NE subst. on 1 - \or \gdef\@ylii{50}\gdef\@yli{-47}\global\@ylswtrue% NW subst. on 1 -\fi%end of ifcase -\fi\fi\fi}}% -\def\Ethylenev{\@ifnextchar[{\@Ethylenev}{\@Ethylenev[]}} -\def\@Ethylenev[#1]#2#3{% -\@reset@ylsw% -\ylethylenevpositiona{#3}% -\if@ylsw \ifx\@@ylii\empty -\def\@@ylii{0}\def\@@yli{0}\fi -\else -\ylethylenevpositionb{#3}% -\fi -\if@ylsw \ifx\@@ylii\empty -\def\@@ylii{0}\def\@@yli{-230}\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}(600,800)(-300,-300) - \iforigpt \put(-300,-300){\circle*{50}}% - \put(-\noshift,-\noshift){\circle{50}}% - \typeout{command `Ethylenev' origin: % - (\the\noshift,\the\noshift) ---> (300,300)}\fi% -\fi -\def\aaa{#1}\ifx\aaa\empty% - \put(-20,47){\line(0,1){140}}% vertical - \put(6,47){\line(0,1){140}}\fi% double bond -\@tfor\member:=#1\do{% - \expandafter\twoch@@r\member{}{}% - \if\@@tmpa 1\relax \putratom{37}{0}{\scriptsize\@@tmpb} - \else\if\@@tmpa 2\relax \putratom{37}{216}{\scriptsize\@@tmpb} - \else\if\@@tmpa d\relax% - \put(-13,47){\line(0,1){140}}% vertical - \put(13,47){\line(0,1){140}}% double bond - \else\if\@@tmpa t\relax% - \put(-20,47){\line(0,1){140}}% vertical - \put(-0,47){\line(0,1){140}}% triple bond - \put(20,47){\line(0,1){140}}% - \fi\fi\fi\fi}% -\def\aaa{#2}% -\ifx\aaa\empty% -\putratom{-40}{-33}{C}%central atom -\putratom{-40}{197}{C}%central atom -\else% -\@forsemicol\member:=#2\do{% -\ifx\member\empty\else -\expandafter\@m@mb@r\member;\relax% -\expandafter\threech@r\@membera{}{}% -\ifcase\@tmpa% -\or\putratom{-40}{-33}{\@memberb}%central atom -\or\putratom{-40}{197}{\@memberb}%central atom -\fi\fi}%end of ifcase -\fi% -\@forsemicol\member:=#3\do{% -\ifx\member\empty\else -\expandafter\@m@mb@r\member;\relax% -\expandafter\threech@r\@membera{}{}% -\ifx\@memberb\@yl\else -\ifcase\@tmpa% -\or\put(0,0){\SWBond}% -\or\put(0,0){\SEBond}% -\or\put(0,230){\NEBond}% -\or\put(0,230){\NWBond}% -\fi%end of ifcase -\fi\fi}% -\end{picture}}%end of macro Ethylenev -\def\square{\@ifnextchar[{\@square[r}{\@square[r]}} -\def\@square#1]#2{% -\@reset@ylsw% -\ylsquareposition{#2}% -\if@ylsw \ifx\@@ylii\empty -\def\@@ylii{0}\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}(600,600)(-300,-300) - \iforigpt \put(-300,-300){\circle*{50}}% - \put(-\noshift,-\noshift){\circle{50}}% - \typeout{command `square' origin: % - (\the\noshift,\the\noshift) ---> (300,300)}\fi% -\fi -\@tfor\member:=#1\do{% - \expandafter\twoch@@r\member{}{}% - \if\@@tmpa 0\relax {\putratom{37}{0}{\scriptsize\@@tmpb}}\fi}% -\@forsemicol\member:=#2\do{% -\ifx\member\empty\else -\expandafter\@m@mb@r\member;\relax% -\expandafter\threech@r\@membera{}{}% -\ifx\@memberb\@yl\else -\ifcase\@tmpa {\putlratom{-40}{-33}{\@memberb}}%central atom -\or\put(0,0){\NEbond}% -\or\put(0,0){\SEbond}% -\or\put(0,0){\SWbond}% -\or\put(0,0){\NWbond}% -\fi%end of ifcase -\fi\fi}% -\end{picture}}%end of macro square -\def\ylsquareposition#1{% -\@@ylswfalse%%%\@reset@ylsw -\@forsemicol\member:=#1\do{% -\if@@ylsw\else -\ifx\member\empty\else -\expandafter\@m@mb@r\member;\relax -\expandafter\threech@r\@membera{}{}\relax -\ifx\@memberb\@yl\relax\@@ylswtrue\else\@@ylswfalse\fi -\if@@ylsw -\ifcase\@tmpa - \or \gdef\@ylii{-40}\gdef\@yli{-47}\global\@ylswtrue% NE subst. on 1 - \or \gdef\@ylii{-40}\gdef\@yli{47}\global\@ylswtrue% SE subst. on 1 - \or \gdef\@ylii{50}\gdef\@yli{47}\global\@ylswtrue% SW subst. on 1 - \or \gdef\@ylii{50}\gdef\@yli{-47}\global\@ylswtrue% NW subst. on 1 -\fi%end of ifcase -\fi\fi\fi}}% -\def\tetrastereo{\@ifnextchar[{\@tetrastereo[r}{\@tetrastereo[r]}} -\def\@tetrastereo#1]#2{% -\begin{picture}(600,600)(-300,-300) - \iforigpt \put(-300,-300){\circle*{50}}% - \put(-\noshift,-\noshift){\circle{50}}% - \typeout{command `tetrastero' origin: % - (\the\noshift,\the\noshift) ---> (300,300)}\fi% -\put(0,0){\circle{200}}% -\@tfor\member:=#1\do{% - \expandafter\twoch@@r\member{}{}% - \if\@@tmpa 0\relax \putratom{87}{90}{\scriptsize\@@tmpb}\fi}% -\@forsemicol\member:=#2\do{% -\ifx\member\empty\else -\expandafter\@m@mb@r\member;\relax% -\expandafter\threech@r\@membera{}{}% -\ifcase\@tmpa \putlratom{-40}{-33}{\@memberb}%central atom -\or% - \put(0,100){\line(0,1){70}}% behind - \putlratom{-30}{180}{\@memberb}% and up -\or% - {\thicklines% - \put(-60,10){\line(-5,2){140}}% in front - \putlatom{-205}{30}{\@memberb}}% and left -\or% - \put(0,-100){\line(0,-1){90}}% behind and - \putlratom{-30}{-260}{\@memberb}% down -\or% - {\thicklines% - \put(60,10){\line(5,2){140}}% in front - \putratom{210}{30}{\@memberb}}% and right -\fi\fi}%end of ifcase -\end{picture}}%end of macro tetrastereo -\def\dtetrastereo{\@ifnextchar[{\@dtetrastereo[r}{\@dtetrastereo[r]}} -\def\@dtetrastereo#1]#2{% -\begin{picture}(600,600)(-300,-300) - \iforigpt \put(-300,-300){\circle*{50}}% - \put(-\noshift,-\noshift){\circle{50}}% - \typeout{command `dtetrastero' origin: % - (\the\noshift,\the\noshift) ---> (300,300)}\fi% -\put(0,0){\circle{200}}% -\@tfor\member:=#1\do{% - \expandafter\twoch@@r\member{}{}% - \if\@@tmpa 0\relax \putratom{87}{90}{\scriptsize\@@tmpb}\fi}% -\@forsemicol\member:=#2\do{% -\ifx\member\empty\else -\expandafter\@m@mb@r\member;\relax% -\expandafter\threech@r\@membera{}{}% -\ifcase\@tmpa \putlratom{-40}{-33}{\@memberb}%central atom -\or% - \put(0,100){\line(0,1){70}}% behind - \putlratom{-30}{180}{\@memberb}% and up -\or% - \put(-94,-10){\line(-5,-2){108}}% in back - \putlatom{-205}{-110}{\@memberb}% and left -\or% - {\thicklines% - \put(0,-50){\line(0,-1){150}}% behind and - \putlratom{-30}{-260}{\@memberb}}% down -\or% - \put(94,-10){\line(5,-2){108}}% in back - \putratom{210}{-110}{\@memberb}% and right -\fi\fi}%end of ifcase -\end{picture}}%end of macro dtetrastereo -\def\ethanestereo{\@ifnextchar[{\@ethanestereo}{\@ethanestereo[]}} -\def\@ethanestereo[#1]#2#3{% -\begin{picture}(600,800)(-300,-300) - \iforigpt \put(-300,-300){\circle*{50}}% - \put(-\noshift,-\noshift){\circle{50}}% - \typeout{command `ethanestereo' origin: % - (\the\noshift,\the\noshift) ---> (300,300)}\fi% -\put(0,0){\circle{200}}% -\put(0,270){\circle{200}}% -\put(0,100){\line(0,1){70}}% central bond -\@tfor\member:=#1\do{% - \expandafter\twoch@@r\member{}{}% - \if\@@tmpa 1\relax \putratom{87}{90}{\scriptsize\@@tmpb} - \else\if\@@tmpa 2\relax \putratom{87}{360}{\scriptsize\@@tmpb} - \fi\fi}% -\def\aaa{#2}% -\ifx\aaa\empty\else% -\@forsemicol\member:=#2\do{% -\ifx\member\empty\else -\expandafter\@m@mb@r\member;\relax% -\expandafter\threech@r\@membera{}{}% -\ifcase\@tmpa% -\or\putratom{-40}{-33}{\@memberb}%central atom -\or\putratom{-40}{237}{\@memberb}%central atom -\fi\fi}%end of ifcase -\fi% -\@forsemicol\member:=#3\do{% -\ifx\member\empty\else -\expandafter\@m@mb@r\member;\relax% -\expandafter\threech@r\@membera{}{}% -\ifcase\@tmpa \putlratom{-40}{-33}{\@memberb}%central atom -\or% - \put(-94,-10){\line(-5,-2){108}}% in back - \putlatom{-205}{-110}{\@memberb}% and left -\or% - {\thicklines% - \put(0,-50){\line(0,-1){150}}% behind and - \putlratom{-30}{-260}{\@memberb}}% down -\or% - \put(94,-10){\line(5,-2){108}}% in back - \putratom{210}{-110}{\@memberb}% and right -\or% - {\thicklines% - \put(60,280){\line(5,2){140}}% in front - \putratom{210}{300}{\@memberb}}% and right -\or% - \put(0,370){\line(0,1){70}}% behind - \putlratom{-30}{450}{\@memberb}% and up -\or% - {\thicklines% - \put(-60,280){\line(-5,2){140}}% in front - \putlatom{-205}{300}{\@memberb}}% and left -\fi\fi}%end of ifcase -\end{picture}}%end of macro ethanestereo -\endinput -%% -%% End of file `aliphat.sty'. diff --git a/Master/texmf-dist/tex/latex/xymtex/carom.sty b/Master/texmf-dist/tex/latex/xymtex/carom.sty deleted file mode 100644 index 88621f99597..00000000000 --- a/Master/texmf-dist/tex/latex/xymtex/carom.sty +++ /dev/null @@ -1,1369 +0,0 @@ -%% -%% This is file `carom.sty', -%% generated with the docstrip utility. -%% -%% The original source files were: -%% -%% carom.dtx (with options: `carom') -%% -%% This is a generated file. -%% -%% Copyright 1996, 1988, 2000 by Shinsaku Fujita -%% -%% This file is part of the XyMTeX system. -%% ======================================= -%% -%% Version 1.01 Released on August 16, 1996 -%% Version 1.02 Released on October 31, 1998 -%% Version 2.00 Released on December 25, 1998 -%% Version 2.00a Released on June 14, 2000 -%% -%% Copyright (C) 1996,1998,2000 by Shinsaku Fujita, all rights reserved. -%% This style file is created for drawing chemical structural formulas -%% This style file is to be contained in the ``xymtex'' directory which -%% is an input directory for TeX. -%% -%% Copying of this file is authorized only if either -%% -%% (1) you make absolutely no changes to your copy, including name and -%% directory name -%% (2) if you do make changes, -%% (a) you name it something other than the names included in the -%% ``xymtex'' directory and -%% (b) you acknowledge the original name. -%% This restriction ensures that all standard styles are identical. -%% -%% ======================================= -%% -%% This file contains several codes modified from latex.tex (LaTeX2.09) -%% and from latex.ltx (a LaTeX2e), the reused parts of which are subject to -%% Copyright 1994 the LaTeX3 project and the individual authors (For further -%% copyright information see the file legal.txt of the LaTeX2e standard -%% distribution, and any other copyright indicated in this file.) -%% -%% File: carom.dtx -%% \CharacterTable -%% {Upper-case \A\B\C\D\E\F\G\H\I\J\K\L\M\N\O\P\Q\R\S\T\U\V\W\X\Y\Z -%% Lower-case \a\b\c\d\e\f\g\h\i\j\k\l\m\n\o\p\q\r\s\t\u\v\w\x\y\z -%% Digits \0\1\2\3\4\5\6\7\8\9 -%% Exclamation \! Double quote \" Hash (number) \# -%% Dollar \$ Percent \% Ampersand \& -%% Acute accent \' Left paren \( Right paren \) -%% Asterisk \* Plus \+ Comma \, -%% Minus \- Point \. Solidus \/ -%% Colon \: Semicolon \; Less than \< -%% Equals \= Greater than \> Question mark \? -%% Commercial at \@ Left bracket \[ Backslash \\ -%% Right bracket \] Circumflex \^ Underscore \_ -%% Grave accent \` Left brace \{ Vertical bar \| -%% Right brace \} Tilde \~} -\typeout{XyMTeX for Drawing Chemical Structural Formulas. Version 2.00} -\typeout{ -- Released December 25, 1998 by Shinsaku Fujita} -\def\j@urnalname{carom} -\def\versi@ndate{June 14, 2000} -\def\versi@nno{ver2.00a} -\def\copyrighth@lder{SF} % Shinsaku Fujita -\typeout{XyMTeX Macro File `\j@urnalname' (\versi@nno) <\versi@ndate>% -\space[\copyrighth@lder]} -\@ifundefined{setsixringv}{\input chemstr.sty\relax}{} -\@ifundefined{decaheterov}{\input hetarom.sty\relax}{} -\@ifundefined{decaheteroh}{\input hetaromh.sty\relax}{} -\unitlength=0.1pt -\def\cyclohexanev{\@ifnextchar[{\@cyclohexanev[@}{\@cyclohexanev[@]}} -\def\@cyclohexanev[#1]#2{\sixheterov[#1]{}{#2}} -\def\cyclohexaneh{\@ifnextchar[{\@cyclohexaneh[@}{\@cyclohexaneh[@]}} -\def\@cyclohexaneh[#1]#2{\sixheteroh[#1]{}{#2}} -\def\bzdrv{\@ifnextchar[{\@bzdrv}{\@bzdrv[r]}} -\def\@bzdrv[#1]#2{% -\iforigpt \typeout{command `bzdrv' is based on `cyclohexanev'.}\fi% -\expandafter\twoCH@R#1//% -\if\@tmpa r% right-handed set of double bonds - \ifx\@tmpb\empty - \cyclohexanev[bdf]{#2}% - \fi -\else\if\@tmpa l%left-handed set of double bonds - \ifx\@tmpb\empty - \cyclohexanev[ace]{#2}% - \fi -\else\if\@tmpa c%aromatic circle - \ifx\@tmpb\empty - \cyclohexanev[A]{#2}% - \fi -\else\if\@tmpa p%p-quinone - \if\@tmpb a% (A) - \cyclohexanev[be]{#2}% - \else\ifx\@tmpb\empty% (A) - \cyclohexanev[be]{#2}% - \else\if\@tmpb b% (B) - \cyclohexanev[cf]{#2}% - \else\if\@tmpb c% (C) - \cyclohexanev[ad]{#2}% - \fi\fi\fi\fi% -\else\if\@tmpa o%o-quinone - \if\@tmpb a% (A)% - \cyclohexanev[ce]{#2}% - \else\ifx\@tmpb\empty% (A) - \cyclohexanev[ce]{#2}% - \else\if\@tmpb b%o-quinone (B) - \cyclohexanev[df]{#2}% - \else\if\@tmpb c%o-quinone (C) - \cyclohexanev[ae]{#2}% - \else\if\@tmpb d%o-quinone (D) - \cyclohexanev[bf]{#2}% - \else\if\@tmpb e%o-quinone (E) - \cyclohexanev[ac]{#2}% - \else\if\@tmpb f%o-quinone (F) - \cyclohexanev[bd]{#2}% - \fi\fi\fi\fi\fi\fi\fi% -\else% added 1998/11/15 by S. Fujita - \cyclohexanev[@#1]{#2}% -\fi\fi\fi\fi\fi% -}% %end of \bzdrv macro -\def\bzdrh{\@ifnextchar[{\@bzdrh}{\@bzdrh[r]}} -\def\@bzdrh[#1]#2{% -\iforigpt \typeout{command `bzdrh' is based on `cyclohexaneh'.}\fi% -\expandafter\twoCH@R#1//% -\if\@tmpa r% right-handed set of double bonds - \cyclohexaneh[bdf]{#2}% -\else\if\@tmpa l%left-handed set of double bonds - \cyclohexaneh[ace]{#2}% -\else\if\@tmpa c%aromatic circle - \cyclohexaneh[A]{#2}% -\else\if\@tmpa p%p-quinone - \if\@tmpb a% (A) - \cyclohexaneh[be]{#2}% - \else\ifx\@tmpb\empty% (A) - \cyclohexaneh[be]{#2}% - \else\if\@tmpb b% (B) - \cyclohexaneh[cf]{#2}% - \else\if\@tmpb c% (C) - \cyclohexaneh[ad]{#2}% - \fi\fi\fi\fi% -\else\if\@tmpa o%o-quinone - \if\@tmpb a% (A)% - \cyclohexaneh[ce]{#2}% - \else\ifx\@tmpb\empty% (A) - \cyclohexaneh[ce]{#2}% - \else\if\@tmpb b%o-quinone (B) - \cyclohexaneh[df]{#2}% - \else\if\@tmpb c%o-quinone (C) - \cyclohexaneh[ae]{#2}% - \else\if\@tmpb d%o-quinone (D) - \cyclohexaneh[bf]{#2}% - \else\if\@tmpb e%o-quinone (E) - \cyclohexaneh[ac]{#2}% - \else\if\@tmpb f%o-quinone (F) - \cyclohexaneh[bd]{#2}% - \fi\fi\fi\fi\fi\fi\fi% -\else% added 1998/11/15 by S. Fujita - \cyclohexaneh[@#1]{#2}% -\fi\fi\fi\fi\fi% -}% %end of \bzdrh macro -\def\decalinev{\@ifnextchar[{\@decalinev[@}{\@decalinev[@]}} -\def\@decalinev[#1]#2{% -\iforigpt \typeout{command `decalinev' is based on `decaheterov'.}\fi% -\decaheterov[#1]{}{#2}} -\def\decalinevb{\@ifnextchar[{\@decalinevb[@}{\@decalinevb[@]}} -\def\@decalinevb[#1]#2{% -\iforigpt \typeout{command `decalinevb' is based on `decaheterovb'.}\fi% -\decaheterovb[#1]{}{#2}} -\def\decalinevt{\@ifnextchar[{\@decalinevt[@}{\@decalinevt[@]}} -\def\@decalinevt[#1]#2{% -\iforigpt \typeout{command `decalinevt' is based on `decaheterovt'.}\fi% -\decaheterovt[#1]{}{#2}} -\def\decalineh{\@ifnextchar[{\@decalineh[@}{\@decalineh[@]}} -\def\@decalineh[#1]#2{% -\iforigpt \typeout{command `decalineh' is based on `decaheteroh'.}\fi% -\decaheteroh[#1]{}{#2}} -\def\naphdrv{\@ifnextchar[{\@naphdrv}{\@naphdrv[r]}} -\def\@naphdrv[#1]#2{% -\iforigpt \typeout{command `naphdrv' is based on `decalinev'.}\fi% - \expandafter\threech@r#1{}{}% -\if\@tmpa r% right-handed set of double bonds - \decalinev[acfhk]{#2}% -\else\if\@tmpa A%aromatic circle - \decalinev[AB]{#2}% -\else\if\@tmpa p%p-quinone - \if\@tmpb a% (A) - \decalinev[bfhk]{#2}% - \else\ifx\@tmpb\empty% (A) - \decalinev[bfhk]{#2}% - \else\if\@tmpb b% (B) - \decalinev[acgk]{#2}% - \fi\fi\fi% -\else% - \if\@tmpa o%o-quinone - \if\@tmpb a% (A) - \decalinev[cfhk]{#2}% - \else\ifx\@tmpb\empty% (A) - \decalinev[cfhk]{#2}% - \else\if\@tmpb b%o-quinone (B) - \decalinev[dfhj]{#2}% - \else\if\@tmpb c%o-quinone (C) - \decalinev[afhk]{#2}% - \else\if\@tmpb d%o-quinone (D) - \decalinev[achk]{#2}% - \else\if\@tmpb e%o-quinone (E) - \decalinev[acei]{#2}% - \else\if\@tmpb f%o-quinone (F) - \decalinev[acfk]{#2}% - \fi\fi\fi\fi\fi\fi% - \fi% -%%% -\else\if\@tmpa q%various quinone - \if\@tmpb a% (A)2,6-type - \decalinev[cehj]{#2}% - \else\ifx\@tmpb\empty% (A)2,6-type - \decalinev[cehj]{#2}% - \else\if\@tmpb b%2,6-quinone (B) - \decalinev[adfi]{#2}% - \else\if\@tmpb c%1,5-quinone (C) - \decalinev[bdgi]{#2}% - \else\if\@tmpb d%1,5-quinone (D) - \decalinev[begj]{#2}% - \else\if\@tmpb e%1,7-quinone (E) - \decalinev[bdfi]{#2}% - \else\if\@tmpb f%1,7-quinone (F) - \decalinev[cegj]{#2}% - \else\if\@tmpb g%1,7-quinone (G) - \decalinev[behj]{#2}% - \else\if\@tmpb h%1,7-quinone (H) - \decalinev[adgi]{#2}% - \fi\fi\fi\fi\fi\fi\fi\fi\fi% -\else\if\@tmpa P%quinone having 4 carbonyl groups - \if\@tmpb a% (A)1,4,5,8-type - \decalinev[bgk]{#2}% - \else\ifx\@tmpb\empty% (A)1,4,5,8-type - \decalinev[bgk]{#2}% - \else\if\@tmpb b% (B)1,2,5,8-type - \decalinev[cgk]{#2}% - \fi\fi\fi% -\else\if\@tmpa Q%1,2,3,4 - \decalinev[fhk]{#2}% -\else\if\@tmpa O%quinone having 4 carbonyl groups - \if\@tmpb a% (A)1,2,5,6-type - \decalinev[chk]{#2}% - \else\ifx\@tmpb\empty% (A)1,2,5,6-type - \decalinev[chk]{#2}% - \else\if\@tmpb b% (B)1,2,7,8-type - \decalinev[cfk]{#2}% - \else\if\@tmpb c% (C)1,2,3,5-type - \decalinev[dgi]{#2}% - \else\if\@tmpb d% (D)1,2,3,7-type - \decalinev[dfi]{#2}% - \fi\fi\fi\fi\fi% -\else% added 1998/11/23 by S. Fujita - \decalinev[@#1]{#2}% -\fi\fi\fi\fi\fi\fi\fi\fi% -}% %end of \naphdrv macro -\def\naphdrvb{\@ifnextchar[{\@naphdrvb}{\@naphdrvb[r]}} -\def\@naphdrvb[#1]#2{% -\iforigpt \typeout{command `naphdrvb' is based on `decalinevb'.}\fi% - \expandafter\threech@r#1{}{}% -\if\@tmpa r% right-handed set of double bonds - \decalinevb[acfhk]{#2}% -\else\if\@tmpa A%aromatic circle - \decalinevb[AB]{#2}% -\else\if\@tmpa p%p-quinone - \if\@tmpb a% (A) - \decalinevb[bfhk]{#2}% - \else\ifx\@tmpb\empty% (A) - \decalinevb[bfhk]{#2}% - \else\if\@tmpb b% (B) - \decalinevb[acgk]{#2}% - \fi\fi\fi% -\else% - \if\@tmpa o%o-quinone - \if\@tmpb a% (A) - \decalinevb[cfhk]{#2}% - \else\ifx\@tmpb\empty% (A) - \decalinevb[cfhk]{#2}% - \else\if\@tmpb b%o-quinone (B) - \decalinevb[dfhj]{#2}% - \else\if\@tmpb c%o-quinone (C) - \decalinevb[afhk]{#2}% - \else\if\@tmpb d%o-quinone (D) - \decalinevb[achk]{#2}% - \else\if\@tmpb e%o-quinone (E) - \decalinevb[acei]{#2}% - \else\if\@tmpb f%o-quinone (F) - \decalinevb[acfk]{#2}% - \fi\fi\fi\fi\fi\fi% - \fi% -%%% -\else\if\@tmpa q%various quinone - \if\@tmpb a% (A)2,6-type - \decalinevb[cehj]{#2}% - \else\ifx\@tmpb\empty% (A)2,6-type - \decalinevb[cehj]{#2}% - \else\if\@tmpb b%2,6-quinone (B) - \decalinevb[adfi]{#2}% - \else\if\@tmpb c%1,5-quinone (C) - \decalinevb[bdgi]{#2}% - \else\if\@tmpb d%1,5-quinone (D) - \decalinevb[begj]{#2}% - \else\if\@tmpb e%1,7-quinone (E) - \decalinevb[bdfi]{#2}% - \else\if\@tmpb f%1,7-quinone (F) - \decalinevb[cegj]{#2}% - \else\if\@tmpb g%1,7-quinone (G) - \decalinevb[behj]{#2}% - \else\if\@tmpb h%1,7-quinone (H) - \decalinevb[adgi]{#2}% - \fi\fi\fi\fi\fi\fi\fi\fi\fi% -\else\if\@tmpa P%quinone having 4 carbonyl groups - \if\@tmpb a% (A)1,4,5,8-type - \decalinevb[bgk]{#2}% - \else\ifx\@tmpb\empty% (A)1,4,5,8-type - \decalinevb[bgk]{#2}% - \else\if\@tmpb b% (B)1,2,5,8-type - \decalinevb[cgk]{#2}% - \fi\fi\fi% -\else\if\@tmpa Q%1,2,3,4 - \decalinevb[fhk]{#2}% -\else\if\@tmpa O%quinone having 4 carbonyl groups - \if\@tmpb a% (A)1,2,5,6-type - \decalinevb[chk]{#2}% - \else\ifx\@tmpb\empty% (A)1,2,5,6-type - \decalinevb[chk]{#2}% - \else\if\@tmpb b% (B)1,2,7,8-type - \decalinevb[cfk]{#2}% - \else\if\@tmpb c% (C)1,2,3,5-type - \decalinevb[dgi]{#2}% - \else\if\@tmpb d% (D)1,2,3,7-type - \decalinevb[dfi]{#2}% - \fi\fi\fi\fi\fi% -\else% added 1998/11/23 by S. Fujita - \decalinevb[@#1]{#2}% -\fi\fi\fi\fi\fi\fi\fi\fi% -}% %end of \naphdrvb macro -\def\naphdrvt{\@ifnextchar[{\@naphdrvt}{\@naphdrvt[r]}} -\def\@naphdrvt[#1]#2{% -\iforigpt \typeout{command `naphdrvt' is based on `decalinevt'.}\fi% - \expandafter\threech@r#1{}{}% -\if\@tmpa r% right-handed set of double bonds - \decalinevt[acfhk]{#2}% -\else\if\@tmpa A%aromatic circle - \decalinevt[AB]{#2}% -\else\if\@tmpa p%p-quinone - \if\@tmpb a% (A) - \decalinevt[bfhk]{#2}% - \else\ifx\@tmpb\empty% (A) - \decalinevt[bfhk]{#2}% - \else\if\@tmpb b% (B) - \decalinevt[acgk]{#2}% - \fi\fi\fi% -\else% - \if\@tmpa o%o-quinone - \if\@tmpb a% (A) - \decalinevt[cfhk]{#2}% - \else\ifx\@tmpb\empty% (A) - \decalinevt[cfhk]{#2}% - \else\if\@tmpb b%o-quinone (B) - \decalinevt[dfhj]{#2}% - \else\if\@tmpb c%o-quinone (C) - \decalinevt[afhk]{#2}% - \else\if\@tmpb d%o-quinone (D) - \decalinevt[achk]{#2}% - \else\if\@tmpb e%o-quinone (E) - \decalinevt[acei]{#2}% - \else\if\@tmpb f%o-quinone (F) - \decalinevt[acfk]{#2}% - \fi\fi\fi\fi\fi\fi% - \fi% -%%% -\else\if\@tmpa q%various quinone - \if\@tmpb a% (A)2,6-type - \decalinevt[cehj]{#2}% - \else\ifx\@tmpb\empty% (A)2,6-type - \decalinevt[cehj]{#2}% - \else\if\@tmpb b%2,6-quinone (B) - \decalinevt[adfi]{#2}% - \else\if\@tmpb c%1,5-quinone (C) - \decalinevt[bdgi]{#2}% - \else\if\@tmpb d%1,5-quinone (D) - \decalinevt[begj]{#2}% - \else\if\@tmpb e%1,7-quinone (E) - \decalinevt[bdfi]{#2}% - \else\if\@tmpb f%1,7-quinone (F) - \decalinevt[cegj]{#2}% - \else\if\@tmpb g%1,7-quinone (G) - \decalinevt[behj]{#2}% - \else\if\@tmpb h%1,7-quinone (H) - \decalinevt[adgi]{#2}% - \fi\fi\fi\fi\fi\fi\fi\fi\fi% -\else\if\@tmpa P%quinone having 4 carbonyl groups - \if\@tmpb a% (A)1,4,5,8-type - \decalinevt[bgk]{#2}% - \else\ifx\@tmpb\empty% (A)1,4,5,8-type - \decalinevt[bgk]{#2}% - \else\if\@tmpb b% (B)1,2,5,8-type - \decalinevt[cgk]{#2}% - \fi\fi\fi% -\else\if\@tmpa Q%1,2,3,4 - \decalinevt[fhk]{#2}% -\else\if\@tmpa O%quinone having 4 carbonyl groups - \if\@tmpb a% (A)1,2,5,6-type - \decalinevt[chk]{#2}% - \else\ifx\@tmpb\empty% (A)1,2,5,6-type - \decalinevt[chk]{#2}% - \else\if\@tmpb b% (B)1,2,7,8-type - \decalinevt[cfk]{#2}% - \else\if\@tmpb c% (C)1,2,3,5-type - \decalinevt[dgi]{#2}% - \else\if\@tmpb d% (D)1,2,3,7-type - \decalinevt[dfi]{#2}% - \fi\fi\fi\fi\fi% -\else% added 1998/11/23 by S. Fujita - \decalinevt[@#1]{#2}% -\fi\fi\fi\fi\fi\fi\fi\fi% -}% %end of \naphdrvt macro -\def\naphdrh{\@ifnextchar[{\@naphdrh}{\@naphdrh[r]}} -\def\@naphdrh[#1]#2{% -\iforigpt \typeout{command `nathdrh' is based on `decalineh'.}\fi% - \expandafter\threech@r#1{}{}% -\if\@tmpa r% right-handed set of double bonds - \decalineh[acfhk]{#2}% -\else\if\@tmpa A%aromatic circle - \decalineh[AB]{#2}% -\else\if\@tmpa p%p-quinone - \if\@tmpb a% (A) - \decalineh[bfhk]{#2}% - \else\ifx\@tmpb\empty% (A) - \decalineh[bfhk]{#2}% - \else\if\@tmpb b% (B) - \decalineh[acgk]{#2}% - \fi\fi\fi% -\else% - \if\@tmpa o%o-quinone - \if\@tmpb a% (A) - \decalineh[cfhk]{#2}% - \else\ifx\@tmpb\empty% (A) - \decalineh[cfhk]{#2}% - \else\if\@tmpb b%o-quinone (B) - \decalineh[dfhj]{#2}% - \else\if\@tmpb c%o-quinone (C) - \decalineh[afhk]{#2}% - \else\if\@tmpb d%o-quinone (D) - \decalineh[achk]{#2}% - \else\if\@tmpb e%o-quinone (E) - \decalineh[acei]{#2}% - \else\if\@tmpb f%o-quinone (F) - \decalineh[acfk]{#2}% - \fi\fi\fi\fi\fi\fi% - \fi% -\else\if\@tmpa q%various quinone - \if\@tmpb a% (A)2,6-type - \decalineh[cehj]{#2}% - \else\ifx\@tmpb\empty% (A)2,6-type - \decalineh[cehj]{#2}% - \else\if\@tmpb b%2,6-quinone (B) - \decalineh[adfi]{#2}% - \else\if\@tmpb c%1,5-quinone (C) - \decalineh[bdgi]{#2}% - \else\if\@tmpb d%1,5-quinone (D) - \decalineh[begj]{#2}% - \else\if\@tmpb e%1,7-quinone (E) - \decalineh[bdfi]{#2}% - \else\if\@tmpb f%1,7-quinone (F) - \decalineh[cegj]{#2}% - \else\if\@tmpb g%1,7-quinone (G) - \decalineh[behj]{#2}% - \else\if\@tmpb h%1,7-quinone (H) - \decalineh[adgi]{#2}% - \fi\fi\fi\fi\fi\fi\fi\fi\fi% -\else\if\@tmpa P%quinone having 4 carbonyl groups - \if\@tmpb a% (A)1,4,5,8-type - \decalineh[bgk]{#2}% - \else\ifx\@tmpb\empty% (A)1,4,5,8-type - \decalineh[bgk]{#2}% - \else\if\@tmpb b% (B)1,2,5,8-type - \decalineh[cgk]{#2}% - \fi\fi\fi% -\else\if\@tmpa Q%1,2,3,4 - \decalineh[fhk]{#2}% -\else\if\@tmpa O%quinone having 4 carbonyl groups - \if\@tmpb a% (A)1,2,5,6-type - \decalineh[chk]{#2}% - \else\ifx\@tmpb\empty% (A)1,2,5,6-type - \decalineh[chk]{#2}% - \else\if\@tmpb b% (B)1,2,7,8-type - \decalineh[cfk]{#2}% - \else\if\@tmpb c% (C)1,2,3,5-type - \decalineh[dgi]{#2}% - \else\if\@tmpb d% (D)1,2,3,7-type - \decalineh[dfi]{#2}% - \fi\fi\fi\fi\fi% -\else% added 1998/11/23 by S. Fujita - \decalineh[@#1]{#2}% -\fi\fi\fi\fi\fi\fi\fi\fi% -}% %end of \naphdrh macro -\def\tetralinev{\@ifnextchar[{\@tetralinev}{\@tetralinev[r]}} -\def\@tetralinev[#1]#2{% - \iforigpt \typeout{command `tetralinev' is based on `decalinev'.}\fi% - \expandafter\threech@r#1{}{}% - \if\@tmpa r% right-handed set of double bonds - \decalinev[fhk]{#2}% - \else\if\@tmpa A%aromatic circle - \decalinev[A]{#2}% - \else\if\@tmpa e%inner double bond - \if\@tmpb a% (A)% - \decalinev[afhk]{#2}% - \else\ifx\@tmpb\empty% (A) - \decalinev[afhk]{#2}% - \else\if\@tmpb b% (B) - \decalinev[bfhk]{#2}% - \else\if\@tmpb c% (C) - \decalinev[cfhk]{#2}% - \fi\fi\fi\fi% - \else%1998/11/23 by Shinsaku Fujita - \decalinev[@#1]{#2}% - \fi\fi\fi% -}% %end of \tetralinev macro -\def\tetralinevb{\@ifnextchar[{\@tetralinevb}{\@tetralinevb[r]}} -\def\@tetralinevb[#1]#2{% - \iforigpt \typeout{command `tetralinevb' is based on `decalinevb'.}\fi% - \expandafter\threech@r#1{}{}% - \if\@tmpa r% right-handed set of double bonds - \decalinevb[fhK]{#2}% %[fhK] in place of [fhk] - \else\if\@tmpa A%aromatic circle - \decalinevb[A]{#2}% - \else\if\@tmpa e%inner double bond - \if\@tmpb a% (A)% - \decalinevb[afhK]{#2}% - \else\ifx\@tmpb\empty% (A) - \decalinevb[afhK]{#2}% - \else\if\@tmpb b% (B) - \decalinevb[bfhK]{#2}% - \else\if\@tmpb c% (C) - \decalinevb[cfhK]{#2}% - \fi\fi\fi\fi% - \else%1998/11/23 by Shinsaku Fujita - \decalinevb[@#1]{#2}% - \fi\fi\fi% -}% %end of \tetralinevb macro -\def\tetralinevt{\@ifnextchar[{\@tetralinevt}{\@tetralinevt[r]}} -\def\@tetralinevt[#1]#2{% - \iforigpt \typeout{command `tetralinevt' is based on `decalinevt'.}\fi% - \expandafter\threech@r#1{}{}% - \if\@tmpa r% right-handed set of double bonds - \decalinevt[fhk]{#2}% - \else\if\@tmpa A%aromatic circle - \decalinevt[A]{#2}% - \else\if\@tmpa e%inner double bond - \if\@tmpb a% (A)% - \decalinevt[afhk]{#2}% - \else\ifx\@tmpb\empty% (A) - \decalinevt[afhk]{#2}% - \else\if\@tmpb b% (B) - \decalinevt[bfhk]{#2}% - \else\if\@tmpb c% (C) - \decalinevt[cfhk]{#2}% - \fi\fi\fi\fi% - \else%1998/11/23 by Shinsaku Fujita - \decalinevt[@#1]{#2}% - \fi\fi\fi% -}% %end of \tetralinevt macro -\def\tetralineh{\@ifnextchar[{\@tetralineh}{\@tetralineh[r]}} -\def\@tetralineh[#1]#2{% - \iforigpt \typeout{command `tetralineh' is based on `decalineh'.}\fi% - \expandafter\threech@r#1{}{}% - \if\@tmpa r% right-handed set of double bonds - \decalineh[fhk]{#2}% - \else\if\@tmpa A%aromatic circle - \decalineh[A]{#2}% - \else\if\@tmpa e%inner double bond - \if\@tmpb a% (A)% - \decalineh[afhk]{#2}% - \else\ifx\@tmpb\empty% (A) - \decalineh[afhk]{#2}% - \else\if\@tmpb b% (B) - \decalineh[bfhk]{#2}% - \else\if\@tmpb c% (C) - \decalineh[cfhk]{#2}% - \fi\fi\fi\fi% -\else% added 1998/11/23 by S. Fujita - \decalineh[@#1]{#2}% - \fi\fi\fi% -}% %end of \tetralineh macro -\def\hanthracenev{\@ifnextchar[{\@hanthracenev[@}{\@hanthracenev[r]}} -\def\@hanthracenev[#1]#2{% -\@reset@ylsw\reset@@yl -\ylposition{#2}{-7}{0}{2}{0}% %for 8 positions -\if@ylsw \ifx\@@ylii\empty -\def\@@ylii{0}\def\@@yli{0}\fi -\else\ylposition{#2}{-1}{3}{7}{0}% for 5 to 7 positions -\fi -\if@ylsw\ifx\@@ylii\empty -\def\@@ylii{0}\def\@@yli{0}\fi\else -\ylposition{#2}{0}{0}{5}{0}% for 1 to 4 positions -\fi -\if@ylsw\ifx\@@ylii\empty -\def\@@ylii{-684}\def\@@yli{0}\fi\else -\ylposition{#2}{-8}{0}{2}{0}%for 9-position -\fi -\if@ylsw\ifx\@@ylii\empty -\def\@@ylii{-342}\def\@@yli{0}\fi\else -\ylposition{#2}{-6}{3}{5}{0}%for 10-position -\fi -\if@ylsw\ifx\@@ylii\empty -\def\@@ylii{-342}\def\@@yli{0}\fi\else -\ylfusedposition{#2}{-11}{-1}{1}{0}% for 9a and 4a -\fi -\if@ylsw\ifx\@@ylii\empty -\def\@@ylii{-342}\def\@@yli{0}\fi\else -\ylfusedposition{#2}{-12}{-1}{1}{0}% for 8a and 10a -\fi -\if@ylsw\ifx\@@ylii\empty -\def\@@ylii{0}\def\@@yli{0}\fi\fi -\if@ylsw - \yl@shiftii=\@ylii - \ifx\@@ylii\empty\else - \advance\yl@shiftii\@@ylii\fi - \yl@shifti=\@yli - \ifx\@@yli\empty\else - \advance\yl@shifti\@@yli\fi - \advance\yl@shiftii\yl@xdiff - \advance\yl@shifti\yl@ydiff - \begin{picture}(0,0)(-\yl@shiftii,-\yl@shifti) - \reset@yl@xydiff%1999/1/6 by S. Fujita -\else - \begin{picture}(1200,880)(-\shiftii,-\shifti) - \iforigpt \put(-\shiftii,-\shifti){\circle*{50}}% - \put(-\noshift,-\noshift){\circle{50}}% - \typeout{command `hanthracenev' origin: % - (\the\noshift,\the\noshift) ---> (\the\shiftii,\the\shifti)}\fi% -\fi - \put(0,406){\line(-5,-3){171}}% %bond 8-7 - \put(0,406){\line(5,-3){171}}% %bond 8-8a - \put(0,0){\line(-5,3){171}}% %bond 5-6 - \put(0,0){\line(5,3){171}}% %bond 5-10a - \put(171,103){\line(0,1){200}}% %bond 10a-8a - \put(-171,103){\line(0,1){200}}% %bond 6-7 - \put(342,406){\line(-5,-3){171}}% %bond 9-8a - \put(342,406){\line(5,-3){171}}% %bond 9-9a - \put(342,0){\line(-5,3){171}}% %bond 10-10a - \put(342,0){\line(5,3){171}}% %bond 10-4a - \put(513,103){\line(0,1){200}}% %bond 4a-9a - %%%% - \put(684,406){\line(-5,-3){171}}% %bond 1-9a 1-6 - \put(684,406){\line(5,-3){171}}% %bond 1-2 1-2 - \put(855,103){\line(0,1){200}}% %bond 3-2 3-2 - \put(684,0){\line(5,3){171}}% %bond 4-3 4-3 - \put(684,0){\line(-5,3){171}}% %bond 4-4a 4-5 -\@tfor\member:=#1\do{% -\if\member r%no endcyclic double bonds -\else\if\member a% - \put(690,364){\line(5,-3){126}}% %double bond 1-2 -\else\if\member b% - \put(822,129){\line(0,1){148}}% %double bond 3-2 -\else\if\member c% - \put(690,42){\line(5,3){126}}% %double bond 4-3 -\else\if\member d% - \put(690,42){\line(-5,3){126}}% %double bond 4-4a -\else\if\member e% - \put(348,42){\line(5,3){126}}% %double bond 10-4a -\else\if\member f% - \put(348,42){\line(-5,3){126}}% %double bond 10-10a -\else\if\member g% - \put(6,42){\line(5,3){126}}% %double bond 5-10a -\else\if\member h% - \put(-6,42){\line(-5,3){126}}% %double bond 5-6 -\else\if\member i% - \put(-138,129){\line(0,1){148}}% %double bond 6-7 -\else\if\member j% - \put(-6,364){\line(-5,-3){126}}% %double bond 8-7 -\else\if\member k% - \put(6,364){\line(5,-3){126}}% %double bond 8-8a -\else\if\member l% - \put(348,364){\line(-5,-3){126}}% %double bond 9-8a -\else\if\member m% - \put(348,364){\line(5,-3){126}}% %double bond 9-9a -\else\if\member n% - \put(690,364){\line(-5,-3){126}}% %double bond 1-9a -\else\if\member o% - \put(544,129){\line(0,1){148}}% %double bond 4a-9a -\else\if\member O% - \put(482,129){\line(0,1){148}}% %double bond 4a-9a at the other ring -\else\if\member p% - \put(138,129){\line(0,1){148}}% %double bond 10a-8a -\else\if\member P% - \put(204,129){\line(0,1){148}}% %double bond 10a-8a at the other ring -\else\if\member C%left aromatic circle - \put(0,203){\circle{240}} %circle -\else\if\member B%right aromatic circle - \put(342,203){\circle{240}}% %circle -\else\if\member A%right aromatic circle - \put(684,203){\circle{240}}% %circle -\else - \expandafter\twoCH@R\member//% - \set@fusion@hanthrav -\fi\fi\fi\fi\fi\fi\fi\fi\fi\fi\fi\fi\fi\fi\fi\fi\fi\fi\fi\fi\fi\fi} -\put(0,0){\setsixringv{#2}{-7}{0}{2}{0}}% %for 8 positions -\put(0,0){\setsixringv{#2}{-1}{3}{7}{0}}% %for 5 to 7 positions -\put(684,0){\setsixringv{#2}{0}{0}{5}{0}}% %for 1 to 4 positions -\put(342,0){\setsixringv{#2}{-8}{0}{2}{0}}%for 9-position -\put(342,0){\setsixringv{#2}{-6}{3}{5}{0}}%for 10-position -\put(0,0){\setfusedbond{#2}{-12}{-1}{1}{0}}% for 8a and 10a -\put(342,0){\setfusedbond{#2}{-11}{-1}{1}{0}}% for 9a and 4a -\end{picture}}% %end of \hanthracenev macro% -\def\anthracenev{\@ifnextchar[{\@anthracenev}{\@anthracenev[r]}} -\def\@anthracenev[#1]#2{% - \iforigpt \typeout{command `anthracenev' is % - based on `hanthracenev'.}\fi% -%% \expandafter\threech@r#1{}{}%error1998/11/23 by Shinsaku Fujita - \expandafter\twoCH@R#1//% - \if\@tmpa r% right-handed set of double bonds - \hanthracenev[acflhjo]{#2}% - \else\if\@tmpa l% left-handed set of double bonds - \hanthracenev[acehjmp]{#2}% - \else\if\@tmpa A%aromatic circle - \hanthracenev[ABC]{#2}% - \else\if\@tmpa p%9,10-quinone - \if\@tmpb a% (A)% - \hanthracenev[achjop]{#2}% - \else\ifx\@tmpb\empty% (A) - \hanthracenev[achjop]{#2}% - \else\if\@tmpb A% circle type - \hanthracenev[AC]{#2}% - \else - \hanthracenev[achjop]{#2}% - \fi\fi\fi% - \else\if\@tmpa o%o-quinone - \if\@tmpb a% (A)% - \hanthracenev[cfjhlo]{#2}% - \else\ifx\@tmpb\empty% (A) - \hanthracenev[cehjmp]{#2}% - \else\if\@tmpb b% (B) - \hanthracenev[dfhjln]{#2}% - \else\if\@tmpb c% (C) - \hanthracenev[aehjmp]{#2}% - \else\if\@tmpb A% cicle type - \hanthracenev[cBC]{#2}% - \fi\fi\fi\fi\fi% - \else\if\@tmpa q%1,4-quinone - \if\@tmpb a% (A)% - \hanthracenev[bfhjlo]{#2}% - \else\ifx\@tmpb\empty% (A) - \hanthracenev[behjmp]{#2}% - \else\if\@tmpb A% circle type - \hanthracenev[AB]{#2}% - \else% - \hanthracenev[behjmp]{#2}% - \fi\fi\fi% - \else - \hanthracenev[@#1]{#2}% - \fi\fi\fi\fi\fi\fi% -}% %end of \anthracenev macro% -\def\hphenanthrenev{% - \@ifnextchar[{\@hphenanthrenev[@}{\@hphenanthrenev[r]}} -\def\@hphenanthrenev[#1]#2{% -\@reset@ylsw\reset@@yl -\ylposition{#2}{-4}{0}{2}{0}% %for 5 position -\if@ylsw \ifx\@@ylii\empty -\def\@@ylii{0}\def\@@yli{0}\fi -\else -\ylposition{#2}{12}{3}{7}{-1}% %for 6 to 8 positions -\fi -\if@ylsw\ifx\@@ylii\empty -\def\@@ylii{0}\def\@@yli{0}\fi\else -\ylposition{#2}{13}{2}{5}{-1}% %for 9 to 10 positions -\fi -\if@ylsw\ifx\@@ylii\empty -\def\@@ylii{-342}\def\@@yli{0}\fi\else -\ylposition{#2}{4}{0}{4}{-1}% %for 1 to 3 positions -\fi -\if@ylsw\ifx\@@ylii\empty -\def\@@ylii{-513}\def\@@yli{-303}\fi\else -\ylposition{#2}{2}{5}{7}{0}% %for 4-position -\fi -\if@ylsw\ifx\@@ylii\empty -\def\@@ylii{-513}\def\@@yli{-303}\fi\else -\ylfusedposition{#2}{-12}{-1}{1}{0}% % for 4b and 8a -\fi -\if@ylsw\ifx\@@ylii\empty -\def\@@ylii{0}\def\@@yli{0}\fi\else -\ylfusedposition{#2}{-10}{0}{2}{0}% % for 4a and 10a -\fi -\if@ylsw\ifx\@@ylii\empty -\def\@@ylii{-342}\def\@@yli{0}\fi\fi -\if@ylsw - \yl@shiftii=\@ylii - \ifx\@@ylii\empty\else - \advance\yl@shiftii\@@ylii\fi - \yl@shifti=\@yli - \ifx\@@yli\empty\else - \advance\yl@shifti\@@yli\fi - \advance\yl@shiftii\yl@xdiff - \advance\yl@shifti\yl@ydiff - \begin{picture}(0,0)(-\yl@shiftii,-\yl@shifti) - \reset@yl@xydiff%1999/1/6 by S. Fujita -\else - \begin{picture}(1200,1200)(-\shiftii,-\shifti) - \iforigpt \put(-\shiftii,-\shifti){\circle*{50}}% - \put(-\noshift,-\noshift){\circle{50}}% - \typeout{command `hphenanthrenev' origin: % - (\the\noshift,\the\noshift) ---> (\the\shiftii,\the\shifti)}\fi% -\fi - \put(0,406){\line(-5,-3){171}}% %bond 6-5 - \put(0,406){\line(5,-3){171}}% %bond 5-4a - \put(0,0){\line(-5,3){171}}% %bond 8-7 - \put(0,0){\line(5,3){171}}% %bond 8-8a - \put(171,103){\line(0,1){200}}% %bond 8a-4b - \put(-171,103){\line(0,1){200}}% %bond 7-6 - \put(342,406){\line(-5,-3){171}}% %bond 4a-4b - \put(342,406){\line(5,-3){171}}% %bond 4a-10a - \put(342,0){\line(-5,3){171}}% %bond 9-8a - \put(342,0){\line(5,3){171}}% %bond 9-10 - \put(513,103){\line(0,1){200}}% %bond 10-10a - %%%% - \put(342,406){\line(0,1){200}}% %bond 4a-4 - \put(513,709){\line(-5,-3){171}}% %bond 3-4 - \put(513,709){\line(5,-3){171}}% %bond 3-2 - \put(684,406){\line(0,1){200}}% %bond 1-2 - \put(513,303){\line(5,3){171}}% %bond 10a-1 -\@tfor\member:=#1\do{% -\if\member r%no endcyclic double bonds -\else\if\member a% - \put(651,432){\line(0,1){148}}% %double bond 1-2 -\else\if\member b% - \put(519,667){\line(5,-3){126}}% %double bond 3-2 -\else\if\member c% - \put(519,667){\line(-5,-3){126}}% %double bond 3-4 -\else\if\member d% - \put(375,432){\line(0,1){148}}% %double bond 4a-4 -\else\if\member e% - \put(348,364){\line(-5,-3){126}}% %double bond 4a-4b -\else\if\member f% - \put(6,364){\line(5,-3){126}}% %double bond 5-4b -\else\if\member g% - \put(-6,364){\line(-5,-3){126}}% %double bond 5-6 -\else\if\member h% - \put(-138,129){\line(0,1){148}}% %double bond 6-7 -\else\if\member i% - \put(-6,42){\line(-5,3){126}}% %double bond 8-7 -\else\if\member j% - \put(6,42){\line(5,3){126}}% %double bond 8-8a -\else\if\member k% - \put(348,42){\line(-5,3){126}}% %double bond 9-8a -\else\if\member l% - \put(348,42){\line(5,3){126}}% %double bond 9-10 -\else\if\member m% - \put(482,129){\line(0,1){148}}% %double bond 10-10a -\else\if\member n% - \put(519,345){\line(5,3){126}}% %double bond 10a-1 -\else\if\member o% - \put(507,345){\line(-5,3){126}}% %double bond 10a-4a -\else\if\member O% - \put(348,364){\line(5,-3){126}}% %double bond 4a-10a -\else\if\member p% - \put(138,129){\line(0,1){148}}% %double bond 8a-4b -\else\if\member P% - \put(204,129){\line(0,1){148}}% %double bond 8a-4b -\else\if\member C%left aromatic circle - \put(0,203){\circle{240}} %circle -\else\if\member B%right aromatic circle - \put(342,203){\circle{240}}% %circle -\else\if\member A%right aromatic circle - \put(513,506){\circle{240}}% %circle -\else - \expandafter\twoCH@R\member//% - \set@fusion@hphenanv -\fi\fi\fi\fi\fi\fi\fi\fi\fi\fi\fi\fi\fi\fi\fi\fi\fi\fi\fi\fi\fi\fi}% -\put(0,0){\setsixringv{#2}{-4}{0}{2}{0}}% %for 5 position -\put(0,0){\setsixringv{#2}{12}{3}{7}{-1}}% %for 6 to 8 positions -\put(342,0){\setsixringv{#2}{13}{2}{5}{-1}}% %for 9 to 10 positions -\put(513,303){\setsixringv{#2}{4}{0}{4}{-1}}% %for 1 to 3 positions -\put(513,303){\setsixringv{#2}{2}{5}{7}{0}}% %for 4-position -\put(0,0){\setfusedbond{#2}{-12}{-1}{1}{0}}% % for 4b and 8a -\put(342,0){\setfusedbond{#2}{-10}{0}{2}{0}}% % for 4a and 10a -\end{picture}}% %end of \hphenanthrenev macro% -\def\phenanthrenev{\@ifnextchar[{\@phenanthrenev}{\@phenanthrenev[r]}} -\def\@phenanthrenev[#1]#2{% - \iforigpt \typeout{command `phenanthrenev' is % - based on `hphenantherenv'.}\fi% - \expandafter\threech@r#1{}{}% - \if\@tmpa r% right-handed set of double bonds - \hphenanthrenev[acgilop]{#2}% - \else\if\@tmpa A%aromatic circle - \hphenanthrenev[ABC]{#2}% - \else\if\@tmpa p%1,4-quinone - \if\@tmpb a% (A)% - \hphenanthrenev[bgilop]{#2}% - \else\ifx\@tmpb\empty% (A) - \hphenanthrenev[bgilop]{#2}% - \else\if\@tmpb A% circle type - \hphenanthrenev[BCb]{#2}% - \else - \hphenanthrenev[bgilop]{#2}% - \fi\fi\fi% - \else\if\@tmpa o%o-quinone - \if\@tmpb a% (A)% - \hphenanthrenev[cgilop]{#2}% - \else\ifx\@tmpb\empty% (A) - \hphenanthrenev[cgilop]{#2}% - \else\if\@tmpb b% (B) - \hphenanthrenev[dgilnp]{#2}% - \else\if\@tmpb c% (C) - \hphenanthrenev[agilop]{#2}% - \else\if\@tmpb A% cicle type - \hphenanthrenev[cBC]{#2}% - \fi\fi\fi\fi\fi% - \else\if\@tmpa q%9,10-quinone - \if\@tmpb a% (A)% - \hphenanthrenev[acgiop]{#2}% - \else\ifx\@tmpb\empty% (A) - \hphenanthrenev[acgiop]{#2}% - \else\if\@tmpb A% circle type - \hphenanthrenev[AC]{#2}% - \else - \hphenanthrenev[acgiop]{#2}% - \fi\fi\fi% - \else - \hphenanthrenev[@#1]{#2}% - \fi\fi\fi\fi\fi% -}% %end of \phenanthrenev macro% -\def\steroid{\@ifnextchar[{\@steroid[@}{\@steroid[Z]}} -\def\@steroid[#1]#2{% -\@reset@ylsw\reset@@yl -\yl@steroidposition{#2}% -\if@ylsw - \yl@shiftii=\@ylii - \ifx\@@ylii\empty\else - \advance\yl@shiftii\@@ylii\fi - \yl@shifti=\@yli - \ifx\@@yli\empty\else - \advance\yl@shifti\@@yli\fi - \advance\yl@shiftii\yl@xdiff - \advance\yl@shifti\yl@ydiff - \begin{picture}(0,0)(-\yl@shiftii,-\yl@shifti) - \reset@yl@xydiff%1999/1/6 by S. Fujita -\else - \begin{picture}(1600,1300)(-\shiftii,-\shifti) - \iforigpt \put(-\shiftii,-\shifti){\circle*{50}}% - \put(-\noshift,-\noshift){\circle{50}}% - \typeout{command `steroid' origin: % - (\the\noshift,\the\noshift) ---> (\the\shiftii,\the\shifti)}\fi% -\fi - \put(0,0){\@steroidskeleton{#1}{#2}}% -\end{picture}}% %end of \steroid macro% -\def\yl@steroidposition#1{% -\ylposition{#1}{0}{0}{2}{0}% %for 1 -\if@ylsw \ifx\@@ylii\empty -\def\@@ylii{0}\def\@@yli{0}\fi -\else -\ylposition{#1}{8}{3}{7}{-1}% %for 2 to 4 positions -\fi -\if@ylsw\ifx\@@ylii\empty -\def\@@ylii{0}\def\@@yli{0}\fi\else -\ylposition{#1}{10}{2}{5}{-1}% %for 6 to 7 positions -\fi -\if@ylsw\ifx\@@ylii\empty -\def\@@ylii{-342}\def\@@yli{0}\fi\else -\ylposition{#1}{-11}{0}{2}{0}%for 12 position -\fi -\if@ylsw\ifx\@@ylii\empty -\def\@@ylii{-513}\def\@@yli{-303}\fi\else -\ylposition{#1}{-5}{5}{7}{0}% %for 11 position -\fi -\if@ylsw\ifx\@@ylii\empty -\def\@@ylii{-513}\def\@@yli{-303}\fi\else -\ylposition{#1}{18}{0}{4}{-1}%for 15 to 17 positions -\fi -\if@ylsw\ifx\@@ylii\empty -\def\@@ylii{-855}\def\@@yli{-303}\fi\else -\ylatombondposition{#1}{-4}{7}% % for 5 -\fi -\if@ylsw\ifx\@@ylii\empty -\def\@@ylii{-171}\def\@@yli{-103}\fi\else -\ylatombondposition{#1}{-9}{1}% % for 10 -\fi -\if@ylsw\ifx\@@ylii\empty -\def\@@ylii{-171}\def\@@yli{-303}\fi\else -\ylatombondposition{#1}{-7}{1}% % for 8 -\fi -\if@ylsw\ifx\@@ylii\empty -\def\@@ylii{-513}\def\@@yli{-303}\fi\else -\ylatombondposition{#1}{-8}{7}% % for 9 -\fi -\if@ylsw\ifx\@@ylii\empty -\def\@@ylii{-342}\def\@@yli{-406}\fi\else -\ylatombondposition{#1}{-13}{7}% % for 14 -\fi -\if@ylsw\ifx\@@ylii\empty -\def\@@ylii{-684}\def\@@yli{-406}\fi\else -\ylatombondposition{#1}{-12}{1}% % for 13 -\fi -\if@ylsw\ifx\@@ylii\empty -\def\@@ylii{-684}\def\@@yli{-606}\fi\fi% -}% end of \yl@steroidposition -\def\@steroidskeleton#1#2{% - \put(0,406){\line(-5,-3){171}}% %bond 1-2 - \put(0,406){\line(5,-3){171}}% %bond 1-10 - \put(0,0){\line(-5,3){171}}% %bond 4-3 - \put(0,0){\line(5,3){171}}% %bond 4-5 - \put(171,103){\line(0,1){200}}% %bond 5-10 - \put(-171,103){\line(0,1){200}}% %bond 3-2 - \put(342,406){\line(-5,-3){171}}% %bond 9-10 - \put(342,406){\line(5,-3){171}}% %bond 9-8 - \put(342,0){\line(-5,3){171}}% %bond 6-5 - \put(342,0){\line(5,3){171}}% %bond 6-7 - \put(513,103){\line(0,1){200}}% %bond 7-8 - %%%% - \put(342,406){\line(0,1){200}}% %bond 9-11 - \put(513,709){\line(-5,-3){171}}% %bond 12-11 - \put(513,709){\line(5,-3){171}}% %bond 12-13 - \put(684,406){\line(0,1){200}}% %bond 14-13 - \put(513,303){\line(5,3){171}}% %bond 8-14 - %%%% - \put(855,709){\line(-5,-3){171}}% %bond 17-13 - \put(855,709){\line(5,-3){171}}% %bond 17-16 - \put(1026,406){\line(0,1){200}}% %bond 15-16 - \put(684,406){\line(1,0){342}}% %bond 14-15 -\@tfor\member:=#1\do{% -\if\member Z%no endcyclic double bonds -\else\if\member a% - \put(-6,364){\line(-5,-3){126}}% %double bond 1-2 5-6 -\else\if\member b% - \put(-138,129){\line(0,1){148}}% %double bond 3-2 6-7 -\else\if\member c% - \put(-6,42){\line(-5,3){126}}% %double bond 4-3 8-7 -\else\if\member d% - \put(6,42){\line(5,3){126}}% %double bond 4-5 8-8a -\else\if\member e% - \put(348,42){\line(-5,3){126}}% %double bond 6-5 9-8a -\else\if\member f% - \put(348,42){\line(5,3){126}}% %double bond 6-7 9-10 -\else\if\member g% - \put(482,129){\line(0,1){148}}% %double bond 7-8 10-10a -\else\if\member h% - \put(507,345){\line(-5,3){126}}% %double bond 8-9 10a-4a -\else\if\member H% - \put(348,364){\line(5,-3){126}}% %double bond 9-8 4a-10a -\else\if\member i% - \put(348,364){\line(-5,-3){126}}% %double bond 9-10 4a-4b -\else\if\member j% - \put(6,364){\line(5,-3){126}}% %double bond 1-10 5-4b -\else\if\member k% - \put(138,129){\line(0,1){148}}% %double bond 5-10 8a-4b -\else\if\member K% - \put(204,129){\line(0,1){148}}% %double bond 5-10 8a-4b -\else\if\member l% - \put(375,432){\line(0,1){148}}% %double bond 9-11 4-5 -\else\if\member m% - \put(519,667){\line(-5,-3){126}}% %double bond 12-11 3-4 -\else\if\member n% - \put(519,667){\line(5,-3){126}}% %double bond 12-13 3-2 -\else\if\member o% - \put(651,432){\line(0,1){148}}% %double bond 13-14 1-2 -\else\if\member O% - \put(717,432){\line(0,1){148}}% %double bond 13-14 1-2 -\else\if\member p% - \put(519,345){\line(5,3){126}}% %double bond 8-14 10a-1 -\else\if\member q% - \put(720,439){\line(1,0){260}}% %double bond 14-15 -\else\if\member r% - \put(993,432){\line(0,1){148}}% %double bond 15-16 1-2 -\else\if\member s% - \put(861,667){\line(5,-3){126}}% %double bond 17-16 3-2 -\else\if\member t% - \put(861,667){\line(-5,-3){126}}% %double bond 17-13 3-4 -\else\if\member A%left aromatic circle - \put(0,203){\circle{240}}% %circle -\else\if\member B%right aromatic circle - \put(342,203){\circle{240}}% %circle -\else\if\member C%right aromatic circle - \put(513,506){\circle{240}}% %circle -\else - \expandafter\twoCH@R\member//% - \set@fusion@steroid -\fi\fi\fi\fi\fi\fi\fi\fi\fi\fi\fi\fi\fi\fi\fi\fi\fi\fi% -\fi\fi\fi\fi\fi\fi\fi\fi\fi}% -\iniflag -\put(0,0){\setsixringv{#2}{0}{0}{2}{0}}% %for 1 -\put(0,0){\setsixringv{#2}{8}{3}{7}{-1}}% %for 2 to 4 positions -\put(342,0){\setsixringv{#2}{10}{2}{5}{-1}}% %for 6 to 7 positions -\put(513,303){\setsixringv{#2}{-11}{0}{2}{0}}%for 12 position -\put(513,303){\setsixringv{#2}{-5}{5}{7}{0}}% %for 11 position -\put(855,303){\setsixringv{#2}{18}{0}{4}{-1}}%for 15 to 17 positions -\put(171,103){\setatombond{#2}{-4}{7}}% % for 5 -\put(171,303){\setatombond{#2}{-9}{1}}% % for 10 -\put(513,303){\setatombond{#2}{-7}{1}}% % for 8 -\put(342,406){\setatombond{#2}{-8}{7}}% % for 9 -\put(684,406){\setatombond{#2}{-13}{7}}% % for 14 -\put(684,606){\setatombond{#2}{-12}{1}}% % for 13 -}% end of \@steroidskeleton -\def\set@fusion@steroid{% - \let\@@tmpa=\@tmpa - \let\@@tmpb=\@tmpb - \if\@tmpa a% - \edef\@@tmpa{f}% - \put(0,0){\set@fusionadd@sixv}% - \else\if\@tmpa A% - \edef\@@tmpa{F}% - \put(0,0){\set@fusionadd@sixv}% - \else\if\@tmpa b% - \edef\@@tmpa{e}% - \put(0,0){\set@fusionadd@sixv}% - \else\if\@tmpa B% - \edef\@@tmpa{E}% - \put(0,0){\set@fusionadd@sixv}% - \else\if\@tmpa c% - \edef\@@tmpa{d}% - \put(0,0){\set@fusionadd@sixv}% - \else\if\@tmpa C% - \edef\@@tmpa{D}% - \put(0,0){\set@fusionadd@sixv}% - \else\if\@tmpa d% - \edef\@@tmpa{c}% - \put(0,0){\set@fusionadd@sixv}% - \if@smallringsw\else - \XyMTeXWarning{Unfavorable Fusion for bond `d'}% - \fi - \else\if\@tmpa D% - \edef\@@tmpa{C}% - \put(0,0){\set@fusionadd@sixv}% - \if@smallringsw\else - \XyMTeXWarning{Unfavorable Fusion for bond `D'}% - \fi - \else\if\@tmpa e% - \edef\@@tmpa{d}% - \put(342,0){\set@fusionadd@sixv}% - \if@smallringsw\else - \XyMTeXWarning{Unfavorable Fusion for bond `e'}% - \fi - \else\if\@tmpa E% - \edef\@@tmpa{D}% - \put(342,0){\set@fusionadd@sixv}% - \if@smallringsw\else - \XyMTeXWarning{Unfavorable Fusion for bond `E'}% - \fi - \else\if\@tmpa f% - \edef\@@tmpa{c}% - \put(342,0){\set@fusionadd@sixv}% - \if@smallringsw\else - \XyMTeXWarning{Unfavorable Fusion for bond `f'}% - \fi - \else\if\@tmpa F% - \edef\@@tmpa{C}% - \put(342,0){\set@fusionadd@sixv}% - \if@smallringsw\else - \XyMTeXWarning{Unfavorable Fusion for bond `f'}% - \fi - \else\if\@tmpa g% - \edef\@@tmpa{b}% - \put(342,0){\set@fusionadd@sixv}% - \if@smallringsw\else - \XyMTeXWarning{Unfavorable Fusion for bond `g'}% - \fi - \else\if\@tmpa G% - \edef\@@tmpa{B}% - \put(342,0){\set@fusionadd@sixv}% - \if@smallringsw\else - \XyMTeXWarning{Unfavorable Fusion for bond `g'}% - \fi - \else\if\@tmpa h% - \edef\@@tmpa{a}% - \put(342,0){\set@fusionadd@sixv}% - \if@smallringsw\else - \XyMTeXWarning{Forbidden Fusion for bond `h'}% - \fi - \else\if\@tmpa H% - \edef\@@tmpa{A}% - \put(342,0){\set@fusionadd@sixv}% - \if@smallringsw\else - \XyMTeXWarning{Forbidden Fusion for bond `H'}% - \fi - \else\if\@tmpa i% - \edef\@@tmpa{f}% - \put(342,0){\set@fusionadd@sixv}% - \if@smallringsw\else - \XyMTeXWarning{Unfavorable Fusion for bond `i'}% - \fi - \else\if\@tmpa I% - \edef\@@tmpa{F}% - \put(342,0){\set@fusionadd@sixv}% - \if@smallringsw\else - \XyMTeXWarning{Unfavorable Fusion for bond `I'}% - \fi - \else\if\@tmpa j% - \edef\@@tmpa{a}% - \put(0,0){\set@fusionadd@sixv}% - \if@smallringsw\else - \XyMTeXWarning{Unfavorable Fusion for bond `j'}% - \fi - \else\if\@tmpa J% - \edef\@@tmpa{A}% - \put(0,0){\set@fusionadd@sixv}% - \if@smallringsw\else - \XyMTeXWarning{Unfavorable Fusion for bond `J'}% - \fi - \else\if\@tmpa k% - \edef\@@tmpa{b}% - \put(0,0){\set@fusionadd@sixv}% - \if@smallringsw\else - \XyMTeXWarning{Forbidden Fusion for bond `k'}% - \fi - \else\if\@tmpa K% - \edef\@@tmpa{B}% - \put(0,0){\set@fusionadd@sixv}% - \if@smallringsw\else - \XyMTeXWarning{Forbidden Fusion for bond `K'}% - \fi - \else\if\@tmpa l% - \edef\@@tmpa{e}% - \put(513,303){\set@fusionadd@sixv}% - \if@smallringsw\else - \XyMTeXWarning{Unfavorable Fusion for bond `l'}% - \fi - \else\if\@tmpa L% - \edef\@@tmpa{E}% - \put(513,303){\set@fusionadd@sixv}% - \if@smallringsw\else - \XyMTeXWarning{Unfavorable Fusion for bond `L'}% - \fi - \else\if\@tmpa m% - \edef\@@tmpa{f}% - \put(513,303){\set@fusionadd@sixv}% - \else\if\@tmpa M% - \edef\@@tmpa{F}% - \put(513,303){\set@fusionadd@sixv}% - \else\if\@tmpa n% - \edef\@@tmpa{a}% - \put(513,303){\set@fusionadd@sixv}% - \if@smallringsw\else - \XyMTeXWarning{Unfavorable Fusion for bond `n'}% - \fi - \else\if\@tmpa N% - \edef\@@tmpa{A}% - \put(513,303){\set@fusionadd@sixv}% - \if@smallringsw\else - \XyMTeXWarning{Unfavorable Fusion for bond `N'}% - \fi - \else\if\@tmpa o% - \edef\@@tmpa{b}% - \put(513,303){\set@fusionadd@sixv}% - \if@smallringsw\else - \XyMTeXWarning{Forbidden Fusion for bond `o'}% - \fi - \else\if\@tmpa O% - \edef\@@tmpa{B}% - \put(513,303){\set@fusionadd@sixv}% - \if@smallringsw\else - \XyMTeXWarning{Forbidden Fusion for bond `O'}% - \fi - \else\if\@tmpa p% - \edef\@@tmpa{c}% - \put(513,303){\set@fusionadd@sixv}% - \if@smallringsw\else - \XyMTeXWarning{Unfavorable Fusion for bond `N'}% - \fi - \else\if\@tmpa P% - \edef\@@tmpa{C}% - \put(513,303){\set@fusionadd@sixv}% - \if@smallringsw\else - \XyMTeXWarning{Unfavorable Fusion for bond `N'}% - \fi - \else\if\@tmpa q% - \XyMTeXWarning{Mismatched dimension for bond `q'}% - \else\if\@tmpa Q% - \XyMTeXWarning{Mismatched dimension for bond `Q'}% - \else\if\@tmpa r% - \edef\@@tmpa{b}% - \put(855,303){\set@fusionadd@sixv}% - \else\if\@tmpa R% - \edef\@@tmpa{B}% - \put(855,303){\set@fusionadd@sixv}% - \else\if\@tmpa s% - \edef\@@tmpa{a}% - \put(855,303){\set@fusionadd@sixv}% - \else\if\@tmpa S% - \edef\@@tmpa{A}% - \put(855,303){\set@fusionadd@sixv}% - \else\if\@tmpa t% - \edef\@@tmpa{f}% - \put(855,303){\set@fusionadd@sixv}% - \if@smallringsw\else - \XyMTeXWarning{Unfavorable Fusion for bond `t'}% - \fi - \else\if\@tmpa T% - \edef\@@tmpa{F}% - \put(855,303){\set@fusionadd@sixv}% - \if@smallringsw\else - \XyMTeXWarning{Unfavorable Fusion for bond `T'}% - \fi - \fi\fi\fi\fi\fi\fi\fi\fi% - \fi\fi\fi\fi\fi\fi\fi\fi\fi\fi% - \fi\fi\fi\fi\fi\fi\fi\fi\fi\fi\fi\fi% - \fi\fi\fi\fi\fi\fi\fi\fi\fi\fi% -}% end of the macro \set@fusion@steroid -\def\steroidchain{\@ifnextchar[{\@steroidchain[@}{\@steroidchain[Z]}} -\def\@steroidchain[#1]#2{% -\@reset@ylsw\reset@@yl -\yl@steroidposition{#2}% -\ylposition{#2}{-21}{0}{3}{0}%for 22 and 23 positions -\if@ylsw \ifx\@@ylii\empty -\def\@@ylii{-1026}\def\@@yli{-606}\fi -\else -\ylposition{#2}{-14}{5}{7}{0}%for 20 position -\fi -\if@ylsw\ifx\@@ylii\empty -\def\@@ylii{-1026}\def\@@yli{-606}\fi\else -\ylposition{#2}{-20}{3}{5}{0}%for 24 position -\fi -\if@ylsw\ifx\@@ylii\empty -\def\@@ylii{-1197}\def\@@yli{-709}\fi\else -\ylatombondposition{#2}{-24}{4}% % for 5 -\fi -\if@ylsw\ifx\@@ylii\empty -\def\@@ylii{-1397}\def\@@yli{-709}\fi\fi -\if@ylsw - \yl@shiftii=\@ylii - \ifx\@@ylii\empty\else - \advance\yl@shiftii\@@ylii\fi - \yl@shifti=\@yli - \ifx\@@yli\empty\else - \advance\yl@shifti\@@yli\fi - \advance\yl@shiftii\yl@xdiff - \advance\yl@shifti\yl@ydiff - \begin{picture}(0,0)(-\yl@shiftii,-\yl@shifti) - \reset@yl@xydiff%1999/1/6 by S. Fujita -\else - \begin{picture}(2000,1500)(-\shiftii,-\shifti) - \iforigpt \typeout{command `steroidchain' is based on `steroid'.}\fi% -\fi - \put(0,0){\@steroidskeleton{#1}{#2}}% - \put(855,709){\line(0,1){200}}% %bond 17-20 - \put(1026,1012){\line(-5,-3){171}}% %bond 22-20 - \put(1026,1012){\line(5,-3){171}}% %bond 22-23 - \put(1197,709){\line(0,1){200}}% %bond 24-23 - \put(1197,709){\line(1,0){200}}% %bond 24-25 - \put(1397,709){\line(3,5){103}}% %bond 25-26 - \put(1397,709){\line(3,-5){103}}% %bond 25-27 -\@tfor\member:=#1\do{% -\expandafter\twoCH@R\member//\relax% -\if\@tmpa Z\relax% - \ifx\@tmpb\empty%no action - \else\if\@tmpb a% - \put(888,735){\line(0,1){148}}% %double bond 17-20 - \else\if\@tmpb b% - \put(1020,970){\line(-5,-3){126}}% %double bond 22-20 - \else\if\@tmpb c% - \put(1032,970){\line(5,-3){126}}% %double bond 22-23 - \else\if\@tmpb d% - \put(1164,735){\line(0,1){148}}% %double bond 24-23 - \else\if\@tmpb e% - \put(1233,742){\line(1,0){140}}% %double bond 24-25 - \else\if\@tmpb f% - \put(1433,715){\line(3,5){72}}% %double bond 25-26 - \else\if\@tmpb g% - \put(1433,697){\line(3,-5){72}}% %double bond 25-27 - \fi\fi\fi\fi\fi\fi\fi\fi\fi} -\put(1026,606){\setsixringv{#2}{-21}{0}{3}{0}}%for 22 and 23 positions -\put(1026,606){\setsixringv{#2}{-14}{5}{7}{0}}%for 20 position -\put(1197,709){\setsixringv{#2}{-20}{3}{5}{0}}%for 24 position -\put(1397,709){\setatombond{#2}{-24}{4}}% % for 5 -\end{picture}}% %end of \steroidchain macro% -\endinput -%% -%% End of file `carom.sty'. diff --git a/Master/texmf-dist/tex/latex/xymtex/ccycle.sty b/Master/texmf-dist/tex/latex/xymtex/ccycle.sty deleted file mode 100644 index a0ce11a5c5c..00000000000 --- a/Master/texmf-dist/tex/latex/xymtex/ccycle.sty +++ /dev/null @@ -1,1854 +0,0 @@ -%% -%% This is file `ccycle.sty', -%% generated with the docstrip utility. -%% -%% The original source files were: -%% -%% ccycle.dtx (with options: `ccycle') -%% -%% This is a generated file. -%% -%% Copyright 1996,1998 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, 1996 -%% Version 2.00 Released on December 25, 1998 -%% -%% Copyright (C) 1996,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: ccycle.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{ccycle} -\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}{} -\unitlength=0.1pt -\def\@chaira{% - \if\@tmpb S%single bond - \ifx\@tmpc\empty% - \yl@xdiff=10 - \yl@ydiff=10 - \put(0,0){\line(-1,1){120}}% single bond at 1 - \putlatom{-130}{110}{\@memberb}% left type - \else\if\@tmpc a%(a) axial - \yl@xdiff=42 - \yl@ydiff=-12 - \put(0,0){\line(0,1){168}}% single bond at 1 axial - \putlratom{-42}{180}{\@memberb}% left & right type - \else\if\@tmpc e%(e) beta - \yl@xdiff=16 - \yl@ydiff=44 - \put(0,0){\line(-5,-3){144}}% single bond at 1 equatorial - \putlatom{-160}{-130}{\@memberb}% left type - \fi\fi\fi% - \else \if\@tmpb D%double bond - \yl@xdiff=10 - \yl@ydiff=10 - \put(-10,-10){\line(-1,1){120}}% double bond at 1 - \put(10,10){\line(-1,1){120}}% double bond at 1 - \putlatom{-130}{110}{\@memberb}% left type - \else% - \yl@xdiff=10 - \yl@ydiff=10 - \put(0,0){\line(-1,1){120}}% single bond at 1 - \putlatom{-130}{110}{\@memberb}% left type - \fi\fi}% -\def\@chairb{% - \if\@tmpb S%single bond - \ifx\@tmpc\empty% - \yl@xdiff=10 - \yl@ydiff=70 - \put(170,-226){\line(-1,-1){120}}% single bond at 2 - \putlatom{40}{-416}{\@memberb}% left type - \else\if\@tmpc a%(a) axial - \yl@xdiff=32 - \yl@ydiff=92 - \put(170,-226){\line(0,-1){168}}% single bond at 2 axial - \putlratom{138}{-486}{\@memberb}% left & right type - \else\if\@tmpc e%(e) beta - \yl@xdiff=16 - \yl@ydiff=34 - \put(170,-226){\line(-5,3){144}}% single bond at 2 equatorial - \putlatom{10}{-174}{\@memberb}% left type - \fi\fi\fi% - \else \if\@tmpb D%double bond - \yl@xdiff=10 - \yl@ydiff=70 - \put(160,-216){\line(-1,-1){120}}% double bond at 2 - \put(180,-236){\line(-1,-1){120}}% double bond at 2 - \putlatom{40}{-416}{\@memberb}% left type - \else% - \yl@xdiff=10 - \yl@ydiff=70 - \put(170,-226){\line(-1,-1){120}}% single bond at 2 - \putlatom{40}{-416}{\@memberb}% left type - \fi\fi}% -\def\@chairc{% - \if\@tmpb S%single bond - \ifx\@tmpc\empty% - \yl@xdiff=-10 - \yl@ydiff=24 - \put(573,-91){\line(5,4){170}}% single bond at 3 - \putratom{753}{21}{\@memberb}% right type - \else\if\@tmpc a%(a) axial - \yl@xdiff=40 - \yl@ydiff=-24 - \put(573,-91){\line(0,1){168}}% single bond at 3 axial - \putlratom{533}{101}{\@memberb}% left type - \else\if\@tmpc e%(e) beta - \yl@xdiff=-36 - \yl@ydiff=83 - \put(573,-91){\line(5,-3){144}}% single bond at 3 equatorial - \putlatom{753}{-260}{\@memberb}% left type - \fi\fi\fi% - \else \if\@tmpb D%double bond - \yl@xdiff=0 - \yl@ydiff=0 - \put(563,-83){\line(5,4){170}}% double bond at 3 - \put(583,-99){\line(5,4){170}}% double bond at 3 - \putratom{733}{41}{\@memberb}% right type - \else% - \yl@xdiff=-10 - \yl@ydiff=24 - \put(573,-91){\line(5,4){170}}% single bond at 3 - \putratom{753}{21}{\@memberb}% right type - \fi\fi}% -\def\@chaird{% - \if\@tmpb S%single bond - \ifx\@tmpc\empty% - \yl@xdiff=10 - \yl@ydiff=70 - \put(843,-181){\line(1,-1){120}}% single bond at 4 - \putratom{953}{-371}{\@memberb}% right type - \else\if\@tmpc a%(a) axial - \yl@xdiff=42 - \yl@ydiff=91 - \put(843,-181){\line(0,-1){168}}% single bond at 4 axial - \putlratom{801}{-440}{\@memberb}% left & right type - \else\if\@tmpc e%(e) beta - \yl@xdiff=-16 - \yl@ydiff=16 - \put(843,-181){\line(5,3){144}}% single bond at 4 equatorial - \putratom{1003}{-111}{\@memberb}% right type - \fi\fi\fi% - \else \if\@tmpb D%double bond - \yl@xdiff=10 - \yl@ydiff=70 - \put(833,-191){\line(1,-1){120}}% double bond at 4 - \put(853,-171){\line(1,-1){120}}% double bond at 4 - \putratom{953}{-371}{\@memberb}% right type - \else% - \yl@xdiff=10 - \yl@ydiff=70 - \put(843,-181){\line(1,-1){120}}% single bond at 4 - \putratom{953}{-371}{\@memberb}% right type - \fi\fi}% -\def\@chaire{% - \if\@tmpb S%single bond - \ifx\@tmpc\empty% - \yl@xdiff=-10 - \yl@ydiff=10 - \put(673,46){\line(1,1){120}}% single bond at 5 - \putratom{803}{158}{\@memberb}% right type - \else\if\@tmpc a%(a) axial - \yl@xdiff=40 - \yl@ydiff=-24 - \put(673,46){\line(0,1){168}}% single bond at 5 axial - \putlratom{633}{238}{\@memberb}% left & right type - \else\if\@tmpc e%(e) beta - \yl@xdiff=-6 - \yl@ydiff=63 - \put(673,46){\line(5,-3){144}}% single bond at 5 equatorial - \putratom{823}{-103}{\@memberb}% right type - \fi\fi\fi% - \else \if\@tmpb D%double bond - \yl@xdiff=-10 - \yl@ydiff=10 - \put(663,53){\line(1,1){120}}% double bond at 5 - \put(683,38){\line(1,1){120}}% double bond at 5 - \putratom{803}{158}{\@memberb}% right type - \else% - \yl@xdiff=-10 - \yl@ydiff=24 - \put(673,46){\line(5,4){170}}% single bond at 5 - \putratom{853}{158}{\@memberb}% right type - \fi\fi}% -\def\@chairf{% - \if\@tmpb S%single bond - \ifx\@tmpc\empty% - \yl@xdiff=0 - \yl@ydiff=54 - \put(270,-90){\line(-5,-4){170}}% single bond at 2 - \putlatom{100}{-280}{\@memberb}% left type - \else\if\@tmpc a%(a) axial - \yl@xdiff=32 - \yl@ydiff=92 - \put(270,-90){\line(0,-1){168}}% single bond at 2 axial - \putlratom{238}{-350}{\@memberb}% left type - \else\if\@tmpc e%(e) beta - \yl@xdiff=26 - \yl@ydiff=-14 - \put(270,-90){\line(-5,3){144}}% single bond at 2 equatorial - \putratom{100}{18}{\@memberb}% left type - \fi\fi\fi% - \else \if\@tmpb D%double bond - \yl@xdiff=0 - \yl@ydiff=54 - \put(260,-80){\line(-5,-4){170}}% double bond at 2 - \put(280,-100){\line(-5,-4){170}}% double bond at 2 - \putlatom{100}{-280}{\@memberb}% left or right type - \else% - \yl@xdiff=0 - \yl@ydiff=54 - \put(270,-90){\line(-5,-4){170}}% single bond at 2 - \putlatom{100}{-280}{\@memberb}% left type - \fi\fi}% -\def\chair{\@ifnextchar[{\@chair}{\@chair[r]}} -\def\@chair[#1]#2{% -\@reset@ylsw% -\ylchairposition{#2}% -\def\@@ylii{0}\def\@@yli{0}% -\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) -\else - \begin{picture}(1600,800)(-400,-500) - \iforigpt \put(-400,-500){\circle*{50}}% - \put(0,0){\circle{50}}% - \typeout{command `chair' origin: (0,0) ---> (400,500)} - \fi% -\fi - \thicklines% - \put(0,0){\line(3,-4){170}}% % bond 1 to 2 - \put(170,-226){\line(3,1){403}}% % 2 to 3 - \put(573,-91){\line(3,-1){270}}% % 3 to 4 - \thinlines% - \put(843,-181){\line(-3,4){170}}% % 4 to 5 - \put(673,46){\line(-3,-1){403}}% % 5 to 6 - \put(0,0){\line(3,-1){270}}% % 1 to 6 -\@tfor\member:=#1\do{% -\if\member r%no endcyclic bonds -\else \if\member a% - \put(76,-42){\line(3,-4){110}}% % double bond 1 to 2 -\else \if\member b% - \put(200,-186){\line(3,1){343}}% % 2 to 3 -\else \if\member c% - \put(603,-70){\line(3,-1){190}}% % 3 to 4 -\else \if\member d% - \put(780,-141){\line(-3,4){110}}% % 4 to 5 -\else \if\member e% - \put(661,6){\line(-3,-1){343}}% % 5 to 6 -\else \if\member f% - \put(75,-50){\line(3,-1){170}}% % 1 to 6 -\fi\fi\fi\fi\fi\fi\fi}% -\@forsemicol\member:=#2\do{% -\ifx\member\empty\else -\expandafter\@m@mb@r\member;\relax% -\expandafter\threech@r\@membera{}{}% -\ifx\@memberb\@yl\else -\ifcase\@tmpa%0 omit - \or\@chaira% subst. on 1 - \or\@chairb% subst. on 2 - \or\@chairc% subst. on 3 - \or\@chaird% subst. on 4 - \or\@chaire% subst. on 5 - \or\@chairf% subst. on 6 -\fi%end of ifcase -\fi\fi% -}\end{picture}}% %end of \chair macro -\def\ylchairposition#1{% -\@@ylswfalse%%%\@reset@ylsw -\@forsemicol\member:=#1\do{% -\if@@ylsw\else -\ifx\member\empty\else -\expandafter\@m@mb@r\member;\relax -\expandafter\threech@r\@membera{}{}\relax -\ifx\@memberb\@yl\relax\@@ylswtrue\else\@@ylswfalse\fi -\if@@ylsw -\ifcase\@tmpa%0 omit - \or\gdef\@ylii{0}\gdef\@yli{0}\global\@ylswtrue% subst. on 1 - \or\gdef\@ylii{-170}\gdef\@yli{226}\global\@ylswtrue% subst. on 2 - \or\gdef\@ylii{-573}\gdef\@yli{91}\global\@ylswtrue% subst. on 3 - \or\gdef\@ylii{-843}\gdef\@yli{181}\global\@ylswtrue% subst. on 4 - \or\gdef\@ylii{-673}\gdef\@yli{-46}\global\@ylswtrue% subst. on 5 - \or\gdef\@ylii{-270}\gdef\@yli{90}\global\@ylswtrue% subst. on 6 -\fi%end of ifcase -\fi\fi\fi}}% -\def\@chairia{% - \if\@tmpb S%single bond - \ifx\@tmpc\empty% - \yl@xdiff=10 - \yl@ydiff=90 - \put(0,0){\line(-1,-1){120}}% single bond at 1 - \putlatom{-130}{-210}{\@memberb}% left type - \else\if\@tmpc a%(a) axial - \yl@xdiff=42 - \yl@ydiff=92 - \put(0,0){\line(0,-1){168}}% single bond at 1 axial - \putlratom{-42}{-260}{\@memberb}% left & right type - \else\if\@tmpc e%(e) beta - \yl@xdiff=16 - \yl@ydiff=36 - \put(0,0){\line(-5,3){144}}% single bond at 1 equatorial - \putlatom{-160}{50}{\@memberb}% left type - \fi\fi\fi% - \else \if\@tmpb D%double bond - \yl@xdiff=10 - \yl@ydiff=90 - \put(-10,10){\line(-1,-1){120}}% double bond at 1 - \put(10,-10){\line(-1,-1){120}}% double bond at 1 - \putlatom{-130}{-210}{\@memberb}% left type - \else% - \yl@xdiff=10 - \yl@ydiff=90 - \put(0,0){\line(-1,-1){120}}% single bond at 1 - \putlatom{-130}{-210}{\@memberb}% left type - \fi\fi}% -\def\@chairif{% - \if\@tmpb S%single bond - \ifx\@tmpc\empty% - \yl@xdiff=10 - \yl@ydiff=30 - \put(170,226){\line(-1,1){120}}% single bond at 6 - \putratom{40}{316}{\@memberb}% left type - \else\if\@tmpc a%(a) axial - \yl@xdiff=32 - \yl@ydiff=-12 - \put(170,226){\line(0,1){168}}% single bond at 6 axial - \putlratom{138}{406}{\@memberb}% left & right type - \else\if\@tmpc e%(e) beta - \yl@xdiff=16 - \yl@ydiff=46 - \put(170,226){\line(-5,-3){144}}% single bond at 6 equatorial - \putlatom{10}{94}{\@memberb}% left type - \fi\fi\fi% - \else \if\@tmpb D%double bond - \yl@xdiff=10 - \yl@ydiff=30 - \put(160,216){\line(-1,1){120}}% double bond at 6 - \put(180,236){\line(-1,1){120}}% double bond at 6 - \putlatom{40}{316}{\@memberb}% left type - \else% - \yl@xdiff=10 - \yl@ydiff=30 - \put(170,226){\line(-1,1){120}}% single bond at 6 - \putlatom{40}{316}{\@memberb}% left type - \fi\fi}% -\def\@chairie{% - \if\@tmpb S%single bond - \ifx\@tmpc\empty% - \yl@xdiff=-10 - \yl@ydiff=76 - \put(573,91){\line(5,-4){170}}% single bond at 5 - \putratom{753}{-101}{\@memberb}% right type - \else\if\@tmpc a%(a) axial - \yl@xdiff=40 - \yl@ydiff=104 - \put(573,91){\line(0,-1){168}}% single bond at 5 axial - \putlratom{533}{-181}{\@memberb}% left type - \else\if\@tmpc e%(e) beta - \yl@xdiff=-36 - \yl@ydiff=3 - \put(573,91){\line(5,3){144}}% single bond at 5 equatorial - \putlatom{753}{180}{\@memberb}% left type - \fi\fi\fi% - \else \if\@tmpb D%double bond - \yl@xdiff=-10 - \yl@ydiff=96 - \put(563,83){\line(5,-4){170}}% double bond at 5 - \put(583,99){\line(5,-4){170}}% double bond at 5 - \putratom{733}{-141}{\@memberb}% right type - \else% - \yl@xdiff=-10 - \yl@ydiff=76 - \put(573,91){\line(5,-4){170}}% single bond at 5 - \putratom{753}{-121}{\@memberb}% right type - \fi\fi}% -\def\@chairid{% - \if\@tmpb S%single bond - \ifx\@tmpc\empty% - \yl@xdiff=10 - \yl@ydiff=30 - \put(843,181){\line(1,1){120}}% single bond at 4 - \putratom{953}{271}{\@memberb}% right type - \else\if\@tmpc a%(a) axial - \yl@xdiff=42 - \yl@ydiff=-11 - \put(843,181){\line(0,1){168}}% single bond at 4 axial - \putlratom{801}{360}{\@memberb}% left & right type - \else\if\@tmpc e%(e) beta - \yl@xdiff=-16 - \yl@ydiff=64 - \put(843,181){\line(5,-3){144}}% single bond at 4 equatorial - \putratom{1003}{31}{\@memberb}% right type - \fi\fi\fi% - \else \if\@tmpb D%double bond - \yl@xdiff=10 - \yl@ydiff=30 - \put(833,191){\line(1,1){120}}% double bond at 4 - \put(853,171){\line(1,1){120}}% double bond at 4 - \putratom{953}{271}{\@memberb}% right type - \else% - \yl@xdiff=10 - \yl@ydiff=30 - \put(843,181){\line(1,1){120}}% single bond at 4 - \putratom{953}{271}{\@memberb}% right type - \fi\fi}% -\def\@chairic{% - \if\@tmpb S%single bond - \ifx\@tmpc\empty% - \yl@xdiff=-10 - \yl@ydiff=92 - \put(673,-46){\line(1,-1){120}}% single bond at 3 - \putratom{803}{-258}{\@memberb}% right type - \else\if\@tmpc a%(a) axial - \yl@xdiff=40 - \yl@ydiff=110 - \put(673,-46){\line(0,-1){168}}% single bond at 3 axial - \putlratom{633}{-318}{\@memberb}% left & right type - \else\if\@tmpc e%(e) beta - \yl@xdiff=-6 - \yl@ydiff=17 - \put(673,-46){\line(5,3){144}}% single bond at 3 equatorial - \putratom{823}{23}{\@memberb}% right type - \fi\fi\fi% - \else \if\@tmpb D%double bond - \yl@xdiff=-5 - \yl@ydiff=96 - \put(663,-53){\line(1,-1){120}}% double bond at 3 - \put(683,-38){\line(1,-1){120}}% double bond at 3 - \putratom{803}{-258}{\@memberb}% right type - \else% - \yl@xdiff=-10 - \yl@ydiff=76 - \put(673,-46){\line(5,-4){170}}% single bond at 3 - \putratom{853}{-258}{\@memberb}% right type - \fi\fi}% -\def\@chairib{% - \if\@tmpb S%single bond - \ifx\@tmpc\empty% - \yl@xdiff=0 - \yl@ydiff=46 - \put(270,90){\line(-5,4){170}}% single bond at 2 - \putlatom{100}{180}{\@memberb}% left type - \else\if\@tmpc a%(a) axial - \yl@xdiff=32 - \yl@ydiff=-12 - \put(270,90){\line(0,1){168}}% single bond at 2 axial - \putlratom{238}{270}{\@memberb}% left type - \else\if\@tmpc e%(e) beta - \yl@xdiff=26 - \yl@ydiff=94 - \put(270,90){\line(-5,-3){144}}% single bond at 2 equatorial - \putratom{100}{-98}{\@memberb}% left type - \fi\fi\fi% - \else \if\@tmpb D%double bond - \yl@xdiff=0 - \yl@ydiff=26 - \put(260,80){\line(-5,4){170}}% double bond at 2 - \put(280,100){\line(-5,4){170}}% double bond at 2 - \putlatom{100}{200}{\@memberb}% left or right type - \else% - \yl@xdiff=0 - \yl@ydiff=26 - \put(270,90){\line(-5,4){170}}% single bond at 2 - \putlatom{100}{200}{\@memberb}% left type - \fi\fi}% -\def\chairi{\@ifnextchar[{\@chairi}{\@chairi[r]}} -\def\@chairi[#1]#2{% -\@reset@ylsw% -\ylchairiposition{#2}% -\def\@@ylii{0}\def\@@yli{0}% -\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) -\else - \begin{picture}(1600,800)(-400,-319) - \iforigpt \put(-400,-319){\circle*{50}}% - \put(0,0){\circle{50}}% - \typeout{command `chairi' origin: (0,0) ---> (400,319)} - \fi% -\fi - \thinlines% - \put(0,0){\line(3,4){170}}% % bond 1 to 6 - \put(170,226){\line(3,-1){403}}% % 6 to 5 - \put(573,91){\line(3,1){270}}% % 5 to 4 - \thicklines% - \put(843,181){\line(-3,-4){170}}% % 4 to 3 - \put(673,-46){\line(-3,1){403}}% % 3 to 2 - \put(0,0){\line(3,1){270}}% % 1 to 2 - \thinlines% -\@tfor\member:=#1\do{% -\if\member r%no endcyclic bonds -\else \if\member c%%%a% - \put(767,139){\line(-3,-4){110}}% % double bond 3 to 4 -\else \if\member b%%%d%%%b% - \put(640,-5){\line(-3,1){343}}% % 4 to 5 -\else \if\member a%%%e%%%%c% - \put(240,111){\line(-3,-1){190}}% % 5 to 6 -\else \if\member f%%%d% - \put(63,40){\line(3,4){110}}% % 6 to 7 -\else \if\member e%%%l% - \put(182,187){\line(3,-1){343}}% % 7 to 10 -\else \if\member d%%%k%%%f% - \put(768,131){\line(-3,-1){170}}% % 10 to 3 -\fi\fi\fi\fi\fi\fi\fi}% -\@forsemicol\member:=#2\do{% -\ifx\member\empty\else -\expandafter\@m@mb@r\member;\relax% -\expandafter\threech@r\@membera{}{}% -\ifx\@memberb\@yl\else -\ifcase\@tmpa%0 omit - \or \@chairia% subst. on 1 - \or \@chairib% subst. on 2 - \or \@chairic% subst. on 3 - \or \@chairid% subst. on 4 - \or \@chairie% subst. on 5 - \or \@chairif% subst. on 6 -\fi %end of ifcase -\fi\fi% -}\end{picture}}% %end of \chairi macro -\def\ylchairiposition#1{% -\@@ylswfalse%%%\@reset@ylsw -\@forsemicol\member:=#1\do{% -\if@@ylsw\else -\ifx\member\empty\else -\expandafter\@m@mb@r\member;\relax -\expandafter\threech@r\@membera{}{}\relax -\ifx\@memberb\@yl\relax\@@ylswtrue\else\@@ylswfalse\fi -\if@@ylsw -\ifcase\@tmpa%0 omit - \or\gdef\@ylii{0}\gdef\@yli{0}\global\@ylswtrue% subst. on 1 - \or\gdef\@ylii{-270}\gdef\@yli{-90}\global\@ylswtrue% subst. on 2 - \or\gdef\@ylii{-673}\gdef\@yli{46}\global\@ylswtrue% subst. on 3 - \or\gdef\@ylii{-843}\gdef\@yli{-181}\global\@ylswtrue% subst. on 4 - \or\gdef\@ylii{-573}\gdef\@yli{-91}\global\@ylswtrue% subst. on 5 - \or\gdef\@ylii{-170}\gdef\@yli{-226}\global\@ylswtrue% subst. on 6 -\fi%end of ifcase -\fi\fi\fi}}% -\def\bicychepv{\@ifnextchar[{\@bicychepv}{\@bicychepv[r]}} -\def\@bicychepv[#1]#2{% -\@reset@ylsw% -\ylposition{#2}{0}{0}{7}{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) -\else - \begin{picture}(800,880)(-400,-240) - \iforigpt \put(-400,-240){\circle*{50}}% - \put(0,0){\circle{50}}% - \typeout{command `bicychepv' origin: (0,0) ---> (400,240)} -\fi - \fi% - \put(0,406){\line(-5,-3){171}}% %bond 1-6 - \put(0,406){\line(5,-3){171}}% %bond 1-2 - \put(0,0){\line(-5,3){171}}% %bond 4-5 - \put(0,0){\line(5,3){171}}% %bond 4-3 - \put(171,103){\line(0,1){200}}% %bond 3-2 - \put(-171,103){\line(0,1){200}}% %bond 5-6 -{\thicklines% - \put(0,0){\line(1,4){51}}% %bond 4-7 - \put(0,406){\line(1,-4){51}}}% %bond 1-7 -\@tfor\member:=#1\do{% -\if\member r%no endcyclic double bonds -\else \if\member a% - \put(6,364){\line(5,-3){126}}% %double bond 1-2 -\else \if\member b% - \put(138,129){\line(0,1){148}}% %double bond 3-2 -\else \if\member c% - \put(6,42){\line(5,3){126}}% %double bond 4-3 -\else \if\member d% - \put(-6,42){\line(-5,3){126}}% %double bond 4-5 -\else \if\member e% - \put(-138,129){\line(0,1){148}}% %double bond 5-6 -\else \if\member f% - \put(-6,364){\line(-5,-3){126}}% %double bond 1-6 -\else \if\member 7% - {\thicklines% - \put(51,204){\line(-1,0){70}}% %7,7-dimethyl - \put(51,204){\line(1,0){70}}}% -\else \if\member A%aromatic circle - \put(0,203){\circle{240}}% %circle -\fi\fi\fi\fi\fi\fi\fi\fi\fi}% -\setsixringv{#2}{0}{0}{7}{0} -\end{picture}} %end of \bicychepv macro -\def\bicycheph{\@ifnextchar[{\@bicycheph}{\@bicycheph[r]}} -\def\@bicycheph[#1]#2{% -\@reset@ylsw% -\ylpositionh{#2}{0}{0}{7}{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) -\else - \begin{picture}(880,800)(-240,-400) - \iforigpt \put(-240,-400){\circle*{50}}% - \put(0,0){\circle{50}}% - \typeout{command `bicycheph' origin: (0,0) ---> (240,400)} - \fi% -\fi - \put(0,0){\line(3,5){103}} %bond 1-2 - \put(0,0){\line(3,-5){103}} %bond 1-6 - \put(406,0){\line(-3,5){103}} %bond 4-3 - \put(406,0){\line(-3,-5){103}} %bond 4-3 - \put(103,171){\line(1,0){200}} %bond 2-3 - \put(103,-171){\line(1,0){200}} %bond 6-5 -{\thicklines% - \put(0,0){\line(4,1){203}}% %bond 4-7 - \put(406,0){\line(-4,1){203}}}% %bond 1-7 -\@tfor\member:=#1\do{% -\if\member r%no endcyclic double bonds -\else \if\member a% - \put(42,6){\line(3,5){78}} %double bond 1-2 -\else \if\member b% - \put(129,138){\line(1,0){148}} %double bond 2-3 -\else \if\member c% - \put(364,6){\line(-3,5){78}} %double bond 4-3 -\else \if\member d% - \put(364,-6){\line(-3,-5){78}} %double bond 4-5 -\else \if\member e% - \put(129,-138){\line(1,0){148}} %double bond 6-5 -\else \if\member f% - \put(42,-6){\line(3,-5){78}} %double bond 1-6 -\else \if\member 7% - {\thicklines% - \put(204,51){\line(0,-1){70}}% %7,7-dimethyl - \put(204,51){\line(0,1){70}}}% -\else \if\member A%aromatic circle - \put(203,0){\circle{240}} %circle -\fi\fi\fi\fi\fi\fi\fi\fi\fi} -\setsixringh{#2}{0}{0}{7}{0} -\end{picture}} %end of \bicycheph macro -\def\@borna{% - \if\@tmpb S%single bond - \ifx\@tmpc\empty% - \yl@xdiff=8 - \yl@ydiff=3 - \put(318,247){\line(2,5){40}}% % single bond 1 - \putratom{350}{350}{\@memberb}% % right type - \else\if\@tmpc a%(a) alpha - \yl@xdiff=8 - \yl@ydiff=3 - \put(318,247){\line(2,5){40}}% % single bond 1 - \putratom{350}{350}{\@memberb}% % right type - \else\if\@tmpc b%(b) beta - \yl@xdiff=8 - \yl@ydiff=3 - \put(318,247){\line(2,5){40}}% % single bond 1 - \putratom{350}{350}{\@memberb}% % right type - \fi\fi\fi% - \else% - \yl@xdiff=8 - \yl@ydiff=3 - \put(318,247){\line(2,5){40}}% % single bond 1 - \putratom{350}{350}{\@memberb} % right type - \fi}% -\def\@bornb{% - \begin{picture}(200,200)(0,0) - \if\@tmpb S%single bond - \ifx\@tmpc\empty% - \yl@xdiff=-10 - \yl@ydiff=20 - \put(0,0){\line(5,2){160}}% - \putratom{170}{44}{\@memberb}% % left type - \else\if\@tmpc A%(A) alpha - \yl@xdiff=0 - \yl@ydiff=-5 - \putratom{140}{115}{\@memberb}% % right type - {% - \thicklines% - \put(0,0){\line(4,3){140}}% % endo (a) - }% - \else\if\@tmpc B%(B) beta - \yl@xdiff=10 - \yl@ydiff=30 - \putratom{150}{-86}{\@memberb}% % right type - \@ifundefined{dottedline}{% - \put(0,0){\line(5,-2){140}}% % exo (b) - }{{\thicklines% - \dottedline{20}(0,0)(140,-56)}}% - \else\if\@tmpc a%(a) alpha - \yl@xdiff=10 - \yl@ydiff=30 - \put(0,0){\line(5,-2){140}}% % endo (a) - \putratom{150}{-86}{\@memberb}% % right type - \else\if\@tmpc b%(b) beta - \yl@xdiff=0 - \yl@ydiff=-10 - \put(0,0){\line(4,3){140}}% % exo (b) - \putratom{140}{115}{\@memberb}% % right type - \fi\fi\fi\fi\fi% - \else \if\@tmpb D%double bond - \yl@xdiff=-10 - \yl@ydiff=20 - \put(-10,-15){\line(5,2){160}}% - \put(-5,15){\line(5,2){160}}% - \putratom{170}{44}{\@memberb}% % right type - \else \if\@tmpb A%alpha single bond - \yl@xdiff=-10 - \yl@ydiff=20 - \putratom{170}{44}{\@memberb}% % right type - {% - \thicklines% - \put(0,0){\line(5,2){160}}% - }% - \else \if\@tmpb B%beta single bond - \yl@xdiff=-10 - \yl@ydiff=20 - \putratom{170}{44}{\@memberb}% % right type - \@ifundefined{dottedline}{% - \put(0,0){\line(5,2){160}}% - }{{\thicklines% - \dottedline{20}(0,0)(160,64)}}% - \else% - \yl@xdiff=-10 - \yl@ydiff=20 - \put(0,0){\line(5,2){160}}% - \putratom{170}{44}{\@memberb}% % right type - \fi\fi\fi\fi\end{picture}}% -\def\@bornc{% - \begin{picture}(200,200)(0,0) - \if\@tmpb S%single bond - \ifx\@tmpc\empty% - \yl@xdiff=-10 - \yl@ydiff=30 - \put(0,0){\line(5,-2){140}}% - \putratom{150}{-86}{\@memberb}% % right type - \else\if\@tmpc A%(A) alpha - \yl@xdiff=-10 - \yl@ydiff=30 - \putratom{150}{26}{\@memberb}% % right type - {% - \thicklines% - \put(0,0){\line(5,2){140}}% % endo (a) - }% - \else\if\@tmpc B%(B) beta - \yl@xdiff=0 - \yl@ydiff=40 - \putratom{140}{-145}{\@memberb}% % right type - \@ifundefined{dottedline}{% - \put(0,0){\line(4,-3){140}}% % exo (b) - }{{\thicklines% - \dottedline{20}(0,0)(140,-105)}}% - \else\if\@tmpc a%(a) alpha - \yl@xdiff=0 - \yl@ydiff=40 - \put(0,0){\line(4,-3){140}}% % endo (a) - \putratom{140}{-145}{\@memberb}% % right type - \else\if\@tmpc b%(b) beta - \yl@xdiff=-10 - \yl@ydiff=30 - \put(0,0){\line(5,2){140}}% % exo (b) - \putratom{150}{26}{\@memberb}% % right type - \fi\fi\fi\fi\fi - \else \if\@tmpb D%double bond - \yl@xdiff=10 - \yl@ydiff=50 - \put(10,15){\line(5,-2){160}}% - \put(5,-15){\line(5,-2){160}}% - \putratom{170}{-124}{\@memberb}% % right type - \else \if\@tmpb A%alpha single bond - \yl@xdiff=-10 - \yl@ydiff=30 - \putratom{150}{-86}{\@memberb}% % right type - {% - \thicklines% - \put(0,0){\line(5,-2){140}}% % endo (a) - }% - \else \if\@tmpb B%beta single bond - \yl@xdiff=-10 - \yl@ydiff=30 - \putratom{150}{-86}{\@memberb}% % right type - \@ifundefined{dottedline}{% - \put(0,0){\line(5,-2){140}}% % exo (b) - }{{\thicklines% - \dottedline{20}(0,0)(140,-56)}}% - \else% - \yl@xdiff=-10 - \yl@ydiff=20 - \put(0,0){\line(5,2){160}}% - \putratom{170}{44}{\@memberb}% % right type - \fi\fi\fi\fi% -\end{picture}}% -\def\@bornd{% - \if\@tmpb S%single bond - \ifx\@tmpc\empty% - \yl@xdiff=30 - \yl@ydiff=87 - \put(237,47){\line(-2,-5){40}}% % single bond 4 - \putlratom{167}{-140}{\@memberb}% % left & right type - \else\if\@tmpc a%(a) alpha - \yl@xdiff=30 - \yl@ydiff=87 - \put(237,47){\line(-2,-5){40}}% % single bond 4 - \putlratom{167}{-140}{\@memberb}% % left & right type - \else\if\@tmpc b%(b) beta - \yl@xdiff=30 - \yl@ydiff=87 - \put(237,47){\line(-2,-5){40}}% % single bond 4 - \putlratom{167}{-140}{\@memberb}% % left & right type - \fi\fi\fi% - \else% - \yl@xdiff=30 - \yl@ydiff=87 - \put(237,47){\line(-2,-5){40}}% % single bond 4 - \putlratom{167}{-140}{\@memberb}% % left & right type - \fi}% -\def\@borne{% - \begin{picture}(200,200)(0,0) - \if\@tmpb S%single bond - \ifx\@tmpc\empty% - \yl@xdiff=10 - \yl@ydiff=30 - \put(0,0){\line(-5,-2){140}}% - \putlatom{-150}{-86}{\@memberb}% % left type - \else\if\@tmpc A%(A) alpha - \yl@xdiff=10 - \yl@ydiff=30 - \putlatom{-150}{26}{\@memberb}% % left type - {% - \thicklines% - \put(0,0){\line(-5,2){140}}% % endo (a) - }% - \else\if\@tmpc B%(B) beta - \yl@xdiff=0 - \yl@ydiff=40 - \putlatom{-140}{-145}{\@memberb}% % left type - \@ifundefined{dottedline}{% - \put(0,0){\line(-4,-3){140}}% % exo (b) - }{{\thicklines% - \dottedline{20}(0,0)(-140,-105)}}% - \else\if\@tmpc a%(a) alpha - \yl@xdiff=0 - \yl@ydiff=30 - \put(0,0){\line(-4,-3){140}}% % endo (a) - \putlatom{-140}{-145}{\@memberb}% % left type - \else\if\@tmpc b%(b) beta - \yl@xdiff=10 - \yl@ydiff=30 - \put(0,0){\line(-5,2){140}}% % exo (b) - \putlatom{-150}{26}{\@memberb}% % left type - \fi\fi\fi\fi\fi - \else \if\@tmpb D%double bond - \yl@xdiff=0 - \yl@ydiff=64 - \put(-10,15){\line(-5,-2){160}}% - \put(-5,-15){\line(-5,-2){160}}% - \putlatom{-170}{-124}{\@memberb}% % left type - \else \if\@tmpb A%alpha single bond - \yl@xdiff=10 - \yl@ydiff=30 - \putlatom{-150}{-86}{\@memberb}% % left type - {% - \thicklines% - \put(0,0){\line(-5,-2){140}}% % endo (a) - }% - \else \if\@tmpb B%beta single bond - \yl@xdiff=10 - \yl@ydiff=30 - \putlatom{-150}{-86}{\@memberb}% % left type - \@ifundefined{dottedline}{% - \put(0,0){\line(-5,-2){140}}% % exo (b) - }{{\thicklines% - \dottedline{20}(0,0)(-140,-56)}}% - \else% - \yl@xdiff=10 - \yl@ydiff=20 - \put(0,0){\line(-5,2){160}}% - \putlatom{-170}{44}{\@memberb}% % left type - \fi\fi\fi\fi% -\end{picture}}% -\def\@bornf{% - \begin{picture}(200,200)(0,0) - \if\@tmpb S%single bond - \ifx\@tmpc\empty% - \yl@xdiff=10 - \yl@ydiff=30 - \put(0,0){\line(-5,2){160}}% - \putlatom{-170}{44}{\@memberb}% % left type - \else\if\@tmpc A%(A) alpha - \yl@xdiff=10 - \yl@ydiff=-10 - \putlatom{-140}{115}{\@memberb}% % left type - {% - \thicklines% - \put(0,0){\line(-4,3){140}}% % endo (a) - }% - \else\if\@tmpc B%(B) beta - \yl@xdiff=0 - \yl@ydiff=30 - \putlatom{-150}{-86}{\@memberb}% % left type - \@ifundefined{dottedline}{% - \put(0,0){\line(-5,-2){140}}% % exo (b) - }{{\thicklines% - \dottedline{20}(0,0)(-140,-56)}}% - \else\if\@tmpc a%(a) alpha - \yl@xdiff=10 - \yl@ydiff=30 - \put(0,0){\line(-5,-2){140}}% % endo (a) - \putlatom{-150}{-86}{\@memberb}% % left type - \else\if\@tmpc b%(b) beta - \yl@xdiff=0 - \yl@ydiff=-10 - \put(0,0){\line(-4,3){140}}% % exo (b) - \putlatom{-140}{115}{\@memberb}% % left type - \fi\fi\fi\fi\fi% - \else \if\@tmpb D%double bond - \yl@xdiff=0 - \yl@ydiff=20 - \put(10,-15){\line(-5,2){160}}% - \put(5,15){\line(-5,2){160}}% - \putlatom{-170}{44}{\@memberb}% % left type - \else \if\@tmpb A%alpha single bond - \yl@xdiff=10 - \yl@ydiff=30 - \putlatom{-170}{44}{\@memberb}% % left type - {% - \thicklines% - \put(0,0){\line(-5,2){160}}% - }% - \else \if\@tmpb B%beta single bond - \yl@xdiff=10 - \yl@ydiff=30 - \putlatom{-170}{44}{\@memberb}% % left type - \@ifundefined{dottedline}{% - \put(0,0){\line(-5,2){160}}% - }{{\thicklines% - \dottedline{20}(0,0)(-160,64)}}% - \else% - \yl@xdiff=10 - \yl@ydiff=20 - \put(0,0){\line(-5,2){160}}% - \putlatom{-170}{44}{\@memberb}% % left type - \fi\fi\fi\fi\end{picture}}% -\def\@borng{% - \begin{picture}(200,200)(0,0) - \if\@tmpb S%single bond - \ifx\@tmpc\empty% - \yl@xdiff=40 - \yl@ydiff=-20 - \put(0,0){\line(0,1){160}}% - \putlratom{-40}{180}{\@memberb}% % left & right type - \else\if\@tmpc a%(a) left - \yl@xdiff=0 - \yl@ydiff=-10 - \put(0,0){\line(-4,3){140}}% % left (a) - \putlatom{-140}{115}{\@memberb}% % left type - \else\if\@tmpc b%(b) right - \yl@xdiff=0 - \yl@ydiff=-10 - \put(0,0){\line(4,3){140}}% % right (b) - \putratom{140}{115}{\@memberb}% % right type - \fi\fi\fi%\fi\fi% - \else \if\@tmpb D%double bond - \yl@xdiff=40 - \yl@ydiff=-20 - \put(-10,0){\line(0,1){160}}% - \put(10,0){\line(0,1){160}}% - \putlratom{-40}{180}{\@memberb}% % left & right type - \else% - \yl@xdiff=40 - \yl@ydiff=-20 - \put(0,0){\line(0,1){160}}% - \putlratom{-40}{180}{\@memberb}% % left & right type - \fi\fi\end{picture}}% - -\def\bornane{\@ifnextchar[{\@bornane}{\@bornane[r]}} -\def\@bornane[#1]#2{% -\@reset@ylsw% -\ylbornaneposition{#2}% -\def\@@ylii{0}\def\@@yli{0}% -\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) -\else - \begin{picture}(1000,1000)(-200,-240)%changed by SF 1998/09/26 - \iforigpt \put(-200,-240){\circle*{50}}% - \put(0,0){\circle{50}}% - \typeout{command `bornane' origin: (0,0) ---> (200,240)} - \fi% -\fi - \thicklines% - \put(0,0){\line(5,1){237}}% % bond 5 to 4 (d) - \put(237,47){\line(5,-2){225}}% % bond 4 to 3 (c) - \put(237,47){\line(0,1){400}}% % front part of bridge (h) - \thinlines% - \put(462,-43){\line(2,5){80}}% % bond 3 to 2 (b) - \put(543,157){\line(-5,2){225}}% % bond 2 to 1 (a) - \put(318,247){\line(-5,-1){237}}% % bond 1 to 6 (f) - \put(80,200){\line(-2,-5){80}}% % bond 6 to 5 (e) - \put(318,247){\line(-2,5){80}}% % back part of bridge (g) -\@tfor\member:=#1\do{% -\if\member r%no endcyclic bonds -\else \if\member a%%%% - \put(513,127){\line(-5,2){180}}% % bond 2 to 1 -\else \if\member b%%%% - \put(446,-3){\line(2,5){60}}% % bond 3 to 2 -\else \if\member c%%%% - \put(267,77){\line(5,-2){180}}% % bond 4 to 3 -\else \if\member d%%%% - \put(40,42){\line(5,1){180}}% % double bond 5 to 4 -\else \if\member e%%% - \put(100,180){\line(-2,-5){60}}% % bond 6 to 5 -\else \if\member f% - \put(288,207){\line(-5,-1){180}}% % bond 1 to 6 -\else \if\member g% - \put(288,260){\line(-2,5){40}}% % back part of bridge (g) -\else \if\member h% - \put(257,77){\line(0,1){290}}% % front part of bridge (h) -\fi\fi\fi\fi\fi\fi\fi\fi\fi}% -\@forsemicol\member:=#2\do{% -\ifx\member\empty\else -\expandafter\@m@mb@r\member;\relax% -\expandafter\threech@r\@membera{}{}% -\ifx\@memberb\@yl\else -\ifcase\@tmpa%0 omit - \or \@borna% subst. on 1 - \or \put(543,157){\@bornb}% subst. on 2 - \or \put(462,-43){\@bornc}% subst. on 3 - \or \@bornd% subst. on 4 - \or \put(0,0){\@borne}% subst. on 5 - \or \put(80,200){\@bornf}% subst. on 6 - \or \put(237,440){\@borng}% subst. on 7 -\fi%end of ifcase -\fi\fi% -}\end{picture}\iniatom\iniflag} %end of \bornane macro -\def\ylbornaneposition#1{% -\@@ylswfalse%%%\@reset@ylsw -\@forsemicol\member:=#1\do{% -\if@@ylsw\else -\ifx\member\empty\else -\expandafter\@m@mb@r\member;\relax -\expandafter\threech@r\@membera{}{}\relax -\ifx\@memberb\@yl\relax\@@ylswtrue\else\@@ylswfalse\fi -\if@@ylsw -\ifcase\@tmpa%0 omit - \or\gdef\@ylii{-318}\gdef\@yli{-247}\global\@ylswtrue% subst. on 1 - \or\gdef\@ylii{-543}\gdef\@yli{-157}\global\@ylswtrue% subst. on 2 - \or\gdef\@ylii{-462}\gdef\@yli{43}\global\@ylswtrue% subst. on 3 - \or\gdef\@ylii{-237}\gdef\@yli{-47}\global\@ylswtrue% subst. on 4 - \or\gdef\@ylii{0}\gdef\@yli{0}\global\@ylswtrue% subst. on 5 - \or\gdef\@ylii{-80}\gdef\@yli{-200}\global\@ylswtrue% subst. on 6 - \or\gdef\@ylii{-237}\gdef\@yli{-440}\global\@ylswtrue% subst. on 7 -\fi%end of ifcase -\fi\fi\fi}}% -\def\@adamanea{% - \yl@xdiff=12 - \yl@ydiff=21 - \put(-360,720){\hbox to0pt{\hss \@memberb}}% %atom 1 - \if\@tmpb a% - \put(-240,660){\line(-4,3){108}}% %bond 1 - \else \ifx\@tmpb\empty% - \put(-240,660){\line(-4,3){108}}% %bond 1 - \fi\fi}% -\def\@adamaneb{% - \if\@tmpb a% - \yl@xdiff=6 - \yl@ydiff=-16 - \put(0,780){\line(1,4){26}}% %bond 2-ax - \put(20,900){\hbox to0pt{\@memberb \hss}}% %atom 2-ax - \else \if\@tmpb b% - \yl@xdiff=-6 - \yl@ydiff=-16 - \put(0,780){\line(-1,4){26}}% %bond 2-eq - \put(-20,900){\hbox to0pt{\hss \@memberb}}% %atom 2-eq - \else \ifx\@tmpb\empty% - \yl@xdiff=42 - \yl@ydiff=-22 - \put(-42,910){\hbox to0pt{\hss \@memberb}}% %atom 2 - \put(0,780){\line(0,1){108}}% %bond 2 - \else \if\@tmpb D% - \yl@xdiff=42 - \yl@ydiff=-22 - \putlratom{-42}{910}{\@memberb}% %atom 2 - \put(-12,780){\line(0,1){108}}% %double bond 2 - \put(12,780){\line(0,1){108}}% %double bond 2 - \fi\fi\fi\fi} -\def\@adamanec{% - \yl@xdiff=-12 - \yl@ydiff=21 - \put(360,720){\hbox to0pt{\@memberb \hss}}% %atom 3 - \if\@tmpb a%1998/10/24 by SF - \put(240,660){\line(4,3){108}}% %bond 3 - \else \ifx\@tmpb\empty% - \put(240,660){\line(4,3){108}}% %bond 3 - \fi\fi} -\def\@adamaned{% - \if\@tmpb a% - \yl@xdiff=-17 - \yl@ydiff=33 - \put(300,420){\line(4,-3){103}}% %bond 4-ax - \put(420,310){\hbox to0pt{\@memberb \hss}}% %atom 4-ax - \else \if\@tmpb b% - \yl@xdiff=26 - \yl@ydiff=-26 - \put(300,420){\line(1,4){26}}% %bond 4-eq - \put(300,540){\hbox to0pt{\@memberb \hss}}% %atom 4-eq - \else \ifx\@tmpb\empty% - \yl@xdiff=-17 - \yl@ydiff=33 - \put(300,420){\line(4,-3){103}}% %bond 4 - \put(420,310){\hbox to0pt{\@memberb \hss}}% %atom 4 - \else \if\@tmpb D% - \yl@xdiff=-17 - \yl@ydiff=33 - \put(296,432){\line(5,-3){103}}% %double bond 4 - \put(292,408){\line(5,-3){103}}% %double bond 4 - \put(420,310){\hbox to0pt{\@memberb \hss}}% %atom 4 - \fi\fi\fi\fi} -\def\@adamanee{% - \yl@xdiff=20 - \yl@ydiff=110 - \if\@tmpb a%1998/10/24 by SF - \put(60,240){\line(1,-5){30}}% %bond 5 - \put(70,-20){\hbox to0pt{\@memberb \hss}}% %atom 5 - \else \ifx\@tmpb\empty% - \put(60,240){\line(1,-5){30}}% %bond 5 - \put(70,-20){\hbox to0pt{\@memberb \hss}}% %atom 5 - \fi\fi} -\def\@adamanef{% - \if\@tmpb a% - \yl@xdiff=33 - \yl@ydiff=103 - \put(0,0){\line(4,-3){103}}% %bond 6-ax - \put(70,-180){\hbox to0pt{\@memberb \hss}}% %atom 6-ax - \else \if\@tmpb b% - \yl@xdiff=-33 - \yl@ydiff=103 - \put(0,0){\line(-4,-3){103}}% %bond 6-eq - \put(-70,-180){\hbox to0pt{\hss \@memberb}}% %atom 6-eq - \else \ifx\@tmpb\empty% - \yl@xdiff=22 - \yl@ydiff=94 - \put(0,0){\line(0,-1){108}}% %bond 6 - \put(-22,-202){\hbox to0pt{\hss \@memberb}}% %atom 6 - \else \if\@tmpb D% - \yl@xdiff=42 - \yl@ydiff=94 - \put(-12,0){\line(0,-1){108}}% %double bond 6 - \put(12,0){\line(0,-1){108}}% %double bond 6 - \putlratom{-42}{-202}{\@memberb}% %atom 6 - \fi\fi\fi\fi} -\def\@adamaneg{% - \yl@xdiff=-20 - \yl@ydiff=110 - \if\@tmpb a%1998/10/24 by SF - \put(-60,240){\line(-1,-5){30}}% %bond 7 - \put(-70,-20){\hbox to0pt{\hss \@memberb}}% %atom 7 - \else \ifx\@tmpb\empty% - \put(-60,240){\line(-1,-5){30}}% %bond 7 - \put(-70,-20){\hbox to0pt{\hss \@memberb}}% %atom 7-eq - \fi\fi} -\def\@adamaneh{% - \if\@tmpb a% - \yl@xdiff=17 - \yl@ydiff=33 - \put(-300,420){\line(-4,-3){103}}% %bond 8-ax - \put(-420,310){\hbox to0pt{\hss \@memberb}}% %atom 8-ax - \else \if\@tmpb b% - \yl@xdiff=-26 - \yl@ydiff=-16 - \put(-300,420){\line(-1,4){26}}% %bond 8-eq - \put(-300,540){\hbox to0pt{\hss \@memberb}}% %atom 8-eq - \else \ifx\@tmpb\empty% - \yl@xdiff=17 - \yl@ydiff=33 - \put(-300,420){\line(-4,-3){103}}% %bond 8 - \put(-420,310){\hbox to0pt{\hss \@memberb}}% %atom 8 - \else \if\@tmpb D% - \yl@xdiff=17 - \yl@ydiff=50 - \put(-300,432){\line(-5,-3){103}}% %double bond 8 - \put(-303,408){\line(-5,-3){103}}% %double bond 8 - \put(-420,310){\hbox to0pt{\hss \@memberb}}% %atom 8 - \fi\fi\fi\fi} -\def\@adamanei{% - \if\@tmpb a% - \yl@xdiff=-43 - \yl@ydiff=93 - \put(-180,420){\line(-4,-3){103}}% %bond 9-ax - \put(-240,250){\hbox to0pt{\hss \@memberb}}% %atom 9-ax - \else \if\@tmpb b% - \yl@xdiff=26 - \yl@ydiff=-16 - \put(-180,420){\line(1,4){26}}% %bond 9-eq - \put(-180,540){\hbox to0pt{\@memberb \hss}}% %atom 9-eq - \else \ifx\@tmpb\empty% - \yl@xdiff=17 - \yl@ydiff=93 - \put(-180,420){\line(-4,-3){103}}% %bond 9 - \put(-300,250){\hbox to0pt{\hss \@memberb}}% %atom 9 - \else \if\@tmpb D% - \yl@xdiff=17 - \yl@ydiff=113 - \put(-183,432){\line(-5,-3){103}}% %double bond 9 - \put(-180,408){\line(-5,-3){103}}% %double bond 9 - \put(-300,250){\hbox to0pt{\hss \@memberb}}% %atom 9 - \fi\fi\fi\fi} -\def\@adamanej{% - \if\@tmpb a% - \yl@xdiff=43 - \yl@ydiff=92 - \put(180,420){\line(4,-3){103}}% %bond 10-ax - \put(240,250){\hbox to0pt{\@memberb \hss}}% %atom 10-ax - \else \if\@tmpb b% - \yl@xdiff=-26 - \yl@ydiff=-16 - \put(180,420){\line(-1,4){26}}% %bond 10-eq - \put(180,540){\hbox to0pt{\hss \@memberb}}% %atom 10-eq - \else \ifx\@tmpb\empty% - \yl@xdiff=43 - \yl@ydiff=92 - \put(180,420){\line(4,-3){103}}% %bond 10 - \put(240,250){\hbox to0pt{\@memberb \hss}}% %atom 10 - \else \if\@tmpb D% - \yl@xdiff=3 - \yl@ydiff=112 - \put(176,432){\line(5,-3){103}}% %double bond 10 - \put(172,408){\line(5,-3){103}}% %double bond 10 - \put(280,250){\hbox to0pt{\@memberb \hss}}% %atom 10 - \fi\fi\fi\fi} -\def\adamantane{\@ifnextchar[{\@mantane}{\@damantane[Z]}} -\def\@damantane[#1]#2{% -\@reset@ylsw% -\yladamanposition{#2}% -\def\@@ylii{0}\def\@@yli{0}% -\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) -\else - \begin{picture}(1100,1300)(-550,-300) - \iforigpt \put(-550,-300){\circle*{50}}% - \put(0,0){\circle{50}}% - \typeout{command `adamantane' origin: (0,0) ---> (550,300)} - \fi% -\fi - \put(0,0){\line(-1,4){60}}% %bond 6-7 - \put(0,780){\line(2,-1){240}}% %bond 2-3 - \put(0,780){\line(-2,-1){240}}% %bond 2-1 - \put(-60,240){\line(-4,3){240}}% %bond 7-8 - \put(-300,420){\line(1,4){60}}% %bond 8-1 - \put(240,660){\line(-1,-4){60}}% %bond 3-10 - \put(-60,240){\line(4,3){240}}% %bond 10-7 -{\thicklines% - \put(300,420){\line(-1,4){60}}% %bond 4-3 - \put(-240,660){\line(1,-4){60}}% %bond 1-9 - \put(0,0){\line(1,4){60}}% %bond 6-5 - \put(60,240){\line(4,3){240}}% %bond 5-4 - \put(60,240){\line(-4,3){240}}% %bond 5-9 -}% -\@forsemicol\member:=#2\do{% -\ifx\member\empty\else -\expandafter\@m@mb@r\member;\relax% -\expandafter\threech@r\@membera{}{}\relax% -\ifx\@memberb\@yl\else -\ifcase\@tmpa%0 omit -\or\@adamanea% subst. on 1 -\or\@adamaneb% subst. on 2 -\or\@adamanec% subst. on 3 -\or\@adamaned% subst. on 4 -\or\@adamanee% subst. on 5 -\or\@adamanef% subst. on 6 -\or\@adamaneg% subst. on 7 -\or\@adamaneh% subst. on 8 -\or\@adamanei% subst. on 9 -\or\@adamanej% subst. on 10 -\fi%the end of ifcase -\fi\fi}% -\end{picture}} %end of \adamantane macro% -\def\yladamanposition#1{% -\@@ylswfalse%%%\@reset@ylsw -\@forsemicol\member:=#1\do{% -\if@@ylsw\else -\ifx\member\empty\else -\expandafter\@m@mb@r\member;\relax -\expandafter\threech@r\@membera{}{}\relax -\ifx\@memberb\@yl\relax\@@ylswtrue\else\@@ylswfalse\fi -\if@@ylsw -\ifcase\@tmpa%0 omit - \or\gdef\@ylii{240}\gdef\@yli{-660}\global\@ylswtrue% subst. on 1 - \or\gdef\@ylii{0}\gdef\@yli{-780}\global\@ylswtrue% subst. on 2 - \or\gdef\@ylii{-240}\gdef\@yli{-660}\global\@ylswtrue% subst. on 3 - \or\gdef\@ylii{-300}\gdef\@yli{-420}\global\@ylswtrue% subst. on 4 - \or\gdef\@ylii{-60}\gdef\@yli{-240}\global\@ylswtrue% subst. on 5 - \or\gdef\@ylii{0}\gdef\@yli{0}\global\@ylswtrue% subst. on 6 - \or\gdef\@ylii{60}\gdef\@yli{-240}\global\@ylswtrue% subst. on 7 - \or\gdef\@ylii{300}\gdef\@yli{-420}\global\@ylswtrue% subst. on 8 - \or\gdef\@ylii{180}\gdef\@yli{-420}\global\@ylswtrue% subst. on 9 - \or\gdef\@ylii{-180}\gdef\@yli{-420}\global\@ylswtrue% subst. on 10 -\fi%end of ifcase -\fi\fi\fi}}% -\def\hadamantane{\@ifnextchar[{\@hadamantane}{\@hadamantane[H]}} -\def\@hadamantane[#1]#2{% -\@reset@ylsw% -\ylhadamanposition{#2}% -\def\@@ylii{0}\def\@@yli{0}% -\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) -\else - \begin{picture}(1600,1400)(-400,-319) - \iforigpt \put(-400,-319){\circle*{50}}% - \put(0,0){\circle{50}}% - \typeout{command `hadamantane' origin: (0,0) ---> (400,319)} - \fi% -\fi - \thinlines% - \put(0,0){\line(3,4){170}}% % bond 6 to 7 - \put(170,226){\line(3,-1){403}}% % 7 to 10 - \put(573,91){\line(3,1){270}}% % 10 to 3 - \put(170,226){\line(0,1){360}}% % 7 to 8 - \put(170,586){\line(3,1){270}}% % 8 to 1 - \put(843,181){\line(0,1){360}}% % 3 to 2 - \put(843,541){\line(-3,1){403}}% % 2 to 1 - \thicklines% - \put(843,181){\line(-3,-4){170}}% % 3 to 4 - \put(673,-46){\line(-3,1){403}}% % 4 to 5 - \put(0,0){\line(3,1){270}}% % 6 to 5 - \put(270,90){\line(0,1){360}}% % 5 to 9 - \put(270,450){\line(3,4){170}}% % 9 to 1 - \thinlines% -\@tfor\member:=#1\do{% -\if\member r%no endocyclic bonds -\else \if\member a% - \put(450,636){\line(3,-1){373}}% % double bond 1 to 2 -\else \if\member b% - \put(803,206){\line(0,1){320}}% % 3 to 2 -\else \if\member c%%%a% - \put(767,139){\line(-3,-4){110}}% % 3 to 4 -\else \if\member d%%%b% - \put(640,-5){\line(-3,1){343}}% % 4 to 5 -\else \if\member e%%%%c% - \put(240,111){\line(-3,-1){190}}% % 5 to 6 -\else \if\member f%%%d% - \put(63,40){\line(3,4){110}}% % 6 to 7 -\else \if\member g% - \put(200,246){\line(0,1){320}}% % 7 to 8 -\else \if\member h% - \put(400,626){\line(-3,-1){190}}% % 8 to 1 -\else \if\member i% - \put(450,636){\line(-3,-4){150}}% % 9 to 1 -\else \if\member j% - \put(300,110){\line(0,1){320}}% % 5 to 9 -\else \if\member k%%%f% - \put(768,131){\line(-3,-1){170}}% % 3 to 10 -\else \if\member l% - \put(182,187){\line(3,-1){343}}% % 7 to 10 -\fi\fi\fi\fi\fi\fi% -\fi\fi\fi\fi\fi\fi\fi}% -\@forsemicol\member:=#2\do{% -\ifx\member\empty\else -\expandafter\@m@mb@r\member;\relax% -\expandafter\threech@r\@membera{}{}% -\ifx\@memberb\@yl\else -\ifcase\@tmpa% %0 omit - \or \put(440,676){\@chairiI}% %subst. on 1%%%9 - \or \put(843,541){\@chairiII}% %subst. on 2%%10 - \or \@chairiIII% %subst. on 3%%%4 - \or \@chairiIV% %subst. on 4%%%3 - \or \@chairiV% %subst. on 5%%%2 - \or \@chairiVI% %subst. on 6%%%1 - \or \@chairiVII% %subst. on 7%%%6 - \or \put(170,586){\@chairiVIII}%subst. on 8%%%8 - \or \put(270,450){\@chairiIX}% %subst. on 9%%%7 - \or \@chairiX% %subst. on 10%%5 -\fi %end of ifcase -\fi\fi% -}\end{picture}}% %end of \hadamantane macro -\def\ylhadamanposition#1{% -\@@ylswfalse%%%\@reset@ylsw -\@forsemicol\member:=#1\do{% -\if@@ylsw\else -\ifx\member\empty\else -\expandafter\@m@mb@r\member;\relax -\expandafter\threech@r\@membera{}{}\relax -\ifx\@memberb\@yl\relax\@@ylswtrue\else\@@ylswfalse\fi -\if@@ylsw -\ifcase\@tmpa%0 omit - \or\gdef\@ylii{-440}\gdef\@yli{-676}\global\@ylswtrue% subst. on 1 - \or\gdef\@ylii{-843}\gdef\@yli{-541}\global\@ylswtrue% subst. on 2 - \or\gdef\@ylii{-843}\gdef\@yli{-181}\global\@ylswtrue% subst. on 3 - \or\gdef\@ylii{-673}\gdef\@yli{46}\global\@ylswtrue% subst. on 4 - \or\gdef\@ylii{-270}\gdef\@yli{-90}\global\@ylswtrue% subst. on 5 - \or\gdef\@ylii{0}\gdef\@yli{0}\global\@ylswtrue% subst. on 6 - \or\gdef\@ylii{-170}\gdef\@yli{-226}\global\@ylswtrue% subst. on 7 - \or\gdef\@ylii{-170}\gdef\@yli{-586}\global\@ylswtrue% subst. on 8 - \or\gdef\@ylii{-270}\gdef\@yli{-450}\global\@ylswtrue% subst. on 9 - \or\gdef\@ylii{-573}\gdef\@yli{-91}\global\@ylswtrue% subst. on 10 -\fi%end of ifcase -\fi\fi\fi}}% -\def\@chairiVI{% - \if\@tmpb a%single bond - \yl@xdiff=42 - \yl@ydiff=92 - \put(0,0){\line(0,-1){168}}% single bond at 6 axial - \putlratom{-42}{-260}{\@memberb}% left & right type - \else\if\@tmpb b%single bond - \yl@xdiff=16 - \yl@ydiff=36 - \put(0,0){\line(-5,3){144}}% single bond at 6 equatorial - \putlatom{-160}{50}{\@memberb}% left type - \else\if\@tmpb S%single bond - \ifx\@tmpc\empty% - \yl@xdiff=10 - \yl@ydiff=90 - \put(0,0){\line(-1,-1){120}}% single bond at 6 - \putlatom{-130}{-210}{\@memberb}% left type - \else\if\@tmpc a%(a) axial - \yl@xdiff=42 - \yl@ydiff=92 - \put(0,0){\line(0,-1){168}}% single bond at 6 axial - \putlratom{-42}{-260}{\@memberb}% left & right type - \else\if\@tmpc e%(e) beta - \yl@xdiff=16 - \yl@ydiff=36 - \put(0,0){\line(-5,3){144}}% single bond at 6 equatorial - \putlatom{-160}{50}{\@memberb}% left type - \fi\fi\fi% - \else \if\@tmpb D%double bond - \yl@xdiff=10 - \yl@ydiff=90 - \putlatom{-130}{-210}{\@memberb}% left type - \put(-10,10){\line(-1,-1){120}}% double bond at 6 - \put(10,-10){\line(-1,-1){120}}% double bond at 6 - \else% - \yl@xdiff=10 - \yl@ydiff=90 - \putlatom{-130}{-210}{\@memberb}% left type - \put(0,0){\line(-1,-1){120}}% single bond at 6 - \fi\fi\fi\fi}% -\def\@chairiVII{% - \if\@tmpb a%single bond - \yl@xdiff=26 - \yl@ydiff=46 - \put(170,226){\line(-5,-3){144}}% single bond at 7 equatorial - \putlatom{10}{94}{\@memberb}% left type - \else\ifx\@tmpb\empty%single bond - \yl@xdiff=26 - \yl@ydiff=46 - \put(170,226){\line(-5,-3){144}}% single bond at 7 equatorial - \putlatom{10}{94}{\@memberb}% left type - \else\if\@tmpb S%single bond - \ifx\@tmpc\empty% - \yl@xdiff=10 - \yl@ydiff=30 - \put(170,226){\line(-1,1){120}}% single bond at 7 - \putratom{40}{316}{\@memberb}% left type - \else\if\@tmpc a%(a) axial - \yl@xdiff=32 - \yl@ydiff=12 - \put(170,226){\line(0,1){168}}% single bond at 7 axial - \putlratom{138}{406}{\@memberb}% left & right type - \else\if\@tmpc e%(e) beta - \yl@xdiff=26 - \yl@ydiff=46 - \put(170,226){\line(-5,-3){144}}% single bond at 7 equatorial - \putlatom{10}{94}{\@memberb}% left type - \fi\fi\fi% - \else \if\@tmpb D%double bond - \yl@xdiff=10 - \yl@ydiff=30 - \putlatom{40}{316}{\@memberb}% left type - \put(160,216){\line(-1,1){120}}% double bond at 7 - \put(180,236){\line(-1,1){120}}% double bond at 7 - \else% - \yl@xdiff=10 - \yl@ydiff=30 - \putlatom{40}{316}{\@memberb}% left type - \put(170,226){\line(-1,1){120}}% single bond at 7 - \fi\fi\fi\fi}% -\def\@chairiX{% - \if\@tmpb a%single bond - \yl@xdiff=40 - \yl@ydiff=104 - \put(573,91){\line(0,-1){168}}% single bond at 5 axial - \putlratom{533}{-181}{\@memberb}% left type - \else\if\@tmpb b%single bond - \yl@xdiff=-36 - \yl@ydiff=3 - \put(573,91){\line(5,3){144}}% single bond at 5 equatorial - \putlatom{753}{180}{\@memberb}% left type - \else\if\@tmpb S%single bond - \ifx\@tmpc\empty% - \yl@xdiff=-10 - \yl@ydiff=56 - \put(573,91){\line(5,-4){170}}% single bond at 5 - \putratom{753}{-101}{\@memberb}% right type - \else\if\@tmpc a%(a) axial - \yl@xdiff=40 - \yl@ydiff=104 - \put(573,91){\line(0,-1){168}}% single bond at 5 axial - \putlratom{533}{-181}{\@memberb}% left type - \else\if\@tmpc e%(e) beta - \yl@xdiff=-36 - \yl@ydiff=3 - \put(573,91){\line(5,3){144}}% single bond at 5 equatorial - \putlatom{753}{180}{\@memberb}% left type - \fi\fi\fi% - \else \if\@tmpb D%double bond - \yl@xdiff=10 - \yl@ydiff=86 - \putratom{733}{-141}{\@memberb}% right type - \put(563,83){\line(5,-4){170}}% double bond at 5 - \put(583,99){\line(5,-4){170}}% double bond at 5 - \else% - \yl@xdiff=-10 - \yl@ydiff=76 - \put(573,91){\line(5,-4){170}}% single bond at 5 - \putratom{753}{-121}{\@memberb}% right type - \fi\fi\fi\fi}% -\def\@chairiIII{% - \if\@tmpb a%single bond - \yl@xdiff=-16 - \yl@ydiff=64 - \put(843,181){\line(5,-3){144}}% single bond at 3 equatorial - \putratom{1003}{31}{\@memberb}% right type - \else\ifx\@tmpb\empty%single bond - \yl@xdiff=-16 - \yl@ydiff=64 - \put(843,181){\line(5,-3){144}}% single bond at 3 equatorial - \putratom{1003}{31}{\@memberb}% right type - \else\if\@tmpb S%single bond - \ifx\@tmpc\empty% - \yl@xdiff=10 - \yl@ydiff=30 - \put(843,181){\line(1,1){120}}% single bond at 3 - \putratom{953}{271}{\@memberb}% right type - \else\if\@tmpc a%(a) axial - \yl@xdiff=42 - \yl@ydiff=11 - \put(843,181){\line(0,1){168}}% single bond at 3 axial - \putlratom{801}{360}{\@memberb}% left & right type - \else\if\@tmpc e%(e) beta - \yl@xdiff=-16 - \yl@ydiff=64 - \put(843,181){\line(5,-3){144}}% single bond at 3 equatorial - \putratom{1003}{31}{\@memberb}% right type - \fi\fi\fi% - \else \if\@tmpb D%double bond - \yl@xdiff=0 - \yl@ydiff=30 - \putratom{953}{271}{\@memberb}% right type - \put(833,191){\line(1,1){120}}% double bond at 3 - \put(853,171){\line(1,1){120}}% double bond at 3 - \else% - \yl@xdiff=10 - \yl@ydiff=30 - \put(843,181){\line(1,1){120}}% single bond at 3 - \putratom{953}{271}{\@memberb}% right type - \fi\fi\fi\fi}% -\def\@chairiIV{% - \if\@tmpb a%single bond - \yl@xdiff=40 - \yl@ydiff=104 - \put(673,-46){\line(0,-1){168}}% single bond at 4 axial - \putlratom{633}{-318}{\@memberb}% left & right type - \else\if\@tmpb b%single bond - \yl@xdiff=-6 - \yl@ydiff=17 - \put(673,-46){\line(5,3){144}}% single bond at 4 equatorial - \putratom{823}{23}{\@memberb}% right type - \else\if\@tmpb S%single bond - \ifx\@tmpc\empty% - \yl@xdiff=-10 - \yl@ydiff=92 - \put(673,-46){\line(1,-1){120}}% single bond at 4 - \putratom{803}{-258}{\@memberb}% right type - \else\if\@tmpc a%(a) axial - \yl@xdiff=40 - \yl@ydiff=104 - \put(673,-46){\line(0,-1){168}}% single bond at 4 axial - \putlratom{633}{-318}{\@memberb}% left & right type - \else\if\@tmpc e%(e) beta - \yl@xdiff=-6 - \yl@ydiff=17 - \put(673,-46){\line(5,3){144}}% single bond at 4 equatorial - \putratom{823}{23}{\@memberb}% right type - \fi\fi\fi% - \else \if\@tmpb D%double bond - \yl@xdiff=-10 - \yl@ydiff=92 - \putratom{803}{-258}{\@memberb}% right type - \put(663,-53){\line(1,-1){120}}% double bond at 4 - \put(683,-38){\line(1,-1){120}}% double bond at 4 - \else% - \yl@xdiff=-10 - \yl@ydiff=76 - \put(673,-46){\line(5,-4){170}}% single bond at 4 - \putratom{853}{-258}{\@memberb}% right type - \fi\fi\fi\fi}% -\def\@chairiV{% - \if\@tmpb a%single bond - \yl@xdiff=26 - \yl@ydiff=102 - \put(270,90){\line(-5,-3){144}}% single bond at 5 equatorial - \putratom{100}{-98}{\@memberb}% left type - \else\ifx\@tmpb\empty%single bond - \yl@xdiff=26 - \yl@ydiff=102 - \put(270,90){\line(-5,-3){144}}% single bond at 5 equatorial - \putratom{100}{-98}{\@memberb}% left type - \else\if\@tmpb S%single bond - \ifx\@tmpc\empty% - \yl@xdiff=0 - \yl@ydiff=46 - \put(270,90){\line(-5,4){170}}% single bond at 5 - \putlatom{100}{180}{\@memberb}% left type - \else\if\@tmpc a%(a) axial - \yl@xdiff=32 - \yl@ydiff=12 - \put(270,90){\line(0,1){168}}% single bond at 5 axial - \putlratom{238}{270}{\@memberb}% left type - \else\if\@tmpc e%(e) beta - \yl@xdiff=36 - \yl@ydiff=102 - \put(270,90){\line(-5,-3){144}}% single bond at 5 equatorial - \putratom{100}{-98}{\@memberb}% left type - \fi\fi\fi% - \else \if\@tmpb D%double bond - \yl@xdiff=0 - \yl@ydiff=36 - \putlatom{100}{200}{\@memberb}% left or right type - \put(260,80){\line(-5,4){170}}% double bond at 5 - \put(280,100){\line(-5,4){170}}% double bond at 5 - \else% - \yl@xdiff=0 - \yl@ydiff=26 - \putlatom{100}{200}{\@memberb}% left type - \put(270,90){\line(-5,4){170}}% single bond at 5 - \fi\fi\fi\fi}% -\def\@chairiI{% - \if\@tmpb a%single bond - \yl@xdiff=42 - \yl@ydiff=-10 - \put(0,0){\line(0,1){168}}% single bond at 1 axial - \putlratom{-42}{178}{\@memberb}% left & right type - \else\ifx\@tmpb\empty% - \yl@xdiff=42 - \yl@ydiff=-10 - \put(0,0){\line(0,1){168}}% single bond at 1 axial - \putlratom{-42}{178}{\@memberb}% left & right type - \else\if\@tmpb S%single bond - \ifx\@tmpc\empty% - \yl@xdiff=42 - \yl@ydiff=-10 - \put(0,0){\line(0,1){168}}% single bond at 1 axial - \putlratom{-42}{178}{\@memberb}% left & right type - \else\if\@tmpc a%(a) axial - \yl@xdiff=42 - \yl@ydiff=-10 - \put(0,0){\line(0,1){168}}% single bond at 1 axial - \putlratom{-42}{178}{\@memberb}% left & right type - \else\if\@tmpc e%(e) beta - \yl@xdiff=42 - \yl@ydiff=-10 - \put(0,0){\line(0,1){168}}% single bond at 1 axial - \putlratom{-42}{178}{\@memberb}% left & right type - \fi\fi\fi% - \else \if\@tmpb D%double bond - \yl@xdiff=42 - \yl@ydiff=-10 - \put(0,0){\line(0,1){168}}% single bond at 1 axial - \putlratom{-42}{178}{\@memberb}% left & right type - \else% - \yl@xdiff=42 - \yl@ydiff=-10 - \put(0,0){\line(0,1){168}}% single bond at 1 axial - \putlratom{-42}{178}{\@memberb}% left & right type - \fi\fi\fi\fi}% -\def\@chairiII{% - \if\@tmpb a%single bond - \yl@xdiff=-10 - \yl@ydiff=13 - \put(0,0){\line(3,1){190}}% single bond at 6 equatorial - \putratom{200}{50}{\@memberb}% right type - \else\if\@tmpb b%single bond - \yl@xdiff=-10 - \yl@ydiff=0 - \put(0,0){\line(3,4){120}}% % bond 1 to 6 - \putratom{130}{160}{\@memberb}% left type - \else\if\@tmpb S%single bond - \ifx\@tmpc\empty% - \yl@xdiff=-10 - \yl@ydiff=-10 - \put(0,0){\line(1,1){120}}% single bond at 1 - \putratom{130}{130}{\@memberb}% left type - \else\if\@tmpc a%(a) axial - \yl@xdiff=-10 - \yl@ydiff=0 - \put(0,0){\line(3,4){120}}% % bond 1 to 6 - \putratom{130}{160}{\@memberb}% left type - \else\if\@tmpc e%(e) beta - \yl@xdiff=-10 - \yl@ydiff=13 - \put(0,0){\line(3,1){190}}% single bond at 6 equatorial - \putratom{200}{50}{\@memberb}% right type - \fi\fi\fi% - \else \if\@tmpb D%double bond - \yl@xdiff=-10 - \yl@ydiff=-10 - \putratom{130}{130}{\@memberb}% left type - \put(-10,10){\line(1,1){120}}% double bond at 1 - \put(10,-10){\line(1,1){120}}% double bond at 1 - \else% - \yl@xdiff=-10 - \yl@ydiff=-10 - \putratom{130}{130}{\@memberb}% left type - \put(0,0){\line(1,1){120}}% single bond at 1 - \fi\fi\fi\fi}% -\def\@chairiVIII{% - \if\@tmpb a%single bond - \yl@xdiff=16 - \yl@ydiff=36 - \put(0,0){\line(-5,3){144}}% single bond at 1 equatorial - \putlatom{-160}{50}{\@memberb}% left type - \else\if\@tmpb b%single bond - \yl@xdiff=-10 - \yl@ydiff=0 - \put(0,0){\line(3,4){120}}% % bond 1 to 6 - \putratom{130}{160}{\@memberb}% left type - \else\if\@tmpb S%single bond - \ifx\@tmpc\empty% - \yl@xdiff=4 - \yl@ydiff=36 - \put(0,0){\line(-5,3){144}}% single bond at 1 equatorial - \putlatom{-140}{50}{\@memberb}% left type - \else\if\@tmpc e% right-hand - \yl@xdiff=-10 - \yl@ydiff=0 - \put(0,0){\line(3,4){120}}% % bond 1 to 6 - \putratom{130}{160}{\@memberb}% left type - \else\if\@tmpc a% left-hand - \yl@xdiff=16 - \yl@ydiff=36 - \put(0,0){\line(-5,3){144}}% single bond at 1 equatorial - \putlatom{-160}{50}{\@memberb}% left type - \fi\fi\fi% - \else \if\@tmpb D%double bond - \yl@xdiff=4 - \yl@ydiff=26 - \putlatom{-140}{60}{\@memberb}% left type - \put(10,10){\line(-5,3){144}}% single bond at 1 equatorial - \put(0,-10){\line(-5,3){144}}% single bond at 1 equatorial - \else% - \yl@xdiff=4 - \yl@ydiff=36 - \put(0,0){\line(-5,3){144}}% single bond at 1 equatorial - \putlatom{-140}{50}{\@memberb}% left type - \fi\fi\fi\fi}% -\def\@chairiIX{% - \if\@tmpb a%single bond - \yl@xdiff=16 - \yl@ydiff=36 - \put(0,0){\line(-5,3){144}}% single bond at 1 equatorial - \putlatom{-160}{50}{\@memberb}% left type - \else\if\@tmpb b%single bond - \yl@xdiff=-16 - \yl@ydiff=36 - \put(0,0){\line(5,3){144}}% single bond at 6 equatorial - \putratom{160}{50}{\@memberb}% left type - \else\if\@tmpb S%single bond - \ifx\@tmpc\empty% - \yl@xdiff=4 - \yl@ydiff=36 - \put(0,0){\line(-5,3){144}}% single bond at 1 equatorial - \putlatom{-140}{50}{\@memberb}% left type - \else\if\@tmpc e% right-hand - \yl@xdiff=-16 - \yl@ydiff=36 - \put(0,0){\line(5,3){144}}% single bond at 6 equatorial - \putratom{160}{50}{\@memberb}% left type - \else\if\@tmpc a% left-hand - \yl@xdiff=16 - \yl@ydiff=36 - \put(0,0){\line(-5,3){144}}% single bond at 1 equatorial - \putlatom{-160}{50}{\@memberb}% left type - \fi\fi\fi% - \else \if\@tmpb D%double bond - \yl@xdiff=4 - \yl@ydiff=36 - \putlatom{-140}{50}{\@memberb}% left type - \put(10,10){\line(-5,3){144}}% single bond at 1 equatorial - \put(0,-10){\line(-5,3){144}}% single bond at 1 equatorial - \else% - \yl@xdiff=4 - \yl@ydiff=36 - \put(0,0){\line(-5,3){144}}% single bond at 1 equatorial - \putlatom{-140}{50}{\@memberb}% left type - \fi\fi\fi\fi}% -\endinput -%% -%% End of file `ccycle.sty'. diff --git a/Master/texmf-dist/tex/latex/xymtex/chemist.sty b/Master/texmf-dist/tex/latex/xymtex/chemist.sty deleted file mode 100644 index 68a92e21478..00000000000 --- a/Master/texmf-dist/tex/latex/xymtex/chemist.sty +++ /dev/null @@ -1,936 +0,0 @@ -%% -%% This is file `chemist.sty', -%% generated with the docstrip utility. -%% -%% The original source files were: -%% -%% chemist.dtx (with options: `chemist') -%% -%% This is a generated file. -%% -%% Copyright 1996, 2000 by Shinsaku Fujita -%% -%% This file is part of the ChemSci system. -%% ======================================= -%% -%% Released on June 1, 1996 -%% Released on November 3, 2000 (v2.00a) -%% -%% Copyright (C) 1996 by Shinsaku Fujita, all rights reserved. -%% This style file is created for submitting a manuscript to -%% scientific journals. This style file is to be contained in the -%% ``chemist'' directory which is an input directory for TeX. -%% -%% For using this file, see -%% Shinsaku Fujita, ``LaTeX for Chemists and Biochemists'' -%% Tokyo Kagaku Dojin, Tokyo (1993), Chapter 16. -%% -%% 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 -%% ``chemist'' directory and -%% (b) you acknowledge the original name. -%% This restriction ensures that all standard styles are identical. -%% -%% ======================================= -%% -%% This file is a modification of latex.tex (LaTeX2.09) and of latex.ltx -%% (a LaTeX2e), the reused parts of which is 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.) -%% -%% \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 \~} -%% -%% `chemist.dtx' ver1.01a (for LaTeX2e) 1996/06/15 -%% by Shinsaku Fujita -%% -\def\j@urnalname{chemist} \def\journalID{chemist} -\def\versi@ndate{November 3, 2000} -\def\versi@nno{ver2.00a} -\def\copyrighth@lder{SF} % Shinsaku Fujita -\typeout{Package `\j@urnalname' (\versi@nno) <\versi@ndate>\space -[\copyrighth@lder]} -\typeout{chemist.sty ver2.00a (for LaTeX2e) 2000/11/03[SF]} -\@ifundefined{chapter}{\newcounter{compd}}{\newcounter{compd}[chapter]} -\def\thecompd{\arabic{compd}} -\def\compd{\leavevmode\refstepcounter{compd}{\large\bf \thecompd}} -\def\nocompd{\refstepcounter{compd}} -\def\compdlabel#1{\compd \label{#1}} -\def\nocompdlabel#1{\nocompd \label{#1}} -\@ifundefined{bf}{\def\bf{\normalfont\bfseries}}{} -\def\cref#1{{\bf \ref{#1}}} -\def\compdfbox#1#2#3{\framebox[#1]{\rule[-0.3mm]{0pt}{#2} #3 }} -\def\compdmbox#1#2#3{\makebox[#1]{\rule[-0.3mm]{0pt}{#2} #3 }} -\def\lbcompdpbox#1#2#3{\parbox{#2}{\vskip 2em - \parbox{#2}{#3 \par \centering{\compdlabel{#1}}\vskip 2em }}} -\newcounter{deriv}[compd] -\def\thederiv {\thecompd\alph{deriv}} -\def\deriv{\leavevmode\refstepcounter{deriv}{\large\bf \thederiv}} -\def\noderiv{\refstepcounter{deriv}} -\def\derivnum{% -\leavevmode\refstepcounter{deriv}{\large\bf \alph{deriv}}} -\def\derivlabel#1{\deriv \label{#1}} -\def\noderivlabel#1{\noderiv \label{#1}} -\def\derivfbox#1#2#3{\framebox[#1]{\rule[-0.3mm]{0pt}{#2} #3 }} -\def\derivmbox#1#2#3{\makebox[#1]{\rule[-0.3mm]{0pt}{#2} #3 }} -\def\lbderivpbox#1#2#3{\parbox{#2}{\vskip 2em - \parbox{#2}{#3 \par \centering{\derivlabel{#1}}\vskip 2em }}} -\def\deriva{\leavevmode\refstepcounter{deriv}{\large\bf \alph{deriv}}} -\def\noderiva{\refstepcounter{deriv}} -\def\derivalabel#1{\deriva \label{#1}} -\def\noderivalabel#1{\noderiva \label{#1}} -\def\cdonecell#1#2#3{\raisebox{#1}{\parbox{#2}{\centering{#3}}}} -\def\cdtwocell#1#2#3#4{\raisebox{#1}{ - \parbox{#2}{\centering{#3} \par \vskip 3pt \centering{#4} }}} -\def\leftrightarrowfill{$\m@th \mathord\leftarrow \mkern-6mu - \cleaders\hbox{$\mkern-2mu \mathord- \mkern-2mu$}\hfill - \mkern-6mu \mathord\rightarrow$} -\def\Leftarrowfill{$\m@th \mathord\Leftarrow \mkern-6mu - \cleaders\hbox{$\mkern-2mu \mathord= \mkern-2mu$}\hfill - \mkern-6mu \mathord=$} -\def\Rightarrowfill{$\m@th \mathord= \mkern-6mu - \cleaders\hbox{$\mkern-2mu \mathord= \mkern-2mu$}\hfill - \mkern-6mu \mathord\Rightarrow$} -\def\Leftrightarrowfill{$\m@th \mathord\Leftarrow \mkern-6mu - \cleaders\hbox{$\mkern-2mu \mathord= \mkern-2mu$}\hfill - \mkern-6mu \mathord\Rightarrow$} -\def\reactrarrow{\@ifnextchar[{\react@rarrow}{\react@rarrow[0pt]}} -\def\react@rarrow[#1]#2#3#4#5{\hskip#1\raisebox{#2}{% - \parbox{#3}{\centering - \baselineskip=.8\normalbaselineskip #4 \par - \vskip-0.2\normalbaselineskip - \rightarrowfill \par - \vskip-0.1\normalbaselineskip #5}}} -\def\reactlarrow{\@ifnextchar[{\react@larrow}{\react@larrow[0pt]}} -\def\react@larrow[#1]#2#3#4#5{\hskip#1\raisebox{#2}{% - \parbox{#3}{\centering - \baselineskip=.8\normalbaselineskip #4 \par - \vskip-0.2\normalbaselineskip - \leftarrowfill \par - \vskip-0.1\normalbaselineskip #5}}} -\def\reactlrarrow{\@ifnextchar[{\react@lrarrow}{\react@lrarrow[0pt]}} -\def\react@lrarrow[#1]#2#3#4#5{\hskip#1\raisebox{#2}{% - \parbox{#3}{\centering - \baselineskip=.8\normalbaselineskip - #4 \par - \vskip-0.2\normalbaselineskip - \centering{\leftrightarrowfill} \par - \vskip-0.1\normalbaselineskip #5}}} -\def\reacteqarrow{\@ifnextchar[{\react@eqarrow}{\react@eqarrow[0pt]}} -\def\react@eqarrow[#1]#2#3#4#5{\hskip#1\raisebox{#2}{% - \parbox{#3}{\centering - \baselineskip=.8\normalbaselineskip - #4 \par - \vskip-0.2\normalbaselineskip - \rightarrowfill \par \vskip-0.55\normalbaselineskip% - \leftarrowfill \par - \vskip-0.1\normalbaselineskip #5}}} -\def\k@nz@n#1{\@tempdima=#1\relax -\@tempcnta=\@tempdima \@tempcntb=\unitlength -\divide\@tempcnta by \@tempcntb -\edef\kanzanchi{\the\@tempcnta}% -\divide\@tempcnta by2\relax -\edef\kanzanhalf{\the\@tempcnta}} -\def\reactdarrow{\@ifnextchar[{\react@darrow}{\react@darrow[0pt]}} -\def\react@darrow[#1]#2#3#4#5{\hskip#1\raisebox{#2}{\k@nz@n{#3}% -\def\arraystretch{0.8}% -\begin{tabular}{l}#4\end{tabular}% -{\tabcolsep=0pt -\begin{tabular}{c}\begin{picture}(0,\kanzanchi)(0,0) -\put(0,\kanzanchi){\vector(0,-1){\kanzanchi}} -\end{picture}\end{tabular}}% -\begin{tabular}{l}#5\end{tabular}}} -\def\reactuarrow{\@ifnextchar[{\react@uarrow}{\react@uarrow[0pt]}} -\def\react@uarrow[#1]#2#3#4#5{\hskip#1\raisebox{#2}{\k@nz@n{#3}% -\def\arraystretch{0.8}% -\begin{tabular}{l}#4\end{tabular}% -{\tabcolsep=0pt -\begin{tabular}{c}\begin{picture}(0,\kanzanchi)(0,0) -\put(0,0){\vector(0,1){\kanzanchi}} -\end{picture}\end{tabular}}% -\begin{tabular}{l}#5\end{tabular}}} -\def\reactveqarrow{\@ifnextchar[%] -{\react@veqarrow}{\react@veqarrow[0pt]}} -\def\react@veqarrow[#1]#2#3#4#5{\hskip#1\raisebox{#2}{\k@nz@n{#3}% -\def\arraystretch{0.8}% -\begin{tabular}{l}#4\end{tabular}% -{\tabcolsep=0pt -\begin{tabular}{c}\begin{picture}(40,\kanzanchi)(0,0) -\put(40,0){\vector(0,1){\kanzanchi}} -\put(0,\kanzanchi){\vector(0,-1){\kanzanchi}} -\end{picture}\end{tabular}}% -\begin{tabular}{l}#5\end{tabular}}} -\def\reactduarrow{\@ifnextchar[{\react@duarrow}{\react@duarrow[0pt]}} -\def\react@duarrow[#1]#2#3#4#5{\hskip#1\raisebox{#2}{\k@nz@n{#3}% -\def\arraystretch{0.8}% -\begin{tabular}{l}#4\end{tabular}% -{\tabcolsep=0pt -\begin{tabular}{c}\begin{picture}(0,\kanzanchi)(0,0) -\put(0,\kanzanhalf){\vector(0,1){\kanzanhalf}} -\put(0,\kanzanhalf){\vector(0,-1){\kanzanhalf}} -\end{picture}\end{tabular}}% -\begin{tabular}{l}#5\end{tabular}}} -\def\reactsearrow{\@ifnextchar[{\react@searrow}{\react@searrow[0pt]}} -\def\react@searrow[#1]#2#3#4#5{\hskip#1\raisebox{#2}{\k@nz@n{#3}% -\def\arraystretch{0.8}% -\begin{picture}(\kanzanchi,\kanzanchi)(0,0) -\put(0,\kanzanchi){\vector(1,-1){\kanzanchi}} -\put(\kanzanhalf,\kanzanhalf){\hbox to0pt{% -\begin{tabular}[b]{l}#4\end{tabular}\hss}} -\put(\kanzanhalf,\kanzanhalf){\lower2ex\hbox to0pt{\hss -\begin{tabular}[t]{r}#5\end{tabular}}} -\end{picture}}} -\def\reactnwarrow{\@ifnextchar[{\react@nwarrow}{\react@nwarrow[0pt]}} -\def\react@nwarrow[#1]#2#3#4#5{\hskip#1\raisebox{#2}{\k@nz@n{#3}% -\def\arraystretch{0.8}% -\begin{picture}(\kanzanchi,\kanzanchi)(0,0) -\put(\kanzanchi,0){\vector(-1,1){\kanzanchi}} -\put(\kanzanhalf,\kanzanhalf){\hbox to0pt{% -\begin{tabular}[b]{l}#4\end{tabular}\hss}} -\put(\kanzanhalf,\kanzanhalf){\lower2ex\hbox to0pt{\hss -\begin{tabular}[t]{r}#5\end{tabular}}} -\end{picture}}} -\def\reactnearrow{\@ifnextchar[{\react@nearrow}{\react@nearrow[0pt]}} -\def\react@nearrow[#1]#2#3#4#5{\hskip#1\raisebox{#2}{\k@nz@n{#3}% -\def\arraystretch{0.8}% -\begin{picture}(\kanzanchi,\kanzanchi)(0,0) -\put(0,0){\vector(1,1){\kanzanchi}} -\put(\kanzanhalf,\kanzanhalf){\lower2ex\hbox to0pt{% -\begin{tabular}[t]{l}#5\end{tabular}\hss}} -\put(\kanzanhalf,\kanzanhalf){\hbox to0pt{\hss -\begin{tabular}[b]{r}#4\end{tabular}}} -\end{picture}}} -\def\reactswarrow{\@ifnextchar[{\react@swarrow}{\react@swarrow[0pt]}} -\def\react@swarrow[#1]#2#3#4#5{\hskip#1\raisebox{#2}{\k@nz@n{#3}% -\def\arraystretch{0.8}% -\begin{picture}(\kanzanchi,\kanzanchi)(0,0) -\put(\kanzanchi,\kanzanchi){\vector(-1,-1){\kanzanchi}} -\put(\kanzanhalf,\kanzanhalf){\lower2ex\hbox to0pt{% -\begin{tabular}[t]{l}#5\end{tabular}\hss}} -\put(\kanzanhalf,\kanzanhalf){\hbox to0pt{\hss -\begin{tabular}[b]{r}#4\end{tabular}}} -\end{picture}}} -\def\reactdeqarrow{\@ifnextchar[%] -{\react@deqarrow}{\react@deqarrow[0pt]}} -\def\react@deqarrow[#1]#2#3#4#5{\hskip#1\raisebox{#2}{\k@nz@n{#3}% -\def\arraystretch{0.8}% -\begin{picture}(\kanzanchi,\kanzanchi)(0,0) -\put(0,\kanzanchi){\put(15,15){\vector(1,-1){\kanzanchi}}} -\put(\kanzanchi,0){\put(-15,-15){\vector(-1,1){\kanzanchi}}} -\put(\kanzanhalf,\kanzanhalf){\raise1ex\hbox to0pt{% -\begin{tabular}[b]{l}#4\end{tabular}\hss}} -\put(\kanzanhalf,\kanzanhalf){\lower2ex\hbox to0pt{\hss -\begin{tabular}[t]{r}#5\end{tabular}}} -\end{picture}}} -\def\reactueqarrow{\@ifnextchar[%] -{\react@ueqarrow}{\react@ueqarrow[0pt]}} -\def\react@ueqarrow[#1]#2#3#4#5{\hskip#1\raisebox{#2}{\k@nz@n{#3}% -\def\arraystretch{0.8}% -\begin{picture}(\kanzanchi,\kanzanchi)(0,0) -\put(0,0){\put(-15,15){\vector(1,1){\kanzanchi}}} -\put(\kanzanchi,\kanzanchi){\put(15,-15){\vector(-1,-1){\kanzanchi}}} -\put(\kanzanhalf,\kanzanhalf){\lower2ex\hbox to0pt{% -\begin{tabular}[t]{l}#5\end{tabular}\hss}} -\put(\kanzanhalf,\kanzanhalf){\raise1ex\hbox to0pt{\hss -\begin{tabular}[b]{r}#4\end{tabular}}} -\end{picture}}} -\def\reactulrarrow{\@ifnextchar[%] -{\react@ulrarrow}{\react@ulrarrow[0pt]}} -\def\react@ulrarrow[#1]#2#3#4#5{\hskip#1\raisebox{#2}{\k@nz@n{#3}% -\def\arraystretch{0.8}% -\begin{picture}(\kanzanchi,\kanzanchi)(0,0) -\put(\kanzanhalf,\kanzanhalf){\vector(1,1){\kanzanhalf}} -\put(\kanzanhalf,\kanzanhalf){\vector(-1,-1){\kanzanhalf}} -\put(\kanzanhalf,\kanzanhalf){\lower2ex\hbox to0pt{% -\begin{tabular}[t]{l}#5\end{tabular}\hss}} -\put(\kanzanhalf,\kanzanhalf){\raise1ex\hbox to0pt{\hss -\begin{tabular}[b]{r}#4\end{tabular}}} -\end{picture}}} -\def\reactdlrarrow{\@ifnextchar[%] -{\react@dlrarrow}{\react@dlrarrow[0pt]}} -\def\react@dlrarrow[#1]#2#3#4#5{\hskip#1\raisebox{#2}{\k@nz@n{#3}% -\def\arraystretch{0.8}% -\begin{picture}(\kanzanchi,\kanzanchi)(0,0) -\put(\kanzanhalf,\kanzanhalf){\vector(-1,1){\kanzanhalf}} -\put(\kanzanhalf,\kanzanhalf){\vector(1,-1){\kanzanhalf}} -\put(\kanzanhalf,\kanzanhalf){\hbox to0pt{% -\begin{tabular}[b]{l}#4\end{tabular}\hss}} -\put(\kanzanhalf,\kanzanhalf){\lower2ex\hbox to0pt{\hss -\begin{tabular}[t]{r}#5\end{tabular}}} -\end{picture}}} -\def\schemelarrow#1#2#3#4{\raisebox{#1}{% - \parbox{#2}{\centering - \baselineskip=.8\normalbaselineskip #3 \par - \vskip-0.2\normalbaselineskip - \centering{\Leftarrowfill} \par - \vskip-0.1\normalbaselineskip #4}}} -\def\schemerarrow#1#2#3#4{\raisebox{#1}{% - \parbox{#2}{\centering - \baselineskip=.8\normalbaselineskip #3 \par - \vskip-0.2\normalbaselineskip - \centering{\Rightarrowfill} \par - \vskip-0.1\normalbaselineskip #4}}} -\def\schemelrarrow#1#2#3#4{\raisebox{#1}{% - \parbox{#2}{\centering - \baselineskip=.8\normalbaselineskip #3 \par - \vskip-0.2\normalbaselineskip - \centering{\Leftrightarrowfill} \par - \vskip-0.1\normalbaselineskip #4}}} -\def\changespace#1{\def\baselinestretch{#1} \@normalsize} -\def\tbcaption{\def\@captype{table}\caption} -\def\fgcaption{\def\@captype{figure}\caption} -\def\smcaption{\def\@captype{scheme}\caption} -%%%%%%%%%%%1991 November 7%%%chapinitial%%%%%%%%%%%%% -\def\chap@initial#1% -{\medbreak\begingroup\clubpenalty=10000 - \def\par{\endgraf\endgroup\medbreak} - \noindent\hangindent28pt\hangafter=-2 -\hbox to0pt{\hskip-\hangindent -\hbox to28pt{\hss\raise-4pt\hbox{\lower3pt\hbox{\Huge\bf #1}} } -} \hskip-5pt plus2pt minus2pt} -\outer\def\chapinitial{\chap@initial} -\def\yen{\leavevmode\hbox{\setbox0=\hbox{Y}% -\setbox1=\vbox{\hrule height.05\ht0 width.96\wd0% -\kern.18\ht0\hrule height.05\ht0 width.96\wd0}% -\setbox1=\hbox to\wd0{\raise.3\ht0\box1\hss}% -{\ooalign{\hfil\box1\hfil\crcr\box0}}}} -\newif\ifverbswitch \verbswitchtrue -\let\old@verbatim\@verbatim -\let\old@xverbatim\@xverbatim -\let\old@sxverbatim\@sxverbatim -\begingroup - \catcode`\|=0 \catcode`\\=13 - |gdef|verbh@@k{|catcode`|\=13 |let\=|yen} -|endgroup -\def\verb{\begingroup \catcode``=13 \@noligs - \tt \let\do\@makeother \dospecials - \ifverbswitch \verbh@@k \fi \@ifstar{\@sverb}{\@verb}} -\begingroup -\catcode`|=0 \catcode`[=1 \catcode`]=2 -\catcode`\{=12 \catcode`\}=12 \catcode`\\=13 -|gdef|@xverbatim#1\end{verbatim}[#1|end[verbatim]] -|gdef|@sxverbatim#1\end{verbatim*}[#1|end[verbatim*]] -|endgroup -\newdimen\verbatimleftmargin \verbatimleftmargin\leftmargini -\newdimen\verbatimbaselineskip \verbatimbaselineskip11pt -\def\verbatimsize{\small} -\def\@verbatim{\trivlist \item[]% - \if@minipage \else \vskip\baselineskip% - \vskip-\verbatimbaselineskip \vskip\parskip\fi - \leftskip\@totalleftmargin - \if@minipage \else \advance\leftskip\verbatimleftmargin \fi - \rightskip\z@ \parindent\z@ \parfillskip\@flushglue \parskip\z@ - \@tempswafalse \def\par{\if@tempswa\hbox{}\fi\@tempswatrue\@@par} - \obeylines \verbatimsize \baselineskip\verbatimbaselineskip \tt - \catcode``=13 \@noligs \let\do\@makeother \dospecials} -\def\verbatim{\ifverbswitch \@verbatim \else \old@verbatim \fi -\frenchspacing \@vobeyspaces -\ifverbswitch \verbh@@k \@xverbatim \else \old@xverbatim \fi} -\@namedef{verbatim*}{% - \ifverbswitch \@verbatim \verbh@@k \@sxverbatim - \else \old@verbatim \old@sxverbatim \fi} -\def\@sverb#1{\def\@tempa ##1#1{##1\endgroup}\@tempa} -\def\@verb{\obeyspaces \frenchspacing \@sverb} -\def\@sverbtim{\obeyspaces\@verbatim} -\let\endverbatim=\endtrivlist -\@namedef{varbatim*}{\@verbatim\@sxverbatim} -\expandafter\let\csname endverbatim*\endcsname =\endtrivlist -\long\def\fb@xit#1#2#3#4{% -\setbox4=\vbox{\hsize#3\noindent#4}% -\vbox{\hrule\@height#1\hbox{\vrule\@width#1\kern#2\vbox{% -\kern#2\box4\kern#2}\kern#1\vrule\@width#1}\hrule\@height#1}} -\long\def\fboxit#1#2{\fb@xit{\fboxrule}{\fboxsep}{#1}{#2}} -\long\def\leftshfr@me#1#2#3#4{\leavevmode% - \vbox{\hbox{\hsize #3\vbox{% - \hbox{\vrule\@width #1% - \vbox{\kern-#1\fb@xit{% - \fboxrule}{#2}{#3}{#4}\kern-\fboxrule}\kern-#1}% - \hrule\@height#1}}}\strut\hskip #1\relax} -\long\def\leftshframe#1#2{% - \leftshfr@me{\fboxsep}{\fboxsep}{#1}{#2}} -\long\def\leftshfbox#1{\leavevmode\setbox0=\hbox{\fbox{#1}}% - \vbox{\hbox{\vbox{\hbox{\vrule\@width\fboxsep\vbox{% - \kern-\fboxsep\box0\kern-\fboxrule}\kern-\fboxsep}% - \hrule\@height\fboxsep}}}\hskip\fboxsep\relax} %%%% -\long\def\rightshfr@me#1#2#3#4{\leavevmode% - \vbox{\hbox{\kern#1\vbox{\hsize#3\vbox{\kern-#1\hbox{% - \kern-#1\fb@xit{\fboxrule}{#2}{#3}{#4}}\hrule\@height#1}}% - \vrule\@width#1}}\strut} -\long\def\rightshframe#1#2{% - \rightshfr@me{\fboxsep}{\fboxsep}{#1}{#2}} -\long\def\rightshfbox#1{\leavevmode% - \vbox{\hbox{\kern\fboxsep\vbox{\vbox{\kern-\fboxsep\hbox{% - \kern-\fboxsep\fbox{#1}}\hrule\@height\fboxsep}}% - \vrule\@width\fboxsep}}} -\def\ffboxit{\par\vskip1pc\hfil\vbox\bgroup - \hrule\hbox\bgroup\vrule\kern3pt\vbox\bgroup\kern3pt} -\def\endffboxit{\kern3pt\egroup\kern3pt\vrule\egroup\hrule\egroup - \hfil\\} -\def\ffparbox#1#2{\vbox{\hsize=#1 \noindent\strut #2\strut}} -\long\def\fr@meboxit#1#2#3{\gdef\fr@meline{#1}\gdef\fr@mesp{#2}% - \global\setbox4=\hbox\bgroup\minipage{#3}} -\def\endfr@meboxit{\endminipage\egroup% - \hbox{\vbox{\hrule\@height\fr@meline% - \hbox{\vrule\@width\fr@meline\kern\fr@mesp% - \vbox{\kern\fr@meline\kern\fr@mesp\box4\kern\fr@mesp}% - \kern\fr@mesp}\hrule\@height\fr@meline}% - \vrule\@width\fr@meline}} -\def\frameboxit#1{\leavevmode\fr@meboxit{\fboxrule}{\fboxsep}{#1}} -\let\endframeboxit=\endfr@meboxit -\def\lshfr@meboxit#1#2#3#4{\gdef\sh@hwidth{#1}\gdef\sh@vwidth{#2}% -\leavevmode% - \vbox\bgroup\hbox\bgroup\hsize #4\vbox\bgroup% - \hbox\bgroup\vrule\@width\sh@vwidth% - \vbox\bgroup\kern-\sh@hwidth\fr@meboxit{\fboxrule}{#3}{#4}} -\def\endlshfr@meboxit{\endfr@meboxit%%%%\kern-\fboxrule - \egroup\kern-\sh@vwidth\egroup% - \hrule\@height\sh@hwidth\egroup\egroup\egroup% - \strut\kern\sh@hwidth\relax} -\def\lshfboxit#1{\leavevmode% - \lshfr@meboxit{\fboxsep}{\fboxsep}{\fboxsep}{#1}} -\let\endlshfboxit=\endlshfr@meboxit -\def\rshfr@meboxit#1#2#3#4{% - \gdef\sh@hwidth{#1}\gdef\sh@vwidth{#2}% - \leavevmode% - \vbox\bgroup\hbox\bgroup\kern\sh@vwidth% - \vbox\bgroup\hsize#4\vbox\bgroup% - \kern-\sh@hwidth\hbox\bgroup\kern-\sh@vwidth% - \fr@meboxit{\fboxrule}{#3}{#4}} -\def\endrshfr@meboxit{\endfr@meboxit\egroup% - \hrule\@height\sh@hwidth% - \egroup\egroup\vrule\@width\sh@vwidth\egroup\egroup\strut} -\def\rshfboxit#1{\leavevmode% - \rshfr@meboxit{\fboxsep}{\fboxsep}{\fboxsep}{#1}} -\let\endrshfboxit=\endrshfr@meboxit -\newdimen\hsgr@d \newdimen\vsgr@d -\newdimen\vwgr@d \newdimen\hwgr@d -\newdimen\vsepgr@d \newdimen\hsepgr@d -\newcount\nrep \newcount\nrepmax -\nrepmax=25 -\def\grshfr@meboxit#1#2#3#4{% - \hsgr@d=0pt \advance\hsgr@d by#1 \divide\hsgr@d by\nrepmax% - \vsgr@d=0pt \advance\vsgr@d by#2 \divide\vsgr@d by\nrepmax% - \leavevmode% - \setbox0=\vbox\bgroup\fr@meboxit{\fboxrule}{#3}{#4}} -\def\brb@xit#1{\vbox{\setbox1=\hbox{#1}% - \offinterlineskip% - \hbox{\copy1\vsepgr@d=\nrep\vsgr@d% - \vwgr@d=\ht1\advance\vwgr@d by-\vsepgr@d% - \vrule\@height\vwgr@d\@width\vsgr@d}% - \hbox{\hsepgr@d=\nrep\hsgr@d\kern\hsepgr@d% - \vbox{\hwgr@d=\wd1\advance\hwgr@d by-\hsepgr@d% - \hrule\@height\hsgr@d\@width\hwgr@d}}}} -\def\lprb@xit{\expandafter\setbox0=\expandafter\brb@xit{\box0}} -\def\endgrshfr@meboxit{\endfr@meboxit\egroup% - \nrep=\@ne\@whilenum\nrep<\nrepmax\do% - {\lprb@xit\advance\nrep\@ne}\box0\relax} -\def\grshfboxit#1{\leavevmode% - \grshfr@meboxit{\fboxsep}{\fboxsep}{\fboxsep}{#1}} -\let\endgrshfboxit=\endgrshfr@meboxit -\def\glshfr@meboxit#1#2#3#4{% - \hsgr@d=0pt \advance\hsgr@d by#1 \divide\hsgr@d by\nrepmax% - \vsgr@d=0pt \advance\vsgr@d by#2 \divide\vsgr@d by\nrepmax% - \leavevmode% - \setbox0=\vbox\bgroup\fr@meboxit{\fboxrule}{#3}{#4}} -\def\blb@xit#1{% - \vbox{\setbox1=\hbox{#1}% - \offinterlineskip% - \vsepgr@d=\nrep\vsgr@d% - \vwgr@d=\ht1\advance\vwgr@d by-\vsepgr@d% - \hsepgr@d=\nrep\hsgr@d% - \hwgr@d=\wd1\advance\hwgr@d by-\hsepgr@d% - \hbox{\vrule\@height\vwgr@d\@width\vsgr@d\copy1}% - \hbox{\kern-\vsgr@d% - \vrule\@height\hsgr@d\@width\hwgr@d}}} -\def\lplb@xit{\expandafter\setbox0=\expandafter\blb@xit{\box0}} -\def\endglshfr@meboxit{\endfr@meboxit\egroup% - \nrep=\@ne\@whilenum\nrep<\nrepmax\do% - {\lplb@xit\advance\nrep\@ne}\box0\relax} -\def\glshfboxit#1{\leavevmode% - \glshfr@meboxit{\fboxsep}{\fboxsep}{\fboxsep}{#1}} -\let\endglshfboxit=\endglshfr@meboxit -\@ifundefined{ybaselineshift}{% -\newdimen\ybaselineshift \ybaselineshift=\z@}{} -\@ifundefined{tbaselineshift}{% -\newdimen\tbaselineshift \tbaselineshift=\z@}{} -\newdimen\@savetbaselineshift \@savetbaselineshift=\z@ -\def\@oval(#1,#2)[#3]{\begingroup\boxmaxdepth \maxdimen - \@ovttrue \@ovbtrue \@ovltrue \@ovrtrue - \@tfor\@tempa :=#3\do{\csname @ov\@tempa false\endcsname}\@ovxx - #1\unitlength \@ovyy #2\unitlength - \@tempdimb \ifdim \@ovyy >\@ovxx \@ovxx\else \@ovyy \fi - \advance\@tempdimb -2pt\relax - \@getcirc \@tempdimb - \@ovro \ht\@tempboxa \@ovri \dp\@tempboxa - \@ovdx\@ovxx \advance\@ovdx -\@tempdima \divide\@ovdx \tw@ - \@ovdy\@ovyy \advance\@ovdy -\@tempdima \divide\@ovdy \tw@ - \@circlefnt \setbox\@tempboxa - \hbox{\if@ovr \@ovvert32\kern -\@tempdima \fi - \if@ovl \kern \@ovxx \@ovvert01\kern -\@tempdima \kern -\@ovxx \fi - \if@ovt \@ovhorz \kern -\@ovxx \fi - \if@ovb \raise \@ovyy \@ovhorz \fi}\advance\@ovdx\@ovro - \advance\@ovdy\@ovro \ht\@tempboxa\z@ \dp\@tempboxa\z@ - \@put{-\@ovdx}{-\@ovdy}{\box\@tempboxa}% - \endgroup} -\def\h@b@x#1#2#3{\hbox to\dimen1% - {\@oval(#3,#3)[#1]\hfil\@oval(#3,#3)[#2]}} -\def\@vrf@#1#2{\vskip#1\leaders\vrule\@width#2\vfil\vskip#1} -\let\miniscreentoprule=\hrule -\def\miniscreen{\@ifnextchar[{\@miniscreen}{\@miniscreen[0]}} -\def\miniscreen{\@ifnextchar[{\@miniscreen}{\@miniscreen[0]}} -\def\@miniscreen[#1]#2{\dimen1=#2\relax% -\@savetbaselineshift\tbaselineshift \tbaselineshift\z@ -\@tempcnta=-2 \multiply\@tempcnta by#1\relax% -\advance\@tempcnta by 20\relax \dimen5=1pt -\multiply\dimen5\@tempcnta -\dimen4=-1pt \multiply\dimen4 by#1\relax -\advance\dimen4 by 10pt -\dimen3=\dimen4 \advance\dimen3 by -.2pt -\par\vspace{.3\baselineskip}% -\dimen2=\dimen1 \advance\dimen2 by .1pt -\advance\dimen1 -\dimen5\relax% -\setbox0=\hbox\bgroup\minipage{\dimen1 -\tbaselineshift\@savetbaselineshift}}% -\def\endminiscreen{\endminipage\egroup% -\setbox1=\hbox to\dimen2{\hfil\vbox{\offinterlineskip% -\thinlines\unitlength=1pt -\miniscreentoprule%\hrule -\kern\dimen3% -\h@b@x{tl}{tr}{\@tempcnta}% -\kern-\dimen4\box0\h@b@x{bl}{br}{\@tempcnta}% -\kern-.4pt\hrule}\hfil}\dimen0=\ht1\noindent% -\hbox to\dimen2{\hbox to.4pt{% -\vbox to\dimen0{\@vrf@{\dimen4}{.4pt}}\hss}% -\box1\hbox to.2pt{% - \hss\vbox to\dimen0{\@vrf@{\dimen4}{.4pt}}}\hss}}% -\def\screen{\@ifnextchar[{\@screen}{\@miniscreen[0]{\linewidth}}} -\def\@screen[#1]{\miniscreen[#1]{\linewidth}} -\let\endscreen=\endminiscreen -\def\tboxscreentoprule{% -\hbox to\wd0{\smash{\lower.4ex\hbox{% -\fboxsep=2pt \fbox{\small \tboxtitle}}}\hrulefill}} -\def\tboxtitle{\bf Memorandum} -\def\tboxminiscreen{\@ifnextchar[{\vskip8pt - \let\miniscreentoprule=\tboxscreentoprule% - \@miniscreen}{\vskip8pt - \let\miniscreentoprule=\tboxscreentoprule% - \@miniscreen[0]}} -\let\endtboxminiscreen=\endminiscreen -\def\tboxscreen{\@ifnextchar[{\@tboxscreen}% -{\@tboxscreen[0]}} -\def\@tboxscreen[#1]{\tboxminiscreen[#1]{\linewidth}} -\let\endtboxscreen=\endtboxminiscreen -\def\sboxit#1#2{\vbox{\hrule\hbox% -{\vrule\vbox{\kern3pt\vbox{\hsize #1 \noindent #2}% -\kern3pt}\vrule}\hrule}} -\def\bury{\@ifnextchar [{\@bury}{\@bury[.5\normalbaselineskip]}} -\def\@bury[#1]#2{\smash{\lower#1\hbox{#2}}} -\def\finpushw@ll{\wd0=0pt \box0} -\def\makepushw@ll#1{\setbox0=\hbox{#1}\finpushw@ll} -\def\mathpushw@ll#1#2{\setbox0=\hbox{$\m@th#1{#2}$}\finpushw@ll} -\def\pushtowall{\relax \leavevmode - \ifmmode\def\next{\mathpalette\mathpushw@ll} - \else\let\next\makepushw@ll \fi \next} -\def\penetrate#1#2{\pushtowall{\hbox{\hskip#1\hbox{#2}}}} -\def\cyan{\mbox{$\bigcirc$\kern-.06em{--}\kern-.06em - \ooalign{\hfil - \raise.05ex\hbox{\scriptsize C}\hfil\cr\cr$\bigcirc$}\,}} -\def\magenta{\mbox{$\bigcirc$\kern-.06em{--}\kern-.06em - \ooalign{\hfil - \raise.05ex\hbox{\scriptsize M}\hfil\cr\cr$\bigcirc$}\,}} -\def\yellow{\mbox{$\bigcirc$\kern-.06em{--}\kern-.06em - \ooalign{\hfil - \raise.05ex\hbox{\scriptsize Y}\hfil\cr\cr$\bigcirc$}\,}} -\def\cyandv{\mbox{$\bigotimes$\kern-.06em{--}\kern-.06em - \ooalign{\hfil - \raise.05ex\hbox{\scriptsize C}\hfil\cr\cr$\bigcirc$}\,}} -\def\magentadv{\mbox{$\bigotimes$\kern-.06em{--}\kern-.06em - \ooalign{\hfil - \raise.05ex\hbox{\scriptsize M}\hfil\cr\cr$\bigcirc$}\,}} -\def\yellowdv{\mbox{$\bigotimes$\kern-.06em{--}\kern-.06em - \ooalign{\hfil - \raise.05ex\hbox{\scriptsize Y}\hfil\cr\cr$\bigcirc$}\,}} -\def\agxlatent{% - \mbox{\ooalign{% - \hfil\raise.07ex\hbox{\footnotesize $\bullet$}\hfil\cr\cr - $\triangle$}\,}} -\def\agxdv{% - \mbox{\ooalign{\hfil\raise.07ex\hbox{% - \small $\spadesuit$}\hfil\cr\cr - $\triangle$}\,}} -\def\agx{\mbox{$\triangle$}} -\def\llongrightarrow{%%%---> -\relbar\joinrel\relbar\joinrel\relbar\joinrel\rightarrow} -\def\llongleftarrow{%%%<--- - \leftarrow\joinrel\relbar\joinrel\relbar\joinrel\relbar} -\def\llongleftrightarrow{%%%<---> - \leftarrow\joinrel\relbar\joinrel\relbar\joinrel\rightarrow} -\def\Equilibarrow{%%%<--- and ---> - \mathrel{\ooalign{\raise.35ex\hbox{$\llongrightarrow$}\crcr - \lower.35ex\hbox{$\llongleftarrow$}}}} -\def\Llongrightarrow{%%%===> - \Relbar\joinrel\Relbar\joinrel\Relbar\joinrel\Rightarrow} -\def\Llongleftarrow{%%%<=== - \Leftarrow\joinrel\Relbar\joinrel\Relbar\joinrel\Relbar} -\def\Llongleftrightarrow{%%<===> - \Leftarrow\joinrel\Relbar\joinrel\Relbar\joinrel\Rightarrow} - -\def\llongleftharpoondown{%%% /--- - \leftharpoondown\joinrel\relbar\joinrel\relbar\joinrel\relbar} -\def\llongrightharpoonup{%%%---/ - \relbar\joinrel\relbar\joinrel\relbar\joinrel\rightharpoonup} -\def\equilibarrow{%%% /--- and ---/ - \mathrel{\ooalign{% - \raise.3ex\hbox{$\llongrightharpoonup$}\crcr - \lower.3ex\hbox{$\llongleftharpoondown$}}}} -\def\eqproton{\stackrel{{\rm \displaystyle H}^{+}}{\Equilibarrow}} -\def\lllongrightarrow{\relbar\joinrel\relbar% - \joinrel\relbar\joinrel\relbar\joinrel\rightarrow} -\def\lllongleftarrow{%%%<------- - \leftarrow\joinrel\relbar\joinrel\relbar% - \joinrel\relbar\joinrel\relbar} -\def\lllongleftrightarrow{%%%<-------> - \leftarrow\joinrel\relbar\joinrel\relbar% - \joinrel\relbar\joinrel\rightarrow} -\def\Equiliblongarrow{%%%<------- and -------> - \mathrel{\ooalign{\raise.35ex\hbox{$\lllongrightarrow$}\crcr - \lower.35ex\hbox{$\lllongleftarrow$}}}} -\def\Lllongrightarrow{%%%=======> - \Relbar\joinrel\Relbar\joinrel\Relbar\joinrel% - \Relbar\joinrel\Rightarrow} -\def\Lllongleftarrow{%%%<======= - \Leftarrow\joinrel\Relbar\joinrel\Relbar\joinrel% - \Relbar\joinrel\Relbar} -\def\Lllongleftrightarrow{%%<=======> - \Leftarrow\joinrel\Relbar\joinrel\Relbar\joinrel% - \Relbar\joinrel\Rightarrow} -\def\lllongleftharpoondown{%%% /------- - \leftharpoondown\joinrel\relbar\joinrel\relbar% - \joinrel\relbar\joinrel\relbar} -\def\lllongrightharpoonup{%%%-------/ - \relbar\joinrel\relbar\joinrel\relbar\joinrel% - \relbar\joinrel\rightharpoonup} -\def\equiliblongarrow{%%% /------ and ------/ - \mathrel{\ooalign{% - \raise.3ex\hbox{$\lllongrightharpoonup$}\crcr - \lower.3ex\hbox{$\lllongleftharpoondown$}}}} -\def\deHBr{\stackrel{\displaystyle \rm -HBr}% -{\stackrel{\displaystyle \lllongrightarrow}{\rm E2}}} -\def\chemcorr{% - \fontdimen16\textfont2=3.5pt - \fontdimen17\textfont2=3.5pt - %\fontdimen14\textfont2=3.8pt -} -\def\leavechemcorr{% - \fontdimen16\textfont2=1.49998pt - \fontdimen17\textfont2=2.47217pt - %\fontdimen14\textfont2=3.62892pt -} -\newif\ifnewl@tex \newl@textrue -\@ifundefined{DeclareMathVersion}% - {\global\newl@texfalse}{\global\newl@textrue}% -\ifnewl@tex\@ifundefined{mv@chem}{\DeclareMathVersion{chem}% - \SetSymbolFont{letters}{chem}{OT1}{cmr}{m}{n}}{}\fi -\ifnewl@tex -\def\chemform#1{{\mathversion{chem}% -$\chemcorr #1$\leavechemcorr}} -\else -\def\chemform#1{\chemcorr -$\rm #1$\leavechemcorr} -\fi -\ifnewl@tex -\def\chemmath{\begingroup\mathversion{chem}\[\chemcorr} -\def\endchemmath{\]\endgroup\leavechemcorr} -\else -\def\chemmath{\chemcorr\[\rm} -\def\endchemmath{\] \leavechemcorr} -\fi -\ifnewl@tex -\def\chemeqn{\begingroup\mathversion{chem}\equation\chemcorr} -\def\endchemeqn{\endequation\endgroup\leavechemcorr} -\else -\def\chemeqn{\chemcorr\equation\rm} -\def\endchemeqn{\endequation\leavechemcorr} -\fi -\ifnewl@tex -\def\chemeqnarray{\stepcounter{equation} - \let\@currentlabel=\theequation - \global\@eqnswtrue - \global\@eqcnt\z@\tabskip\@centering - \let\\=\@eqncr - \begingroup\mathversion{chem} -$$\chemcorr\halign to \displaywidth\bgroup - \@eqnsel\hskip\@centering - $\rm \displaystyle\tabskip\z@{##}$ & - \global\@eqcnt\@ne - \hskip \arraycolsep \hfil$\rm{##}$\hfil & - \global\@eqcnt\tw@ \hskip \arraycolsep - $\rm \displaystyle\tabskip\z@{##}$\hfil - \tabskip\@centering & - \llap{##}\tabskip\z@\cr} -\def\endchemeqnarray{\endeqnarray\endgroup -\leavechemcorr} -\else -\def\chemeqnarray{\stepcounter{equation} - \let\@currentlabel=\theequation - \global\@eqnswtrue - \global\@eqcnt\z@\tabskip\@centering - \let\\=\@eqncr \chemcorr -$$\halign to \displaywidth\bgroup - \@eqnsel\hskip\@centering - $\rm \displaystyle\tabskip\z@{##}$ & - \global\@eqcnt\@ne - \hskip \arraycolsep \hfil$\rm{##}$\hfil & - \global\@eqcnt\tw@ \hskip \arraycolsep - $\rm \displaystyle\tabskip\z@{##}$\hfil - \tabskip\@centering & - \llap{##}\tabskip\z@\cr} -\def\endchemeqnarray{\endeqnarray -\leavechemcorr} -\fi -\let\@seqncr=\@eqncr -\ifnewl@tex -\@namedef{chemeqnarray*}{% -\def\@eqncr{\nonumber\@seqncr}\chemeqnarray} -\@namedef{endchemeqnarray*}{\nonumber\endchemeqnarray} -\else -\@namedef{chemeqnarray*}{% -\def\@eqncr{\nonumber\@seqncr\rm}\chemeqnarray} -\@namedef{endchemeqnarray*}{\nonumber\endchemeqnarray} -\fi -\def\chemeqnarraya{\chemeqn@rraya \chemeqnarray} -\def\chemeqn@rraya{% - \c@enumi=\c@equation - \advance\c@enumi\@ne - \c@equation=\z@ - \@ifundefined{chapter}% -{\def\theequation{\theenumi\alph{equation}}}% -{\def\theequation{% -\thechapter.\theenumi\alph{equation}}}} -\def\endchemeqnarraya{\endchemeqnarray -\global\c@equation=\c@enumi} -\def\XyMcompd(#1,#2)(#3,#4)#5#6{% -\begingroup -\edef\xymrefa{#5}\edef\xymrefb{#6}% -\edef\kkk{#1}% -\begin{tabular}{c} -\ifx\kkk\empty\else -\begin{picture}(#1,#2)(#3,#4)\fi\ignorespaces} -\def\endXyMcompd{% -\ifx\kkk\empty\else\end{picture}\fi -\\[-\baselineskip] -\ifx\xymrefa\empty\else{\bf \compd\xymrefb -\expandafter\label{\xymrefa}}\fi -\end{tabular}\endgroup} -\def\XyMtab#1{\center\tabular{#1c}} -\def\endXyMtab{\endtabular\endcenter} -\def\derivlist#1{% -\mbox{}\\ -\begingroup\def\arraystretch{0.7}% -\begin{tabular}{l} -\@forsemicol\member:=#1\do{% -\ifx\member\empty\else% -\hbox to2em{\hss\derivnum}:\space\member \\ -\fi}\end{tabular}\endgroup} -\def\XyMderiv{\tabular{c}} -\def\endXyMderiv{\endtabular} -\def\endash{\mbox{--{}}} -\def\Cent{\mbox{\raise.9ex\hbox{% - \scriptsize$\circ$}\kern-.12em\hbox{C}}} -\def\degC{\mbox{\kern-.2em\char'27\kern-.3em C}} -\def\degF{\mbox{\kern-.2em\char'27\kern-.3em F}} - -\def\yubin{$\overline{\top}$} -\def\Yubin#1{\leavevmode\hbox{\vbox{\hrule\@height.12ex\@width.7em -\kern.28ex\hrule\@height.12ex\@width.7em -\hbox{\kern.35em\kern-.06ex -\vbox{\hrule\@height1ex\@width.12ex}}}\kern.1em{#1}}} -\def\xlethead#1{% - \kern-.6667\baselineskip \line{\hrulefill\phantom{ #1 }\hrulefill} - \kern-.6667\baselineskip \line{\hrulefill\phantom{ #1 }\hrulefill} - \kern-.6667\baselineskip \line{\hrulefill\hbox{ #1 }\hrulefill}} -\def\lethead#1#2#3{\def\line{\hbox to\textwidth} - \vbox{\line{\hrulefill} - \xlethead{#1} \xlethead{#2} \xlethead{#3} - \kern-.6667\baselineskip \line{\hrulefill}}} -\def\horizon{\rule{12pt}{0.1pt}} -\newcount\TestCount \def\tmpkern{\kern0pt} -\ifnewl@tex \else -\def\resetfontsize{% - \ifx\@currsize\normalsize% - \def\tmpf@ntsize{% - \load{\footnotesize}{\sf}% - \load{\footnotesize}{\sl}% - \load{\footnotesize}{\bf}% - \def\tmpkern{\kern0.05em}% - \footnotesize}\fi - \ifx\@currsize\scriptsize \let\tmpf@ntsize=\tiny\fi - \ifx\@currsize\footnotesize \let\tmpf@ntsize=\tiny\fi - \ifx\@currsize\small \let\tmpf@ntsize=\scriptsize\fi - \ifx\@currsize\large \let\tmpf@ntsize=\small\fi - \ifx\@currsize\Large \let\tmpf@ntsize=\@normalsize\fi - \ifx\@currsize\LARGE \let\tmpf@ntsize=\large\fi - \ifx\@currsize\huge \let\tmpf@ntsize=\Large\fi - \ifx\@currsize\Huge \let\tmpf@ntsize=\LARGE\fi} -\fi -\ifnewl@tex \else -\def\Bib{\ifnum \fam=\m@ne \fam=\z@ \fi\TestCount=\fam\leavevmode% - \edef\aaa{\fontname\scriptfont\fam}% - \edef\bbb{\fontname\textfont\fam}% - \resetfontsize% - \hbox{$\fam=\TestCount\textstyle B$}% - \ifx\aaa\bbb% - \hbox{\tmpf@ntsize\bf - $\fam=\TestCount\kern-.025em I\kern-.045em B$}% - \else% - \hbox{$\fam\TestCount\scriptstyle\kern-.025em I\kern-.045em B$}% - \fi -} -\fi -\ifnewl@tex -\DeclareRobustCommand{\BibTeX}{% - B\hbox{$\m@th$\csname S@\f@size\endcsname - \fontsize\sf@size\z@ \math@fontsfalse\selectfont - \kern-.025em I\kern-.045em B}\kern-.08em\TeX} -\else \def\BibTeX{\Bib\kern-.08em\TeX} \fi -\ifnewl@tex -\DeclareRobustCommand{\jBibTeX}{\mbox{% - \if b\expandafter\@car\f@series\@nil\boldmath\fi - \leavevmode\lower.46ex\hbox{J}\kern-.08em\BibTeX}} -\else -\def\jBibTeX{\leavevmode\lower.46ex\hbox{J}% - \kern-.08em\Bib\kern-.08em\TeX} -\fi -\def\jTeX{\leavevmode\lower.46ex\hbox{J}\kern-.15em\TeX} -\def\pTeX{p\kern-.15em\TeX} -\ifnewl@tex \else -\def\Sub{\leavevmode\ifnum \fam=\m@ne \fam=\z@ \fi% - \TestCount=\fam{S}% - \edef\aaa{\fontname\scriptfont\fam}% - \edef\bbb{\fontname\textfont\fam}% - \ifx\aaa\bbb\resetfontsize% - \hbox{\tmpf@ntsize\bf% - $\fam=\TestCount\kern-.045em{U}\kern-.12em{B}$}% - \else% - \hbox{$\fam\TestCount% - \scriptstyle\kern-.045em{U}\kern-.12em{B}$}% - \fi} -\fi -\ifnewl@tex -\DeclareRobustCommand{\SubBib}{S\hbox{$\m@th$% - \csname S@\f@size\endcsname\fontsize\sf@size\z@ - \math@fontsfalse\selectfont% - \kern-.045em{U}\kern-.12em{B}}B\hbox{$\m@th$% - \csname S@\f@size\endcsname\fontsize\sf@size\z@ - \math@fontsfalse\selectfont \kern-.025em I\kern-.045em B}} -\else \def\SubBib{\Sub\kern-.08em\Bib} \fi - -\ifnewl@tex \else -\def\La{\ifnum \fam=\m@ne \fam=\z@ \fi\TestCount=\fam% - \edef\aaa{\fontname\scriptfont\fam}% - \edef\bbb{\fontname\textfont\fam}\leavevmode{L}% - \ifx\aaa\bbb \resetfontsize% - \raise.46ex\hbox{{\tmpf@ntsize\bf% - $\fam\TestCount\kern-.4em\tmpkern{A}$}}% - \else% - \raise.42ex\hbox{$\fam\TestCount\scriptstyle\kern-.3em{A}$}% - \fi} -\fi -\ifnewl@tex \else \def\LaTeX{\La\kern-.15em\TeX}\fi -\ifnewl@tex - \DeclareRobustCommand{\jLaTeX}% - {\leavevmode\lower.46ex\hbox{J}\kern-.08em\LaTeX} -\else - \def\jLaTeX{\leavevmode\lower.46ex\hbox{J}\kern-.08em\LaTeX} -\fi -\def\PiC{P\kern-.12em\lower.5ex\hbox{I}\kern-.075emC} -\ifnewl@tex -\DeclareRobustCommand{\PiCTeX}{\PiC\kern-.11em\TeX} -\else -\def\PiCTeX{\PiC\kern-.11em\TeX} -\fi -\ifnewl@tex -\DeclareRobustCommand{\tpic}{T\hbox{$\m@th$% - \csname S@\f@size\endcsname\fontsize\sf@size\z@ - \math@fontsfalse\selectfont - \kern-.025em P\kern-.025em I\kern-.025emC}} -\else -\def\tpic{\ifnum \fam=\m@ne \fam=\z@ \fi% - \TestCount=\fam \leavevmode% - \edef\aaa{\fontname\scriptfont\fam}% - \edef\bbb{\fontname\textfont\fam}% - \resetfontsize\hbox{$\fam=\TestCount\textstyle T$}% - \ifx\aaa\bbb\hbox{\tmpf@ntsize\bf$\fam=\TestCount% - \kern-.025em P\kern-.025em I\kern-.025emC$}\else% - \hbox{$\fam\TestCount\scriptstyle% - \kern-.025em P\kern-.025em I\kern-.025emC$}\fi} -\fi -\ifnewl@tex \else -\def\Post{\ifnum \fam=\m@ne \fam=\z@ \fi% - \TestCount=\fam\leavevmode% - \edef\aaa{\fontname\scriptfont\fam}% - \edef\bbb{\fontname\textfont\fam}% - \resetfontsize% - \hbox{$\fam=\TestCount\textstyle P$}% - \ifx\aaa\bbb% - \hbox{\tmpf@ntsize\bf% - $\fam=\TestCount\kern-.045em O\kern-.015em ST$}% - \else% - \hbox{$\fam\TestCount% - \scriptstyle\kern-.045em O\kern-.015em ST$}% - \fi} -\def\Script{\ifnum \fam=\m@ne \fam=\z@ \fi% - \TestCount=\fam\leavevmode% - \edef\aaa{\fontname\scriptfont\fam}% - \edef\bbb{\fontname\textfont\fam}% - \resetfontsize% - \hbox{$\fam=\TestCount\textstyle S$}% - \ifx\aaa\bbb% - \hbox{\tmpf@ntsize\bf$\fam=\TestCount\kern-.035em % - C\kern-.015em R\kern-.015em IP\kern-.035em T$}% - \else% - \hbox{$\fam\TestCount\scriptstyle\kern-.035em % - C\kern-.015em R\kern-.015em IP\kern-.035em T$}% - \fi} -\fi -\ifnewl@tex -\DeclareRobustCommand{\PostScript}{P\hbox{$\m@th$% - \csname S@\f@size\endcsname\fontsize\sf@size\z@ - \math@fontsfalse\selectfont - \kern-.045em O\kern-.015em ST}S\hbox{$\m@th$% - \csname S@\f@size\endcsname\fontsize\sf@size\z@ - \math@fontsfalse\selectfont - \kern-.035em C\kern-.015em R\kern-.015em IP\kern-.035em T}} -\else -\def\PostScript{\Post\Script} -\fi -\def\triplebond{\leavevmode\kern.2pt\raisebox{.2ex}{% -\hbox{\vbox{\hrule height.03ex width1em\kern.4ex -\hrule height.03ex width1em\kern.4ex -\hrule height.03ex width1em}}}\hskip.4pt} -\def\doublebond{\leavevmode\kern.2pt\raisebox{.3ex}{% -\hbox{\vbox{\hrule height.03ex width1em\kern.6ex -\hrule height.03ex width1em}}}\hskip.4pt} -\let\tbond=\triplebond -\let\dbond=\doublebond -\endinput -%% -%% End of file `chemist.sty'. diff --git a/Master/texmf-dist/tex/latex/xymtex/chemstr.sty b/Master/texmf-dist/tex/latex/xymtex/chemstr.sty deleted file mode 100644 index 6e81e68d184..00000000000 --- a/Master/texmf-dist/tex/latex/xymtex/chemstr.sty +++ /dev/null @@ -1,5905 +0,0 @@ -%% -%% This is file `chemstr.sty', -%% generated with the docstrip utility. -%% -%% The original source files were: -%% -%% chemstr.dtx (with options: `chemstr') -%% -%% This is a generated file. -%% -%% Copyright 1996, 1988 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 (private version) -%% Version 2.00 Released on December 25, 1998 -%% -%% Copyright (C) 1996, 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: chemstr.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{chemstr} -\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]} -\def\UPSILON{\char'7} -\def\XyM{X\kern-.30em\smash{\raise.50ex\hbox{\UPSILON}}\kern-.30em{M}} -\def\XyMTeX{\XyM\kern-.1em\TeX} -\def\@forsemicol#1:=#2\do#3{% - \expandafter\def\expandafter\@fortmp\expandafter{#2}% - \ifx\@fortmp\@empty \else% - \expandafter\@forl@@p#2;\@nil;\@nil\@@#1{#3}\fi} -\long\def\@forl@@p#1;#2;#3\@@#4#5{\def#4{#1}\ifx #4\@nnil \else% - #5\def#4{#2}\ifx #4\@nnil \else#5\@iforl@@p #3\@@#4{#5}\fi\fi} -\long\def\@iforl@@p#1;#2\@@#3#4{\def#3{#1}\ifx #3\@nnil% - \expandafter\@fornoop \else - #4\relax\expandafter\@iforl@@p\fi#2\@@#3{#4}} -\def\@m@mb@r#1==#2;{\gdef\@membera{#1}\gdef\@memberb{#2}} -\def\twoch@r#1#2{\gdef\@tmpa{#1}\gdef\@tmpb{#2}} -\def\twoch@@r#1#2{\gdef\@@tmpa{#1}\gdef\@@tmpb{#2}} -\def\threech@r#1#2#3{\gdef\@tmpa{#1}\gdef\@tmpb{#2}\gdef\@tmpc{#3}} -\def\twoCH@@R#1#2//{\gdef\@@tmpa{#1}\gdef\@@tmpb{#2}} -\def\twoCH@R#1#2//{\gdef\@tmpa{#1}\gdef\@tmpb{#2}} -\newif\if@rightput \@rightputfalse -\newif\if@leftput \@leftputfalse -\newif\if@leftrightput \@leftrightputfalse -\def\resetlrput{\@rightputfalse\@leftputfalse -\@leftrightputfalse} -\def\rmoiety#1{\if@leftput -\XyMTeXWarning{Wrong \string\rmoiety\space used in a left box}% -\hbox to0pt{% -\hbox to0pt{\hss\vrule width\overfullrule height\overfullrule}#1\hss}% -\else\if@rightput\XyMTeXWarning{Unnecessary \string\rmoiety\space -used in a right box}\hbox to0pt{#1\hss}% -\else\if@leftrightput\hbox to0pt{#1\hss}% -\fi\fi\fi\resetlrput} -\def\lmoiety#1{\if@rightput -\XyMTeXWarning{Wrong \string\lmoiety\space used in a right box}% -\hbox to0pt{\hss#1\kern-.72em% -\hbox to0pt{\vrule width\overfullrule height\overfullrule\hss}}\else -\if@leftput\XyMTeXWarning{Unnecessary \string\lmoiety\space -used in a left box}\hbox to0pt{\hss#1}% -\else\if@leftrightput\hbox to0pt{\hss#1\kern-.72em}% -\else\hbox to0pt{\hss#1\kern-.72em}\fi\fi\fi\resetlrput} -\def\XyMTeXWarning#1{% -\begingroup - \let\protect\string - \immediate\write\@unused{^^IXyMTeX Warning: #1\space - on input line \the\inputlineno^^I}% -\endgroup} -\newcount\@cnttempa -\newcount\@cnttempb -\def\FuseWarning#1#2#3#4#5#6#7{% -\@tempcnta=#1 \@tempcntb=#2 -\@cnttempa=#3 \advance\@cnttempa-#5 -\@cnttempb=#4 \advance\@cnttempb-#6 -\ifnum\@tempcnta=\@cnttempa - \ifnum\@tempcntb=\@cnttempb\else - \XyMTeXWarning{Mismatched fusion at bond `#7'}% - \fi -\else - \XyMTeXWarning{Mismatched fusion at bond `#7'}% -\fi} -\def\putlatom#1#2#3{\begingroup\resetlrput -\put(#1,#2){\@leftputtrue\hbox to0pt{\hss #3}\@leftputfalse}\endgroup} -\def\putratom#1#2#3{\begingroup\resetlrput -\put(#1,#2){\@rightputtrue\hbox to0pt{#3 \hss}\@rightputfalse}\endgroup} -\def\putlratom#1#2#3{\begingroup\resetlrput -\put(#1,#2){\@leftrightputtrue\hbox to.72em{#3\hss}}% -\@leftrightputfalse\endgroup} -\def\Putlratom#1#2#3{\put(#1,#2){\hbox to.8em{#3}}} -\newcount\noshift \noshift=0\relax% -\newcount\shifti \shifti=240\relax% -\newcount\shiftii \shiftii=400\relax% -\newcount\shiftiii \shiftiii=800\relax% -\unitlength.1pt% -\def\fuseAx{0} -\def\fuseBx{0} -\def\fuseAy{0} -\def\fuseBy{0} -\newif\if@clip \@clipfalse% % switch for clipping at 4 -\newif\if@aclip \@aclipfalse% % switch for clipping at 1 -\newif\if@bclip \@bclipfalse% % switch for clipping at 2 -\newif\if@cclip \@cclipfalse% % switch for clipping at 3 -\newif\if@eclip \@eclipfalse% % switch for clipping at 5 -\newif\if@fclip \@fclipfalse% % switch for clipping at 6 -\newif\iforigpt \origptfalse% % switch for showing the original point -\newcount\@tmpaa% -\newif\if@gclip \@gclipfalse% -\newif\if@hclip \@hclipfalse% -\newif\if@iclip \@iclipfalse% -\newif\if@jclip \@jclipfalse% -\def\@yl{(yl)} -\newcount\yl@xdiff -\newcount\yl@ydiff -\newcount\yl@shiftii -\newcount\yl@shifti -\def\@ylii{0}\def\@yli{0} -\def\@@ylii{}\def\@@yli{} -\def\reset@@yl{\gdef\@@ylii{}\gdef\@@yli{}} -\def\reset@yl@xydiff{\yl@xdiff=0 \yl@ydiff=0\relax} -\newif\if@ylsw \@ylswfalse -\newif\if@@ylsw \@@ylswfalse -\def\@reset@ylsw{\@ylswfalse\@@ylswfalse} -\newif\if@smallringsw \@smallringswfalse -\def\iniflag{% -\@aclipfalse\@bclipfalse\@cclipfalse\@clipfalse\@eclipfalse% -\@fclipfalse\@gclipfalse\@hclipfalse% -\@iclipfalse\@jclipfalse\@clipfusefalse% -\global\@smallringswfalse% -}% -\def\iniatom{% -\def\aaa{}\def\bbb{}\def\ccc{}\gdef\ddd{}% -\def\eee{}\def\fff{}% -\def\ggg{}\def\hhh{}\def\iii{}\gdef\jjj{}% -\def\@aaa{}\def\@bbb{}\def\@ccc{}\def\@ddd{}% -\def\@eee{}\def\@fff{}% -\def\@ggg{}\def\@hhh{}\def\@iii{}% -\def\@jjj{}\def\@kkk{}% -}% -\def\resetbdsw{\def\@aaa{a}\def\@bbb{b}\def\@ccc{c}% -\def\@ddd{d}\def\@eee{e}\def\@fff{f}% -\def\@ggg{g}\def\@hhh{h}\def\@iii{i}% -\def\@jjj{j}\def\@kkk{k}% -}% -\iniatom -\def\ylposition#1#2#3#4#5{% -\@@ylswfalse%%%\@reset@ylsw -\@forsemicol\member:=#1\do{% -\if@@ylsw\else% -\ifx\member\empty\else% -\expandafter\@m@mb@r\member;\relax% -\expandafter\threech@r\@membera{}{}\relax% -\ifx\@memberb\@yl\relax\@@ylswtrue\else\@@ylswfalse\fi -\if@@ylsw -\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%0 omit - \or\ifx\aaa\empty - \gdef\@ylii{0}\gdef\@yli{-406}\global\@ylswtrue%\@ylatrue% subst. on 1 - \else - \gdef\@ylii{0}\gdef\@yli{-442}\global\@ylswtrue%\@ylatrue% subst. on 1 - \fi - \or\ifx\bbb\empty - \gdef\@ylii{-171}\gdef\@yli{-303}\global\@ylswtrue%\@ylbtrue% subst. on 2 - \else - \gdef\@ylii{-213}\gdef\@yli{-327}\global\@ylswtrue%\@ylbtrue% subst. on 2 - \fi - \or\ifx\ccc\empty - \gdef\@ylii{-171}\gdef\@yli{-103}\global\@ylswtrue%\@ylctrue% subst. on 3 - \else - \gdef\@ylii{-213}\gdef\@yli{-79}\global\@ylswtrue%\@ylctrue% subst. on 3 - \fi - \or\ifx\ddd\empty - \gdef\@ylii{0}\gdef\@yli{0}\global\@ylswtrue%\@yldtrue% subst. on 4 - \else - \gdef\@ylii{0}\gdef\@yli{36}\global\@ylswtrue%\@yldtrue% subst. on 4 - \fi - \or\ifx\eee\empty - \gdef\@ylii{171}\gdef\@yli{-103}\global\@ylswtrue%\@yletrue% subst. on 5 - \else - \gdef\@ylii{213}\gdef\@yli{-79}\global\@ylswtrue%\@yletrue% subst. on 5 - \fi - \or\ifx\fff\empty - \gdef\@ylii{171}\gdef\@yli{-303}\global\@ylswtrue%\@ylftrue% subst. on 6 - \else - \gdef\@ylii{213}\gdef\@yli{-327}\global\@ylswtrue%\@ylftrue% subst. on 6 - \fi% -\fi%end of ifcase -\fi\fi\fi\fi\fi}}% -\def\@substa{% -\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 u%(u) up --- (B) beta - \yl@xdiff=36\relax - \yl@ydiff=-27\relax - \putratom{41}{563}{\@memberb}% % right type - {% - \thicklines% - \put(18,436){\line(3,5){60}}% % single bond at 1 - }% - \else\if\@tmpc d%(d) down --- (A) alpha - \yl@xdiff=-37\relax - \yl@ydiff=-27\relax - \putlatom{-42}{563}{\@memberb}% % left 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% - \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 F%fused bond - {\let\@tmpb=\@tmpc\@clipfusetrue - \put(0,406){\setatombondd}% - }% - \else\if\@tmpb G%fused bond - {\let\@tmpb=\@tmpc\@clipfusetrue - \put(0,406){\setatombondf}% - }% - \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\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 u%(u) upper --- (B) beta - \yl@xdiff=30\relax - \yl@ydiff=-37\relax - \putratom{41}{563}{\@memberb}% % right type - {% - \thicklines% - \put(0,406){\line(3,5){72}}% % single bond at 1 - }% - \else\if\@tmpc d%(d) down --- (A) alpha - \yl@xdiff=-31\relax - \yl@ydiff=-37\relax - \putlatom{-42}{563}{\@memberb}% % left 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% - \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 F%fused bond - {\let\@tmpb=\@tmpc\@clipfusefalse - \put(0,406){\setatombondd}% - }% - \else\if\@tmpb G%fused bond - {\let\@tmpb=\@tmpc\@clipfusefalse - \put(0,406){\setatombondf}% - }% - \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 - \fi}% end of \@substa -\def\@substb{% - \if@bclip %clipping - \if\@tmpb S%single bond - \ifx\@tmpc\empty% - \yl@xdiff=-10\relax - \yl@ydiff=24\relax - \putratom{311}{363}{\@memberb}% % right type - \put(201,327){\line(5,3){100}}% % single bond at 2 - \else\if\@tmpc B%(B) beta - \yl@xdiff=-7\relax - \yl@ydiff=38\relax - \putratom{268}{420}{\@memberb}% % right type - {% - \thicklines% - \put(201,358){\line(3,5){60}}% % single bond at 2 - }% - \else\if\@tmpc A%(A) alpha - \yl@xdiff=-17\relax - \yl@ydiff=23\relax - \putratom{318}{280}{\@memberb}% % right type - \@ifundefined{dottedline}{% - \put(201,303){\line(1,0){100}}% % single bond at 2 - }{{\thicklines% - \dottedline{20}(201,303)(301,303)}}% - \else\if\@tmpc u%(u) up --- (B) beta - \yl@xdiff=-17\relax - \yl@ydiff=23\relax - \putratom{318}{280}{\@memberb}% % right type - {% - \thicklines% - \put(201,303){\line(1,0){100}}% % single bond at 2 - }% - \else\if\@tmpc d%(d) down --- (A) alpha - \yl@xdiff=-7\relax - \yl@ydiff=38\relax - \putratom{268}{420}{\@memberb}% % right type - \@ifundefined{dottedline}{% - \put(201,358){\line(3,5){60}}% % single bond at 2 - }{{\thicklines% - \dottedline{20}(201,358)(261,458)}}% - \else\if\@tmpc b%(b) beta - \yl@xdiff=-7\relax - \yl@ydiff=38\relax - \putratom{268}{420}{\@memberb}% % right type - \put(201,358){\line(3,5){60}}% % single bond at 2 - \else\if\@tmpc a%(a) alpha% - \yl@xdiff=-17\relax - \yl@ydiff=23\relax - \putratom{318}{280}{\@memberb}% % right type - \put(201,303){\line(1,0){100}}% % single bond at 2 - \fi\fi\fi\fi\fi% - \fi\fi% - \else\if\@tmpb D%double bond - \yl@xdiff=-10\relax - \yl@ydiff=18\relax - \putratom{311}{363}{\@memberb}% % right type - \put(194,331){\line(5,3){100}}% % double bond at 2 - \put(200,305){\line(5,3){100}}% % double bond at 2 - \else\if\@tmpb B%beta single bond - \yl@xdiff=-10\relax - \yl@ydiff=24\relax - \putratom{311}{363}{\@memberb}% % right type - {% - \thicklines% - \put(201,327){\line(5,3){100}}% % single bond at 2 - }% - \else\if\@tmpb A%alpha single bond - \yl@xdiff=-10\relax - \yl@ydiff=24\relax - \putratom{311}{363}{\@memberb}% % right type - \@ifundefined{dottedline}{% - \put(201,327){\line(5,3){100}}% % single bond at 2 - }{{\thicklines% - \dottedline{20}(201,327)(301,387)}}% - \else\if\@tmpb F%fused bond - {\let\@tmpb=\@tmpc\@clipfusetrue - \put(171,303){\setatombonda}% - }% - \else\if\@tmpb G%fused bond - {\let\@tmpb=\@tmpc\@clipfusetrue - \put(171,303){\setatombonde}% - }% - \else% - \yl@xdiff=-10\relax - \yl@ydiff=24\relax - \putratom{311}{363}{\@memberb}% % right type - \put(201,327){\line(5,3){100}}% % single bond at 2 - \fi\fi\fi\fi% - \fi\fi% - \else% %no clipping - \if\@tmpb S%single bond - \ifx\@tmpc\empty% - \yl@xdiff=-10\relax - \yl@ydiff=12\relax - \putratom{301}{363}{\@memberb}% % right type - \put(171,303){\line(5,3){120}}% % single bond at 2 - \else\if\@tmpc B%(B) beta - \yl@xdiff=-15\relax - \yl@ydiff=13\relax - \putratom{258}{410}{\@memberb}% % right type - {% - \thicklines% - \put(171,303){\line(3,5){72}}% % single bond at 2 - }% - \else\if\@tmpc A%(A) alpha - \yl@xdiff=-7\relax - \yl@ydiff=23\relax - \putratom{318}{280}{\@memberb}% % right type - \@ifundefined{dottedline}{% - \put(171,303){\line(1,0){140}}% % single bond at 2 - }{{\thicklines% - \dottedline{20}(171,303)(311,303)}}% - \else\if\@tmpc u%(u) up --- (B) beta - \yl@xdiff=-7\relax - \yl@ydiff=23\relax - \putratom{318}{280}{\@memberb}% % right type - {% - \thicklines% - \put(171,303){\line(1,0){140}}% % single bond at 2 - }% - \else\if\@tmpc d%(d) down --- (A) alpha - \yl@xdiff=-15\relax - \yl@ydiff=13\relax - \putratom{258}{410}{\@memberb}% % right type - \@ifundefined{dottedline}{% - \put(171,303){\line(3,5){72}}% % single bond at 2 - }{{\thicklines% - \dottedline{20}(171,303)(243,423)}}% - \else\if\@tmpc b%(b) beta - \yl@xdiff=-15\relax - \yl@ydiff=13\relax - \putratom{258}{410}{\@memberb}% % right type - \put(171,303){\line(3,5){72}}% % single bond at 2 - \else\if\@tmpc a%(a) alpha - \yl@xdiff=-7\relax - \yl@ydiff=23\relax - \putratom{318}{280}{\@memberb}% % right type - \put(171,303){\line(1,0){140}}% % single bond at 2 - \fi\fi\fi\fi\fi% - \fi\fi% - \else\if\@tmpb D%double bond - \yl@xdiff=-10\relax - \yl@ydiff=6\relax - \putratom{301}{363}{\@memberb}% % right type - \put(168,310){\line(5,3){120}}% % double bond at 2 - \put(174,284){\line(5,3){120}}% % double bond at 2 - \else\if\@tmpb B%beta single bond - \yl@xdiff=-10\relax - \yl@ydiff=12\relax - \putratom{301}{363}{\@memberb}% % right type - {% - \thicklines% - \put(171,303){\line(5,3){120}}% % single bond at 2 - }% - \else\if\@tmpb A%alpha single bond - \yl@xdiff=-10\relax - \yl@ydiff=12\relax - \putratom{301}{363}{\@memberb}% % right type - \@ifundefined{dottedline}{% - \put(171,303){\line(5,3){120}}% % single bond at 2 - }{{\thicklines% - \dottedline{20}(171,303)(291,375)}}% - \else\if\@tmpb F%fused bond - {\let\@tmpb=\@tmpc\@clipfusefalse - \put(171,303){\setatombonda}% - }% - \else\if\@tmpb G%fused bond - {\let\@tmpb=\@tmpc\@clipfusefalse - \put(171,303){\setatombonde}% - }% - \else% - \yl@xdiff=-10\relax - \yl@ydiff=12\relax - \putratom{301}{363}{\@memberb}% % right type - \put(171,303){\line(5,3){120}}% % single bond at 2 - \fi\fi\fi\fi% - \fi\fi - \fi}% end of \@substb -\def\@substc{% - \if@cclip %clipping - \if\@tmpb S%single bond - \ifx\@tmpc\empty% - \yl@xdiff=-10\relax - \yl@ydiff=46\relax - \putratom{311}{-27}{\@memberb}% % right type - \put(201,79){\line(5,-3){110}}% % single bond at 3 - \else\if\@tmpc B%(B) beta - \yl@xdiff=-7\relax - \yl@ydiff=28\relax - \putratom{268}{-80}{\@memberb}% % right type - {% - \thicklines% - \put(201,48){\line(3,-5){60}}% % single bond at 3 - }% - \else\if\@tmpc A%(A) alpha - \yl@xdiff=-17\relax - \yl@ydiff=29\relax - \putratom{318}{74}{\@memberb}% % right type - \@ifundefined{dottedline}{% - \put(201,103){\line(1,0){100}}% % single bond at 3 - }{{\thicklines% - \dottedline{20}(201,103)(301,103)}}% - \else\if\@tmpc u%(u) up --- (B) beta - \yl@xdiff=-17\relax - \yl@ydiff=29\relax - \putratom{318}{74}{\@memberb}% % right type - {% - \thicklines% - \put(201,103){\line(1,0){100}}% % single bond at 3 - }% - \else\if\@tmpc d%(d) down --- (A) alpha - \yl@xdiff=-7\relax - \yl@ydiff=28\relax - \putratom{268}{-80}{\@memberb}% % right type - \@ifundefined{dottedline}{% - \put(201,48){\line(3,-5){60}}% % single bond at 3 - }{{\thicklines% - \dottedline{20}(201,48)(261,-52)}}% - \else\if\@tmpc b%(b) beta - \yl@xdiff=-7\relax - \yl@ydiff=28\relax - \putratom{268}{-80}{\@memberb}% % right type - \put(201,48){\line(3,-5){60}}% % single bond at 3 - \else\if\@tmpc a%(a) alpha - \yl@xdiff=-17\relax - \yl@ydiff=29\relax - \putratom{318}{74}{\@memberb}% % right type - \put(201,103){\line(1,0){100}}% % single bond at 3 - \fi\fi\fi\fi\fi% - \fi\fi - \else\if\@tmpb D%double bond - \yl@xdiff=-10\relax - \yl@ydiff=52\relax - \putratom{311}{-27}{\@memberb}% % right type - \put(194,76){\line(5,-3){100}}% % double bond at 3 - \put(200,101){\line(5,-3){100}}% % double bond at 3 - \else\if\@tmpb B%beta single bond - \yl@xdiff=-10\relax - \yl@ydiff=46\relax - \putratom{311}{-27}{\@memberb}% % right type - {% - \thicklines% - \put(201,79){\line(5,-3){100}}% % single bond at 3 - }% - \else\if\@tmpb A%alpha single bond - \yl@xdiff=-10\relax - \yl@ydiff=46\relax - \putratom{311}{-27}{\@memberb}% % right type - \@ifundefined{dottedline}{% - \put(201,79){\line(5,-3){100}}% % single bond at 3 - }{{\thicklines% - \dottedline{20}(201,79)(301,19)}}% - \else\if\@tmpb F%fused bond - {\let\@tmpb=\@tmpc\@clipfusetrue - \put(171,103){\setatombondf}% - }% - \else\if\@tmpb G%fused bond - {\let\@tmpb=\@tmpc\@clipfusetrue - \put(171,103){\setatombondc}% - }% - \else% - \yl@xdiff=-10\relax - \yl@ydiff=46\relax - \putratom{311}{-27}{\@memberb}% % right type - \put(201,79){\line(5,-3){100}}% % single bond at 3 - \fi\fi\fi\fi% - \fi\fi% - \else%no clipping - \if\@tmpb S%single bond - \ifx\@tmpc\empty% - \yl@xdiff=-10\relax - \yl@ydiff=58\relax - \putratom{301}{-27}{\@memberb}% % right type - \put(171,103){\line(5,-3){120}}% % single bond at 3 - \else\if\@tmpc B%(B) beta - \yl@xdiff=-10\relax - \yl@ydiff=48\relax - \putratom{258}{-70}{\@memberb}% % right type - {% - \thicklines% - \put(171,103){\line(3,-5){72}}% % single bond at 3 - }% - \else\if\@tmpc A%(A) alpha - \yl@xdiff=-10\relax - \yl@ydiff=30\relax - \putratom{318}{74}{\@memberb}% % right type - \@ifundefined{dottedline}{% - \put(171,103){\line(1,0){140}}% % single bond at 3 - }{{\thicklines% - \dottedline{20}(171,103)(311,103)}}% - \else\if\@tmpc u%(u) up --- (B) beta - \yl@xdiff=-10\relax - \yl@ydiff=30\relax - \putratom{318}{74}{\@memberb}% % right type - {% - \thicklines% - \put(171,103){\line(1,0){140}}% % single bond at 3 - }% - \else\if\@tmpc d%(d) down --- (A) alpha - \yl@xdiff=-10\relax - \yl@ydiff=48\relax - \putratom{258}{-70}{\@memberb}% % right type - \@ifundefined{dottedline}{% - \put(171,103){\line(3,-5){72}}% % single bond at 3 - }{{\thicklines% - \dottedline{20}(171,103)(243,-17)}}% - \else\if\@tmpc b%(b) beta - \yl@xdiff=-10\relax - \yl@ydiff=48\relax - \putratom{258}{-70}{\@memberb}% % right type - \put(171,103){\line(3,-5){72}}% % single bond at 3 - \else\if\@tmpc a%(a) alpha - \yl@xdiff=-10\relax - \yl@ydiff=30\relax - \putratom{318}{74}{\@memberb}% % right type - \put(171,103){\line(1,0){140}}% % single bond at 3 - \fi\fi\fi\fi\fi% - \fi\fi - \else\if\@tmpb D%double bond - \yl@xdiff=-10\relax - \yl@ydiff=65\relax - \putratom{301}{-27}{\@memberb}% % right type - \put(168,96){\line(5,-3){120}}% % double bond at 3 - \put(174,121){\line(5,-3){120}}% % double bond at 3 - \else\if\@tmpb B%beta single bond - \yl@xdiff=-10\relax - \yl@ydiff=58\relax - \putratom{301}{-27}{\@memberb}% % right type - {% - \thicklines% - \put(171,103){\line(5,-3){120}}% % single bond at 3 - }% - \else\if\@tmpb A%alpha single bond - \yl@xdiff=-10\relax - \yl@ydiff=58\relax - \putratom{301}{-27}{\@memberb}% % right type - \@ifundefined{dottedline}{% - \put(171,103){\line(5,-3){120}}% % single bond at 3 - }{{\thicklines% - \dottedline{20}(171,103)(291,31)}}% - \else\if\@tmpb F%fused bond - {\let\@tmpb=\@tmpc\@clipfusefalse - \put(171,103){\setatombondf}% - }% - \else\if\@tmpb G%fused bond - {\let\@tmpb=\@tmpc\@clipfusefalse - \put(171,103){\setatombondc}% - }% - \else% - \yl@xdiff=-10\relax - \yl@ydiff=58\relax - \putratom{301}{-27}{\@memberb}% % right type - \put(171,103){\line(5,-3){120}}% % single bond at 3 - \fi\fi\fi\fi% - \fi\fi - \fi -}% end of \@substc -\def\@substd{% -\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 u%(u) up --- (B) beta - \yl@xdiff=37\relax - \yl@ydiff=100\relax - \putratom{41}{-230}{\@memberb}% % right type - {% - \thicklines% - \put(18,-30){\line(3,-5){60}}% % single bond at 4 - }% - \else\if\@tmpc d%(d) down --- (A) alpha - \yl@xdiff=-36\relax - \yl@ydiff=100\relax - \putlatom{-42}{-230}{\@memberb}% % left type - \@ifundefined{dottedline}{% - \put(-18,-30){\line(-3,-5){60}}% % single bond at 4 - }{{\thicklines% - \dottedline{20}(-18,-30)(-78,-130)}}% - \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% - \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 F%fused bond - {\let\@tmpb=\@tmpc\@clipfusetrue - \put(0,0){\setatombonde}% - }% - \else\if\@tmpb G%fused bond - {\let\@tmpb=\@tmpc\@clipfusetrue - \put(0,0){\setatombondg}% - }% - \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\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 u%(u) up --- (B) beta - \yl@xdiff=31\relax - \yl@ydiff=110\relax - \putratom{41}{-230}{\@memberb}% % right type - {% - \thicklines% - \put(0,0){\line(3,-5){72}}% % single bond at 4 - }% - \else\if\@tmpc d%(d) down --- (A) alpha - \yl@xdiff=-30\relax - \yl@ydiff=110\relax - \putlatom{-42}{-230}{\@memberb}% % left 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% - \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 F%fused bond - {\let\@tmpb=\@tmpc\@clipfusefalse - \put(0,0){\setatombonde}% - }% - \else\if\@tmpb G%fused bond - {\let\@tmpb=\@tmpc\@clipfusefalse - \put(0,0){\setatombondg}% - }% - \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% - \fi}%end of \@substd -\def\@subste{% - \if@eclip%clipping - \if\@tmpb S%single bond - \ifx\@tmpc\empty% - \yl@xdiff=10\relax - \yl@ydiff=46\relax - \putlatom{-311}{-27}{\@memberb}% % left type - \put(-201,79){\line(-5,-3){110}}% % single bond at 5 - \else\if\@tmpc B%(B) beta - \yl@xdiff=7\relax - \yl@ydiff=38\relax - \putlatom{-268}{-80}{\@memberb}% % left type - {% - \thicklines% - \put(-201,48){\line(-3,-5){60}}% % single bond at 5 - }% - \else\if\@tmpc A%(A) alpha - \yl@xdiff=17\relax - \yl@ydiff=29\relax - \putlatom{-318}{74}{\@memberb}% % left type - \@ifundefined{dottedline}{% - \put(-201,103){\line(-1,0){100}}% % single bond at 5 - }{{\thicklines% - \dottedline{20}(-201,103)(-301,103)}}% - \else\if\@tmpc u% (u) up --- (B) beta - \yl@xdiff=17\relax - \yl@ydiff=29\relax - \putlatom{-318}{74}{\@memberb}% % left type - {% - \thicklines% - \put(-201,103){\line(-1,0){100}}% % single bond at 5 - }% - \else\if\@tmpc d% (d) down --- (A) alpha - \yl@xdiff=7\relax - \yl@ydiff=38\relax - \putlatom{-268}{-80}{\@memberb}% % left type - \@ifundefined{dottedline}{% - \put(-201,48){\line(-3,-5){60}}% % single bond at 5 - }{{\thicklines% - \dottedline{20}(-201,48)(-261,-52)}}% - \else\if\@tmpc b%(b) beta - \yl@xdiff=7\relax - \yl@ydiff=38\relax - \putlatom{-268}{-80}{\@memberb}% % left type - \put(-201,48){\line(-3,-5){60}}% % single bond at 5 - \else\if\@tmpc a%(a) alpha - \yl@xdiff=17\relax - \yl@ydiff=29\relax - \putlatom{-318}{74}{\@memberb}% % left type - \put(-201,103){\line(-1,0){100}}% % single bond at 5 - \fi\fi\fi\fi\fi% - \fi\fi% - \else\if\@tmpb D%double bond - \yl@xdiff=10\relax - \yl@ydiff=62\relax - \putlatom{-311}{-27}{\@memberb}% % left type - \put(-194,76){\line(-5,-3){100}}% % double bond at 5 - \put(-200,101){\line(-5,-3){100}}% % double bond at 5 - \else\if\@tmpb B%beta single bond - \yl@xdiff=10\relax - \yl@ydiff=46\relax - \putlatom{-311}{-27}{\@memberb}% % left type - {% - \thicklines% - \put(-201,79){\line(-5,-3){100}}% % single bond at 5 - }% - \else\if\@tmpb A%alpha single bond - \yl@xdiff=10\relax - \yl@ydiff=46\relax - \putlatom{-311}{-27}{\@memberb}% % left type - \@ifundefined{dottedline}{% - \put(-201,79){\line(-5,-3){100}}% % single bond at 5 - }{{\thicklines% - \dottedline{20}(-201,79)(-301,21)}}% - \else\if\@tmpb F%fused bond - {\let\@tmpb=\@tmpc\@clipfusetrue - \put(-171,103){\setatombondc}% - }% - \else\if\@tmpb G%fused bond - {\let\@tmpb=\@tmpc\@clipfusetrue - \put(-171,103){\setatombondd}% - }% - \else% - \yl@xdiff=10\relax - \yl@ydiff=46\relax - \putlatom{-311}{-27}{\@memberb}% % left type - \put(-201,79){\line(-5,-3){100}}% % single bond at 5 - \fi\fi\fi\fi% - \fi\fi% -\else%no clipping - \if\@tmpb S%single bond - \ifx\@tmpc\empty% - \yl@xdiff=10\relax - \yl@ydiff=56\relax - \putlatom{-301}{-27}{\@memberb}% % left type - \put(-171,103){\line(-5,-3){120}}% % single bond at 5 - \else\if\@tmpc B%(B) beta - \yl@xdiff=15\relax - \yl@ydiff=63\relax - \putlatom{-258}{-70}{\@memberb}% % left type - {% - \thicklines% - \put(-171,103){\line(-3,-5){72}}% % single bond at 5 - }% - \else\if\@tmpc A%(A) alpha - \yl@xdiff=15\relax - \yl@ydiff=29\relax - \putlatom{-326}{74}{\@memberb}% % left type - \@ifundefined{dottedline}{% - \put(-171,103){\line(-1,0){140}}% % single bond at 5 - }{{\thicklines% - \dottedline{20}(-171,103)(-311,103)}}% - \else\if\@tmpc u%(u) up --- (B) beta - \yl@xdiff=15\relax - \yl@ydiff=29\relax - \putlatom{-326}{74}{\@memberb}% % left type - {% - \thicklines% - \put(-171,103){\line(-1,0){140}}% % single bond at 5 - }% - \else\if\@tmpc d%(d) down --- (A) alpha - \yl@xdiff=15\relax - \yl@ydiff=63\relax - \putlatom{-258}{-70}{\@memberb}% % left type - \@ifundefined{dottedline}{% - \put(-171,103){\line(-3,-5){72}}% % single bond at 5 - }{{\thicklines% - \dottedline{20}(-171,103)(-243,-17)}}% - \else\if\@tmpc b%(b) beta - \yl@xdiff=15\relax - \yl@ydiff=63\relax - \putlatom{-258}{-70}{\@memberb}% % left type - \put(-171,103){\line(-3,-5){72}}% % single bond at 5 - \else\if\@tmpc a%(a) alpha - \yl@xdiff=15\relax - \yl@ydiff=29\relax - \putlatom{-326}{74}{\@memberb}% % left type - \put(-171,103){\line(-1,0){140}}% % single bond at 5 - \fi\fi\fi\fi\fi% - \fi\fi - \else\if\@tmpb D%double bond - \yl@xdiff=10\relax - \yl@ydiff=62\relax - \putlatom{-301}{-27}{\@memberb}% % left type - \put(-168,96){\line(-5,-3){120}}% % double bond at 5 - \put(-174,121){\line(-5,-3){120}}% % double bond at 5 - \else\if\@tmpb B%beta single bond - \yl@xdiff=10\relax - \yl@ydiff=56\relax - \putlatom{-301}{-27}{\@memberb}% % left type - {% - \thicklines% - \put(-171,103){\line(-5,-3){120}}% % single bond at 5 - }% - \else\if\@tmpb A%alpha single bond - \yl@xdiff=-10\relax - \yl@ydiff=56\relax - \putlatom{-301}{-27}{\@memberb}% % left type - \@ifundefined{dottedline}{% - \put(-171,103){\line(-5,-3){120}}% % single bond at 5 - }{{\thicklines% - \dottedline{20}(-171,103)(-311,31)}}% - \else\if\@tmpb F%fused bond - {\let\@tmpb=\@tmpc\@clipfusefalse - \put(-171,103){\setatombondc}% - }% - \else\if\@tmpb G%fused bond - {\let\@tmpb=\@tmpc\@clipfusefalse - \put(-171,103){\setatombondd}% - }% - \else% - \yl@xdiff=10\relax - \yl@ydiff=56\relax - \putlatom{-301}{-27}{\@memberb}% % left type - \put(-171,103){\line(-5,-3){120}}%% single bond at 5 - \fi\fi\fi\fi% - \fi\fi% - \fi}% end of \@subste -\def\@substf{% - \if@fclip %clipping - \if\@tmpb S%single bond - \ifx\@tmpc\empty% - \yl@xdiff=10\relax - \yl@ydiff=24\relax - \putlatom{-311}{363}{\@memberb}% % left type - \put(-201,327){\line(-5,3){100}}% % single bond at 6 - \else\if\@tmpc B%(B) beta - \yl@xdiff=8\relax - \yl@ydiff=38\relax - \putlatom{-268}{420}{\@memberb}% % left type - {% - \thicklines% - \put(-201,358){\line(-3,5){60}}% % single bond at 6 - }% - \else\if\@tmpc A%(A) alpha - \yl@xdiff=17\relax - \yl@ydiff=23\relax - \putlatom{-318}{280}{\@memberb}% % left type - \@ifundefined{dottedline}{% - \put(-201,303){\line(-1,0){100}}% % single bond at 6 - }{{\thicklines% - \dottedline{20}(-201,303)(-301,303)}}% - \else\if\@tmpc u%(u) up --- (B) beta - \yl@xdiff=17\relax - \yl@ydiff=23\relax - \putlatom{-318}{280}{\@memberb}% % left type - {% - \thicklines% - \put(-201,303){\line(-1,0){100}}% % single bond at 6 - }% - \else\if\@tmpc d%(d) down --- (A) alpha - \yl@xdiff=8\relax - \yl@ydiff=38\relax - \putlatom{-268}{420}{\@memberb}% % left type - \@ifundefined{dottedline}{% - \put(-201,358){\line(-3,5){60}}% % single bond at 6 - }{{\thicklines% - \dottedline{20}(-201,358)(-261,458)}}% - \else\if\@tmpc b%(b) beta - \yl@xdiff=8\relax - \yl@ydiff=38\relax - \putlatom{-268}{420}{\@memberb}% % left type - \put(-201,358){\line(-3,5){60}}% % single bond at 6 - \else\if\@tmpc a%(a) alpha - \yl@xdiff=17\relax - \yl@ydiff=23\relax - \putlatom{-318}{280}{\@memberb}% % left type - \put(-201,303){\line(-1,0){100}}% % single bond at 6 - \fi\fi\fi\fi\fi% - \fi\fi - \else\if\@tmpb D%double bond - \yl@xdiff=10\relax - \yl@ydiff=6\relax - \putlatom{-311}{363}{\@memberb}% % left type - \put(-194,331){\line(-5,3){100}}% % double bond at 6 - \put(-200,305){\line(-5,3){100}}% % double bond at 6 - \else\if\@tmpb B%beta single bond - \yl@xdiff=10\relax - \yl@ydiff=24\relax - \putlatom{-311}{363}{\@memberb}% % left type - {% - \thicklines% - \put(-201,327){\line(-5,3){100}}% % single bond at 6 - }% - \else\if\@tmpb A%alpha single bond - \yl@xdiff=10\relax - \yl@ydiff=24\relax - \putlatom{-311}{363}{\@memberb}% % left type - \@ifundefined{dottedline}{% - \put(-201,327){\line(-5,3){100}}% % single bond at 6 - }{{\thicklines% - \dottedline{20}(-201,327)(-301,387)}}%1998/10/11 by SF - \else\if\@tmpb F%fused bond - {\let\@tmpb=\@tmpc\@clipfusetrue - \put(-171,303){\setatombondg}% - }% - \else\if\@tmpb G%fused bond - {\let\@tmpb=\@tmpc\@clipfusetrue - \put(-171,303){\setatombonda}% - }% - \else% - \yl@xdiff=10\relax - \yl@ydiff=24\relax - \putlatom{-311}{363}{\@memberb}% % left type - \put(-201,327){\line(-5,3){100}}% % single bond at 6 - \fi\fi\fi\fi% - \fi\fi -\else%no clipping - \if\@tmpb S%single bond - \ifx\@tmpc\empty% - \yl@xdiff=10\relax - \yl@ydiff=12\relax - \putlatom{-301}{363}{\@memberb}% % left type - \put(-171,303){\line(-5,3){120}}% % single bond at 6 - \else\if\@tmpc B%(B) beta - \yl@xdiff=15\relax - \yl@ydiff=13\relax - \putlatom{-258}{410}{\@memberb}% % left type - {% - \thicklines% - \put(-171,303){\line(-3,5){72}}% % single bond at 6 - }% - \else\if\@tmpc A%(A) alpha - \yl@xdiff=15\relax - \yl@ydiff=23\relax - \putlatom{-326}{280}{\@memberb}% % left type - \@ifundefined{dottedline}{% - \put(-171,303){\line(-1,0){140}}% % single bond at 6 - }{{\thicklines% - \dottedline{20}(-171,303)(-311,303)}}% - \else\if\@tmpc u%(u) up --- (B) beta - \yl@xdiff=15\relax - \yl@ydiff=23\relax - \putlatom{-326}{280}{\@memberb}% % left type - {% - \thicklines% - \put(-171,303){\line(-1,0){140}}% % single bond at 6 - }% - \else\if\@tmpc d%(d) down --- (A) alpha - \yl@xdiff=15\relax - \yl@ydiff=13\relax - \putlatom{-258}{410}{\@memberb}% % left type - \@ifundefined{dottedline}{% - \put(-171,303){\line(-3,5){72}}% % single bond at 6 - }{{\thicklines% - \dottedline{20}(-171,303)(-243,423)}}% - \else\if\@tmpc b%(b) beta - \yl@xdiff=15\relax - \yl@ydiff=13\relax - \putlatom{-258}{410}{\@memberb}% % left type - \put(-171,303){\line(-3,5){72}}% % single bond at 6 - \else\if\@tmpc a%(a) alpha - \yl@xdiff=15\relax - \yl@ydiff=23\relax - \putlatom{-326}{280}{\@memberb}% % left type - \put(-171,303){\line(-1,0){140}}% % single bond at 6 - \fi\fi\fi\fi\fi% - \fi\fi% - \else\if\@tmpb D%double bond - \yl@xdiff=10\relax - \yl@ydiff=6\relax - \putlatom{-301}{363}{\@memberb}% % left type - \put(-168,310){\line(-5,3){120}}% % double bond at 6 - \put(-174,284){\line(-5,3){120}}% % double bond at 6 - \else\if\@tmpb B%beta single bond - \yl@xdiff=10\relax - \yl@ydiff=12\relax - \putlatom{-301}{363}{\@memberb}% % left type - {% - \thicklines% - \put(-171,303){\line(-5,3){120}}% % single bond at 6 - }% - \else\if\@tmpb A%alpha single bond - \yl@xdiff=-10\relax - \yl@ydiff=12\relax - \putlatom{-301}{363}{\@memberb}% % left type - \@ifundefined{dottedline}{% - \put(-171,303){\line(-5,3){120}}% % single bond at 6 - }{{\thicklines% - \dottedline{20}(-171,303)(-311,375)}}% - \else\if\@tmpb F%fused bond - {\let\@tmpb=\@tmpc\@clipfusefalse - \put(-171,303){\setatombondg}% - }% - \else\if\@tmpb G%fused bond - {\let\@tmpb=\@tmpc\@clipfusefalse - \put(-171,303){\setatombonda}% - }% - \else% - \yl@xdiff=10\relax - \yl@ydiff=12\relax - \putlatom{-301}{363}{\@memberb}% % left type - \put(-171,303){\line(-5,3){120}}% % single bond at 6 - \fi\fi\fi\fi% - \fi\fi -\fi}% end of \@substf -\def\setsixringv#1#2#3#4#5{% -\@forsemicol\member:=#1\do{% -\ifx\member\empty\else% -\expandafter\@m@mb@r\member;\relax% -\expandafter\threech@r\@membera{}{}% -\ifx\@memberb\@yl\else -\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%0 omit - \or\@substa% subst. on 1 - \or\@substb% subst. on 2 - \or\@substc% subst. on 3 - \or\@substd% subst. on 4 - \or\@subste% subst. on 5 - \or\@substf% subst. on 6 -\fi%end of ifcase -\fi% -\fi\fi\fi}}% -\def\ylfusedposition#1#2#3#4#5{% -\@@ylswfalse%\@reset@ylsw -\@forsemicol\member:=#1\do{% -\if@@ylsw\else% -\ifx\member\empty\else% -\expandafter\@m@mb@r\member;\relax% -\expandafter\threech@r\@membera{}{}% -\ifx\@memberb\@yl\relax\@@ylswtrue\else\@@ylswfalse\fi -\if@@ylsw -\ifnum#5<0\relax% -\@tmpaa=-\@tmpa\relax\advance\@tmpaa by #2\relax% -\@fused@linktrue -\else\@tmpaa=\@tmpa\relax\advance\@tmpaa by #2\relax -\@fused@linkfalse\fi% -\ifnum\@tmpaa >#3\relax% -\ifnum\@tmpaa <#4\relax% -\ifcase\@tmpaa% - \if\@tmpb F%single bond at F (fused position) - \def\@ylii{-171}\def\@yli{-303}\@ylswtrue%\@ylatrue% subst. on 0 - \else\if\@tmpb G%single bond at G (fused position) - \def\@ylii{-171}\def\@yli{-103}\@ylswtrue%\@ylatrue% subst. on 0 - \fi\fi% -\or% subst. on 1 F == (0,406), G == (171,303) for \@fused@linkfalse - % subst. on 1 G == (0,406), F == (171,303) for \@fused@linktrue -\if@fused@link - \if\@tmpb G%single bond at F (5,-3) fusion - \def\@ylii{0}\def\@yli{-406}\@ylswtrue%\@ylatrue% subst. on 1 - \else\if\@tmpb F%single bond at G - \def\@ylii{-171}\def\@yli{-303}\@ylswtrue%\@ylatrue% subst. on 1 - \fi\fi% -\else - \if\@tmpb F%single bond at F (5,-3) fusion - \def\@ylii{0}\def\@yli{-406}\@ylswtrue%\@ylatrue% subst. on 1 - \else\if\@tmpb G%single bond at G - \def\@ylii{-171}\def\@yli{-303}\@ylswtrue%\@ylatrue% subst. on 1 - \fi\fi% -\fi -\or% subst. on 2 F == (0,406), G == (-171,303) for \@fused@linkfalse - % subst. on 2 G == (0,406), F == (-171,303) for \@fused@linktrue -\if@fused@link - \if\@tmpb G%single bond at (-5,-3) fusion - \def\@ylii{0}\def\@yli{-406}\@ylswtrue%\@ylatrue% subst. on 2 - \else\if\@tmpb F%single bond at G - \def\@ylii{171}\def\@yli{-303}\@ylswtrue%\@ylatrue% subst. on 2 - \fi\fi% -\else - \if\@tmpb F%single bond at (-5,-3) fusion - \def\@ylii{0}\def\@yli{-406}\@ylswtrue%\@ylatrue% subst. on 2 - \else\if\@tmpb G%single bond at G - \def\@ylii{171}\def\@yli{-303}\@ylswtrue%\@ylatrue% subst. on 2 - \fi\fi% -\fi -\or %3 fused positions % G == (303,171) F == (103,171) - \if\@tmpb G%single bond at G (fused position) - \def\@ylii{-303}\def\@yli{-171}\@ylswtrue%\@ylatrue% subst. on 3 - \else\if\@tmpb F%single bond at F (fused position) - \def\@ylii{-103}\def\@yli{-171}\@ylswtrue%\@ylatrue% subst. on 3 - \fi\fi% -\fi%end of ifcase -\fi\fi\fi\fi\fi}}% end of \ylfusedposition -\def\GFbonda{% - \if\@tmpb F%single bond at F (fused position) - \GFbonda@a - \else\if\@tmpb G%single bond at G (fused position) - \GFbonda@b - \fi\fi% -}%end of GFbonda -\def\GFbonda@a{% - \if\@tmpc B%beta single bond - \yl@xdiff=31\relax%171-140 - \yl@ydiff=-17\relax%460-(303+140) - \putlratom{140}{460}{\@memberb}% % left or right type - {% - \thicklines% - \put(171,303){\line(0,1){140}}% % single bond at F - }% - \else\if\@tmpc A%alpha single bond - \yl@xdiff=31\relax%171-140 - \yl@ydiff=-17\relax%460-(303+140) - \putlratom{140}{460}{\@memberb}% % left or right type - \@ifundefined{dottedline}{% - \put(171,303){\line(0,1){140}}% % single bond at F - }{{\thicklines% - \dottedline{20}(171,303)(171,443)}}% - \else\if\@tmpc U% unspecified single bond - \yl@xdiff=31\relax%171-140 - \yl@ydiff=-17\relax%460-(303+140) - \putlratom{140}{460}{\@memberb}% % left or right type - \put(168,303){$\wr$}% unspecified single bond at F - \put(168,353){$\wr$}% - \put(168,403){$\wr$}% - \else\if\@tmpc S%beta single bond - \yl@xdiff=31\relax%171-140 - \yl@ydiff=-17\relax%460-(303+140) - \putlratom{140}{460}{\@memberb}% % left or right type - \put(171,303){\line(0,1){140}}% % single bond at F - \else\ifx\@tmpc\empty%beta single bond - \yl@xdiff=31\relax%171-140 - \yl@ydiff=-17\relax%460-(303+140) - \putlratom{140}{460}{\@memberb}% % left or right type - \put(171,303){\line(0,1){140}}% % single bond at F - \fi\fi\fi\fi\fi% -}% -\def\GFbonda@b{% - \if\@tmpc B%beta single bond - \yl@xdiff=31\relax%171-140 - \yl@ydiff=90\relax%127-(140-103) - \putlratom{140}{-127}{\@memberb}% % left or right type - {% - \thicklines% - \put(171,103){\line(0,-1){140}}% % single bond at G - }% - \else\if\@tmpc A%alpha single bond - \yl@xdiff=31\relax%171-140 - \yl@ydiff=90\relax%127-(140-103) - \putlratom{140}{-127}{\@memberb}% % left or right type - \@ifundefined{dottedline}{% - \put(171,103){\line(0,-1){140}}% % single bond at G - }{{\thicklines% - \dottedline{20}(171,103)(171,-37)}}% - \else\if\@tmpc U%beta single bond - \yl@xdiff=31\relax%171-140 - \yl@ydiff=90\relax%127-(140-103) - \putlratom{140}{-127}{\@memberb}% % left or right type - \put(168,43){$\wr$}% unspecified single bond at G - \put(168,-8){$\wr$}% - \put(168,-57){$\wr$}% - \else\if\@tmpc S%alpha single bond - \yl@xdiff=31\relax%171-140 - \yl@ydiff=90\relax%127-(140-103) - \putlratom{140}{-127}{\@memberb}% % left or right type - \put(171,103){\line(0,-1){140}}% % single bond at G - \else\ifx\@tmpc\empty%alpha single bond - \yl@xdiff=31\relax%171-140 - \yl@ydiff=90\relax%127-(140-103) - \putlratom{140}{-127}{\@memberb}% % left or right type - \put(171,103){\line(0,-1){140}}% % single bond at G - \fi\fi\fi\fi\fi% -}% -\def\GFbondb{% - \if@fused@link - \if\@tmpb G%single bond at G (5,-3) fusion - \GFbondb@a - \else\if\@tmpb F%single bond at F - \GFbondb@b - \fi\fi% - \else - \if\@tmpb F%single bond at F (5,-3) fusion - \GFbondb@a - \else\if\@tmpb G%single bond at G - \GFbondb@b - \fi\fi% - \fi -}% end of \GFbondb -\def\GFbondb@a{% - \if\@tmpc B%beta single bond - \yl@xdiff=10\relax% - \yl@ydiff=22\relax% - \putlatom{-130}{466}{\@memberb}% % left type - {% - \thicklines% - \put(0,406){\line(-5,3){120}}% % single bond at F - }% - \else\if\@tmpc A%alpha single bond - \yl@xdiff=10\relax% - \yl@ydiff=22\relax% - \putlatom{-130}{466}{\@memberb}% % left type - \@ifundefined{dottedline}{% - \put(0,406){\line(-5,3){120}}% % single bond at F - }{{\thicklines% - \dottedline{20}(0,406)(-120,478)}}% - \else\if\@tmpc U%unspecified single bond - \yl@xdiff=10\relax% - \yl@ydiff=22\relax% - \putlatom{-130}{466}{\@memberb}% % left type - \put(0,406){\line(-5,3){120}}% % single bond at F - \else\if\@tmpc S%beta single bond - \yl@xdiff=10\relax% - \yl@ydiff=22\relax% - \putlatom{-130}{466}{\@memberb}% % left type - \put(0,406){\line(-5,3){120}}% % single bond at F - \else\ifx\@tmpc\empty%beta single bond - \yl@xdiff=10\relax% - \yl@ydiff=22\relax% - \putlatom{-130}{466}{\@memberb}% % left type - \put(0,406){\line(-5,3){120}}% % single bond at F - \else\if\@tmpc D%beta single bond (downward) - \yl@xdiff=31\relax% - \yl@ydiff=90\relax% - \putlratom{-31}{176}{\@memberb}% % left or right type - {% - \thicklines% - \put(0,406){\line(0,-1){140}}% % single bond at F - }% - \else\if\@tmpc C%alpha single bond (downward) - \yl@xdiff=31\relax% - \yl@ydiff=90\relax% - \putlratom{-31}{176}{\@memberb}% % left or right type - \@ifundefined{dottedline}{% - \put(0,406){\line(0,-1){140}}% % single bond at F - }{{\thicklines% - \dottedline{20}(0,406)(0,266)}}% - \fi\fi\fi\fi\fi\fi\fi% -}% end of \GFbondb@a -\def\GFbondb@b{% - \if\@tmpc B%beta single bond - \yl@xdiff=-10\relax% - \yl@ydiff=58\relax% - \putratom{301}{173}{\@memberb}% % right type - {% - \thicklines% - \put(171,303){\line(5,-3){120}}% % single bond at G - }% - \else\if\@tmpc A%alpha single bond - \yl@xdiff=-10\relax% - \yl@ydiff=58\relax% - \putratom{301}{173}{\@memberb}% % right type - \@ifundefined{dottedline}{% - \put(171,303){\line(5,-3){120}}% % single bond at G - }{{\thicklines% - \dottedline{20}(171,303)(291,231)}}% - \else\if\@tmpc U%unspecified single bond - \yl@xdiff=-10\relax% - \yl@ydiff=58\relax% - \putratom{301}{173}{\@memberb}% % right type - \put(171,303){\line(5,-3){120}}% % single bond at G - \else\if\@tmpc S%alpha single bond - \yl@xdiff=-10\relax% - \yl@ydiff=58\relax% - \putratom{301}{173}{\@memberb}% % right type - \put(171,303){\line(5,-3){120}}% % single bond at G - \else\ifx\@tmpc\empty%alpha single bond - \yl@xdiff=-10\relax% - \yl@ydiff=58\relax% - \putratom{301}{173}{\@memberb}% % right type - \put(171,303){\line(5,-3){120}}% % single bond at G - \else\if\@tmpc D%beta single bond (upward) - \yl@xdiff=31\relax% - \yl@ydiff=-17\relax% - \putlratom{140}{460}{\@memberb}% % left or right type - {% - \thicklines% - \put(171,303){\line(0,1){140}}% % single bond at G - }% - \else\if\@tmpc C%alpha single bond (upward) - \yl@xdiff=31\relax% - \yl@ydiff=-17\relax% - \putlratom{140}{460}{\@memberb}% % left or right type - \@ifundefined{dottedline}{% - \put(171,303){\line(0,1){140}}% % single bond at G - }{{\thicklines% - \dottedline{20}(171,303)(171,443)}}% - \fi\fi\fi\fi\fi\fi\fi% -}% end of \GFbondb@b -\def\GFbondc{% -\if@fused@link - \if\@tmpb G%single bond at (-5,-3) fusion - \GFbondc@a - \else\if\@tmpb F%single bond at F - \GFbondc@b - \fi\fi% -\else - \if\@tmpb F%single bond at (-5,-3) fusion - \GFbondc@a - \else\if\@tmpb G%single bond at G - \GFbondc@b - \fi\fi% -\fi -}% end of \GFbondc - \def\GFbondc@a{% - \if\@tmpc B%beta single bond - \yl@xdiff=-10\relax% - \yl@ydiff=12\relax% - \putratom{130}{466}{\@memberb}% % right type - {% - \thicklines% - \put(0,406){\line(5,3){120}}% % single bond at F - }% - \else\if\@tmpc A%alpha single bond - \yl@xdiff=-10\relax% - \yl@ydiff=12\relax% - \putratom{130}{466}{\@memberb}% % right type - \@ifundefined{dottedline}{% - \put(0,406){\line(5,3){120}}% % single bond at F - }{{\thicklines% - \dottedline{20}(0,406)(120,478)}}% - \else\if\@tmpc U%unspecified single bond - \yl@xdiff=-10\relax% - \yl@ydiff=12\relax% - \putratom{130}{466}{\@memberb}% % right type - \put(0,406){\line(5,3){120}}% % single bond at F - \else\if\@tmpc S%beta single bond - \yl@xdiff=-10\relax% - \yl@ydiff=12\relax% - \putratom{130}{466}{\@memberb}% % right type - \put(0,406){\line(5,3){120}}% % single bond at F - \else\ifx\@tmpc\empty%beta single bond - \yl@xdiff=-10\relax% - \yl@ydiff=12\relax% - \putratom{130}{466}{\@memberb}% % right type - \put(0,406){\line(5,3){120}}% % single bond at F - \else\if\@tmpc D%beta single bond (downward) - \yl@xdiff=31\relax% - \yl@ydiff=90\relax% - \putlratom{-31}{176}{\@memberb}% % left or right type - {% - \thicklines% - \put(0,406){\line(0,-1){140}}% % single bond at F - }% - \else\if\@tmpc C%alpha single bond (downward) - \yl@xdiff=31\relax% - \yl@ydiff=90\relax% - \putlratom{-31}{176}{\@memberb}% % left or right type - \@ifundefined{dottedline}{% - \put(0,406){\line(0,-1){140}}% % single bond at F - }{{\thicklines% - \dottedline{20}(0,406)(0,266)}}% - \fi\fi\fi\fi\fi\fi\fi% -}% end of \GFbondc@a -\def\GFbondc@b{% - \if\@tmpc B%beta single bond - \yl@xdiff=10\relax% - \yl@ydiff=59\relax% - \putlatom{-301}{173}{\@memberb}% % left type - {% - \thicklines% - \put(-171,303){\line(-5,-3){120}}% % single bond at G - }% - \else\if\@tmpc A%alpha single bond - \yl@xdiff=10\relax% - \yl@ydiff=59\relax% - \putlatom{-301}{173}{\@memberb}% % left type - \@ifundefined{dottedline}{% - \put(-171,303){\line(-5,-3){120}}% % single bond at G - }{{\thicklines% - \dottedline{20}(-171,303)(-291,231)}}% - \else\if\@tmpc U%unspecified single bond - \yl@xdiff=10\relax% - \yl@ydiff=59\relax% - \putlatom{-301}{173}{\@memberb}% % left type - \put(-171,303){\line(-5,-3){120}}% single bond at G - \else\if\@tmpc S%alpha single bond - \yl@xdiff=10\relax% - \yl@ydiff=59\relax% - \putlatom{-301}{173}{\@memberb}% % left type - \put(-171,303){\line(-5,-3){120}}% single bond at G - \else\ifx\@tmpc\empty%alpha single bond - \yl@xdiff=10\relax% - \yl@ydiff=59\relax% - \putlatom{-301}{173}{\@memberb}% % left type - \put(-171,303){\line(-5,-3){120}}% single bond at G - \else\if\@tmpc D%beta single bond (upward) - \yl@xdiff=-30\relax% - \yl@ydiff=-17\relax% - \putlratom{201}{460}{\@memberb}% % left or right type - {% - \thicklines% - \put(-171,303){\line(0,1){140}}% % single bond at G - }% - \else\if\@tmpc C%alpha single bond (upward) - \yl@xdiff=-30\relax% - \yl@ydiff=-17\relax% - \putlratom{201}{460}{\@memberb}% % left or right type - \@ifundefined{dottedline}{% - \put(-171,303){\line(0,1){140}}% % single bond at G - }{{\thicklines% - \dottedline{20}(-171,303)(-171,443)}}% - \fi\fi\fi\fi\fi\fi\fi% -}% end of \GFbondc@b -\def\GFbondd{% - \if\@tmpb G%single bond at G (fused position) - \if\@tmpc B%beta single bond - \yl@xdiff=-17\relax% - \yl@ydiff=31\relax% - \putlratom{460}{140}{\@memberb}% % left or right type - {% - \thicklines% - \put(303,171){\line(1,0){140}}% % single bond at G - }% - \else\if\@tmpc A%alpha single bond - \yl@xdiff=-17\relax% - \yl@ydiff=31\relax% - \putlratom{460}{140}{\@memberb}% % left or right type - \@ifundefined{dottedline}{% - \put(303,171){\line(1,0){140}}% % single bond at G - }{{\thicklines% - \dottedline{20}(303,171)(443,171)}}% - \else\if\@tmpc U% unspecified single bond - \yl@xdiff=-17\relax% - \yl@ydiff=31\relax% - \putlratom{460}{140}{\@memberb}% % left or right type - \put(303,148){$\sim$}% unspecified single bond at G - \put(353,148){$\sim$}% - \put(403,148){$\sim$}% - \else\if\@tmpc S%beta single bond - \yl@xdiff=-17\relax% - \yl@ydiff=31\relax% - \putlratom{460}{140}{\@memberb}% % left or right type - \put(303,171){\line(1,0){140}}% % single bond at G - \else\ifx\@tmpc\empty%beta single bond - \yl@xdiff=-17\relax% - \yl@ydiff=31\relax% - \putlratom{460}{140}{\@memberb}% % left or right type - \put(303,171){\line(1,0){140}}% % single bond at G - \fi\fi\fi\fi\fi% - \else\if\@tmpb F%single bond at F (fused position) - \if\@tmpc B%beta single bond - \yl@xdiff=20\relax% - \yl@ydiff=31\relax% - \putlatom{-57}{140}{\@memberb}% % left type - {% - \thicklines% - \put(103,171){\line(-1,0){140}}% % single bond at F - }% - \else\if\@tmpc A%alpha single bond - \yl@xdiff=20\relax% - \yl@ydiff=31\relax% - \putlatom{-57}{140}{\@memberb}% % left type - \@ifundefined{dottedline}{% - \put(103,171){\line(-1,0){140}}% % single bond at F - }{{\thicklines% - \dottedline{20}(103,171)(-37,171)}}% - \else\if\@tmpc U%beta single bond - \yl@xdiff=20\relax% - \yl@ydiff=31\relax% - \putlatom{-57}{140}{\@memberb}% % left type - \put(40,148){$\sim$}% unspecified single bond at F - \put(-13,148){$\sim$}% - \put(-62,148){$\sim$}% - \else\if\@tmpc S%alpha single bond - \yl@xdiff=20\relax% - \yl@ydiff=31\relax% - \putlatom{-57}{140}{\@memberb}% % left type - \put(103,171){\line(-1,0){140}}% % single bond at F - \else\ifx\@tmpc\empty%alpha single bond - \yl@xdiff=20\relax% - \yl@ydiff=31\relax% - \putlatom{-57}{140}{\@memberb}% % left type - \put(103,171){\line(-1,0){140}}% % single bond at F - \fi\fi\fi\fi\fi% - \fi\fi% -}% end of \GFbondd -\newif\if@fused@link \@fused@linkfalse -\def\setfusedbond#1#2#3#4#5{% -\@forsemicol\member:=#1\do{% -\ifx\member\empty\else% -\expandafter\@m@mb@r\member;\relax% -\expandafter\threech@r\@membera{}{}% -\ifx\@memberb\@yl\else -\ifnum#5<0\relax% -\@tmpaa=-\@tmpa\relax\advance\@tmpaa by #2\relax\@fused@linktrue -\else\@tmpaa=\@tmpa\relax\advance\@tmpaa by #2\relax -\@fused@linkfalse\fi% -\ifnum\@tmpaa >#3\relax% -\ifnum\@tmpaa <#4\relax% -\ifcase\@tmpaa% -\GFbonda -\or% subst. on 1 F == (0,406), G == (171,303) -\GFbondb -\or% subst. on 2 F == (0,406), G == (-171,303) for \@fused@linkfalse - % subst. on 2 G == (0,406), F == (-171,303) for \@fused@linktrue -\GFbondc -\or %3 fused positions % G == (303,171) F == (103,171) -\GFbondd -\fi%end of ifcase -\fi\fi\fi\fi}}% -\newif\if@clipfuse \@clipfusefalse -\def\setatombond#1#2#3{% -\@forsemicol\member:=#1\do{% -\ifx\member\empty\else% -\expandafter\@m@mb@r\member;\relax% -\expandafter\threech@r\@membera{}{}% -\@tmpaa=\@tmpa\relax\advance\@tmpaa by #2\relax -\ifx\@memberb\@yl\else -\ifnum\@tmpaa >0\relax% -\ifnum\@tmpaa <2\relax% -\ifcase\@tmpaa% -\or% subst. on 1 - \ifnum#3=1\relax%(upward) - \setatombonda - \else\ifnum#3=4\relax%(right) - \setatombondb - \else\ifnum#3=7\relax%(downward) - \setatombondc - \else\ifnum#3=11\relax% - \setatombondd - \else\ifnum#3=5\relax% - \setatombonde - \else\ifnum#3=3\relax% - \setatombondf - \else\ifnum#3=9\relax% - \setatombondg - \else\ifnum#3=10\relax%(left) - \setatombondh -\fi\fi\fi\fi\fi\fi\fi\fi% -\fi%end of ifcase -\fi\fi\fi\fi}}% -\def\setatombonda{%upward (0,1) - \if@clipfuse% - \if\@tmpb B%beta single bond - \yl@xdiff=31\relax - \yl@ydiff=-17\relax - {% - \thicklines% - \put(0,40){\line(0,1){100}}% % single bond at 1 - }% - \else\if\@tmpb A%alpha single bond - \yl@xdiff=31\relax - \yl@ydiff=-17\relax - \@ifundefined{dottedline}{% - \put(0,40){\line(0,1){100}}% % single bond at 1 - }{{\thicklines% - \dottedline{20}(0,40)(0,140)}}% - \else\if\@tmpb U% unspecified single bond - \yl@xdiff=31\relax - \yl@ydiff=-17\relax - \put(-3,30){$\wr$}% unspecified single bond at 1 - \put(-3,80){$\wr$}% - \else\if\@tmpb S%beta single bond - \yl@xdiff=31\relax - \yl@ydiff=-17\relax - \put(0,40){\line(0,1){100}}% % single bond at 1 - \else\if\@tmpb D%double bond - \yl@xdiff=31\relax - \yl@ydiff=-17\relax - \put(-10,40){\line(0,1){100}}% % single bond at 1 - \put(10,40){\line(0,1){100}}% % single bond at 1 - \else\if\@tmpb T%double bond - \yl@xdiff=31\relax - \yl@ydiff=-17\relax - \put(-15,40){\line(0,1){100}}% % single bond at 1 - \put(0,40){\line(0,1){100}}% % single bond at 1 - \put(15,40){\line(0,1){100}}% % single bond at 1 - \else\ifx\@tmpb\empty%beta single bond - \yl@xdiff=31\relax - \yl@ydiff=-17\relax - \put(0,40){\line(0,1){100}}% % single bond at 1 - \fi\fi\fi\fi\fi\fi\fi% - \putlratom{-31}{157}{\@memberb}% % left or right type - \else%no clip - \if\@tmpb B%beta single bond - \yl@xdiff=31\relax - \yl@ydiff=-17\relax - {% - \thicklines% - \put(0,0){\line(0,1){140}}% % single bond at 1 - }% - \else\if\@tmpb A%alpha single bond - \yl@xdiff=31\relax - \yl@ydiff=-17\relax - \@ifundefined{dottedline}{% - \put(0,0){\line(0,1){140}}% % single bond at 1 - }{{\thicklines% - \dottedline{20}(0,0)(0,140)}}% - \else\if\@tmpb U% unspecified single bond - \yl@xdiff=31\relax - \yl@ydiff=-17\relax - \put(-3,0){$\wr$}% unspecified single bond at 1 - \put(-3,50){$\wr$}% - \put(-3,100){$\wr$}% - \else\if\@tmpb S%beta single bond - \yl@xdiff=31\relax - \yl@ydiff=-17\relax - \put(0,0){\line(0,1){140}}% % single bond at 1 - \else\if\@tmpb D%beta single bond - \yl@xdiff=31\relax - \yl@ydiff=-17\relax - \put(-10,0){\line(0,1){140}}% % single bond at 1 - \put(10,0){\line(0,1){140}}% % single bond at 1 - \else\if\@tmpb T%beta single bond - \yl@xdiff=31\relax - \yl@ydiff=-17\relax - \put(-15,0){\line(0,1){140}}% % single bond at 1 - \put(0,0){\line(0,1){140}}% % single bond at 1 - \put(15,0){\line(0,1){140}}% % single bond at 1 - \else\ifx\@tmpb\empty%beta single bond - \yl@xdiff=31\relax - \yl@ydiff=-17\relax - \put(0,0){\line(0,1){140}}% % single bond at 1 - \fi\fi\fi\fi\fi\fi\fi% - \putlratom{-31}{157}{\@memberb}% % left or right type - \fi% -}% end of \setatombonda -\def\setatombondb{%(right) (1,0) - \if@clipfuse% - \if\@tmpb B%beta single bond - \yl@xdiff=-17\relax - \yl@ydiff=31\relax - {% - \thicklines% - \put(30,0){\line(1,0){110}}% % single bond at 1 - }% - \else\if\@tmpb A%alpha single bond - \yl@xdiff=-17\relax - \yl@ydiff=31\relax - \@ifundefined{dottedline}{% - \put(30,0){\line(1,0){110}}% % single bond at 1 - }{{\thicklines% - \dottedline{20}(30,0)(140,0)}}% - \else\if\@tmpb U%beta single bond - \yl@xdiff=-17\relax - \yl@ydiff=31\relax - \put(30,0){\line(1,0){110}}% % single bond at 1 - \else\if\@tmpb S%alpha single bond - \yl@xdiff=-17\relax - \yl@ydiff=31\relax - \put(40,0){\line(1,0){100}}% % single bond at 1 - \else\if\@tmpb D%alpha single bond - \yl@xdiff=-17\relax - \yl@ydiff=31\relax - \put(40,10){\line(1,0){100}}% % single bond at 1 - \put(40,-10){\line(1,0){100}}% % single bond at 1 - \else\if\@tmpb T%alpha single bond - \yl@xdiff=-17\relax - \yl@ydiff=31\relax - \put(40,15){\line(1,0){100}}% % single bond at 1 - \put(40,0){\line(1,0){100}}% % single bond at 1 - \put(40,-15){\line(1,0){100}}% % single bond at 1 - \else\ifx\@tmpb\empty%alpha single bond - \yl@xdiff=-17\relax - \yl@ydiff=31\relax - \put(40,0){\line(1,0){100}}% % single bond at 1 - \fi\fi\fi\fi\fi\fi\fi% - \putratom{157}{-31}{\@memberb}% % right type only - \else% - \if\@tmpb B%beta single bond - \yl@xdiff=-17\relax - \yl@ydiff=31\relax - {% - \thicklines% - \put(0,0){\line(1,0){140}}% % single bond at 1 - }% - \else\if\@tmpb A%alpha single bond - \yl@xdiff=-17\relax - \yl@ydiff=31\relax - \@ifundefined{dottedline}{% - \put(0,0){\line(1,0){140}}% % single bond at 1 - }{{\thicklines% - \dottedline{20}(0,0)(140,0)}}% - \else\if\@tmpb U%beta single bond - \yl@xdiff=-17\relax - \yl@ydiff=31\relax - \put(0,0){\line(1,0){140}}% % single bond at 1 - \else\if\@tmpb S%alpha single bond - \yl@xdiff=-17\relax - \yl@ydiff=31\relax - \put(0,0){\line(1,0){140}}% % single bond at 1 - \else\if\@tmpb D%alpha single bond - \yl@xdiff=-17\relax - \yl@ydiff=31\relax - \put(0,10){\line(1,0){140}}% % single bond at 1 - \put(0,-10){\line(1,0){140}}% % single bond at 1 - \else\if\@tmpb T%alpha single bond - \yl@xdiff=-17\relax - \yl@ydiff=31\relax - \put(0,-15){\line(1,0){140}}% % single bond at 1 - \put(0,0){\line(1,0){140}}% % single bond at 1 - \put(0,15){\line(1,0){140}}% % single bond at 1 - \else\ifx\@tmpb\empty%alpha single bond - \yl@xdiff=-17\relax - \yl@ydiff=31\relax - \put(0,0){\line(1,0){140}}% % single bond at 1 - \fi\fi\fi\fi\fi\fi\fi% - \putratom{157}{-31}{\@memberb}% % right type only - \fi% -}% end of \setatombondb -\def\setatombondc{%(downward) (0,-1) - \if@clipfuse% - \if\@tmpb B%beta single bond - \yl@xdiff=31\relax - \yl@ydiff=90\relax - {% - \thicklines% - \put(0,-40){\line(0,-1){100}}% % single bond at 1 - }% - \else\if\@tmpb A%alpha single bond - \yl@xdiff=31\relax - \yl@ydiff=90\relax - \@ifundefined{dottedline}{% - \put(0,-40){\line(0,-1){100}}% % single bond at 1 - }{{\thicklines% - \dottedline{20}(0,-40)(0,-140)}}% - \else\if\@tmpb U%beta single bond - \yl@xdiff=31\relax - \yl@ydiff=90\relax - \put(-3,-90){$\wr$}% unspecified single bond at 1 - \put(-3,-140){$\wr$}% - \else\if\@tmpb S%alpha single bond - \yl@xdiff=31\relax - \yl@ydiff=90\relax - \put(0,-40){\line(0,-1){100}}% % single bond at 1 - \else\if\@tmpb D%alpha single bond - \yl@xdiff=31\relax - \yl@ydiff=90\relax - \put(10,-40){\line(0,-1){100}}% % single bond at 1 - \put(-10,-40){\line(0,-1){100}}% % single bond at 1 - \else\if\@tmpb T%alpha single bond - \yl@xdiff=31\relax - \yl@ydiff=90\relax - \put(15,-40){\line(0,-1){100}}% % single bond at 1 - \put(0,-40){\line(0,-1){100}}% % single bond at 1 - \put(-15,-40){\line(0,-1){100}}% % single bond at 1 - \else\ifx\@tmpb\empty%alpha single bond - \yl@xdiff=31\relax - \yl@ydiff=90\relax - \put(0,-40){\line(0,-1){100}}% % single bond at 1 - \fi\fi\fi\fi\fi\fi\fi% - \putlratom{-31}{-230}{\@memberb}% % left or right type - \else%no clipping - \if\@tmpb B%beta single bond - \yl@xdiff=31\relax - \yl@ydiff=90\relax - {% - \thicklines% - \put(0,0){\line(0,-1){140}}% % single bond at 1 - }% - \else\if\@tmpb A%alpha single bond - \yl@xdiff=31\relax - \yl@ydiff=90\relax - \@ifundefined{dottedline}{% - \put(0,0){\line(0,-1){140}}% % single bond at 1 - }{{\thicklines% - \dottedline{20}(0,0)(0,-140)}}% - \else\if\@tmpb U%beta single bond - \yl@xdiff=31\relax - \yl@ydiff=90\relax - \put(-3,-60){$\wr$}% unspecified single bond at 1 - \put(-3,-110){$\wr$}% - \put(-3,-160){$\wr$}% - \else\if\@tmpb S%alpha single bond - \yl@xdiff=31\relax - \yl@ydiff=90\relax - \put(0,0){\line(0,-1){140}}% % single bond at 1 - \else\if\@tmpb D%alpha single bond - \yl@xdiff=31\relax - \yl@ydiff=90\relax - \put(10,0){\line(0,-1){140}}% % single bond at 1 - \put(-10,0){\line(0,-1){140}}% % single bond at 1 - \else\if\@tmpb T%alpha single bond - \yl@xdiff=31\relax - \yl@ydiff=90\relax - \put(15,0){\line(0,-1){140}}% % single bond at 1 - \put(0,0){\line(0,-1){140}}% % single bond at 1 - \put(-15,0){\line(0,-1){140}}% % single bond at 1 - \else\ifx\@tmpb\empty%alpha single bond - \yl@xdiff=31\relax - \yl@ydiff=90\relax - \put(0,0){\line(0,-1){140}}% % single bond at 1 - \fi\fi\fi\fi\fi\fi\fi% - \putlratom{-31}{-230}{\@memberb}% % left or right type - \fi% -}% end of \setatombondc -\def\setatombondd{% (-5,3) - \if@clipfuse% - \yl@xdiff=-10\relax - \yl@ydiff=18\relax - \if\@tmpb B%beta single bond - {% - \thicklines% - \put(-30,18){\line(-5,3){100}}% % single bond at 1 - }% - \else\if\@tmpb A%alpha single bond - \@ifundefined{dottedline}{% - \put(-30,18){\line(-5,3){100}}% % single bond at 1 - }{{\thicklines% - \dottedline{20}(-30,18)(-130,78)}}% - \else\if\@tmpb U%unspecified single bond - \put(-30,18){\line(-5,3){100}}% % single bond at 1 - \else\if\@tmpb S%beta single bond - \put(-30,18){\line(-5,3){100}}% % single bond at 1 - \else\if\@tmpb D%beta single bond - \put(-36,8){\line(-5,3){100}}% % single bond at 1 - \put(-24,24){\line(-5,3){100}}% % single bond at 1 - \else\if\@tmpb T%beta single bond - \put(-39,3){\line(-5,3){100}}% % single bond at 1 - \put(-30,18){\line(-5,3){100}}% % single bond at 1 - \put(-21,33){\line(-5,3){100}}% % single bond at 1 - \else\ifx\@tmpb\empty%beta single bond - \put(-30,18){\line(-5,3){100}}% % single bond at 1 - \fi\fi\fi\fi\fi\fi\fi% - \putlatom{-130}{60}{\@memberb}% % left type - \else%no clipping - \yl@xdiff=-10\relax - \yl@ydiff=18\relax - \if\@tmpb B%beta single bond - {% - \thicklines% - \put(0,0){\line(-5,3){130}}% % single bond at 1 - }% - \else\if\@tmpb A%alpha single bond - \@ifundefined{dottedline}{% - \put(0,0){\line(-5,3){130}}% % single bond at 1 - }{{\thicklines% - \dottedline{20}(0,0)(-130,78)}}% - \else\if\@tmpb U%unspecified single bond - \put(0,0){\line(-5,3){130}}% % single bond at 1 - \else\if\@tmpb S%beta single bond - \put(0,0){\line(-5,3){130}}% % single bond at 1 - \else\if\@tmpb D%beta single bond - \put(6,10){\line(-5,3){130}}% % single bond at 1 - \put(-6,-10){\line(-5,3){130}}% % single bond at 1 - \else\if\@tmpb T%beta single bond - \put(9,15){\line(-5,3){130}}% % single bond at 1 - \put(0,0){\line(-5,3){130}}% % single bond at 1 - \put(-9,-15){\line(-5,3){130}}% % single bond at 1 - \else\ifx\@tmpb\empty%beta single bond - \put(0,0){\line(-5,3){130}}% % single bond at 1 - \fi\fi\fi\fi\fi\fi\fi% - \putlatom{-130}{60}{\@memberb}% % left type - \fi% -}% end of \setatombondd -\def\setatombonde{%(5,-3) - \if@clipfuse% - \yl@xdiff=-10\relax - \yl@ydiff=52\relax - \if\@tmpb B%beta single bond - {% - \thicklines% - \put(30,-18){\line(5,-3){100}}% % single bond at 1 - }% - \else\if\@tmpb A%alpha single bond - \@ifundefined{dottedline}{% - \put(30,-18){\line(5,-3){100}}% % single bond at 1 - }{{\thicklines% - \dottedline{20}(30,-18)(130,-78)}}% - \else\if\@tmpb U%unspecified single bond - \put(30,-18){\line(5,-3){100}}% % single bond at 1 - \else\if\@tmpb S%alpha single bond - \put(30,-18){\line(5,-3){100}}% % single bond at 1 - \else\if\@tmpb D%alpha single bond - \put(36,-12){\line(5,-3){100}}% % single bond at 1 - \put(24,-28){\line(5,-3){100}}% % single bond at 1 - \else\if\@tmpb T%alpha single bond - \put(39,-3){\line(5,-3){100}}% % single bond at 1 - \put(30,-18){\line(5,-3){100}}% % single bond at 1 - \put(21,-33){\line(5,-3){100}}% % single bond at 1 - \else\ifx\@tmpb\empty%alpha single bond - \put(30,-18){\line(5,-3){100}}% % single bond at 1 - \fi\fi\fi\fi\fi\fi\fi% - \putratom{140}{-130}{\@memberb}% % right type - \else%no clipping - \yl@xdiff=-10\relax - \yl@ydiff=52\relax - \if\@tmpb B%beta single bond - {% - \thicklines% - \put(0,0){\line(5,-3){130}}% % single bond at 1 - }% - \else\if\@tmpb A%alpha single bond - \@ifundefined{dottedline}{% - \put(0,0){\line(5,-3){130}}% % single bond at 1 - }{{\thicklines% - \dottedline{20}(0,0)(130,-78)}}% - \else\if\@tmpb U%unspecified single bond - \put(0,0){\line(5,-3){130}}% % single bond at 1 - \else\if\@tmpb S%alpha single bond - \put(0,0){\line(5,-3){130}}% % single bond at 1 - \else\if\@tmpb D%alpha single bond - \put(6,10){\line(5,-3){130}}% % single bond at 1 - \put(-6,-10){\line(5,-3){130}}% % single bond at 1 - \else\if\@tmpb T%alpha single bond - \put(9,15){\line(5,-3){130}}% % single bond at 1 - \put(0,0){\line(5,-3){130}}% % single bond at 1 - \put(-9,-15){\line(5,-3){130}}% % single bond at 1 - \else\ifx\@tmpb\empty%alpha single bond - \put(0,0){\line(5,-3){130}}% % single bond at 1 - \fi\fi\fi\fi\fi\fi\fi% - \putratom{140}{-130}{\@memberb}% % right type - \fi% -}% end of \setatombonde -\def\setatombondf{%% (5,3) - \if@clipfuse% - \yl@xdiff=-10\relax - \yl@ydiff=18\relax - \if\@tmpb B%beta single bond - {% - \thicklines% - \put(30,18){\line(5,3){100}}% % single bond at 1 - }% - \else\if\@tmpb A%alpha single bond - \@ifundefined{dottedline}{% - \put(30,18){\line(5,3){100}}% % single bond at 1 - }{{\thicklines% - \dottedline{20}(30,18)(130,78)}}% - \else\if\@tmpb U%unspecified single bond - \put(30,18){\line(5,3){100}}% % single bond at 1 - \else\if\@tmpb S%beta single bond - \put(30,18){\line(5,3){100}}% % single bond at 1 - \else\if\@tmpb D%beta single bond - \put(36,8){\line(5,3){100}}% % single bond at 1 - \put(24,24){\line(5,3){100}}% % single bond at 1 - \else\if\@tmpb T%beta single bond - \put(39,3){\line(5,3){100}}% % single bond at 1 - \put(30,18){\line(5,3){100}}% % single bond at 1 - \put(21,33){\line(5,3){100}}% % single bond at 1 - \else\ifx\@tmpb\empty%beta single bond - \put(30,18){\line(5,3){100}}% % single bond at 1 - \fi\fi\fi\fi\fi\fi\fi% - \putratom{140}{60}{\@memberb}% % right type - \else%no clipping - \yl@xdiff=-10\relax - \yl@ydiff=18\relax - \if\@tmpb B%beta single bond - {% - \thicklines% - \put(0,0){\line(5,3){130}}% % single bond at 1 - }% - \else\if\@tmpb A%alpha single bond - \@ifundefined{dottedline}{% - \put(0,0){\line(5,3){130}}% % single bond at 1 - }{{\thicklines% - \dottedline{20}(0,0)(130,78)}}% - \else\if\@tmpb U%unspecified single bond - \put(0,0){\line(5,3){130}}% % single bond at 1 - \else\if\@tmpb S%beta single bond - \put(0,0){\line(5,3){130}}% % single bond at 1 - \else\if\@tmpb D%beta single bond - \put(6,-10){\line(5,3){130}}% % single bond at 1 - \put(-6,10){\line(5,3){130}}% % single bond at 1 - \else\if\@tmpb T%beta single bond - \put(9,-15){\line(5,3){130}}% % single bond at 1 - \put(0,0){\line(5,3){130}}% % single bond at 1 - \put(-9,15){\line(5,3){130}}% % single bond at 1 - \else\ifx\@tmpb\empty%beta single bond - \put(0,0){\line(5,3){130}}% % single bond at 1 - \fi\fi\fi\fi\fi\fi\fi% - \putratom{140}{60}{\@memberb}% % right type - \fi% -}% end of \setatombondf -\def\setatombondg{%% (-5,-3) - \if@clipfuse% - \yl@xdiff=0\relax - \yl@ydiff=52\relax%1999/1/6 by Shinsaku Fujita - \if\@tmpb B%beta single bond - {% - \thicklines% - \put(-30,-18){\line(-5,-3){100}}% % single bond at 1 - }% - \else\if\@tmpb A%alpha single bond - \@ifundefined{dottedline}{% - \put(-30,-18){\line(-5,-3){100}}% % single bond at 1 - }{{\thicklines% - \dottedline{20}(-20,-12)(-120,-72)}}% - \else\if\@tmpc U%unspecified single bond - \put(-30,-18){\line(-5,-3){100}}% % single bond at 1 - \else\if\@tmpc S%alpha single bond - \put(-30,-18){\line(-5,-3){100}}% % single bond at 1 - \else\if\@tmpb D%double bond - \put(-36,-12){\line(-5,-3){100}}% % single bond at 1 - \put(-24,-28){\line(-5,-3){100}}% % single bond at 1 - \else\if\@tmpb T%triple bond - \put(-39,-3){\line(-5,-3){100}}% % single bond at 1 - \put(-30,-18){\line(-5,-3){100}}% % single bond at 1 - \put(-21,-33){\line(-5,-3){100}}% % single bond at 1 - \else\ifx\@tmpc\empty%alpha single bond - \put(-30,-18){\line(-5,-3){100}}% % single bond at 1 - \fi\fi\fi\fi\fi\fi\fi% - \putlatom{-130}{-130}{\@memberb}% % left type - \else% - \yl@xdiff=0\relax - \yl@ydiff=52\relax%1999/1/6 by Shinsaku Fujita - \if\@tmpb B%beta single bond - {% - \thicklines% - \put(0,0){\line(-5,-3){130}}% % single bond at 1 - }% - \else\if\@tmpb A%alpha single bond - \@ifundefined{dottedline}{% - \put(0,0){\line(-5,-3){130}}% % single bond at 1 - }{{\thicklines% - \dottedline{20}(0,0)(-130,-78)}}% - \else\if\@tmpc U%unspecified single bond - \put(0,0){\line(-5,-3){130}}% % single bond at 1 - \else\if\@tmpc S%alpha single bond - \put(0,0){\line(-5,-3){130}}% % single bond at 1 - \else\if\@tmpb D%alpha single bond - \put(-6,10){\line(-5,-3){130}}% % single bond at 1 - \put(6,-10){\line(-5,-3){130}}% % single bond at 1 - \else\if\@tmpb T%alpha single bond - \put(-9,15){\line(-5,-3){130}}% % single bond at 1 - \put(0,0){\line(-5,-3){130}}% % single bond at 1 - \put(9,-15){\line(-5,-3){130}}% % single bond at 1 - \else\ifx\@tmpc\empty%alpha single bond - \put(0,0){\line(-5,-3){130}}% % single bond at 1 - \fi\fi\fi\fi\fi\fi\fi% - \putlatom{-130}{-130}{\@memberb}% % left type - \fi% -}% end of \setatombondg -\def\setatombondh{% (-1,0) - \yl@xdiff=17\relax - \yl@ydiff=31\relax - \if@clipfuse% - \if\@tmpb B%beta single bond - {% - \thicklines% - \put(-30,0){\line(-1,0){110}}% % single bond at 1 - }% - \else\if\@tmpb A%alpha single bond - \@ifundefined{dottedline}{% - \put(-30,0){\line(-1,0){110}}% % single bond at 1 - }{{\thicklines% - \dottedline{20}(-30,0)(-140,0)}}% - \else\if\@tmpb U%beta single bond - \put(-30,0){\line(-1,0){110}}% % single bond at 1 - \else\if\@tmpb S%alpha single bond - \put(-40,0){\line(-1,0){100}}% % single bond at 1 - \else\if\@tmpb D%alpha single bond - \put(-40,10){\line(-1,0){100}}% % single bond at 1 - \put(-40,-10){\line(-1,0){100}}% % single bond at 1 - \else\if\@tmpb T%alpha single bond - \put(-40,15){\line(-1,0){100}}% % single bond at 1 - \put(-40,0){\line(-1,0){100}}% % single bond at 1 - \put(-40,-15){\line(-1,0){100}}% % single bond at 1 - \else\ifx\@tmpb\empty%alpha single bond - \put(-40,0){\line(-1,0){100}}% % single bond at 1 - \fi\fi\fi\fi\fi\fi\fi% - \putlatom{-157}{-31}{\@memberb}% % left type only - \else% - \if\@tmpb B%beta single bond - {% - \thicklines% - \put(0,0){\line(-1,0){140}}% % single bond at 1 - }% - \else\if\@tmpb A%alpha single bond - \@ifundefined{dottedline}{% - \put(0,0){\line(-1,0){140}}% % single bond at 1 - }{{\thicklines% - \dottedline{20}(0,0)(-140,0)}}% - \else\if\@tmpb U%beta single bond - \put(0,0){\line(-1,0){140}}% % single bond at 1 - \else\if\@tmpb S%alpha single bond - \put(0,0){\line(-1,0){140}}% % single bond at 1 - \else\if\@tmpb D%alpha single bond - \put(0,10){\line(-1,0){140}}% % single bond at 1 - \put(0,-10){\line(-1,0){140}}% % single bond at 1 - \else\if\@tmpb T%alpha single bond - \put(0,-15){\line(-1,0){140}}% % single bond at 1 - \put(0,0){\line(-1,0){140}}% % single bond at 1 - \put(0,15){\line(-1,0){140}}% % single bond at 1 - \else\ifx\@tmpb\empty%alpha single bond - \put(0,0){\line(-1,0){140}}% % single bond at 1 - \fi\fi\fi\fi\fi\fi\fi% - \putlatom{-157}{-31}{\@memberb}% % left type only - \fi% -}% end of \setatombondh -\def\ylatombondposition#1#2#3{% -\@@ylswfalse%%%\@reset@ylsw -\@forsemicol\member:=#1\do{% -\if@@ylsw\else% -\ifx\member\empty\else% -\expandafter\@m@mb@r\member;\relax% -\expandafter\threech@r\@membera{}{}% -\ifx\@memberb\@yl\relax\@@ylswtrue\else\@@ylswfalse\fi -\if@@ylsw -\@tmpaa=\@tmpa\relax\advance\@tmpaa by #2\relax -\ifnum\@tmpaa >0\relax% -\ifnum\@tmpaa <2\relax% -\ifcase\@tmpaa% -\or% subst. on 1 - \ifnum#3=1\relax%upward - \if@clipfuse% - \gdef\@ylii{0}\gdef\@yli{-48}\global\@ylswtrue% - \else - \gdef\@ylii{0}\gdef\@yli{0}\global\@ylswtrue% - \fi - \else\ifnum#3=4\relax%(right) - \if@clipfuse% - \gdef\@ylii{-40}\gdef\@yli{0}\global\@ylswtrue% - \else - \gdef\@ylii{0}\gdef\@yli{0}\global\@ylswtrue% - \fi - \else\ifnum#3=7\relax%(downward) - \if@clipfuse% - \gdef\@ylii{0}\gdef\@yli{48}\global\@ylswtrue% - \else - \gdef\@ylii{0}\gdef\@yli{0}\global\@ylswtrue% - \fi - \else\ifnum#3=11\relax% - \if@clipfuse% - \gdef\@ylii{50}\gdef\@yli{-30}\global\@ylswtrue% - \else - \gdef\@ylii{0}\gdef\@yli{0}\global\@ylswtrue% - \fi - \else\ifnum#3=5\relax% - \if@clipfuse% - \gdef\@ylii{-50}\gdef\@yli{30}\global\@ylswtrue% - \else - \gdef\@ylii{0}\gdef\@yli{0}\global\@ylswtrue% - \fi - \else\ifnum#3=3\relax% - \if@clipfuse% - \gdef\@ylii{-50}\gdef\@yli{-30}\global\@ylswtrue% - \else - \gdef\@ylii{0}\gdef\@yli{0}\global\@ylswtrue% - \fi - \else\ifnum#3=9\relax% - \if@clipfuse% - \gdef\@ylii{50}\gdef\@yli{30}\global\@ylswtrue% - \else - \gdef\@ylii{0}\gdef\@yli{0}\global\@ylswtrue% - \fi - \else\ifnum#3=10\relax%(left) - \if@clipfuse% - \gdef\@ylii{40}\gdef\@yli{0}\global\@ylswtrue% - \else - \gdef\@ylii{0}\gdef\@yli{0}\global\@ylswtrue% - \fi -\fi\fi\fi\fi\fi\fi\fi\fi% -\fi%end of ifcase -\fi\fi\fi\fi% -\fi}}% end of \ylatombondposition -\def\ylpositionh#1#2#3#4#5{% -\@@ylswfalse%%%\@reset@ylsw -\@forsemicol\member:=#1\do{% -\if@@ylsw\else% -\ifx\member\empty\else% -\expandafter\@m@mb@r\member;\relax% -\expandafter\threech@r\@membera{}{}\relax% -\ifx\@memberb\@yl\relax\@@ylswtrue\else\@@ylswfalse\fi -\if@@ylsw -\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%0 omit - \or\ifx\aaa\empty - \gdef\@ylii{0}\gdef\@yli{0}\global\@ylswtrue%\@ylatrue% subst. on 1 - \else - \gdef\@ylii{30}\gdef\@yli{0}\global\@ylswtrue%\@ylatrue% subst. on 1 - \fi - \or\ifx\bbb\empty - \gdef\@ylii{-103}\gdef\@yli{-171}\global\@ylswtrue%\@ylbtrue% subst. on 2 - \else - \gdef\@ylii{-73}\gdef\@yli{-223}\global\@ylswtrue%\@ylbtrue% subst. on 2 - \fi - \or \ifx\ccc\empty - \gdef\@ylii{-303}\gdef\@yli{-171}\global\@ylswtrue%\@ylctrue% subst. on 3 - \else - \gdef\@ylii{-333}\gdef\@yli{-223}\global\@ylswtrue%\@ylctrue% subst. on 3 - \fi - \or\ifx\ddd\empty - \gdef\@ylii{-406}\gdef\@yli{0}\global\@ylswtrue%\@yldtrue% subst. on 4 - \else - \gdef\@ylii{-436}\gdef\@yli{0}\global\@ylswtrue%\@yldtrue% subst. on 4 - \fi - \or\ifx\eee\empty - \gdef\@ylii{-303}\gdef\@yli{171}\global\@ylswtrue%\@yletrue% subst. on 5 - \else - \gdef\@ylii{-333}\gdef\@yli{223}\global\@ylswtrue%\@yletrue% subst. on 5 - \fi - \or \ifx\fff\empty - \gdef\@ylii{-103}\gdef\@yli{171}\global\@ylswtrue%\@ylftrue% subst. on 6 - \else - \gdef\@ylii{-73}\gdef\@yli{223}\global\@ylswtrue%\@ylftrue% subst. on 6 - \fi -\fi%end of ifcase -\fi\fi\fi\fi\fi}}% -\def\@hsubsta{% -\if@aclip %clipping - \if\@tmpb S%single bond - \ifx\@tmpc\empty% - \yl@xdiff=17\relax - \yl@ydiff=31\relax - \putlatom{-157}{-31}{\@memberb}% % left type only - \put(-30,0){\line(-1,0){110}}% % single bond at 1 - \else\if\@tmpc B%(B) beta - \yl@xdiff=27\relax - \yl@ydiff=36\relax - \putlatom{-157}{42}{\@memberb}% % left type - {% - \thicklines% - \put(-30,18){\line(-5,3){100}}% % single bond at 1 - }% - \else\if\@tmpc A%(A) alpha - \yl@xdiff=37\relax - \yl@ydiff=28\relax - \putlatom{-157}{-100}{\@memberb}% % left type - \@ifundefined{dottedline}{% - \put(-30,-18){\line(-5,-3){100}}% % single bond at 1 - }{{\thicklines% - \dottedline{20}(-30,-18)(-120,-72)}}% - \else\if\@tmpc u%(u) up --- (B) beta - \yl@xdiff=37\relax - \yl@ydiff=28\relax - \putlatom{-157}{-100}{\@memberb}% % left type - {% - \thicklines% - \put(-30,-18){\line(-5,-3){100}}% % single bond at 1 - }% - \else\if\@tmpc d%(d) down --- (A) alpha - \yl@xdiff=27\relax - \yl@ydiff=36\relax - \putlatom{-157}{42}{\@memberb}% % left type - \@ifundefined{dottedline}{% - \put(-30,18){\line(-5,3){100}}% % single bond at 1 - }{{\thicklines% - \dottedline{20}(-30,18)(-130,78)}}% - \else\if\@tmpc b%(b) beta - \yl@xdiff=27\relax - \yl@ydiff=36\relax - \putlatom{-157}{42}{\@memberb}% % left type - \put(-30,18){\line(-5,3){100}}% % single bond at 1 - \else\if\@tmpc a%(a) alpha - \yl@xdiff=27\relax - \yl@ydiff=28\relax - \putlatom{-157}{-100}{\@memberb}% % left type - \put(-30,-18){\line(-5,-3){100}}% % single bond at 1 - \fi\fi\fi\fi\fi - \fi\fi - \else\if\@tmpb D%double bond - \yl@xdiff=17\relax - \yl@ydiff=31\relax - \putlatom{-157}{-31}{\@memberb}% % left type only - \put(-30,-12){\line(-1,0){110}}% % double bond at 1 - \put(-30,12){\line(-1,0){110}}% % double bond at 1 - \else\if\@tmpb B%beta single bond - \yl@xdiff=17\relax - \yl@ydiff=31\relax - \putlatom{-157}{-31}{\@memberb}% % left type only - {% - \thicklines% - \put(-30,0){\line(-1,0){110}}% % single bond at 1 - }% - \else\if\@tmpb A%alpha single bond - \yl@xdiff=17\relax - \yl@ydiff=31\relax - \putlatom{-157}{-31}{\@memberb}% % left type only - \@ifundefined{dottedline}{% - \put(-30,0){\line(-1,0){110}}% % single bond at 1 - }{{\thicklines% - \dottedline{20}(-30,0)(-140,0)}}% - \else\if\@tmpb F%fused bond - {\let\@tmpb=\@tmpc\@clipfusetrue - \put(0,0){\setatombondG}% - }% - \else\if\@tmpb G%fused bond - {\let\@tmpb=\@tmpc\@clipfusetrue - \put(0,0){\setatombondD}% - }% - \else% - \yl@xdiff=17\relax - \yl@ydiff=31\relax - \putlatom{-157}{-31}{\@memberb}% % left type only - \put(-40,0){\line(-1,0){100}}% % single bond at 1 - \fi\fi\fi\fi - \fi\fi% -\else%% no clipping - \if\@tmpb S%single bond - \ifx\@tmpc\empty% - \yl@xdiff=17\relax - \yl@ydiff=31\relax - \putlatom{-157}{-31}{\@memberb}% % left type only - \put(0,0){\line(-1,0){140}}% % single bond at 1 - \else\if\@tmpc B%(B) beta - \yl@xdiff=37\relax - \yl@ydiff=30\relax - \putlatom{-157}{42}{\@memberb}% % left type - {% - \thicklines% - \put(0,0){\line(-5,3){120}}% % single bond at 1 - }% - \else\if\@tmpc A%(A) alpha - \yl@xdiff=37\relax - \yl@ydiff=28\relax - \putlatom{-157}{-100}{\@memberb}% % left type - \@ifundefined{dottedline}{% - \put(0,0){\line(-5,-3){120}}% % single bond at 1 - }{{\thicklines% - \dottedline{20}(0,0)(-120,-72)}}% - \else\if\@tmpc u%(u) up --- (B) beta - \yl@xdiff=37\relax - \yl@ydiff=28\relax - \putlatom{-157}{-100}{\@memberb}% % left type - {% - \thicklines% - \put(0,0){\line(-5,-3){120}}% % single bond at 1 - }% - \else\if\@tmpc d%(d) down --- (A) alpha - \yl@xdiff=37\relax - \yl@ydiff=30\relax - \putlatom{-157}{42}{\@memberb}% % left type - \@ifundefined{dottedline}{% - \put(0,0){\line(-5,3){120}}% % single bond at 1 - }{{\thicklines% - \dottedline{20}(0,0)(-120,72)}}% - \else\if\@tmpc b%(b) beta - \yl@xdiff=37\relax - \yl@ydiff=30\relax - \putlatom{-157}{42}{\@memberb}% % left type - \put(0,0){\line(-5,3){120}}% % single bond at 1 - \else\if\@tmpc a%(a) alpha - \yl@xdiff=37\relax - \yl@ydiff=28\relax - \putlatom{-157}{-100}{\@memberb}% % left type - \put(0,0){\line(-5,-3){120}}% % single bond at 1 - \fi\fi\fi\fi\fi - \fi\fi - \else\if\@tmpb D%double bond - \yl@xdiff=17\relax - \yl@ydiff=31\relax - \putlatom{-157}{-31}{\@memberb}% % left type only - \put(0,-12){\line(-1,0){140}}% % double bond at 1 - \put(0,12){\line(-1,0){140}}% % double bond at 1 - \else\if\@tmpb B%beta single bond - \yl@xdiff=17\relax - \yl@ydiff=31\relax - \putlatom{-157}{-31}{\@memberb}% % left type only - {% - \thicklines% - \put(0,0){\line(-1,0){140}}% % single bond at 1 - }% - \else\if\@tmpb A%alpha single bond - \yl@xdiff=17\relax - \yl@ydiff=31\relax - \putlatom{-157}{-31}{\@memberb}% % left type only - \@ifundefined{dottedline}{% - \put(0,0){\line(-1,0){140}}% % single bond at 1 - }{{\thicklines% - \dottedline{20}(0,0)(-140,0)}}% - \else\if\@tmpb F%fused bond - {\let\@tmpb=\@tmpc\@clipfusefalse - \put(0,0){\setatombondG}% - }% - \else\if\@tmpb G%fused bond - {\let\@tmpb=\@tmpc\@clipfusefalse - \put(0,0){\setatombondD}% - }% - \else% - \yl@xdiff=17\relax - \yl@ydiff=31\relax - \putlatom{-157}{-31}{\@memberb}% % left type only - \put(0,0){\line(-1,0){140}}% % single bond at 1 - \fi\fi\fi\fi% - \fi\fi - \fi}%end of \@hsubsta -\def\@hsubstb{% - \if@bclip %clipping - \if\@tmpb S%single bond - \ifx\@tmpc\empty% - \yl@xdiff=43\relax - \yl@ydiff=5\relax - \putlratom{-27}{331}{\@memberb}% - \put(79,221){\line(-3,5){63}}% % single bond at 2 (62=>63) - \else\if\@tmpc B%(B) beta - \yl@xdiff=0\relax - \yl@ydiff=21\relax - \putlatom{-41}{240}{\@memberb}% % left type - {% - \thicklines% - \put(59,201){\line(-5,3){100}}% % single bond at 2 - }% - \else\if\@tmpc A%(A) alpha - \yl@xdiff=20\relax - \yl@ydiff=-10\relax - \putratom{83}{331}{\@memberb}% % right type - \@ifundefined{dottedline}{% - \put(103,221){\line(0,1){100}}% % single bond at 2 - }{{\thicklines% - \dottedline{20}(103,221)(103,321)}}%1998/10/11 by SF - \else\if\@tmpc u%(u) up --- (B) beta - \yl@xdiff=20\relax - \yl@ydiff=-10\relax - \putratom{83}{331}{\@memberb}% % right type - {% - \thicklines% - \put(103,221){\line(0,1){100}}% % single bond at 2 - }% - \else\if\@tmpc d%(d) down --- (A) alpha - \yl@xdiff=0\relax - \yl@ydiff=21\relax - \putlatom{-41}{240}{\@memberb}% % left type - \@ifundefined{dottedline}{% - \put(59,201){\line(-5,3){100}}% % single bond at 2 - }{{\thicklines% - \dottedline{20}(59,201)(-41,261)}}%1998/10/11 by SF - \else\if\@tmpc b%(b) beta - \yl@xdiff=0\relax - \yl@ydiff=21\relax - \putlatom{-41}{240}{\@memberb}% % left type - \put(59,201){\line(-5,3){100}}% % single bond at 2 - \else\if\@tmpc a%(a) alpha - \yl@xdiff=20\relax - \yl@ydiff=-10\relax - \putratom{83}{331}{\@memberb}% % right type - \put(103,221){\line(0,1){100}}% % single bond at 2 - \fi\fi\fi\fi\fi% - \fi\fi - \else\if\@tmpb D%double bond - \yl@xdiff=49\relax - \yl@ydiff=-13\relax - \putlratom{-27}{331}{\@memberb}% - \put(78,208){\line(-3,5){63}}% % double bond at 2(62->63) - \put(100,219){\line(-3,5){63}}% % double bond at 2(62->63) - \else\if\@tmpb B%beta single bond - \yl@xdiff=43\relax - \yl@ydiff=5\relax - \putlratom{-27}{331}{\@memberb}% - {% - \thicklines% - \put(79,221){\line(-3,5){63}}% % single bond at 2 (62->63) - }% - \else\if\@tmpb A%alpha single bond - \yl@xdiff=43\relax - \yl@ydiff=5\relax - \putlratom{-27}{331}{\@memberb}% - \@ifundefined{dottedline}{% - \put(79,221){\line(-3,5){63}}% % single bond at 2(62->63) - }{{\thicklines% - \dottedline{20}(79,221)(16,326)}}%1998/10/11 by SF - \else\if\@tmpb F%fused bond - {\let\@tmpb=\@tmpc\@clipfusetrue - \put(103,171){\setatombondh}% - }% - \else\if\@tmpb G%fused bond - {\let\@tmpb=\@tmpc\@clipfusetrue - \put(103,171){\setatombondF}% - }% - \else% - \yl@xdiff=43\relax - \yl@ydiff=5\relax - \putlratom{-27}{331}{\@memberb}% - \put(79,221){\line(-3,5){63}}% % single bond at 2 (62->63) - \fi\fi\fi\fi% - \fi\fi - \else%%no clipping - \if\@tmpb S%single bond - \ifx\@tmpc\empty% - \yl@xdiff=58\relax - \yl@ydiff=-41\relax - \putlratom{-27}{331}{\@memberb}% - \put(103,171){\line(-3,5){72}}% % single bond at 2 - \else\if\@tmpc B%(B) beta - \yl@xdiff=14\relax - \yl@ydiff=-3\relax - \putlatom{-31}{240}{\@memberb}% % left type - {% - \thicklines% - \put(103,171){\line(-5,3){120}}% % single bond at 2 - }% - \else\if\@tmpc A%(A) alpha - \yl@xdiff=20\relax - \yl@ydiff=-20\relax - \putratom{83}{331}{\@memberb}% % right type - \@ifundefined{dottedline}{% - \put(103,171){\line(0,1){140}}% % single bond at 2 - }{{\thicklines% - \dottedline{20}(103,171)(103,311)}}%1998/10/11 by SF - \else\if\@tmpc u%(u) up --- (B) beta - \yl@xdiff=20\relax - \yl@ydiff=-20\relax - \putratom{83}{331}{\@memberb}% % right type - {% - \thicklines% - \put(103,171){\line(0,1){140}}% % single bond at 2 - }% - \else\if\@tmpc d%(d) down --- (A) alpha - \yl@xdiff=14\relax - \yl@ydiff=-3\relax - \putlatom{-31}{240}{\@memberb}% % left type - \@ifundefined{dottedline}{% - \put(103,171){\line(-5,3){120}}% % single bond at 2 - }{{\thicklines% - \dottedline{20}(103,171)(-7,243)}}%1998/10/11 by SF - \else\if\@tmpc b%(b) beta - \yl@xdiff=14\relax - \yl@ydiff=-3\relax - \putlatom{-31}{240}{\@memberb}% % left type - \put(103,171){\line(-5,3){120}}% % single bond at 2 - \else\if\@tmpc a%(a) alpha - \yl@xdiff=20\relax - \yl@ydiff=-20\relax - \putratom{83}{331}{\@memberb}% % right type - \put(103,171){\line(0,1){140}}% % single bond at 2 - \fi\fi\fi\fi\fi% - \fi\fi - \else\if\@tmpb D%double bond - \yl@xdiff=64\relax - \yl@ydiff=-41\relax - \putlratom{-27}{331}{\@memberb}% - \put(96,168){\line(-3,5){72}}% % double bond at 2 - \put(121,174){\line(-3,5){72}}% % double bond at 2 - \else\if\@tmpb B%beta single bond - \yl@xdiff=58\relax - \yl@ydiff=-41\relax - \putlratom{-27}{331}{\@memberb}% - {% - \thicklines% - \put(103,171){\line(-3,5){72}}% % single bond at 2 - }% - \else\if\@tmpb A%alpha single bond - \yl@xdiff=58\relax - \yl@ydiff=-41\relax - \putlratom{-27}{331}{\@memberb}% - \@ifundefined{dottedline}{% - \put(103,171){\line(-3,5){72}}% % single bond at 2 - }{{\thicklines% - \dottedline{20}(103,171)(31,291)}}% - \else\if\@tmpb F%fused bond - {\let\@tmpb=\@tmpc\@clipfusefalse - \put(103,171){\setatombondh}% - }% - \else\if\@tmpb G%fused bond - {\let\@tmpb=\@tmpc\@clipfusefalse - \put(103,171){\setatombondF}% - }% - \else% - \yl@xdiff=58\relax - \yl@ydiff=-41\relax - \putlratom{-27}{331}{\@memberb}% - \put(103,171){\line(-3,5){72}}% % single bond at 2 - \fi\fi\fi\fi% - \fi\fi - \fi}% end of \@hsubstb -\def\@hsubstc{% - \if@cclip %clipping - \if\@tmpb S%single bond - \ifx\@tmpc\empty% - \yl@xdiff=43\relax - \yl@ydiff=5\relax - \putratom{363}{331}{\@memberb}% - \put(343,221){\line(3,5){63}}% % single bond at 3 (62->63) - \else\if\@tmpc B%(B) beta - \yl@xdiff=0\relax - \yl@ydiff=21\relax - \putratom{443}{240}{\@memberb}% % right type - {% - \thicklines% - \put(343,201){\line(5,3){100}}% % single bond at 3 - }% - \else\if\@tmpc A%(A) alpha - \yl@xdiff=20\relax - \yl@ydiff=0\relax - \putratom{283}{331}{\@memberb}% % right type - \@ifundefined{dottedline}{% - \put(303,221){\line(0,1){110}}% % single bond at 3 - }{{\thicklines% - \dottedline{20}(303,221)(303,331)}}% - \else\if\@tmpc u%(u) up --- (B) beta - \yl@xdiff=20\relax - \yl@ydiff=0\relax - \putratom{283}{331}{\@memberb}% % right type - {% - \thicklines% - \put(303,221){\line(0,1){110}}% % single bond at 3 - }% - \else\if\@tmpc d%(d) down --- (A) alpha - \yl@xdiff=0\relax - \yl@ydiff=21\relax - \putratom{443}{240}{\@memberb}% % right type - \@ifundefined{dottedline}{% - \put(343,201){\line(5,3){100}}% % single bond at 3 - }{{\thicklines% - \dottedline{20}(343,201)(443,261)}}% - \else\if\@tmpc b%(b) beta - \yl@xdiff=0\relax - \yl@ydiff=21\relax - \putratom{443}{240}{\@memberb}% % right type - \put(343,201){\line(5,3){100}}% % single bond at 3 - \else\if\@tmpc a%(a) alpha - \yl@xdiff=20\relax - \yl@ydiff=0\relax - \putratom{283}{331}{\@memberb}% % right type - \put(303,221){\line(0,1){110}}% % single bond at 3 - \fi\fi\fi\fi\fi% - \fi\fi - \else\if\@tmpb D%double bond - \yl@xdiff=22\relax - \yl@ydiff=-18\relax - \putratom{363}{331}{\@memberb}% - \put(328,208){\line(3,5){63}}% % double bond at 3 - \put(303,214){\line(3,5){63}}% % double bond at 3 - \else\if\@tmpb B%beta single bond - \yl@xdiff=43\relax - \yl@ydiff=5\relax - \putratom{363}{331}{\@memberb}% - {% - \thicklines% - \put(343,221){\line(3,5){63}}% % single bond at 3 - }% - \else\if\@tmpb A%alpha single bond - \yl@xdiff=43\relax - \yl@ydiff=5\relax - \putratom{363}{331}{\@memberb}% - \@ifundefined{dottedline}{% - \put(343,221){\line(3,5){63}}% % single bond at 3 (62->63) - }{{\thicklines% - \dottedline{20}(343,221)(406,326)}}% 1998/10/11 by SF - \else\if\@tmpb F%fused bond - {\let\@tmpb=\@tmpc\@clipfusetrue - \put(303,171){\setatombondD}% - }% - \else\if\@tmpb G%fused bond - {\let\@tmpb=\@tmpc\@clipfusetrue - \put(303,171){\setatombondb}% - }% - \else% - \yl@xdiff=43\relax - \yl@ydiff=5\relax - \putratom{363}{331}{\@memberb}% - \put(343,221){\line(3,5){63}}% % single bond at 3 (62->63) - \fi\fi\fi\fi% - \fi\fi - \else%no clipping - \if\@tmpb S%single bond - \ifx\@tmpc\empty% - \yl@xdiff=12\relax - \yl@ydiff=-40\relax - \putratom{363}{331}{\@memberb}% - \put(303,171){\line(3,5){72}}% % single bond at 3 - \else\if\@tmpc B%(B) beta - \yl@xdiff=-20\relax - \yl@ydiff=3\relax - \putratom{443}{240}{\@memberb}% % right type - {% - \thicklines% - \put(303,171){\line(5,3){120}}% % single bond at 3 - }% - \else\if\@tmpc A%(A) alpha - \yl@xdiff=20\relax - \yl@ydiff=-20\relax - \putratom{283}{331}{\@memberb}% % right type - \@ifundefined{dottedline}{% - \put(303,171){\line(0,1){140}}% % single bond at 3 - }{{\thicklines% - \dottedline{20}(303,171)(303,311)}}% - \else\if\@tmpc u%(u) up --- (B) beta - \yl@xdiff=20\relax - \yl@ydiff=-20\relax - \putratom{283}{331}{\@memberb}% % right type - {% - \thicklines% - \put(303,171){\line(0,1){140}}% % single bond at 3 - }% - \else\if\@tmpc d%(d) down --- (A) alpha - \yl@xdiff=-20\relax - \yl@ydiff=3\relax - \putratom{443}{240}{\@memberb}% % right type - \@ifundefined{dottedline}{% - \put(303,171){\line(5,3){120}}% % single bond at 3 - }{{\thicklines% - \dottedline{20}(303,171)(423,243)}}% - \else\if\@tmpc b%(b) beta - \yl@xdiff=-20\relax - \yl@ydiff=3\relax - \putratom{443}{240}{\@memberb}% % right type - \put(303,171){\line(5,3){120}}% % single bond at 3 - \else\if\@tmpc a%(a) alpha - \yl@xdiff=20\relax - \yl@ydiff=-20\relax - \putratom{283}{331}{\@memberb}% % right type - \put(303,171){\line(0,1){140}}% % single bond at 3 - \fi\fi\fi\fi\fi% - \fi\fi% - \else\if\@tmpb D%double bond - \yl@xdiff=6\relax - \yl@ydiff=-40\relax - \putratom{363}{331}{\@memberb}% - \put(310,168){\line(3,5){72}}% % double bond at 3 - \put(284,174){\line(3,5){72}}% % double bond at 3 - \else\if\@tmpb B%beta single bond - \yl@xdiff=12\relax - \yl@ydiff=-40\relax - \putratom{363}{331}{\@memberb}% - {% - \thicklines% - \put(303,171){\line(3,5){72}}% % single bond at 3 - }% - \else\if\@tmpb A%alpha single bond - \yl@xdiff=12\relax - \yl@ydiff=-40\relax - \putratom{363}{331}{\@memberb}% - \@ifundefined{dottedline}{% - \put(303,171){\line(3,5){72}}% % single bond at 3 - }{{\thicklines% - \dottedline{20}(303,171)(375,291)}}% - \else\if\@tmpb F%fused bond - {\let\@tmpb=\@tmpc\@clipfusefalse - \put(303,171){\setatombondD}% - }% - \else\if\@tmpb G%fused bond - {\let\@tmpb=\@tmpc\@clipfusefalse - \put(303,171){\setatombondb}% - }% - \else% - \yl@xdiff=12\relax - \yl@ydiff=-40\relax - \putratom{363}{331}{\@memberb}% - \put(303,171){\line(3,5){72}}% % single bond at 3 - \fi\fi\fi\fi% - \fi\fi - \fi}% end of \@hsubstc -\def\@hsubstd{% -\if@clip %clipping - \if\@tmpb S%single bond - \ifx\@tmpc\empty% - \yl@xdiff=-17\relax - \yl@ydiff=31\relax - \putratom{563}{-31}{\@memberb}% % right type only - \put(436,0){\line(1,0){110}}% % single bond at 4 - \else\if\@tmpc B%(B) beta - \yl@xdiff=-27\relax - \yl@ydiff=36\relax - \putratom{563}{42}{\@memberb}% % right type only - {% - \thicklines% - \put(436,18){\line(5,3){100}}% % single bond at 4 - }% - \else\if\@tmpc A%(A) alpha - \yl@xdiff=-27\relax - \yl@ydiff=22\relax - \putratom{563}{-100}{\@memberb}% % right type only - \@ifundefined{dottedline}{% - \put(436,-18){\line(5,-3){100}}% % single bond at 4 - }{{\thicklines% - \dottedline{20}(436,-18)(526,-72)}}% - \else\if\@tmpc u%(u) up --- (B) beta - \yl@xdiff=-27\relax - \yl@ydiff=22\relax - \putratom{563}{-100}{\@memberb}% % right type only - {% - \thicklines% - \put(436,-18){\line(5,-3){100}}% % single bond at 4 - }% - \else\if\@tmpc d%(d) down --- (A) alpha - \yl@xdiff=-27\relax - \yl@ydiff=36\relax - \putratom{563}{42}{\@memberb}% % right type only - \@ifundefined{dottedline}{% - \put(436,18){\line(5,3){100}}% % single bond at 4 - }{{\thicklines% - \dottedline{20}(436,18)(536,78)}}% - \else\if\@tmpc b%(b) beta - \yl@xdiff=-27\relax - \yl@ydiff=36\relax - \putratom{563}{42}{\@memberb}% % right type only - \put(436,18){\line(5,3){100}}% % single bond at 4 - \else\if\@tmpc a%(a) alpha - \yl@xdiff=-27\relax - \yl@ydiff=22\relax - \putratom{563}{-100}{\@memberb}% % right type only - \put(436,-18){\line(5,-3){100}}% % single bond at 4 - \fi\fi\fi\fi\fi% - \fi\fi - \else\if\@tmpb D%double bond - \yl@xdiff=-17\relax - \yl@ydiff=31\relax - \putratom{563}{-31}{\@memberb}% % right type only - \put(436,-12){\line(1,0){110}}% % double bond at 4 - \put(436,12){\line(1,0){110}}% % double bond at 4 - \else\if\@tmpb B%beta single bond - \yl@xdiff=-17\relax - \yl@ydiff=31\relax - \putratom{563}{-31}{\@memberb}% % right type only - {% - \thicklines% - \put(436,0){\line(1,0){110}}% % single bond at 4 - }% - \else\if\@tmpb A%alpha single bond - \yl@xdiff=-17\relax - \yl@ydiff=31\relax - \putratom{563}{-31}{\@memberb}% % right type only - \@ifundefined{dottedline}{% - \put(436,0){\line(1,0){110}}% % single bond at 4 - }{{\thicklines% - \dottedline{20}(436,0)(546,0)}}% - \else\if\@tmpb F%fused bond - {\let\@tmpb=\@tmpc\@clipfusetrue - \put(406,0){\setatombondF}% - }% - \else\if\@tmpb G%fused bond - {\let\@tmpb=\@tmpc\@clipfusetrue - \put(406,0){\setatombondE}% - }% - \else% - \yl@xdiff=-17\relax - \yl@ydiff=31\relax - \putratom{563}{-31}{\@memberb}% % right type only - \put(436,0){\line(1,0){110}}% % single bond at 4 - \fi\fi\fi\fi% - \fi\fi -\else%% no clipping - \if\@tmpb S%single bond - \ifx\@tmpc\empty% - \yl@xdiff=-17\relax - \yl@ydiff=31\relax - \putratom{563}{-31}{\@memberb}% % right type only - \put(406,0){\line(1,0){140}}% % single bond at 4 - \else\if\@tmpc B%(B) beta - \yl@xdiff=-37\relax - \yl@ydiff=30\relax - \putratom{563}{42}{\@memberb}% % right type only - {% - \thicklines% - \put(406,0){\line(5,3){120}}% % single bond at 4 - }% - \else\if\@tmpc A%(A) alpha - \yl@xdiff=-37\relax - \yl@ydiff=28\relax - \putratom{563}{-100}{\@memberb}% % right type only - \@ifundefined{dottedline}{% - \put(406,0){\line(5,-3){120}}% % single bond at 4 - }{{\thicklines% - \dottedline{20}(406,0)(526,-72)}}% - \else\if\@tmpc u%(u) up --- (B) beta - \yl@xdiff=-37\relax - \yl@ydiff=28\relax - \putratom{563}{-100}{\@memberb}% % right type only - {% - \thicklines% - \put(406,0){\line(5,-3){120}}% % single bond at 4 - }% - \else\if\@tmpc d%(d) down --- (A) alpha - \yl@xdiff=-37\relax - \yl@ydiff=30\relax - \putratom{563}{42}{\@memberb}% % right type only - \@ifundefined{dottedline}{% - \put(406,0){\line(5,3){120}}% % single bond at 4 - }{{\thicklines% - \dottedline{20}(406,0)(526,72)}}% - \else\if\@tmpc b%(b) beta - \yl@xdiff=-37\relax - \yl@ydiff=30\relax - \putratom{563}{42}{\@memberb}% % right type only - \put(406,0){\line(5,3){120}}% % single bond at 4 - \else\if\@tmpc a%(a) alpha - \yl@xdiff=-37\relax - \yl@ydiff=28\relax - \putratom{563}{-100}{\@memberb}% % right type only - \put(406,0){\line(5,-3){120}}% % single bond at 4 - \fi\fi\fi\fi\fi% - \fi\fi - \else\if\@tmpb D%double bond - \yl@xdiff=-17\relax - \yl@ydiff=31\relax - \putratom{563}{-31}{\@memberb}% % right type only - \put(406,-12){\line(1,0){140}}% % double bond at 4 - \put(406,12){\line(1,0){140}}% % double bond at 4 - \else\if\@tmpb B%beta single bond - \yl@xdiff=-17\relax - \yl@ydiff=31\relax - \putratom{563}{-31}{\@memberb}% % right type only - {% - \thicklines% - \put(406,0){\line(1,0){140}}% % single bond at 4 - }% - \else\if\@tmpb A%alpha single bond - \yl@xdiff=-17\relax - \yl@ydiff=31\relax - \putratom{563}{-31}{\@memberb}% % right type only - \@ifundefined{dottedline}{% - \put(406,0){\line(1,0){140}}% % single bond at 4 - }{{\thicklines% - \dottedline{20}(406,0)(546,0)}}% - \else\if\@tmpb F%fused bond - {\let\@tmpb=\@tmpc\@clipfusefalse - \put(406,0){\setatombondF}% - }% - \else\if\@tmpb G%fused bond - {\let\@tmpb=\@tmpc\@clipfusefalse - \put(406,0){\setatombondE}% - }% - \else% - \yl@xdiff=-17\relax - \yl@ydiff=31\relax - \putratom{563}{-31}{\@memberb}% % right type only - \put(406,0){\line(1,0){140}}% % single bond at 4 - \fi\fi\fi\fi% - \fi\fi - \fi}% end of \@hsubstd -\def\@hsubste{% - \if@eclip %clipping - \if\@tmpb S%single bond - \ifx\@tmpc\empty% - \yl@xdiff=43\relax - \yl@ydiff=76\relax - \putratom{363}{-402}{\@memberb}% - \put(343,-221){\line(3,-5){63}}%% single bond at 5 (62=>63) - \else\if\@tmpc B%(B) beta - \yl@xdiff=0\relax - \yl@ydiff=41\relax - \putratom{443}{-301}{\@memberb}% % right type - {% - \thicklines% - \put(343,-201){\line(5,-3){100}}% % single bond at 5 - }% - \else\if\@tmpc A%(A) alpha - \yl@xdiff=20\relax - \yl@ydiff=71\relax - \putratom{283}{-402}{\@memberb}% % right type - \@ifundefined{dottedline}{% - \put(303,-221){\line(0,-1){110}}% % single bond at 5 - }{{\thicklines% - \dottedline{20}(303,-221)(303,-321)}}% - \else\if\@tmpc u%(u) up --- (B) beta - \yl@xdiff=20\relax - \yl@ydiff=71\relax - \putratom{283}{-402}{\@memberb}% % right type - {% - \thicklines% - \put(303,-221){\line(0,-1){110}}% % single bond at 5 - }% - \else\if\@tmpc d%(d) down --- (A) alpha - \yl@xdiff=0\relax - \yl@ydiff=41\relax - \putratom{443}{-301}{\@memberb}% % right type - \@ifundefined{dottedline}{% - \put(343,-201){\line(5,-3){100}}% % single bond at 5 - }{{\thicklines% - \dottedline{20}(343,-201)(443,-260)}}% - \else\if\@tmpc b%(b) beta - \yl@xdiff=0\relax - \yl@ydiff=41\relax - \putratom{443}{-301}{\@memberb}% % right type - \put(343,-201){\line(5,-3){100}}% % single bond at 5 - \else\if\@tmpc a%(a) alpha - \yl@xdiff=20\relax - \yl@ydiff=71\relax - \putratom{283}{-402}{\@memberb}% % right type - \put(303,-221){\line(0,-1){110}}% % single bond at 5 - \fi\fi\fi\fi\fi% - \fi\fi - \else\if\@tmpb D%double bond - \yl@xdiff=22\relax - \yl@ydiff=82\relax - \putratom{363}{-402}{\@memberb} - \put(328,-208){\line(3,-5){63}}% % double bond at 5 (62->63) - \put(306,-224){\line(3,-5){63}}% % double bond at 5 (62->63) - \else\if\@tmpb B%beta single bond - \yl@xdiff=43\relax - \yl@ydiff=76\relax - \putratom{363}{-402}{\@memberb}% - {% - \thicklines% - \put(343,-221){\line(3,-5){63}}%% single bond at 5(62->63) - }% - \else\if\@tmpb A%alpha single bond - \yl@xdiff=43\relax - \yl@ydiff=76\relax - \putratom{363}{-402}{\@memberb}% - \@ifundefined{dottedline}{% - \put(343,-221){\line(3,-5){63}}% % single bond at 5 (62->63) - }{{\thicklines% - \dottedline{20}(343,-221)(406,-326)}}%1998/10/11 by SF - \else\if\@tmpb F%fused bond - {\let\@tmpb=\@tmpc\@clipfusetrue - \put(303,-171){\setatombondb}% - }% - \else\if\@tmpb G%fused bond - {\let\@tmpb=\@tmpc\@clipfusetrue - \put(303,-171){\setatombondG}% - }% - \else% - \yl@xdiff=43\relax - \yl@ydiff=76\relax - \putratom{363}{-402}{\@memberb}% - \put(343,-221){\line(3,-5){63}}% % single bond at 5(62->63) - \fi\fi\fi\fi% - \fi\fi - \else%no clipping - \if\@tmpb S%single bond - \ifx\@tmpc\empty% - \yl@xdiff=9\relax - \yl@ydiff=111\relax - \putratom{363}{-402}{\@memberb}% - \put(303,-171){\line(3,-5){72}}% % single bond at 5 - \else\if\@tmpc B%(B) beta - \yl@xdiff=-20\relax - \yl@ydiff=58\relax - \putratom{443}{-301}{\@memberb}% % right type - {% - \thicklines% - \put(303,-171){\line(5,-3){120}}% % single bond at 5 - }% - \else\if\@tmpc A%(A) alpha - \yl@xdiff=20\relax - \yl@ydiff=81\relax - \putratom{283}{-402}{\@memberb}% % right type - \@ifundefined{dottedline}{% - \put(303,-171){\line(0,-1){140}}% % single bond at 5 - }{{\thicklines% - \dottedline{20}(303,-171)(303,-321)}}% - \else\if\@tmpc u%(u) up --- (B) beta - \yl@xdiff=20\relax - \yl@ydiff=81\relax - \putratom{283}{-402}{\@memberb}% % right type - {% - \thicklines% - \put(303,-171){\line(0,-1){140}}% % single bond at 5 - }% - \else\if\@tmpc d%(d) down --- (A) alpha - \yl@xdiff=-20\relax - \yl@ydiff=58\relax - \putratom{443}{-301}{\@memberb}% % right type - \@ifundefined{dottedline}{% - \put(303,-171){\line(5,-3){120}}% % single bond at 5 - }{{\thicklines% - \dottedline{20}(303,-171)(423,-243)}}% - \else\if\@tmpc b%(b) beta - \yl@xdiff=-20\relax - \yl@ydiff=58\relax - \putratom{443}{-301}{\@memberb}% % right type - \put(303,-171){\line(5,-3){120}}% % single bond at 5 - \else\if\@tmpc a%(a) alpha - \yl@xdiff=20\relax - \yl@ydiff=81\relax - \putratom{283}{-402}{\@memberb}% % right type - \put(303,-171){\line(0,-1){140}}% % single bond at 5 - \fi\fi\fi\fi\fi% - \fi\fi - \else\if\@tmpb D%double bond - \yl@xdiff=3\relax - \yl@ydiff=111\relax - \putratom{363}{-402}{\@memberb}% - \put(310,-168){\line(3,-5){72}}% % double bond at 5 - \put(284,-174){\line(3,-5){72}}% % double bond at 5 - \else\if\@tmpb B%beta single bond - \yl@xdiff=9\relax - \yl@ydiff=111\relax - \putratom{363}{-402}{\@memberb}% - {% - \thicklines% - \put(303,-171){\line(3,-5){72}}% % single bond at 5 - }% - \else\if\@tmpb A%alpha single bond - \yl@xdiff=9\relax - \yl@ydiff=111\relax - \putratom{363}{-402}{\@memberb}% - \@ifundefined{dottedline}{% - \put(303,-171){\line(3,-5){72}}% % single bond at 5 - }{{\thicklines% - \dottedline{20}(303,-171)(375,-291)}}% - \else\if\@tmpb F%fused bond - {\let\@tmpb=\@tmpc\@clipfusefalse - \put(303,-171){\setatombondb}% - }% - \else\if\@tmpb G%fused bond - {\let\@tmpb=\@tmpc\@clipfusefalse - \put(303,-171){\setatombondG}% - }% - \else% - \yl@xdiff=9\relax - \yl@ydiff=111\relax - \putratom{363}{-402}{\@memberb}% - \put(303,-171){\line(3,-5){72}}% % single bond at 5 - \fi\fi\fi\fi% - \fi\fi - \fi}% end of \@hsubste -\def\@hsubstf{% - \if@fclip %clipping - \if\@tmpb S%single bond - \ifx\@tmpc\empty% - \yl@xdiff=43\relax - \yl@ydiff=76\relax - \putlratom{-27}{-402}{\@memberb}% - \put(79,-221){\line(-3,-5){63}}% % single bond at 6 (62=>63) - \else\if\@tmpc B%(B) beta - \yl@xdiff=-10\relax - \yl@ydiff=40\relax - \putlatom{-31}{-301}{\@memberb}% % right type - {% - \thicklines% - \put(59,-201){\line(-5,-3){100}}% % single bond at 6 - }% - \else\if\@tmpc A%(A) alpha - \yl@xdiff=20\relax - \yl@ydiff=81\relax - \putratom{83}{-402}{\@memberb}% % right type - \@ifundefined{dottedline}{% - \put(103,-221){\line(0,-1){100}}% % single bond at 6 - }{{\thicklines% - \dottedline{20}(103,-221)(103,-321)}}% - \else\if\@tmpc u%(u) up --- (B) beta - \yl@xdiff=20\relax - \yl@ydiff=81\relax - \putratom{83}{-402}{\@memberb}% % right type - {% - \thicklines% - \put(103,-221){\line(0,-1){100}}% % single bond at 6 - }% - \else\if\@tmpc d%(d) down --- (A) alpha - \yl@xdiff=-10\relax - \yl@ydiff=40\relax - \putlatom{-31}{-301}{\@memberb}% % right type - \@ifundefined{dottedline}{% - \put(59,-201){\line(-5,-3){100}}% % single bond at 6 - }{{\thicklines% - \dottedline{20}(59,-201)(-41,-261)}}% - \else\if\@tmpc b%(b) beta - \yl@xdiff=-10\relax - \yl@ydiff=40\relax - \putlatom{-31}{-301}{\@memberb}% % right type - \put(59,-201){\line(-5,-3){100}}% % single bond at 6 - \else\if\@tmpc a%(a) alpha - \yl@xdiff=20\relax - \yl@ydiff=81\relax - \putratom{83}{-402}{\@memberb}% % right type - \put(103,-221){\line(0,-1){100}}% % single bond at 6 - \fi\fi\fi\fi\fi - \fi\fi - \else\if\@tmpb D%double bond - \yl@xdiff=49\relax - \yl@ydiff=82\relax - \putlratom{-27}{-402}{\@memberb}% - \put(78,-208){\line(-3,-5){63}}% % double bond at 6 (62->63) - \put(106,-219){\line(-3,-5){63}}% % double bond at 6 (62->63) - \else\if\@tmpb B%beta single bond - \yl@xdiff=43\relax - \yl@ydiff=76\relax - \putlratom{-27}{-402}{\@memberb}% - {% - \thicklines% - \put(79,-221){\line(-3,-5){63}}% % single bond at 6 (62=>63) - }% - \else\if\@tmpb A%alpha single bond - \yl@xdiff=43\relax - \yl@ydiff=76\relax - \putlratom{-27}{-402}{\@memberb}% - \@ifundefined{dottedline}{% - \put(79,-221){\line(-3,-5){63}}% single bond at 6 (62=>63) - }{{\thicklines% - \dottedline{20}(79,-221)(16,-326)}}%1998/10/11 by SF - \else\if\@tmpb F%fused bond - {\let\@tmpb=\@tmpc\@clipfusetrue - \put(103,-171){\setatombondE}% - }% - \else\if\@tmpb G%fused bond - {\let\@tmpb=\@tmpc\@clipfusetrue - \put(103,-171){\setatombondh}% - }% - \else% - \yl@xdiff=43\relax - \yl@ydiff=76\relax - \putlratom{-27}{-402}{\@memberb}% - \put(79,-221){\line(-3,-5){63}}% % single bond at 6(62->63) - \fi\fi\fi\fi% - \fi\fi - \else%%no clipping - \if\@tmpb S%single bond - \ifx\@tmpc\empty% - \yl@xdiff=59\relax - \yl@ydiff=111\relax - \putlratom{-27}{-402}{\@memberb}% - \put(108,-171){\line(-3,-5){72}}% % single bond at 6 - \else\if\@tmpc B%beta single bond%1998/10/11 by S. Fujita - \yl@xdiff=8\relax - \yl@ydiff=58\relax - \putlatom{-31}{-301}{\@memberb}% % right type - {% - \thicklines% - \put(103,-171){\line(-5,-3){120}}% % single bond at 6 - }% - \else\if\@tmpc A%(A) alpha - \yl@xdiff=20\relax - \yl@ydiff=91\relax - \putratom{83}{-402}{\@memberb}% % right type - \@ifundefined{dottedline}{% - \put(103,-171){\line(0,-1){140}}% % single bond at 6 - }{{\thicklines% - \dottedline{20}(103,-171)(103,-311)}}%1998/10/17 by SF - \else\if\@tmpc u%(u) up --- (B) beta - \yl@xdiff=20\relax - \yl@ydiff=91\relax - \putratom{83}{-402}{\@memberb}% % right type - {% - \thicklines% - \put(103,-171){\line(0,-1){140}}% % single bond at 6 - }% - \else\if\@tmpc d%(d) down --- (A) alpha - \yl@xdiff=8\relax - \yl@ydiff=58\relax - \putlatom{-31}{-301}{\@memberb}% % right type - \@ifundefined{dottedline}{% - \put(103,-171){\line(-5,-3){120}}% % single bond at 6 - }{{\thicklines% - \dottedline{20}(103,-171)(-17,-243)}}% - \else\if\@tmpc b%(b) beta - \yl@xdiff=8\relax - \yl@ydiff=58\relax - \putlatom{-31}{-301}{\@memberb}% % right type - \put(103,-171){\line(-5,-3){120}}% % single bond at 6 - \else\if\@tmpc a%(a) alpha - \yl@xdiff=20\relax - \yl@ydiff=91\relax - \putratom{83}{-402}{\@memberb}% % right type - \put(103,-171){\line(0,-1){140}}% % single bond at 6 - \fi\fi\fi\fi\fi% - \fi\fi - \else\if\@tmpb D%double bond - \yl@xdiff=65\relax - \yl@ydiff=111\relax - \putlratom{-27}{-402}{\@memberb}% - \put(96,-168){\line(-3,-5){72}}% % double bond at 6 - \put(121,-174){\line(-3,-5){72}}% % double bond at 6 - \else\if\@tmpb B%beta single bond - \yl@xdiff=59\relax - \yl@ydiff=111\relax - \putlratom{-27}{-402}{\@memberb}% - \put(108,-171){\line(-3,-5){72}}% % single bond at 6 - {% - \thicklines% - \put(108,-171){\line(-3,-5){72}}% % single bond at 6 - }% - \else\if\@tmpb A%alpha single bond - \yl@xdiff=59\relax - \yl@ydiff=111\relax - \putlratom{-27}{-402}{\@memberb}% - \@ifundefined{dottedline}{% - \put(108,-171){\line(-3,-5){72}}% % single bond at 6 - }{{\thicklines% - \dottedline{20}(103,-171)(31,-291)}}% - \else\if\@tmpb F%fused bond - {\let\@tmpb=\@tmpc\@clipfusefalse - \put(103,-171){\setatombondE}% - }% - \else\if\@tmpb G%fused bond - {\let\@tmpb=\@tmpc\@clipfusefalse - \put(103,-171){\setatombondh}% - }% - \else% - \yl@xdiff=59\relax - \yl@ydiff=111\relax - \putlratom{-27}{-402}{\@memberb}% - \put(108,-171){\line(-3,-5){72}}% % single bond at 6 - \fi\fi\fi\fi% - \fi\fi - \fi}% end of \@hsubstf -\def\setsixringh#1#2#3#4#5{% -\@forsemicol\member:=#1\do{% -\ifx\member\empty\else% -\expandafter\@m@mb@r\member;\relax% -\expandafter\threech@r\@membera{}{}% -\ifx\@memberb\@yl\else -\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%0 omit - \or\@hsubsta% subst. on 1 - \or\@hsubstb% subst. on 2 - \or\@hsubstc% subst. on 3 - \or\@hsubstd% subst. on 4 - \or\@hsubste% subst. on 5 - \or\@hsubstf% subst. on 6 -\fi%end of ifcase -\fi\fi\fi\fi}}% %end of setsixringh -\newcount\x@ryl -\newcount\y@ryl -\def\ryl{\@ifnextchar({\@ryl}{\@ryl()}} -\def\@ryl(#1)#2{% -\iniatom\iniflag%initialize -\@reset@ylsw% -\def\centeraaa{}% -\x@ryl=0\y@ryl=0 -\@forsemicol\member:=#1\do{% -\if@ylsw% -\XyMTeXWarning{Duplicated items in the first augument of \string\ryl}% -\else% -\ifx\member\empty\else% -\expandafter\@m@mb@r\member;\relax% -\expandafter\twoch@r\@membera{}% -\settowidth{\dimen0}{\@memberb}% -\x@ryl=\dimen0%%%dimension => counter -\divide\x@ryl\unitlength -\advance\x@ryl by-70 -\y@ryl=0 -\ifcase\@tmpa% -\def\centeraaa{\@memberb}\@ylswtrue -\advance\y@ryl by50 -\or%1 -\def\centeraaa{\@memberb}\@ylswtrue -\advance\x@ryl by30 -\advance\y@ryl by50 -\or%2 -\def\centeraaa{\@memberb}\@ylswtrue -\advance\x@ryl by40 -\advance\y@ryl by40 -\or%3 -\def\centeraaa{\@memberb}\@ylswtrue -\advance\x@ryl by50 -\advance\y@ryl by30 -\or%4 -\def\centeraaa{\@memberb}\@ylswtrue -\advance\x@ryl by50 -\advance\y@ryl by0 -\or%5 -\def\centeraaa{\@memberb}\@ylswtrue -\advance\x@ryl by50 -\advance\y@ryl by-30 -\or%6 -\def\centeraaa{\@memberb}\@ylswtrue -\advance\x@ryl by50 -\advance\y@ryl by-50 -\or%7 -\def\centeraaa{\@memberb}\@ylswtrue -\advance\x@ryl by30 -\advance\y@ryl by-50 -\or%8 -\def\centeraaa{\@memberb}\@ylswtrue -\advance\y@ryl by-50 -\fi -\fi\fi}% - \yl@shiftii=\x@ryl - \yl@shifti=-\y@ryl - \advance\yl@shiftii\yl@xdiff - \advance\yl@shifti\yl@ydiff - \begin{picture}(0,0)(-\yl@shiftii,-\yl@shifti) -\ifx\centeraaa\empty\else% - \@clipfusetrue - \putlatom{40}{-30}{\centeraaa}% % left type -\fi% -\@forsemicol\member:=#2\do{% -\ifx\member\empty\else% -\expandafter\@m@mb@r\member;\relax% -\expandafter\threech@r\@membera{}{}% -\ifcase\@tmpa% -\setatombonda% 0 (upward) (0,1) -\or\setatombondF%1 (3,5) -\or\setatombondA%2 (1,1) -\or\setatombondf%3 (5,3) -\or\setatombondb%4 (1,0) -\or\setatombonde%5 (5,-3) -\or\setatombondB%6 (1,-1) -\or\setatombondE%7 (3,-5) -\or\setatombondc%8 (0,-1) -\fi%end of ifcase -\fi -}\end{picture}}% %end of \ryl macro -\def\setatombondF{%% (3,5) - \if@clipfuse% - \if\@tmpb B%beta single bond - \yl@xdiff=10\relax - \yl@ydiff=-10\relax - {% - \thicklines% - \put(30,50){\line(3,5){60}}% % single bond at 1 - }% - \else\if\@tmpb A%alpha single bond - \yl@xdiff=10\relax - \yl@ydiff=-10\relax - \@ifundefined{dottedline}{% - \put(30,50){\line(3,5){60}}% % single bond at 1 - }{{\thicklines% - \dottedline{20}(30,50)(90,150)}}% - \else\if\@tmpb U%unspecified single bond - \yl@xdiff=10\relax - \yl@ydiff=-10\relax - \put(30,50){\line(3,5){60}}% % single bond at 1 - \else\if\@tmpb S%beta single bond - \yl@xdiff=10\relax - \yl@ydiff=-10\relax - \put(30,50){\line(3,5){60}}% % single bond at 1 - \else\if\@tmpb D%double bond - \yl@xdiff=10\relax - \yl@ydiff=-10\relax - \put(40,44){\line(3,5){60}}% % single bond at 1 - \put(20,56){\line(3,5){60}}% % single bond at 1 - \else\if\@tmpb T%triple bond - \yl@xdiff=10\relax - \yl@ydiff=-10\relax - \put(45,41){\line(3,5){60}}% % single bond at 1 - \put(30,50){\line(3,5){60}}% % single bond at 1 - \put(15,59){\line(3,5){60}}% % single bond at 1 - \else\ifx\@tmpb\empty%beta single bond - \yl@xdiff=10\relax - \yl@ydiff=-10\relax - \put(30,50){\line(3,5){60}}% % single bond at 1 - \fi\fi\fi\fi\fi\fi\fi% - \putratom{80}{160}{\@memberb}% % right type - \else%no clipping - \if\@tmpb B%beta single bond - \yl@xdiff=10\relax - \yl@ydiff=-10\relax - {% - \thicklines% - \put(0,0){\line(3,5){90}}% % single bond at 1 - }% - \else\if\@tmpb A%alpha single bond - \yl@xdiff=10\relax - \yl@ydiff=-10\relax - \@ifundefined{dottedline}{% - \put(0,0){\line(3,5){90}}% % single bond at 1 - }{{\thicklines% - \dottedline{20}(0,0)(90,150)}}% - \else\if\@tmpb U%unspecified single bond - \yl@xdiff=10\relax - \yl@ydiff=-10\relax - \put(0,0){\line(3,5){90}}% % single bond at 1 - \else\if\@tmpb S%beta single bond - \yl@xdiff=10\relax - \yl@ydiff=-10\relax - \put(0,0){\line(3,5){90}}% % single bond at 1 - \else\if\@tmpb D%beta single bond - \yl@xdiff=10\relax - \yl@ydiff=-10\relax - \put(10,-6){\line(3,5){90}}% % single bond at 1 - \put(-10,6){\line(3,5){90}}% % single bond at 1 - \else\if\@tmpb T%beta single bond - \yl@xdiff=10\relax - \yl@ydiff=-10\relax - \put(15,-9){\line(3,5){90}}% % single bond at 1 - \put(0,0){\line(3,5){90}}% % single bond at 1 - \put(-15,9){\line(3,5){90}}% % single bond at 1 - \else\ifx\@tmpb\empty%beta single bond - \yl@xdiff=10\relax - \yl@ydiff=-10\relax - \put(0,0){\line(3,5){90}}% % single bond at 1 - \fi\fi\fi\fi\fi\fi\fi% - \putratom{80}{160}{\@memberb}% % right type - \fi% -}% end of \setatombondF -\def\setatombondE{%% (3,-5) - \if@clipfuse% - \yl@xdiff=10\relax - \yl@ydiff=70\relax - \if\@tmpb B%beta single bond - {% - \thicklines% - \put(30,-50){\line(3,-5){60}}% % single bond at 1 - }% - \else\if\@tmpb A%alpha single bond - \@ifundefined{dottedline}{% - \put(30,-50){\line(3,-5){60}}% % single bond at 1 - }{{\thicklines% - \dottedline{20}(30,-50)(90,-150)}}% - \else\if\@tmpb U%unspecified single bond - \put(30,-50){\line(3,-5){60}}% % single bond at 1 - \else\if\@tmpb S%beta single bond - \put(30,-50){\line(3,-5){60}}% % single bond at 1 - \else\if\@tmpb D%double bond - \put(40,-44){\line(3,-5){60}}% % single bond at 1 - \put(20,-56){\line(3,-5){60}}% % single bond at 1 - \else\if\@tmpb T%triple bond - \put(45,-41){\line(3,-5){60}}% % single bond at 1 - \put(30,-50){\line(3,-5){60}}% % single bond at 1 - \put(15,-59){\line(3,-5){60}}% % single bond at 1 - \else\ifx\@tmpb\empty%beta single bond - \put(30,-50){\line(3,-5){60}}% % single bond at 1 - \fi\fi\fi\fi\fi\fi\fi% - \putratom{80}{-220}{\@memberb}% % right type - \else%no clipping - \yl@xdiff=10\relax - \yl@ydiff=70\relax - \if\@tmpb B%beta single bond - {% - \thicklines% - \put(0,0){\line(3,-5){90}}% % single bond at 1 - }% - \else\if\@tmpb A%alpha single bond - \@ifundefined{dottedline}{% - \put(0,0){\line(3,-5){90}}% % single bond at 1 - }{{\thicklines% - \dottedline{20}(0,0)(90,-150)}}% - \else\if\@tmpb U%unspecified single bond - \put(0,0){\line(3,-5){90}}% % single bond at 1 - \else\if\@tmpb S%beta single bond - \put(0,0){\line(3,-5){90}}% % single bond at 1 - \else\if\@tmpb D%beta single bond - \put(10,6){\line(3,-5){90}}% % single bond at 1 - \put(-10,-6){\line(3,-5){90}}% % single bond at 1 - \else\if\@tmpb T%beta single bond - \put(15,9){\line(3,-5){90}}% % single bond at 1 - \put(0,0){\line(3,-5){90}}% % single bond at 1 - \put(-15,-9){\line(3,-5){90}}% % single bond at 1 - \else\ifx\@tmpb\empty%beta single bond - \put(0,0){\line(3,-5){90}}% % single bond at 1 - \fi\fi\fi\fi\fi\fi\fi% - \putratom{80}{-220}{\@memberb}% % right type - \fi% -}% end of \setatombondE -\def\setatombondA{%% (1,1) - \yl@xdiff=0\relax - \yl@ydiff=0\relax - \if@clipfuse% - \if\@tmpb B%beta single bond - {% - \thicklines% - \put(40,40){\line(1,1){100}}% % single bond at 1 - }% - \else\if\@tmpb A%alpha single bond - \@ifundefined{dottedline}{% - \put(40,40){\line(1,1){100}}% % single bond at 1 - }{{\thicklines% - \dottedline{20}(40,40)(140,140)}}% - \else\if\@tmpb U%unspecified single bond - \put(40,40){\line(1,1){100}}% % single bond at 1 - \else\if\@tmpb S%beta single bond - \put(40,40){\line(1,1){100}}% % single bond at 1 - \else\if\@tmpb D%double bond - \put(46,36){\line(1,1){100}}% % single bond at 1 - \put(36,46){\line(1,1){100}}% % single bond at 1 - \else\if\@tmpb T%triple bond - \put(50,30){\line(1,1){100}}% % single bond at 1 - \put(40,40){\line(1,1){100}}% % single bond at 1 - \put(30,50){\line(1,1){100}}% % single bond at 1 - \else\ifx\@tmpb\empty%beta single bond - \put(40,40){\line(1,1){100}}% % single bond at 1 - \fi\fi\fi\fi\fi\fi\fi% - \putratom{140}{140}{\@memberb}% % right type - \else%no clipping - \if\@tmpb B%beta single bond - {% - \thicklines% - \put(0,0){\line(1,1){120}}% % single bond at 1 - }% - \else\if\@tmpb A%alpha single bond - \@ifundefined{dottedline}{% - \put(0,0){\line(1,1){120}}% % single bond at 1 - }{{\thicklines% - \dottedline{20}(0,0)(120,120)}}% - \else\if\@tmpb U%unspecified single bond - \put(0,0){\line(1,1){120}}% % single bond at 1 - \else\if\@tmpb S%beta single bond - \put(0,0){\line(1,1){120}}% % single bond at 1 - \else\if\@tmpb D%beta single bond - \put(6,-6){\line(1,1){120}}% % single bond at 1 - \put(-6,6){\line(1,1){120}}% % single bond at 1 - \else\if\@tmpb T%beta single bond - \put(10,-10){\line(1,1){120}}% % single bond at 1 - \put(0,0){\line(1,1){120}}% % single bond at 1 - \put(-10,10){\line(1,1){120}}% % single bond at 1 - \else\ifx\@tmpb\empty%beta single bond - \put(0,0){\line(1,1){120}}% % single bond at 1 - \fi\fi\fi\fi\fi\fi\fi% - \putratom{120}{120}{\@memberb}% % right type - \fi% -}% end of \setatombondA -\def\setatombondB{%% (1,-1) - \if@clipfuse% - \yl@xdiff=0\relax - \yl@ydiff=60\relax - \if\@tmpb B%beta single bond - {% - \thicklines% - \put(40,-40){\line(1,-1){100}}% % single bond at 1 - }% - \else\if\@tmpb A%alpha single bond - \@ifundefined{dottedline}{% - \put(40,-40){\line(1,-1){100}}% % single bond at 1 - }{{\thicklines% - \dottedline{20}(40,-40)(140,-140)}}% - \else\if\@tmpb U%unspecified single bond - \put(40,-40){\line(1,-1){100}}% % single bond at 1 - \else\if\@tmpb S%beta single bond - \put(40,-40){\line(1,-1){100}}% % single bond at 1 - \else\if\@tmpb D%double bond - \put(46,-36){\line(1,-1){100}}% % single bond at 1 - \put(36,-46){\line(1,-1){100}}% % single bond at 1 - \else\if\@tmpb T%triple bond - \put(50,-30){\line(1,-1){100}}% % single bond at 1 - \put(40,-40){\line(1,-1){100}}% % single bond at 1 - \put(30,-50){\line(1,-1){100}}% % single bond at 1 - \else\ifx\@tmpb\empty%beta single bond - \put(40,-40){\line(1,-1){100}}% % single bond at 1 - \fi\fi\fi\fi\fi\fi\fi% - \putratom{140}{-200}{\@memberb}% % right type - \else%no clipping - \yl@xdiff=0\relax - \yl@ydiff=60\relax - \if\@tmpb B%beta single bond - {% - \thicklines% - \put(0,0){\line(1,-1){120}}% % single bond at 1 - }% - \else\if\@tmpb A%alpha single bond - \@ifundefined{dottedline}{% - \put(0,0){\line(1,-1){120}}% % single bond at 1 - }{{\thicklines% - \dottedline{20}(0,0)(120,-120)}}% - \else\if\@tmpb U%unspecified single bond - \put(0,0){\line(1,-1){120}}% % single bond at 1 - \else\if\@tmpb S%beta single bond - \put(0,0){\line(1,-1){120}}% % single bond at 1 - \else\if\@tmpb D%beta single bond - \put(6,6){\line(1,-1){120}}% % single bond at 1 - \put(-6,-6){\line(1,-1){120}}% % single bond at 1 - \else\if\@tmpb T%beta single bond - \put(10,10){\line(1,-1){120}}% % single bond at 1 - \put(0,0){\line(1,-1){120}}% % single bond at 1 - \put(-10,-10){\line(1,-1){120}}% % single bond at 1 - \else\ifx\@tmpb\empty%beta single bond - \put(0,0){\line(1,-1){120}}% % single bond at 1 - \fi\fi\fi\fi\fi\fi\fi% - \putratom{120}{-180}{\@memberb}% % right type - \fi% -}% end of \setatombondB -\def\lyl{\@ifnextchar({\@lyl}{\@lyl()}} -\def\@lyl(#1)#2{% -\iniatom\iniflag%initialize -\@reset@ylsw% -\def\centeraaa{}% -\x@ryl=0\y@ryl=0 -\@forsemicol\member:=#1\do{% -\if@ylsw% -\XyMTeXWarning{Duplicated items in the first augument of \string\ryl}% -\else% -\ifx\member\empty\else% -\expandafter\@m@mb@r\member;\relax% -\expandafter\twoch@r\@membera{}% -\settowidth{\dimen0}{\@memberb}% -\x@ryl=\dimen0%%%dimension => counter -\divide\x@ryl\unitlength -\advance\x@ryl by-80 -\y@ryl=0 -\ifcase\@tmpa% -\def\centeraaa{\@memberb}\@ylswtrue -\advance\y@ryl by50 -\or%1 -\def\centeraaa{\@memberb}\@ylswtrue -\advance\x@ryl by30 -\advance\y@ryl by50 -\or%2 -\def\centeraaa{\@memberb}\@ylswtrue -\advance\x@ryl by40 -\advance\y@ryl by40 -\or%3 -\def\centeraaa{\@memberb}\@ylswtrue -\advance\x@ryl by50 -\advance\y@ryl by30 -\or%4 -\def\centeraaa{\@memberb}\@ylswtrue -\advance\x@ryl by50 -\advance\y@ryl by0 -\or%5 -\def\centeraaa{\@memberb}\@ylswtrue -\advance\x@ryl by50 -\advance\y@ryl by-30 -\or%6 -\def\centeraaa{\@memberb}\@ylswtrue -\advance\x@ryl by50 -\advance\y@ryl by-50 -\or%7 -\def\centeraaa{\@memberb}\@ylswtrue -\advance\x@ryl by30 -\advance\y@ryl by-50 -\or%8 -\def\centeraaa{\@memberb}\@ylswtrue -\advance\y@ryl by-50 -\fi -\fi\fi}% - \yl@shiftii=-\x@ryl - \yl@shifti=-\y@ryl - \advance\yl@shiftii\yl@xdiff - \advance\yl@shifti\yl@ydiff - \begin{picture}(0,0)(-\yl@shiftii,-\yl@shifti) -\ifx\centeraaa\empty\else% - \@clipfusetrue - \putratom{-40}{-30}{\centeraaa}% % right type -\fi% -\@forsemicol\member:=#2\do{% -\ifx\member\empty\else% -\expandafter\@m@mb@r\member;\relax% -\expandafter\threech@r\@membera{}{}% -\ifcase\@tmpa% -\setatombonda% 0 (upward) (0,1) -\or\setatombondD%1 (-3,5) -\or\setatombondH%2 (-1,1) -\or\setatombondd%3 (-5,3) -\or\setatombondh%4 (-1,0) -\or\setatombondg%5 (-5,-3) -\or\setatombondC%6 (-1,-1) -\or\setatombondG%7 (-3,-5) -\or\setatombondc%8 (0,-1) -\fi%end of ifcase -\fi -}\end{picture}}% %end of \lyl macro -\def\setatombondD{%% (-3,5) - \if@clipfuse% - \if\@tmpb B%beta single bond - \yl@xdiff=-10\relax - \yl@ydiff=-10\relax - {% - \thicklines% - \put(-30,50){\line(-3,5){60}}% % single bond at 1 - }% - \else\if\@tmpb A%alpha single bond - \yl@xdiff=-10\relax - \yl@ydiff=-10\relax - \@ifundefined{dottedline}{% - \put(-30,50){\line(-3,5){60}}% % single bond at 1 - }{{\thicklines% - \dottedline{20}(-30,50)(-90,150)}}% - \else\if\@tmpb U%unspecified single bond - \yl@xdiff=-10\relax - \yl@ydiff=-10\relax - \put(-30,50){\line(-3,5){60}}% % single bond at 1 - \else\if\@tmpb S%beta single bond - \yl@xdiff=-10\relax - \yl@ydiff=-10\relax - \put(-30,50){\line(-3,5){60}}% % single bond at 1 - \else\if\@tmpb D%double bond - \yl@xdiff=-10\relax - \yl@ydiff=-10\relax - \put(-40,44){\line(-3,5){60}}% % single bond at 1 - \put(-20,56){\line(-3,5){60}}% % single bond at 1 - \else\if\@tmpb T%triple bond - \yl@xdiff=-10\relax - \yl@ydiff=-10\relax - \put(-45,41){\line(-3,5){60}}% % single bond at 1 - \put(-30,50){\line(-3,5){60}}% % single bond at 1 - \put(-15,59){\line(-3,5){60}}% % single bond at 1 - \else\ifx\@tmpb\empty%beta single bond - \yl@xdiff=-10\relax - \yl@ydiff=-10\relax - \put(-30,50){\line(-3,5){60}}% % single bond at 1 - \fi\fi\fi\fi\fi\fi\fi% - \putlatom{-80}{160}{\@memberb}% % left type - \else%no clipping - \if\@tmpb B%beta single bond - \yl@xdiff=-10\relax - \yl@ydiff=-10\relax - {% - \thicklines% - \put(0,0){\line(-3,5){90}}% % single bond at 1 - }% - \else\if\@tmpb A%alpha single bond - \yl@xdiff=-10\relax - \yl@ydiff=-10\relax - \@ifundefined{dottedline}{% - \put(0,0){\line(-3,5){90}}% % single bond at 1 - }{{\thicklines% - \dottedline{20}(0,0)(-90,150)}}% - \else\if\@tmpb U%unspecified single bond - \yl@xdiff=-10\relax - \yl@ydiff=-10\relax - \put(0,0){\line(-3,5){90}}% % single bond at 1 - \else\if\@tmpb S%beta single bond - \yl@xdiff=-10\relax - \yl@ydiff=-10\relax - \put(0,0){\line(-3,5){90}}% % single bond at 1 - \else\if\@tmpb D%beta single bond - \yl@xdiff=-10\relax - \yl@ydiff=-10\relax - \put(-10,-6){\line(-3,5){90}}% % single bond at 1 - \put(10,6){\line(-3,5){90}}% % single bond at 1 - \else\if\@tmpb T%beta single bond - \yl@xdiff=-10\relax - \yl@ydiff=-10\relax - \put(-15,-9){\line(-3,5){90}}% % single bond at 1 - \put(0,0){\line(-3,5){90}}% % single bond at 1 - \put(15,9){\line(-3,5){90}}% % single bond at 1 - \else\ifx\@tmpb\empty%beta single bond - \yl@xdiff=-10\relax - \yl@ydiff=-10\relax - \put(0,0){\line(-3,5){90}}% % single bond at 1 - \fi\fi\fi\fi\fi\fi\fi% - \putlatom{-80}{160}{\@memberb}% % left type - \fi% -}% end of \setatombondD -\def\setatombondG{%% (-3,-5) - \if@clipfuse% - \yl@xdiff=-10\relax - \yl@ydiff=70\relax - \if\@tmpb B%beta single bond - {% - \thicklines% - \put(-30,-50){\line(-3,-5){60}}% % single bond at 1 - }% - \else\if\@tmpb A%alpha single bond - \@ifundefined{dottedline}{% - \put(-30,-50){\line(-3,-5){60}}% % single bond at 1 - }{{\thicklines% - \dottedline{20}(-30,-50)(-90,-150)}}% - \else\if\@tmpb U%unspecified single bond - \put(-30,-50){\line(-3,-5){60}}% % single bond at 1 - \else\if\@tmpb S%beta single bond - \put(-30,-50){\line(-3,-5){60}}% % single bond at 1 - \else\if\@tmpb D%double bond - \put(-40,-44){\line(-3,-5){60}}% % single bond at 1 - \put(-20,-56){\line(-3,-5){60}}% % single bond at 1 - \else\if\@tmpb T%triple bond - \put(-45,-41){\line(-3,-5){60}}% % single bond at 1 - \put(-30,-50){\line(-3,-5){60}}% % single bond at 1 - \put(-15,-59){\line(-3,-5){60}}% % single bond at 1 - \else\ifx\@tmpb\empty%beta single bond - \put(-30,-50){\line(-3,-5){60}}% % single bond at 1 - \fi\fi\fi\fi\fi\fi\fi% - \putlatom{-80}{-220}{\@memberb}% % left type - \else%no clipping - \yl@xdiff=-10\relax - \yl@ydiff=70\relax - \if\@tmpb B%beta single bond - {% - \thicklines% - \put(0,0){\line(-3,-5){90}}% % single bond at 1 - }% - \else\if\@tmpb A%alpha single bond - \@ifundefined{dottedline}{% - \put(0,0){\line(-3,-5){90}}% % single bond at 1 - }{{\thicklines% - \dottedline{20}(0,0)(-90,-150)}}% - \else\if\@tmpb U%unspecified single bond - \put(0,0){\line(-3,-5){90}}% % single bond at 1 - \else\if\@tmpb S%beta single bond - \put(0,0){\line(-3,-5){90}}% % single bond at 1 - \else\if\@tmpb D%beta single bond - \put(-10,6){\line(-3,-5){90}}% % single bond at 1 - \put(10,-6){\line(-3,-5){90}}% % single bond at 1 - \else\if\@tmpb T%beta single bond - \put(-15,9){\line(-3,-5){90}}% % single bond at 1 - \put(0,0){\line(-3,-5){90}}% % single bond at 1 - \put(15,-9){\line(-3,-5){90}}% % single bond at 1 - \else\ifx\@tmpb\empty%beta single bond - \put(0,0){\line(-3,-5){90}}% % single bond at 1 - \fi\fi\fi\fi\fi\fi\fi% - \putlatom{-80}{-220}{\@memberb}% % left type - \fi% -}% end of \setatombondG -\def\setatombondH{%% (-1,1) - \yl@xdiff=0\relax - \yl@ydiff=0\relax - \if@clipfuse% - \if\@tmpb B%beta single bond - {% - \thicklines% - \put(-40,40){\line(-1,1){100}}% % single bond at 1 - }% - \else\if\@tmpb A%alpha single bond - \@ifundefined{dottedline}{% - \put(-40,40){\line(-1,1){100}}% % single bond at 1 - }{{\thicklines% - \dottedline{20}(-40,40)(-140,140)}}% - \else\if\@tmpb U%unspecified single bond - \put(-40,40){\line(-1,1){100}}% % single bond at 1 - \else\if\@tmpb S%beta single bond - \put(-40,40){\line(-1,1){100}}% % single bond at 1 - \else\if\@tmpb D%double bond - \put(-46,36){\line(-1,1){100}}% % single bond at 1 - \put(-36,46){\line(-1,1){100}}% % single bond at 1 - \else\if\@tmpb T%triple bond - \put(-50,30){\line(-1,1){100}}% % single bond at 1 - \put(-40,40){\line(-1,1){100}}% % single bond at 1 - \put(-30,50){\line(-1,1){100}}% % single bond at 1 - \else\ifx\@tmpb\empty%beta single bond - \put(-40,40){\line(-1,1){100}}% % single bond at 1 - \fi\fi\fi\fi\fi\fi\fi% - \putlatom{-140}{140}{\@memberb}% % left type - \else%no clipping - \if\@tmpb B%beta single bond - {% - \thicklines% - \put(0,0){\line(-1,1){120}}% % single bond at 1 - }% - \else\if\@tmpb A%alpha single bond - \@ifundefined{dottedline}{% - \put(0,0){\line(-1,1){120}}% % single bond at 1 - }{{\thicklines% - \dottedline{20}(0,0)(-120,120)}}% - \else\if\@tmpb U%unspecified single bond - \put(0,0){\line(-1,1){120}}% % single bond at 1 - \else\if\@tmpb S%beta single bond - \put(0,0){\line(-1,1){120}}% % single bond at 1 - \else\if\@tmpb D%beta single bond - \put(-6,-6){\line(-1,1){120}}% % single bond at 1 - \put(6,6){\line(-1,1){120}}% % single bond at 1 - \else\if\@tmpb T%beta single bond - \put(-10,-10){\line(-1,1){120}}% % single bond at 1 - \put(0,0){\line(-1,1){120}}% % single bond at 1 - \put(10,10){\line(-1,1){120}}% % single bond at 1 - \else\ifx\@tmpb\empty%beta single bond - \put(0,0){\line(-1,1){120}}% % single bond at 1 - \fi\fi\fi\fi\fi\fi\fi% - \putlatom{-120}{120}{\@memberb}% % left type - \fi% -}% end of \setatombondH -\def\setatombondC{%% (-1,-1) - \if@clipfuse% - \yl@xdiff=0\relax - \yl@ydiff=60\relax - \if\@tmpb B%beta single bond - {% - \thicklines% - \put(-40,-40){\line(-1,-1){100}}% % single bond at 1 - }% - \else\if\@tmpb A%alpha single bond - \@ifundefined{dottedline}{% - \put(-40,-40){\line(-1,-1){100}}% % single bond at 1 - }{{\thicklines% - \dottedline{20}(-40,-40)(-140,-140)}}% - \else\if\@tmpb U%unspecified single bond - \put(-40,-40){\line(-1,-1){100}}% % single bond at 1 - \else\if\@tmpb S%beta single bond - \put(-40,-40){\line(-1,-1){100}}% % single bond at 1 - \else\if\@tmpb D%double bond - \put(-46,-36){\line(-1,-1){100}}% % single bond at 1 - \put(-36,-46){\line(-1,-1){100}}% % single bond at 1 - \else\if\@tmpb T%triple bond - \put(-50,-30){\line(-1,-1){100}}% % single bond at 1 - \put(-40,-40){\line(-1,-1){100}}% % single bond at 1 - \put(-30,-50){\line(-1,-1){100}}% % single bond at 1 - \else\ifx\@tmpb\empty%beta single bond - \put(-40,-40){\line(-1,-1){100}}% % single bond at 1 - \fi\fi\fi\fi\fi\fi\fi% - \putlatom{-140}{-200}{\@memberb}% % left type - \else%no clipping - \yl@xdiff=0\relax - \yl@ydiff=60\relax - \if\@tmpb B%beta single bond - {% - \thicklines% - \put(0,0){\line(-1,-1){120}}% % single bond at 1 - }% - \else\if\@tmpb A%alpha single bond - \@ifundefined{dottedline}{% - \put(0,0){\line(-1,-1){120}}% % single bond at 1 - }{{\thicklines% - \dottedline{20}(0,0)(-120,-120)}}% - \else\if\@tmpb U%unspecified single bond - \put(0,0){\line(-1,-1){120}}% % single bond at 1 - \else\if\@tmpb S%beta single bond - \put(0,0){\line(-1,-1){120}}% % single bond at 1 - \else\if\@tmpb D%beta single bond - \put(-6,6){\line(-1,-1){120}}% % single bond at 1 - \put(6,-6){\line(-1,-1){120}}% % single bond at 1 - \else\if\@tmpb T%beta single bond - \put(-10,10){\line(-1,-1){120}}% % single bond at 1 - \put(0,0){\line(-1,-1){120}}% % single bond at 1 - \put(10,-10){\line(-1,-1){120}}% % single bond at 1 - \else\ifx\@tmpb\empty%beta single bond - \put(0,0){\line(-1,-1){120}}% % single bond at 1 - \fi\fi\fi\fi\fi\fi\fi% - \putlatom{-120}{-180}{\@memberb}% % left type - \fi% -}% end of \setatombondC -\def\ayl{\@ifnextchar({\@ayl@}{\@ayl@(10,40)}} -\def\@ayl@(#1,#2)#3{\begingroup\yl@xdiff=0 \yl@ydiff=0% -\kern#1\unitlength\raise#2\unitlength\hbox to0pt{#3\hss}% -\endgroup} -\def\upnobond#1#2{% -\hbox{\hbox to0.72em{\hss#1\hss}\kern-0.72em\raise2.2ex\hbox{#2}}} -\def\downnobond#1#2{% -\hbox{\hbox to0.72em{\hss#1\hss}\kern-0.72em\lower2.2ex\hbox{#2}}} -\def\test@vertix#1{% - \expandafter\def\csname #1#1#1\endcsname{@}% - \if\@tmpb h\relax - \expandafter\def\csname #1#1#1\endcsname{@}% - \else\if\@tmpb s\relax - \expandafter\def\csname #1#1#1\endcsname{}% - \fi\fi} -\def\test@vertix@sixv#1#2#3#4#5#6#7{% -\@forsemicol\member:=#1\do{% -\ifx\member\empty\else% -\expandafter\@m@mb@r\member;\relax% -\expandafter\twoCH@R\@membera//% -\ifcase\@tmpa% - \or \test@vertix{#2}% - \or \test@vertix{#3}% - \or \test@vertix{#4}% - \or - \if\@tmpb a% - \def\iii{@}% - \else - \test@vertix{#5}% - \fi - \or \test@vertix{#6}% - \or \test@vertix{#7}% -\fi\fi}}% end of \test@vertix@sixv -%% \changes{v2.00}{1996/11/14}{@ in place of a net value} -\def\set@hetatom@sixv#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 - \if\@tmpb h\relax - \@acliptrue% - \putratom{0}{356}{\@memberb}% % right type - \else\if\@tmpb s\relax - \@aclipfalse% - \putratom{0}{406}{\@memberb}% % right type - \else\if\@tmpb a\relax%omit fused position - \else - \@acliptrue% - \putratom{-31}{356}{\@memberb}% % right type - \fi\fi\fi -\or%position 2 - \if\@tmpb h\relax - \@bcliptrue% - \putratom{135}{280}{\@memberb}% % right type - \else\if\@tmpb s\relax - \@bclipfalse% - \putratom{175}{303}{\@memberb}% % right type - \else\if\@tmpb a\relax%omit fused position - \else - \@bcliptrue% - \putratom{135}{280}{\@memberb}% % right type - \fi\fi\fi -\or%position 3 - \if\@tmpb h\relax - \@ccliptrue% - \putratom{135}{95}{\@memberb}% % right type - \else\if\@tmpb s\relax - \@cclipfalse% - \putratom{175}{103}{\@memberb}% % right type - \else\if\@tmpb a\relax%omit fused position - \else - \@ccliptrue% - \putratom{135}{65}{\@memberb}% % right type - \fi\fi\fi -\or%position 4 - \if\@tmpb h\relax - \@cliptrue% - \putratom{0}{50}{\@memberb}% % right type - \else\if\@tmpb s\relax - \@clipfalse% - \putratom{0}{0}{\@memberb}% % right type - \else\if\@tmpb a\relax%omit fused position - \else - \@cliptrue% - \putratom{-31}{-10}{\@memberb}% % right type - \fi\fi\fi -\or%position 5 - \if\@tmpb h\relax - \@ecliptrue% - \putlatom{-135}{95}{\@memberb}% % right type - \else\if\@tmpb s\relax - \@eclipfalse% - \putlatom{-175}{103}{\@memberb}% % right type - \else\if\@tmpb a\relax%omit fused position - \else - \@ecliptrue% - \putlatom{-135}{65}{\@memberb}% % left type - \fi\fi\fi -\or%position 6 - \if\@tmpb h\relax - \@fcliptrue% - \putlatom{-135}{280}{\@memberb}% % right type - \else\if\@tmpb s\relax - \@fclipfalse% - \putlatom{-175}{303}{\@memberb}% % right type - \else\if\@tmpb a\relax%omit fused position - \else - \@fcliptrue% - \putlatom{-135}{280}{\@memberb}% % left type - \fi\fi\fi -\fi% end of ifcase -\fi\fi\fi}}% end of the macro \set@hetatom@sixv -\def\set@hetatom@sixh#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 - \if\@tmpb h\relax - \@acliptrue% - \putlatom{60}{0}{\@memberb}% % left type - \else\if\@tmpb s\relax - \@aclipfalse% - \putlatom{0}{0}{\@memberb}% % left type - \else\if\@tmpb a\relax%omit fused position - \else - \@acliptrue% - \putlatom{60}{-36}{\@memberb}% % left type - \fi\fi\fi -\or%position 2 - \if\@tmpb h\relax - \@bcliptrue% - \putlatom{135}{141}{\@memberb}% % left type - \else\if\@tmpb s\relax - \@bclipfalse% - \putlatom{103}{171}{\@memberb}% % left type - \else\if\@tmpb a\relax%omit fused position - \else - \@bcliptrue% - \putlatom{135}{141}{\@memberb}% % left type - \fi\fi\fi -\or%position 3 - \if\@tmpb h\relax - \@ccliptrue% - \putratom{273}{141}{\@memberb}% % right type - \else\if\@tmpb s\relax - \@cclipfalse% - \putratom{303}{171}{\@memberb}% % right type - \else\if\@tmpb a\relax%omit fused position - \else - \@ccliptrue% - \putratom{273}{141}{\@memberb}% % right type - \fi\fi\fi -\or%position 4 - \if\@tmpb h\relax - \@cliptrue% - \putratom{346}{0}{\@memberb}% % right type - \else\if\@tmpb s\relax - \@clipfalse% - \putratom{406}{0}{\@memberb}% % right type - \else\if\@tmpb a\relax%omit fused position - \else - \@cliptrue% - \putratom{346}{-36}{\@memberb}% % right type - \fi\fi\fi -\or%position 5 - \if\@tmpb h\relax - \@ecliptrue% - \putratom{283}{-131}{\@memberb}% % right type - \else\if\@tmpb s\relax - \@eclipfalse% - \putratom{303}{-171}{\@memberb}% % right type - \else\if\@tmpb a\relax%omit fused position - \else - \@ecliptrue% - \putratom{273}{-211}{\@memberb}% % right type - \fi\fi\fi -\or%position 6 - \if\@tmpb h\relax - \@fcliptrue% - \putlatom{125}{-131}{\@memberb}% % left type - \else\if\@tmpb s\relax - \@fclipfalse% - \putlatom{103}{-171}{\@memberb}% % left type - \else\if\@tmpb a\relax%omit fused position - \else - \@fcliptrue% - \putlatom{135}{-211}{\@memberb}% % left type - \fi\fi\fi -\fi% end of ifcase -\fi\fi\fi}}% end of the macro \set@hetatom@sixh -\def\test@vertix@decav#1#2#3#4#5#6#7{% -\@forsemicol\member:=#1\do{% -\ifx\member\empty\else% -\expandafter\@m@mb@r\member;\relax% -\expandafter\twoch@r\@membera{}% -\ifcase\@tmpa% - \or\or\or\or\or\or - \or \test@vertix{#2}% - \or - \if\@tmpb a% - \def\jjj{@}% - \else - \test@vertix{#3}% - \fi - \or \test@vertix{#4}% - \or \test@vertix{#5}% -\fi\fi}} -\def\set@vrtx@fuse#1{% -\@forsemicol\member:=#1\do{% -\ifx\member\empty\else% -\expandafter\@m@mb@r\member;\relax% -\expandafter\twoch@r\@membera{}% -\ifcase\@tmpa% - \or - \or - \or - \or%%%%4 - \if\@tmpb a% - \global\@icliptrue% - \putlatom{207}{65}{\@memberb}% % left type - \else\relax - \fi - \or%5 - \or%6 - \or%7 - \or% - \if\@tmpb a% - \global\@jcliptrue% - \putlatom{207}{280}{\@memberb}% % left type - \else\relax - \fi -\or%9 (= 4a) - \global\@icliptrue% - \putlatom{207}{65}{\@memberb}% % left type -\or%10 (= 8a) - \global\@jcliptrue% - \putlatom{207}{280}{\@memberb}% % left type -\fi\fi}% -}% end of the macro \set@vrtx@fuse -\def\set@vrtx@fuseh#1{% -\@forsemicol\member:=#1\do{% -\ifx\member\empty\else% -\expandafter\@m@mb@r\member;\relax% -\expandafter\twoCH@R\@membera//% -\ifcase\@tmpa% - \or - \or - \or - \or%%%%4 - \if\@tmpb a% - \global\@icliptrue% - \putratom{273}{-211}{\@memberb}% % right type - \else\relax - \fi - \or%5 - \or%6 - \or%7 - \or% - \if\@tmpb a% - \global\@jcliptrue% - \putlatom{135}{-211}{\@memberb}% % left type - \else\relax - \fi -\or%9 (= 4a) - \ifx\@tmpb\empty - \global\@icliptrue% - \putratom{273}{-211}{\@memberb}% % right type - \else - \XyMTeXWarning{Forbidden spiro ring for the 4a position}% - \fi -\or%10 (= 8a) - \ifx\@tmpb\empty - \global\@jcliptrue% - \putlatom{135}{-211}{\@memberb}% % left type - \else - \XyMTeXWarning{Forbidden spiro ring for the 8a position}% - \fi -\fi\fi}% -}% end of the macro \set@vrtx@fuseh -\def\set@fusionadd@sixv{% - \if\@@tmpa 1\relax% - \putratom{-38}{282}{\@@tmpb}% % right type - \else\if\@@tmpa 2\relax% - \putratom{60}{253}{\@@tmpb}% % right type - \else\if\@@tmpa 3\relax% - \putratom{60}{120}{\@@tmpb}% % right type - \else\if\@@tmpa 4\relax% - \putratom{-38}{88}{\@@tmpb}% % right type - \else\if\@@tmpa 6\relax% - \putratom{-90}{253}{\@@tmpb}% % right type - \else\if\@@tmpa 5\relax% - \putratom{-90}{120}{\@@tmpb}% % right type - \else - \set@fusion@sixv - \fi\fi\fi\fi\fi\fi% -}% -\def\set@fusion@sixv{% -\if\@@tmpa d\relax% - \putlratom{0}{0}{\@@tmpb}% % bond fused - \FuseWarning{171}{-103}% - {\fuseAx}{\fuseAy}{\fuseBx}{\fuseBy}{d, h, or other}% - \else\if\@@tmpa D\relax% - \putlratom{-171}{103}{\@@tmpb}% % bond fused - \FuseWarning{-171}{103}% - {\fuseAx}{\fuseAy}{\fuseBx}{\fuseBy}{D, H, or other}% - \else\if\@@tmpa e\relax% - \putlratom{-171}{103}{\@@tmpb}% % bond fused - \FuseWarning{0}{-200}% - {\fuseAx}{\fuseAy}{\fuseBx}{\fuseBy}{e, k, or other}% - \else\if\@@tmpa E\relax% - \putlratom{-171}{303}{\@@tmpb}% % bond fused - \FuseWarning{0}{200}% - {\fuseAx}{\fuseAy}{\fuseBx}{\fuseBy}{E, K, or other}% - \else\if\@@tmpa f\relax% - \putlratom{-171}{303}{\@@tmpb}% % bond fused - \FuseWarning{-171}{-103}% - {\fuseAx}{\fuseAy}{\fuseBx}{\fuseBy}{f, j, or other}% - \else\if\@@tmpa F\relax% - \putlratom{0}{406}{\@@tmpb}% % bond fused - \FuseWarning{171}{103}% - {\fuseAx}{\fuseAy}{\fuseBx}{\fuseBy}{F, J, or other}% - \else\if\@@tmpa a\relax% - \putlratom{0}{406}{\@@tmpb}% % bond fused - \FuseWarning{-171}{103}% - {\fuseAx}{\fuseAy}{\fuseBx}{\fuseBy}{a, i, or other}% - \else\if\@@tmpa A\relax% - \putlratom{171}{303}{\@@tmpb}% % bond fused - \FuseWarning{171}{-103}% - {\fuseAx}{\fuseAy}{\fuseBx}{\fuseBy}{A, I, or other}% - \else\if\@@tmpa b\relax% - \putlratom{171}{303}{\@@tmpb}% % bond fused - \FuseWarning{0}{200}% - {\fuseAx}{\fuseAy}{\fuseBx}{\fuseBy}{b, k, or other}% - \else\if\@@tmpa B\relax% - \putlratom{171}{103}{\@@tmpb}% % bond fused - \FuseWarning{0}{-200}% - {\fuseAx}{\fuseAy}{\fuseBx}{\fuseBy}{B, K, or other}% - \else\if\@@tmpa c\relax% - \putlratom{171}{103}{\@@tmpb}% % bond fused - \FuseWarning{171}{103}% - {\fuseAx}{\fuseAy}{\fuseBx}{\fuseBy}{c, e, or other}% - \else\if\@@tmpa C\relax% - \putlratom{0}{0}{\@@tmpb}% % bond fused - \FuseWarning{-171}{-103}% - {\fuseAx}{\fuseAy}{\fuseBx}{\fuseBy}{C, E, or other}% - \fi\fi\fi\fi\fi\fi\fi\fi\fi\fi\fi\fi% -}% end of the macro \set@fusion@sixv -\def\set@fusionadd@sixvi{% - \if\@@tmpa 4\relax% - \putratom{-38}{282}{\@@tmpb}% % right type - \else\if\@@tmpa 3\relax% - \putratom{60}{253}{\@@tmpb}% % right type - \else\if\@@tmpa 2\relax% - \putratom{60}{120}{\@@tmpb}% % right type - \else\if\@@tmpa 1\relax% - \putratom{-38}{88}{\@@tmpb}% % right type - \else\if\@@tmpa 5\relax% - \putratom{-90}{253}{\@@tmpb}% % right type - \else\if\@@tmpa 6\relax% - \putratom{-90}{120}{\@@tmpb}% % right type - \else - \set@fusion@sixvi - \fi\fi\fi\fi\fi\fi% -}% end of the macro \set@fusionadd@sixvi -\def\set@fusion@sixvi{% - \if\@@tmpa a\relax% - \putlratom{0}{0}{\@@tmpb}% % right type - \FuseWarning{-171}{-103}% - {\fuseAx}{\fuseAy}{\fuseBx}{\fuseBy}{a or other}% - \else\if\@@tmpa A\relax% - \putlratom{171}{103}{\@@tmpb}% % right type - \FuseWarning{171}{103}% - {\fuseAx}{\fuseAy}{\fuseBx}{\fuseBy}{A or other}% - \else\if\@@tmpa b\relax% - \putlratom{171}{103}{\@@tmpb}% % right type - \FuseWarning{0}{-200}% - {\fuseAx}{\fuseAy}{\fuseBx}{\fuseBy}{b or other}% - \else\if\@@tmpa B\relax% - \putlratom{171}{303}{\@@tmpb}% % right type - \FuseWarning{0}{200}% - {\fuseAx}{\fuseAy}{\fuseBx}{\fuseBy}{B or other}% - \else\if\@@tmpa c\relax% - \putlratom{171}{303}{\@@tmpb}% % right type - \FuseWarning{171}{-103}% - {\fuseAx}{\fuseAy}{\fuseBx}{\fuseBy}{c or other}% - \else\if\@@tmpa C\relax% - \putlratom{0}{406}{\@@tmpb}% % right type - \FuseWarning{-171}{103}% - {\fuseAx}{\fuseAy}{\fuseBx}{\fuseBy}{C or other}% - \else\if\@@tmpa d\relax% - \putlratom{0}{406}{\@@tmpb}% % right type - \FuseWarning{171}{103}% - {\fuseAx}{\fuseAy}{\fuseBx}{\fuseBy}{d or other}% - \else\if\@@tmpa D\relax% - \putlratom{-171}{303}{\@@tmpb}% % right type - \FuseWarning{-171}{-103}% - {\fuseAx}{\fuseAy}{\fuseBx}{\fuseBy}{D or other}% - \else\if\@@tmpa e\relax% - \putlratom{-171}{303}{\@@tmpb}% % right type - \FuseWarning{0}{200}% - {\fuseAx}{\fuseAy}{\fuseBx}{\fuseBy}{e or other}% - \else\if\@@tmpa E\relax% - \putlratom{-171}{103}{\@@tmpb}% % right type - \FuseWarning{0}{-200}% - {\fuseAx}{\fuseAy}{\fuseBx}{\fuseBy}{E or other}% - \else\if\@@tmpa f\relax% - \putlratom{-171}{103}{\@@tmpb}% % right type - \FuseWarning{171}{-103}% - {\fuseAx}{\fuseAy}{\fuseBx}{\fuseBy}{f or other}% - \else\if\@@tmpa F\relax% - \putlratom{0}{0}{\@@tmpb}% % right type - \FuseWarning{-171}{103}% - {\fuseAx}{\fuseAy}{\fuseBx}{\fuseBy}{F or other}% - \fi\fi\fi\fi\fi\fi\fi\fi\fi\fi\fi\fi% -}% end of the marcro \set@fusion@sixvi -\def\set@fusionadd@sixh{% - \if\@@tmpa 4\relax% - \putratom{272}{-18}{\@@tmpb}% % right type - \else\if\@@tmpa 1\relax% - \putratom{68}{-18}{\@@tmpb}% % right type - \else\if\@@tmpa 3\relax% - \putratom{233}{60}{\@@tmpb}% % right type - \else\if\@@tmpa 2\relax% - \putratom{120}{60}{\@@tmpb}% % right type - \else\if\@@tmpa 5\relax% - \putratom{233}{-110}{\@@tmpb}% % right type - \else\if\@@tmpa 6\relax% - \putratom{120}{-110}{\@@tmpb}% % right type - \else - \set@fusion@sixh - \fi\fi\fi\fi\fi\fi% -}% -\def\set@fusion@sixh{% -\if\@@tmpa d\relax% - \putlratom{406}{0}{\@@tmpb}% % bond fused - \FuseWarning{103}{171}% - {\fuseAx}{\fuseAy}{\fuseBx}{\fuseBy}{d, h, or other}% - \else\if\@@tmpa D\relax% - \putlratom{303}{-171}{\@@tmpb}% % bond fused - \FuseWarning{-103}{-171}% - {\fuseAx}{\fuseAy}{\fuseBx}{\fuseBy}{D, H, or other}% - \else\if\@@tmpa e\relax% - \putlratom{303}{-171}{\@@tmpb}% % bond fused - \FuseWarning{200}{0}% - {\fuseAx}{\fuseAy}{\fuseBx}{\fuseBy}{e, k, or other}% - \else\if\@@tmpa E\relax% - \putlratom{103}{-171}{\@@tmpb}% % bond fused - \FuseWarning{-200}{0}% - {\fuseAx}{\fuseAy}{\fuseBx}{\fuseBy}{E, K, or other}% - \else\if\@@tmpa f\relax% - \putlratom{103}{-171}{\@@tmpb}% % bond fused - \FuseWarning{103}{-171}% - {\fuseAx}{\fuseAy}{\fuseBx}{\fuseBy}{f, j, or other}% - \else\if\@@tmpa F\relax% - \putlratom{0}{0}{\@@tmpb}% % bond fused - \FuseWarning{-103}{171}% - {\fuseAx}{\fuseAy}{\fuseBx}{\fuseBy}{F, J, or other}% - \else\if\@@tmpa a\relax% - \putlratom{0}{0}{\@@tmpb}% % bond fused - \FuseWarning{-103}{-171}% - {\fuseAx}{\fuseAy}{\fuseBx}{\fuseBy}{a, i, or other}% - \else\if\@@tmpa A\relax% - \putlratom{103}{171}{\@@tmpb}% % bond fused - \FuseWarning{103}{171}% - {\fuseAx}{\fuseAy}{\fuseBx}{\fuseBy}{A, I, or other}% - \else\if\@@tmpa b\relax% - \putlratom{103}{171}{\@@tmpb}% % bond fused - \FuseWarning{-200}{0}% - {\fuseAx}{\fuseAy}{\fuseBx}{\fuseBy}{b, k, or other}% - \else\if\@@tmpa B\relax% - \putlratom{303}{171}{\@@tmpb}% % bond fused - \FuseWarning{200}{0}% - {\fuseAx}{\fuseAy}{\fuseBx}{\fuseBy}{B, K, or other}% - \else\if\@@tmpa c\relax% - \putlratom{303}{171}{\@@tmpb}% % bond fused - \FuseWarning{-103}{171}% - {\fuseAx}{\fuseAy}{\fuseBx}{\fuseBy}{c, e, or other}% - \else\if\@@tmpa C\relax% - \putlratom{406}{0}{\@@tmpb}% % bond fused - \FuseWarning{103}{-171}% - {\fuseAx}{\fuseAy}{\fuseBx}{\fuseBy}{C, E, or other}% - \fi\fi\fi\fi\fi\fi\fi\fi\fi\fi\fi\fi% -}% end of the macro \set@fusion@sixh -\def\set@fusionadd@sixhi{% - \if\@@tmpa 1\relax% - \putratom{272}{-18}{\@@tmpb}% % right type - \else\if\@@tmpa 4\relax% - \putratom{68}{-18}{\@@tmpb}% % right type - \else\if\@@tmpa 2\relax% - \putratom{233}{60}{\@@tmpb}% % right type - \else\if\@@tmpa 3\relax% - \putratom{120}{60}{\@@tmpb}% % right type - \else\if\@@tmpa 6\relax% - \putratom{233}{-110}{\@@tmpb}% % right type - \else\if\@@tmpa 5\relax% - \putratom{120}{-110}{\@@tmpb}% % right type - \else - \set@fusion@sixhi - \fi\fi\fi\fi\fi\fi% -}% -\def\set@fusion@sixhi{% -\if\@@tmpa F\relax% - \putlratom{406}{0}{\@@tmpb}% % bond fused - \FuseWarning{103}{171}% - {\fuseAx}{\fuseAy}{\fuseBx}{\fuseBy}{F, J, or other}% - \else\if\@@tmpa f\relax% - \putlratom{303}{-171}{\@@tmpb}% % bond fused - \FuseWarning{-103}{-171}% - {\fuseAx}{\fuseAy}{\fuseBx}{\fuseBy}{f, j, or other}% - \else\if\@@tmpa E\relax% - \putlratom{303}{-171}{\@@tmpb}% % bond fused - \FuseWarning{200}{0}% - {\fuseAx}{\fuseAy}{\fuseBx}{\fuseBy}{E, K, or other}% - \else\if\@@tmpa e\relax% - \putlratom{103}{-171}{\@@tmpb}% % bond fused - \FuseWarning{-200}{0}% - {\fuseAx}{\fuseAy}{\fuseBx}{\fuseBy}{e, k, or other}% - \else\if\@@tmpa D\relax% - \putlratom{103}{-171}{\@@tmpb}% % bond fused - \FuseWarning{103}{-171}% - {\fuseAx}{\fuseAy}{\fuseBx}{\fuseBy}{D, H, or other}% - \else\if\@@tmpa d\relax% - \putlratom{0}{0}{\@@tmpb}% % bond fused - \FuseWarning{-103}{171}% - {\fuseAx}{\fuseAy}{\fuseBx}{\fuseBy}{d, h, or other}% - \else\if\@@tmpa C\relax% - \putlratom{0}{0}{\@@tmpb}% % bond fused - \FuseWarning{-103}{-171}% - {\fuseAx}{\fuseAy}{\fuseBx}{\fuseBy}{C, E, or other}% - \else\if\@@tmpa c\relax% - \putlratom{103}{171}{\@@tmpb}% % bond fused - \FuseWarning{103}{171}% - {\fuseAx}{\fuseAy}{\fuseBx}{\fuseBy}{c, e, or other}% - \else\if\@@tmpa B\relax% - \putlratom{103}{171}{\@@tmpb}% % bond fused - \FuseWarning{-200}{0}% - {\fuseAx}{\fuseAy}{\fuseBx}{\fuseBy}{B, K, or other}% - \else\if\@@tmpa b\relax% - \putlratom{303}{171}{\@@tmpb}% % bond fused - \FuseWarning{200}{0}% - {\fuseAx}{\fuseAy}{\fuseBx}{\fuseBy}{b, k, or other}% - \else\if\@@tmpa A\relax% - \putlratom{303}{171}{\@@tmpb}% % bond fused - \FuseWarning{-103}{171}% - {\fuseAx}{\fuseAy}{\fuseBx}{\fuseBy}{A, I, or other}% - \else\if\@@tmpa a\relax% - \putlratom{406}{0}{\@@tmpb}% % bond fused - \FuseWarning{103}{-171}% - {\fuseAx}{\fuseAy}{\fuseBx}{\fuseBy}{a, i, or other}% - \fi\fi\fi\fi\fi\fi\fi\fi\fi\fi\fi\fi% -}% end of the macro \set@fusion@sixhi -\def\UnfavorableFusion#1{\if@smallringsw\else -\XyMTeXWarning{Unfavorable Fusion for bond `#1'}\fi} -\def\ForbiddenFusion#1{\if@smallringsw\else -\XyMTeXWarning{Forbidden Fusion for bond `#1'}\fi} -\def\set@fusion@decav{% - \let\@@tmpa=\@tmpa - \let\@@tmpb=\@tmpb - \if\@tmpa a% - \let\@@tmpa=\@tmpa - \put(342,0){\set@fusionadd@sixv}% - \else\if\@tmpa A% - \let\@@tmpa=\@tmpa - \put(342,0){\set@fusionadd@sixv}% - \else\if\@tmpa b% - \let\@@tmpa=\@tmpa - \put(342,0){\set@fusionadd@sixv}% - \else\if\@tmpa B% - \let\@@tmpa=\@tmpa - \put(342,0){\set@fusionadd@sixv}% - \else\if\@tmpa c% - \let\@@tmpa=\@tmpa - \put(342,0){\set@fusionadd@sixv}% - \else\if\@tmpa C% - \let\@@tmpa=\@tmpa - \put(342,0){\set@fusionadd@sixv}% - \else\if\@tmpa d% - \let\@@tmpa=\@tmpa - \put(342,0){\set@fusionadd@sixv}% - \UnfavorableFusion{d}% - \else\if\@tmpa D% - \let\@@tmpa=\@tmpa - \put(342,0){\set@fusionadd@sixv}% - \UnfavorableFusion{D}% - \else\if\@tmpa e% - \edef\@@tmpa{c}% - \put(0,0){\set@fusionadd@sixv}% - \UnfavorableFusion{e}% - \else\if\@tmpa E% - \edef\@@tmpa{C}% - \put(0,0){\set@fusionadd@sixv}% - \UnfavorableFusion{E}% - \else\if\@tmpa f% - \edef\@@tmpa{d}% - \put(0,0){\set@fusionadd@sixv}% - \else\if\@tmpa F% - \edef\@@tmpa{D}% - \put(0,0){\set@fusionadd@sixv}% - \else\if\@tmpa g% - \edef\@@tmpa{e}% - \put(0,0){\set@fusionadd@sixv}% - \else\if\@tmpa G% - \edef\@@tmpa{E}% - \put(0,0){\set@fusionadd@sixv}% - \else\if\@tmpa h% - \edef\@@tmpa{f}% - \put(0,0){\set@fusionadd@sixv}% - \else\if\@tmpa H% - \edef\@@tmpa{F}% - \put(0,0){\set@fusionadd@sixv}% - \else\if\@tmpa i% - \edef\@@tmpa{a}% - \put(0,0){\set@fusionadd@sixv}% - \UnfavorableFusion{i}% - \else\if\@tmpa I% - \edef\@@tmpa{A}% - \put(0,0){\set@fusionadd@sixv}% - \UnfavorableFusion{I}% - \else\if\@tmpa j% - \edef\@@tmpa{f}% - \put(342,0){\set@fusionadd@sixv}% - \UnfavorableFusion{j}% - \else\if\@tmpa J% - \edef\@@tmpa{F}% - \put(342,0){\set@fusionadd@sixv}% - \UnfavorableFusion{J}% - \else\if\@tmpa k% - \edef\@@tmpa{e}% - \put(342,0){\set@fusionadd@sixv}% - \ForbiddenFusion{k}% - \else\if\@tmpa K% - \edef\@@tmpa{E}% - \put(342,0){\set@fusionadd@sixv}% - \ForbiddenFusion{K}% - \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@decav -\def\set@fusion@decavb{% - \let\@@tmpa=\@tmpa - \let\@@tmpb=\@tmpb - \if\@tmpa a% - \edef\@@tmpa{b}% - \put(0,0){\set@fusionadd@sixv}% - \else\if\@tmpa A% - \edef\@@tmpa{B}% - \put(0,0){\set@fusionadd@sixv}% - \else\if\@tmpa b% - \edef\@@tmpa{c}% - \put(0,0){\set@fusionadd@sixv}% - \else\if\@tmpa B% - \edef\@@tmpa{C}% - \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{e}% - \put(0,0){\set@fusionadd@sixv}% - \UnfavorableFusion{d}% - \else\if\@tmpa D% - \edef\@@tmpa{E}% - \put(0,0){\set@fusionadd@sixv}% - \UnfavorableFusion{D}% - \else\if\@tmpa e% - \edef\@@tmpa{d}% - \put(-171,303){\set@fusionadd@sixv}% - \UnfavorableFusion{e}% - \else\if\@tmpa E% - \edef\@@tmpa{D}% - \put(-171,303){\set@fusionadd@sixv}% - \UnfavorableFusion{E}% - \else\if\@tmpa f% - \edef\@@tmpa{e}% - \put(-171,303){\set@fusionadd@sixv}% - \else\if\@tmpa F% - \edef\@@tmpa{E}% - \put(-171,303){\set@fusionadd@sixv}% - \else\if\@tmpa g% - \edef\@@tmpa{f}% - \put(-171,303){\set@fusionadd@sixv}% - \else\if\@tmpa G% - \edef\@@tmpa{F}% - \put(-171,303){\set@fusionadd@sixv}% - \else\if\@tmpa h% - \edef\@@tmpa{a}% - \put(-171,303){\set@fusionadd@sixv}% - \else\if\@tmpa H% - \edef\@@tmpa{A}% - \put(-171,303){\set@fusionadd@sixv}% - \else\if\@tmpa i% - \edef\@@tmpa{b}% - \put(-171,303){\set@fusionadd@sixv}% - \UnfavorableFusion{i}% - \else\if\@tmpa I% - \edef\@@tmpa{B}% - \put(-171,303){\set@fusionadd@sixv}% - \UnfavorableFusion{I}% - \else\if\@tmpa j% - \edef\@@tmpa{a}% - \put(0,0){\set@fusionadd@sixv}% - \UnfavorableFusion{j}% - \else\if\@tmpa J% - \edef\@@tmpa{A}% - \put(0,0){\set@fusionadd@sixv}% - \UnfavorableFusion{J}% - \else\if\@tmpa k% - \edef\@@tmpa{c}% - \put(-171,303){\set@fusionadd@sixv}% - \ForbiddenFusion{k}% - \else\if\@tmpa K% - \edef\@@tmpa{C}% - \put(-171,303){\set@fusionadd@sixv}% - \ForbiddenFusion{K}% - \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@decavb -\def\set@fusion@decavt{% - \let\@@tmpa=\@tmpa - \let\@@tmpb=\@tmpb - \if\@tmpa a% - \edef\@@tmpa{f}% - \put(171,303){\set@fusionadd@sixv}% - \else\if\@tmpa A% - \edef\@@tmpa{F}% - \put(171,303){\set@fusionadd@sixv}% - \else\if\@tmpa b% - \edef\@@tmpa{a}% - \put(171,303){\set@fusionadd@sixv}% - \else\if\@tmpa B% - \edef\@@tmpa{A}% - \put(171,303){\set@fusionadd@sixv}% - \else\if\@tmpa c% - \edef\@@tmpa{b}% - \put(171,303){\set@fusionadd@sixv}% - \else\if\@tmpa C% - \edef\@@tmpa{B}% - \put(171,303){\set@fusionadd@sixv}% - \else\if\@tmpa d% - \edef\@@tmpa{c}% - \put(171,303){\set@fusionadd@sixv}% - \UnfavorableFusion{d}% - \else\if\@tmpa D% - \edef\@@tmpa{C}% - \put(171,303){\set@fusionadd@sixv}% - \UnfavorableFusion{D}% - \else\if\@tmpa e% - \edef\@@tmpa{b}% - \put(0,0){\set@fusionadd@sixv}% - \UnfavorableFusion{e}% - \else\if\@tmpa E% - \edef\@@tmpa{B}% - \put(0,0){\set@fusionadd@sixv}% - \UnfavorableFusion{E}% - \else\if\@tmpa f% - \edef\@@tmpa{c}% - \put(0,0){\set@fusionadd@sixv}% - \else\if\@tmpa F% - \edef\@@tmpa{C}% - \put(0,0){\set@fusionadd@sixv}% - \else\if\@tmpa g% - \edef\@@tmpa{d}% - \put(0,0){\set@fusionadd@sixv}% - \else\if\@tmpa G% - \edef\@@tmpa{D}% - \put(0,0){\set@fusionadd@sixv}% - \else\if\@tmpa h% - \edef\@@tmpa{e}% - \put(0,0){\set@fusionadd@sixv}% - \else\if\@tmpa H% - \edef\@@tmpa{E}% - \put(0,0){\set@fusionadd@sixv}% - \else\if\@tmpa i% - \edef\@@tmpa{f}% - \put(0,0){\set@fusionadd@sixv}% - \UnfavorableFusion{i}% - \else\if\@tmpa I% - \edef\@@tmpa{F}% - \put(0,0){\set@fusionadd@sixv}% - \UnfavorableFusion{I}% - \else\if\@tmpa j% - \edef\@@tmpa{e}% - \put(171,303){\set@fusionadd@sixv}% - \UnfavorableFusion{j}% - \else\if\@tmpa J% - \edef\@@tmpa{E}% - \put(171,303){\set@fusionadd@sixv}% - \UnfavorableFusion{J}% - \else\if\@tmpa k% - \edef\@@tmpa{d}% - \put(171,303){\set@fusionadd@sixv}% - \ForbiddenFusion{k}% - \else\if\@tmpa K% - \edef\@@tmpa{D}% - \put(171,303){\set@fusionadd@sixv}% - \ForbiddenFusion{K}% - \fi\fi\fi\fi\fi\fi\fi\fi\fi\fi\fi\fi% - \fi\fi\fi\fi\fi\fi\fi\fi\fi\fi% -}% end of \set@fusion@decavt -\def\set@fusion@decah{% - \let\@@tmpa=\@tmpa - \let\@@tmpb=\@tmpb - \if\@tmpa a% - \let\@@tmpa=\@tmpa - \put(0,0){\set@fusionadd@sixh}% - \else\if\@tmpa A% - \let\@@tmpa=\@tmpa - \put(0,0){\set@fusionadd@sixh}% - \else\if\@tmpa b% - \let\@@tmpa=\@tmpa - \put(0,0){\set@fusionadd@sixh}% - \else\if\@tmpa B% - \let\@@tmpa=\@tmpa - \put(0,0){\set@fusionadd@sixh}% - \else\if\@tmpa c% - \let\@@tmpa=\@tmpa - \put(0,0){\set@fusionadd@sixh}% - \else\if\@tmpa C% - \let\@@tmpa=\@tmpa - \put(0,0){\set@fusionadd@sixh}% - \else\if\@tmpa d% - \let\@@tmpa=\@tmpa - \put(0,0){\set@fusionadd@sixh}% - \UnfavorableFusion{d}% - \else\if\@tmpa D% - \let\@@tmpa=\@tmpa - \put(0,0){\set@fusionadd@sixh}% - \UnfavorableFusion{D}% - \else\if\@tmpa e% - \edef\@@tmpa{c}% - \put(0,-342){\set@fusionadd@sixh}% - \UnfavorableFusion{e}% - \else\if\@tmpa E% - \edef\@@tmpa{C}% - \put(0,-342){\set@fusionadd@sixh}% - \UnfavorableFusion{E}% - \else\if\@tmpa f% - \edef\@@tmpa{d}% - \put(0,-342){\set@fusionadd@sixh}% - \else\if\@tmpa F% - \edef\@@tmpa{D}% - \put(0,-342){\set@fusionadd@sixh}% - \else\if\@tmpa g% - \edef\@@tmpa{e}% - \put(0,-342){\set@fusionadd@sixh}% - \else\if\@tmpa G% - \edef\@@tmpa{E}% - \put(0,-342){\set@fusionadd@sixh}% - \else\if\@tmpa h% - \edef\@@tmpa{f}% - \put(0,-342){\set@fusionadd@sixh}% - \else\if\@tmpa H% - \edef\@@tmpa{F}% - \put(0,-342){\set@fusionadd@sixh}% - \else\if\@tmpa i% - \edef\@@tmpa{a}% - \put(0,-342){\set@fusionadd@sixh}% - \UnfavorableFusion{i}% - \else\if\@tmpa I% - \edef\@@tmpa{A}% - \put(0,-342){\set@fusionadd@sixh}% - \UnfavorableFusion{I}% - \else\if\@tmpa j% - \edef\@@tmpa{f}% - \put(0,0){\set@fusionadd@sixh}% - \UnfavorableFusion{j}% - \else\if\@tmpa J% - \edef\@@tmpa{F}% - \put(0,0){\set@fusionadd@sixh}% - \UnfavorableFusion{J}% - \else\if\@tmpa k% - \edef\@@tmpa{e}% - \put(0,0){\set@fusionadd@sixh}% - \ForbiddenFusion{k}% - \else\if\@tmpa K% - \edef\@@tmpa{E}% - \put(0,0){\set@fusionadd@sixh}% - \ForbiddenFusion{K}% - \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@decah -\def\set@fusion@hanthrav{% - \let\@@tmpa=\@tmpa - \let\@@tmpb=\@tmpb - \if\@tmpa a% - \let\@@tmpa=\@tmpa - \put(684,0){\set@fusionadd@sixv}% - \else\if\@tmpa A% - \let\@@tmpa=\@tmpa - \put(684,0){\set@fusionadd@sixv}% - \else\if\@tmpa b% - \let\@@tmpa=\@tmpa - \put(684,0){\set@fusionadd@sixv}% - \else\if\@tmpa B% - \let\@@tmpa=\@tmpa - \put(684,0){\set@fusionadd@sixv}% - \else\if\@tmpa c% - \let\@@tmpa=\@tmpa - \put(684,0){\set@fusionadd@sixv}% - \else\if\@tmpa C% - \let\@@tmpa=\@tmpa - \put(684,0){\set@fusionadd@sixv}% - \else\if\@tmpa d% - \let\@@tmpa=\@tmpa - \put(684,0){\set@fusionadd@sixv}% - \UnfavorableFusion{d}% - \else\if\@tmpa D% - \let\@@tmpa=\@tmpa - \put(684,0){\set@fusionadd@sixv}% - \UnfavorableFusion{D}% - \else\if\@tmpa e% - \edef\@@tmpa{c}% - \put(342,0){\set@fusionadd@sixv}% - \UnfavorableFusion{e}% - \else\if\@tmpa E% - \edef\@@tmpa{C}% - \put(342,0){\set@fusionadd@sixv}% - \UnfavorableFusion{E}% - \else\if\@tmpa f% - \edef\@@tmpa{d}% - \put(342,0){\set@fusionadd@sixv}% - \UnfavorableFusion{f}% - \else\if\@tmpa F% - \edef\@@tmpa{D}% - \put(342,0){\set@fusionadd@sixv}% - \UnfavorableFusion{F}% - \else\if\@tmpa g% - \edef\@@tmpa{c}% - \put(0,0){\set@fusionadd@sixv}% - \UnfavorableFusion{g}% - \else\if\@tmpa G% - \edef\@@tmpa{C}% - \put(0,0){\set@fusionadd@sixv}% - \UnfavorableFusion{G}% - \else\if\@tmpa h% - \edef\@@tmpa{d}% - \put(0,0){\set@fusionadd@sixv}% - \else\if\@tmpa H% - \edef\@@tmpa{D}% - \put(0,0){\set@fusionadd@sixv}% - \else\if\@tmpa i% - \edef\@@tmpa{e}% - \put(0,0){\set@fusionadd@sixv}% - \else\if\@tmpa I% - \edef\@@tmpa{E}% - \put(0,0){\set@fusionadd@sixv}% - \else\if\@tmpa j% - \edef\@@tmpa{f}% - \put(0,0){\set@fusionadd@sixv}% - \else\if\@tmpa J% - \edef\@@tmpa{F}% - \put(0,0){\set@fusionadd@sixv}% - \else\if\@tmpa k% - \edef\@@tmpa{a}% - \put(0,0){\set@fusionadd@sixv}% - \UnfavorableFusion{k}% - \else\if\@tmpa K% - \edef\@@tmpa{A}% - \put(0,0){\set@fusionadd@sixv}% - \UnfavorableFusion{K}% - \else\if\@tmpa l% - \edef\@@tmpa{f}% - \put(342,0){\set@fusionadd@sixv}% - \UnfavorableFusion{l}% - \else\if\@tmpa L% - \edef\@@tmpa{F}% - \put(342,0){\set@fusionadd@sixv}% - \UnfavorableFusion{L}% - \else\if\@tmpa m% - \edef\@@tmpa{a}% - \put(342,0){\set@fusionadd@sixv}% - \UnfavorableFusion{m}% - \else\if\@tmpa M% - \edef\@@tmpa{A}% - \put(342,0){\set@fusionadd@sixv}% - \UnfavorableFusion{M}% - \else\if\@tmpa n% - \edef\@@tmpa{f}% - \put(684,0){\set@fusionadd@sixv}% - \UnfavorableFusion{n}% - \else\if\@tmpa N% - \edef\@@tmpa{F}% - \put(684,0){\set@fusionadd@sixv}% - \UnfavorableFusion{N}% - \else\if\@tmpa o% - \edef\@@tmpa{e}% - \put(684,0){\set@fusionadd@sixv}% - \ForbiddenFusion{o}% - \else\if\@tmpa O% - \edef\@@tmpa{E}% - \put(684,0){\set@fusionadd@sixv}% - \ForbiddenFusion{O}% - \else\if\@tmpa p% - \edef\@@tmpa{e}% - \put(342,0){\set@fusionadd@sixv}% - \ForbiddenFusion{p}% - \else\if\@tmpa P% - \edef\@@tmpa{E}% - \put(342,0){\set@fusionadd@sixv}% - \ForbiddenFusion{P}% - \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@hanthrav -\def\set@fusion@hphenanv{% - \let\@@tmpa=\@tmpa - \let\@@tmpb=\@tmpb - \if\@tmpa a% - \edef\@@tmpa{b}% - \put(513,303){\set@fusionadd@sixv}% - \else\if\@tmpa A% - \edef\@@tmpa{B}% - \put(513,303){\set@fusionadd@sixv}% - \else\if\@tmpa b% - \edef\@@tmpa{a}% - \put(513,303){\set@fusionadd@sixv}% - \else\if\@tmpa B% - \edef\@@tmpa{A}% - \put(513,303){\set@fusionadd@sixv}% - \else\if\@tmpa c% - \edef\@@tmpa{f}% - \put(513,303){\set@fusionadd@sixv}% - \else\if\@tmpa C% - \edef\@@tmpa{F}% - \put(513,303){\set@fusionadd@sixv}% - \else\if\@tmpa d% - \edef\@@tmpa{e}% - \put(513,303){\set@fusionadd@sixv}% - \UnfavorableFusion{d}% - \else\if\@tmpa D% - \edef\@@tmpa{E}% - \put(513,303){\set@fusionadd@sixv}% - \UnfavorableFusion{D}% - \else\if\@tmpa e% - \edef\@@tmpa{f}% - \put(342,0){\set@fusionadd@sixv}% - \UnfavorableFusion{e}% - \else\if\@tmpa E% - \edef\@@tmpa{F}% - \put(342,0){\set@fusionadd@sixv}% - \UnfavorableFusion{E}% - \else\if\@tmpa f% - \edef\@@tmpa{a}% - \put(0,0){\set@fusionadd@sixv}% - \UnfavorableFusion{f}% - \else\if\@tmpa F% - \edef\@@tmpa{A}% - \put(0,0){\set@fusionadd@sixv}% - \UnfavorableFusion{F}% - \else\if\@tmpa g% - \edef\@@tmpa{f}% - \put(0,0){\set@fusionadd@sixv}% - \else\if\@tmpa G% - \edef\@@tmpa{F}% - \put(0,0){\set@fusionadd@sixv}% - \else\if\@tmpa h% - \edef\@@tmpa{e}% - \put(0,0){\set@fusionadd@sixv}% - \else\if\@tmpa H% - \edef\@@tmpa{E}% - \put(0,0){\set@fusionadd@sixv}% - \else\if\@tmpa i% - \edef\@@tmpa{d}% - \put(0,0){\set@fusionadd@sixv}% - \else\if\@tmpa I% - \edef\@@tmpa{D}% - \put(0,0){\set@fusionadd@sixv}% - \else\if\@tmpa j% - \edef\@@tmpa{c}% - \put(0,0){\set@fusionadd@sixv}% - \UnfavorableFusion{j}% - \else\if\@tmpa J% - \edef\@@tmpa{C}% - \put(0,0){\set@fusionadd@sixv}% - \UnfavorableFusion{J}% - \else\if\@tmpa k% - \edef\@@tmpa{d}% - \put(342,0){\set@fusionadd@sixv}% - \UnfavorableFusion{k}% - \else\if\@tmpa K% - \edef\@@tmpa{D}% - \put(342,0){\set@fusionadd@sixv}% - \UnfavorableFusion{K}% - \else\if\@tmpa l% - \edef\@@tmpa{c}% - \put(342,0){\set@fusionadd@sixv}% - \else\if\@tmpa L% - \edef\@@tmpa{C}% - \put(342,0){\set@fusionadd@sixv}% - \else\if\@tmpa m% - \edef\@@tmpa{b}% - \put(342,0){\set@fusionadd@sixv}% - \UnfavorableFusion{m}% - \else\if\@tmpa M% - \edef\@@tmpa{B}% - \put(342,0){\set@fusionadd@sixv}% - \UnfavorableFusion{M}% - \else\if\@tmpa n% - \edef\@@tmpa{c}% - \put(513,303){\set@fusionadd@sixv}% - \UnfavorableFusion{n}% - \else\if\@tmpa N% - \edef\@@tmpa{C}% - \put(513,303){\set@fusionadd@sixv}% - \UnfavorableFusion{N}% - \else\if\@tmpa o% - \edef\@@tmpa{d}% - \put(513,303){\set@fusionadd@sixv}% - \ForbiddenFusion{o}% - \else\if\@tmpa O% - \edef\@@tmpa{D}% - \put(513,303){\set@fusionadd@sixv}% - \ForbiddenFusion{O}% - \else\if\@tmpa p% - \edef\@@tmpa{e}% - \put(342,0){\set@fusionadd@sixv}% - \ForbiddenFusion{p}% - \else\if\@tmpa P% - \edef\@@tmpa{E}% - \put(342,0){\set@fusionadd@sixv}% - \ForbiddenFusion{P}% - \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@hphananv -\def\set@fusionadd@fivev{% - \if\@@tmpa 1\relax% - \putratom{-38}{88}{\@@tmpb}% % right type - \else\if\@@tmpa 2\relax% - \putratom{60}{120}{\@@tmpb}% % right type - \else\if\@@tmpa 3\relax% - \putratom{60}{233}{\@@tmpb}% % right type - \else\if\@@tmpa 4\relax% - \putratom{-60}{233}{\@@tmpb}% % right type - \else\if\@@tmpa 5\relax% - \putratom{-60}{120}{\@@tmpb}% % right type - \else\if\@@tmpa 0\relax% - \putratom{-38}{150}{\@@tmpb}% % right type - \else - \set@fusion@fivev - \fi\fi\fi\fi\fi\fi% -}% end of the macro \set@fusionadd@fivev -\def\set@fusion@fivev{% - \if\@@tmpa a\relax% - \putlratom{0}{0}{\@@tmpb}% % right type - \FuseWarning{-171}{-103}% - {\fuseAx}{\fuseAy}{\fuseBx}{\fuseBy}{a}% - \else\if\@@tmpa A\relax% - \putlratom{171}{103}{\@@tmpb}% % right type - \FuseWarning{171}{103}% - {\fuseAx}{\fuseAy}{\fuseBx}{\fuseBy}{A}% - \else\if\@@tmpa b\relax% - \putlratom{171}{103}{\@@tmpb}% % right type - \FuseWarning{0}{-200}% - {\fuseAx}{\fuseAy}{\fuseBx}{\fuseBy}{b}% - \else\if\@@tmpa B\relax% - \putlratom{171}{303}{\@@tmpb}% % right type - \FuseWarning{0}{200}% - {\fuseAx}{\fuseAy}{\fuseBx}{\fuseBy}{B}% - \else\if\@@tmpa c\relax - \XyMTeXWarning{Not-used fusion at bond `c'}% - \else\if\@@tmpa C\relax% - \XyMTeXWarning{Not-used fusion at bond `C'}% - \else\if\@@tmpa d\relax% - \putlratom{-171}{303}{\@@tmpb}% % right type - \FuseWarning{0}{200}% - {\fuseAx}{\fuseAy}{\fuseBx}{\fuseBy}{d}% - \else\if\@@tmpa D\relax% - \putlratom{-171}{103}{\@@tmpb}% % right type - \FuseWarning{0}{-200}% - {\fuseAx}{\fuseAy}{\fuseBx}{\fuseBy}{D}% - \else\if\@@tmpa e\relax% - \putlratom{-171}{103}{\@@tmpb}% % right type - \FuseWarning{171}{-103}% - {\fuseAx}{\fuseAy}{\fuseBx}{\fuseBy}{e}% - \else\if\@@tmpa E\relax% - \putlratom{0}{0}{\@@tmpb}% % right type - \FuseWarning{-171}{103}% - {\fuseAx}{\fuseAy}{\fuseBx}{\fuseBy}{E}% - \fi\fi\fi\fi\fi\fi\fi\fi\fi\fi% -}% end of the marcro \set@fusion@fivev -\def\set@fusionadd@fivevi{% - \if\@@tmpa 1\relax% - \putratom{-38}{282}{\@@tmpb}% % right type - \else\if\@@tmpa 2\relax% - \putratom{60}{233}{\@@tmpb}% % right type - \else\if\@@tmpa 3\relax% - \putratom{60}{120}{\@@tmpb}% % right type - \else\if\@@tmpa 4\relax% - \putratom{-60}{120}{\@@tmpb}% % right type - \else\if\@@tmpa 5\relax% - \putratom{-60}{233}{\@@tmpb}% % right type - \else\if\@@tmpa 0\relax% - \putratom{-38}{213}{\@@tmpb}% % right type - \else - \set@fusion@fivevi - \fi\fi\fi\fi\fi\fi% -}% end of the macro \set@fusionadd@fivevi -\def\set@fusion@fivevi{% -\if\@@tmpa d\relax% - \putlratom{-171}{103}{\@@tmpb}% % bond fused - \FuseWarning{0}{-200}% - {\fuseAx}{\fuseAy}{\fuseBx}{\fuseBy}{d, k, or other}% - \else\if\@@tmpa D\relax% - \putlratom{-171}{303}{\@@tmpb}% % bond fused - \FuseWarning{0}{200}% - {\fuseAx}{\fuseAy}{\fuseBx}{\fuseBy}{D, K, or other}% - \else\if\@@tmpa e\relax% - \putlratom{-171}{303}{\@@tmpb}% % bond fused - \FuseWarning{-171}{-103}% - {\fuseAx}{\fuseAy}{\fuseBx}{\fuseBy}{e, j, or other}% - \else\if\@@tmpa E\relax% - \putlratom{0}{406}{\@@tmpb}% % bond fused - \FuseWarning{171}{103}% - {\fuseAx}{\fuseAy}{\fuseBx}{\fuseBy}{E, J, or other}% - \else\if\@@tmpa a\relax% - \putlratom{0}{406}{\@@tmpb}% % bond fused - \FuseWarning{-171}{103}% - {\fuseAx}{\fuseAy}{\fuseBx}{\fuseBy}{a, i, or other}% - \else\if\@@tmpa A\relax% - \putlratom{171}{303}{\@@tmpb}% % bond fused - \FuseWarning{171}{-103}% - {\fuseAx}{\fuseAy}{\fuseBx}{\fuseBy}{A, I, or other}% - \else\if\@@tmpa b\relax% - \putlratom{171}{303}{\@@tmpb}% % bond fused - \FuseWarning{0}{200}% - {\fuseAx}{\fuseAy}{\fuseBx}{\fuseBy}{b, k, or other}% - \else\if\@@tmpa B\relax% - \putlratom{171}{103}{\@@tmpb}% % bond fused - \FuseWarning{0}{-200}% - {\fuseAx}{\fuseAy}{\fuseBx}{\fuseBy}{B, K, or other}% - \else\if\@@tmpa c\relax - \XyMTeXWarning{Not-used fusion at bond `c'}% - \else\if\@@tmpa C\relax% - \XyMTeXWarning{Not-used fusion at bond `C'}% - \fi\fi\fi\fi\fi\fi\fi\fi\fi\fi% -}% end of the macro \set@fusion@fivevi -\def\set@fusionadd@fiveh{% - \if\@@tmpa 1\relax% - \putratom{272}{-18}{\@@tmpb}% % right type - \else\if\@@tmpa 2\relax% - \putratom{233}{60}{\@@tmpb}% % right type - \else\if\@@tmpa 3\relax% - \putratom{120}{60}{\@@tmpb}% % right type - \else\if\@@tmpa 5\relax% - \putratom{233}{-110}{\@@tmpb}% % right type - \else\if\@@tmpa 4\relax% - \putratom{120}{-110}{\@@tmpb}% % right type - \else\if\@@tmpa 0\relax% - \putratom{196}{-30}{\@@tmpb}% % right type - \else - \set@fusion@fiveh - \fi\fi\fi\fi\fi\fi% -}% -\def\set@fusion@fiveh{% -\if\@@tmpa E\relax% - \putlratom{406}{0}{\@@tmpb}% % bond fused - \FuseWarning{103}{171}% - {\fuseAx}{\fuseAy}{\fuseBx}{\fuseBy}{E, J, or other}% - \else\if\@@tmpa e\relax% - \putlratom{303}{-171}{\@@tmpb}% % bond fused - \FuseWarning{-103}{-171}% - {\fuseAx}{\fuseAy}{\fuseBx}{\fuseBy}{e, j, or other}% - \else\if\@@tmpa D\relax% - \putlratom{303}{-171}{\@@tmpb}% % bond fused - \FuseWarning{200}{0}% - {\fuseAx}{\fuseAy}{\fuseBx}{\fuseBy}{D, K, or other}% - \else\if\@@tmpa d\relax% - \putlratom{103}{-171}{\@@tmpb}% % bond fused - \FuseWarning{-200}{0}% - {\fuseAx}{\fuseAy}{\fuseBx}{\fuseBy}{d, k, or other}% - \else\if\@@tmpa c\relax - \XyMTeXWarning{Not-used fusion at bond `c'}% - \else\if\@@tmpa C\relax% - \XyMTeXWarning{Not-used fusion at bond `C'}% - \else\if\@@tmpa B\relax% - \putlratom{103}{171}{\@@tmpb}% % bond fused - \FuseWarning{-200}{0}% - {\fuseAx}{\fuseAy}{\fuseBx}{\fuseBy}{B, K, or other}% - \else\if\@@tmpa b\relax% - \putlratom{303}{171}{\@@tmpb}% % bond fused - \FuseWarning{200}{0}% - {\fuseAx}{\fuseAy}{\fuseBx}{\fuseBy}{b, k, or other}% - \else\if\@@tmpa A\relax% - \putlratom{303}{171}{\@@tmpb}% % bond fused - \FuseWarning{-103}{171}% - {\fuseAx}{\fuseAy}{\fuseBx}{\fuseBy}{A, I, or other}% - \else\if\@@tmpa a\relax% - \putlratom{406}{0}{\@@tmpb}% % bond fused - \FuseWarning{103}{-171}% - {\fuseAx}{\fuseAy}{\fuseBx}{\fuseBy}{a, i, or other}% - \fi\fi\fi\fi\fi\fi\fi\fi\fi\fi% -}% end of the macro \set@fusion@fiveh -\def\set@fusionadd@fivehi{% - \if\@@tmpa 1\relax% - \putratom{-38}{282}{\@@tmpb}% % right type - \else\if\@@tmpa 2\relax% - \putratom{60}{233}{\@@tmpb}% % right type - \else\if\@@tmpa 3\relax% - \putratom{60}{120}{\@@tmpb}% % right type - \else\if\@@tmpa 4\relax% - \putratom{-60}{120}{\@@tmpb}% % right type - \else\if\@@tmpa 5\relax% - \putratom{-60}{233}{\@@tmpb}% % right type - \else\if\@@tmpa 0\relax% - \putratom{140}{-30}{\@@tmpb}% % right type - \else - \set@fusion@fivehi - \fi\fi\fi\fi\fi\fi% -}% -\def\set@fusion@fivehi{% -\if\@@tmpa d\relax% - \putlratom{303}{-171}{\@@tmpb}% % bond fused - \FuseWarning{200}{0}% - {\fuseAx}{\fuseAy}{\fuseBx}{\fuseBy}{d, k, or other}% - \else\if\@@tmpa D\relax% - \putlratom{103}{-171}{\@@tmpb}% % bond fused - \FuseWarning{-200}{0}% - {\fuseAx}{\fuseAy}{\fuseBx}{\fuseBy}{D, K, or other}% - \else\if\@@tmpa e\relax% - \putlratom{103}{-171}{\@@tmpb}% % bond fused - \FuseWarning{103}{-171}% - {\fuseAx}{\fuseAy}{\fuseBx}{\fuseBy}{e, j, or other}% - \else\if\@@tmpa E\relax% - \putlratom{0}{0}{\@@tmpb}% % bond fused - \FuseWarning{-103}{171}% - {\fuseAx}{\fuseAy}{\fuseBx}{\fuseBy}{E, J, or other}% - \else\if\@@tmpa a\relax% - \putlratom{0}{0}{\@@tmpb}% % bond fused - \FuseWarning{-103}{-171}% - {\fuseAx}{\fuseAy}{\fuseBx}{\fuseBy}{a, i, or other}% - \else\if\@@tmpa A\relax% - \putlratom{103}{171}{\@@tmpb}% % bond fused - \FuseWarning{103}{171}% - {\fuseAx}{\fuseAy}{\fuseBx}{\fuseBy}{A, I, or other}% - \else\if\@@tmpa b\relax% - \putlratom{103}{171}{\@@tmpb}% % bond fused - \FuseWarning{-200}{0}% - {\fuseAx}{\fuseAy}{\fuseBx}{\fuseBy}{b, k, or other}% - \else\if\@@tmpa B\relax% - \putlratom{303}{171}{\@@tmpb}% % bond fused - \FuseWarning{200}{0}% - {\fuseAx}{\fuseAy}{\fuseBx}{\fuseBy}{B, K, or other}% - \else\if\@@tmpa c\relax - \XyMTeXWarning{Not-used fusion at bond `c'}% - \else\if\@@tmpa C\relax% - \XyMTeXWarning{Not-used fusion at bond `C'}% - \fi\fi\fi\fi\fi\fi\fi\fi\fi\fi% -}% end of the macro \set@fusion@sixh -\def\set@fusion@nonav{% - \let\@@tmpa=\@tmpa - \let\@@tmpb=\@tmpb - \if\@tmpa a% - \let\@@tmpa=\@tmpa - \put(342,0){\set@fusionadd@sixvi}% - \else\if\@tmpa A% - \let\@@tmpa=\@tmpa - \put(342,0){\set@fusionadd@sixvi}% - \else\if\@tmpa b% - \let\@@tmpa=\@tmpa - \put(342,0){\set@fusionadd@sixvi}% - \else\if\@tmpa B% - \let\@@tmpa=\@tmpa - \put(342,0){\set@fusionadd@sixvi}% - \else\if\@tmpa c\relax - \XyMTeXWarning{Not-used fusion at bond `c'}% - \else\if\@tmpa C\relax% - \XyMTeXWarning{Not-used fusion at bond `C'}% - \else\if\@tmpa d% - \edef\@@tmpa{c}% - \put(0,0){\set@fusionadd@sixvi}% - \UnfavorableFusion{d}% - \else\if\@tmpa D% - \edef\@@tmpa{C}% - \put(0,0){\set@fusionadd@sixvi}% - \UnfavorableFusion{D}% - \else\if\@tmpa e% - \edef\@@tmpa{d}% - \put(0,0){\set@fusionadd@sixvi}% - \else\if\@tmpa E% - \edef\@@tmpa{D}% - \put(0,0){\set@fusionadd@sixvi}% - \else\if\@tmpa f% - \edef\@@tmpa{e}% - \put(0,0){\set@fusionadd@sixvi}% - \else\if\@tmpa F% - \edef\@@tmpa{E}% - \put(0,0){\set@fusionadd@sixvi}% - \else\if\@tmpa g% - \edef\@@tmpa{f}% - \put(0,0){\set@fusionadd@sixvi}% - \else\if\@tmpa G% - \edef\@@tmpa{F}% - \put(0,0){\set@fusionadd@sixvi}% - \else\if\@tmpa h% - \edef\@@tmpa{a}% - \put(0,0){\set@fusionadd@sixvi}% - \UnfavorableFusion{h}% - \else\if\@tmpa H% - \edef\@@tmpa{A}% - \put(0,0){\set@fusionadd@sixvi}% - \UnfavorableFusion{H}% - \else\if\@tmpa i% - \edef\@@tmpa{f}% - \put(342,0){\set@fusionadd@sixvi}% - \UnfavorableFusion{i}% - \else\if\@tmpa I% - \edef\@@tmpa{F}% - \put(342,0){\set@fusionadd@sixvi}% - \UnfavorableFusion{I}% - \else\if\@tmpa j% - \edef\@@tmpa{e}% - \put(342,0){\set@fusionadd@sixvi}% - \ForbiddenFusion{j}% - \else\if\@tmpa J% - \edef\@@tmpa{E}% - \put(342,0){\set@fusionadd@sixvi}% - \ForbiddenFusion{J}% - \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@nonav -\def\set@fusion@nonavi{% - \let\@@tmpa=\@tmpa - \let\@@tmpb=\@tmpb - \if\@tmpa a% - \let\@@tmpa=\@tmpa - \put(342,0){\set@fusionadd@sixv}% - \else\if\@tmpa A% - \let\@@tmpa=\@tmpa - \put(342,0){\set@fusionadd@sixv}% - \else\if\@tmpa b% - \let\@@tmpa=\@tmpa - \put(342,0){\set@fusionadd@sixv}% - \else\if\@tmpa B% - \let\@@tmpa=\@tmpa - \put(342,0){\set@fusionadd@sixv}% - \else\if\@tmpa c\relax - \XyMTeXWarning{Not-used fusion at bond `c'}% - \else\if\@tmpa C\relax% - \XyMTeXWarning{Not-used fusion at bond `C'}% - \else\if\@tmpa d% - \edef\@@tmpa{c}% - \put(0,0){\set@fusionadd@sixv}% - \UnfavorableFusion{d}% - \else\if\@tmpa D% - \edef\@@tmpa{C}% - \put(0,0){\set@fusionadd@sixv}% - \UnfavorableFusion{D}% - \else\if\@tmpa e% - \edef\@@tmpa{d}% - \put(0,0){\set@fusionadd@sixv}% - \else\if\@tmpa E% - \edef\@@tmpa{D}% - \put(0,0){\set@fusionadd@sixv}% - \else\if\@tmpa f% - \edef\@@tmpa{e}% - \put(0,0){\set@fusionadd@sixv}% - \else\if\@tmpa F% - \edef\@@tmpa{E}% - \put(0,0){\set@fusionadd@sixv}% - \else\if\@tmpa g% - \edef\@@tmpa{f}% - \put(0,0){\set@fusionadd@sixv}% - \else\if\@tmpa G% - \edef\@@tmpa{F}% - \put(0,0){\set@fusionadd@sixv}% - \else\if\@tmpa h% - \edef\@@tmpa{a}% - \put(0,0){\set@fusionadd@sixv}% - \UnfavorableFusion{h}% - \else\if\@tmpa H% - \edef\@@tmpa{A}% - \put(0,0){\set@fusionadd@sixv}% - \UnfavorableFusion{H}% - \else\if\@tmpa i% - \edef\@@tmpa{f}% - \put(342,0){\set@fusionadd@sixv}% - \UnfavorableFusion{i}% - \else\if\@tmpa I% - \edef\@@tmpa{F}% - \put(342,0){\set@fusionadd@sixv}% - \UnfavorableFusion{I}% - \else\if\@tmpa j% - \edef\@@tmpa{e}% - \put(342,0){\set@fusionadd@sixv}% - \ForbiddenFusion{j}% - \else\if\@tmpa J% - \edef\@@tmpa{E}% - \put(342,0){\set@fusionadd@sixv}% - \ForbiddenFusion{J}% - \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@nonavi -\def\set@fusion@nonah{% - \let\@@tmpa=\@tmpa - \let\@@tmpb=\@tmpb - \if\@tmpa a% - \let\@@tmpa=\@tmpa - \put(0,0){\set@fusionadd@sixhi}% - \else\if\@tmpa A% - \let\@@tmpa=\@tmpa - \put(0,0){\set@fusionadd@sixhi}% - \else\if\@tmpa b% - \let\@@tmpa=\@tmpa - \put(0,0){\set@fusionadd@sixhi}% - \else\if\@tmpa B% - \let\@@tmpa=\@tmpa - \put(0,0){\set@fusionadd@sixhi}% - \else\if\@tmpa c\relax - \XyMTeXWarning{Not-used fusion at bond `c'}% - \else\if\@tmpa C\relax% - \XyMTeXWarning{Not-used fusion at bond `C'}% - \else\if\@tmpa d% - \edef\@@tmpa{c}% - \put(0,-342){\set@fusionadd@sixhi}% - \UnfavorableFusion{d}% - \else\if\@tmpa D% - \edef\@@tmpa{C}% - \put(0,-342){\set@fusionadd@sixhi}% - \UnfavorableFusion{D}% - \else\if\@tmpa e% - \edef\@@tmpa{d}% - \put(0,-342){\set@fusionadd@sixhi}% - \else\if\@tmpa E% - \edef\@@tmpa{D}% - \put(0,-342){\set@fusionadd@sixhi}% - \else\if\@tmpa f% - \edef\@@tmpa{e}% - \put(0,-342){\set@fusionadd@sixhi}% - \else\if\@tmpa F% - \edef\@@tmpa{E}% - \put(0,-342){\set@fusionadd@sixhi}% - \else\if\@tmpa g% - \edef\@@tmpa{f}% - \put(0,-342){\set@fusionadd@sixhi}% - \else\if\@tmpa G% - \edef\@@tmpa{F}% - \put(0,-342){\set@fusionadd@sixhi}% - \else\if\@tmpa h% - \edef\@@tmpa{a}% - \put(0,-342){\set@fusionadd@sixhi}% - \UnfavorableFusion{h}% - \else\if\@tmpa H% - \edef\@@tmpa{A}% - \put(0,-342){\set@fusionadd@sixhi}% - \UnfavorableFusion{H}% - \else\if\@tmpa i% - \edef\@@tmpa{f}% - \put(0,0){\set@fusionadd@sixhi}% - \UnfavorableFusion{i}% - \else\if\@tmpa I% - \edef\@@tmpa{F}% - \put(0,0){\set@fusionadd@sixhi}% - \UnfavorableFusion{I}% - \else\if\@tmpa j% - \edef\@@tmpa{e}% - \put(0,0){\set@fusionadd@sixhi}% - \ForbiddenFusion{j}% - \else\if\@tmpa J% - \edef\@@tmpa{E}% - \put(0,0){\set@fusionadd@sixhi}% - \ForbiddenFusion{J}% - \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@nonah -\def\set@fusion@nonahi{% - \let\@@tmpa=\@tmpa - \let\@@tmpb=\@tmpb - \if\@tmpa a% - \let\@@tmpa=\@tmpa - \put(0,0){\set@fusionadd@sixh}% - \else\if\@tmpa A% - \let\@@tmpa=\@tmpa - \put(0,0){\set@fusionadd@sixh}% - \else\if\@tmpa b% - \let\@@tmpa=\@tmpa - \put(0,0){\set@fusionadd@sixh}% - \else\if\@tmpa B% - \let\@@tmpa=\@tmpa - \put(0,0){\set@fusionadd@sixh}% - \else\if\@tmpa c\relax - \XyMTeXWarning{Not-used fusion at bond `c'}% - \else\if\@tmpa C\relax% - \XyMTeXWarning{Not-used fusion at bond `C'}% - \else\if\@tmpa d% - \edef\@@tmpa{c}% - \put(0,-342){\set@fusionadd@sixh}% - \UnfavorableFusion{d}% - \else\if\@tmpa D% - \edef\@@tmpa{C}% - \put(0,-342){\set@fusionadd@sixh}% - \UnfavorableFusion{D}% - \else\if\@tmpa e% - \edef\@@tmpa{d}% - \put(0,-342){\set@fusionadd@sixh}% - \else\if\@tmpa E% - \edef\@@tmpa{D}% - \put(0,-342){\set@fusionadd@sixh}% - \else\if\@tmpa f% - \edef\@@tmpa{e}% - \put(0,-342){\set@fusionadd@sixh}% - \else\if\@tmpa F% - \edef\@@tmpa{E}% - \put(0,-342){\set@fusionadd@sixh}% - \else\if\@tmpa g% - \edef\@@tmpa{f}% - \put(0,-342){\set@fusionadd@sixh}% - \else\if\@tmpa G% - \edef\@@tmpa{F}% - \put(0,-342){\set@fusionadd@sixh}% - \else\if\@tmpa h% - \edef\@@tmpa{a}% - \put(0,-342){\set@fusionadd@sixh}% - \UnfavorableFusion{h}% - \else\if\@tmpa H% - \edef\@@tmpa{A}% - \put(0,-342){\set@fusionadd@sixh}% - \UnfavorableFusion{H}% - \else\if\@tmpa i% - \edef\@@tmpa{f}% - \put(0,0){\set@fusionadd@sixh}% - \UnfavorableFusion{i}% - \else\if\@tmpa I% - \edef\@@tmpa{F}% - \put(0,0){\set@fusionadd@sixh}% - \UnfavorableFusion{I}% - \else\if\@tmpa j% - \edef\@@tmpa{e}% - \put(0,0){\set@fusionadd@sixh}% - \ForbiddenFusion{j}% - \else\if\@tmpa J% - \edef\@@tmpa{E}% - \put(0,0){\set@fusionadd@sixh}% - \ForbiddenFusion{J}% - \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@nonahi -\endinput -%% -%% End of file `chemstr.sty'. diff --git a/Master/texmf-dist/tex/latex/xymtex/fusering.sty b/Master/texmf-dist/tex/latex/xymtex/fusering.sty deleted file mode 100644 index 07888554b9a..00000000000 --- a/Master/texmf-dist/tex/latex/xymtex/fusering.sty +++ /dev/null @@ -1,2013 +0,0 @@ -%% -%% This is file `fusering.sty', -%% generated with the docstrip utility. -%% -%% The original source files were: -%% -%% fusering.dtx (with options: `fusering') -%% -%% 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, 1998 (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: fusering.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{bzdrv}{\input carom.sty\relax}{} -\@ifundefined{hbonde}{\input hetaromh.sty\relax}{} -\@ifundefined{bonde}{\input hetarom.sty\relax}{} -\unitlength=0.1pt -\def\sixfusev{\@ifnextchar({\@six@fusev(@}{\@six@fusev(@)}} -\def\@six@fusev(#1){\@ifnextchar[{\@six@@fusev(#1)[@}% -{\@six@@fusev(#1)[@]}} -\def\@six@@fusev(#1)[#2]#3#4#5{\@ifnextchar[% -{\@sixfusev(#1)[#2]{#3}{#4}{#5}[@}% -{\@sixfusev(#1)[#2]{#3}{#4}{#5}[@]}} -\def\@sixfusev(#1)[#2]#3#4#5[#6]{% -\iniatom\iniflag%initialize% -\test@vertix@sixv{#3}{a}{b}{c}{d}{e}{f}% -\sixfuseposv{#5}% -\if@sixfuseposv - \yl@shiftii=-\fuseAx - \yl@shifti=-\fuseAy - \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}(800,880)(-\shiftii,-\shifti)% - \iforigpt \put(-\shiftii,-\shifti){\circle*{50}}% - \put(-\noshift,-\noshift){\circle{50}}% - \typeout{command `sixfusev' origin: % - (\the\noshift,\the\noshift) ---> (\the\shiftii,\the\shifti)}\fi% -\fi -{% -\resetbdsw% -\@bond@fuse@omit{#5}{#6}% -\set@skel@bond{#1}{a}{a}% bond between 1 and 2 \@aaa -> \skbonda etc -\set@skel@bond{#1}{b}{b}% bond between 2 and 3 \@bbb -> \skbondb etc -\set@skel@bond{#1}{c}{c}% bond between 3 and 4 \@ccc -> \skbondc etc -\set@skel@bond{#1}{d}{d}% bond between 4 and 5 \@ddd -> \skbondd etc -\set@skel@bond{#1}{e}{e}% bond between 5 and 6 \@eee -> \skbonde etc -\set@skel@bond{#1}{f}{f}% bond between 6 and 1 \@fff -> \skbondf etc -}% -\@tfor\member:=#2\do{% -\if\member r\relax% -\else\if\member l\relax% -\else\if\member a\relax% - \bonda% -\else\if\member b\relax% - \bondb% -\else\if\member c\relax% - \bondc% -\else\if\member d\relax% - \bondd% -\else\if\member e\relax% - \bonde% -\else\if\member f\relax% - \bondf% -\else\if\member A%left aromatic circle - \put(0,203){\circle{240}}% %circle -\else \expandafter\twoCH@@R\member//% - \set@fusionadd@sixv -\fi\fi\fi\fi\fi\fi\fi\fi\fi% -}% -\set@hetatom@sixv{#3}{0}{0}{7}{0}% %atom 1--6% -\setsixringv{#4}{0}{0}{7}{0}% -\end{picture}% -\sixfuseposv{#5}%for FuseWaring when nested -\iniatom\iniflag}% %end of \sixfusev macro -\newif\if@sixfuseposv \@sixfuseposvfalse -\def\fuseAx{0} -\def\fuseAy{0} -\def\fuseBx{0} -\def\fuseBy{0} -\def\sixfuseposv#1{% -\global\@sixfuseposvfalse -{\resetbdsw% -\@tfor\memBer:=#1\do{% -\if\memBer a\relax - \if@sixfuseposv - \XyMTeXWarning{Double fused bond at bond `a'}% - \else - \gdef\fuseAx{0}\gdef\fuseAy{406}% - \gdef\fuseBx{171}\gdef\fuseBy{303}% - \global\@sixfuseposvtrue - \fi -\fi% -\if\memBer A\relax - \if@sixfuseposv - \XyMTeXWarning{Double fused bond at bond `A'}% - \else - \gdef\fuseBx{0}\gdef\fuseBy{406}% - \gdef\fuseAx{171}\gdef\fuseAy{303}% - \global\@sixfuseposvtrue - \fi -\fi% -\if\memBer b\relax - \if@sixfuseposv - \XyMTeXWarning{Double fused bond at bond `b'}% - \else - \gdef\fuseAx{171}\gdef\fuseAy{303}% - \gdef\fuseBx{171}\gdef\fuseBy{103}% - \global\@sixfuseposvtrue - \fi -\fi% -\if\memBer B\relax - \if@sixfuseposv - \XyMTeXWarning{Double fused bonds at bond `B'}% - \else - \gdef\fuseBx{171}\gdef\fuseBy{303}% - \gdef\fuseAx{171}\gdef\fuseAy{103}% - \global\@sixfuseposvtrue - \fi -\fi% -\if\memBer c\relax - \if@sixfuseposv - \XyMTeXWarning{Double fused bonds at bond `c'}% - \else - \gdef\fuseAx{171}\gdef\fuseAy{103}% - \gdef\fuseBx{0}\gdef\fuseBy{0}% - \global\@sixfuseposvtrue - \fi -\fi% -\if\memBer C\relax - \if@sixfuseposv - \XyMTeXWarning{Double fused bonds at bond `C'}% - \else - \gdef\fuseBx{171}\gdef\fuseBy{103}% - \gdef\fuseAx{0}\gdef\fuseAy{0}% - \global\@sixfuseposvtrue - \fi -\fi% -\if\memBer d\relax - \if@sixfuseposv - \XyMTeXWarning{Double fused bonds at bond `d'}% - \else - \gdef\fuseAx{0}\gdef\fuseAy{0}% - \gdef\fuseBx{-171}\gdef\fuseBy{103}% - \global\@sixfuseposvtrue - \fi -\fi% -\if\memBer D\relax - \if@sixfuseposv - \XyMTeXWarning{Double fused bonds at bond `D'}% - \else - \gdef\fuseBx{0}\gdef\fuseBy{0}% - \gdef\fuseAx{-171}\gdef\fuseAy{103}% - \global\@sixfuseposvtrue - \fi -\fi% -\if\memBer e\relax - \if@sixfuseposv - \XyMTeXWarning{Double fused bonds at bond `e'}% - \else - \gdef\fuseAx{-171}\gdef\fuseAy{103}% - \gdef\fuseBx{-171}\gdef\fuseBy{303}% - \global\@sixfuseposvtrue - \fi -\fi% -\if\memBer E\relax - \if@sixfuseposv - \XyMTeXWarning{Double fused bonds at bond `E'}% - \else - \gdef\fuseBx{-171}\gdef\fuseBy{103}% - \gdef\fuseAx{-171}\gdef\fuseAy{303}% - \global\@sixfuseposvtrue - \fi -\fi% -\if\memBer f\relax - \if@sixfuseposv - \XyMTeXWarning{Double fused bonds at bond `f'}% - \else - \gdef\fuseAx{-171}\gdef\fuseAy{303}% - \gdef\fuseBx{0}\gdef\fuseBy{406}% - \global\@sixfuseposvtrue - \fi -\fi% -\if\memBer F\relax - \if@sixfuseposv - \XyMTeXWarning{Double fused bonds at bond `F'}% - \else - \gdef\fuseBx{-171}\gdef\fuseBy{303}% - \gdef\fuseAx{0}\gdef\fuseAy{406}% - \global\@sixfuseposvtrue - \fi -\fi}}}% end of the macro \sixfuseposv -\def\@bond@fuse@omit#1#2{% -\ifx#1a\relax\gdef\@aaa{}\fi -\ifx#1b\relax\gdef\@bbb{}\fi -\ifx#1c\relax\gdef\@ccc{}\fi -\ifx#1d\relax\gdef\@ddd{}\fi -\ifx#1e\relax\gdef\@eee{}\fi -\ifx#1f\relax\gdef\@fff{}\fi -\ifx#1A\relax\gdef\@aaa{}\fi -\ifx#1B\relax\gdef\@bbb{}\fi -\ifx#1C\relax\gdef\@ccc{}\fi -\ifx#1D\relax\gdef\@ddd{}\fi -\ifx#1E\relax\gdef\@eee{}\fi -\ifx#1F\relax\gdef\@fff{}\fi -%%%% -\@tfor\memBer:=#2\do{% -\if\memBer a\relax\gdef\@aaa{}% - \ifx#1a\relax - \XyMTeXWarning{Double spec. of bond `a' in FUSE and OMIT}\fi -\fi% -\if\memBer A\relax\gdef\@aaa{}% - \ifx#1a\relax - \XyMTeXWarning{Double spec. of bond `a' in FUSE and OMIT}\fi -\fi% -\if\memBer b\relax\gdef\@bbb{}% - \ifx#1b\relax - \XyMTeXWarning{Double spec. of bond `b' in FUSE and OMIT}\fi -\fi% -\if\memBer B\relax\gdef\@bbb{}% - \ifx#1b\relax - \XyMTeXWarning{Double spec. of bond `b' in FUSE and OMIT}\fi -\fi% -\if\memBer c\relax\gdef\@ccc{}% - \ifx#1c\relax - \XyMTeXWarning{Double spec. of bond `c' in FUSE and OMIT}\fi -\fi% -\if\memBer C\relax\gdef\@ccc{}% - \ifx#1c\relax - \XyMTeXWarning{Double spec. of bond `c' in FUSE and OMIT}\fi -\fi% -\if\memBer d\relax\gdef\@ddd{}% - \ifx#1d\relax - \XyMTeXWarning{Double spec. of bond `d' in FUSE and OMIT}\fi -\fi% -\if\memBer D\relax\gdef\@ddd{}% - \ifx#1d\relax - \XyMTeXWarning{Double spec. of bond `d' in FUSE and OMIT}\fi -\fi% -\if\memBer e\relax\gdef\@eee{}% - \ifx#1e\relax - \XyMTeXWarning{Double spec. of bond `e' in FUSE and OMIT}\fi -\fi% -\if\memBer E\relax\gdef\@eee{}% - \ifx#1e\relax - \XyMTeXWarning{Double spec. of bond `e' in FUSE and OMIT}\fi -\fi% -\if\memBer f\relax\gdef\@fff{}% - \ifx#1f\relax - \XyMTeXWarning{Double spec. of bond `f' in FUSE and OMIT}\fi -\fi% -\if\memBer F\relax\gdef\@fff{}% - \ifx#1f\relax - \XyMTeXWarning{Double spec. of bond `f' in FUSE and OMIT}\fi -\fi% -}}% -\def\sixfusevi{\@ifnextchar({\@six@fusevi(@}{\@six@fusevi(@)}} -\def\@six@fusevi(#1){\@ifnextchar[{\@six@@fusevi(#1)[@}% -{\@six@@fusevi(#1)[@]}} -\def\@six@@fusevi(#1)[#2]#3#4#5{\@ifnextchar[% -{\@sixfusevi(#1)[#2]{#3}{#4}{#5}[@}% -{\@sixfusevi(#1)[#2]{#3}{#4}{#5}[@]}} -\def\@sixfusevi(#1)[#2]#3#4#5[#6]{% -\iniatom\iniflag%initialize% -\test@vertix@sixv{#3}{d}{c}{b}{a}{f}{e}% -\sixfuseposvi{#5}% -\if@sixfuseposv - \yl@shiftii=-\fuseAx - \yl@shifti=-\fuseAy - \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}(800,880)(-\shiftii,-\shifti)% - \iforigpt \put(-\shiftii,-\shifti){\circle*{50}}% - \put(-\noshift,-\noshift){\circle{50}}% - \typeout{command `sixfusev' origin: % - (\the\noshift,\the\noshift) ---> (\the\shiftii,\the\shifti)}\fi% -\fi -{\resetbdsw% -\@bond@fuse@omit{#5}{#6}% -\set@skel@bond{#1}{a}{c}% bond between 1 and 2 \@aaa -> \skbondc etc -\set@skel@bond{#1}{b}{b}% bond between 2 and 3 \@bbb -> \skbondb etc -\set@skel@bond{#1}{c}{a}% bond between 3 and 4 \@ccc -> \skbonda etc -\set@skel@bond{#1}{d}{f}% bond between 4 and 5 \@ddd -> \skbondf etc -\set@skel@bond{#1}{e}{e}% bond between 5 and 6 \@eee -> \skbonde etc -\set@skel@bond{#1}{f}{d}% bond between 6 and 1 \@fff -> \skbondd etc -}% -\@tfor\member:=#2\do{% -\if\member r\relax% -\else\if\member l\relax% -\else\if\member a\relax% - \bondc% -\else\if\member b\relax% - \bondb% -\else\if\member c\relax% - \bonda% -\else\if\member d\relax% - \bondf% -\else\if\member e\relax% - \bonde% -\else\if\member f\relax% - \bondd% -\else\if\member A%left aromatic circle - \put(0,203){\circle{240}}% %circle -\else \expandafter\twoCH@@R\member//% - \set@fusionadd@sixvi -\fi\fi\fi\fi\fi\fi\fi\fi\fi% -}% -\set@hetatom@sixv{#3}{5}{0}{5}{-1}% %atom 1--4% -\set@hetatom@sixv{#3}{11}{4}{7}{-1}% %atom 5 and 6% -\setsixringv{#4}{5}{0}{5}{-1}% %subst 1--4 -\setsixringv{#4}{11}{4}{7}{-1}% %subst 5 and 6 -\end{picture}% -\sixfuseposvi{#5}%%for FuseWaring when nested -\iniatom\iniflag}% %end of \sixfusevi macro -\def\sixfuseposvi#1{% -\global\@sixfuseposvfalse -{\resetbdsw% -\@tfor\memBer:=#1\do{% -\if\memBer c\relax - \if@sixfuseposv - \XyMTeXWarning{Double fused bonds at bond `c'}% - \else - \gdef\fuseBx{0}\gdef\fuseBy{406}% - \gdef\fuseAx{171}\gdef\fuseAy{303}% - \global\@sixfuseposvtrue - \fi -\fi% -\if\memBer C\relax - \if@sixfuseposv - \XyMTeXWarning{Double fused bonds at bond `C'}% - \else - \gdef\fuseAx{0}\gdef\fuseAy{406}% - \gdef\fuseBx{171}\gdef\fuseBy{303}% - \global\@sixfuseposvtrue - \fi -\fi% -\if\memBer b\relax - \if@sixfuseposv - \XyMTeXWarning{Double fused bonds at bond `b'}% - \else - \gdef\fuseBx{171}\gdef\fuseBy{303}% - \gdef\fuseAx{171}\gdef\fuseAy{103}% - \global\@sixfuseposvtrue - \fi -\fi% -\if\memBer B\relax - \if@sixfuseposv - \XyMTeXWarning{Double fused bonds at bond `B'}% - \else - \gdef\fuseAx{171}\gdef\fuseAy{303}% - \gdef\fuseBx{171}\gdef\fuseBy{103}% - \global\@sixfuseposvtrue - \fi -\fi% -\if\memBer a\relax - \if@sixfuseposv - \XyMTeXWarning{Double fused bonds at bond `a'}% - \else - \gdef\fuseBx{171}\gdef\fuseBy{103}% - \gdef\fuseAx{0}\gdef\fuseAy{0}% - \global\@sixfuseposvtrue - \fi -\fi% -\if\memBer A\relax - \if@sixfuseposv - \XyMTeXWarning{Double fused bonds at bond `A'}% - \else - \gdef\fuseAx{171}\gdef\fuseAy{103}% - \gdef\fuseBx{0}\gdef\fuseBy{0}% - \global\@sixfuseposvtrue - \fi -\fi% -\if\memBer f\relax - \if@sixfuseposv - \XyMTeXWarning{Double fused bonds at bond `f'}% - \else - \gdef\fuseBx{0}\gdef\fuseBy{0}% - \gdef\fuseAx{-171}\gdef\fuseAy{103}% - \global\@sixfuseposvtrue - \fi -\fi% -\if\memBer F\relax - \if@sixfuseposv - \XyMTeXWarning{Double fused bonds at bond `F'}% - \else - \gdef\fuseAx{0}\gdef\fuseAy{0}% - \gdef\fuseBx{-171}\gdef\fuseBy{103}% - \global\@sixfuseposvtrue - \fi -\fi% -\if\memBer e\relax - \if@sixfuseposv - \XyMTeXWarning{Double fused bonds at bond `e'}% - \else - \gdef\fuseBx{-171}\gdef\fuseBy{103}% - \gdef\fuseAx{-171}\gdef\fuseAy{303}% - \global\@sixfuseposvtrue - \fi -\fi% -\if\memBer E\relax - \if@sixfuseposv - \XyMTeXWarning{Double fused bonds at bond `E'}% - \else - \gdef\fuseAx{-171}\gdef\fuseAy{103}% - \gdef\fuseBx{-171}\gdef\fuseBy{303}% - \global\@sixfuseposvtrue - \fi -\fi% -\if\memBer d\relax - \if@sixfuseposv - \XyMTeXWarning{Double fused bonds at bond `d'}% - \else - \gdef\fuseBx{-171}\gdef\fuseBy{303}% - \gdef\fuseAx{0}\gdef\fuseAy{406}% - \global\@sixfuseposvtrue - \fi -\fi% -\if\memBer D\relax - \if@sixfuseposv - \XyMTeXWarning{Double fused bonds at bond `D'}% - \else - \gdef\fuseAx{-171}\gdef\fuseAy{303}% - \gdef\fuseBx{0}\gdef\fuseBy{406}% - \global\@sixfuseposvtrue - \fi -\fi% -}}}% end of the macro \sixfuseposvi -\def\sixfuseh{\@ifnextchar({\@six@fuseh(@}{\@six@fuseh(@)}} -\def\@six@fuseh(#1){\@ifnextchar[{\@six@@fuseh(#1)[@}% -{\@six@@fuseh(#1)[@]}} -\def\@six@@fuseh(#1)[#2]#3#4#5{\@ifnextchar[% -{\@sixfuseh(#1)[#2]{#3}{#4}{#5}[@}% -{\@sixfuseh(#1)[#2]{#3}{#4}{#5}[@]}} -\def\@sixfuseh(#1)[#2]#3#4#5[#6]{% -\iniatom\iniflag%initialize% -\test@vrtx@sixh{#3}% -\sixfuseposh{#5}% -\if@sixfuseposv - \yl@shiftii=-\fuseAx - \yl@shifti=-\fuseAy - \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}(800,880)(-240,-400)% - \iforigpt \put(-\shifti,-\shiftii){\circle*{50}}% - \put(-\noshift,-\noshift){\circle{50}}% - \typeout{command `sixunith' origin: % - (\the\noshift,\the\noshift) ---> (\the\shifti,\the\shiftii)}\fi% -\fi -{\resetbdsw% -\@bond@fuse@omit{#5}{#6}% -\set@skel@bondh{#1}{a}{a}% bond between 1 and 2 \@aaa -> \hskbonda etc -\set@skel@bondh{#1}{b}{b}% bond between 2 and 3 \@bbb -> \hskbondb etc -\set@skel@bondh{#1}{c}{c}% bond between 3 and 4 \@ccc -> \hskbondc etc -\set@skel@bondh{#1}{d}{d}% bond between 4 and 5 \@ddd -> \hskbondd etc -\set@skel@bondh{#1}{e}{e}% bond between 5 and 6 \@eee -> \hskbonde etc -\set@skel@bondh{#1}{f}{f}% bond between 6 and 1 \@fff -> \hskbondf etc -}% -\@tfor\member:=#2\do{% -\if\member r\relax% -\else \if\member l\relax% -\else \if\member a\relax% - \hbonda% -\else \if\member b\relax% - \hbondb% -\else \if\member c\relax% - \hbondc% -\else \if\member d\relax% - \hbondd% -\else \if\member e\relax% - \hbonde% -\else \if\member f\relax% - \hbondf% -\else \if\member A%left aromatic circle - \put(203,0){\circle{240}}% %circle -\else \expandafter\twoCH@@R\member//% - \set@fusionadd@sixh -\fi\fi\fi\fi\fi\fi\fi\fi\fi}% -\set@hetatom@sixh{#3}{0}{0}{7}{0}% %atom 1--6% -\setsixringh{#4}{0}{0}{7}{0}% -\end{picture}% -\sixfuseposh{#5}%%for FuseWaring when nested -\iniatom\iniflag}% %end of \sixfuseh macro -\def\sixfuseposh#1{% -\global\@sixfuseposvfalse -{\resetbdsw% -\@tfor\memBer:=#1\do{% -\if\memBer a\relax - \if@sixfuseposv - \XyMTeXWarning{Double fused bond at bond `a'}% - \else - \gdef\fuseAx{0}\gdef\fuseAy{0}% - \gdef\fuseBx{103}\gdef\fuseBy{171}% - \global\@sixfuseposvtrue - \fi -\fi% -\if\memBer A\relax - \if@sixfuseposv - \XyMTeXWarning{Double fused bond at bond `A'}% - \else - \gdef\fuseBx{0}\gdef\fuseBy{0}% - \gdef\fuseAx{103}\gdef\fuseAy{171}% - \global\@sixfuseposvtrue - \fi -\fi% -\if\memBer b\relax - \if@sixfuseposv - \XyMTeXWarning{Double fused bond at bond `b'}% - \else - \gdef\fuseAx{103}\gdef\fuseAy{171}% - \gdef\fuseBx{303}\gdef\fuseBy{171}% - \global\@sixfuseposvtrue - \fi -\fi% -\if\memBer B\relax - \if@sixfuseposv - \XyMTeXWarning{Double fused bonds at bond `B'}% - \else - \gdef\fuseBx{103}\gdef\fuseBy{171}% - \gdef\fuseAx{303}\gdef\fuseAy{171}% - \global\@sixfuseposvtrue - \fi -\fi% -\if\memBer c\relax - \if@sixfuseposv - \XyMTeXWarning{Double fused bonds at bond `c'}% - \else - \gdef\fuseAx{303}\gdef\fuseAy{171}% - \gdef\fuseBx{406}\gdef\fuseBy{0}% - \global\@sixfuseposvtrue - \fi -\fi% -\if\memBer C\relax - \if@sixfuseposv - \XyMTeXWarning{Double fused bonds at bond `C'}% - \else - \gdef\fuseBx{303}\gdef\fuseBy{171}% - \gdef\fuseAx{406}\gdef\fuseAy{0}% - \global\@sixfuseposvtrue - \fi -\fi% -\if\memBer d\relax - \if@sixfuseposv - \XyMTeXWarning{Double fused bonds at bond `d'}% - \else - \gdef\fuseAx{406}\gdef\fuseAy{0}% - \gdef\fuseBx{303}\gdef\fuseBy{-171}% - \global\@sixfuseposvtrue - \fi -\fi% -\if\memBer D\relax - \if@sixfuseposv - \XyMTeXWarning{Double fused bonds at bond `D'}% - \else - \gdef\fuseBx{406}\gdef\fuseBy{0}% - \gdef\fuseAx{303}\gdef\fuseAy{-171}% - \global\@sixfuseposvtrue - \fi -\fi% -\if\memBer e\relax - \if@sixfuseposv - \XyMTeXWarning{Double fused bonds at bond `e'}% - \else - \gdef\fuseAx{303}\gdef\fuseAy{-171}% - \gdef\fuseBx{103}\gdef\fuseBy{-171}% - \global\@sixfuseposvtrue - \fi -\fi% -\if\memBer E\relax - \if@sixfuseposv - \XyMTeXWarning{Double fused bonds at bond `E'}% - \else - \gdef\fuseBx{303}\gdef\fuseBy{-171}% - \gdef\fuseAx{103}\gdef\fuseAy{-171}% - \global\@sixfuseposvtrue - \fi -\fi% -\if\memBer f\relax - \if@sixfuseposv - \XyMTeXWarning{Double fused bonds at bond `f'}% - \else - \gdef\fuseAx{103}\gdef\fuseAy{-171}% - \gdef\fuseBx{0}\gdef\fuseBy{0}% - \global\@sixfuseposvtrue - \fi -\fi% -\if\memBer F\relax - \if@sixfuseposv - \XyMTeXWarning{Double fused bonds at bond `F'}% - \else - \gdef\fuseBx{103}\gdef\fuseBy{-171}% - \gdef\fuseAx{0}\gdef\fuseAy{0}% - \global\@sixfuseposvtrue - \fi -\fi}}}% end of the macro \sixfuseposh -\def\sixfusehi{\@ifnextchar({\@six@fusehi(@}{\@six@fusehi(@)}} -\def\@six@fusehi(#1){\@ifnextchar[{\@six@@fusehi(#1)[@}% -{\@six@@fusehi(#1)[@]}} -\def\@six@@fusehi(#1)[#2]#3#4#5{\@ifnextchar[% -{\@sixfusehi(#1)[#2]{#3}{#4}{#5}[@}% -{\@sixfusehi(#1)[#2]{#3}{#4}{#5}[@]}} -\def\@sixfusehi(#1)[#2]#3#4#5[#6]{% -\iniatom\iniflag%initialize% -\test@vrtx@sixhi{#3}% -\sixfuseposhi{#5}% -\if@sixfuseposv - \yl@shiftii=-\fuseAx - \yl@shifti=-\fuseAy - \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}(800,880)(-240,-400)% - \iforigpt \put(-\shifti,-\shiftii){\circle*{50}}% - \put(-\noshift,-\noshift){\circle{50}}% - \typeout{command `sixunith' origin: % - (\the\noshift,\the\noshift) ---> (\the\shifti,\the\shiftii)}\fi% -\fi -{\resetbdsw% -\@bond@fuse@omit{#5}{#6}% -\set@skel@bondh{#1}{a}{c}% bond between 1 and 2 \@aaa -> \hskbondc etc -\set@skel@bondh{#1}{b}{b}% bond between 2 and 3 \@bbb -> \hskbondb etc -\set@skel@bondh{#1}{c}{a}% bond between 3 and 4 \@ccc -> \hskbonda etc -\set@skel@bondh{#1}{d}{f}% bond between 4 and 5 \@ddd -> \hskbondf etc -\set@skel@bondh{#1}{e}{e}% bond between 5 and 6 \@eee -> \hskbonde etc -\set@skel@bondh{#1}{f}{d}% bond between 6 and 1 \@fff -> \hskbondd etc -}% -\@tfor\member:=#2\do{% -\if\member r\relax% -\else \if\member l\relax% -\else \if\member a\relax% - \hbondc% -\else \if\member b\relax% - \hbondb% -\else \if\member c\relax% - \hbonda% -\else \if\member d\relax% - \hbondf% -\else \if\member e\relax% - \hbonde% -\else \if\member f\relax% - \hbondd% -\else \if\member A%left aromatic circle - \put(203,0){\circle{240}}% %circle -\else \expandafter\twoCH@@R\member//% - \set@fusionadd@sixhi -\fi\fi\fi\fi\fi\fi\fi\fi\fi}% -\set@hetatom@sixh{#3}{5}{0}{5}{-1}% %subst 1--4 -\set@hetatom@sixh{#3}{11}{4}{7}{-1}% %subst 5 and 6 -\setsixringh{#4}{5}{0}{5}{-1}% %subst 1--4 -\setsixringh{#4}{11}{4}{7}{-1}% %subst 5 and 6 -\end{picture}% -\sixfuseposhi{#5}%%for FuseWaring when nested -\iniatom\iniflag}% %end of \sixfusehi macro -\def\sixfuseposhi#1{% -\global\@sixfuseposvfalse -{\resetbdsw% -\@tfor\memBer:=#1\do{% -\if\memBer C\relax - \if@sixfuseposv - \XyMTeXWarning{Double fused bond at bond `C'}% - \else - \gdef\fuseAx{0}\gdef\fuseAy{0}% - \gdef\fuseBx{103}\gdef\fuseBy{171}% - \global\@sixfuseposvtrue - \fi -\fi% -\if\memBer c\relax - \if@sixfuseposv - \XyMTeXWarning{Double fused bond at bond `c'}% - \else - \gdef\fuseBx{0}\gdef\fuseBy{0}% - \gdef\fuseAx{103}\gdef\fuseAy{171}% - \global\@sixfuseposvtrue - \fi -\fi% -\if\memBer B\relax - \if@sixfuseposv - \XyMTeXWarning{Double fused bond at bond `B'}% - \else - \gdef\fuseAx{103}\gdef\fuseAy{171}% - \gdef\fuseBx{303}\gdef\fuseBy{171}% - \global\@sixfuseposvtrue - \fi -\fi% -\if\memBer b\relax - \if@sixfuseposv - \XyMTeXWarning{Double fused bonds at bond `b'}% - \else - \gdef\fuseBx{103}\gdef\fuseBy{171}% - \gdef\fuseAx{303}\gdef\fuseAy{171}% - \global\@sixfuseposvtrue - \fi -\fi% -\if\memBer A\relax - \if@sixfuseposv - \XyMTeXWarning{Double fused bonds at bond `A'}% - \else - \gdef\fuseAx{303}\gdef\fuseAy{171}% - \gdef\fuseBx{406}\gdef\fuseBy{0}% - \global\@sixfuseposvtrue - \fi -\fi% -\if\memBer a\relax - \if@sixfuseposv - \XyMTeXWarning{Double fused bonds at bond `a'}% - \else - \gdef\fuseBx{303}\gdef\fuseBy{171}% - \gdef\fuseAx{406}\gdef\fuseAy{0}% - \global\@sixfuseposvtrue - \fi -\fi% -\if\memBer F\relax - \if@sixfuseposv - \XyMTeXWarning{Double fused bonds at bond `F'}% - \else - \gdef\fuseAx{406}\gdef\fuseAy{0}% - \gdef\fuseBx{303}\gdef\fuseBy{-171}% - \global\@sixfuseposvtrue - \fi -\fi% -\if\memBer f\relax - \if@sixfuseposv - \XyMTeXWarning{Double fused bonds at bond `f'}% - \else - \gdef\fuseBx{406}\gdef\fuseBy{0}% - \gdef\fuseAx{303}\gdef\fuseAy{-171}% - \global\@sixfuseposvtrue - \fi -\fi% -\if\memBer E\relax - \if@sixfuseposv - \XyMTeXWarning{Double fused bonds at bond `E'}% - \else - \gdef\fuseAx{303}\gdef\fuseAy{-171}% - \gdef\fuseBx{103}\gdef\fuseBy{-171}% - \global\@sixfuseposvtrue - \fi -\fi% -\if\memBer e\relax - \if@sixfuseposv - \XyMTeXWarning{Double fused bonds at bond `e'}% - \else - \gdef\fuseBx{303}\gdef\fuseBy{-171}% - \gdef\fuseAx{103}\gdef\fuseAy{-171}% - \global\@sixfuseposvtrue - \fi -\fi% -\if\memBer D\relax - \if@sixfuseposv - \XyMTeXWarning{Double fused bonds at bond `D'}% - \else - \gdef\fuseAx{103}\gdef\fuseAy{-171}% - \gdef\fuseBx{0}\gdef\fuseBy{0}% - \global\@sixfuseposvtrue - \fi -\fi% -\if\memBer d\relax - \if@sixfuseposv - \XyMTeXWarning{Double fused bonds at bond `d'}% - \else - \gdef\fuseBx{103}\gdef\fuseBy{-171}% - \gdef\fuseAx{0}\gdef\fuseAy{0}% - \global\@sixfuseposvtrue - \fi -\fi}}}% end of the macro \sixfuseposhi -\def\fivefusev{\@ifnextchar({\@five@fusev(@}{\@five@fusev(@)}} -\def\@five@fusev(#1){\@ifnextchar[{\@five@@fusev(#1)[@}% -{\@five@@fusev(#1)[@]}} -\def\@five@@fusev(#1)[#2]#3#4#5{\@ifnextchar[% -{\@fivefusev(#1)[#2]{#3}{#4}{#5}[@}% -{\@fivefusev(#1)[#2]{#3}{#4}{#5}[@]}} -\def\@fivefusev(#1)[#2]#3#4#5[#6]{% -\iniatom\iniflag%initialize -\test@vertix@sixv{#3}{d}{c}{b}{f}{e}{@}% -\fivefuseposv{#5}% -\if@sixfuseposv - \yl@shiftii=-\fuseAx - \yl@shifti=-\fuseAy - \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}(800,880)(-\shiftii,-\shifti)% - \iforigpt \put(-\shiftii,-\shifti){\circle*{50}}% - \put(-\noshift,-\noshift){\circle{50}}% - \typeout{command `fivefusev' origin: % - (\the\noshift,\the\noshift) ---> (\the\shiftii,\the\shifti)}\fi% -\fi -{\resetbdsw% -\@bond@fuse@omit{#5}{#6}% -\set@skel@bond{#1}{a}{c}% bond between 1 and 2 \@aaa -> \skbondc etc -\set@skel@bond{#1}{b}{b}% bond between 2 and 3 \@bbb -> \skbondb etc -\set@skel@longbond{#1}{c}{skbondhoriz}% - % bond between 3 and 4 \@ccc -> \skbondhoriz etc -\set@skel@bond{#1}{d}{e}% bond between 4 and 5 \@ddd -> \skbonde etc -\set@skel@bond{#1}{e}{d}% bond between 5 and 1 \@eee -> \skbondd etc -}% -\@tfor\member:=#2\do{% -\if\member r% -\else\if\member a\relax% - \bondc% -\else\if\member b\relax% - \bondb% -\else\if\member c\relax% - \bondhoriz% -\else\if\member d\relax% - \bonde% -\else\if\member e\relax% - \bondd% -\else - \expandafter\twoCH@@R\member//% - \set@fusionadd@fivev -\fi\fi\fi\fi\fi\fi}% -\set@hetatom@sixv{#3}{5}{1}{5}{-1}% % for 1 to 3 -\set@hetatom@sixv{#3}{10}{4}{7}{-1}% % for 4 to 5 -\setsixringv{#4}{5}{1}{5}{-1}% % for 1 to 3 -\setsixringv{#4}{10}{4}{7}{-1}% % for 4 to 5 -\end{picture}% -{\let\XyMTeXWarning\@gobble -\fivefuseposv{#5}}%%for FuseWaring when nested -\iniatom\iniflag}%end of \fivefusev macro -\def\fivefuseposv#1{% -\global\@sixfuseposvfalse -{\resetbdsw% -\@tfor\memBer:=#1\do{% -\if\memBer c\relax - \XyMTeXWarning{Not-used fusion at bond `c'}% -\fi -\if\memBer C\relax - \XyMTeXWarning{Not-used fusion at bond `C'}% -\fi -\if\memBer b\relax - \if@sixfuseposv - \XyMTeXWarning{Double fused bonds at bond `b'}% - \else - \gdef\fuseBx{171}\gdef\fuseBy{303}% - \gdef\fuseAx{171}\gdef\fuseAy{103}% - \global\@sixfuseposvtrue - \fi -\fi% -\if\memBer B\relax - \if@sixfuseposv - \XyMTeXWarning{Double fused bonds at bond `B'}% - \else - \gdef\fuseAx{171}\gdef\fuseAy{303}% - \gdef\fuseBx{171}\gdef\fuseBy{103}% - \global\@sixfuseposvtrue - \fi -\fi% -\if\memBer a\relax - \if@sixfuseposv - \XyMTeXWarning{Double fused bonds at bond `a'}% - \else - \gdef\fuseBx{171}\gdef\fuseBy{103}% - \gdef\fuseAx{0}\gdef\fuseAy{0}% - \global\@sixfuseposvtrue - \fi -\fi% -\if\memBer A\relax - \if@sixfuseposv - \XyMTeXWarning{Double fused bonds at bond `A'}% - \else - \gdef\fuseAx{171}\gdef\fuseAy{103}% - \gdef\fuseBx{0}\gdef\fuseBy{0}% - \global\@sixfuseposvtrue - \fi -\fi% -\if\memBer e\relax - \if@sixfuseposv - \XyMTeXWarning{Double fused bonds at bond `f'}% - \else - \gdef\fuseBx{0}\gdef\fuseBy{0}% - \gdef\fuseAx{-171}\gdef\fuseAy{103}% - \global\@sixfuseposvtrue - \fi -\fi% -\if\memBer E\relax - \if@sixfuseposv - \XyMTeXWarning{Double fused bonds at bond `F'}% - \else - \gdef\fuseAx{0}\gdef\fuseAy{0}% - \gdef\fuseBx{-171}\gdef\fuseBy{103}% - \global\@sixfuseposvtrue - \fi -\fi% -\if\memBer d\relax - \if@sixfuseposv - \XyMTeXWarning{Double fused bonds at bond `e'}% - \else - \gdef\fuseBx{-171}\gdef\fuseBy{103}% - \gdef\fuseAx{-171}\gdef\fuseAy{303}% - \global\@sixfuseposvtrue - \fi -\fi% -\if\memBer D\relax - \if@sixfuseposv - \XyMTeXWarning{Double fused bonds at bond `E'}% - \else - \gdef\fuseAx{-171}\gdef\fuseAy{103}% - \gdef\fuseBx{-171}\gdef\fuseBy{303}% - \global\@sixfuseposvtrue - \fi -\fi% -}}}% end of the macro \fivefuseposv -\def\fivefusevi{\@ifnextchar({\@five@fusevi(@}{\@five@fusevi(@)}} -\def\@five@fusevi(#1){\@ifnextchar[{\@five@@fusevi(#1)[@}% -{\@five@@fusevi(#1)[@]}} -\def\@five@@fusevi(#1)[#2]#3#4#5{\@ifnextchar[% -{\@fivefusevi(#1)[#2]{#3}{#4}{#5}[@}% -{\@fivefusevi(#1)[#2]{#3}{#4}{#5}[@]}} -\def\@fivefusevi(#1)[#2]#3#4#5[#6]{% -\iniatom\iniflag%initialize -\test@vertix@sixv{#3}{a}{b}{c}{e}{f}{@}% -\fivefuseposvi{#5}% -\if@sixfuseposv - \yl@shiftii=-\fuseAx - \yl@shifti=-\fuseAy - \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}(800,880)(-\shiftii,-\shifti)% - \iforigpt \put(-\shiftii,-\shifti){\circle*{50}}% - \put(-\noshift,-\noshift){\circle{50}}% - \typeout{command `fivefusevi' origin: % - (\the\noshift,\the\noshift) ---> (\the\shiftii,\the\shifti)}\fi% -\fi -{\resetbdsw% -\@bond@fuse@omit{#5}{#6}% -\set@skel@bond{#1}{a}{a}% bond between 1 and 2 \@aaa -> \skbonda etc -\set@skel@bond{#1}{b}{b}% bond between 2 and 3 \@bbb -> \skbondb etc -\set@skel@longbond{#1}{c}{skbondhorizi}% - % bond between 3 and 4 \@ccc -> \skbondhorizi etc -\set@skel@bond{#1}{d}{e}% bond between 4 and 5 \@ddd -> \skbonde etc -\set@skel@bond{#1}{e}{f}% bond between 5 and 6 \@eee -> \skbondf etc -}% -\@tfor\member:=#2\do{% -\if\member r% -\else\if\member a\relax% - \bonda% -\else\if\member b\relax% - \bondb% -\else\if\member c\relax% - \bondhorizi% -\else\if\member d\relax% - \bonde% -\else\if\member e\relax% - \bondf% -\else - \expandafter\twoCH@@R\member//% - \set@fusionadd@fivevi -\fi\fi\fi\fi\fi\fi}% -\set@hetatom@sixv{#3}{0}{0}{4}{0}% % for 1 to 3 -\set@hetatom@sixv{#3}{1}{4}{7}{0}% % for 4 to 5 -\setsixringv{#4}{0}{0}{4}{0}% % for 1 to 3 -\setsixringv{#4}{1}{4}{7}{0}% % for 4 to 5 -\end{picture}% -{\let\XyMTeXWarning\@gobble -\fivefuseposvi{#5}}%%for FuseWaring when nested -\iniatom\iniflag}% %end of \fivefusevi macro -\def\fivefuseposvi#1{% -\global\@sixfuseposvfalse -{\resetbdsw% -\@tfor\memBer:=#1\do{% -\if\memBer a\relax - \if@sixfuseposv - \XyMTeXWarning{Double fused bond at bond `a'}% - \else - \gdef\fuseAx{0}\gdef\fuseAy{406}% - \gdef\fuseBx{171}\gdef\fuseBy{303}% - \global\@sixfuseposvtrue - \fi -\fi% -\if\memBer A\relax - \if@sixfuseposv - \XyMTeXWarning{Double fused bond at bond `A'}% - \else - \gdef\fuseBx{0}\gdef\fuseBy{406}% - \gdef\fuseAx{171}\gdef\fuseAy{303}% - \global\@sixfuseposvtrue - \fi -\fi% -\if\memBer b\relax - \if@sixfuseposv - \XyMTeXWarning{Double fused bond at bond `b'}% - \else - \gdef\fuseAx{171}\gdef\fuseAy{303}% - \gdef\fuseBx{171}\gdef\fuseBy{103}% - \global\@sixfuseposvtrue - \fi -\fi% -\if\memBer B\relax - \if@sixfuseposv - \XyMTeXWarning{Double fused bonds at bond `B'}% - \else - \gdef\fuseBx{171}\gdef\fuseBy{303}% - \gdef\fuseAx{171}\gdef\fuseAy{103}% - \global\@sixfuseposvtrue - \fi -\fi% -\if\memBer c\relax - \XyMTeXWarning{Not-used fusion at bond `c'}% -\fi -\if\memBer C\relax - \XyMTeXWarning{Not-used fusion at bond `C'}% -\fi -\if\memBer d\relax - \if@sixfuseposv - \XyMTeXWarning{Double fused bonds at bond `d'}% - \else - \gdef\fuseAx{-171}\gdef\fuseAy{103}% - \gdef\fuseBx{-171}\gdef\fuseBy{303}% - \global\@sixfuseposvtrue - \fi -\fi% -\if\memBer D\relax - \if@sixfuseposv - \XyMTeXWarning{Double fused bonds at bond `D'}% - \else - \gdef\fuseBx{-171}\gdef\fuseBy{103}% - \gdef\fuseAx{-171}\gdef\fuseAy{303}% - \global\@sixfuseposvtrue - \fi -\fi% -\if\memBer e\relax - \if@sixfuseposv - \XyMTeXWarning{Double fused bonds at bond `e'}% - \else - \gdef\fuseAx{-171}\gdef\fuseAy{303}% - \gdef\fuseBx{0}\gdef\fuseBy{406}% - \global\@sixfuseposvtrue - \fi -\fi% -\if\memBer E\relax - \if@sixfuseposv - \XyMTeXWarning{Double fused bonds at bond `e'}% - \else - \gdef\fuseBx{-171}\gdef\fuseBy{303}% - \gdef\fuseAx{0}\gdef\fuseAy{406}% - \global\@sixfuseposvtrue - \fi -\fi}}}% end of the macro \fivefuseposvi -\def\fivefuseh{\@ifnextchar({\@five@fuseh(@}{\@five@fuseh(@)}} -\def\@five@fuseh(#1){\@ifnextchar[{\@five@@fuseh(#1)[@}% -{\@five@@fuseh(#1)[@]}} -\def\@five@@fuseh(#1)[#2]#3#4#5{\@ifnextchar[% -{\@fivefuseh(#1)[#2]{#3}{#4}{#5}[@}% -{\@fivefuseh(#1)[#2]{#3}{#4}{#5}[@]}} -\def\@fivefuseh(#1)[#2]#3#4#5[#6]{% -\iniatom\iniflag%initialize -\test@vertix@sixv{#3}{d}{c}{b}{f}{e}{@}% -\fivefuseposh{#5}% -\if@sixfuseposv - \yl@shiftii=-\fuseAx - \yl@shifti=-\fuseAy - \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}(800,880)(-240,-400)% - \iforigpt \put(-\shifti,-\shiftii){\circle*{50}}% - \put(-\noshift,-\noshift){\circle{50}}% - \typeout{command `fivefuseh' origin: % - (\the\noshift,\the\noshift) ---> (\the\shifti,\the\shiftii)}\fi% -\fi -{\resetbdsw% -\@bond@fuse@omit{#5}{#6}% -\set@skel@bondh{#1}{a}{c}% bond between 1 and 2 \@aaa -> \skbondc etc -\set@skel@bondh{#1}{b}{b}% bond between 2 and 3 \@bbb -> \skbondb etc -\set@skel@longbond{#1}{c}{hskbondvert}% - % bond between 3 and 4 \@ccc -> \hskbondvert etc -\set@skel@bondh{#1}{d}{e}% bond between 4 and 5 \@ddd -> \skbonde etc -\set@skel@bondh{#1}{e}{d}% bond between 5 and 6 \@eee -> \skbondd etc -}% -\@tfor\member:=#2\do{% -\if\member r% -\else \if\member a\relax% - \hbondc% -\else \if\member b\relax% - \hbondb% -\else \if\member c\relax% - \hbondvert% -\else \if\member d\relax% - \hbonde% -\else \if\member e\relax% - \hbondd% -\else \if\member A%left aromatic circle - \put(233,0){\circle{180}}% %circle -\else - \expandafter\twoCH@@R\member//% - \set@fusionadd@fiveh -\fi\fi\fi\fi\fi\fi\fi}% -\set@hetatom@sixh{#3}{5}{1}{5}{-1}% % for 1 to 3 -\set@hetatom@sixh{#3}{10}{4}{7}{-1}% % for 4 to 5 -\setsixringh{#4}{5}{1}{5}{-1}% % for 1 to 3 -\setsixringh{#4}{10}{4}{7}{-1}% % for 4 to 5 -\end{picture}% -{\let\XyMTeXWarning\@gobble -\fivefuseposh{#5}}%for FuseWaring when nested% -\iniatom\iniflag}% %end of \fivefuseh macro -\def\fivefuseposh#1{% -\global\@sixfuseposvfalse -{\resetbdsw% -\@tfor\memBer:=#1\do{% -\if\memBer c\relax - \XyMTeXWarning{Not-used fusion at bond `c'}% -\fi -\if\memBer C\relax - \XyMTeXWarning{Not-used fusion at bond `C'}% -\fi -\if\memBer B\relax - \if@sixfuseposv - \XyMTeXWarning{Double fused bond at bond `B'}% - \else - \gdef\fuseAx{103}\gdef\fuseAy{171}% - \gdef\fuseBx{303}\gdef\fuseBy{171}% - \global\@sixfuseposvtrue - \fi -\fi% -\if\memBer b\relax - \if@sixfuseposv - \XyMTeXWarning{Double fused bonds at bond `b'}% - \else - \gdef\fuseBx{103}\gdef\fuseBy{171}% - \gdef\fuseAx{303}\gdef\fuseAy{171}% - \global\@sixfuseposvtrue - \fi -\fi% -\if\memBer A\relax - \if@sixfuseposv - \XyMTeXWarning{Double fused bonds at bond `A'}% - \else - \gdef\fuseAx{303}\gdef\fuseAy{171}% - \gdef\fuseBx{406}\gdef\fuseBy{0}% - \global\@sixfuseposvtrue - \fi -\fi% -\if\memBer a\relax - \if@sixfuseposv - \XyMTeXWarning{Double fused bonds at bond `a'}% - \else - \gdef\fuseBx{303}\gdef\fuseBy{171}% - \gdef\fuseAx{406}\gdef\fuseAy{0}% - \global\@sixfuseposvtrue - \fi -\fi% -\if\memBer E\relax - \if@sixfuseposv - \XyMTeXWarning{Double fused bonds at bond `E'}% - \else - \gdef\fuseAx{406}\gdef\fuseAy{0}% - \gdef\fuseBx{303}\gdef\fuseBy{-171}% - \global\@sixfuseposvtrue - \fi -\fi% -\if\memBer e\relax - \if@sixfuseposv - \XyMTeXWarning{Double fused bonds at bond `e'}% - \else - \gdef\fuseBx{406}\gdef\fuseBy{0}% - \gdef\fuseAx{303}\gdef\fuseAy{-171}% - \global\@sixfuseposvtrue - \fi -\fi% -\if\memBer D\relax - \if@sixfuseposv - \XyMTeXWarning{Double fused bonds at bond `D'}% - \else - \gdef\fuseAx{303}\gdef\fuseAy{-171}% - \gdef\fuseBx{103}\gdef\fuseBy{-171}% - \global\@sixfuseposvtrue - \fi -\fi% -\if\memBer d\relax - \if@sixfuseposv - \XyMTeXWarning{Double fused bonds at bond `d'}% - \else - \gdef\fuseBx{303}\gdef\fuseBy{-171}% - \gdef\fuseAx{103}\gdef\fuseAy{-171}% - \global\@sixfuseposvtrue - \fi -\fi% -}}}% end of the macro \fivefuseposh -\def\fivefusehi{\@ifnextchar({\@five@fusehi(@}{\@five@fusehi(@)}} -\def\@five@fusehi(#1){\@ifnextchar[{\@five@@fusehi(#1)[@}% -{\@five@@fusehi(#1)[@]}} -\def\@five@@fusehi(#1)[#2]#3#4#5{\@ifnextchar[% -{\@fivefusehi(#1)[#2]{#3}{#4}{#5}[@}% -{\@fivefusehi(#1)[#2]{#3}{#4}{#5}[@]}} -\def\@fivefusehi(#1)[#2]#3#4#5[#6]{% -\iniatom\iniflag%initialize -\test@vertix@sixv{#3}{a}{b}{c}{e}{f}{@}% -\fivefuseposhi{#5}% -\if@sixfuseposv - \yl@shiftii=-\fuseAx - \yl@shifti=-\fuseAy - \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}(800,880)(-240,-400)% - \iforigpt \put(-\shifti,-\shiftii){\circle*{50}}% - \put(-\noshift,-\noshift){\circle{50}}% - \typeout{command `fivefusehi' origin: % - (\the\noshift,\the\noshift) ---> (\the\shifti,\the\shiftii)}\fi% -\fi -{\resetbdsw% -\@bond@fuse@omit{#5}{#6}% -\set@skel@bondh{#1}{a}{a}% bond between 1 and 2 \@aaa -> \hskbonda etc -\set@skel@bondh{#1}{b}{b}% bond between 2 and 3 \@bbb -> \hskbondb etc -\set@skel@longbond{#1}{c}{hskbondverti}% - % bond between 3 and 4 \@ccc -> \hskbondverti etc -\set@skel@bondh{#1}{d}{e}% bond between 4 and 5 \@ddd -> \hskbonde etc -\set@skel@bondh{#1}{e}{f}% bond between 5 and 6 \@eee -> \hskbondf etc -}% -\@tfor\member:=#2\do{% -\if\member r% -\else \if\member a\relax% - \hbonda% -\else \if\member b\relax% - \hbondb% -\else \if\member c\relax% - \hbondverti% -\else \if\member d\relax% - \hbonde% -\else \if\member e\relax% - \hbondf% -\else \if\member A%left aromatic circle - \put(173,0){\circle{180}}% %circle -\else - \expandafter\twoCH@@R\member//% - \set@fusionadd@fivehi -\fi\fi\fi\fi\fi\fi\fi}% -\set@hetatom@sixh{#3}{0}{0}{4}{0}% % for 1 to 3 -\set@hetatom@sixh{#3}{1}{4}{7}{0}% % for 4 to 5 -\setsixringh{#4}{0}{0}{4}{0}% % for 1 to 3 -\setsixringh{#4}{1}{4}{7}{0}% % for 4 to 5 -\end{picture}% -{\let\XyMTeXWarning\@gobble -\fivefuseposhi{#5}}%for FuseWaring when nested -\iniatom\iniflag}% %end of \fivefusehi macro -\def\fivefuseposhi#1{% -\global\@sixfuseposvfalse -{\resetbdsw% -\@tfor\memBer:=#1\do{% -\if\memBer a\relax - \if@sixfuseposv - \XyMTeXWarning{Double fused bond at bond `a'}% - \else - \gdef\fuseAx{0}\gdef\fuseAy{0}% - \gdef\fuseBx{103}\gdef\fuseBy{171}% - \global\@sixfuseposvtrue - \fi -\fi% -\if\memBer A\relax - \if@sixfuseposv - \XyMTeXWarning{Double fused bond at bond `A'}% - \else - \gdef\fuseBx{0}\gdef\fuseBy{0}% - \gdef\fuseAx{103}\gdef\fuseAy{171}% - \global\@sixfuseposvtrue - \fi -\fi% -\if\memBer b\relax - \if@sixfuseposv - \XyMTeXWarning{Double fused bond at bond `b'}% - \else - \gdef\fuseAx{103}\gdef\fuseAy{171}% - \gdef\fuseBx{303}\gdef\fuseBy{171}% - \global\@sixfuseposvtrue - \fi -\fi% -\if\memBer B\relax - \if@sixfuseposv - \XyMTeXWarning{Double fused bonds at bond `B'}% - \else - \gdef\fuseBx{103}\gdef\fuseBy{171}% - \gdef\fuseAx{303}\gdef\fuseAy{171}% - \global\@sixfuseposvtrue - \fi -\fi% -\if\memBer c\relax - \XyMTeXWarning{Not-used fusion at bond `c'}% -\fi -\if\memBer C\relax - \XyMTeXWarning{Not-used fusion at bond `C'}% -\fi -\if\memBer d\relax - \if@sixfuseposv - \XyMTeXWarning{Double fused bonds at bond `d'}% - \else - \gdef\fuseAx{303}\gdef\fuseAy{-171}% - \gdef\fuseBx{103}\gdef\fuseBy{-171}% - \global\@sixfuseposvtrue - \fi -\fi% -\if\memBer D\relax - \if@sixfuseposv - \XyMTeXWarning{Double fused bonds at bond `D'}% - \else - \gdef\fuseBx{303}\gdef\fuseBy{-171}% - \gdef\fuseAx{103}\gdef\fuseAy{-171}% - \global\@sixfuseposvtrue - \fi -\fi% -\if\memBer e\relax - \if@sixfuseposv - \XyMTeXWarning{Double fused bonds at bond `e'}% - \else - \gdef\fuseAx{103}\gdef\fuseAy{-171}% - \gdef\fuseBx{0}\gdef\fuseBy{0}% - \global\@sixfuseposvtrue - \fi -\fi% -\if\memBer E\relax - \if@sixfuseposv - \XyMTeXWarning{Double fused bonds at bond `E'}% - \else - \gdef\fuseBx{103}\gdef\fuseBy{-171}% - \gdef\fuseAx{0}\gdef\fuseAy{0}% - \global\@sixfuseposvtrue - \fi -\fi}}}% end of the macro \fivefuseposhi -\def\fourfuse{\@ifnextchar({\@four@fuse(@}{\@four@fuse(@)}} -\def\@four@fuse(#1){\@ifnextchar[{\@four@@fuse(#1)[@}% -{\@four@@fuse(#1)[@]}} -\def\@four@@fuse(#1)[#2]#3#4#5{\@ifnextchar[% -{\@fourfuse(#1)[#2]{#3}{#4}{#5}[@}% -{\@fourfuse(#1)[#2]{#3}{#4}{#5}[@]}} -\def\@fourfuse(#1)[#2]#3#4#5[#6]{% -\iniatom\iniflag%initialize -\test@vertix@sixv{#3}{e}{c}{b}{f}{@}{@}% -\fourfusepos{#5}% -\if@sixfuseposv - \yl@shiftii=-\fuseAx - \yl@shifti=-\fuseAy - \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}(800,880)(-571,-137)% - \iforigpt\put(-571,-137){\circle*{50}}% - \put(-171,103){\circle{50}}% - \typeout{command `fourfuse' origin: % - (\the\noshift,\the\noshift) ---> (\the\shiftii,\the\shifti)}\fi% -\fi -{\resetbdsw% -\@bond@fuse@omit{#5}{#6}% -\put(0,0){\set@skel@longbond{#1}{a}{skbondshorizi}}% - % bond between 1 and 2 \@aaa -> \skbondshorizi etc -\put(-142,0){\set@skel@bond{#1}{b}{b}}% - % bond between 2 and 3 \@bbb -> \skbondb etc -\put(0,0){\set@skel@longbond{#1}{c}{skbondshoriz}}% - % bond between 3 and 4 \@ccc -> \skbondshoriz etc -\put(0,0){\set@skel@bond{#1}{d}{e}}% - % bond between 4 and 1 \@ddd -> \skbonde etc -}% -\@tfor\member:=#2\do{% -\if\member r% -\else\if\member a\relax \put(0,0){\bondshorizi}% -\else\if\member b\relax \put(-142,0){\bondb}% -\else\if\member c\relax \put(0,0){\bondshoriz}% -\else\if\member d\relax \put(0,0){\bonde}% -\else - \expandafter\twoCH@@R\member//% - \set@fusionadd@fourv -\fi\fi\fi\fi\fi}% -\put(-142,0){\set@hetatom@sixv{#3}{5}{1}{4}{-1}}% for 2 to 3 -\put(0,0){\set@hetatom@sixv{#3}{4}{4}{6}{0}}% for 1 -\put(0,0){\set@hetatom@sixv{#3}{2}{5}{7}{0}}% for 4 -\put(-142,0){\setsixringv{#4}{5}{1}{4}{-1}}% for 2 to 3 -\put(0,0){\setsixringv{#4}{4}{4}{6}{0}}% for 1 -\put(0,0){\setsixringv{#4}{2}{5}{7}{0}}% for 4 -\end{picture}% -\fourfusepos{#5}%%for FuseWaring when nested -\iniatom\iniflag -\global\@smallringswtrue%for permition at a center bond -}% %end of \fourfuse macro -\def\fourfusepos#1{% -\global\@sixfuseposvfalse -{\resetbdsw% -\@tfor\memBer:=#1\do{% -\if\memBer a\relax - \if@sixfuseposv - \XyMTeXWarning{Double fused bond at bond `a'}% - \else - \gdef\fuseAx{-171}\gdef\fuseAy{103}% - \gdef\fuseBx{29}\gdef\fuseBy{103}% - \global\@sixfuseposvtrue - \fi -\fi% -\if\memBer A\relax - \if@sixfuseposv - \XyMTeXWarning{Double fused bond at bond `A'}% - \else - \gdef\fuseBx{-171}\gdef\fuseBy{103}% - \gdef\fuseAx{29}\gdef\fuseAy{103}% - \global\@sixfuseposvtrue - \fi -\fi% -\if\memBer b\relax - \if@sixfuseposv - \XyMTeXWarning{Double fused bond at bond `b'}% - \else - \gdef\fuseAx{29}\gdef\fuseAy{103}% - \gdef\fuseBx{29}\gdef\fuseBy{303}% - \global\@sixfuseposvtrue - \fi -\fi% -\if\memBer B\relax - \if@sixfuseposv - \XyMTeXWarning{Double fused bonds at bond `B'}% - \else - \gdef\fuseBx{29}\gdef\fuseBy{103}% - \gdef\fuseAx{29}\gdef\fuseAy{303}% - \global\@sixfuseposvtrue - \fi -\fi% -\if\memBer c\relax - \if@sixfuseposv - \XyMTeXWarning{Double fused bonds at bond `c'}% - \else - \gdef\fuseAx{29}\gdef\fuseAy{303}% - \gdef\fuseBx{-171}\gdef\fuseBy{303}% - \global\@sixfuseposvtrue - \fi -\fi% -\if\memBer C\relax - \if@sixfuseposv - \XyMTeXWarning{Double fused bonds at bond `C'}% - \else - \gdef\fuseBx{29}\gdef\fuseBy{303}% - \gdef\fuseAx{-171}\gdef\fuseAy{303}% - \global\@sixfuseposvtrue - \fi -\fi% -\if\memBer d\relax - \if@sixfuseposv - \XyMTeXWarning{Double fused bonds at bond `d'}% - \else - \gdef\fuseAx{-171}\gdef\fuseAy{303}% - \gdef\fuseBx{-171}\gdef\fuseBy{103}% - \global\@sixfuseposvtrue - \fi -\fi% -\if\memBer D\relax - \if@sixfuseposv - \XyMTeXWarning{Double fused bonds at bond `D'}% - \else - \gdef\fuseBx{-171}\gdef\fuseBy{303}% - \gdef\fuseAx{-171}\gdef\fuseAy{103}% - \global\@sixfuseposvtrue - \fi -\fi% -}}}% end of the macro \fourfusepos -\def\threefusev{\@ifnextchar({\@three@fusev(@}{\@three@fusev(@)}} -\def\@three@fusev(#1){\@ifnextchar[{\@three@@fusev(#1)[@}% -{\@three@@fusev(#1)[@]}} -\def\@three@@fusev(#1)[#2]#3#4#5{\@ifnextchar[% -{\@threefusev(#1)[#2]{#3}{#4}{#5}[@}% -{\@threefusev(#1)[#2]{#3}{#4}{#5}[@]}} -\def\@threefusev(#1)[#2]#3#4#5[#6]{% -\iniatom\iniflag%initialize -\test@vertix@sixv{#3}{d}{b}{f}{@}{@}{@}% -\threefuseposv{#5}% -\if@sixfuseposv - \yl@shiftii=-\fuseAx - \yl@shifti=-\fuseAy - \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}(800,580)(-468,-240)% - \iforigpt \put(-468,-240){\circle*{50}}% - \put(-68,0){\circle{50}}% - \typeout{command `threefusevv' origin: % - (68,0) ---> (468,240)}\fi% -\fi -{\resetbdsw% -\@bond@fuse@omit{#5}{#6}% -\put(-68,0){\set@skel@longbond{#1}{a}{skbondtria}}% - % bond between 1 and 2 \@aaa -> \skbondtria etc -\put(0,-132){\set@skel@longbond{#1}{b}{skbondshoriz}}% - % bond between 2 and 3 \@bbb -> \skbondb etc -\put(-68,0){\set@skel@longbond{#1}{c}{skbondtrib}}% - % bond between 3 and 1 \@ccc -> \skbondtria etc -}% -\@tfor\member:=#2\do{% -\if\member r\relax% -\else\if\member a\relax\put(-68,0){\bondtria}% -\else\if\member b\relax\put(0,-126){\bondshoriz}% -\else\if\member c\relax\put(-68,0){\bondtrib}% -\else\if\member A\relax% aromatic circle - \put(-70,108){\circle{100}}% %circle -\else - \expandafter\twoCH@@R\member//% - \set@fusionadd@threev -\fi\fi\fi\fi\fi% -}% -\put(-68,0){\set@hetatom@sixv{#3}{3}{3}{5}{0}% -\if@clip\global\@cliptrue\fi -}%subst 1 -\put(-142,-132){\set@hetatom@sixv{#3}{0}{1}{3}{0}% -\if@bclip\global\@bcliptrue\fi -}%subst 2 -\put(0,-132){\set@hetatom@sixv{#3}{3}{5}{7}{0}% -\if@fclip\global\@fcliptrue\fi -}%subst 3 -\put(-68,0){\setsixringv{#4}{3}{3}{5}{0}}%subst 1 -\put(-142,-132){\setsixringv{#4}{0}{1}{3}{0}}%subst 2 -\put(0,-132){\setsixringv{#4}{3}{5}{7}{0}}%subst 3 -\end{picture}% -\threefuseposv{#5}%%for FuseWaring when nested -\iniatom\iniflag -\global\@smallringswtrue%for permition at a center bond -}% %end of \threefusev macro -\def\threefuseposv#1{% -\global\@sixfuseposvfalse -{\resetbdsw% -\@tfor\memBer:=#1\do{% -\if\memBer a\relax - \if@sixfuseposv - \XyMTeXWarning{Double fused bond at bond `a'}% - \else - \gdef\fuseAx{-68}\gdef\fuseAy{0}% - \gdef\fuseBx{35}\gdef\fuseBy{171}%corrected - \global\@sixfuseposvtrue - \fi -\fi% -\if\memBer A\relax - \if@sixfuseposv - \XyMTeXWarning{Double fused bond at bond `A'}% - \else - \gdef\fuseBx{-74}\gdef\fuseBy{0}%corrected - \gdef\fuseAx{29}\gdef\fuseAy{171}% - \global\@sixfuseposvtrue - \fi -\fi% -\if\memBer b\relax - \if@sixfuseposv - \XyMTeXWarning{Double fused bond at bond `b'}% - \else - \gdef\fuseAx{29}\gdef\fuseAy{171}% - \gdef\fuseBx{-171}\gdef\fuseBy{171}% - \global\@sixfuseposvtrue - \fi -\fi% -\if\memBer B\relax - \if@sixfuseposv - \XyMTeXWarning{Double fused bonds at bond `B'}% - \else - \gdef\fuseBx{29}\gdef\fuseBy{171}% - \gdef\fuseAx{-171}\gdef\fuseAy{171}% - \global\@sixfuseposvtrue - \fi -\fi% -\if\memBer c\relax - \if@sixfuseposv - \XyMTeXWarning{Double fused bonds at bond `c'}% - \else - \gdef\fuseAx{-171}\gdef\fuseAy{171}% - \gdef\fuseBx{-68}\gdef\fuseBy{0}% - \global\@sixfuseposvtrue - \fi -\fi% -\if\memBer C\relax - \if@sixfuseposv - \XyMTeXWarning{Double fused bonds at bond `C'}% - \else - \gdef\fuseBx{-171}\gdef\fuseBy{171}% - \gdef\fuseAx{-68}\gdef\fuseAy{0}% - \global\@sixfuseposvtrue - \fi -\fi% -}}}% end of the macro \threefuseposv -\def\threefusevi{\@ifnextchar({\@three@fusevi(@}{\@three@fusevi(@)}} -\def\@three@fusevi(#1){\@ifnextchar[{\@three@@fusevi(#1)[@}% -{\@three@@fusevi(#1)[@]}} -\def\@three@@fusevi(#1)[#2]#3#4#5{\@ifnextchar[% -{\@threefusevi(#1)[#2]{#3}{#4}{#5}[@}% -{\@threefusevi(#1)[#2]{#3}{#4}{#5}[@]}} -\def\@threefusevi(#1)[#2]#3#4#5[#6]{% -\iniatom\iniflag%initialize -\test@vertix@sixv{#3}{a}{c}{e}{@}{@}{@}% -\threefuseposvi{#5}% -\if@sixfuseposv - \yl@shiftii=-\fuseAx - \yl@shifti=-\fuseAy - \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}(800,580)(-468,-340)% - \iforigpt \put(-468,-340){\circle*{50}}% - \put(-68,0){\circle{50}}% - \typeout{command `threefusevi' origin: % - (0,0) ---> (-468,-340)}\fi% -\fi -{\resetbdsw% -\@bond@fuse@omit{#5}{#6}% -\put(-68,0){\set@skel@longbond{#1}{a}{skBondtria}}% - % bond between 1 and 2 \@aaa -> \skBondtria etc -\put(0,-275){\set@skel@longbond{#1}{b}{skbondshorizi}}% - % bond between 2 and 3 \@bbb -> \skbondb etc -\put(-68,0){\set@skel@longbond{#1}{c}{skBondtrib}}% - % bond between 3 and 1 \@ccc -> \skBondtrib etc -}% -\@tfor\member:=#2\do{% -\if\member r\relax% -\else\if\member a\relax\put(-68,0){\Bondtria}% -\else\if\member b\relax\put(0,-274){\bondshorizi}% -\else\if\member c\relax\put(-68,0){\Bondtrib}% -\else\if\member A\relax% aromatic circle - \put(-70,-108){\circle{100}}% %circle -\else - \expandafter\twoCH@@R\member//% - \set@fusionadd@threevi -\fi\fi\fi\fi\fi% -}% -\put(-68,-406){\set@hetatom@sixv{#3}{0}{0}{2}{0}% -\if@aclip\global\@acliptrue\fi -}%subst 1 -\put(0,-275){\set@hetatom@sixv{#3}{2}{4}{6}{0}% -\if@cclip\global\@ccliptrue\fi -}%subst 3 -\put(-142,-275){\set@hetatom@sixv{#3}{1}{2}{4}{0}% -\if@eclip\global\@ecliptrue\fi -}%subst 2 -\put(-68,-406){\setsixringv{#4}{0}{0}{2}{0}}%subst 1 -\put(0,-275){\setsixringv{#4}{2}{4}{6}{0}}%subst 3 -\put(-142,-275){\setsixringv{#4}{1}{2}{4}{0}}%subst 2 -\end{picture}% -\threefuseposvi{#5}%%for FuseWaring when nested -\iniatom\iniflag -\global\@smallringswtrue%for permition at a center bond -}% %end of \threefusevi macro -\def\threefuseposvi#1{% -\global\@sixfuseposvfalse -{\resetbdsw% -\@tfor\memBer:=#1\do{% -\if\memBer a\relax - \if@sixfuseposv - \XyMTeXWarning{Double fused bond at bond `a'}% - \else - \gdef\fuseAx{-68}\gdef\fuseAy{0}% - \gdef\fuseBx{35}\gdef\fuseBy{-171}%corrected - \global\@sixfuseposvtrue - \fi -\fi% -\if\memBer A\relax - \if@sixfuseposv - \XyMTeXWarning{Double fused bond at bond `A'}% - \else - \gdef\fuseBx{-74}\gdef\fuseBy{0}%corrected - \gdef\fuseAx{29}\gdef\fuseAy{-171}% - \global\@sixfuseposvtrue - \fi -\fi% -\if\memBer b\relax - \if@sixfuseposv - \XyMTeXWarning{Double fused bond at bond `b'}% - \else - \gdef\fuseAx{29}\gdef\fuseAy{-171}% - \gdef\fuseBx{-171}\gdef\fuseBy{-171}% - \global\@sixfuseposvtrue - \fi -\fi% -\if\memBer B\relax - \if@sixfuseposv - \XyMTeXWarning{Double fused bonds at bond `B'}% - \else - \gdef\fuseBx{29}\gdef\fuseBy{-171}% - \gdef\fuseAx{-171}\gdef\fuseAy{-171}% - \global\@sixfuseposvtrue - \fi -\fi% -\if\memBer c\relax - \if@sixfuseposv - \XyMTeXWarning{Double fused bonds at bond `c'}% - \else - \gdef\fuseAx{-171}\gdef\fuseAy{-171}% - \gdef\fuseBx{-68}\gdef\fuseBy{0}% - \global\@sixfuseposvtrue - \fi -\fi% -\if\memBer C\relax - \if@sixfuseposv - \XyMTeXWarning{Double fused bonds at bond `C'}% - \else - \gdef\fuseBx{-171}\gdef\fuseBy{-171}% - \gdef\fuseAx{-68}\gdef\fuseAy{0}% - \global\@sixfuseposvtrue - \fi -\fi% -}}}% end of the macro \threefuseposvi - -\def\threefuseh{\@ifnextchar({\@three@fuseh(@}{\@three@fuseh(@)}} -\def\@three@fuseh(#1){\@ifnextchar[{\@three@@fuseh(#1)[@}% -{\@three@@fuseh(#1)[@]}} -\def\@three@@fuseh(#1)[#2]#3#4#5{\@ifnextchar[% -{\@threefuseh(#1)[#2]{#3}{#4}{#5}[@}% -{\@threefuseh(#1)[#2]{#3}{#4}{#5}[@]}} -\def\@threefuseh(#1)[#2]#3#4#5[#6]{% -\iniatom\iniflag%initialize -\test@vertix@sixv{#3}{d}{f}{b}{@}{@}{@}%tentative use for six-h -\threefuseposh{#5}% -\if@sixfuseposv - \yl@shiftii=-\fuseAx - \yl@shifti=-\fuseAy - \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}(580,700)(-200,-240)% - \iforigpt \put(-200,-200){\circle*{50}}% - \put(0,0){\circle{50}}% - \typeout{command `threefuseh' origin: % - (0,0) ---> (200,200)}\fi% -\fi -\iniatom\iniflag%initialize -\test@vertix@sixv{#3}{c}{e}{a}{@}{@}{@}% -\test@vertix@sixv{#3}{b}{d}{f}{@}{@}{@}% -{\resetbdsw% -\@bond@fuse@omit{#5}{#6}% -\put(0,0){\set@skel@bond{#1}{a}{c}}% - % bond between 1 and 2 \@aaa -> \skbondc etc -\put(171,-103){\set@skel@bond{#1}{b}{e}}% - % bond between 2 and 3 \@bbb -> \skbonde etc -\put(0,-200){\set@skel@bond{#1}{c}{a}}% - % bond between 3 and 1 \@ccc -> \skbonda etc -}% -\@tfor\member:=#2\do{% -\if\member r\relax% -\else\if\member a\relax\put(0,0){\bondc}% -\else\if\member b\relax\put(171,-103){\bonde}% -\else\if\member c\relax\put(0,-200){\bonda}% -\else\if\member A\relax% aromatic circle - \put(70,103){\circle{100}}% %circle -\else - \expandafter\twoCH@@R\member//% - \set@fusionadd@threeh -\fi\fi\fi\fi\fi% -}% -\iniflag -\put(-215,103){\set@hetatom@sixh{#3}{3}{3}{5}{0}% -\if@clip \global\@cliptrue\fi}%subst 1 <--six h 4 -\put(-103,29){\set@hetatom@sixh{#3}{-1}{1}{3}{0}% -\if@bclip \global\@bcliptrue\fi}%subst 3 <--six h 2 -\put(-103,171){\set@hetatom@sixh{#3}{4}{5}{7}{0}% -\if@fclip \global\@fcliptrue\fi}%subst 2 <--six h 6 -\put(-235,103){\setsixringh{#4}{3}{3}{5}{0}}%subst 1 -\put(-103,29){\setsixringh{#4}{-1}{1}{3}{0}}%subst 3 -\put(-103,171){\setsixringh{#4}{4}{5}{7}{0}}%subst 2 -\end{picture}% -\threefuseposh{#5}%%for FuseWaring when nested -\iniatom\iniflag -\global\@smallringswtrue%for permition at a center bond -}% %end of \threefuseh macro -\def\threefuseposh#1{% -\global\@sixfuseposvfalse -{\resetbdsw% -\@tfor\memBer:=#1\do{% -\if\memBer a\relax - \if@sixfuseposv - \XyMTeXWarning{Double fused bond at bond `a'}% - \else - \gdef\fuseAx{171}\gdef\fuseAy{103}%corrected - \gdef\fuseBx{0}\gdef\fuseBy{0}% - \global\@sixfuseposvtrue - \fi -\fi% -\if\memBer A\relax - \if@sixfuseposv - \XyMTeXWarning{Double fused bond at bond `A'}% - \else - \gdef\fuseBx{171}\gdef\fuseBy{103}% - \gdef\fuseAx{0}\gdef\fuseAy{0}% - \global\@sixfuseposvtrue - \fi -\fi% -\if\memBer b\relax - \if@sixfuseposv - \XyMTeXWarning{Double fused bond at bond `b'}% - \else - \gdef\fuseAx{0}\gdef\fuseAy{0}% - \gdef\fuseBx{0}\gdef\fuseBy{200}% - \global\@sixfuseposvtrue - \fi -\fi% -\if\memBer B\relax - \if@sixfuseposv - \XyMTeXWarning{Double fused bonds at bond `B'}% - \else - \gdef\fuseBx{0}\gdef\fuseBy{0}% - \gdef\fuseAx{0}\gdef\fuseAy{200}% - \global\@sixfuseposvtrue - \fi -\fi% -\if\memBer c\relax - \if@sixfuseposv - \XyMTeXWarning{Double fused bonds at bond `c'}% - \else - \gdef\fuseAx{0}\gdef\fuseAy{200}% - \gdef\fuseBx{171}\gdef\fuseBy{97}%corrected - \global\@sixfuseposvtrue - \fi -\fi% -\if\memBer C\relax - \if@sixfuseposv - \XyMTeXWarning{Double fused bonds at bond `C'}% - \else - \gdef\fuseBx{0}\gdef\fuseBy{206}%corrected - \gdef\fuseAx{171}\gdef\fuseAy{103}% - \global\@sixfuseposvtrue - \fi -\fi% -}}}% end of the macro \threefuseposh -\def\threefusehi{\@ifnextchar({\@three@fusehi(@}{\@three@fusehi(@)}} -\def\@three@fusehi(#1){\@ifnextchar[{\@three@@fusehi(#1)[@}% -{\@three@@fusehi(#1)[@]}} -\def\@three@@fusehi(#1)[#2]#3#4#5{\@ifnextchar[% -{\@threefusehi(#1)[#2]{#3}{#4}{#5}[@}% -{\@threefusehi(#1)[#2]{#3}{#4}{#5}[@]}} -\def\@threefusehi(#1)[#2]#3#4#5[#6]{% -\iniatom\iniflag%initialize -\test@vertix@sixv{#3}{a}{e}{c}{@}{@}{@}%tentative use for six-h -\threefuseposhi{#5}% -\if@sixfuseposv - \yl@shiftii=-\fuseAx - \yl@shifti=-\fuseAy - \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}(580,700)(-400,-240)% - \iforigpt \put(-400,-200){\circle*{50}}% - \put(0,0){\circle{50}}% - \typeout{command `threefusehi' origin: % - (0,0) ---> (400,200)}\fi% -\fi -\iniatom\iniflag%initialize -\test@vertix@sixv{#3}{e}{c}{a}{@}{@}{@}% -\test@vertix@sixv{#3}{f}{d}{b}{@}{@}{@}% -{\resetbdsw% -\@bond@fuse@omit{#5}{#6}% -\put(0,0){\set@skel@bond{#1}{a}{d}}% - % bond between 1 and 2 \@aaa -> \skbondd etc -\put(-171,-103){\set@skel@bond{#1}{b}{b}}% - % bond between 2 and 3 \@bbb -> \skbondb etc -\put(0,-200){\set@skel@bond{#1}{c}{f}}% - % bond between 3 and 1 \@ccc -> \skbondf etc -}% -\@tfor\member:=#2\do{% -\if\member r\relax% -\else\if\member a\relax\put(0,0){\bondd}% -\else\if\member b\relax\put(-171,-103){\bondb}% -\else\if\member c\relax\put(0,-200){\bondf}% -\else\if\member A\relax% aromatic circle - \put(70,103){\circle{100}}% %circle -\else - \expandafter\twoCH@@R\member//% - \set@fusionadd@threehi -\fi\fi\fi\fi\fi% -}% -\iniflag -\put(-171,103){\set@hetatom@sixh{#3}{0}{0}{2}{0}% -\if@aclip \global\@acliptrue\fi}%subst 1 <--six h 1 -\put(-303,29){\set@hetatom@sixh{#3}{0}{2}{4}{0}% -\if@cclip \global\@ccliptrue\fi}%subst 3 <--six h 3 -\put(-303,171){\set@hetatom@sixh{#3}{3}{4}{6}{0}% -\if@eclip \global\@ecliptrue\fi}%subst 2 <--six h 5 -\put(-171,103){\setsixringh{#4}{0}{0}{2}{0}}%subst 1 -\put(-303,29){\setsixringh{#4}{0}{2}{4}{0}}%subst 3 -\put(-303,171){\setsixringh{#4}{3}{4}{6}{0}}%subst 2 -\end{picture}% -\threefuseposhi{#5}%%for FuseWaring when nested -\iniatom\iniflag -\global\@smallringswtrue%for permition at a center bond -}% %end of \threefusehi macro -\def\threefuseposhi#1{% -\global\@sixfuseposvfalse -{\resetbdsw% -\@tfor\memBer:=#1\do{% -\if\memBer a\relax - \if@sixfuseposv - \XyMTeXWarning{Double fused bond at bond `a'}% - \else - \gdef\fuseAx{-171}\gdef\fuseAy{103}%corrected - \gdef\fuseBx{0}\gdef\fuseBy{0}% - \global\@sixfuseposvtrue - \fi -\fi% -\if\memBer A\relax - \if@sixfuseposv - \XyMTeXWarning{Double fused bond at bond `A'}% - \else - \gdef\fuseBx{-171}\gdef\fuseBy{103}% - \gdef\fuseAx{0}\gdef\fuseAy{0}% - \global\@sixfuseposvtrue - \fi -\fi% -\if\memBer b\relax - \if@sixfuseposv - \XyMTeXWarning{Double fused bond at bond `b'}% - \else - \gdef\fuseAx{0}\gdef\fuseAy{0}% - \gdef\fuseBx{0}\gdef\fuseBy{200}% - \global\@sixfuseposvtrue - \fi -\fi% -\if\memBer B\relax - \if@sixfuseposv - \XyMTeXWarning{Double fused bonds at bond `B'}% - \else - \gdef\fuseBx{0}\gdef\fuseBy{0}% - \gdef\fuseAx{0}\gdef\fuseAy{200}% - \global\@sixfuseposvtrue - \fi -\fi% -\if\memBer c\relax - \if@sixfuseposv - \XyMTeXWarning{Double fused bonds at bond `c'}% - \else - \gdef\fuseAx{0}\gdef\fuseAy{200}% - \gdef\fuseBx{-171}\gdef\fuseBy{97}%corrected - \global\@sixfuseposvtrue - \fi -\fi% -\if\memBer C\relax - \if@sixfuseposv - \XyMTeXWarning{Double fused bonds at bond `C'}% - \else - \gdef\fuseBx{0}\gdef\fuseBy{206}%corrected - \gdef\fuseAx{-171}\gdef\fuseAy{103}% - \global\@sixfuseposvtrue - \fi -\fi% -}}}% end of the macro \threefuseposhi -\endinput -%% -%% End of file `fusering.sty'. diff --git a/Master/texmf-dist/tex/latex/xymtex/hcycle.sty b/Master/texmf-dist/tex/latex/xymtex/hcycle.sty deleted file mode 100644 index bc45965d70b..00000000000 --- a/Master/texmf-dist/tex/latex/xymtex/hcycle.sty +++ /dev/null @@ -1,387 +0,0 @@ -%% -%% This is file `hcycle.sty', -%% generated with the docstrip utility. -%% -%% The original source files were: -%% -%% hcycle.dtx (with options: `hcycle') -%% -%% This is a generated file. -%% -%% Copyright 1996,1998 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, 1996 (private version) -%% Version 2.00 Released on December 25, 1998 -%% -%% Copyright (C) 1996,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: hcycle.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{hcycle} -\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}{} -\unitlength=0.1pt -\def\@pyrana{% - \if\@tmpb S%single bond - \ifx\@tmpc\empty% - \yl@xdiff=-10 - \yl@ydiff=30 - \put(0,0){\line(1,0){120}}% single bond at 1 - \putratom{130}{-30}{\@memberb}% right type - \else\if\@tmpc a%(a) alpha - \yl@xdiff=32 - \yl@ydiff=72 - \put(0,0){\line(0,-1){118}}% single bond at 1 alpha (down) - \putratom{-32}{-190}{\@memberb}% right type - \else\if\@tmpc b%(e) beta - \yl@xdiff=32 - \yl@ydiff=-12 - \put(0,0){\line(0,1){118}}% single bond at 1 beta (up) - \putratom{-32}{130}{\@memberb}% right type - \else\if\@tmpc A% alpha - \yl@xdiff=-10 - \yl@ydiff=60 - \put(0,0){\line(1,-1){120}}% single bond at 1 - \putratom{130}{-180}{\@memberb}% right type - \else\if\@tmpc B% beta - \yl@xdiff=-10 - \yl@ydiff=10 - \put(0,0){\line(1,1){120}}% single bond at 1 - \putratom{130}{110}{\@memberb}% right type - \fi\fi\fi\fi\fi% - \else \if\@tmpb D%double bond - \yl@xdiff=-10 - \yl@ydiff=30 - \put(0,-15){\line(1,0){120}}% double bond at 1 - \put(0,15){\line(1,0){120}}% double bond at 1 - \putratom{130}{-30}{\@memberb}% right type - \else% - \yl@xdiff=-10 - \yl@ydiff=30 - \put(0,0){\line(1,0){120}}% single bond at 1 - \putratom{130}{-30}{\@memberb}% right type - \fi\fi}% -\def\@pyranb{% - \if\@tmpb S%single bond - \ifx\@tmpc\empty% - \yl@xdiff=-10 - \yl@ydiff=60 - \put(0,0){\line(1,-1){120}}% single bond at 1 - \putratom{130}{-180}{\@memberb}% left type - \else\if\@tmpc a%(a) alpha - \yl@xdiff=32 - \yl@ydiff=72 - \put(0,0){\line(0,-1){118}}% single bond alpha (down) - \putlratom{-32}{-190}{\@memberb}% left & right type - \else\if\@tmpc b%(b) beta - \yl@xdiff=32 - \yl@ydiff=-12 - \put(0,0){\line(0,1){118}}% single bond beta (up) - \putlratom{-32}{130}{\@memberb}% left & right type - \fi\fi\fi%\fi\fi% - \else \if\@tmpb D%double bond: Added by SF 1998/10/25 - \yl@xdiff=-10 - \yl@ydiff=60 - \put(-15,-15){\line(1,-1){120}}% double bond at 1 - \put(0,15){\line(1,-1){120}}% double bond at 1 - \putratom{130}{-180}{\@memberb}% right type - \else% - \yl@xdiff=-10 - \yl@ydiff=10 - \put(0,0){\line(1,1){120}}% single bond at 1 - \putratom{130}{110}{\@memberb}% left type -\fi\fi}% -\def\@pyranbb{% - \if\@tmpb S%single bond - \ifx\@tmpc\empty% - \yl@xdiff=-10 - \yl@ydiff=60 - \put(0,0){\line(1,-1){120}}% single bond at 1 - \putratom{130}{-180}{\@memberb}% left type - \else\if\@tmpc a%(a) alpha - \yl@xdiff=32 - \yl@ydiff=72 - \put(0,0){\line(0,-1){118}}% single bond alpha (down) - \putlratom{-32}{-190}{\@memberb}% left & right type - \else\if\@tmpc b%(b) beta - \yl@xdiff=32 - \yl@ydiff=-12 - \put(0,0){\line(0,1){118}}% single bond beta (up) - \putlratom{-32}{130}{\@memberb}% left & right type - \fi\fi\fi%\fi\fi% - \else \if\@tmpb D%double bond: Added by SF 1998/10/25 - \yl@xdiff=20 - \yl@ydiff=60 - \put(15,-15){\line(-1,-1){120}}% double bond at 1 - \put(0,15){\line(-1,-1){120}}% double bond at 1 - \putlatom{-130}{-180}{\@memberb}%left type - \else% - \yl@xdiff=10 - \yl@ydiff=60 - \put(0,0){\line(-1,-1){120}}% single bond at 1 - \putlatom{-130}{-180}{\@memberb}% left type -\fi\fi}% -\def\@pyranbB{% - \if\@tmpb S%single bond - \ifx\@tmpc\empty% - \yl@xdiff=-10 - \yl@ydiff=60 - \put(0,0){\line(1,-1){120}}% single bond at 5 - \putratom{130}{-180}{\@memberb}% left type - \else\if\@tmpc a%(a) alpha - \yl@xdiff=32 - \yl@ydiff=72 - \put(0,0){\line(0,-1){118}}% single bond alpha (down) - \putlratom{-32}{-190}{\@memberb}% left & right type - \else\if\@tmpc b%(b) beta - \yl@xdiff=32 - \yl@ydiff=-12 - \put(0,0){\line(0,1){118}}% single bond beta (up) - \putlratom{-32}{130}{\@memberb}% left & right type - \fi\fi\fi%\fi\fi% - \else \if\@tmpb D%double bond: Added by SF 1998/10/25 - \yl@xdiff=0 - \yl@ydiff=-20 - \put(15,15){\line(-1,1){120}}% double bond at 5 - \put(0,-15){\line(-1,1){120}}% double bond at 5 - \putlatom{-120}{140}{\@memberb}%left type - \else% - \yl@xdiff=10 - \yl@ydiff=-20 - \put(0,0){\line(-1,1){120}}% single bond at 1 - \putlatom{-130}{140}{\@memberb}% left type -\fi\fi}% -\def\@pyranc{% - \if\@tmpb S%single bond - \ifx\@tmpc\empty% - \yl@xdiff=10 - \yl@ydiff=30 - \put(0,0){\line(-1,0){120}}% single bond at 4 - \putlatom{-130}{-30}{\@memberb}% left type - \else\if\@tmpc a%(a) alpha - \yl@xdiff=-32 - \yl@ydiff=72 - \put(0,0){\line(0,-1){118}}% single bond at 4 alpha (down) - \putlatom{32}{-190}{\@memberb}% left type - \else\if\@tmpc b%(e) beta - \yl@xdiff=-32 - \yl@ydiff=-12 - \put(0,0){\line(0,1){118}}% single bond at 4 beta (up) - \putlatom{32}{130}{\@memberb}% left type - \else\if\@tmpc A% alpha - \yl@xdiff=10 - \yl@ydiff=60 - \put(0,0){\line(-1,-1){120}}% single bond at 4 - \putlatom{-130}{-180}{\@memberb}% left type - \else\if\@tmpc B% beta - \yl@xdiff=10 - \yl@ydiff=10 - \put(0,0){\line(-1,1){120}}% single bond at 4 - \putlatom{-130}{110}{\@memberb}% left type - \fi\fi\fi\fi\fi% - \else \if\@tmpb D%double bond - \yl@xdiff=10 - \yl@ydiff=30 - \put(0,-15){\line(-1,0){120}}% double bond at 4 - \put(0,15){\line(-1,0){120}}% double bond at 4 - \putlatom{-130}{-30}{\@memberb}% left type - \else% - \yl@xdiff=10 - \yl@ydiff=30 - \put(0,0){\line(-1,0){120}}% single bond at 4 - \putlatom{-130}{-30}{\@memberb}% left type - \fi\fi}% -\def\pyranose{\@ifnextchar[{\@pyranose}{\@pyranose[r]}} -\def\@pyranose[#1]#2{% -\@reset@ylsw% -\ylpyranoseposition{#2}% -\def\@@ylii{0}\def\@@yli{0}% -\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}(880,800)(-240,-400) - \iforigpt \put(-240,-400){\circle*{50}}% - \put(0,0){\circle{50}}% - \typeout{command `pyranose' origin: (0,0) ---> (240,400)} - \fi% -\fi - \put(0,0){\line(3,5){120}}% %bond 4-5 - \put(120,200){\line(1,0){252}}% %bond 5-6 - \put(532,0){\line(-3,5){96}}% %bond 1-6 - {\thicklines% - \put(0,0){\line(3,-5){120}}% %bond 4-3 - \put(412,-200){\line(3,5){120}}% %bond 2-1 - \put(120,-200){\line(1,0){292}}}% %bond 3-2 - \putratom{382}{160}{O}% left type - % -\@tfor\member:=#1\do{% -\if\member r%no endcyclic double bonds -\else \if\member a% - \put(400,-150){\line(3,5){90}}% %double bond 2-1 -\else \if\member b% - \put(150,-160){\line(1,0){232}}% %double bond 3-2 -\else \if\member c% - \put(50,-12){\line(3,-5){90}}% %double bond 4-3 -\else \if\member d% - \put(50,12){\line(3,5){90}}% %double bond 4-5 -\else \if\member e% - \put(150,160){\line(1,0){232}}% %double bond 5-6 -\else \if\member f% - \put(482,12){\line(-3,5){70}}% %double bond 1-6 -\fi\fi\fi\fi\fi\fi\fi}% -\@forsemicol\member:=#2\do{% -\ifx\member\empty\else -\expandafter\@m@mb@r\member;\relax% -\expandafter\threech@r\@membera{}{}% -\ifx\@memberb\@yl\else -\ifcase\@tmpa%0 omit - \or \put(532,0){\@pyrana}% subst. on 1 - \or \put(412,-200){\@pyranb}% subst. on 2 - \or \put(120,-200){\@pyranbb}% subst. on 3 - \or \put(0,0){\@pyranc}% subst. on 4 - \or \put(120,200){\@pyranbB}% subst. on 5 -\fi %end of ifcase -\fi\fi% -}\end{picture}}% %end of \pyranose macro -\def\ylpyranoseposition#1{% -\@@ylswfalse%%%\@reset@ylsw -\@forsemicol\member:=#1\do{% -\if@@ylsw\else -\ifx\member\empty\else -\expandafter\@m@mb@r\member;\relax -\expandafter\threech@r\@membera{}{}\relax -\ifx\@memberb\@yl\relax\@@ylswtrue\else\@@ylswfalse\fi -\if@@ylsw -\ifcase\@tmpa%0 omit - \or\gdef\@ylii{-532}\gdef\@yli{0}\global\@ylswtrue% subst. on 1 - \or\gdef\@ylii{-412}\gdef\@yli{200}\global\@ylswtrue% subst. on 2 - \or\gdef\@ylii{-120}\gdef\@yli{200}\global\@ylswtrue% subst. on 3 - \or\gdef\@ylii{0}\gdef\@yli{0}\global\@ylswtrue% subst. on 4 - \or\gdef\@ylii{-120}\gdef\@yli{-200}\global\@ylswtrue% subst. on 5 -\fi%end of ifcase -\fi\fi\fi}}% -\def\furanose{\@ifnextchar[{\@furanose}{\@furanose[r]}} -\def\@furanose[#1]#2{% -\@reset@ylsw% -\ylfuranoseposition{#2}% -\def\@@ylii{0}\def\@@yli{0}% -\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}(880,800)(-240,-400) - \iforigpt \put(-240,-400){\circle*{50}}% - \put(0,0){\circle{50}}% - \typeout{command `furanose' origin: (0,0) ---> (240,400)} -\fi - \fi% - \put(0,0){\line(5,3){236}}% %bond 4-5 - \put(532,0){\line(-5,3){236}}% %bond 1-5 - {\thicklines% - \put(0,0){\line(3,-5){120}}% %bond 4-3 - \put(412,-200){\line(3,5){120}}% %bond 2-1 - \put(120,-200){\line(1,0){292}}}% %bond 3-2 - \putratom{236}{130}{O}% left type -\@tfor\member:=#1\do{% -\if\member r%no endcyclic double bonds -\else \if\member a% - \put(400,-150){\line(3,5){80}}% %double bond 2-1 -\else \if\member b% - \put(150,-160){\line(1,0){232}}% %double bond 3-2 -\else \if\member c% - \put(50,-12){\line(3,-5){80}}% %double bond 4-3 -\else \if\member d% - \put(50,0){\line(5,3){180}}% %double bond 4-5 -\else \if\member e% - \put(482,0){\line(-5,3){180}}% %double bond 1-5 -\fi\fi\fi\fi\fi\fi}% -\@forsemicol\member:=#2\do{% -\ifx\member\empty\else -\expandafter\@m@mb@r\member;\relax% -\expandafter\threech@r\@membera{}{}% -\ifx\@memberb\@yl\else -\ifcase\@tmpa%0 omit - \or \put(532,0){\@pyrana}% subst. on 1 - \or \put(412,-200){\@pyranb}% subst. on 2 - \or \put(120,-200){\@pyranbb}% subst. on 3 - \or \put(0,0){\@pyranc}% subst. on 4 -\fi%end of ifcase -\fi\fi% -}\end{picture}}% %end of \furanose macro -\def\ylfuranoseposition#1{% -\@@ylswfalse%%%\@reset@ylsw -\@forsemicol\member:=#1\do{% -\if@@ylsw\else -\ifx\member\empty\else -\expandafter\@m@mb@r\member;\relax -\expandafter\threech@r\@membera{}{}\relax -\ifx\@memberb\@yl\relax\@@ylswtrue\else\@@ylswfalse\fi -\if@@ylsw -\ifcase\@tmpa%0 omit - \or\gdef\@ylii{-532}\gdef\@yli{0}\global\@ylswtrue% subst. on 1 - \or\gdef\@ylii{-412}\gdef\@yli{200}\global\@ylswtrue% subst. on 2 - \or\gdef\@ylii{-120}\gdef\@yli{200}\global\@ylswtrue% subst. on 3 - \or\gdef\@ylii{0}\gdef\@yli{0}\global\@ylswtrue% subst. on 4 -\fi%end of ifcase -\fi\fi\fi}}% -\endinput -%% -%% End of file `hcycle.sty'. diff --git a/Master/texmf-dist/tex/latex/xymtex/hetarom.sty b/Master/texmf-dist/tex/latex/xymtex/hetarom.sty deleted file mode 100644 index 7dc815518c6..00000000000 --- a/Master/texmf-dist/tex/latex/xymtex/hetarom.sty +++ /dev/null @@ -1,3835 +0,0 @@ -%% -%% This is file `hetarom.sty', -%% generated with the docstrip utility. -%% -%% The original source files were: -%% -%% hetarom.dtx (with options: `hetarom') -%% -%% This is a generated file. -%% -%% Copyright 1996, 1998, 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 (private version) -%% Version 2.00 Released on December 25, 1998 -%% Version 2.00a Released on November 11, 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: hetarom.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{hetarom} -\def\versi@ndate{November 11, 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}{}% -\unitlength=0.1pt% -\iniatom% -\def\bonda{% - \ifx\aaa\empty% - \ifx\bbb\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\bbb\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\bondb{% - \ifx\bbb\empty% - \ifx\ccc\empty% - \put(138,129){\line(0,1){148}}% %double bond 3-2 - \else% - \put(138,143){\line(0,1){134}}% %double bond 3-2 - \fi% - \else% - \ifx\ccc\empty% - \put(138,129){\line(0,1){134}}% %double bond 3-2 - \else% - \put(138,143){\line(0,1){110}}% %double bond 3-2 - \fi% - \fi% -}% - \def\bondc{% - \ifx\ddd\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\bondd{% - \ifx\ddd\empty% - \ifx\eee\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\eee\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\bonde{% - \ifx\fff\empty% - \ifx\eee\empty% - \put(-138,129){\line(0,1){148}}% %double bond 5-6 - \else% - \put(-138,143){\line(0,1){134}}% %double bond 5-6 - \fi% - \else% - \ifx\eee\empty% - \put(-138,129){\line(0,1){134}}% %double bond 5-6 - \else% - \put(-138,143){\line(0,1){110}}% %double bond 5-6 - \fi% - \fi% -}% -\def\bondf{% - \ifx\aaa\empty% - \ifx\fff\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\fff\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\bondhoriz{% - \ifx\fff\empty% - \ifx\bbb\empty% - \put(-138,270){\line(1,0){277}}% %double bond 4-3 - \else% - \put(-138,270){\line(1,0){258}}% %double bond 4-3 - \fi% - \else% - \ifx\bbb\empty% - \put(-120,270){\line(1,0){258}}% %double bond 4-3 - \else% - \put(-120,270){\line(1,0){239}}% %double bond 4-3 - \fi% - \fi}% -\def\bondhorizi{% - \ifx\eee\empty% - \ifx\ccc\empty% - \put(-138,136){\line(1,0){277}}% %double bond 4-3 - \else% - \put(-138,136){\line(1,0){258}}% %double bond 4-3 - \fi% - \else% - \ifx\ccc\empty% - \put(-120,136){\line(1,0){258}}% %double bond 4-3 - \else% - \put(-120,136){\line(1,0){239}}% %double bond 4-3 - \fi% - \fi}% -\def\skbonda{% - \ifx\aaa\empty% - \ifx\bbb\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\bbb\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\skbondf{% - \ifx\aaa\empty% - \ifx\fff\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\fff\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\skbondc{% - \ifx\ddd\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}% -\def\skbondd{% - \ifx\ddd\empty% - \ifx\eee\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\eee\empty% - \put(-35,21){\line(-5,3){138}}% %bond 4-5 - \else% - \put(-35,21){\line(-5,3){100}}% %bond 4-5 - \fi% - \fi}% -\def\skbondb{% - \ifx\bbb\empty%% - \ifx\ccc\empty%% - \put(171,103){\line(0,1){200}}% %bond 3-2 - \else% - \put(171,143){\line(0,1){160}}% %bond 3-2 - \fi% - \else% - \ifx\ccc\empty%% - \put(171,103){\line(0,1){150}}% %bond 3-2 - \else% - \put(171,143){\line(0,1){110}}% %bond 3-2 - \fi% - \fi}% -\def\skbonde{% - \ifx\eee\empty% - \ifx\fff\empty% - \put(-171,103){\line(0,1){200}}% %bond 5-6 - \else% - \put(-171,103){\line(0,1){150}}% %bond 5-6 - \fi% - \else% - \ifx\fff\empty% - \put(-171,143){\line(0,1){160}}% %bond 5-6 - \else% - \put(-171,143){\line(0,1){110}}% %bond 5-6 - \fi% - \fi}% -\def\skbondhoriz{% - \ifx\fff\empty% - \ifx\bbb\empty% - \put(-171,303){\line(1,0){342}}% %bond 4-3 - \else% - \put(-171,303){\line(1,0){300}}% %bond 4-3 - \fi% - \else% - \ifx\bbb\empty% - \put(171,303){\line(-1,0){300}}% %bond 4-3 - \else% - \put(-129,303){\line(1,0){258}}% %bond 4-3 - \fi% - \fi}% -\def\skbondhorizi{% - \ifx\eee\empty% - \ifx\ccc\empty% - \put(-171,103){\line(1,0){342}}% %bond 4-3 - \else% - \put(-171,103){\line(1,0){300}}% %bond 4-3 - \fi% - \else% - \ifx\ccc\empty% - \put(171,103){\line(-1,0){300}}% %bond 4-3 - \else% - \put(-129,103){\line(1,0){258}}% %bond 4-3 - \fi% - \fi}% -\def\set@outskel@sixv{% - \skbonda% bond between 1 and 2 - \skbondf% bond between 1 and 6 - \skbondc% bond between 4 and 3 - \skbondd% bond between 4 and 5 - \skbondb% bond between 3 and 2 - \skbonde% bond between 5 and 6 -} -\def\dotskbonda{% - \ifx\aaa\empty% - \ifx\bbb\empty% - \@ifundefined{dottedline}{% - \put(0,406){\line(5,-3){171}}% %bond 1-2 - }{{\thicklines% - \dottedline{20}(0,406)(171,303)}}% - \else% - \@ifundefined{dottedline}{% - \put(0,406){\line(5,-3){136}}% %bond 1-2 - }{{\thicklines% - \dottedline{20}(0,406)(136,324)}}% - \fi% - \else% - \ifx\bbb\empty% - \@ifundefined{dottedline}{% - \put(35,385){\line(5,-3){136}}% %bond 1-2 - }{{\thicklines% - \dottedline{20}(35,386)(171,303)}}% - \else% - \@ifundefined{dottedline}{% - \put(35,385){\line(5,-3){100}}% %bond 1-2 - }{{\thicklines% - \dottedline{20}(35,386)(136,324)}}% - \fi% - \fi}% -\def\dotskbondb{% - \ifx\bbb\empty%% - \ifx\ccc\empty%% - \@ifundefined{dottedline}{% - \put(171,103){\line(0,1){200}}% %bond 3-2 - }{{\thicklines% - \dottedline{20}(171,103)(171,303)}}% - \else% - \@ifundefined{dottedline}{% - \put(171,143){\line(0,1){160}}% %bond 3-2 - }{{\thicklines% - \dottedline{20}(171,143)(171,303)}}% - \fi% - \else% - \ifx\ccc\empty%% - \@ifundefined{dottedline}{% - \put(171,103){\line(0,1){150}}% %bond 3-2 - }{{\thicklines% - \dottedline{20}(171,103)(171,253)}}% - \else% - \@ifundefined{dottedline}{% - \put(171,143){\line(0,1){110}}% %bond 3-2 - }{{\thicklines% - \dottedline{20}(171,143)(171,253)}}% - \fi% - \fi}% -\def\dotskbondc{% - \ifx\ddd\empty% - \ifx\ccc\empty%% - \@ifundefined{dottedline}{% - \put(0,0){\line(5,3){171}}% %bond 4-3 - }{{\thicklines% - \dottedline{20}(0,0)(171,103)}}% - \else% - \@ifundefined{dottedline}{% - \put(0,0){\line(5,3){136}}% %bond 4-3 - }{{\thicklines% - \dottedline{20}(0,0)(136,81)}}% - \fi% - \else% - \ifx\ccc\empty% - \@ifundefined{dottedline}{% - \put(35,21){\line(5,3){138}}% %bond 4-3 - }{{\thicklines% - \dottedline{20}(35,21)(171,103)}}% - \else% - \@ifundefined{dottedline}{% - \put(35,21){\line(5,3){100}}% %bond 4-3 - }{{\thicklines% - \dottedline{20}(35,21)(136,81)}}% - \fi% - \fi}% -\def\dotskbondd{% - \ifx\ddd\empty% - \ifx\eee\empty% - \@ifundefined{dottedline}{% - \put(0,0){\line(-5,3){171}}% %bond 4-5 - }{{\thicklines% - \dottedline{20}(0,0)(-171,103)}}% - \else% - \@ifundefined{dottedline}{% - \put(0,0){\line(-5,3){136}}% %bond 4-5 - }{{\thicklines% - \dottedline{20}(0,0)(-136,81)}}% - \fi% - \else% - \ifx\eee\empty% - \@ifundefined{dottedline}{% - \put(-35,21){\line(-5,3){138}}% %bond 4-5 - }{{\thicklines% - \dottedline{20}(-35,21)(-171,103)}}% - \else% - \@ifundefined{dottedline}{% - \put(-35,21){\line(-5,3){100}}% %bond 4-5 - }{{\thicklines% - \dottedline{20}(-35,21)(-136,81)}}% - \fi% - \fi}% -\def\dotskbonde{% - \ifx\eee\empty% - \ifx\fff\empty% - \@ifundefined{dottedline}{% - \put(-171,103){\line(0,1){200}}% %bond 5-6 - }{{\thicklines% - \dottedline{20}(-171,103)(-171,303)}}% - \else% - \@ifundefined{dottedline}{% - \put(-171,103){\line(0,1){150}}% %bond 5-6 - }{{\thicklines% - \dottedline{20}(-171,103)(-171,253)}}% - \fi% - \else% - \ifx\fff\empty% - \@ifundefined{dottedline}{% - \put(-171,143){\line(0,1){160}}% %bond 5-6 - }{{\thicklines% - \dottedline{20}(-171,143)(-171,303)}}% - \else% - \@ifundefined{dottedline}{% - \put(-171,143){\line(0,1){110}}% %bond 5-6 - }{{\thicklines% - \dottedline{20}(-171,143)(-171,253)}}% - \fi% - \fi}% -\def\dotskbondf{% - \ifx\aaa\empty% - \ifx\fff\empty% - \@ifundefined{dottedline}{% - \put(0,406){\line(-5,-3){171}}% %bond 1-6 - }{{\thicklines% - \dottedline{20}(0,406)(-171,303)}}% - \else% - \@ifundefined{dottedline}{% - \put(0,406){\line(-5,-3){136}}% %bond 1-6 - }{{\thicklines% - \dottedline{20}(0,406)(-136,325)}}% - \fi% - \else% - \ifx\fff\empty% - \@ifundefined{dottedline}{% - \put(-35,385){\line(-5,-3){136}}% %bond 1-6 - }{{\thicklines% - \dottedline{20}(-35,385)(-171,303)}}% - \else% - \@ifundefined{dottedline}{% - \put(-35,385){\line(-5,-3){100}}% %bond 1-6 - }{{\thicklines% - \dottedline{20}(-35,385)(-136,325)}}% - \fi% - \fi}% -\def\dotskbondhoriz{% - \ifx\fff\empty% - \ifx\bbb\empty% - \@ifundefined{dottedline}{% - \put(-171,303){\line(1,0){342}}% %bond 4-3 - }{{\thicklines% - \dottedline{20}(-171,303)(171,303)}}% - \else% - \@ifundefined{dottedline}{% - \put(-171,303){\line(1,0){300}}% %bond 4-3 - }{{\thicklines% - \dottedline{20}(-171,303)(129,303)}}% - \fi% - \else% - \ifx\bbb\empty% - \@ifundefined{dottedline}{% - \put(171,303){\line(-1,0){300}}% %bond 4-3 - }{{\thicklines% - \dottedline{20}(171,303)(-129,303)}}% - \else% - \@ifundefined{dottedline}{% - \put(-129,303){\line(1,0){258}}% %bond 4-3 - }{{\thicklines% - \dottedline{20}(-129,303)(129,303)}}% - \fi% - \fi}% -\def\dotskbondhorizi{% - \ifx\eee\empty% - \ifx\ccc\empty% - \@ifundefined{dottedline}{% - \put(-171,103){\line(1,0){342}}% %bond 4-3 - }{{\thicklines% - \dottedline{20}(-171,103)(171,103)}}% - \else% - \@ifundefined{dottedline}{% - \put(-171,103){\line(1,0){300}}% %bond 4-3 - }{{\thicklines% - \dottedline{20}(-171,103)(129,103)}}% - \fi% - \else% - \ifx\ccc\empty% - \@ifundefined{dottedline}{% - \put(171,103){\line(-1,0){300}}% %bond 4-3 - }{{\thicklines% - \dottedline{20}(171,103)(-129,103)}}% - \else% - \@ifundefined{dottedline}{% - \put(-129,103){\line(1,0){258}}% %bond 4-3 - }{{\thicklines% - \dottedline{20}(-129,103)(129,103)}}% - \fi% - \fi}% -\newif\if@skbondlist -\@skbondlistfalse -\def\set@skel@bond#1#2#3{% - \expandafter\if\csname @#2#2#2\endcsname #2\relax%OK - % \if\@aaa #2\relax%OK - \@skbondlistfalse - \@tfor\member:=#1\do{% - \expandafter\twoCH@@R\member//% - \if\@@tmpa #2\relax% - \if\@@tmpb A\relax% - \expandafter\csname dotskbond#3\endcsname% \dotskbonda etc. - \@skbondlisttrue - \else\if\@@tmpb B\relax% - {\thicklines - \expandafter\csname skbond#3\endcsname% \skbonda etc. - }% - \@skbondlisttrue - \fi\fi - \fi% - }% - \if@skbondlist\else - {\thinlines - \expandafter\csname skbond#3\endcsname% \skbonda etc. - }% - \fi% - \else - \expandafter\ifx\csname @#2#2#2\endcsname \empty\relax% - % \ifx\@aaa\empty\relax - \@tfor\member:=#1\do{% - \expandafter\twoCH@@R\member//% - \if\@@tmpa #2\relax% - \XyMTeXWarning{Unavailable bond `#2' in SKBONDLIST}\fi - }% - \fi\fi -}% end of \set@skel@bond -\def\set@skel@longbond#1#2#3{% - \expandafter\if\csname @#2#2#2\endcsname #2\relax%OK - % \if\@aaa #2\relax%OK - \@skbondlistfalse - \@tfor\member:=#1\do{% - \expandafter\twoCH@@R\member//% - \if\@@tmpa #2\relax% - \if\@@tmpb A\relax% - \expandafter\csname dot#3\endcsname% \dotskbonda etc. - \@skbondlisttrue - \else\if\@@tmpb B\relax% - {\thicklines - \expandafter\csname #3\endcsname% \skbonda etc. - }% - \@skbondlisttrue - \fi\fi - \fi% - }% - \if@skbondlist\else - {\thinlines - \expandafter\csname #3\endcsname% \skbonda etc. - }% - \fi% - \else - \expandafter\ifx\csname @#2#2#2\endcsname \empty\relax% - % \ifx\@aaa\empty\relax - \@tfor\member:=#1\do{% - \expandafter\twoCH@@R\member//% - \if\@@tmpa #2\relax% - \XyMTeXWarning{Unavailable bond `#2' in SKBONDLIST}\fi - }% - \fi\fi -}% end of \set@skel@longbond -\def\@bond@@omit#1{% -\@tfor\memBer:=#1\do{% -\if\memBer a\relax\gdef\@aaa{}\fi% -\if\memBer A\relax\gdef\@aaa{}\fi% -\if\memBer b\relax\gdef\@bbb{}\fi% -\if\memBer B\relax\gdef\@bbb{}\fi% -\if\memBer c\relax\gdef\@ccc{}\fi% -\if\memBer C\relax\gdef\@ccc{}\fi% -\if\memBer d\relax\gdef\@ddd{}\fi% -\if\memBer D\relax\gdef\@ddd{}\fi% -\if\memBer e\relax\gdef\@eee{}\fi% -\if\memBer E\relax\gdef\@eee{}\fi% -\if\memBer f\relax\gdef\@fff{}\fi% -\if\memBer F\relax\gdef\@fff{}\fi% -\if\memBer g\relax\gdef\@ggg{}\fi% -\if\memBer G\relax\gdef\@ggg{}\fi% -\if\memBer h\relax\gdef\@hhh{}\fi% -\if\memBer H\relax\gdef\@hhh{}\fi% -\if\memBer i\relax\gdef\@iii{}\fi% -\if\memBer I\relax\gdef\@iii{}\fi% -\if\memBer j\relax\gdef\@jjj{}\fi% -\if\memBer J\relax\gdef\@jjj{}\fi% -\if\memBer k\relax\gdef\@kkk{}\fi% -\if\memBer K\relax\gdef\@kkk{}\fi% -}}% -\def\sixheterov{\@ifnextchar({\@six@heterov(@}{\@six@heterov(@)}} -\def\@six@heterov(#1){\@ifnextchar[{\@six@@heterov(#1)[@}% -{\@six@@heterov(#1)[@]}} -\def\@six@@heterov(#1)[#2]#3#4{\@ifnextchar[% -{\@sixheterov(#1)[#2]{#3}{#4}[@}% -{\@sixheterov(#1)[#2]{#3}{#4}[@]}} -\def\@sixheterov(#1)[#2]#3#4[#5]{% -\iniatom\iniflag%initialize -\test@vertix@sixv{#3}{a}{b}{c}{d}{e}{f}% -\@reset@ylsw% -\ylposition{#4}{0}{0}{7}{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}(800,880)(-\shiftii,-\shifti) - \iforigpt \put(-\shiftii,-\shifti){\circle*{50}}% - \put(-\noshift,-\noshift){\circle{50}}% - \typeout{command `sixheterov' origin: % - (\the\noshift,\the\noshift) ---> (\the\shiftii,\the\shifti)}\fi% -\fi -{% -\resetbdsw% -\@bond@@omit{#5}% -\set@skel@bond{#1}{a}{a}% bond between 1 and 2 \@aaa -> \skbonda etc -\set@skel@bond{#1}{b}{b}% bond between 2 and 3 \@bbb -> \skbondb etc -\set@skel@bond{#1}{c}{c}% bond between 3 and 4 \@ccc -> \skbondc etc -\set@skel@bond{#1}{d}{d}% bond between 4 and 5 \@ddd -> \skbondd etc -\set@skel@bond{#1}{e}{e}% bond between 5 and 6 \@eee -> \skbonde etc -\set@skel@bond{#1}{f}{f}% bond between 6 and 1 \@fff -> \skbondf etc -}% -%%%%%\set@outskel@sixv % replaced by above 1998/12/30 -\@tfor\member:=#2\do{% -\if\member r\relax \bondd \bondf \bondb% -\else\if\member l\relax \bonda \bondc \bonde% -\else\if\member a\relax \bonda% -\else\if\member b\relax \bondb% -\else\if\member c\relax \bondc% -\else\if\member d\relax \bondd% -\else\if\member e\relax \bonde% -\else\if\member f\relax \bondf% -\else\if\member A%left aromatic circle - \put(0,203){\circle{240}}% %circle -\else \expandafter\twoCH@@R\member//% - \set@fusionadd@sixv -\fi\fi\fi\fi\fi\fi\fi\fi\fi% -}% -\set@hetatom@sixv{#3}{0}{0}{7}{0}% %atom 1--6% -\setsixringv{#4}{0}{0}{7}{0}% %subst 1--6 -\end{picture}\iniatom\iniflag}% %end of \sixheterov macro -\def\sixheterovi{\@ifnextchar({\@six@heterovi(@}{\@six@heterovi(@)}} -\def\@six@heterovi(#1){\@ifnextchar[{\@six@@heterovi(#1)[@}% -{\@six@@heterovi(#1)[@]}} -\def\@six@@heterovi(#1)[#2]#3#4{\@ifnextchar[% -{\@sixheterovi(#1)[#2]{#3}{#4}[@}% -{\@sixheterovi(#1)[#2]{#3}{#4}[@]}} -\def\@sixheterovi(#1)[#2]#3#4[#5]{% -\iniatom\iniflag%initialize -\test@vertix@sixv{#3}{d}{c}{b}{a}{f}{e}% -\@reset@ylsw% -\ylposition{#4}{5}{0}{5}{-1}% %subst 1--4 -\ylposition{#4}{11}{4}{7}{-1}% %subst 5 and 6 -\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}(800,880)(-\shiftii,-\shifti) - \iforigpt \put(-\shiftii,-\shifti){\circle*{50}}% - \put(-\noshift,-\noshift){\circle{50}}% - \typeout{command `sixheterovi' origin: % - (\the\noshift,\the\noshift) ---> (\the\shiftii,\the\shifti)}\fi% -\fi -{\resetbdsw% -\@bond@@omit{#5}% -\set@skel@bond{#1}{a}{c}% bond between 1 and 2 \@aaa -> \skbondc etc -\set@skel@bond{#1}{b}{b}% bond between 2 and 3 \@bbb -> \skbondb etc -\set@skel@bond{#1}{c}{a}% bond between 3 and 4 \@ccc -> \skbonda etc -\set@skel@bond{#1}{d}{f}% bond between 4 and 5 \@ddd -> \skbondf etc -\set@skel@bond{#1}{e}{e}% bond between 5 and 6 \@eee -> \skbonde etc -\set@skel@bond{#1}{f}{d}% bond between 6 and 1 \@fff -> \skbondd etc -}% -%%%\set@outskel@sixv% replaced by the above 1998/12/30 -\@tfor\member:=#2\do{% -\if\member r\relax \bondd \bondf \bondb% -\else\if\member l\relax \bonda \bondc \bonde% -\else\if\member a\relax \bondc% -\else\if\member b\relax \bondb% -\else\if\member c\relax \bonda% -\else\if\member d\relax \bondf% -\else\if\member e\relax \bonde% -\else\if\member f\relax \bondd% -\else\if\member A%left aromatic circle - \put(0,203){\circle{240}}% %circle -\else \expandafter\twoCH@@R\member//% - \set@fusionadd@sixvi -\fi\fi\fi\fi\fi\fi\fi\fi\fi% -}% -\set@hetatom@sixv{#3}{5}{0}{5}{-1}% %atom 1--4% -\set@hetatom@sixv{#3}{11}{4}{7}{-1}% %atom 5 and 6% -\setsixringv{#4}{5}{0}{5}{-1}% %subst 1--4 -\setsixringv{#4}{11}{4}{7}{-1}% %subst 5 and 6 -\end{picture}\iniatom\iniflag}% %end of \sixheterovi macro -\def\pyridinev{\@ifnextchar[{\@pyridinev[@}{\@pyridinev[r]}} -\def\@pyridinev[#1]#2{% -\iforigpt \typeout{command `pyridinev' % - is based on `sixheterov'.}\fi% -\sixheterov[#1]{1==N}{#2}}%end of \pyridinev macro -\def\pyridinevi{\@ifnextchar[{\@pyridinevi[@}{\@pyridinevi[r]}} -\def\@pyridinevi[#1]#2{% -\iforigpt \typeout{command `pyridinevi' % - is based on `sixheterovi'.}\fi% -\sixheterovi[#1]{1==N}{#2}}%end of \pyridinevi macro -\def\pyrazinev{\@ifnextchar[{\@pyrazinev[@}{\@pyrazinev[r]}} -\def\@pyrazinev[#1]#2{% -\iforigpt \typeout{command `pyrazinev' % - is based on `sixheterov'.}\fi% -\sixheterov[#1]{1==N;4==N}{#2}}%end of \pyrazinev macro -\def\pyrazinevi{\@ifnextchar[{\@pyrazinevi[@}{\@pyrazinevi[r]}} -\def\@pyrazinevi[#1]#2{% -\iforigpt \typeout{command `pyrazinevi' % - is based on `sixheterovi'.}\fi% -\sixheterovi[#1]{1==N;4==N}{#2}}%end of \pyrazinevi macro -\def\pyrimidinev{\@ifnextchar[{\@pyrimidinev[@}{\@pyrimidinev[r]}} -\def\@pyrimidinev[#1]#2{% -\iforigpt \typeout{command `pyrimidinev' % - is based on `sixheterov'.}\fi% -\sixheterov[#1]{1==N;3==N}{#2}}%end of \pyrimidinev macro -\def\pyrimidinevi{\@ifnextchar[{\@pyrimidinevi[@}{\@pyrimidinevi[r]}} -\def\@pyrimidinevi[#1]#2{% -\iforigpt \typeout{command `pyrimidinevi' % - is based on `sixheterovi'.}\fi% -\sixheterovi[#1]{1==N;3==N}{#2}}%end of \pyrimidinevi macro -\def\pyridazinev{\@ifnextchar[{\@pyridazinev[@}{\@pyridazinev[r]}} -\def\@pyridazinev[#1]#2{% -\iforigpt \typeout{command `pyridazinev' % - is based on `sixheterov'.}\fi% -\sixheterov[#1]{1==N;2==N}{#2}}%end of \pyridazinev macro -\def\pyridazinevi{\@ifnextchar[{\@pyridazinevi[@}{\@pyridazinevi[r]}} -\def\@pyridazinevi[#1]#2{% -\iforigpt \typeout{command `pyridazinev' % - is based on `sixheterovi'.}\fi% -\sixheterovi[#1]{1==N;2==N}{#2}}%end of \pyridazinevi macro -\def\triazinev{\@ifnextchar[{\@triazinev[@}{\@triazinev[r]}} -\def\@triazinev[#1]#2{% -\iforigpt \typeout{command `triazinev' % - is based on `sixheterov'.}\fi% -\sixheterov[#1]{1==N;3==N;5==N}{#2}}%end of \triazinev macro -\def\triazinevi{\@ifnextchar[{\@triazinevi[@}{\@triazinevi[r]}} -\def\@triazinevi[#1]#2{% -\iforigpt \typeout{command `triazinevi' % - is based on `sixheterovi'.}\fi% -\sixheterovi[#1]{1==N;3==N;5==N}{#2}}%end of \triazinevi macro -\def\fiveheterov{\@ifnextchar({\@five@heterov(@}{\@five@heterov(@)}} -\def\@five@heterov(#1){\@ifnextchar[{\@five@@heterov(#1)[@}% -{\@five@@heterov(#1)[@]}} -\def\@five@@heterov(#1)[#2]#3#4{\@ifnextchar[% -{\@fiveheterov(#1)[#2]{#3}{#4}[@}% -{\@fiveheterov(#1)[#2]{#3}{#4}[@]}} -\def\@fiveheterov(#1)[#2]#3#4[#5]{% -\iniatom\iniflag%initialize -\test@vertix@sixv{#3}{d}{c}{b}{f}{e}{a}% -\@reset@ylsw% -\ylposition{#4}{5}{1}{5}{-1}% % for 1 to 3 -\ylposition{#4}{10}{4}{7}{-1}% % for 4 to 5 -\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}(800,880)(-\shiftii,-\shifti)% - \iforigpt \put(-\shiftii,-\shifti){\circle*{50}}% - \put(-\noshift,-\noshift){\circle{50}}% - \typeout{command `fiveheterov' origin: % - (\the\noshift,\the\noshift) ---> (\the\shiftii,\the\shifti)}\fi% -\fi -{\resetbdsw% -\@bond@@omit{#5}% -\set@skel@bond{#1}{a}{c}% bond between 1 and 2 \@aaa -> \skbondc etc -\set@skel@bond{#1}{b}{b}% bond between 2 and 3 \@bbb -> \skbondb etc -\set@skel@longbond{#1}{c}{skbondhoriz}% - % bond between 3 and 4 \@ccc -> \skbondhoriz etc -\set@skel@bond{#1}{d}{e}% bond between 4 and 5 \@ddd -> \skbonde etc -\set@skel@bond{#1}{e}{d}% bond between 5 and 1 \@eee -> \skbondd etc -}% -\@tfor\member:=#2\do{% -\if\member r% -\else\if\member a\relax \bondc% -\else\if\member b\relax \bondb% -\else\if\member c\relax \bondhoriz% -\else\if\member d\relax \bonde% -\else\if\member e\relax \bondd% -\else\if\member A\relax% - \put(0,173){\circle{180}}%aromatic circle -\else - \expandafter\twoCH@@R\member//% - \set@fusionadd@fivev -\fi\fi\fi\fi\fi\fi\fi}% -\set@hetatom@sixv{#3}{5}{1}{5}{-1}% % for 1 to 3 -\set@hetatom@sixv{#3}{10}{4}{7}{-1}% % for 4 to 5 -\setsixringv{#4}{5}{1}{5}{-1}% % for 1 to 3 -\setsixringv{#4}{10}{4}{7}{-1}% % for 4 to 5 -\end{picture}\iniatom\iniflag}% end of \fiveheterov macro -\def\fiveheterovi{\@ifnextchar({\@five@heterovi(@}{\@five@heterovi(@)}} -\def\@five@heterovi(#1){\@ifnextchar[{\@five@@heterovi(#1)[@}% -{\@five@@heterovi(#1)[@]}} -\def\@five@@heterovi(#1)[#2]#3#4{\@ifnextchar[% -{\@fiveheterovi(#1)[#2]{#3}{#4}[@}% -{\@fiveheterovi(#1)[#2]{#3}{#4}[@]}} -\def\@fiveheterovi(#1)[#2]#3#4[#5]{% -\iniatom\iniflag%initialize -\test@vertix@sixv{#3}{a}{b}{c}{e}{f}{d}% d -- dummy -\@reset@ylsw% -\ylposition{#4}{0}{0}{4}{0}% % for 1 to 3 -\ylposition{#4}{1}{4}{7}{0}% % for 4 to 5 -\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}(800,880)(-\shiftii,-\shifti)% - \iforigpt \put(-\shiftii,-\shifti){\circle*{50}}% - \put(-\noshift,-\noshift){\circle{50}}% - \typeout{command `fiveheterovi' origin: % - (\the\noshift,\the\noshift) ---> (\the\shiftii,\the\shifti)}\fi% -\fi -{\resetbdsw% -\@bond@@omit{#5}% -\set@skel@bond{#1}{a}{a}% bond between 1 and 2 \@aaa -> \skbonda etc -\set@skel@bond{#1}{b}{b}% bond between 2 and 3 \@bbb -> \skbondb etc -\set@skel@longbond{#1}{c}{skbondhorizi}% - % bond between 3 and 4 \@ccc -> \skbondhorizi etc -\set@skel@bond{#1}{d}{e}% bond between 4 and 5 \@ddd -> \skbonde etc -\set@skel@bond{#1}{e}{f}% bond between 5 and 6 \@eee -> \skbondf etc -}% -\@tfor\member:=#2\do{% -\if\member r% -\else\if\member a\relax \bonda% -\else\if\member b\relax \bondb% -\else\if\member c\relax \bondhorizi% -\else\if\member d\relax \bonde% -\else\if\member e\relax \bondf% -\else\if\member A\relax% - \put(0,233){\circle{180}}%aromatic circle -\else - \expandafter\twoCH@@R\member//% - \set@fusionadd@fivevi -\fi\fi\fi\fi\fi\fi\fi}% -\set@hetatom@sixv{#3}{0}{0}{4}{0}% % for 1 to 3 -\set@hetatom@sixv{#3}{1}{4}{7}{0}% % for 4 to 5 -\setsixringv{#4}{0}{0}{4}{0}% % for 1 to 3 -\setsixringv{#4}{1}{4}{7}{0}% % for 4 to 5 -\end{picture}\iniatom\iniflag}%end of \fiveheterovi macro -\def\pyrrolev{\@ifnextchar[{\@pyrrolev[@}{\@pyrrolev[bd]}} -\def\@pyrrolev[#1]#2{% -\iforigpt \typeout{command `pyrrolev' % - is based on `fiveheterov'.}\fi% -\fiveheterov[#1]{1==N}{#2}} -\def\pyrazolev{\@ifnextchar[{\@pyrazolev[@}{\@pyrazolev[bd]}} -\def\@pyrazolev[#1]#2{% -\iforigpt \typeout{command `pyrazolev' % - is based on `fiveheterov'.}\fi% -\fiveheterov[#1]{1==N;2==N}{#2}} -\def\imidazolev{\@ifnextchar[{\@imidazolev[@}{\@imidazolev[bd]}} -\def\@imidazolev[#1]#2{% -\iforigpt \typeout{command `imidazolev' % - is based on `fiveheterov'.}\fi% -\fiveheterov[#1]{1==N;3==N}{#2}} -\def\isoxazolev{\@ifnextchar[{\@isoxazolev[@}{\@isoxazolev[bd]}} -\def\@isoxazolev[#1]#2{% -\iforigpt \typeout{command `isoxazolev' % - is based on `fiveheterov'.}\fi% -\fiveheterov[#1]{1==O;2==N}{#2}} -\def\oxazolev{\@ifnextchar[{\@oxazolev[@}{\@oxazolev[bd]}} -\def\@oxazolev[#1]#2{% -\iforigpt \typeout{command `oxazolev' % - is based on `fiveheterov'.}\fi% -\fiveheterov[#1]{1==O;3==N}{#2}} -\def\furanv{\@ifnextchar[{\@furanv[@}{\@furanv[bd]}} -\def\@furanv[#1]#2{% -\iforigpt \typeout{command `furanv' % - is based on `fiveheterov'.}\fi% -\fiveheterov[#1]{1==O}{#2}} -\def\thiophenev{\@ifnextchar[{\@thiophenev[@}{\@thiophenev[bd]}} -\def\@thiophenev[#1]#2{% -\iforigpt \typeout{command `thiophenev' % - is based on `fiveheterov'.}\fi% -\fiveheterov[#1]{1==S}{#2}} -\def\pyrrolevi{\@ifnextchar[{\@pyrrolevi[@}{\@pyrrolevi[bd]}} -\def\@pyrrolevi[#1]#2{% -\iforigpt \typeout{command `pyrrolevi' % - is based on `fiveheterovi'.}\fi% -\fiveheterovi[#1]{1==N}{#2}} -\def\pyrazolevi{\@ifnextchar[{\@pyrazolevi[@}{\@pyrazolevi[bd]}} -\def\@pyrazolevi[#1]#2{% -\iforigpt \typeout{command `pyrazolevi' % - is based on `fiveheterovi'.}\fi% -\fiveheterovi[#1]{1==N;2==N}{#2}} -\def\imidazolevi{\@ifnextchar[{\@imidazolevi[@}{\@imidazolevi[bd]}} -\def\@imidazolevi[#1]#2{% -\iforigpt \typeout{command `imidazolevi' % - is based on `fiveheterovi'.}\fi% -\fiveheterovi[#1]{1==N;3==N}{#2}} -\def\isoxazolevi{\@ifnextchar[{\@isoxazolevi[@}{\@isoxazolevi[bd]}} -\def\@isoxazolevi[#1]#2{% -\iforigpt \typeout{command `isoxazolevi' % - is based on `fiveheterovi'.}\fi% -\fiveheterovi[#1]{1==O;2==N}{#2}} -\def\oxazolevi{\@ifnextchar[{\@oxazolevi[@}{\@oxazolevi[bd]}} -\def\@oxazolevi[#1]#2{% -\iforigpt \typeout{command `oxazolevi' % - is based on `fiveheterovi'.}\fi% -\fiveheterovi[#1]{1==O;3==N}{#2}} -\def\furanvi{\@ifnextchar[{\@furanvi[@}{\@furanvi[bd]}} -\def\@furanvi[#1]#2{% -\iforigpt \typeout{command `furanvi' % - is based on `fiveheterovi'.}\fi% -\fiveheterovi[#1]{1==O}{#2}} -\def\thiophenevi{\@ifnextchar[{\@thiophenevi[@}{\@thiophenevi[bd]}} -\def\@thiophenevi[#1]#2{% -\iforigpt \typeout{command `thiophenevi' % - is based on `fiveheterovi'.}\fi% -\fiveheterovi[#1]{1==S}{#2}} -\def\decaheterov{\@ifnextchar({\@deca@heterov(@}{\@deca@heterov(@)}} -\def\@deca@heterov(#1){\@ifnextchar[{\@deca@@heterov(#1)[@}% -{\@deca@@heterov(#1)[@]}} -\def\@deca@@heterov(#1)[#2]#3#4{\@ifnextchar[% -{\@decaheterov(#1)[#2]{#3}{#4}[@}% -{\@decaheterov(#1)[#2]{#3}{#4}[@]}} -\def\@decaheterov(#1)[#2]#3#4[#5]{% -\iniflag\iniatom% -\test@vertix@sixv{#3}{a}{b}{c}{d}{e}{f}% -\test@vertix@decav{#3}{g}{h}{i}{j}{@}{@}% -\@reset@ylsw% -\ylhetposition{#4}{0}{0}{5}{0}% %substituents on 1 to 4 -\if@ylsw \ifx\@@ylii\empty -\def\@@ylii{-342}\def\@@yli{0}\fi -\else -\ylhetposition{#4}{-1}{3}{7}{0}% %substituents on 5 to 7 -\fi -\if@ylsw \ifx\@@ylii\empty -\def\@@ylii{0}\def\@@yli{0}\fi -\else -\ylhetposition{#4}{-7}{0}{2}{0}% %substituent on 8 -\fi -\if@ylsw \ifx\@@ylii\empty -\def\@@ylii{0}\def\@@yli{0}\fi -\else -{% -\clipdetection% -\@clipfusefalse \if@iclip \@clipfusetrue \fi% -\ylatombondposition{#4}{-8}{7}% %9 %for 4a position -}% -\fi -\if@ylsw \ifx\@@ylii\empty -\def\@@ylii{-171}\def\@@yli{-103}\fi -\else -{% -\clipdetection% -\@clipfusefalse \if@jclip \@clipfusetrue \fi% -\ylatombondposition{#4}{-9}{1}% %10 for 8a position -}% -\fi -\if@ylsw \ifx\@@ylii\empty -\def\@@ylii{-171}\def\@@yli{-303}\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}(1200,880)(-\shiftii,-\shifti)% - \iforigpt \put(-\shiftii,-\shifti){\circle*{50}}% - \put(-\noshift,-\noshift){\circle{50}}% - \typeout{command `decaheterov' origin: % - (\the\noshift,\the\noshift) ---> (\the\shiftii,\the\shifti)}\fi% -\fi -\begingroup -\resetbdsw% -\@bond@@omit{#5}% -{\let\fff=\jjj \let\eee=\iii% -\put(342,0){\set@skel@bond{#1}{a}{a}}% - % bond between 1 and 2 \@aaa -> \skbonda etc -\put(342,0){\set@skel@bond{#1}{b}{b}}% - % bond between 2 and 3 \@bbb -> \skbondb etc -\put(342,0){\set@skel@bond{#1}{c}{c}}% - % bond between 3 and 4 \@ccc -> \skbondc etc -\put(342,0){\set@skel@bond{#1}{d}{d}}% - % bond between 4 and 4a \@ddd -> \skbondd etc -\put(342,0){\set@skel@bond{#1}{k}{e}}% - % bond between 4a and 8a \@kkk -> \skbonde etc -\put(342,0){\set@skel@bond{#1}{j}{f}}% - % bond between 8a and 1 \@jjj -> \skbondf etc -}% -{\let\aaa=\hhh \let\ddd=\eee\let\eee=\fff\let\fff=\ggg% - \let\ccc=\iii\let\bbb=\jjj% -\set@skel@bond{#1}{i}{a}% bond between 8 and 8a \@iii -> \skbonda etc -\set@skel@bond{#1}{e}{c}% bond between 5 and 4a \@eee -> \skbondc etc -\set@skel@bond{#1}{f}{d}% bond between 5 and 6 \@fff -> \skbondd etc -\set@skel@bond{#1}{g}{e}% bond between 6 and 7 \@ggg -> \skbonde etc -\set@skel@bond{#1}{h}{f}% bond between 7 and 8 \@hhh -> \skbondf etc -}% -\endgroup -\@tfor\member:=#2\do{% -\if\member r\relax% -{\let\fff=\jjj \let\eee=\iii% - \put(342,0){\bonda}% bond between 1 and 2 - \put(342,0){\bondc}% bond between 3 and 4 -}% -{\let\aaa=\hhh \let\ddd=\eee\let\eee=\fff\let\fff=\ggg% - \let\ccc=\iii\let\bbb=\jjj% - \put(0,0){\bondb}% bond between 8a and 4a - \put(0,0){\bondf}% bond between 8 and 7 - \put(0,0){\bondd}% bond between 5 and 6 -}% -\else\if\member l\relax% -\else\if\member a\relax% - \put(342,0){\bonda}% bond between 1 and 2 -\else\if\member b\relax - \put(342,0){\bondb}% bond between 2 and 3 -\else\if\member c\relax - \put(342,0){\bondc}% bond between 3 and 4 -\else\if\member d\relax% -{\let\eee=\iii% - \put(342,0){\bondd}% bond between 4 and 4a -}% -\else\if\member e\relax% -{\let\ccc=\iii \let\ddd=\eee% - \put(0,0){\bondc}% bond between 5 and 4a -}% -\else\if\member f\relax% -{\let\ddd=\eee \let\eee=\fff% - \put(0,0){\bondd}% bond between 5 and 6 -}% -\else\if\member g\relax% -{\let\eee=\fff \let\fff=\ggg% - \put(0,0){\bonde}% bond between 6 and 7 -}% -\else\if\member h\relax% -{\let\aaa=\hhh \let\fff=\ggg% - \put(0,0){\bondf}% bond between 8 and 7 -}% -\else\if\member i\relax% -{\let\aaa=\hhh \let\bbb=\jjj% - \put(0,0){\bonda}% bond between 8 and 8a -}% -\else\if\member j\relax% -{\let\fff=\jjj% - \put(342,0){\bondf}% bond between 1 and 8a -}% -\else\if\member k\relax% -{\let\ccc=\iii\let\bbb=\jjj% - \put(0,0){\bondb}% bond between 8a and 4a -}% -\else\if\member K\relax% -{\let\eee=\iii\let\fff=\jjj% - \put(342,0){\bonde}% bond between 8a and 4a in the other ring -}% -\else\if\member A%left aromatic circle - \put(0,203){\circle{240}} %circle -\else\if\member B%left aromatic circle - \put(342,203){\circle{240}} %circle -\else - \expandafter\twoCH@@R\member// - \def\aax{8a}\def\aay{4a}\def\aaz{10}% - \if\@@tmpa 1\relax% % plus charge etc. - \putratom{304}{282}{\@@tmpb}% % right type - \else\if\@@tmpa 2\relax% - \putratom{402}{253}{\@@tmpb}% % right type - \else\if\@@tmpa 3\relax% - \putratom{402}{120}{\@@tmpb}% % right type - \else\if\@@tmpa 4\relax% - \putratom{304}{68}{\@@tmpb}% % right type - \else\if\@@tmpa 5\relax% - \putratom{-38}{68}{\@@tmpb}% % right type - \else\if\@@tmpa 6\relax% - \putlatom{-60}{253}{\@@tmpb}% % left type - \else\if\@@tmpa 7\relax% - \putlatom{-60}{120}{\@@tmpb}% % left type - \else\if\@@tmpa 8\relax% - \putratom{-38}{282}{\@@tmpb}% % right type - \else\if\@@tmpa 9\relax% - \putratom{60}{120}{\@@tmpb}% % right type - \else\ifx\@@tmpa\aaz\relax%1998/10/17 - \putratom{60}{253}{\@@tmpb}% % right type - \else\ifx\@@tmpa\aax\relax% - \putratom{60}{253}{\@@tmpb}% % right type - \else\ifx\@@tmpa\aay\relax% - \putratom{60}{120}{\@@tmpb}% % right type - \fi\fi\fi\fi\fi\fi\fi\fi\fi\fi\fi\fi% - \expandafter\twoCH@R\member//% - \set@fusion@decav -\fi\fi\fi\fi\fi\fi\fi\fi\fi\fi% -\fi\fi\fi\fi\fi\fi% -}% -\iniflag -\put(342,0){\set@hetatom@sixv{#3}{0}{0}{5}{0}% - \if@aclip \global\@acliptrue\fi - \if@bclip \global\@bcliptrue\fi - \if@cclip \global\@ccliptrue\fi - \if@clip \global\@cliptrue\fi}% %substituents on 1 to 4 -\put(0,0){\iniflag%2000/11/11 by S. Fujita - \set@hetatom@sixv{#3}{-1}{3}{7}{0}% - \@gclipfalse \if@fclip \global\@gcliptrue \fi% - \@fclipfalse \if@eclip \global\@fcliptrue \fi% - \@eclipfalse \if@clip \global\@ecliptrue \fi}%substituents on 5 to 7 -\put(0,0){\iniflag%2000/11/11 by S. Fujita - \set@hetatom@sixv{#3}{-7}{0}{2}{0}% - \@hclipfalse \if@aclip \global\@hcliptrue \fi}%%substituent on 8 -\put(0,0){\set@vrtx@fuse{#3}% - \if@iclip \global\@icliptrue \fi - \if@jclip \global\@jcliptrue \fi}% fused positions -\put(342,0){\setsixringv{#4}{0}{0}{5}{0}}% %substituents on 1 to 4 -{% - \@clipfalse \if@eclip \@cliptrue \fi% %substituents on 5 to 7 - \@eclipfalse \if@fclip \@ecliptrue \fi% - \@fclipfalse \if@gclip \@fcliptrue \fi% -\put(0,0){\setsixringv{#4}{-1}{3}{7}{0}}% -}% -{\@aclipfalse \if@hclip \@acliptrue \fi% %substituent on 8 -\put(0,0){\setsixringv{#4}{-7}{0}{2}{0}}% -}% -{\@clipfusefalse \if@iclip \@clipfusetrue \fi% - \put(171,103){\setatombond{#4}{-8}{7}}% %9 %for 4a position -}% -{\@clipfusefalse \if@jclip \@clipfusetrue \fi% - \put(171,303){\setatombond{#4}{-9}{1}}% %10 for 8a position -}% -\end{picture}\iniatom\iniflag}% %end of \decaheterov macro -\def\clipdetection{% -\ifx\aaa\empty\else% - \@acliptrue% -\fi% -\ifx\bbb\empty\else% - \@bcliptrue% -\fi% -\ifx\ccc\empty\else% - \@ccliptrue% -\fi% -\ifx\ddd\empty\else% - \@cliptrue% -\fi% -{\let\eee=\iii% -\ifx\eee\empty\else% - \global\@icliptrue% -\fi% -}% -{\let\fff=\jjj% -\ifx\fff\empty\else% - \global\@jcliptrue% -\fi% -}% -{\let\ddd=\eee% -\ifx\ddd\empty\else - \global\@ecliptrue% -\fi% -}% -{\let\eee=\fff% -\ifx\eee\empty\else% - \global\@fcliptrue% -\fi% -}% -{\let\fff=\ggg% -\ifx\fff\empty\else% - \global\@gcliptrue% -\fi% -}% -{\let\aaa=\hhh% -\ifx\aaa\empty\else% - \global\@hcliptrue% -\fi% -}}% end \clipdetection -\def\ylhetposition#1#2#3#4#5{% -\@@ylswfalse%%%\@reset@ylsw -\@forsemicol\member:=#1\do{% -\if@@ylsw\else% -\ifx\member\empty\else% -\expandafter\@m@mb@r\member;\relax% -\expandafter\threech@r\@membera{}{}\relax% -\ifx\@memberb\@yl\relax\@@ylswtrue\else\@@ylswfalse\fi -\if@@ylsw -\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%0 omit - \or - \ifx\aaa\empty - \ifx\hhh\empty% aaa and hhh are absent - \gdef\@ylii{0}\gdef\@yli{-406}\global\@ylswtrue%\@ylatrue% subst. on 1 - \else% hhh is present - \def\@ylii{0}\def\@yli{-442}\@ylswtrue%\@ylatrue% subst. on 1 - \fi - \else%aaa is present - \def\@ylii{0}\def\@yli{-442}\@ylswtrue%\@ylatrue% subst. on 1 - \fi - \or\ifx\bbb\empty - \def\@ylii{-171}\def\@yli{-303}\@ylswtrue%\@ylbtrue% subst. on 2 - \else - \def\@ylii{-213}\def\@yli{-327}\@ylswtrue%\@ylbtrue% subst. on 2 - \fi - \or\ifx\ccc\empty - \def\@ylii{-171}\def\@yli{-103}\@ylswtrue%\@ylctrue% subst. on 3 - \else - \def\@ylii{-213}\def\@yli{-79}\@ylswtrue%\@ylctrue% subst. on 3 - \fi - \or\ifx\ddd\empty - \ifx\eee\empty% ddd and eee are absent - \gdef\@ylii{0}\gdef\@yli{0}\global\@ylswtrue%\@yldtrue% subst. on 4 - \else% eee present - \gdef\@ylii{0}\gdef\@yli{36}\global\@ylswtrue%\@yldtrue% subst. on 4 - \fi - \else% ddd present - \gdef\@ylii{0}\gdef\@yli{36}\global\@ylswtrue%\@yldtrue% subst. on 4 - \fi - \or - \ifx\eee\empty - \ifx\iii\empty - \ifx\fff\empty% eee, iii and fff are absent - \def\@ylii{173}\def\@yli{-103}\@ylswtrue%\@yletrue% subst. on 5 - \else% fff is present - \def\@ylii{213}\def\@yli{-79}\@ylswtrue%\@yletrue% subst. on 5 - \fi - \fi - \else% eee is present - \def\@ylii{213}\def\@yli{-79}\@ylswtrue%\@yletrue% subst. on 5 - \fi - \or - \ifx\fff\empty - \ifx\jjj\empty - \ifx\ggg\empty% fff, jjj, and ggg are absent - \def\@ylii{173}\def\@yli{-303}\@ylswtrue%\@ylftrue% subst. on 6 - \else%ggg is present - \def\@ylii{213}\def\@yli{-327}\@ylswtrue%\@ylftrue% subst. on 6 - \fi - \fi - \else%fff is present - \def\@ylii{213}\def\@yli{-327}\@ylswtrue%\@ylftrue% subst. on 6 - \fi% -\fi%end of ifcase -\fi\fi\fi\fi\fi}}% -\def\decaheterovi{\@ifnextchar({\@deca@heterovi(@}{\@deca@heterovi(@)}} -\def\@deca@heterovi(#1){\@ifnextchar[{\@deca@@heterovi(#1)[@}% -{\@deca@@heterovi(#1)[@]}} -\def\@deca@@heterovi(#1)[#2]#3#4{\@ifnextchar[% -{\@decaheterovi(#1)[#2]{#3}{#4}[@}% -{\@decaheterovi(#1)[#2]{#3}{#4}[@]}} -\def\@decaheterovi(#1)[#2]#3#4[#5]{% -\iniflag\iniatom% -%%\test@vertix@sixv{#3}{d}{c}{b}{a}{h}{g}% -%%\test@vertix@decav{#3}{f}{e}{i}{j}{@}{@}%{i}{j} fixed -\test@vertix@decavi{#3}% -\@reset@ylsw% -\ylhetposition{#4}{5}{0}{5}{-1}% %substituents on 1 to 4 -\if@ylsw \ifx\@@ylii\empty -\def\@@ylii{-342}\def\@@yli{0}\fi -\else -\ylhetposition{#4}{12}{3}{7}{-1}% %substituents on 6 to 8 -\fi -\if@ylsw \ifx\@@ylii\empty -\def\@@ylii{0}\def\@@yli{0}\fi -\else -\ylhetposition{#4}{-4}{0}{2}{0}% %substituent on 5 -\fi -\if@ylsw \ifx\@@ylii\empty -\def\@@ylii{0}\def\@@yli{0}\fi -\else -{% -\clipdetection% -\@clipfusefalse \if@iclip \@clipfusetrue \fi% - \ylatombondposition{#4}{-9}{7}% %10 for 8a position -}% -\fi -\if@ylsw \ifx\@@ylii\empty -\def\@@ylii{-171}\def\@@yli{-103}\fi -\else -{% -\clipdetection% -\@clipfusefalse \if@jclip \@clipfusetrue \fi% -\ylatombondposition{#4}{-8}{1}% %9 for 4a position -}% -\fi -\if@ylsw \ifx\@@ylii\empty -\def\@@ylii{-171}\def\@@yli{-303}\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}(1200,880)(-\shiftii,-\shifti)% - \iforigpt \put(-\shiftii,-\shifti){\circle*{50}}% - \put(-\noshift,-\noshift){\circle{50}}% - \typeout{command `decaheterovi' origin: % - (\the\noshift,\the\noshift) ---> (\the\shiftii,\the\shifti)}\fi% -\fi -\begingroup -\resetbdsw% -\@bond@@omit{#5}% -{\let\fff=\jjj \let\eee=\iii% -\put(342,0){\set@skel@bond{#1}{c}{a}}% - % bond between 1 and 2 \@aaa -> \skbonda etc -\put(342,0){\set@skel@bond{#1}{b}{b}}% - % bond between 2 and 3 \@bbb -> \skbondb etc -\put(342,0){\set@skel@bond{#1}{a}{c}}% - % bond between 3 and 4 \@ccc -> \skbondc etc -\put(342,0){\set@skel@bond{#1}{j}{d}}% - % bond between 4 and 4a \@ddd -> \skbondd etc -\put(342,0){\set@skel@bond{#1}{k}{e}}% - % bond between 4a and 8a \@kkk -> \skbonde etc -\put(342,0){\set@skel@bond{#1}{d}{f}}% - % bond between 8a and 1 \@jjj -> \skbondf etc -}% -{\let\aaa=\hhh \let\ddd=\eee\let\eee=\fff\let\fff=\ggg% - \let\ccc=\iii\let\bbb=\jjj% -\set@skel@bond{#1}{e}{a}% bond between 8 and 8a \@eee -> \skbonda etc -\set@skel@bond{#1}{i}{c}% bond between 5 and 4a \@iii -> \skbondc etc -\set@skel@bond{#1}{h}{d}% bond between 5 and 6 \@hhh -> \skbondd etc -\set@skel@bond{#1}{g}{e}% bond between 6 and 7 \@ggg -> \skbonde etc -\set@skel@bond{#1}{f}{f}% bond between 7 and 8 \@fff -> \skbondf etc -}% -\endgroup -\@tfor\member:=#2\do{% -\if\member r\relax% -{\let\fff=\jjj \let\eee=\iii% - \put(342,0){\bonda}% bond between 1 and 2 - \put(342,0){\bondc}% bond between 3 and 4 -}% -{\let\aaa=\hhh \let\ddd=\eee\let\eee=\fff\let\fff=\ggg% - \let\ccc=\iii\let\bbb=\jjj% - \put(0,0){\bondb}% bond between 8a and 4a - \put(0,0){\bondf}% bond between 8 and 7 - \put(0,0){\bondd}% bond between 5 and 6 -}% -\else\if\member l\relax% -\else\if\member a\relax% - \put(342,0){\bondc}% bond between 3 and 4 -\else\if\member b\relax% - \put(342,0){\bondb}% bond between 2 and 3 -\else\if\member c\relax% - \put(342,0){\bonda}% bond between 1 and 2 -\else\if\member d\relax% -{\let\fff=\jjj% - \put(342,0){\bondf}% bond between 1 and 8a -}% -\else\if\member e\relax% -{\let\aaa=\hhh \let\bbb=\jjj% - \put(0,0){\bonda}% bond between 8 and 8a -}% -\else\if\member f\relax% -{\let\aaa=\hhh \let\fff=\ggg% - \put(0,0){\bondf}% bond between 8 and 7 -}% -\else\if\member g\relax% -{\let\eee=\fff \let\fff=\ggg% - \put(0,0){\bonde}% bond between 6 and 7 -}% -\else\if\member h\relax% -{\let\ddd=\eee \let\eee=\fff% - \put(0,0){\bondd}% bond between 5 and 6 -}% -\else\if\member i\relax% -{\let\ccc=\iii \let\ddd=\eee% - \put(0,0){\bondc}% bond between 5 and 4a -}% -\else\if\member j\relax% -{\let\eee=\iii% - \put(342,0){\bondd}% bond between 4 and 4a -}% -\else\if\member k\relax% -{\let\ccc=\iii\let\bbb=\jjj% - \put(0,0){\bondb}% bond between 8a and 4a -}% -\else\if\member K\relax% -{\let\eee=\iii\let\fff=\jjj% - \put(342,0){\bonde}% bond between 8a and 4a in the other ring -}% -\else\if\member A%left aromatic circle - \put(0,203){\circle{240}} %circle -\else\if\member B%left aromatic circle - \put(342,203){\circle{240}} %circle -\else - \expandafter\twoCH@@R\member//% - \def\aax{4a}\def\aay{8a}\def\aaz{10}% - \if\@@tmpa 4\relax% % plus charge etc. - \putratom{304}{282}{\@@tmpb}% % right type - \else\if\@@tmpa 3\relax% - \putratom{402}{253}{\@@tmpb}% % right type - \else\if\@@tmpa 2\relax% - \putratom{402}{120}{\@@tmpb}% % right type - \else\if\@@tmpa 1\relax% - \putratom{304}{68}{\@@tmpb}% % right type - \else\if\@@tmpa 7\relax% - \putlatom{-60}{253}{\@@tmpb}% % left type - \else\if\@@tmpa 6\relax% - \putlatom{-60}{120}{\@@tmpb}% % left type - \else\if\@@tmpa 5\relax% - \putratom{-38}{282}{\@@tmpb}% % right type - \else\if\@@tmpa 9\relax% - \putratom{60}{253}{\@@tmpb}% % right type - \else\ifx\@@tmpa\aax\relax% - \putratom{60}{253}{\@@tmpb}% % right type - \else\ifx\@@tmpa\aay\relax% - \putratom{60}{120}{\@@tmpb}% % right type - \else\ifx\@@tmpa\aaz\relax% 1998/10/17 by S. Fujita - \putratom{60}{120}{\@@tmpb}% % right type - \else\if\@@tmpa 8\relax% - \putratom{-38}{68}{\@@tmpb}% % right type - \fi\fi\fi\fi\fi\fi\fi\fi\fi\fi\fi\fi% - \expandafter\twoCH@R\member//% - \set@fusion@decavi -\fi\fi\fi\fi\fi\fi\fi\fi\fi\fi% -\fi\fi\fi\fi\fi\fi% -}% -\iniflag\iniatom% -\@tmpclipfalse -\put(0,0){\set@hetatom@sixv{#3}{12}{3}{7}{-1}% - \@gclipfalse \if@fclip \global\@gcliptrue \fi% - \@fclipfalse \if@eclip \global\@fcliptrue \fi% - \@eclipfalse \if@clip \global\@ecliptrue \fi% -}%substituents on 6 to 8 -\put(0,0){\set@hetatom@sixv{#3}{-4}{0}{2}{0}% - \@aclipfalse \if@aclip \global\@hcliptrue \fi% -}%%substituent on 5 -\put(0,0){\set@vrtx@decafusevi{#3}% - \@tmpclipfalse - \if@iclip \global\@tmpcliptrue \fi - \if@jclip \global\@icliptrue \fi - \if@tmpclip \global\@jcliptrue \fi -}% fused positions -\put(342,0){\set@hetatom@sixv{#3}{5}{0}{5}{-1}% - \if@aclip \global\@acliptrue\fi - \if@bclip \global\@bcliptrue\fi - \if@cclip \global\@ccliptrue\fi - \if@clip \global\@cliptrue\fi -}% %substituents on 1 to 4 -\put(342,0){\setsixringv{#4}{5}{0}{5}{-1}}% %substituents on 1 to 4 -{\@clipfalse \if@eclip \@cliptrue \fi% %substituents on 6 to 8 - \@eclipfalse \if@fclip \@ecliptrue \fi% - \@fclipfalse \if@gclip \@fcliptrue \fi% -\put(0,0){\setsixringv{#4}{12}{3}{7}{-1}}% -} -{\@aclipfalse \if@hclip \@acliptrue \fi% %substituent on 5 -\put(0,0){\setsixringv{#4}{-4}{0}{2}{0}}% -}% -{\@clipfusefalse \if@iclip \@clipfusetrue \fi% - \put(171,103){\setatombond{#4}{-9}{7}}% %10 for 8a position -}% -{\@clipfusefalse \if@jclip \@clipfusetrue \fi% - \put(171,303){\setatombond{#4}{-8}{1}}% %9 for 4a position -}% -\end{picture}\iniatom\iniflag}% %end of \decaheterovi macro -\newif\if@tmpclip \@tmpclipfalse -\def\test@vertix@decavi#1{% -\@forsemicol\member:=#1\do{% -\ifx\member\empty\else% -\expandafter\@m@mb@r\member;\relax% -\expandafter\twoch@r\@membera{}% -\ifcase\@tmpa% - \or% - \if\@tmpb s\relax\def\ddd{}\else\def\ddd{@}\fi - \or%2 - \if\@tmpb s\relax\def\ccc{}\else\def\ccc{@}\fi - \or%3 - \if\@tmpb s\relax\def\bbb{}\else\def\bbb{@}\fi - \or% - \if\@tmpb a% - \def\jjj{@}%4a - \else\if\@tmpb s% - \def\aaa{}%4 - \else\if\@tmpb h% - \def\aaa{@}%4 - \else\ifx\@tmpb\empty% - \def\aaa{@}%4 - \fi\fi\fi\fi% - \or%5 - \if\@tmpb s\relax\def\hhh{}\else\def\hhh{@}\fi - \or%6 - \if\@tmpb s\relax\def\ggg{}\else\def\ggg{@}\fi - \or%7 - \if\@tmpb s\relax\def\fff{}\else\def\fff{@}\fi - \or% - \if\@tmpb a% - \xdef\iii{@}%8a - \else\if\@tmpb s% - \xdef\eee{}%8s - \else\if\@tmpb h% - \xdef\eee{@}%8h - \else\ifx\@tmpb\empty% - \xdef\eee{@}%8 - \fi\fi\fi\fi% -\or%9 (= 4a) - \if\@tmpb s\relax\def\jjj{}\else\def\jjj{@}\fi -\or%10 (= 8a) - \if\@tmpb s\relax\def\iii{}\else\def\iii{@}\fi -\fi\fi}} -\def\set@vrtx@decafusevi#1{% -\@forsemicol\member:=#1\do{% -\ifx\member\empty\else% -\expandafter\@m@mb@r\member;\relax% -\expandafter\twoch@r\@membera{}% -\ifcase\@tmpa\or\or\or - \or%%%%4 - \if\@tmpb a% - \global\@icliptrue% - \putlatom{207}{280}{\@memberb}% % left type - \else\relax - \fi - \or\or\or - \or%8 - \if\@tmpb a% - \global\@jcliptrue% - \putlatom{207}{65}{\@memberb}% % left type - \else\relax - \fi -\or%9 (= 4a) - \global\@icliptrue% - \putlatom{207}{280}{\@memberb}% % left type -\or%10 (= 8a) - \global\@jcliptrue% - \putlatom{207}{65}{\@memberb}% % left type -\fi\fi}% -}% end of the macro \set@vrtx@decafusevi -\def\set@fusion@decavi{% - \let\@@tmpa=\@tmpa - \let\@@tmpb=\@tmpb - \if\@tmpa a% - \let\@@tmpa=\@tmpa - \put(342,0){\set@fusionadd@sixvi}% - \else\if\@tmpa A% - \let\@@tmpa=\@tmpa - \put(342,0){\set@fusionadd@sixvi}% - \else\if\@tmpa b% - \let\@@tmpa=\@tmpa - \put(342,0){\set@fusionadd@sixvi}% - \else\if\@tmpa B% - \let\@@tmpa=\@tmpa - \put(342,0){\set@fusionadd@sixvi}% - \else\if\@tmpa c% - \let\@@tmpa=\@tmpa - \put(342,0){\set@fusionadd@sixvi}% - \else\if\@tmpa C% - \let\@@tmpa=\@tmpa - \put(342,0){\set@fusionadd@sixvi}% - \else\if\@tmpa d% - \let\@@tmpa=\@tmpa - \put(342,0){\set@fusionadd@sixvi}% - \if@smallringsw\else - \XyMTeXWarning{Unfavorable Fusion for bond `d'}% - \fi - \else\if\@tmpa D% - \let\@@tmpa=\@tmpa - \put(342,0){\set@fusionadd@sixvi}% - \if@smallringsw\else - \XyMTeXWarning{Unfavorable Fusion for bond `D'}% - \fi - \else\if\@tmpa e% - \edef\@@tmpa{c}% - \put(0,0){\set@fusionadd@sixvi}% - \if@smallringsw\else - \XyMTeXWarning{Unfavorable Fusion for bond `e'}% - \fi - \else\if\@tmpa E% - \edef\@@tmpa{C}% - \put(0,0){\set@fusionadd@sixvi}% - \if@smallringsw\else - \XyMTeXWarning{Unfavorable Fusion for bond `E'}% - \fi - \else\if\@tmpa f% - \edef\@@tmpa{d}% - \put(0,0){\set@fusionadd@sixvi}% - \else\if\@tmpa F% - \edef\@@tmpa{D}% - \put(0,0){\set@fusionadd@sixvi}% - \else\if\@tmpa g% - \edef\@@tmpa{e}% - \put(0,0){\set@fusionadd@sixvi}% - \else\if\@tmpa G% - \edef\@@tmpa{E}% - \put(0,0){\set@fusionadd@sixvi}% - \else\if\@tmpa h% - \edef\@@tmpa{f}% - \put(0,0){\set@fusionadd@sixvi}% - \else\if\@tmpa H% - \edef\@@tmpa{F}% - \put(0,0){\set@fusionadd@sixvi}% - \else\if\@tmpa i% - \edef\@@tmpa{a}% - \put(0,0){\set@fusionadd@sixvi}% - \if@smallringsw\else - \XyMTeXWarning{Unfavorable Fusion for bond `i'}% - \fi - \else\if\@tmpa I% - \edef\@@tmpa{A}% - \put(0,0){\set@fusionadd@sixvi}% - \if@smallringsw\else - \XyMTeXWarning{Unfavorable Fusion for bond `I'}% - \fi - \else\if\@tmpa j% - \edef\@@tmpa{f}% - \put(342,0){\set@fusionadd@sixvi}% - \if@smallringsw\else - \XyMTeXWarning{Unfavorable Fusion for bond `j'}% - \fi - \else\if\@tmpa J% - \edef\@@tmpa{F}% - \put(342,0){\set@fusionadd@sixvi}% - \if@smallringsw\else - \XyMTeXWarning{Unfavorable Fusion for bond `J'}% - \fi - \else\if\@tmpa k% - \edef\@@tmpa{e}% - \put(342,0){\set@fusionadd@sixvi}% - \if@smallringsw\else - \XyMTeXWarning{Forbidden Fusion for bond `k'}% - \fi - \else\if\@tmpa K% - \edef\@@tmpa{E}% - \put(342,0){\set@fusionadd@sixvi}% - \if@smallringsw\else - \XyMTeXWarning{Forbidden Fusion for bond `K'}% - \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@decavi -\def\decaheterovb{\@ifnextchar({\@deca@heterovb(@}{\@deca@heterovb(@)}} -\def\@deca@heterovb(#1){\@ifnextchar[{\@deca@@heterovb(#1)[@}% -{\@deca@@heterovb(#1)[@]}} -\def\@deca@@heterovb(#1)[#2]#3#4{\@ifnextchar[% -{\@decaheterovb(#1)[#2]{#3}{#4}[@}% -{\@decaheterovb(#1)[#2]{#3}{#4}[@]}} -\def\@decaheterovb(#1)[#2]#3#4[#5]{% -\iniflag\iniatom% -\test@vertix@decavb{#3}% -\@reset@ylsw% -{\let\eee=\ddd\let\ddd=\ccc -\let\ccc=\bbb\let\bbb=\aaa -\ylhetpositionb{#4}{1}{1}{6}{0}% %substituents on 1 to 4 -}% -\if@ylsw \ifx\@@ylii\empty -\def\@@ylii{0}\def\@@yli{0}\fi -\else -\ylhetpositionb{#4}{0}{4}{7}{0}% %substituents on 5 to 6 -\fi -\if@ylsw \ifx\@@ylii\empty -\def\@@ylii{171}\def\@@yli{-303}\fi -\else -{\let\aaa=\ggg \let\bbb=\hhh -\ylhetpositionb{#4}{-6}{0}{3}{0}% %substituents on 7 to 8 -}% -\fi -\if@ylsw \ifx\@@ylii\empty -\def\@@ylii{171}\def\@@yli{-303}\fi -\else -{% -\clipdetection% -\@clipfusefalse \if@iclip \@clipfusetrue \fi% -\ylatombondposition{#4}{-8}{9}% %9 %for 4a position -}% -\fi -\if@ylsw \ifx\@@ylii\empty -\def\@@ylii{171}\def\@@yli{-303}\fi -\else -{% -\clipdetection% -\@clipfusefalse \if@jclip \@clipfusetrue \fi% -\ylatombondposition{#4}{-9}{3}% %10 for 8a position -}% -\fi -\if@ylsw \ifx\@@ylii\empty -\def\@@ylii{0}\def\@@yli{-406}\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}(1000,1200)(-550,-240) - \iforigpt \put(-550,-240){\circle*{50}}% - \put(0,0){\circle{50}}% - \typeout{command `decaheterovb' origin: % - (\the\noshift,\the\noshift) ---> (\the\shiftii,\the\shifti)}\fi% -\fi -\begingroup -\resetbdsw% -\@bond@@omit{#5}% -{\let\eee=\ddd\let\ddd=\ccc - \let\ccc=\bbb\let\bbb=\aaa - \let\aaa=\jjj \let\fff=\iii -\set@skel@bond{#1}{j}{a}% bond between 8a and 1 \@jjj -> \skbonda etc -\set@skel@bond{#1}{a}{b}% bond between 1 and 2 \@aaa -> \skbondb etc -\set@skel@bond{#1}{b}{c}% bond between 2 and 3 \@bbb -> \skbondc etc -\set@skel@bond{#1}{c}{d}% bond between 3 and 4 \@ccc -> \skbondd etc -\set@skel@bond{#1}{d}{e}% bond between 4 and 4a \@ddd -> \skbonde etc -\set@skel@bond{#1}{k}{f}% bond between 4a and 8a \@kkk -> \skbondf etc -}% -{\let\aaa=\ggg\let\bbb=\hhh\let\ccc=\jjj\let\ddd=\iii -\put(-171,303){\set@skel@bond{#1}{h}{a}}% - % bond between 7 and 8 \@hhh -> \skbonda etc -\put(-171,303){\set@skel@bond{#1}{i}{b}}% - % bond between 8 and 8a \@iii -> \skbondb etc -\put(-171,303){\set@skel@bond{#1}{e}{d}}% - % bond between 4a and 5 \@eee -> \skbondd etc -\put(-171,303){\set@skel@bond{#1}{f}{e}}% - % bond between 5 and 6 \@fff -> \skbonde etc -\put(-171,303){\set@skel@bond{#1}{g}{f}}% - % bond between 6 and 7 \@ggg -> \skbondf etc -}% -\endgroup -\@tfor\member:=#2\do{% -\if\member r\relax% -{\let\aaa=\ggg\let\bbb=\hhh\let\ccc=\jjj\let\ddd=\iii - \put(-171,303){\bonda}% bond between 7 and 8 - \put(-171,303){\bonde}% bond between 5 and 6 -}% -{\let\eee=\ddd\let\ddd=\ccc - \let\ccc=\bbb\let\bbb=\aaa - \let\aaa=\jjj \let\fff=\iii - \put(0,0){\bondb}% bond between 1 and 2 - \put(0,0){\bondd}% bond between 3 and 4 - \put(0,0){\bondf}% bond between 4a and 4b -}% -\else\if\member l\relax% -\else\if\member a\relax% -{\let\ccc=\bbb\let\bbb=\aaa - \put(0,0){\bondb}% bond between 1 and 2 -}% -\else\if\member b\relax -{\let\ddd=\ccc\let\ccc=\bbb - \put(0,0){\bondc}% bond between 2 and 3 -}% -\else\if\member c\relax -{\let\eee=\ddd\let\ddd=\ccc - \put(0,0){\bondd}% bond between 3 and 4 -}% -\else\if\member d\relax% -{\let\fff=\eee\let\eee=\ddd - \put(0,0){\bonde}% bond between 4 and 4a -}% -\else\if\member e\relax% -{\let\ddd=\iii% - \put(-171,303){\bondd}% bond between 5 and 4a -}% -\else\if\member f\relax% - \put(-171,303){\bonde}% bond between 5 and 6 -\else\if\member g\relax% -{\let\aaa=\ggg - \put(-171,303){\bondf}% bond between 6 and 7 -}% -\else\if\member h\relax% -{\let\aaa=\ggg \let\bbb=\hhh% - \put(-171,303){\bonda}% bond between 8 and 7 -}% -\else\if\member i\relax% -{\let\bbb=\hhh \let\ccc=\jjj% - \put(-171,303){\bondb}% bond between 8 and 8a -}% -\else\if\member j\relax% -{\let\bbb=\aaa\let\aaa=\jjj% - \put(0,0){\bonda}% bond between 1 and 8a -}% -\else\if\member k\relax% -{\let\aaa=\jjj\let\fff=\iii% - \put(0,0){\bondf}% bond between 8a and 4a -}% -\else\if\member K\relax% -{\let\ccc=\jjj\let\ddd=\iii% - \put(-171,303){\bondc}% bond between 8a and 4a in the other ring -}% -\else\if\member A%left aromatic circle - \put(-171,506){\circle{240}} %circle -\else\if\member B%left aromatic circle - \put(0,203){\circle{240}} %circle -\else \expandafter\twoCH@@R\member//% - \def\aax{8a}\def\aay{4a}\def\aaz{10}% - \if\@@tmpa 1\relax% % plus charge etc. - \putratom{60}{253}{\@@tmpb}% % right type - \else\if\@@tmpa 2\relax% - \putratom{60}{120}{\@@tmpb}% % right type - \else\if\@@tmpa 3\relax% - \putratom{-38}{68}{\@@tmpb}% % right type - \else\if\@@tmpa 4\relax% - \putratom{-120}{120}{\@@tmpb}% % right type - \else\if\@@tmpa 5\relax% - \putlatom{-209}{431}{\@@tmpb}% % left type - \else\if\@@tmpa 6\relax% - \putlatom{-209}{546}{\@@tmpb}% % left type - \else\if\@@tmpa 7\relax% - \putratom{-209}{585}{\@@tmpb}% % right type - \else\if\@@tmpa 8\relax% - \putratom{-111}{546}{\@@tmpb}% % right type - \else\if\@@tmpa 9\relax% - \putlatom{-60}{253}{\@@tmpb}% % left type - \else\ifx\@@tmpa\aaz\relax% - \putratom{-38}{282}{\@@tmpb}% % right type - \else\ifx\@@tmpa\aax\relax% - \putratom{-38}{282}{\@@tmpb}% % right type - \else\ifx\@@tmpa\aay\relax% - \putratom{-209}{371}{\@@tmpb}% % right type - \fi\fi\fi\fi\fi\fi\fi\fi\fi\fi\fi\fi% - \expandafter\twoCH@R\member//% - \set@fusion@decavb -\fi\fi\fi\fi\fi\fi\fi\fi\fi\fi% -\fi\fi\fi\fi\fi\fi% -}% -\iniflag\iniatom -\put(-171,303){\set@hetatom@sixv{#3}{0}{4}{7}{0}% -\if@eclip \global\@ecliptrue\fi% -\if@fclip \global\@fcliptrue\fi% -}% %substituents on 5 to 6 -\put(-171,303){\set@hetatom@sixv{#3}{-6}{0}{3}{0}% - \@gclipfalse \if@aclip \global\@gcliptrue \fi% - \@hclipfalse \if@bclip \global\@hcliptrue \fi% -}% %substituents on 7 to 8 -\put(0,0){\set@vrtx@decafusevb{#3}% - \if@iclip \global\@icliptrue \fi - \if@jclip \global\@jcliptrue \fi -}%9 %for 4a position, %10 for 8a position -\put(0,0){\iniflag%2000/11/11 by S. Fujita -\set@hetatom@sixv{#3}{1}{1}{6}{0}% -\@aclipfalse \if@bclip \global\@acliptrue \fi% -\@bclipfalse \if@cclip \global\@bcliptrue \fi% -\@cclipfalse \if@clip \global\@ccliptrue \fi% -\@clipfalse \if@eclip \global\@cliptrue \fi% -}% %substituents on 1 to 4 -{% -\@eclipfalse \if@clip \@ecliptrue \fi% -\@clipfalse \if@cclip \@cliptrue \fi% -\@cclipfalse \if@bclip \@ccliptrue \fi% -\@bclipfalse \if@aclip \@bcliptrue \fi% -\put(0,0){\setsixringv{#4}{1}{1}{6}{0}}% %substituents on 1 to 4 -}% -{% -\put(-171,303){\setsixringv{#4}{0}{4}{7}{0}}% %substituents on 5 to 6 -}% -{% - \@aclipfalse \if@gclip \@acliptrue \fi% - \@bclipfalse \if@hclip \@bcliptrue \fi% -\put(-171,303){\setsixringv{#4}{-6}{0}{3}{0}}% %substituents on 7 to 8 -}% -{\@clipfusefalse \if@iclip \@clipfusetrue \fi% - \put(-171,303){\setatombond{#4}{-8}{9}}% %9 %for 4a position -}% -{\@clipfusefalse \if@jclip \@clipfusetrue \fi% - \put(0,406){\setatombond{#4}{-9}{3}}% %10 for 8a position -}% -\end{picture}\iniatom\iniflag}% %end of \decaheterovb macro -\def\ylhetpositionb#1#2#3#4#5{% -\@@ylswfalse%%%\@reset@ylsw -\@forsemicol\member:=#1\do{% -\if@@ylsw\else% -\ifx\member\empty\else% -\expandafter\@m@mb@r\member;\relax% -\expandafter\threech@r\@membera{}{}\relax% -\ifx\@memberb\@yl\relax\@@ylswtrue\else\@@ylswfalse\fi -\if@@ylsw -\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%0 omit - \or - \ifx\aaa\empty% - \ifx\ggg\empty% aaa and ggg are absent - \gdef\@ylii{0}\gdef\@yli{-406}\global\@ylswtrue%\@ylatrue% subst. on 1 - \else% ggg is present - \gdef\@ylii{0}\gdef\@yli{-442}\global\@ylswtrue%\@ylatrue% subst. on 1 - \fi - \else%aaa is present - \gdef\@ylii{0}\gdef\@yli{-442}\global\@ylswtrue%\@ylatrue% subst. on 1 - \fi - \or - \ifx\bbb\empty - \ifx\hhh\empty% aaa and hhh are absent - \gdef\@ylii{-171}\gdef\@yli{-303}\global\@ylswtrue%\@ylbtrue% subst. on 2 - \else%hhh is present - \gdef\@ylii{-213}\gdef\@yli{-327}\global\@ylswtrue%\@ylbtrue% subst. on 2 - \fi - \else - \gdef\@ylii{-213}\gdef\@yli{-327}\global\@ylswtrue%\@ylbtrue% subst. on 2 - \fi - \or\ifx\ccc\empty - \gdef\@ylii{-171}\gdef\@yli{-103}\global\@ylswtrue%\@ylctrue% subst. on 3 - \else - \gdef\@ylii{-213}\gdef\@yli{-79}\global\@ylswtrue%\@ylctrue% subst. on 3 - \fi - \or - \ifx\ddd\empty - \gdef\@ylii{0}\gdef\@yli{0}\global\@ylswtrue%\@yldtrue% subst. on 4 - \else% ddd present - \gdef\@ylii{0}\gdef\@yli{36}\global\@ylswtrue%\@yldtrue% subst. on 4 - \fi - \or - \ifx\eee\empty - \gdef\@ylii{173}\gdef\@yli{-103}\global\@ylswtrue%\@yletrue% subst. on 5 - \else% eee is present - \gdef\@ylii{223}\gdef\@yli{-79}\global\@ylswtrue%\@yletrue% subst. on 5 - \fi - \or - \ifx\fff\empty - \gdef\@ylii{173}\gdef\@yli{-303}\global\@ylswtrue%\@ylftrue% subst. on 6 - \else%fff is present - \gdef\@ylii{213}\gdef\@yli{-327}\global\@ylswtrue%\@ylftrue% subst. on 6 - \fi -\fi%end of ifcase -\fi\fi\fi\fi\fi}}% -\def\test@vertix@decavb#1{% -\@forsemicol\member:=#1\do{% -\ifx\member\empty\else% -\expandafter\@m@mb@r\member;\relax% -\expandafter\twoch@r\@membera{}% -\ifcase\@tmpa% - \or% \xdef\aaa{\@memberb}%1 - \if\@tmpb s\relax\def\aaa{}\else\def\aaa{@}\fi - \or% \xdef\bbb{\@memberb}%2 - \if\@tmpb s\relax\def\bbb{}\else\def\bbb{@}\fi - \or% \xdef\ccc{\@memberb}%3 - \if\@tmpb s\relax\def\ccc{}\else\def\ccc{@}\fi - \or% - \if\@tmpb a% - \def\iii{@}%4a - \else\if\@tmpb s% - \def\ddd{}%4 - \else\if\@tmpb h% - \def\ddd{@}%4 - \else\ifx\@tmpb\empty% - \def\ddd{@}%4 - \fi\fi\fi\fi% - \or% \xdef\eee{\@memberb}%5 - \if\@tmpb s\relax\def\eee{}\else\def\eee{@}\fi - \or% \xdef\fff{\@memberb}%6 - \if\@tmpb s\relax\def\fff{}\else\def\fff{@}\fi - \or% \xdef\ggg{\@memberb}%7 - \if\@tmpb s\relax\def\ggg{}\else\def\ggg{@}\fi - \or% - \if\@tmpb a% - \def\jjj{@}%8a - \else\if\@tmpb s% - \def\hhh{}%8 - \else\if\@tmpb h% - \def\hhh{@}%4 - \else\ifx\@tmpb\empty% - \def\hhh{@}%4 - \fi\fi\fi\fi% -\or% \xdef\iii{\@memberb}%9 (= 4a) - \if\@tmpb s\relax\def\iii{}\else\def\iii{@}\fi -\or% \xdef\jjj{\@memberb}%10 (= 8a) - \if\@tmpb s\relax\def\jjj{}\else\def\jjj{@}\fi -\fi\fi}% -}% end of the macro \test@vertix@decavb -\def\set@vrtx@decafusevb#1{% -\@forsemicol\member:=#1\do{% -\ifx\member\empty\else% -\expandafter\@m@mb@r\member;\relax% -\expandafter\twoch@r\@membera{}% -\ifcase\@tmpa\or\or\or - \or%%%%4 - \if\@tmpb a% - \global\@icliptrue% - \putlatom{-135}{280}{\@memberb}% % left type - \else\relax - \fi - \or\or\or - \or%8 - \if\@tmpb a% - \global\@jcliptrue% - \putratom{-31}{356}{\@memberb}% % right type - \else\relax - \fi -\or%9 (= 4a) - \global\@icliptrue% - \putlatom{-135}{280}{\@memberb}% % left type -\or%10 (= 8a) - \global\@jcliptrue% - \putratom{-31}{356}{\@memberb}% % right type -\fi\fi}% -}% end of the macro \set@vrtx@decafusevb -\def\decaheterovt{\@ifnextchar({\@deca@heterovt(@}{\@deca@heterovt(@)}} -\def\@deca@heterovt(#1){\@ifnextchar[{\@deca@@heterovt(#1)[@}% -{\@deca@@heterovt(#1)[@]}} -\def\@deca@@heterovt(#1)[#2]#3#4{\@ifnextchar[% -{\@decaheterovt(#1)[#2]{#3}{#4}[@}% -{\@decaheterovt(#1)[#2]{#3}{#4}[@]}} -\def\@decaheterovt(#1)[#2]#3#4[#5]{% -\iniflag\iniatom% -\test@vertix@decavb{#3}% -\@reset@ylsw% -{\let\fff=\aaa -\ylhetpositiont{#4}{5}{5}{7}{0}% %substituent on 1 -}% -\if@ylsw \ifx\@@ylii\empty -\def\@@ylii{-171}\def\@@yli{-303}\fi -\else -{\let\aaa=\bbb\let\bbb=\ccc\let\ccc=\ddd -\ylhetpositiont{#4}{-1}{0}{4}{0}% %substituents on 2 to 4 -}% -\fi -\if@ylsw \ifx\@@ylii\empty -\def\@@ylii{-171}\def\@@yli{-303}\fi -\else -{\let\ccc=\eee\let\ddd=\fff -\let\eee=\ggg\let\fff=\hhh -\ylhetpositiont{#4}{-2}{2}{7}{0}% %substituents on 5 to 8 -}% -\fi -\if@ylsw \ifx\@@ylii\empty -\def\@@ylii{0}\def\@@yli{0}\fi -\else -{% -\clipdetection% -\@clipfusefalse \if@iclip \@clipfusetrue \fi% -\ylatombondposition{#4}{-8}{5}% %9 %for 4a position -}% -\fi -\if@ylsw \ifx\@@ylii\empty -\def\@@ylii{-171}\def\@@yli{-303}\fi -\else -{% -\clipdetection% -\@clipfusefalse \if@jclip \@clipfusetrue \fi% -\ylatombondposition{#4}{-9}{11}% %10 for 8a position -}% -\fi -\if@ylsw \ifx\@@ylii\empty -\def\@@ylii{0}\def\@@yli{-406}\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}(1200,880)(-\shiftii,-\shifti)% - \iforigpt \put(-\shiftii,-\shifti){\circle*{50}}% - \put(-\noshift,-\noshift){\circle{50}}% - \typeout{command `decaheterovt' origin: % - (\the\noshift,\the\noshift) ---> (\the\shiftii,\the\shifti)}\fi% -\fi -\begingroup -\resetbdsw% -\@bond@@omit{#5}% -{% - \let\fff=\aaa \let\aaa=\bbb \let\bbb=\ccc - \let\ccc=\ddd \let\ddd=\iii \let\eee=\jjj -\put(171,303){\set@skel@bond{#1}{b}{a}}% - % bond between 2 and 3 \@bbb -> \skbonda etc -\put(171,303){\set@skel@bond{#1}{c}{b}}% - % bond between 3 and 4 \@ccc -> \skbondb etc -\put(171,303){\set@skel@bond{#1}{d}{c}}% - % bond between 4 and 4a \@ddd -> \skbondc etc -\put(171,303){\set@skel@bond{#1}{k}{d}}% - % bond between 4a and 8a \@kkk -> \skbondd etc -\put(171,303){\set@skel@bond{#1}{j}{e}}% - % bond between 8a and 1 \@jjj -> \skbonde etc -\put(171,303){\set@skel@bond{#1}{a}{f}}% - % bond between 1 and 2 \@aaa -> \skbondf etc -}% -{% - \let\aaa=\jjj\let\bbb=\iii - \let\ccc=\eee\let\ddd=\fff - \let\eee=\ggg\let\fff=\hhh -\set@skel@bond{#1}{e}{b}% bond between 4a and 5 \@eee -> \skbondb etc -\set@skel@bond{#1}{f}{c}% bond between 5 and 6 \@fff -> \skbondc etc -\set@skel@bond{#1}{g}{d}% bond between 6 and 7 \@ggg -> \skbondd etc -\set@skel@bond{#1}{h}{e}% bond between 7 and 8 \@hhh -> \skbonde etc -\set@skel@bond{#1}{i}{f}% bond between 8 and 8a \@iii -> \skbondf etc -}% -\endgroup -\@tfor\member:=#2\do{% -\if\member r\relax% -{% - \let\ccc=\eee\let\ddd=\fff\let\eee=\ggg\let\fff=\ggg - \put(0,0){\bondc}% bond between 7 and 8 - \put(0,0){\bonde}% bond between 5 and 6 -}% -{% - \let\fff=\aaa\let\aaa=\bbb - \let\bbb=\ccc\let\ccc=\ddd - \let\ddd=\iii\let\eee=\jjj - \put(171,303){\bondf}% bond between 1 and 2 - \put(171,303){\bondb}% bond between 3 and 4 - \put(171,303){\bondd}% bond between 4a and 8a -}% -\else\if\member l\relax% -\else\if\member a\relax% -{\let\fff=\aaa\let\aaa=\bbb - \put(171,303){\bondf}% bond between 1 and 2 -}% -\else\if\member b\relax -{\let\aaa=\bbb\let\bbb=\ccc - \put(171,303){\bonda}% bond between 2 and 3 -}% -\else\if\member c\relax -{\let\bbb=\ccc\let\ccc=\ddd - \put(171,303){\bondb}% bond between 3 and 4 -}% -\else\if\member d\relax% -{\let\ccc=\ddd\let\ddd=\eee - \put(171,303){\bondc}% bond between 4 and 4a -}% -\else\if\member e\relax% -{\let\ccc=\eee\let\bbb=\iii% - \put(0,0){\bondb}% bond between 5 and 4a -}% -\else\if\member f\relax% -{\let\ccc=\eee\let\ddd=\fff - \put(0,0){\bondc}% bond between 5 and 6 -}% -\else\if\member g\relax% -{\let\ddd=\fff\let\eee=\ggg - \put(0,0){\bondd}% bond between 6 and 7 -}% -\else\if\member h\relax% -{\let\eee=\ggg \let\fff=\hhh% - \put(0,0){\bonde}% bond between 8 and 7 -}% -\else\if\member i\relax% -{\let\aaa=\jjj \let\fff=\hhh% - \put(0,0){\bondf}% bond between 8 and 8a -}% -\else\if\member j\relax% -{\let\fff=\aaa\let\eee=\jjj% - \put(171,303){\bonde}% bond between 1 and 8a -}% -\else\if\member k\relax% -{\let\aaa=\jjj\let\bbb=\iii% - \put(0,0){\bonda}% bond between 8a and 4a -}% -\else\if\member K\relax% -{\let\eee=\jjj\let\ddd=\iii% - \put(171,303){\bondd}% bond between 8a and 4a in the other ring -}% -\else\if\member A%left aromatic circle - \put(171,506){\circle{240}} %circle -\else\if\member B%left aromatic circle - \put(0,203){\circle{240}} %circle -\else - \expandafter\twoCH@@R\member//% - \def\aax{8a}\def\aay{4a}\def\aaz{10}% - \if\@@tmpa 1\relax% % plus charge etc. - \putlatom{111}{546}{\@@tmpb}% % left type - \else\if\@@tmpa 2\relax% - \putlatom{209}{585}{\@@tmpb}% % left type - \else\if\@@tmpa 3\relax% - \putratom{209}{546}{\@@tmpb}% % right type - \else\if\@@tmpa 4\relax% - \putratom{209}{431}{\@@tmpb}% % right type - \else\if\@@tmpa 5\relax% - \putratom{60}{120}{\@@tmpb}% % right type - \else\if\@@tmpa 6\relax% - \putratom{-38}{68}{\@@tmpb}% % right type - \else\if\@@tmpa 7\relax% - \putratom{-120}{120}{\@@tmpb}% % right type - \else\if\@@tmpa 8\relax% - \putlatom{-60}{253}{\@@tmpb}% % left type - \else\if\@@tmpa 9\relax% - \putratom{60}{253}{\@@tmpb}% % right type - \else\ifx\@@tmpa\aaz\relax% - \putratom{-38}{282}{\@@tmpb}% % right type - \else\ifx\@@tmpa\aax\relax% - \putratom{-38}{282}{\@@tmpb}% % right type - \else\ifx\@@tmpa\aay\relax% - \putratom{60}{253}{\@@tmpb}% % right type - \fi\fi\fi\fi\fi\fi\fi\fi\fi\fi\fi\fi% - \expandafter\twoCH@R\member//% - \set@fusion@decavt -\fi\fi\fi\fi\fi\fi\fi\fi\fi\fi% -\fi\fi\fi\fi\fi\fi% -}% -\iniflag -\put(0,0){\set@hetatom@sixv{#3}{-2}{2}{7}{0}% - \@hclipfalse \if@fclip \global\@hcliptrue \fi% - \@gclipfalse \if@eclip \global\@gcliptrue \fi% - \@fclipfalse \if@clip \global\@fcliptrue \fi% - \@eclipfalse \if@cclip \global\@ecliptrue \fi% -}% %substituents on 5 to 8 -\put(0,0){\set@vrtx@decafusevt{#3}% - \if@iclip \global\@icliptrue \fi - \if@jclip \global\@jcliptrue \fi -}%9 %for 4a position, %10 for 8a position -\put(171,303){\set@hetatom@sixv{#3}{-1}{0}{4}{0}% -\@clipfalse \if@cclip \global\@cliptrue \fi% -\@cclipfalse \if@bclip \global\@ccliptrue \fi% -\@bclipfalse \if@aclip \global\@bcliptrue \fi% -}% %substituents on 2 to 4 -{% -\@fclipfalse%locally cancelled 1999/2/15 by Shinsaku Fujita -\put(171,303){\set@hetatom@sixv{#3}{5}{5}{7}{0}% -\@aclipfalse \if@fclip \global\@acliptrue \fi% -}% %substituent on 1 -}% -{% -\@fclipfalse \if@aclip \@fcliptrue \fi% -\put(171,303){\setsixringv{#4}{5}{5}{7}{0}}% %substituent on 1 -}% -{% -\@aclipfalse \if@bclip \@acliptrue \fi% -\@bclipfalse \if@cclip \@bcliptrue \fi% -\@cclipfalse \if@clip \@ccliptrue \fi% -\put(171,303){\setsixringv{#4}{-1}{0}{4}{0}}% %substituents on 2 to 4 -}% -{% - \@cclipfalse \if@eclip \@ccliptrue \fi% - \@clipfalse \if@fclip \@cliptrue \fi% - \@eclipfalse \if@gclip \@ecliptrue \fi% - \@fclipfalse \if@hclip \@fcliptrue \fi% -\put(0,0){\setsixringv{#4}{-2}{2}{7}{0}}% %substituents on 5 to 8 -}% -{\@clipfusefalse \if@iclip \@clipfusetrue \fi% - \put(171,303){\setatombond{#4}{-8}{5}}% %9 %for 4a position -}% -{\@clipfusefalse \if@jclip \@clipfusetrue \fi% - \put(0,406){\setatombond{#4}{-9}{11}}% %10 for 8a position -}% -\end{picture}\iniatom\iniflag}% %end of \decaheterovt macro -\def\ylhetpositiont#1#2#3#4#5{% -\@@ylswfalse%%%\@reset@ylsw -\@forsemicol\member:=#1\do{% -\if@@ylsw\else% -\ifx\member\empty\else% -\expandafter\@m@mb@r\member;\relax% -\expandafter\threech@r\@membera{}{}\relax% -\ifx\@memberb\@yl\relax\@@ylswtrue\else\@@ylswfalse\fi -\if@@ylsw -\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%0 omit - \or - \ifx\aaa\empty% - \ifx\bbb\empty% aaa and bbb are absent - \gdef\@ylii{0}\gdef\@yli{-406}\global\@ylswtrue%\@ylatrue% subst. on 1 - \else% bbb is present - \gdef\@ylii{0}\gdef\@yli{-442}\global\@ylswtrue%\@ylatrue% subst. on 1 - \fi - \else%aaa is present - \gdef\@ylii{0}\gdef\@yli{-442}\global\@ylswtrue%\@ylatrue% subst. on 1 - \fi - \or - \ifx\bbb\empty - \ifx\ccc\empty% aaa and ccc are absent - \gdef\@ylii{-171}\gdef\@yli{-303}\global\@ylswtrue%\@ylbtrue% subst. on 2 - \else%ccc is present - \gdef\@ylii{-213}\gdef\@yli{-327}\global\@ylswtrue%\@ylbtrue% subst. on 2 - \fi - \else - \gdef\@ylii{-213}\gdef\@yli{-327}\global\@ylswtrue%\@ylbtrue% subst. on 2 - \fi - \or - \ifx\ccc\empty - \ifx\ddd\empty - \ifx\eee\empty% ccc, ddd, eee are absent - \gdef\@ylii{-171}\gdef\@yli{-103}\global\@ylswtrue%\@ylctrue%subst. on 3 - \else%eee is present - \gdef\@ylii{-213}\gdef\@yli{-79}\global\@ylswtrue%\@ylctrue% subst. on 3 - \fi - \else%ddd is present - \gdef\@ylii{-213}\gdef\@yli{-79}\global\@ylswtrue%\@ylctrue% subst. on 3 - \fi - \else%ccc is present - \gdef\@ylii{-213}\gdef\@yli{-79}\global\@ylswtrue%\@ylctrue% subst. on 3 - \fi - \or - \ifx\ddd\empty - \ifx\fff\empty%ddd and fff are absent - \gdef\@ylii{0}\gdef\@yli{0}\global\@ylswtrue%\@yldtrue% subst. on 4 - \else%fff present - \gdef\@ylii{0}\gdef\@yli{36}\global\@ylswtrue%\@yldtrue% subst. on 4 - \fi - \else% ddd present - \gdef\@ylii{0}\gdef\@yli{36}\global\@ylswtrue%\@yldtrue% subst. on 4 - \fi - \or - \ifx\eee\empty - \ifx\ggg\empty%eee and ggg are absent - \gdef\@ylii{173}\gdef\@yli{-103}\global\@ylswtrue%\@yletrue% subst. on 5 - \else% ggg is present - \gdef\@ylii{223}\gdef\@yli{-79}\global\@ylswtrue%\@yletrue% subst. on 5 - \fi - \else% eee is present - \gdef\@ylii{223}\gdef\@yli{-79}\global\@ylswtrue%\@yletrue% subst. on 5 - \fi - \or - \ifx\fff\empty - \ifx\hhh\empty%fff and hhh are absent - \gdef\@ylii{173}\gdef\@yli{-303}\global\@ylswtrue%\@ylftrue% subst. on 6 - \else%hhh is present - \gdef\@ylii{213}\gdef\@yli{-327}\global\@ylswtrue%\@ylftrue% subst. on 6 - \fi - \else%fff is present - \gdef\@ylii{213}\gdef\@yli{-327}\global\@ylswtrue%\@ylftrue% subst. on 6 - \fi -\fi%end of ifcase -\fi\fi\fi\fi\fi}}% -\def\set@vrtx@decafusevt#1{% -\@forsemicol\member:=#1\do{% -\ifx\member\empty\else% -\expandafter\@m@mb@r\member;\relax% -\expandafter\twoch@r\@membera{}% -\ifcase\@tmpa\or\or\or - \or%%%%4 - \if\@tmpb a% - \global\@icliptrue% - \putratom{135}{280}{\@memberb}% % right type - \else\relax - \fi - \or\or\or - \or%8 - \if\@tmpb a% - \global\@jcliptrue% - \putlatom{31}{356}{\@memberb}% % left type - \else\relax - \fi -\or%9 (= 4a) - \global\@icliptrue% - \putratom{135}{280}{\@memberb}% % right type -\or%10 (= 8a) - \global\@jcliptrue% - \putlatom{31}{356}{\@memberb}% % left type -\fi\fi}% -}% end of the macro \set@vrtx@decafusevt -\def\quinolinev{% - \@ifnextchar[{\@quinolinev[@}{\@quinolinev[acfhk]}} -\def\@quinolinev[#1]#2{% -\iforigpt \typeout{command `quinolinev' % - is based on `decaheterov'.}\fi% -\decaheterov[#1]{1==N}{#2}} -\def\quinolinevi{% - \@ifnextchar[{\@quinolinevi[@}{\@quinolinevi[acfhk]}} -\def\@quinolinevi[#1]#2{% -\iforigpt \typeout{command `quinolinevi' % - is based on `decaheterovi'.}\fi% -\decaheterovi[#1]{1==N}{#2}} -\def\quinolinevb{% - \@ifnextchar[{\@quinolinevb[@}{\@quinolinevb[acfhk]}} -\def\@quinolinevb[#1]#2{% -\iforigpt \typeout{command `quinolinevb' % - is based on `decaheterovb'.}\fi% -\decaheterovb[#1]{1==N}{#2}} -\def\quinolinevt{% - \@ifnextchar[{\@quinolinevt[@}{\@quinolinevt[acfhk]}} -\def\@quinolinevt[#1]#2{% -\iforigpt \typeout{command `quinolinevt' % - is based on `decaheterovt'.}\fi% -\decaheterovt[#1]{1==N}{#2}} -\def\isoquinolinev{% - \@ifnextchar[{\@isoquinolinev[@}{\@isoquinolinev[acfhk]}} -\def\@isoquinolinev[#1]#2{% -\iforigpt \typeout{command `isoquinolinev' % - is based on `decaheterov'.}\fi% -\decaheterov[#1]{2==N}{#2}} -\def\isoquinolinevi{% - \@ifnextchar[{\@isoquinolinevi[@}{\@isoquinolinevi[acfhk]}} -\def\@isoquinolinevi[#1]#2{% -\iforigpt \typeout{command `isoquinolinevi' % - is based on `decaheterovi'.}\fi% -\decaheterovi[#1]{2==N}{#2}}% -\def\isoquinolinevb{% - \@ifnextchar[{\@isoquinolinevb[@}{\@isoquinolinevb[acfhk]}} -\def\@isoquinolinevb[#1]#2{% -\iforigpt \typeout{command `isoquinolinevb' % - is based on `decaheterovi'.}\fi% -\decaheterovb[#1]{2==N}{#2}}% -\def\isoquinolinevt{% - \@ifnextchar[{\@isoquinolinevt[@}{\@isoquinolinevt[acfhk]}} -\def\@isoquinolinevt[#1]#2{% -\iforigpt \typeout{command `isoquinolinevt' % - is based on `decaheterovt'.}\fi% -\decaheterovt[#1]{2==N}{#2}}% -\def\quinoxalinev{% - \@ifnextchar[{\@quinoxalinev[@}{\@quinoxalinev[acfhk]}} -\def\@quinoxalinev[#1]#2{% -\iforigpt \typeout{command `quinoxalinev' % - is based on `decaheterov'.}\fi% -\decaheterov[#1]{1==N;4==N}{#2}} -\def\quinoxalinevi{% - \@ifnextchar[{\@quinoxalinevi[@}{\@quinoxalinevi[acfhk]}} -\def\@quinoxalinev[#1]#2{% -\iforigpt \typeout{command `quinoxalinevi' % - is based on `decaheterovi'.}\fi% -\decaheterovi[#1]{1==N;4==N}{#2}} -\def\quinoxalinevb{% - \@ifnextchar[{\@quinoxalinevb[@}{\@quinoxalinevb[acfhk]}} -\def\@quinoxalinevb[#1]#2{% -\iforigpt \typeout{command `quinoxalinevb' % - is based on `decaheterovb'.}\fi% -\decaheterovb[#1]{1==N;4==N}{#2}} -\def\quinoxalinevt{% - \@ifnextchar[{\@quinoxalinevt[@}{\@quinoxalinevt[acfhk]}} -\def\@quinoxalinevt[#1]#2{% -\iforigpt \typeout{command `quinoxalinevt' % - is based on `decaheterovt'.}\fi% -\decaheterovt[#1]{1==N;4==N}{#2}} -\def\quinazolinev{% - \@ifnextchar[{\@quinazolinev[@}{\@quinazolinev[acfhk]}} -\def\@quinazolinev[#1]#2{% -\iforigpt \typeout{command `quinazolinev' % - is based on `decaheterov'.}\fi% -\decaheterov[#1]{1==N;3==N}{#2}} -\def\quinazolinevi{% - \@ifnextchar[{\@quinazolinevi[@}{\@quinazolinevi[acfhk]}} -\def\@quinazolinevi[#1]#2{% -\iforigpt \typeout{command `quinazolinevi' % - is based on `decaheterovi'.}\fi% -\decaheterovi[#1]{1==N;3==N}{#2}} -\def\quinazolinevb{% - \@ifnextchar[{\@quinazolinevb[@}{\@quinazolinevb[acfhk]}} -\def\@quinazolinevb[#1]#2{% -\iforigpt \typeout{command `quinazolinevb' % - is based on `decaheterovb'.}\fi% -\decaheterovb[#1]{1==N;3==N}{#2}} -\def\quinazolinevt{% - \@ifnextchar[{\@quinazolinevt[@}{\@quinazolinevt[acfhk]}} -\def\@quinazolinevt[#1]#2{% -\iforigpt \typeout{command `quinazolinevt' % - is based on `decaheterovt'.}\fi% -\decaheterovt[#1]{1==N;3==N}{#2}} -\def\cinnolinev{% - \@ifnextchar[{\@cinnolinev[@}{\@cinnolinev[acfhk]}} -\def\@cinnolinev[#1]#2{% -\iforigpt \typeout{command `cinnolinev' % - is based on `decaheterov'.}\fi% -\decaheterov[#1]{1==N;2==N}{#2}} -\def\cinnolinevi{% - \@ifnextchar[{\@cinnolinevi[@}{\@cinnolinevi[acfhk]}} -\def\@cinnolinevi[#1]#2{% -\iforigpt \typeout{command `cinnolinevi' % - is based on `decaheterovi'.}\fi% -\decaheterovi[#1]{1==N;2==N}{#2}} -\def\cinnolinevb{% - \@ifnextchar[{\@cinnolinevb[@}{\@cinnolinevb[acfhk]}} -\def\@cinnolinevb[#1]#2{% -\iforigpt \typeout{command `cinnolinevb' % - is based on `decaheterovb'.}\fi% -\decaheterovb[#1]{1==N;2==N}{#2}} -\def\cinnolinevt{% - \@ifnextchar[{\@cinnolinevt[@}{\@cinnolinevt[acfhk]}} -\def\@cinnolinevt[#1]#2{% -\iforigpt \typeout{command `cinnolinevt' % - is based on `decaheterovt'.}\fi% -\decaheterovt[#1]{1==N;2==N}{#2}} -\def\pteridinev{\@ifnextchar[{\@pteridinev[@}{\@pteridinev[acfhk]}} -\def\@pteridinev[#1]#2{% -\iforigpt \typeout{command `pteridinev' % - is based on `decaheterov'.}\fi% -\decaheterov[#1]{1==N;3==N;5==N;8==N}{#2}} -\def\pteridinevi{\@ifnextchar[{\@pteridinevi[@}{\@pteridinevi[acfhk]}} -\def\@pteridinevi[#1]#2{% -\iforigpt \typeout{command `pteridinevi' % - is based on `decaheterovi'.}\fi% -\decaheterovi[#1]{1==N;3==N;5==N;8==N}{#2}} -\def\pteridinevb{\@ifnextchar[{\@pteridinevb[@}{\@pteridinevb[acfhk]}} -\def\@pteridinevb[#1]#2{% -\iforigpt \typeout{command `pteridinevb' % - is based on `decaheterovb'.}\fi% -\decaheterovb[#1]{1==N;3==N;5==N;8==N}{#2}} -\def\pteridinevt{\@ifnextchar[{\@pteridinevt[@}{\@pteridinevt[acfhk]}} -\def\@pteridinevt[#1]#2{% -\iforigpt \typeout{command `pteridinevt' % - is based on `decaheterovt'.}\fi% -\decaheterovt[#1]{1==N;3==N;5==N;8==N}{#2}} -\def\nonaheterov{\@ifnextchar({\@nona@heterov(@}{\@nona@heterov(@)}} -\def\@nona@heterov(#1){\@ifnextchar[{\@nona@@heterov(#1)[@}% -{\@nona@@heterov(#1)[@]}} -\def\@nona@@heterov(#1)[#2]#3#4{\@ifnextchar[% -{\@nonaheterov(#1)[#2]{#3}{#4}[@}% -{\@nonaheterov(#1)[#2]{#3}{#4}[@]}} -\def\@nonaheterov(#1)[#2]#3#4[#5]{% -\iniflag\iniatom% -\test@vertix@nonav{#3}% -\@reset@ylsw% -\ylposition{#4}{5}{1}{5}{-1}% %substituents on 1 to 3 -\if@ylsw \ifx\@@ylii\empty -\def\@@ylii{-342}\def\@@yli{0}\fi -\else -{\let\ddd=\eee\let\eee=\fff\let\fff=\ggg -\ylposition{#4}{11}{3}{7}{-1}% %substituents on 5 to 7 -}% -\fi -\if@ylsw \ifx\@@ylii\empty -\def\@@ylii{0}\def\@@yli{0}\fi -\else -{\let\aaa=\hhh -\ylposition{#4}{-3}{0}{2}{0}%%substituent on 4 -}% -\fi -\if@ylsw \ifx\@@ylii\empty -\def\@@ylii{0}\def\@@yli{0}\fi -\else -{% -\clipdetection% -\@clipfusefalse \if@iclip \@clipfusetrue \fi% -\ylatombondposition{#4}{-8}{7}% %9 %for 7a position -}% -\fi -\if@ylsw \ifx\@@ylii\empty -\def\@@ylii{-171}\def\@@yli{-103}\fi -\else -{% -\clipdetection% -\@clipfusefalse \if@jclip \@clipfusetrue \fi% -\ylatombondposition{#4}{-7}{1}% %8 for 3a position -}% -\fi -\if@ylsw \ifx\@@ylii\empty -\def\@@ylii{-171}\def\@@yli{-303}\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}(1200,880)(-\shiftii,-\shifti)% - \iforigpt \put(-\shiftii,-\shifti){\circle*{50}}% - \put(-\noshift,-\noshift){\circle{50}}% - \typeout{command `nonaheterov' origin: % - (\the\noshift,\the\noshift) ---> (\the\shiftii,\the\shifti)}\fi% -\fi -\begingroup -\resetbdsw% -\@bond@@omit{#5}% -{\let\fff=\jjj \let\eee=\iii% -\put(342,0){\set@skel@bond{#1}{a}{c}}% - % bond between 1 and 2 \@aaa -> \skbondc etc -\put(342,0){\set@skel@bond{#1}{b}{b}}% - % bond between 2 and 3 \@bbb -> \skbondb etc -\put(342,0){\set@skel@longbond{#1}{c}{skbondhoriz}}% - % bond between 3 and 3a \@ccc -> \skbondhoriz etc -\put(342,0){\set@skel@bond{#1}{j}{e}}% - % bond between 3a and 7a \@jjj -> \skbonde etc -\put(342,0){\set@skel@bond{#1}{i}{d}}% - % bond between 7a and 1 \@iii -> \skbondd etc -}% -{\let\aaa=\hhh \let\ddd=\eee\let\eee=\fff\let\fff=\ggg% - \let\ccc=\iii\let\bbb=\jjj% -\set@skel@bond{#1}{d}{a}% bond between 3a and 4 \@ddd -> \skbonda etc -\set@skel@bond{#1}{h}{c}% bond between 7 and 7a \@hhh -> \skbondc etc -\set@skel@bond{#1}{g}{d}% bond between 6 and 7 \@ggg -> \skbondd etc -\set@skel@bond{#1}{f}{e}% bond between 5 and 6 \@fff -> \skbonde etc -\set@skel@bond{#1}{e}{f}% bond between 4 and 5 \@eee -> \skbondf etc -}% -\endgroup -\@tfor\member:=#2\do{% -\if\member r\relax% -{\let\aaa=\hhh \let\ddd=\eee\let\eee=\fff\let\fff=\ggg% - \let\ccc=\iii\let\bbb=\jjj% - \put(0,0){\bondb}% bond between 3a and 7a - \put(0,0){\bondf}% bond between 4 and 5 - \put(0,0){\bondd}% bond between 6 and 7 -}% -\else\if\member l\relax% -\else\if\member a\relax% - \put(342,0){\bondc}% bond between 3 and 4 -\else\if\member b\relax% - \put(342,0){\bondb}% bond between 2 and 3 -\else\if\member c\relax% - \put(342,0){\bondhoriz}% bond between 3 and 3a -\else\if\member d\relax% -{\let\aaa=\hhh \let\bbb=\jjj% - \put(0,0){\bonda}% bond between 4 and 3a -} -\else\if\member e\relax% -{\let\aaa=\hhh \let\fff=\ggg% - \put(0,0){\bondf}% bond between 4 and 5 -}% -\else\if\member f\relax% -{\let\eee=\fff \let\fff=\ggg% - \put(0,0){\bonde}% bond between 5 and 6 -}% -\else\if\member g\relax% -{\let\ddd=\eee \let\eee=\fff% - \put(0,0){\bondd}% bond between 6 and 7 -}% -\else\if\member h\relax% -{\let\ccc=\iii \let\ddd=\eee% - \put(0,0){\bondc}% bond between 7 and 7a -}% -\else\if\member i\relax% -{\let\eee=\iii% - \put(342,0){\bondd}% bond between 1 and 7a -}% -\else\if\member j\relax% -{\let\ccc=\iii\let\bbb=\jjj% - \put(0,0){\bondb}% bond between 7a and 3a -}% -\else\if\member J\relax% -{\let\eee=\iii\let\fff=\jjj% - \put(342,0){\bonde}% bond between 7a and 3a -}% -\else\if\member A%left aromatic circle - \put(0,203){\circle{240}} %circle -\else\if\member B%left aromatic circle - \put(342,173){\circle{180}} %circle 1993/11/20 S.Fujita -\else - \expandafter\twoCH@@R\member//% - \def\aax{7a} \def\aay{3a}% - \if\@@tmpa 1\relax% - \putratom{304}{68}{\@@tmpb}% % right type - \else\if\@@tmpa 2\relax% - \putratom{402}{120}{\@@tmpb}% % right type - \else\if\@@tmpa 3\relax% - \putratom{402}{253}{\@@tmpb}% % right type - \else\if\@@tmpa 4\relax% - \putratom{-38}{282}{\@@tmpb}% % right type - \else\if\@@tmpa 5\relax% - \putlatom{-60}{120}{\@@tmpb}% % left type - \else\if\@@tmpa 6\relax% - \putlatom{-60}{253}{\@@tmpb}% % left type - \else\if\@@tmpa 7\relax% - \putratom{-38}{68}{\@@tmpb}% % right type - \else\if\@@tmpa 8\relax% - \putratom{60}{253}{\@@tmpb}% % right type - \else\ifx\@@tmpa\aax\relax% - \putratom{60}{253}{\@@tmpb}% % right type - \else\ifx\@@tmpa\aay\relax% - \putratom{60}{120}{\@@tmpb}% % right type - \else\if\@@tmpa 9\relax% - \putratom{60}{120}{\@@tmpb}% % right type - \fi\fi\fi\fi\fi\fi\fi\fi\fi\fi\fi% - \expandafter\twoCH@R\member//% - \set@fusion@nonav -\fi\fi\fi\fi\fi\fi\fi\fi\fi% -\fi\fi\fi\fi\fi\fi% -}% -\iniflag\iniatom% -\@tmpclipfalse -\put(0,0){\set@hetatom@sixv{#3}{11}{3}{7}{-1}% - \@gclipfalse \if@fclip \global\@gcliptrue \fi% - \@fclipfalse \if@eclip \global\@fcliptrue \fi% - \@eclipfalse \if@clip \global\@ecliptrue \fi% -}%substituents on 5 to 7 -\put(342,0){\set@hetatom@sixv{#3}{5}{1}{5}{-1}% - \if@bclip \global\@bcliptrue\fi - \if@cclip \global\@ccliptrue\fi - \if@clip \global\@cliptrue\fi -}% %substituents on 1 to 3 -\put(0,0){\set@hetatom@sixv{#3}{-3}{0}{2}{0}% - \@aclipfalse \if@aclip \global\@hcliptrue \fi% -}%%substituent on 4 -\put(0,0){\set@vrtx@nonafusev{#3}% - \@tmpclipfalse - \if@iclip \global\@tmpcliptrue \fi - \if@jclip \global\@icliptrue \fi - \if@tmpclip \global\@jcliptrue \fi -}% fused positions -\put(342,0){\setsixringv{#4}{5}{1}{5}{-1}}% %substituents on 1 to 3 -{\@clipfalse \if@eclip \@cliptrue \fi% %substituents on 5 to 7 - \@eclipfalse \if@fclip \@ecliptrue \fi% - \@fclipfalse \if@gclip \@fcliptrue \fi% -\put(0,0){\setsixringv{#4}{11}{3}{7}{-1}}% -}% -{\@aclipfalse \if@hclip \@acliptrue \fi% %substituent on 4 -\put(0,0){\setsixringv{#4}{-3}{0}{2}{0}}% -}% -{\@clipfusefalse \if@iclip \@clipfusetrue \fi% - \put(171,103){\setatombond{#4}{-8}{7}}% %9 for 7a position -}% -{\@clipfusefalse \if@jclip \@clipfusetrue \fi% - \put(171,303){\setatombond{#4}{-7}{1}}% %8 for 3a position -}% -\end{picture}\iniatom\iniflag}% %end of \nonaheterov macro -\def\test@vertix@nonav#1{% -\@forsemicol\member:=#1\do{% -\ifx\member\empty\else% -\expandafter\@m@mb@r\member;\relax% -\expandafter\twoch@r\@membera{}% -\ifcase\@tmpa% - \or% - \if\@tmpb s\relax\def\ddd{}\else\def\ddd{@}\fi - \or%2 - \if\@tmpb s\relax\def\ccc{}\else\def\ccc{@}\fi - \or%3% - \if\@tmpb a% - \def\jjj{@}%3a - \else\if\@tmpb s% - \def\bbb{}%3 - \else\if\@tmpb h% - \def\bbb{@}%3 - \else\ifx\@tmpb\empty% - \def\bbb{@}%3 - \fi\fi\fi\fi% - \or%4 - \if\@tmpb s\relax\def\hhh{}\else\def\hhh{@}\fi - \or%5 - \if\@tmpb s\relax\def\ggg{}\else\def\ggg{@}\fi - \or%6 - \if\@tmpb s\relax\def\fff{}\else\def\fff{@}\fi - \or%7 - \if\@tmpb a% - \xdef\iii{@}%7a - \else\if\@tmpb s% - \xdef\eee{}%7s - \else\if\@tmpb h% - \xdef\eee{@}%7h - \else\ifx\@tmpb\empty% - \xdef\eee{@}%7 - \fi\fi\fi\fi% -\or%8 (= 3a) - \if\@tmpb s\relax\def\jjj{}\else\def\jjj{@}\fi -\or%9 (= 7a) - \if\@tmpb s\relax\def\iii{}\else\def\iii{@}\fi -\fi\fi}}% end of \test@vertix@nonav -\def\set@vrtx@nonafusev#1{% -\@forsemicol\member:=#1\do{% -\ifx\member\empty\else% -\expandafter\@m@mb@r\member;\relax% -\expandafter\twoch@r\@membera{}% -\ifcase\@tmpa\or\or - \or%%%%3 - \if\@tmpb a% - \global\@icliptrue% - \putlatom{207}{280}{\@memberb}% % left type - \else\relax - \fi - \or\or\or - \or%7 - \if\@tmpb a% - \global\@jcliptrue% - \putlatom{207}{65}{\@memberb}% % left type - \else\relax - \fi -\or%8 (= 3a) - \global\@icliptrue% - \putlatom{207}{280}{\@memberb}% % left type -\or%9 (= 7a) - \global\@jcliptrue% - \putlatom{207}{65}{\@memberb}% % left type -\fi\fi}% -}% end of the macro \set@vrtx@nonafusev -\def\nonaheterovi{\@ifnextchar({\@nona@heterovi(@}{\@nona@heterovi(@)}} -\def\@nona@heterovi(#1){\@ifnextchar[{\@nona@@heterovi(#1)[@}% -{\@nona@@heterovi(#1)[@]}} -\def\@nona@@heterovi(#1)[#2]#3#4{\@ifnextchar[% -{\@nonaheterovi(#1)[#2]{#3}{#4}[@}% -{\@nonaheterovi(#1)[#2]{#3}{#4}[@]}} -\def\@nonaheterovi(#1)[#2]#3#4[#5]{% -\iniflag\iniatom%initialize -\test@vertix@nonavi{#3}% -\@reset@ylsw% -\ylposition{#4}{0}{0}{4}{0}% %substituents on 1 to 3 -\if@ylsw \ifx\@@ylii\empty -\def\@@ylii{-342}\def\@@yli{0}\fi -\else -{\let\ddd=\eee\let\eee=\fff\let\fff=\ggg -\ylposition{#4}{0}{3}{7}{0}%%substituents on 4 to 6 -}% -\fi -\if@ylsw \ifx\@@ylii\empty -\def\@@ylii{0}\def\@@yli{0}\fi -\else -{\let\aaa=\hhh -\ylposition{#4}{-6}{0}{2}{0}%%substituent on 7 -}% -\fi -\if@ylsw \ifx\@@ylii\empty -\def\@@ylii{0}\def\@@yli{0}\fi -\else -{% -\clipdetection% -\@clipfusefalse \if@iclip \@clipfusetrue \fi% -\ylatombondposition{#4}{-7}{7}% %8 for 3a position -}% -\fi -\if@ylsw \ifx\@@ylii\empty -\def\@@ylii{-171}\def\@@yli{-103}\fi -\else -{% -\clipdetection% -\@clipfusefalse \if@jclip \@clipfusetrue \fi% -\ylatombondposition{#4}{-8}{1}% %9 for 7a position -}% -\fi -\if@ylsw \ifx\@@ylii\empty -\def\@@ylii{-171}\def\@@yli{-303}\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}(1200,880)(-\shiftii,-\shifti)% - \iforigpt \put(-\shiftii,-\shifti){\circle*{50}}% - \put(-\noshift,-\noshift){\circle{50}}% - \typeout{command `nonaheterovi' origin: % - (\the\noshift,\the\noshift) ---> (\the\shiftii,\the\shifti)}\fi% -\fi -\begingroup -\resetbdsw% -\@bond@@omit{#5}% -{\let\fff=\jjj \let\eee=\iii% -\put(342,0){\set@skel@bond{#1}{a}{a}}% - % bond between 1 and 2 \@aaa -> \skbonda etc -\put(342,0){\set@skel@bond{#1}{b}{b}}% - % bond between 2 and 3 \@bbb -> \skbondb etc -\put(342,0){\set@skel@longbond{#1}{c}{skbondhorizi}}% - % bond between 3 and 3a \@ccc -> \skbondhoriz etc -\put(342,0){\set@skel@bond{#1}{j}{e}}% - % bond between 3a and 7a \@jjj -> \skbonde etc -\put(342,0){\set@skel@bond{#1}{i}{f}}% - % bond between 7a and 1 \@iii -> \skbondf etc -}% -{\let\aaa=\hhh \let\ddd=\eee\let\eee=\fff\let\fff=\ggg% - \let\ccc=\iii\let\bbb=\jjj% -\set@skel@bond{#1}{h}{a}% bond between 7a and 7 \@hhh -> \skbonda etc -\set@skel@bond{#1}{d}{c}% bond between 3a and 4 \@ddd -> \skbondc etc -\set@skel@bond{#1}{e}{d}% bond between 4 and 5 \@eee -> \skbondd etc -\set@skel@bond{#1}{f}{e}% bond between 5 and 6 \@fff -> \skbonde etc -\set@skel@bond{#1}{g}{f}% bond between 6 and 7 \@ggg -> \skbondf etc -}% -\endgroup -\@tfor\member:=#2\do{% -\if\member r\relax% -{\let\aaa=\hhh \let\ddd=\eee\let\eee=\fff\let\fff=\ggg - \let\ccc=\iii\let\bbb=\jjj - \put(0,0){\bondb}% bond between 3a and 7a - \put(0,0){\bondf}% bond between 6 and 7 - \put(0,0){\bondd}% bond between 4 and 5 -}% -\else\if\member l\relax% -\else\if\member a\relax% - \put(342,0){\bonda}% bond between 1 and 2 -\else\if\member b\relax% - \put(342,0){\bondb}% bond between 2 and 3 -\else\if\member c\relax% - \put(342,0){\bondhorizi}% bond between 3 and 3a -\else\if\member d\relax% -{\let\ccc=\iii \let\ddd=\eee% - \put(0,0){\bondc}% bond between 4 and 3a -}% -\else\if\member e\relax% -{\let\ddd=\eee\let\eee=\fff% - \put(0,0){\bondd}% bond between 4 and 5 -}% -\else\if\member f\relax% -{\let\eee=\fff \let\fff=\ggg% - \put(0,0){\bonde}% bond between 5 and 6 -}% -\else\if\member g\relax% -{\let\aaa=\hhh \let\fff=\ggg% - \put(0,0){\bondf}% bond between 7 and 6 -}% -\else\if\member h\relax% -{\let\aaa=\hhh \let\bbb=\jjj% - \put(0,0){\bonda}% bond between 7 and 7a -}% -\else\if\member i\relax% -{\let\fff=\jjj% - \put(342,0){\bondf}% bond between 1 and 7a -}% -\else\if\member j\relax% -{\let\ccc=\iii\let\bbb=\jjj% - \put(0,0){\bondb}% bond between 7a and 3a -}% -\else\if\member J\relax% -{\let\eee=\iii\let\fff=\jjj% - \put(342,0){\bonde}% bond between 7a and 3a -}% -\else\if\member A%left aromatic circle - \put(0,203){\circle{240}}% %circle -\else\if\member B%left aromatic circle - \put(342,233){\circle{180}} %circle 1993/11/20 S.Fujita -\else - \expandafter\twoCH@@R\member//% - \def\aax{7a} \def\aay{3a}% - \if\@@tmpa 1\relax% - \putratom{304}{282}{\@@tmpb}% % right type - \else\if\@@tmpa 3\relax% - \putratom{402}{120}{\@@tmpb}% % right type - \else\if\@@tmpa 2\relax% - \putratom{402}{253}{\@@tmpb}% % right type - \else\if\@@tmpa 7\relax% - \putratom{-38}{282}{\@@tmpb}% % right type - \else\if\@@tmpa 6\relax% - \putlatom{-60}{120}{\@@tmpb}% % left type - \else\if\@@tmpa 5\relax% - \putlatom{-60}{253}{\@@tmpb}% % left type - \else\if\@@tmpa 4\relax% - \putratom{-38}{68}{\@@tmpb}% % right type - \else\if\@@tmpa 9\relax% - \putratom{60}{253}{\@@tmpb}% % right type - \else\ifx\@@tmpa\aax\relax% - \putratom{60}{253}{\@@tmpb}% % right type - \else\ifx\@@tmpa\aay\relax% - \putratom{60}{120}{\@@tmpb}% % right type - \else\if\@@tmpa 8\relax% - \putratom{60}{120}{\@@tmpb}% % right type - \fi\fi\fi\fi\fi\fi\fi\fi\fi\fi\fi% - \expandafter\twoCH@R\member//% - \set@fusion@nonavi -\fi\fi\fi\fi\fi\fi\fi\fi\fi% -\fi\fi\fi\fi\fi\fi% -}% -\iniflag -\put(342,0){\set@hetatom@sixv{#3}{0}{0}{4}{0}% - \if@aclip \global\@acliptrue\fi - \if@bclip \global\@bcliptrue\fi - \if@cclip \global\@ccliptrue\fi -}% %substituents on 1 to 3 -\put(0,0){\set@hetatom@sixv{#3}{0}{3}{7}{0}% - \@gclipfalse \if@fclip \global\@gcliptrue \fi% - \@fclipfalse \if@eclip \global\@fcliptrue \fi% - \@eclipfalse \if@clip \global\@ecliptrue \fi}%substituents on 4 to 6 -\put(0,0){\set@hetatom@sixv{#3}{-6}{0}{2}{0}% - \@hclipfalse \if@aclip \global\@hcliptrue \fi}%%substituent on 7 -\put(0,0){\set@vrtx@nonafusevi{#3}% - \if@iclip \global\@icliptrue \fi - \if@jclip \global\@jcliptrue \fi}% fused positions -\put(342,0){\setsixringv{#4}{0}{0}{4}{0}}% %substituents on 1 to 3 -{\@clipfalse \if@eclip \@cliptrue \fi% %substituents on 4 to 6 - \@eclipfalse \if@fclip \@ecliptrue \fi% - \@fclipfalse \if@gclip \@fcliptrue \fi% -\put(0,0){\setsixringv{#4}{0}{3}{7}{0}}% -}% -{\@aclipfalse \if@hclip \@acliptrue \fi% %substituent on 7 -\put(0,0){\setsixringv{#4}{-6}{0}{2}{0}}% -}% -{\@clipfusefalse \if@iclip \@clipfusetrue \fi% - \put(171,103){\setatombond{#4}{-7}{7}}% %8 for 3a position -}% -{\@clipfusefalse \if@jclip \@clipfusetrue \fi% - \put(171,303){\setatombond{#4}{-8}{1}}% %9 for 7a position -}% -\end{picture}\iniatom\iniflag}% %end of \nonaheterovi macro -\def\test@vertix@nonavi#1{% -\@forsemicol\member:=#1\do{% -\ifx\member\empty\else% -\expandafter\@m@mb@r\member;\relax% -\expandafter\twoch@r\@membera{}% -\ifcase\@tmpa% - \or% - \if\@tmpb s\relax\def\aaa{}\else\def\aaa{@}\fi - \or%2 - \if\@tmpb s\relax\def\bbb{}\else\def\bbb{@}\fi - \or%3% - \if\@tmpb a% - \def\iii{@}%3a - \else\if\@tmpb s% - \def\ccc{}%3 - \else\if\@tmpb h% - \def\ccc{@}%3 - \else\ifx\@tmpb\empty% - \def\ccc{@}%3 - \fi\fi\fi\fi% - \or%4 - \if\@tmpb s\relax\def\eee{}\else\def\eee{@}\fi - \or%5 - \if\@tmpb s\relax\def\fff{}\else\def\fff{@}\fi - \or%6 - \if\@tmpb s\relax\def\ggg{}\else\def\ggg{@}\fi - \or%7 - \if\@tmpb a% - \xdef\jjj{@}%7a - \else\if\@tmpb s% - \xdef\hhh{}%7s - \else\if\@tmpb h% - \xdef\hhh{@}%7h - \else\ifx\@tmpb\empty% - \xdef\hhh{@}%7 - \fi\fi\fi\fi% -\or%8 (= 3a) - \if\@tmpb s\relax\def\iii{}\else\def\iii{@}\fi -\or%9 (= 7a) - \if\@tmpb s\relax\def\jjj{}\else\def\jjj{@}\fi -\fi\fi}} -\def\set@vrtx@nonafusevi#1{% -\@forsemicol\member:=#1\do{% -\ifx\member\empty\else% -\expandafter\@m@mb@r\member;\relax% -\expandafter\twoch@r\@membera{}% -\ifcase\@tmpa\or\or - \or%%%%3 - \if\@tmpb a% - \global\@icliptrue% - \putlatom{207}{65}{\@memberb}% % left type - \else\relax - \fi - \or\or\or - \or%7 - \if\@tmpb a% - \global\@jcliptrue% - \putlatom{207}{280}{\@memberb}% % left type - \else\relax - \fi -\or%8 (= 3a) - \global\@icliptrue% - \putlatom{207}{65}{\@memberb}% % left type -\or%9 (= 7a) - \global\@jcliptrue% - \putlatom{207}{280}{\@memberb}% % left type -\fi\fi}% -}% end of the macro \set@vrtx@nonafusevi -\def\purinev{\@ifnextchar[{\@purinev[@}{\@purinev[ra]}} -\def\@purinev[#1]#2{% -\iforigpt \typeout{command `purinev' % - is based on `nonaheterov'.}\fi% -\nonaheterov[#1]{1==N;3==N;5==N;7==N}{#2}} -\def\purinevi{\@ifnextchar[{\@purinevi[@}{\@purinevi[ra]}} -\def\@purinevi[#1]#2{% -\iforigpt \typeout{command `purinevi' % - is based on `nonaheterovi'.}\fi% -\nonaheterovi[#1]{1==N;3==N;5==N;7==N}{#2}} -\def\indolev{\@ifnextchar[{\@indolev[@}{\@indolev[rb]}} -\def\@indolev[#1]#2{% -\iforigpt \typeout{command `indolev' % - is based on `nonaheterov'.}\fi% -\nonaheterov[#1]{1==N}{#2}} -\def\indolevi{\@ifnextchar[{\@indolevi[@}{\@indolevi[rb]}} -\def\@indolevi[#1]#2{% -\iforigpt \typeout{command `indolevi' % - is based on `nonaheterovi'.}\fi% -\nonaheterovi[#1]{1==N}{#2}} -\def\indolizinev{% - \@ifnextchar[{\@indolizinev[@}{\@indolizinev[aceg]}} -\def\@indolizinev[#1]#2{% -\iforigpt \typeout{command `indolizinev' % - is based on `nonaheterov'.}\fi% -\nonaheterov[#1]{7a==N}{#2}} -\def\indolizinevi{% - \@ifnextchar[{\@indolizinevi[@}{\@indolizinevi[aceg]}} -\def\@indolizinevi[#1]#2{% -\iforigpt \typeout{command `indolizinevi' % - is based on `nonaheterovi'.}\fi% -\nonaheterovi[#1]{7a==N}{#2}} -\def\isoindolev{\@ifnextchar[{\@isoindolev[@}{\@isoindolev[cegi]}} -\def\@isoindolev[#1]#2{% -\iforigpt \typeout{command `isoindolev' % - is based on `nonaheterov'.}\fi% -\nonaheterov[#1]{2==N}{#2}} -\def\isoindolevi{\@ifnextchar[{\@isoindolevi[@}{\@isoindolevi[cegi]}} -\def\@isoindolevi[#1]#2{% -\iforigpt \typeout{command `isoindolevi' % - is based on `nonaheterovi'.}\fi% -\nonaheterovi[#1]{2==N}{#2}} -\def\benzofuranev{% - \@ifnextchar[{\@benzofuranev[@}{\@benzofuranev[rb]}} -\def\@benzofuranev[#1]#2{% -\iforigpt \typeout{command `benzofuranev' % - is based on `nonaheterov'.}\fi% -\nonaheterov[#1]{1==O}{#2}} -\def\benzofuranevi{% - \@ifnextchar[{\@benzofuranevi[@}{\@benzofuranevi[rb]}} -\def\@benzofuranevi[#1]#2{% -\iforigpt \typeout{command `benzofuranevi' % - is based on `nonaheterovi'.}\fi% -\nonaheterovi[#1]{1==O}{#2}} -\def\isobenzofuranev{\@ifnextchar[{\@isobenzofuranev[@}% - {\@isobenzofuranev[cegi]}} -\def\@isobenzofuranev[#1]#2{% -\iforigpt \typeout{command `isobenzofuranev' % - is based on `nonaheterov'.}\fi% -\nonaheterov[#1]{2==O}{#2}} -\def\isobenzofuranevi{\@ifnextchar[{\@isobenzofuranevi[@}% - {\@isobenzofuranevi[cegi]}} -\def\@isobenzofuranevi[#1]#2{% -\iforigpt \typeout{command `isobenzofuranevi' % - is based on `nonaheterovi'.}\fi% -\nonaheterovi[#1]{2==O}{#2}} -\def\benzoxazolev{% - \@ifnextchar[{\@benzoxazolev[@}{\@benzoxazolev[rb]}} -\def\@benzoxazolev[#1]#2{% -\iforigpt \typeout{command `benzoxazolev' % - is based on `nonaheterov'.}\fi% -\nonaheterov[#1]{1==O;3==N}{#2}} -\def\benzoxazolevi{% - \@ifnextchar[{\@benzoxazolevi[@}{\@benzoxazolevi[rb]}} -\def\@benzoxazolevi[#1]#2{% -\iforigpt \typeout{command `benzoxazolevi' % - is based on `nonaheterovi'.}\fi% -\nonaheterovi[#1]{1==O;3==N}{#2}} -\def\sixunitv{\@ifnextchar[{\@sixunitv[@}{\@sixunitv[@]}} -\def\@sixunitv[#1]#2#3#4{\sixheterov[#1]{#2}{#3}[#4]} -\def\fiveunitv{\@ifnextchar[{\@fiveunitv[@}{\@fiveunitv[r]}} -\def\@fiveunitv[#1]#2#3#4{\fiveheterov[#1]{#2}{#3}[#4]} -\def\fiveunitvi{\@ifnextchar[{\@fiveunitvi[@}{\@fiveunitvi[r]}} -\def\@fiveunitvi[#1]#2#3#4{\fiveheterovi[#1]{#2}{#3}[#4]} -\def\bondshoriz{% - \begin{picture}(200,300)(0,0) - \ifx\fff\empty% - \ifx\bbb\empty% - \put(-138,270){\line(1,0){134}}%double bond 4-3 - \else% - \put(-138,270){\line(1,0){115}}%double bond 4-3 - \fi% - \else% - \ifx\bbb\empty% - \put(-120,270){\line(1,0){115}}%double bond 4-3 - \else% - \put(-120,270){\line(1,0){96}}%double bond 4-3 - \fi% - \fi\end{picture}}% -\def\bondshorizi{% - \begin{picture}(200,300)(0,0) - \ifx\eee\empty% - \ifx\ccc\empty% - \put(-138,136){\line(1,0){134}}%double bond 4-3 - \else%% - \put(-138,136){\line(1,0){115}}%double bond 4-3 - \fi% - \else% - \ifx\ccc\empty% - \put(-120,136){\line(1,0){115}}%double bond 4-3 - \else% - \put(-120,136){\line(1,0){96}}%double bond 4-3 - \fi% - \fi\end{picture}}% -\def\skbondshoriz{% - \begin{picture}(200,300)(0,0) - \ifx\fff\empty% - \ifx\bbb\empty% - \put(-171,303){\line(1,0){200}}%bond 4-3 - \else% - \put(-171,303){\line(1,0){158}}%bond 4-3 - \fi% - \else% - \ifx\bbb\empty% - \put(29,303){\line(-1,0){158}}%bond 4-3 - \else% - \put(-129,303){\line(1,0){116}}%bond 4-3 - \fi% - \fi\end{picture}}% -\def\skbondshorizi{% - \begin{picture}(200,300)(0,0) - \ifx\eee\empty% - \ifx\ccc\empty% - \put(-171,103){\line(1,0){200}}%bond 4-3 - \else% - \put(-171,103){\line(1,0){158}}%bond 4-3 - \fi% - \else% - \ifx\ccc\empty% - \put(29,103){\line(-1,0){158}}%bond 4-3 - \else% - \put(-129,103){\line(1,0){116}}%bond 4-3 - \fi% - \fi\end{picture}}% -\def\dotskbondshoriz{% - \begin{picture}(200,300)(0,0) - \ifx\fff\empty% - \ifx\bbb\empty% - \@ifundefined{dottedline}{% - \put(-171,303){\line(1,0){200}}%bond 4-3 - }{{\thicklines% - \dottedline{20}(-171,303)(29,303)}}% - \else% - \@ifundefined{dottedline}{% - \put(-171,303){\line(1,0){158}}%bond 4-3 - }{{\thicklines% - \dottedline{20}(-171,303)(-29,303)}}% - \fi% - \else% - \ifx\bbb\empty% - \@ifundefined{dottedline}{% - \put(29,303){\line(-1,0){158}}%bond 4-3 - }{{\thicklines% - \dottedline{20}(29,303)(-129,303)}}% - \else% - \@ifundefined{dottedline}{% - \put(-129,303){\line(1,0){116}}%bond 4-3 - }{{\thicklines% - \dottedline{20}(-129,303)(-13,303)}}% - \fi% - \fi\end{picture}}% -\def\dotskbondshorizi{% - \begin{picture}(200,300)(0,0) - \ifx\eee\empty% - \ifx\ccc\empty% - \@ifundefined{dottedline}{% - \put(-171,103){\line(1,0){200}}%bond 4-3 - }{{\thicklines% - \dottedline{20}(-171,103)(29,103)}}% - \else% - \@ifundefined{dottedline}{% - \put(-171,103){\line(1,0){158}}%bond 4-3 - }{{\thicklines% - \dottedline{20}(-171,103)(-29,103)}}% - \fi% - \else% - \ifx\ccc\empty% - \@ifundefined{dottedline}{% - \put(29,103){\line(-1,0){158}}%bond 4-3 - }{{\thicklines% - \dottedline{20}(29,103)(-129,103)}}% - \else% - \@ifundefined{dottedline}{% - \put(-129,103){\line(1,0){116}}%bond 4-3 - }{{\thicklines% - \dottedline{20}(-129,103)(-13,103)}}% - \fi% - \fi\end{picture}}% -\def\fourhetero{\@ifnextchar({\@four@hetero(@}{\@four@hetero(@)}} -\def\@four@hetero(#1){\@ifnextchar[{\@four@@hetero(#1)[@}% -{\@four@@hetero(#1)[@]}} -\def\@four@@hetero(#1)[#2]#3#4{\@ifnextchar[% -{\@fourhetero(#1)[#2]{#3}{#4}[@}% -{\@fourhetero(#1)[#2]{#3}{#4}[@]}} -\def\@fourhetero(#1)[#2]#3#4[#5]{% -\iniatom\iniflag%initialize -\test@vertix@sixv{#3}{e}{c}{b}{f}{@}{@}% -\@reset@ylsw% -\ylposition{#4}{5}{1}{4}{-1}% for 2 to 3 -\if@ylsw \ifx\@@ylii\empty -\def\@@ylii{142}\def\@@yli{0}\fi -\else -\ylposition{#4}{4}{4}{6}{0}% for 1 -\fi -\if@ylsw \ifx\@@ylii\empty -\def\@@ylii{0}\def\@@yli{0}\fi -\else -\ylposition{#4}{2}{5}{7}{0}% for 4 -\fi -\if@ylsw \ifx\@@ylii\empty -\def\@@ylii{0}\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}(800,880)(-571,-137)% - \iforigpt\put(-571,-137){\circle*{50}}% - \put(-171,103){\circle{50}}% - \typeout{command `fourhetero' origin: % - (\the\noshift,\the\noshift) ---> (\the\shiftii,\the\shifti)}\fi% -\fi -{\resetbdsw% -\@bond@@omit{#5}% -\put(0,0){\set@skel@longbond{#1}{a}{skbondshorizi}}% - % bond between 1 and 2 \@aaa -> \skbondshorizi etc -\put(-142,0){\set@skel@bond{#1}{b}{b}}% - % bond between 2 and 3 \@bbb -> \skbondb etc -\put(0,0){\set@skel@longbond{#1}{c}{skbondshoriz}}% - % bond between 3 and 4 \@ccc -> \skbondshoriz etc -\put(0,0){\set@skel@bond{#1}{d}{e}}% - % bond between 4 and 1 \@ddd -> \skbonde etc -}% -\@tfor\member:=#2\do{% -\if\member r% -\else\if\member a\relax \put(0,0){\bondshorizi}% -\else\if\member b\relax \put(-142,0){\bondb}% -\else\if\member c\relax \put(0,0){\bondshoriz}% -\else\if\member d\relax \put(0,0){\bonde}% -\else - \expandafter\twoCH@@R\member//% - \set@fusionadd@fourv -\fi\fi\fi\fi\fi}% -\put(-142,0){\set@hetatom@sixv{#3}{5}{1}{4}{-1}}% for 2 to 3 -\put(0,0){\set@hetatom@sixv{#3}{4}{4}{6}{0}}% for 1 -\put(0,0){\set@hetatom@sixv{#3}{2}{5}{7}{0}}% for 4 -\put(-142,0){\setsixringv{#4}{5}{1}{4}{-1}}% for 2 to 3 -\put(0,0){\setsixringv{#4}{4}{4}{6}{0}}% for 1 -\put(0,0){\setsixringv{#4}{2}{5}{7}{0}}% for 4 -\end{picture}\iniatom\iniflag}% %end of \fourhetero macro -\def\set@fusionadd@fourv{% - \if\@@tmpa 1\relax% - \putlatom{-200}{120}{\scriptsize \@@tmpb}% % right type - \else\if\@@tmpa 2\relax% - \putratom{60}{120}{\scriptsize \@@tmpb}% % right type - \else\if\@@tmpa 3\relax% - \putratom{60}{233}{\scriptsize \@@tmpb}% % right type - \else\if\@@tmpa 4\relax% - \putlatom{-200}{233}{\scriptsize \@@tmpb}% % right type - \else - \set@fusion@fourv - \fi\fi\fi\fi% -}% -\def\set@fusion@fourv{% -\if\@@tmpa d\relax% - \putlratom{-171}{303}{\@@tmpb}% % bond fused - \FuseWarning{0}{200}% - {\fuseAx}{\fuseAy}{\fuseBx}{\fuseBy}{d}% - \else\if\@@tmpa D\relax% - \putlratom{-171}{103}{\@@tmpb}% % bond fused - \FuseWarning{0}{-200}% - {\fuseAx}{\fuseAy}{\fuseBx}{\fuseBy}{D}% - \else\if\@@tmpa a\relax% - \putlratom{-173}{103}{\@@tmpb}% % bond fused - \FuseWarning{-200}{0}% - {\fuseAx}{\fuseAy}{\fuseBx}{\fuseBy}{f}% - \else\if\@@tmpa A\relax% - \putlratom{27}{103}{\@@tmpb}% % bond fused - \FuseWarning{200}{0}% - {\fuseAx}{\fuseAy}{\fuseBx}{\fuseBy}{A}% - \else\if\@@tmpa b\relax% - \putlratom{27}{103}{\@@tmpb}% % bond fused - \FuseWarning{0}{-200}% - {\fuseAx}{\fuseAy}{\fuseBx}{\fuseBy}{b}% - \else\if\@@tmpa B\relax% - \putlratom{27}{303}{\@@tmpb}% % bond fused - \FuseWarning{0}{200}% - {\fuseAx}{\fuseAy}{\fuseBx}{\fuseBy}{B}% - \else\if\@@tmpa c\relax% - \putlratom{27}{303}{\@@tmpb}% % bond fused - \FuseWarning{200}{0}% - {\fuseAx}{\fuseAy}{\fuseBx}{\fuseBy}{c}% - \else\if\@@tmpa C\relax% - \putlratom{-171}{303}{\@@tmpb}% % bond fused - \FuseWarning{-200}{0}% - {\fuseAx}{\fuseAy}{\fuseBx}{\fuseBy}{C}% -\fi\fi\fi\fi\fi\fi\fi\fi% -}% end of the macro \set@fusion@fourv - \def\bondtria{% - \ifx\ddd\empty% - \ifx\bbb\empty% - \put(-6,42){\line(3,5){72}}% %double bond 1-2 - \else% - \put(-6,42){\line(3,5){60}}% %double bond 1-2 - \fi% - \else% - \ifx\bbb\empty% - \put(6,62){\line(3,5){60}}% %double bond 1-2 - \else% - \put(10,32){\line(3,5){60}}% %double bond 1-2 - \fi% - \fi% -}% - \def\bondtrib{% - \ifx\ddd\empty% - \ifx\fff\empty% - \put(6,42){\line(-3,5){72}}% %double bond 1-3 - \else% - \put(6,42){\line(-3,5){60}}% %double bond 1-3 - \fi% - \else% - \ifx\fff\empty% - \put(-6,62){\line(-3,5){60}}% %double bond 1-2 - \else% - \put(6,42){\line(-3,5){60}}% %double bond 1-2 - \fi% - \fi% - }% -\def\skbondtria{% - \begin{picture}(200,200)(0,0) - \ifx\ddd\empty% - \ifx\bbb\empty% - \put(0,0){\line(3,5){103}}% %bond 1-2 - \else% - \put(0,0){\line(3,5){80}}% %bond 1-2 - \fi% - \else% - \ifx\bbb\empty% - \put(103,171){\line(-3,-5){80}}% %bond 1-2 - \else% - \put(35,21){\line(3,5){60}}% %bond 1-2 - \fi% - \fi\end{picture}}% -\def\skbondtrib{% - \begin{picture}(200,200)(0,0) - \ifx\ddd\empty% - \ifx\fff\empty% - \put(0,0){\line(-3,5){103}}% %bond 1-3 - \else% - \put(0,0){\line(-3,5){80}}% %bond 1-3 - \fi% - \else% - \ifx\fff\empty% - \put(-103,171){\line(3,-5){80}}% %bond 1-3 - \else% - \put(-35,21){\line(-3,5){60}}% %bond 1-3 - \fi% - \fi\end{picture}}% -\def\dotskbondtria{% - \begin{picture}(200,200)(0,0) - \ifx\ddd\empty% - \ifx\bbb\empty% - \@ifundefined{dottedline}{% - \put(0,0){\line(3,5){103}}% %bond 1-2 - }{{\thicklines% - \dottedline{20}(0,0)(103,171)}}% - \else% - \@ifundefined{dottedline}{% - \put(0,0){\line(3,5){80}}% %bond 1-2 - }{{\thicklines% - \dottedline{20}(0,0)(80,133)}}% - \fi% - \else% - \ifx\bbb\empty% - \@ifundefined{dottedline}{% - \put(103,171){\line(-3,-5){80}}% %bond 1-2 - }{{\thicklines% - \dottedline{20}(103,171)(23,38)}}% - \else% - \@ifundefined{dottedline}{% - \put(35,21){\line(3,5){60}}% %bond 1-2 - }{{\thicklines% - \dottedline{20}(35,21)(95,121)}}% - \fi% - \fi\end{picture}}% -\def\dotskbondtrib{% - \begin{picture}(200,200)(0,0) - \ifx\ddd\empty% - \ifx\fff\empty% - \@ifundefined{dottedline}{% - \put(0,0){\line(-3,5){103}}% %bond 1-3 - }{{\thicklines% - \dottedline{20}(0,0)(-103,171)}}% - \else% - \@ifundefined{dottedline}{% - \put(0,0){\line(-3,5){80}}% %bond 1-3 - }{{\thicklines% - \dottedline{20}(0,0)(-80,133)}}% - \fi% - \else% - \ifx\fff\empty% - \@ifundefined{dottedline}{% - \put(-103,171){\line(3,-5){80}}% %bond 1-3 - }{{\thicklines% - \dottedline{20}(-103,171)(-23,38)}}% - \else% - \@ifundefined{dottedline}{% - \put(-35,21){\line(-3,5){60}}% %bond 1-3 - }{{\thicklines% - \dottedline{20}(-35,21)(-95,121)}}% - \fi% - \fi\end{picture}}% -\def\threehetero{\@ifnextchar({\@three@hetero(@}{\@three@hetero(@)}} -\def\@three@hetero(#1){\@ifnextchar[{\@three@@hetero(#1)[@}% -{\@three@@hetero(#1)[@]}} -\def\@three@@hetero(#1)[#2]#3#4{\@ifnextchar[% -{\@threehetero(#1)[#2]{#3}{#4}[@}% -{\@threehetero(#1)[#2]{#3}{#4}[@]}} -\def\@threehetero(#1)[#2]#3#4[#5]{% -\iniatom\iniflag%initialize -\test@vertix@sixv{#3}{d}{b}{f}{@}{@}{@}% -\@reset@ylsw% -\ylposition{#4}{3}{3}{5}{0}%subst 1 -\if@ylsw \ifx\@@ylii\empty -\def\@@ylii{68}\def\@@yli{0}\fi -\else -\ylposition{#4}{0}{1}{3}{0}%subst 2 -\fi -\if@ylsw \ifx\@@ylii\empty -\def\@@ylii{142}\def\@@yli{132}\fi -\else -\ylposition{#4}{3}{5}{7}{0}%subst 3 -\fi -\if@ylsw \ifx\@@ylii\empty -\def\@@ylii{0}\def\@@yli{132}\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}(800,580)(-468,-240)% - \iforigpt \put(-468,-240){\circle*{50}}% - \put(-68,0){\circle{50}}% - \typeout{command `threeheterov' origin: % - (68,0) ---> (468,240)}\fi% -\fi -{\resetbdsw% -\@bond@@omit{#5}% -\put(-68,0){\set@skel@longbond{#1}{a}{skbondtria}}% - % bond between 1 and 2 \@aaa -> \skbondtria etc -\put(0,-132){\set@skel@longbond{#1}{b}{skbondshoriz}}% - % bond between 2 and 3 \@bbb -> \skbondb etc -\put(-68,0){\set@skel@longbond{#1}{c}{skbondtrib}}% - % bond between 3 and 1 \@ccc -> \skbondtria etc -}% -\@tfor\member:=#2\do{% -\if\member r\relax% -\else\if\member a\relax\put(-68,0){\bondtria}% -\else\if\member b\relax\put(0,-126){\bondshoriz}% -\else\if\member c\relax\put(-68,0){\bondtrib}% -\else\if\member A\relax% aromatic circle - \put(-70,108){\circle{100}}% %circle -\else - \expandafter\twoCH@@R\member//% - \set@fusionadd@threev -\fi\fi\fi\fi\fi% -}% -\put(-68,0){\set@hetatom@sixv{#3}{3}{3}{5}{0}% -\if@clip\global\@cliptrue\fi -}%subst 1 -\put(-142,-132){\set@hetatom@sixv{#3}{0}{1}{3}{0}% -\if@bclip\global\@bcliptrue\fi -}%subst 2 -\put(0,-132){\set@hetatom@sixv{#3}{3}{5}{7}{0}% -\if@fclip\global\@fcliptrue\fi -}%subst 3 -\put(-68,0){\setsixringv{#4}{3}{3}{5}{0}}%subst 1 -\put(-142,-132){\setsixringv{#4}{0}{1}{3}{0}}%subst 2 -\put(0,-132){\setsixringv{#4}{3}{5}{7}{0}}%subst 3 -\end{picture}% -\iniatom\iniflag}% %end of \threehetero macro -\let\threeheterov=\threehetero -\def\set@fusionadd@threev{% - \if\@@tmpa 0\relax% - \putratom{-94}{92}{\scriptsize\@@tmpb}% % right type - \else\if\@@tmpa 1\relax% - \putratom{-94}{60}{\scriptsize\@@tmpb}% % right type - \else\if\@@tmpa 2\relax% - \putratom{-52}{120}{\scriptsize\@@tmpb}% % right type - \else\if\@@tmpa 3\relax% - \putratom{-126}{126}{\scriptsize\@@tmpb}% % right type - \else\if\@@tmpa 4\relax% - \putratom{-30}{-20}{\scriptsize\@@tmpb}% % right type - \else\if\@@tmpa 5\relax% - \putratom{52}{110}{\scriptsize\@@tmpb}% % right type - \else\if\@@tmpa 6\relax% - \putratom{-250}{110}{\scriptsize\@@tmpb}% % right type - \else - \set@fusion@threev - \fi\fi\fi\fi\fi\fi\fi% -}% -\def\set@fusion@threev{% -\if\@@tmpa b\relax% - \putlratom{29}{171}{\@@tmpb}% % bond fused - \FuseWarning{200}{0}% - {\fuseAx}{\fuseAy}{\fuseBx}{\fuseBy}{b}% - \else\if\@@tmpa B\relax% - \putlratom{-171}{171}{\@@tmpb}% % bond fused - \FuseWarning{-200}{0}% - {\fuseAx}{\fuseAy}{\fuseBx}{\fuseBy}{B}% - \else\if\@@tmpa a\relax% - \putlratom{-68}{0}{\@@tmpb}% % bond fused - \FuseWarning{-103}{-171}% - {\fuseAx}{\fuseAy}{\fuseBx}{\fuseBy}{a}% - \else\if\@@tmpa A\relax% - \putlratom{29}{171}{\@@tmpb}% % bond fused - \FuseWarning{103}{171}% - {\fuseAx}{\fuseAy}{\fuseBx}{\fuseBy}{A}% - \else\if\@@tmpa c\relax% - \putlratom{-171}{171}{\@@tmpb}% % bond fused - \FuseWarning{-103}{171}% - {\fuseAx}{\fuseAy}{\fuseBx}{\fuseBy}{c}% - \else\if\@@tmpa C\relax% - \putlratom{-68}{0}{\@@tmpb}% % bond fused - \FuseWarning{103}{-171}% - {\fuseAx}{\fuseAy}{\fuseBx}{\fuseBy}{C}% -\fi\fi\fi\fi\fi\fi% -}% end of the macro \set@fusion@threev - \def\Bondtria{% - \ifx\aaa\empty% - \ifx\ccc\empty% - \put(-6,-42){\line(3,-5){72}}% %double bond 1-2 - \else% - \put(-6,-42){\line(3,-5){60}}% %double bond 1-2 - \fi% - \else% - \ifx\ccc\empty% - \put(6,-62){\line(3,-5){60}}% %double bond 1-2 - \else% - \put(10,-32){\line(3,-5){60}}% %double bond 1-2 - \fi% - \fi% -}% - \def\Bondtrib{% - \ifx\aaa\empty% - \ifx\eee\empty% - \put(6,-42){\line(-3,-5){72}}% %double bond 1-3 - \else% - \put(6,-42){\line(-3,-5){60}}% %double bond 1-3 - \fi% - \else% - \ifx\fff\empty% - \put(-6,-62){\line(-3,-5){60}}% %double bond 1-2 - \else% - \put(6,-42){\line(-3,-5){60}}% %double bond 1-2 - \fi% - \fi% - }% -\def\skBondtria{% - \ifx\aaa\empty% - \ifx\ccc\empty% - \put(0,0){\line(3,-5){103}}% %bond 1-2 - \else% - \put(0,0){\line(3,-5){80}}% %bond 1-2 - \fi% - \else% - \ifx\ccc\empty% - \put(103,-171){\line(-3,5){80}}% %bond 1-2 - \else% - \put(35,-21){\line(3,-5){60}}% %bond 1-2 - \fi% - \fi -}% -\def\skBondtrib{% - \ifx\aaa\empty% - \ifx\eee\empty% - \put(0,0){\line(-3,-5){103}}% %bond 1-3 - \else% - \put(0,0){\line(-3,-5){80}}% %bond 1-3 - \fi% - \else% - \ifx\eee\empty% - \put(-103,-171){\line(3,5){80}}% %bond 1-3 - \else% - \put(-35,-21){\line(-3,-5){60}}% %bond 1-3 - \fi% - \fi -}% -\def\dotskBondtria{% - \ifx\aaa\empty% - \ifx\ccc\empty% - \@ifundefined{dottedline}{% - \put(0,0){\line(3,-5){103}}% %bond 1-2 - }{{\thicklines% - \dottedline{20}(0,0)(103,-171)}}% - \else% - \@ifundefined{dottedline}{% - \put(0,0){\line(3,-5){80}}% %bond 1-2 - }{{\thicklines% - \dottedline{20}(0,0)(80,-133)}}% - \fi% - \else% - \ifx\ccc\empty% - \@ifundefined{dottedline}{% - \put(103,-171){\line(-3,5){80}}% %bond 1-2 - }{{\thicklines% - \dottedline{20}(103,-171)(23,-38)}}% - \else% - \@ifundefined{dottedline}{% - \put(35,-21){\line(3,-5){60}}% %bond 1-2 - }{{\thicklines% - \dottedline{20}(35,-21)(95,-121)}}% - \fi% - \fi -}% -\def\dotskBondtrib{% - \ifx\aaa\empty% - \ifx\eee\empty% - \@ifundefined{dottedline}{% - \put(0,0){\line(-3,-5){103}}% %bond 1-3 - }{{\thicklines% - \dottedline{20}(0,0)(-103,-171)}}% - \else% - \@ifundefined{dottedline}{% - \put(0,0){\line(-3,-5){80}}% %bond 1-3 - }{{\thicklines% - \dottedline{20}(0,0)(-80,-133)}}% - \fi% - \else% - \ifx\eee\empty% - \@ifundefined{dottedline}{% - \put(-103,-171){\line(3,5){80}}% %bond 1-3 - }{{\thicklines% - \dottedline{20}(-103,-171)(-23,-38)}}% - \else% - \@ifundefined{dottedline}{% - \put(-35,-21){\line(-3,-5){60}}% %bond 1-3 - }{{\thicklines% - \dottedline{20}(-35,-21)(-95,-121)}}% - \fi% - \fi -}% -\def\threeheteroi{\@ifnextchar({\@three@heteroi(@}{\@three@heteroi(@)}} -\def\@three@heteroi(#1){\@ifnextchar[{\@three@@heteroi(#1)[@}% -{\@three@@heteroi(#1)[@]}} -\def\@three@@heteroi(#1)[#2]#3#4{\@ifnextchar[% -{\@threeheteroi(#1)[#2]{#3}{#4}[@}% -{\@threeheteroi(#1)[#2]{#3}{#4}[@]}} -\def\@threeheteroi(#1)[#2]#3#4[#5]{% -\iniatom\iniflag%initialize -\test@vertix@sixv{#3}{a}{c}{e}{@}{@}{@}% -\@reset@ylsw% -\ylposition{#4}{0}{0}{2}{0}%subst 1 -\if@ylsw \ifx\@@ylii\empty -\def\@@ylii{68}\def\@@yli{406}\fi -\else -\ylposition{#4}{1}{2}{4}{0}%subst 2 -\fi -\if@ylsw \ifx\@@ylii\empty -\def\@@ylii{142}\def\@@yli{275}\fi -\else -\ylposition{#4}{2}{4}{6}{0}%subst 3 -\fi -\if@ylsw \ifx\@@ylii\empty -\def\@@ylii{0}\def\@@yli{275}\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}(800,580)(-468,-340)% - \iforigpt \put(-468,-340){\circle*{50}}% - \put(-68,0){\circle{50}}% - \typeout{command `threeheteroi' origin: % - (0,0) ---> (-468,-340)}\fi% -\fi -{\resetbdsw% -\@bond@@omit{#5}% -\put(-68,0){\set@skel@longbond{#1}{a}{skBondtria}}% - % bond between 1 and 2 \@aaa -> \skBondtria etc -\put(0,-275){\set@skel@longbond{#1}{b}{skbondshorizi}}% - % bond between 2 and 3 \@bbb -> \skbondb etc -\put(-68,0){\set@skel@longbond{#1}{c}{skBondtrib}}% - % bond between 3 and 1 \@ccc -> \skBondtrib etc -}% -\@tfor\member:=#2\do{% -\if\member r\relax% -\else\if\member a\relax\put(-68,0){\Bondtria}% -\else\if\member b\relax\put(0,-274){\bondshorizi}% -\else\if\member c\relax\put(-68,0){\Bondtrib}% -\else\if\member A\relax% aromatic circle - \put(-70,-108){\circle{100}}% %circle -\else - \expandafter\twoCH@@R\member//% - \set@fusionadd@threevi -\fi\fi\fi\fi\fi% -}% -\put(-68,-406){\set@hetatom@sixv{#3}{0}{0}{2}{0}% -\if@aclip\global\@acliptrue\fi -}%subst 1 -\put(0,-275){\set@hetatom@sixv{#3}{2}{4}{6}{0}% -\if@eclip\global\@ecliptrue\fi -}%subst 3 -\put(-142,-275){\set@hetatom@sixv{#3}{1}{2}{4}{0}% -\if@cclip\global\@ccliptrue\fi -}%subst 2 -\put(-68,-406){\setsixringv{#4}{0}{0}{2}{0}}%subst 1 -\put(0,-275){\setsixringv{#4}{2}{4}{6}{0}}%subst 3 -\put(-142,-275){\setsixringv{#4}{1}{2}{4}{0}}%subst 2 -\end{picture}% -\iniatom\iniflag}% %end of \threeheteroi macro -\let\threeheterovi=\threeheteroi -\def\set@fusionadd@threevi{% - \if\@@tmpa 0\relax% - \putratom{-94}{-120}{\scriptsize\@@tmpb}% % right type - \else\if\@@tmpa 1\relax% - \putratom{-94}{-80}{\scriptsize\@@tmpb}% % right type - \else\if\@@tmpa 2\relax% - \putratom{-52}{-150}{\scriptsize\@@tmpb}% % right type - \else\if\@@tmpa 3\relax% - \putratom{-126}{-150}{\scriptsize\@@tmpb}% % right type - \else\if\@@tmpa 4\relax% - \putratom{-30}{0}{\scriptsize\@@tmpb}% % right type - \else\if\@@tmpa 5\relax% - \putratom{32}{-130}{\scriptsize\@@tmpb}% % right type - \else\if\@@tmpa 6\relax% - \putratom{-230}{-130}{\scriptsize\@@tmpb}% % right type - \else - \set@fusion@threevi - \fi\fi\fi\fi\fi\fi\fi% -}% -\def\set@fusion@threevi{% -\if\@@tmpa b\relax% - \putlratom{29}{-171}{\@@tmpb}% % bond fused - \FuseWarning{200}{0}% - {\fuseAx}{\fuseAy}{\fuseBx}{\fuseBy}{b}% - \else\if\@@tmpa B\relax% - \putlratom{-171}{-171}{\@@tmpb}% % bond fused - \FuseWarning{-200}{0}% - {\fuseAx}{\fuseAy}{\fuseBx}{\fuseBy}{B}% - \else\if\@@tmpa a\relax% - \putlratom{-68}{0}{\@@tmpb}% % bond fused - \FuseWarning{-103}{171}% - {\fuseAx}{\fuseAy}{\fuseBx}{\fuseBy}{a}% - \else\if\@@tmpa A\relax% - \putlratom{29}{-171}{\@@tmpb}% % bond fused - \FuseWarning{103}{-171}% - {\fuseAx}{\fuseAy}{\fuseBx}{\fuseBy}{A}% - \else\if\@@tmpa c\relax% - \putlratom{-171}{-171}{\@@tmpb}% % bond fused - \FuseWarning{103}{171}% - {\fuseAx}{\fuseAy}{\fuseBx}{\fuseBy}{c}% - \else\if\@@tmpa C\relax% - \putlratom{-68}{0}{\@@tmpb}% % bond fused - \FuseWarning{-103}{-171}% - {\fuseAx}{\fuseAy}{\fuseBx}{\fuseBy}{C}% -\fi\fi\fi\fi\fi\fi% -}% end of the macro \set@fusion@threevi -\endinput -%% -%% End of file `hetarom.sty'. diff --git a/Master/texmf-dist/tex/latex/xymtex/hetaromh.sty b/Master/texmf-dist/tex/latex/xymtex/hetaromh.sty deleted file mode 100644 index 23f00dbb23b..00000000000 --- a/Master/texmf-dist/tex/latex/xymtex/hetaromh.sty +++ /dev/null @@ -1,2435 +0,0 @@ -%% -%% This is file `hetaromh.sty', -%% generated with the docstrip utility. -%% -%% The original source files were: -%% -%% hetaromh.dtx (with options: `hetaromh') -%% -%% This is a generated file. -%% -%% Copyright 1996,1998,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, 1996 (private version) -%% Version 2.00 Released on December 25, 1998 -%% Version 2.00a Released on November 11, 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: hetaromh.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{hetaromh} -\def\versi@ndate{November 11, 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{test@vertix@decavi}{\input hetarom.sty\relax}{}% -\unitlength=0.1pt% -\iniatom% -\def\hbonda{% - \ifx\aaa\empty% - \ifx\bbb\empty% - \put(42,6){\line(3,5){78}}% %double bond 1-2 - \else% - \put(42,6){\line(3,5){62}}% %double bond 1-2 - \fi% - \else% - \ifx\bbb\empty% - \put(57,36){\line(3,5){62}}% %double bond 1-2 - \else% - \put(57,36){\line(3,5){62}}% %double bond 1-2 - \fi\fi}% -\def\hbondf{% - \ifx\aaa\empty% - \ifx\fff\empty% - \put(42,-6){\line(3,-5){78}}% %double bond 1-6 - \else% - \put(42,-6){\line(3,-5){62}}% %double bond 1-6 - \fi% - \else% - \ifx\fff\empty% - \put(57,-36){\line(3,-5){62}}% %double bond 1-6 - \else% - \put(57,-36){\line(3,-5){62}}% %double bond 1-6 - \fi\fi}% - \def\hbondb{% - \ifx\bbb\empty% - \ifx\ccc\empty% - \put(129,138){\line(1,0){148}}% %double bond 2-3 - \else% - \put(129,138){\line(1,0){134}}% %double bond 3-2 - \fi% - \else% - \ifx\ccc\empty% - \put(143,138){\line(1,0){134}}% %double bond 3-2 - \else% - \put(143,138){\line(1,0){110}}% %double bond 3-2 - \fi\fi}% - \def\hbondc{% - \ifx\ddd\empty% - \ifx\ccc\empty% - \put(364,6){\line(-3,5){78}}% %double bond 4-3 - \else% - \put(364,6){\line(-3,5){62}}% %double bond 4-3 - \fi% - \else% - \ifx\ccc\empty% - \put(349,36){\line(-3,5){62}}% %double bond 4-3 - \else% - \put(349,36){\line(-3,5){62}}% %double bond 4-3 - \fi\fi}% - \def\hbondd{% - \ifx\ddd\empty% - \ifx\eee\empty% - \put(364,-6){\line(-3,-5){78}}% %double bond 4-5 - \else% - \put(364,-6){\line(-3,-5){62}}% %double bond 4-5 - \fi% - \else% - \ifx\eee\empty% - \put(349,-36){\line(-3,-5){62}}% %double bond 4-5 - \else% - \put(349,-36){\line(-3,-5){62}}% %double bond 4-5 - \fi\fi}% -\def\hbonde{% - \ifx\fff\empty% - \ifx\eee\empty% - \put(129,-138){\line(1,0){148}}% %double bond 6-5 - \else% - \put(129,-138){\line(1,0){134}}% %double bond 5-6 - \fi% - \else% - \ifx\eee\empty% - \put(143,-138){\line(1,0){134}}% %double bond 5-6 - \else% - \put(143,-138){\line(1,0){110}}% %double bond 5-6 - \fi\fi}% -\def\hbondvert{% - \ifx\fff\empty% - \ifx\bbb\empty% - \put(136,-138){\line(0,1){277}}% %double bond 4-3 - \else% - \put(136,-138){\line(0,1){258}}% %double bond 4-3 - \fi% - \else% - \ifx\bbb\empty% - \put(136,-120){\line(0,1){258}}% %double bond 4-3 - \else - \put(136,-120){\line(0,1){239}}% %double bond 4-3 - \fi\fi}% -\def\hbondverti{% - \ifx\eee\empty% - \ifx\ccc\empty% - \put(270,-138){\line(0,0){277}}% %double bond 4-3 - \else% - \put(270,-138){\line(0,1){258}}% %double bond 4-3 - \fi% - \else% - \ifx\ccc\empty% - \put(270,-120){\line(0,1){258}}% %double bond 4-3 - \else% - \put(270,-120){\line(0,1){239}}% %double bond 4-3 - \fi\fi}% -\def\hskbonda{% - \ifx\aaa\empty% - \ifx\bbb\empty% - \put(0,0){\line(3,5){103}}% %bond 1-2 - \else% - \put(0,0){\line(3,5){79}}% %bond 1-2 - \fi% - \else% - \ifx\bbb\empty% - \put(24,40){\line(3,5){79}}% %bond 1-2 - \else% - \put(24,40){\line(3,5){62}}% %bond 1-2 - \fi\fi}% -\def\hskbondf{% - \ifx\aaa\empty% - \ifx\fff\empty - \put(0,0){\line(3,-5){103}}% %bond 1-6 - \else% - \put(0,0){\line(3,-5){79}}% %bond 1-6 - \fi% - \else% - \ifx\fff\empty% - \put(24,-40){\line(3,-5){79}}% %bond 1-6 - \else% - \put(24,-40){\line(3,-5){62}}% %bond 1-6 - \fi\fi}% -\def\hskbondc{% - \ifx\ddd\empty% - \ifx\ccc\empty% - \put(406,0){\line(-3,5){103}}% %bond 4-3 - \else% - \put(406,0){\line(-3,5){79}}% %bond 4-3 - \fi% - \else% - \ifx\ccc\empty% - \put(382,40){\line(-3,5){79}}% %bond 4-3 - \else% - \put(382,40){\line(-3,5){62}}% %bond 4-3 - \fi\fi}% -\def\hskbondd{% - \ifx\ddd\empty% - \ifx\eee\empty% - \put(406,0){\line(-3,-5){103}}% %bond 4-5 - \else% - \put(406,0){\line(-3,-5){79}}% %bond 4-5 - \fi% - \else% - \ifx\eee\empty% - \put(382,-40){\line(-3,-5){79}}% %bond 4-5 - \else% - \put(382,-40){\line(-3,-5){62}}% %bond 4-5 - \fi\fi}% -\def\hskbondb{% - \ifx\bbb\empty% - \ifx\ccc\empty% - \put(103,171){\line(1,0){200}}% %bond 2-3 - \else% - \put(103,171){\line(1,0){160}}% %bond 3-2 - \fi% - \else% - \ifx\ccc\empty% - \put(143,171){\line(1,0){160}}% %bond 3-2 - \else% - \put(143,171){\line(1,0){120}}% %bond 3-2 - \fi\fi}% -\def\hskbonde{% - \ifx\eee\empty% - \ifx\fff\empty% - \put(103,-171){\line(1,0){200}}% %bond 6-5 - \else% - \put(143,-171){\line(1,0){160}}% %bond 5-6 - \fi% - \else% - \ifx\fff\empty% - \put(103,-171){\line(1,0){160}}% %bond 5-6 - \else% - \put(143,-171){\line(1,0){120}}% %bond 5-6 - \fi\fi}% -\def\hskbondvert{% - \ifx\fff\empty% - \ifx\bbb\empty% - \put(103,-171){\line(0,1){342}}% %bond 4-3 - \else% - \put(103,-171){\line(0,1){300}}% %bond 4-3 - \fi% - \else% - \ifx\bbb\empty% - \put(103,171){\line(0,-1){300}}% %bond 4-3 - \else% - \put(103,-129){\line(0,1){258}}% %bond 4-3 - \fi\fi}% -\def\hskbondverti{% - \ifx\eee\empty% - \ifx\ccc\empty% - \put(303,-171){\line(0,1){342}}% %bond 4-3 - \else% - \put(303,-171){\line(0,1){300}}% %bond 4-3 - \fi% - \else% - \ifx\ccc\empty% - \put(303,171){\line(0,-1){300}}% %bond 4-3 - \else% - \put(303,-129){\line(0,1){258}}% %bond 4-3 - \fi\fi}% -\def\dothskbonda{% - \ifx\aaa\empty% - \ifx\bbb\empty% - \@ifundefined{dottedline}{% - \put(0,0){\line(3,5){103}}% %bond 1-2 - }{{\thicklines% - \dottedline{20}(0,0)(103,171)}}% - \else% - \@ifundefined{dottedline}{% - \put(0,0){\line(3,5){79}}% %bond 1-2 - }{{\thicklines% - \dottedline{20}(0,0)(79,132)}}% - \fi% - \else% - \ifx\bbb\empty% - \@ifundefined{dottedline}{% - \put(24,40){\line(3,5){79}}% %bond 1-2 - }{{\thicklines% - \dottedline{20}(24,40)(103,171)}}% - \else% - \@ifundefined{dottedline}{% - \put(24,40){\line(3,5){62}}% %bond 1-2 - }{{\thicklines% - \dottedline{20}(24,40)(86,143)}}% - \fi\fi}% -\def\dothskbondb{% - \ifx\bbb\empty% - \ifx\ccc\empty% - \@ifundefined{dottedline}{% - \put(103,171){\line(1,0){200}}% %bond 2-3 - }{{\thicklines% - \dottedline{20}(103,171)(303,171)}}% - \else% - \@ifundefined{dottedline}{% - \put(103,171){\line(1,0){160}}% %bond 3-2 - }{{\thicklines% - \dottedline{20}(103,171)(263,171)}}% - \fi% - \else% - \ifx\ccc\empty% - \@ifundefined{dottedline}{% - \put(143,171){\line(1,0){160}}% %bond 3-2 - }{{\thicklines% - \dottedline{20}(143,171)(303,171)}}% - \else% - \@ifundefined{dottedline}{% - \put(143,171){\line(1,0){120}}% %bond 3-2 - }{{\thicklines% - \dottedline{20}(143,171)(263,171)}}% - \fi\fi}% -\def\dothskbondc{% - \ifx\ddd\empty% - \ifx\ccc\empty% - \@ifundefined{dottedline}{% - \put(406,0){\line(-3,5){103}}% %bond 4-3 - }{{\thicklines% - \dottedline{20}(406,0)(303,171)}}% - \else% - \@ifundefined{dottedline}{% - \put(406,0){\line(-3,5){79}}% %bond 4-3 - }{{\thicklines% - \dottedline{20}(406,0)(327,132)}}% - \fi% - \else% - \ifx\ccc\empty% - \@ifundefined{dottedline}{% - \put(382,40){\line(-3,5){79}}% %bond 4-3 - }{{\thicklines% - \dottedline{20}(382,40)(303,171)}}% - \else% - \@ifundefined{dottedline}{% - \put(382,40){\line(-3,5){62}}% %bond 4-3 - }{{\thicklines% - \dottedline{20}(382,40)(320,143)}}% - \fi\fi}% -\def\dothskbondd{% - \ifx\ddd\empty% - \ifx\eee\empty% - \@ifundefined{dottedline}{% - \put(406,0){\line(-3,-5){103}}% %bond 4-5 - }{{\thicklines% - \dottedline{20}(406,0)(303,-171)}}% - \else% - \@ifundefined{dottedline}{% - \put(406,0){\line(-3,-5){79}}% %bond 4-5 - }{{\thicklines% - \dottedline{20}(406,0)(327,-132)}}% - \fi% - \else% - \ifx\eee\empty% - \@ifundefined{dottedline}{% - \put(382,-40){\line(-3,-5){79}}% %bond 4-5 - }{{\thicklines% - \dottedline{20}(382,-40)(303,-171)}}% - \else% - \@ifundefined{dottedline}{% - \put(382,-40){\line(-3,-5){62}}% %bond 4-5 - }{{\thicklines% - \dottedline{20}(382,-40)(320,-143)}}% - \fi\fi}% -\def\dothskbonde{% - \ifx\eee\empty% - \ifx\fff\empty% - \@ifundefined{dottedline}{% - \put(103,-171){\line(1,0){200}}% %bond 6-5 - }{{\thicklines% - \dottedline{20}(103,-171)(303,-171)}}% - \else% - \@ifundefined{dottedline}{% - \put(143,-171){\line(1,0){160}}% %bond 5-6 - }{{\thicklines% - \dottedline{20}(143,-171)(303,-171)}}% - \fi% - \else% - \ifx\fff\empty% - \@ifundefined{dottedline}{% - \put(103,-171){\line(1,0){160}}% %bond 5-6 - }{{\thicklines% - \dottedline{20}(103,-171)(263,-171)}}% - \else% - \@ifundefined{dottedline}{% - \put(143,-171){\line(1,0){120}}% %bond 5-6 - }{{\thicklines% - \dottedline{20}(143,-171)(263,-171)}}% - \fi\fi}% -\def\dothskbondf{% - \ifx\aaa\empty% - \ifx\fff\empty - \@ifundefined{dottedline}{% - \put(0,0){\line(3,-5){103}}% %bond 1-6 - }{{\thicklines% - \dottedline{20}(0,0)(103,-171)}}% - \else% - \@ifundefined{dottedline}{% - \put(0,0){\line(3,-5){79}}% %bond 1-6 - }{{\thicklines% - \dottedline{20}(0,0)(79,-131)}}% - \fi% - \else% - \ifx\fff\empty% - \@ifundefined{dottedline}{% - \put(24,-40){\line(3,-5){79}}% %bond 1-6 - }{{\thicklines% - \dottedline{20}(24,-40)(103,-171)}}% - \else% - \@ifundefined{dottedline}{% - \put(24,-40){\line(3,-5){62}}% %bond 1-6 - }{{\thicklines% - \dottedline{20}(24,-40)(86,-143)}}% - \fi\fi}% -\def\dothskbondvert{% - \ifx\fff\empty% - \ifx\bbb\empty% - \@ifundefined{dottedline}{% - \put(103,-171){\line(0,1){342}}% %bond 4-3 - }{{\thicklines% - \dottedline{20}(103,-171)(103,171)}}% - \else% - \@ifundefined{dottedline}{% - \put(103,-171){\line(0,1){300}}% %bond 4-3 - }{{\thicklines% - \dottedline{20}(103,-171)(103,129)}}% - \fi% - \else% - \ifx\bbb\empty% - \@ifundefined{dottedline}{% - \put(103,171){\line(0,-1){300}}% %bond 4-3 - }{{\thicklines% - \dottedline{20}(103,171)(103,-129)}}% - \else% - \@ifundefined{dottedline}{% - \put(103,-129){\line(0,1){258}}% %bond 4-3 - }{{\thicklines% - \dottedline{20}(103,-129)(103,129)}}% - \fi\fi}% -\def\dothskbondverti{% - \ifx\eee\empty% - \ifx\ccc\empty% - \@ifundefined{dottedline}{% - \put(303,-171){\line(0,1){342}}% %bond 4-3 - }{{\thicklines% - \dottedline{20}(303,-171)(303,171)}}% - \else% - \@ifundefined{dottedline}{% - \put(303,-171){\line(0,1){300}}% %bond 4-3 - }{{\thicklines% - \dottedline{20}(303,-171)(303,129)}}% - \fi% - \else% - \ifx\ccc\empty% - \@ifundefined{dottedline}{% - \put(303,171){\line(0,-1){300}}% %bond 4-3 - }{{\thicklines% - \dottedline{20}(303,171)(303,-129)}}% - \else% - \@ifundefined{dottedline}{% - \put(303,-129){\line(0,1){258}}% %bond 4-3 - }{{\thicklines% - \dottedline{20}(303,-129)(303,129)}}% - \fi\fi}% -\def\set@skel@bondh#1#2#3{% - \expandafter\if\csname @#2#2#2\endcsname #2\relax%OK - % \if\@aaa #2\relax%OK - \@skbondlistfalse - \@tfor\member:=#1\do{% - \expandafter\twoCH@@R\member// - \if\@@tmpa #2\relax% - \if\@@tmpb A\relax% - \expandafter\csname dothskbond#3\endcsname% \dothskbonda etc. - \@skbondlisttrue - \else\if\@@tmpb B\relax% - {\thicklines - \expandafter\csname hskbond#3\endcsname% \hskbonda etc. - }% - \@skbondlisttrue - \fi\fi - \fi% - }% - \if@skbondlist\else - {\thinlines - \expandafter\csname hskbond#3\endcsname% \hskbonda etc. - }% - \fi% - \else - \expandafter\ifx\csname @#2#2#2\endcsname \empty\relax% - % \ifx\@aaa\empty\relax - \@tfor\member:=#1\do{% - \expandafter\twoCH@@R\member// - \if\@@tmpa #2\relax% - \XyMTeXWarning{Unavailable bond `#2' in SKBONDLIST}\fi - }% - \fi\fi -}% end of \set@skel@bondh -\def\sixheteroh{\@ifnextchar({\@six@heteroh(@}{\@six@heteroh(@)}} -\def\@six@heteroh(#1){\@ifnextchar[{\@six@@heteroh(#1)[@}% -{\@six@@heteroh(#1)[@]}} -\def\@six@@heteroh(#1)[#2]#3#4{\@ifnextchar[% -{\@sixheteroh(#1)[#2]{#3}{#4}[@}% -{\@sixheteroh(#1)[#2]{#3}{#4}[@]}} -\def\@sixheteroh(#1)[#2]#3#4[#5]{% -\iniatom\iniflag%initialize -\test@vrtx@sixh{#3}% -\@reset@ylsw% -\ylpositionh{#4}{0}{0}{7}{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}(880,800)(-240,-400)% - \iforigpt \put(-\shifti,-\shiftii){\circle*{50}}% - \put(-\noshift,-\noshift){\circle{50}}% - \typeout{command `sixheteroh' origin: % - (\the\noshift,\the\noshift) ---> (\the\shifti,\the\shiftii)}\fi% -\fi -{% -\resetbdsw% -\@bond@@omit{#5}% -\set@skel@bondh{#1}{a}{a}% bond between 1 and 2 \@aaa -> \hskbonda etc -\set@skel@bondh{#1}{b}{b}% bond between 2 and 3 \@bbb -> \hskbondb etc -\set@skel@bondh{#1}{c}{c}% bond between 3 and 4 \@ccc -> \hskbondc etc -\set@skel@bondh{#1}{d}{d}% bond between 4 and 5 \@ddd -> \hskbondd etc -\set@skel@bondh{#1}{e}{e}% bond between 5 and 6 \@eee -> \hskbonde etc -\set@skel@bondh{#1}{f}{f}% bond between 6 and 1 \@fff -> \hskbondf etc -}% -\@tfor\member:=#2\do{% -\if\member r\relax \hbondd \hbondf \hbondb% -\else \if\member l\relax \hbonda \hbondc \hbonde% -\else \if\member a\relax \hbonda% -\else \if\member b\relax \hbondb% -\else \if\member c\relax \hbondc% -\else \if\member d\relax \hbondd% -\else \if\member e\relax \hbonde% -\else \if\member f\relax \hbondf% -\else \if\member A%left aromatic circle - \put(203,0){\circle{240}}% %circle -\else \expandafter\twoCH@@R\member//% - \set@fusionadd@sixh -\fi\fi\fi\fi\fi\fi\fi\fi\fi}% -\set@hetatom@sixh{#3}{0}{0}{7}{0}% %atom 1--6% -\setsixringh{#4}{0}{0}{7}{0}% %subst 1--6 -\end{picture}\iniatom\iniflag}% %end of \sixheteroh macro -\def\test@vrtx@sixh#1{% -\@forsemicol\member:=#1\do{% -\ifx\member\empty\else -\expandafter\@m@mb@r\member;\relax% -\expandafter\twoch@r\@membera{}% -\ifcase\@tmpa% - \or% \xdef\aaa{\@memberb}% - \if\@tmpb s\relax\def\aaa{}\else\def\aaa{@}\fi - \or% \xdef\bbb{\@memberb}% - \if\@tmpb s\relax\def\bbb{}\else\def\bbb{@}\fi - \or% \xdef\ccc{\@memberb}% - \if\@tmpb s\relax\def\ccc{}\else\def\ccc{@}\fi - \or% \xdef\ddd{\@memberb}% - \if\@tmpb s\relax\def\ddd{}\else\def\ddd{@}\fi - \or% \xdef\eee{\@memberb}% - \if\@tmpb s\relax\def\eee{}\else\def\eee{@}\fi - \or% \xdef\fff{\@memberb}% - \if\@tmpb s\relax\def\fff{}\else\def\fff{@}\fi -\fi\fi}% -}% end of \test@vrtx@sixh -\def\sixheterohi{\@ifnextchar({\@six@heterohi(@}{\@six@heterohi(@)}} -\def\@six@heterohi(#1){\@ifnextchar[{\@six@@heterohi(#1)[@}% -{\@six@@heterohi(#1)[@]}} -\def\@six@@heterohi(#1)[#2]#3#4{\@ifnextchar[% -{\@sixheterohi(#1)[#2]{#3}{#4}[@}% -{\@sixheterohi(#1)[#2]{#3}{#4}[@]}} -\def\@sixheterohi(#1)[#2]#3#4[#5]{% -\iniatom\iniflag%initialize -\test@vrtx@sixhi{#3}% -\@reset@ylsw% -\ylpositionh{#4}{5}{0}{5}{-1}% %subst 1--4 -\ylpositionh{#4}{11}{4}{7}{-1}% %subst 5 and 6 -\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}(880,800)(-240,-400)% - \iforigpt \put(-\shifti,-\shiftii){\circle*{50}}% - \put(-\noshift,-\noshift){\circle{50}}% - \typeout{command `sixheterohi' origin: % - (\the\noshift,\the\noshift) ---> (\the\shifti,\the\shiftii)}\fi% -\fi -{\resetbdsw% -\@bond@@omit{#5}% -\set@skel@bondh{#1}{a}{c}% bond between 1 and 2 \@aaa -> \hskbondc etc -\set@skel@bondh{#1}{b}{b}% bond between 2 and 3 \@bbb -> \hskbondb etc -\set@skel@bondh{#1}{c}{a}% bond between 3 and 4 \@ccc -> \hskbonda etc -\set@skel@bondh{#1}{d}{f}% bond between 4 and 5 \@ddd -> \hskbondf etc -\set@skel@bondh{#1}{e}{e}% bond between 5 and 6 \@eee -> \hskbonde etc -\set@skel@bondh{#1}{f}{d}% bond between 6 and 1 \@fff -> \hskbondd etc -}% -\@tfor\member:=#2\do{% -\if\member r\relax \hbondd \hbondf \hbondb% -\else \if\member l\relax \hbonda \hbondc \hbonde% -\else \if\member a\relax \hbondc% -\else \if\member b\relax \hbondb% -\else \if\member c\relax \hbonda% -\else \if\member d\relax \hbondf% -\else \if\member e\relax \hbonde% -\else \if\member f\relax \hbondd% -\else \if\member A%left aromatic circle - \put(203,0){\circle{240}}% %circle -\else \expandafter\twoCH@@R\member//% - \set@fusionadd@sixhi -\fi\fi\fi\fi\fi\fi\fi\fi\fi}% -\set@hetatom@sixh{#3}{5}{0}{5}{-1}% %subst 1--4 -\set@hetatom@sixh{#3}{11}{4}{7}{-1}% %subst 5 and 6 -\setsixringh{#4}{5}{0}{5}{-1}% %subst 1--4 -\setsixringh{#4}{11}{4}{7}{-1}% %subst 5 and 6 -\end{picture}\iniatom\iniflag}% %end of \sixheterohi macro -\def\test@vrtx@sixhi#1{% -\@forsemicol\member:=#1\do{% -\ifx\member\empty\else -\expandafter\@m@mb@r\member;\relax% -\expandafter\twoch@r\@membera{}% -\ifcase\@tmpa% - \or \if\@tmpb s\relax\def\ddd{}\else\def\ddd{@}\fi - \or \if\@tmpb s\relax\def\ccc{}\else\def\ccc{@}\fi - \or \if\@tmpb s\relax\def\bbb{}\else\def\bbb{@}\fi - \or \if\@tmpb s\relax\def\aaa{}\else\def\aaa{@}\fi - \or \if\@tmpb s\relax\def\fff{}\else\def\fff{@}\fi - \or \if\@tmpb s\relax\def\eee{}\else\def\eee{@}\fi -\fi\fi}% -}% end of \test@vrtx@sixhi -\def\pyridineh{\@ifnextchar[{\@pyridineh[@}{\@pyridineh[r]}}% -\def\@pyridineh[#1]#2{% -\iforigpt \typeout{command `pyridineh' % - is based on `sixheteroh'.}\fi% -\sixheteroh[#1]{1==N}{#2}}%end of \pyridineh macro -\def\pyridinehi{\@ifnextchar[{\@pyridinehi}{\@pyridinehi[r]}}% -\def\@pyridinehi[#1]#2{% -\iforigpt \typeout{command `pyridinehi' % - is based on `sixheterohi'.}\fi% -\sixheterohi[#1]{1==N}{#2}}% %end of \pyridinehi macro -\def\pyrazineh{\@ifnextchar[{\@pyrazineh[@}{\@pyrazineh[r]}}% -\def\@pyrazineh[#1]#2{% -\iforigpt \typeout{command `pyrazineh' % - is based on `sixheteroh'.}\fi% -\sixheteroh[#1]{1==N;4==N}{#2}}%end of \pyrazineh macro -\def\pyrimidineh{% - \@ifnextchar[{\@pyrimidineh[@}{\@pyrimidineh[r]}}% -\def\@pyrimidineh[#1]#2{% -\iforigpt \typeout{command `pyrimidineh' % - is based on `sixheteroh'.}\fi% -\sixheteroh[#1]{1==N;3==N}{#2}}% - %end of \pyrimidineh macro -\def\pyrimidinehi{% - \@ifnextchar[{\@pyrimidinehi[@}{\@pyrimidinehi[r]}}% -\def\@pyrimidinehi[#1]#2{% -\iforigpt \typeout{command `pyrimidinehi' % - is based on `sixheterohi'.}\fi% -\sixheterohi[#1]{1==N;3==N}{#2}}%end of \pyrimidinehi macro -\def\pyridazineh{\@ifnextchar[{\@pyridazineh[@}{\@pyridazineh[r]}}% -\def\@pyridazineh[#1]#2{% -\iforigpt \typeout{command `pyridazineh' % - is based on `sixheteroh'.}\fi% -\sixheteroh[#1]{1==N;2==N}{#2}}% - %end of \pyridazineh macro -\def\pyridazinehi{% - \@ifnextchar[{\@pyridazinehi}{\@pyridazinehi[r]}}% -\def\@pyridazinehi[#1]#2{% -\iforigpt \typeout{command `pyridazinehi' % - is based on `sixheterohi'.}\fi% -\sixheterohi[#1]{1==N;2==N}{#2}}%end of \pyridazinehi macro -\def\triazineh{\@ifnextchar[{\@triazineh[@}{\@triazineh[r]}}% -\def\@triazineh[#1]#2{% -\iforigpt \typeout{command `triazineh' % - is based on `sixheteroh'.}\fi% -\sixheteroh[#1]{1==N;3==N;5==N}{#2}}%end of \triazineh macro -\def\triazinehi{\@ifnextchar[{\@triazinehi[@}{\@triazinehi[r]}}% -\def\@triazinehi[#1]#2{% -\iforigpt \typeout{command `triazinehi' % - is based on `sixheterohi'.}\fi% -\sixheterohi[#1]{1==N;3==N;5==N}{#2}}%end of \triazinehi macro -\def\fiveheteroh{\@ifnextchar({\@five@heteroh(@}{\@five@heteroh(@)}} -\def\@five@heteroh(#1){\@ifnextchar[{\@five@@heteroh(#1)[@}% -{\@five@@heteroh(#1)[@]}} -\def\@five@@heteroh(#1)[#2]#3#4{\@ifnextchar[% -{\@fiveheteroh(#1)[#2]{#3}{#4}[@}% -{\@fiveheteroh(#1)[#2]{#3}{#4}[@]}} -\def\@fiveheteroh(#1)[#2]#3#4[#5]{% -\iniatom\iniflag%initialize -\test@vrtx@fivehi{#3}% -\@reset@ylsw% -\ylpositionh{#4}{5}{1}{5}{-1}% % for 1 to 3 -\if@ylsw \ifx\@@ylii\empty -\def\@@ylii{0}\def\@@yli{0}\fi -\else -\ylpositionh{#4}{10}{4}{7}{-1}% % for 4 to 5 -\fi -\if@ylsw \ifx\@@ylii\empty -\def\@@ylii{0}\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}(800,880)(-240,-400)% - \iforigpt \put(-\shifti,-\shiftii){\circle*{50}}% - \put(-\noshift,-\noshift){\circle{50}}% - \typeout{command `fiveheteroh' origin: % - (\the\noshift,\the\noshift) ---> (\the\shifti,\the\shiftii)}\fi% -\fi -{\resetbdsw% -\@bond@@omit{#5}% -\set@skel@bondh{#1}{a}{c}% bond between 1 and 2 \@aaa -> \skbondc etc -\set@skel@bondh{#1}{b}{b}% bond between 2 and 3 \@bbb -> \skbondb etc -\set@skel@longbond{#1}{c}{hskbondvert}% - % bond between 3 and 4 \@ccc -> \skbondhoriz etc -\set@skel@bondh{#1}{d}{e}% bond between 4 and 5 \@ddd -> \skbonde etc -\set@skel@bondh{#1}{e}{d}% bond between 5 and 1 \@eee -> \skbondd etc -}% -\@tfor\member:=#2\do{% -\if\member r% -\else \if\member a\relax \hbondc% -\else \if\member b\relax \hbondb% -\else \if\member c\relax \hbondvert% -\else \if\member d\relax \hbonde% -\else \if\member e\relax \hbondd% -\else \if\member A%left aromatic circle - \put(233,0){\circle{180}}% %circle -\else - \expandafter\twoCH@@R\member//% - \set@fusionadd@fiveh -\fi\fi\fi\fi\fi\fi\fi}% -\put(0,0){\set@hetatom@sixh{#3}{5}{1}{5}{-1}}% % for 1 to 3 -\put(0,0){\set@hetatom@sixh{#3}{10}{4}{7}{-1}}% % for 4 to 5 -\put(0,0){\setsixringh{#4}{5}{1}{5}{-1}}% % for 1 to 3 -\put(0,0){\setsixringh{#4}{10}{4}{7}{-1}}% % for 4 to 5 -\end{picture}\iniatom\iniflag}% %end of \fiveheteroh macro -\def\test@vrtx@fivehi#1{% -\@forsemicol\member:=#1\do{% -\ifx\member\empty\else -\expandafter\@m@mb@r\member;\relax% -\expandafter\twoch@r\@membera{}% -\ifcase\@tmpa% - \or \if\@tmpb s\relax\def\ddd{}\else\def\ddd{@}\fi - \or \if\@tmpb s\relax\def\ccc{}\else\def\ccc{@}\fi - \or \if\@tmpb s\relax\def\bbb{}\else\def\bbb{@}\fi - \or \if\@tmpb s\relax\def\fff{}\else\def\fff{@}\fi - \or \if\@tmpb s\relax\def\eee{}\else\def\eee{@}\fi - \or \if\@tmpb s\relax\def\aaa{}\else\def\aaa{@}\fi% dummy -\fi\fi}% -}% end of \test@vrtx@sixhi -\def\fiveheterohi{\@ifnextchar({\@five@heterohi(@}{\@five@heterohi(@)}} -\def\@five@heterohi(#1){\@ifnextchar[{\@five@@heterohi(#1)[@}% -{\@five@@heterohi(#1)[@]}} -\def\@five@@heterohi(#1)[#2]#3#4{\@ifnextchar[% -{\@fiveheterohi(#1)[#2]{#3}{#4}[@}% -{\@fiveheterohi(#1)[#2]{#3}{#4}[@]}} -\def\@fiveheterohi(#1)[#2]#3#4[#5]{% -\iniatom\iniflag%initialize -\test@vertix@sixv{#3}{a}{b}{c}{e}{f}{d}%d--dummy -\@reset@ylsw% -\ylpositionh{#4}{0}{0}{4}{0}% % for 1 to 3 -\if@ylsw \ifx\@@ylii\empty -\def\@@ylii{0}\def\@@yli{0}\fi -\else -\ylpositionh{#4}{1}{4}{7}{0}% % for 4 to 5 -\fi -\if@ylsw \ifx\@@ylii\empty -\def\@@ylii{0}\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}(800,880)(-240,-400)% - \iforigpt \put(-\shifti,-\shiftii){\circle*{50}}% - \put(-\noshift,-\noshift){\circle{50}}% - \typeout{command `fiveheterohi' origin: % - (\the\noshift,\the\noshift) ---> (\the\shifti,\the\shiftii)}\fi% -\fi -{\resetbdsw% -\@bond@@omit{#5}% -\set@skel@bondh{#1}{a}{a}% bond between 1 and 2 \@aaa -> \hskbonda etc -\set@skel@bondh{#1}{b}{b}% bond between 2 and 3 \@bbb -> \hskbondb etc -\set@skel@longbond{#1}{c}{hskbondverti}% - % bond between 3 and 4 \@ccc -> \hskbondverti etc -\set@skel@bondh{#1}{d}{e}% bond between 4 and 5 \@ddd -> \hskbonde etc -\set@skel@bondh{#1}{e}{f}% bond between 5 and 6 \@eee -> \hskbondf etc -}% -\@tfor\member:=#2\do{% -\if\member r% -\else \if\member a\relax \hbonda% -\else \if\member b\relax \hbondb% -\else \if\member c\relax \hbondverti% -\else \if\member d\relax \hbonde% -\else \if\member e\relax \hbondf% -\else \if\member A%left aromatic circle - \put(173,0){\circle{180}}% %circle -\else - \expandafter\twoCH@@R\member//% - \set@fusionadd@fivehi -\fi\fi\fi\fi\fi\fi\fi}% -\set@hetatom@sixh{#3}{0}{0}{4}{0}% % for 1 to 3 -\set@hetatom@sixh{#3}{1}{4}{7}{0}% % for 4 to 5 -\setsixringh{#4}{0}{0}{4}{0}% % for 1 to 3 -\setsixringh{#4}{1}{4}{7}{0}% % for 4 to 5 -\end{picture}\iniatom\iniflag}% %end of \fiveheterohi macro -\def\pyrroleh{\@ifnextchar[{\@pyrroleh[@}{\@pyrroleh[bd]}}% -\def\@pyrroleh[#1]#2{% -\iforigpt \typeout{command `pyrroleh' % - is based on `fiveheteroh'.}\fi% -\fiveheteroh[#1]{1==N}{#2}}% -\def\pyrazoleh{\@ifnextchar[{\@pyrazoleh[@}{\@pyrazoleh[bd]}}% -\def\@pyrazoleh[#1]#2{% -\iforigpt \typeout{command `pyrazoleh' % - is based on `fiveheteroh'.}\fi% -\fiveheteroh[#1]{1==N;2==N}{#2}}% -\def\imidazoleh{\@ifnextchar[{\@imidazoleh[@}{\@imidazoleh[bd]}}% -\def\@imidazoleh[#1]#2{% -\iforigpt \typeout{command `imidazoleh' % - is based on `fiveheteroh'.}\fi% -\fiveheteroh[#1]{1==N;3==N}{#2}}% -\def\isoxazoleh{\@ifnextchar[{\@isoxazoleh[@}{\@isoxazoleh[bd]}}% -\def\@isoxazoleh[#1]#2{% -\iforigpt \typeout{command `isoxazoleh' % - is based on `fiveheteroh'.}\fi% -\fiveheteroh[#1]{1==O;2==N}{#2}}% -\def\oxazoleh{\@ifnextchar[{\@oxazoleh[@}{\@oxazoleh[bd]}}% -\def\@oxazoleh[#1]#2{% -\iforigpt \typeout{command `oxazoleh' % - is based on `fiveheteroh'.}\fi% -\fiveheteroh[#1]{1==O;3==N}{#2}}% -\def\furanh{\@ifnextchar[{\@furanh[@}{\@furanh[bd]}} -\def\@furanh[#1]#2{% -\iforigpt \typeout{command `furanh' % - is based on `fiveheteroh'.}\fi% -\fiveheteroh[#1]{1==O}{#2}} -\def\thiopheneh{\@ifnextchar[{\@thiopheneh[@}{\@thiopheneh[bd]}} -\def\@thiopheneh[#1]#2{% -\iforigpt \typeout{command `thiopheneh' % - is based on `fiveheteroh'.}\fi% -\fiveheteroh[#1]{1==S}{#2}} -\def\pyrrolehi{\@ifnextchar[{\@pyrrolehi[@}{\@pyrrolehi[bd]}}% -\def\@pyrrolehi[#1]#2{% -\iforigpt \typeout{command `pyrrolehi' % - is based on `fiveheterohi'.}\fi% -\fiveheterohi[#1]{1==N}{#2}}% -\def\pyrazolehi{\@ifnextchar[{\@pyrazolehi[@}{\@pyrazolehi[bd]}}% -\def\@pyrazolehi[#1]#2{% -\iforigpt \typeout{command `pyrazolehi' % - is based on `fiveheterohi'.}\fi% -\fiveheterohi[#1]{1==N;2==N}{#2}}% -\def\imidazolehi{\@ifnextchar[{\@imidazolehi[@}{\@imidazolehi[bd]}}% -\def\@imidazolehi[#1]#2{% -\iforigpt \typeout{command `imidazolehi' % - is based on `fiveheterohi'.}\fi% -\fiveheterohi[#1]{1==N;3==N}{#2}}% -\def\isoxazolehi{\@ifnextchar[{\@isoxazolehi[@}{\@isoxazolehi[bd]}}% -\def\@isoxazolehi[#1]#2{% -\iforigpt \typeout{command `isoxazolehi' % - is based on `fiveheterohi'.}\fi% -\fiveheterohi[#1]{1==O;2==N}{#2}}% -\def\oxazolehi{\@ifnextchar[{\@oxazolehi[@}{\@oxazolehi[bd]}}% -\def\@oxazolehi[#1]#2{% -\iforigpt \typeout{command `oxazolehi' % - is based on `fiveheterohi'.}\fi% -\fiveheterohi[#1]{1==O;3==N}{#2}}% -\def\furanhi{\@ifnextchar[{\@furanhi[@}{\@furanhi[bd]}} -\def\@furanhi[#1]#2{% -\iforigpt \typeout{command `furanhi' % - is based on `fiveheterohi'.}\fi% -\fiveheterohi[#1]{1==O}{#2}} -\def\thiophenehi{\@ifnextchar[{\@thiophenehi[@}{\@thiophenehi[bd]}} -\def\@thiophenehi[#1]#2{% -\iforigpt \typeout{command `thiophenehi' % - is based on `fiveheterohi'.}\fi% -\fiveheterohi[#1]{1==S}{#2}} -\def\decaheteroh{\@ifnextchar({\@deca@heteroh(@}{\@deca@heteroh(@)}} -\def\@deca@heteroh(#1){\@ifnextchar[{\@deca@@heteroh(#1)[@}% -{\@deca@@heteroh(#1)[@]}} -\def\@deca@@heteroh(#1)[#2]#3#4{\@ifnextchar[% -{\@decaheteroh(#1)[#2]{#3}{#4}[@}% -{\@decaheteroh(#1)[#2]{#3}{#4}[@]}} -\def\@decaheteroh(#1)[#2]#3#4[#5]{% -\iniflag\iniatom% -\test@vertix@sixv{#3}{a}{b}{c}{d}{e}{f}% -\test@vertix@decav{#3}{g}{h}{i}{j}{@}{@}% -\@reset@ylsw% -\ylhetpositionh{#4}{0}{0}{5}{0}% %substituents on 1 to 4 -\if@ylsw \ifx\@@ylii\empty -\def\@@ylii{0}\def\@@yli{0}\fi -\else -{\let\ddd=\eee\let\eee=\fff\let\fff=\ggg -\ylhetpositionh{#4}{-1}{3}{7}{0}% %substituents on 5 to 7 -}% -\fi -\if@ylsw \ifx\@@ylii\empty -\def\@@ylii{0}\def\@@yli{342}\fi -\else -{\let\aaa=\hhh -\ylhetpositionh{#4}{-7}{0}{2}{0}% %substituent on 8 -}% -\fi -\if@ylsw \ifx\@@ylii\empty -\def\@@ylii{0}\def\@@yli{342}\fi -\else -{% -\clipdetection% -\@clipfusefalse \if@iclip \@clipfusetrue \fi% -\ylatombondposition{#4}{-8}{4}% %9 for 4a position -}% -\fi -\if@ylsw \ifx\@@ylii\empty -\def\@@ylii{-303}\def\@@yli{171}\fi -\else -{% -\clipdetection% -\@clipfusefalse \if@jclip \@clipfusetrue \fi% -\ylatombondposition{#4}{-9}{10}% %10 for 8a position -}% -\fi -\if@ylsw \ifx\@@ylii\empty -\def\@@ylii{-103}\def\@@yli{171}\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}(1200,1200)(-400,-800) - \iforigpt \put(-\shiftii,-\shiftiii){\circle*{50}}% - \put(-\noshift,-\noshift){\circle{50}}% - \typeout{command `decaheteroh' origin: % - (\the\noshift,\the\noshift) ---> (\the\shiftii,\the\shiftiii)}\fi% -\fi -\begingroup -\resetbdsw% -\@bond@@omit{#5}% -{\let\fff=\jjj \let\eee=\iii% -\set@skel@bondh{#1}{a}{a}% bond between 1 and 2 \@aaa -> \hskbonda etc -\set@skel@bondh{#1}{b}{b}% bond between 2 and 3 \@bbb -> \hskbondb etc -\set@skel@bondh{#1}{c}{c}% bond between 3 and 4 \@ccc -> \hskbondc etc -\set@skel@bondh{#1}{d}{d}% bond between 4 and 5 \@ddd -> \skbondd etc -\set@skel@bondh{#1}{k}{e}% bond between 7 and 8 \@kkk -> \skbonde etc -\set@skel@bondh{#1}{j}{f}% bond between 7 and 8 \@jjj -> \skbondf etc -}% -{\let\aaa=\hhh \let\ddd=\eee\let\eee=\fff\let\fff=\ggg% - \let\ccc=\iii\let\bbb=\jjj% -\put(0,-342){\set@skel@bondh{#1}{i}{a}}% - % bond between 8a and 8 \@iii -> \hskbonda etc -\put(0,-342){\set@skel@bondh{#1}{e}{c}}% - % bond between 4a and 5 \@eee -> \hskbondc etc -\put(0,-342){\set@skel@bondh{#1}{f}{d}}% - % bond between 5 and 6 \@fff -> \hskbondd etc -\put(0,-342){\set@skel@bondh{#1}{g}{e}}% - % bond between 6 and 7 \@ggg -> \hskbonde etc -\put(0,-342){\set@skel@bondh{#1}{h}{f}}% - % bond between 7 and 8 \@hhh -> \hskbondf etc -}% -\endgroup -\@tfor\member:=#2\do{% -\if\member r\relax% -{\let\fff=\jjj \let\eee=\iii% - \put(0,0){\hbonda}% bond between 1 and 2% - \put(0,0){\hbondc}% bond between 3 and 4% -}% -{\let\aaa=\hhh \let\ddd=\eee\let\eee=\fff\let\fff=\ggg% - \let\ccc=\iii\let\bbb=\jjj% - \put(0,-342){\hbondb}% bond between 8a and 4a - \put(0,-342){\hbondf}% bond between 8 and 7 - \put(0,-342){\hbondd}% bond between 5 and 6 -}% -\else \if\member l\relax% -\else \if\member a\relax% - \put(0,0){\hbonda}% bond between 1 and 2 -\else \if\member b\relax% - \put(0,0){\hbondb}% bond between 2 and 3 -\else \if\member c\relax% - \put(0,0){\hbondc}% bond between 3 and 4 -\else \if\member d\relax% -{\let\eee=\iii% - \put(0,0){\hbondd}% bond between 4 and 4a -}% -\else \if\member e\relax% -{\let\ccc=\iii \let\ddd=\eee% - \put(0,-342){\hbondc}% bond between 5 and 4a -}% -\else \if\member f\relax% -{\let\ddd=\eee \let\eee=\fff% - \put(0,-342){\hbondd}% bond between 5 and 6 -}% -\else \if\member g\relax% -{\let\eee=\fff \let\fff=\ggg% - \put(0,-342){\hbonde}% bond between 6 and 7 -}% -\else \if\member h\relax% -{\let\aaa=\hhh \let\fff=\ggg% - \put(0,-342){\hbondf}% bond between 8 and 7 -}% -\else \if\member i\relax% -{\let\aaa=\hhh \let\bbb=\jjj% - \put(0,-342){\hbonda}% bond between 8 and 8a -}% -\else \if\member j\relax% -{\let\fff=\jjj% - \put(0,0){\hbondf}% bond between 1 and 8a -}% -\else \if\member k\relax% -{\let\ccc=\iii\let\bbb=\jjj% - \put(0,-342){\hbondb}% bond between 8a and 4a -}% -\else \if\member K\relax% -{\let\eee=\iii\let\fff=\jjj% - \put(0,0){\hbonde}% bond between 8a and 4a in the other ring -}% -\else \if\member A%left aromatic circle - \put(203,0){\circle{240}}% %circle -\else \if\member B%left aromatic circle - \put(203,-342){\circle{240}}% %circle -\else - \expandafter\twoCH@@R\member//% - \def\aax{8a} \def\aay{4a} \def\aaz{10}% - \if\@@tmpa 4\relax% - \putratom{272}{-18}{\@@tmpb}% % right type - \else\if\@@tmpa 1\relax% - \putratom{68}{-18}{\@@tmpb}% % right type - \else\if\@@tmpa 3\relax% - \putratom{233}{60}{\@@tmpb}% % right type - \else\if\@@tmpa 2\relax% - \putratom{120}{60}{\@@tmpb}% % right type - \else\ifx\@@tmpa\aaz\relax% - \putratom{120}{-110}{\@@tmpb}% % right type - \else\ifx\@@tmpa\aax\relax% - \putratom{120}{-110}{\@@tmpb}% % right type - \else\ifx\@@tmpa\aay\relax - \putratom{233}{-110}{\@@tmpb}% % right type - \else\if\@@tmpa 9\relax% - \putratom{233}{-110}{\@@tmpb}% % right type - \else\if\@@tmpa 5\relax% - \putratom{272}{-360}{\@@tmpb}% % right type - \else\if\@@tmpa 8\relax% - \putratom{68}{-360}{\@@tmpb}% % right type - \else\if\@@tmpa 6\relax% - \putratom{233}{-452}{\@@tmpb}% % right type - \else\if\@@tmpa 7\relax% - \putratom{120}{-452}{\@@tmpb}% % right type - \fi\fi\fi\fi\fi\fi\fi\fi\fi\fi\fi\fi% - \expandafter\twoCH@R\member//% - \set@fusion@decah -\fi\fi\fi\fi\fi\fi\fi\fi\fi\fi% -\fi\fi\fi\fi\fi\fi}% -\iniflag -\put(0,0){\set@hetatom@sixh{#3}{0}{0}{5}{0}% - \if@aclip \global\@acliptrue\fi - \if@bclip \global\@bcliptrue\fi - \if@cclip \global\@ccliptrue\fi - \if@clip \global\@cliptrue\fi}% %substituents on 1 to 4 -\put(0,-342){\iniflag%2000/11/11 by Shinsaku Fujita - \set@hetatom@sixh{#3}{-1}{3}{7}{0}% - \@gclipfalse \if@fclip \global\@gcliptrue \fi% - \@fclipfalse \if@eclip \global\@fcliptrue \fi% - \@eclipfalse \if@clip \global\@ecliptrue \fi}%substituents on 5 to 7 -\put(0,-342){\iniflag%2000/11/11 by Shinsaku Fujita - \set@hetatom@sixh{#3}{-7}{0}{2}{0}% - \@hclipfalse \if@aclip \global\@hcliptrue \fi}%%substituent on 8 -\put(0,0){\set@vrtx@fuseh{#3}% - \if@iclip \global\@icliptrue \fi - \if@jclip \global\@jcliptrue \fi}% fused positions -\put(0,0){\setsixringh{#4}{0}{0}{5}{0}}% %substituents on 1 to 4 -{\@clipfalse \if@eclip \@cliptrue \fi% %substituents on 5 to 7 - \@eclipfalse \if@fclip \@ecliptrue \fi% - \@fclipfalse \if@gclip \@fcliptrue \fi% -\put(0,-342){\setsixringh{#4}{-1}{3}{7}{0}}% -}% -{\@aclipfalse \if@hclip \@acliptrue \fi% %substituent on 8 -\put(0,-342){\setsixringh{#4}{-7}{0}{2}{0}}% -}% -{\@clipfusefalse \if@iclip \@clipfusetrue \fi% - \put(303,-171){\setatombond{#4}{-8}{4}} %9 for 4a position -}% -{\@clipfusefalse \if@jclip \@clipfusetrue \fi% - \put(103,-171){\setatombond{#4}{-9}{10}} %10 for 8a position -}% -\end{picture}\iniatom\iniflag}% %end of \decaheteroh macro -\def\ylhetpositionh#1#2#3#4#5{% -\@@ylswfalse%%%\@reset@ylsw -\@forsemicol\member:=#1\do{% -\if@@ylsw\else -\ifx\member\empty\else -\expandafter\@m@mb@r\member;\relax -\expandafter\threech@r\@membera{}{}\relax -\ifx\@memberb\@yl\relax\@@ylswtrue\else\@@ylswfalse\fi -\if@@ylsw -\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%0 omit - \or - \ifx\aaa\empty - \gdef\@ylii{0}\gdef\@yli{0}\global\@ylswtrue%\@ylatrue% subst. on 1 - \else - \gdef\@ylii{30}\gdef\@yli{0}\global\@ylswtrue%\@ylatrue% subst. on 1 - \fi - \or - \ifx\bbb\empty - \gdef\@ylii{-103}\gdef\@yli{-171}\global\@ylswtrue%\@ylbtrue% subst. on 2 - \else - \gdef\@ylii{-73}\gdef\@yli{-223}\global\@ylswtrue%\@ylbtrue% subst. on 2 - \fi - \or - \ifx\ccc\empty - \gdef\@ylii{-303}\gdef\@yli{-171}\global\@ylswtrue%\@ylctrue% subst. on 3 - \else - \gdef\@ylii{-333}\gdef\@yli{-223}\global\@ylswtrue%\@ylctrue% subst. on 3 - \fi - \or - \ifx\ddd\empty - \gdef\@ylii{-406}\gdef\@yli{0}\global\@ylswtrue%\@yldtrue% subst. on 4 - \else - \gdef\@ylii{-436}\gdef\@yli{0}\global\@ylswtrue%\@yldtrue% subst. on 4 - \fi - \or - \ifx\eee\empty - \gdef\@ylii{-303}\gdef\@yli{171}\global\@ylswtrue%\@yletrue% subst. on 5 - \else - \gdef\@ylii{-333}\gdef\@yli{223}\global\@ylswtrue%\@yletrue% subst. on 5 - \fi - \or - \ifx\fff\empty - \gdef\@ylii{-103}\gdef\@yli{171}\global\@ylswtrue%\@ylftrue% subst. on 6 - \else - \gdef\@ylii{-73}\gdef\@yli{223}\global\@ylswtrue%\@ylftrue% subst. on 6 - \fi -\fi%end of ifcase -\fi\fi\fi\fi\fi}}% -\def\decaheterohi{\@ifnextchar({\@deca@heterohi(@}{\@deca@heterohi(@)}} -\def\@deca@heterohi(#1){\@ifnextchar[{\@deca@@heterohi(#1)[@}% -{\@deca@@heterohi(#1)[@]}} -\def\@deca@@heterohi(#1)[#2]#3#4{\@ifnextchar[% -{\@decaheterohi(#1)[#2]{#3}{#4}[@}% -{\@decaheterohi(#1)[#2]{#3}{#4}[@]}} -\def\@decaheterohi(#1)[#2]#3#4[#5]{% -\iniflag\iniatom% -\test@vertix@decavi{#3}% -\@reset@ylsw% -\ylhetpositionh{#4}{5}{0}{5}{-1}% %substituents on 1 to 4 -\if@ylsw \ifx\@@ylii\empty -\def\@@ylii{0}\def\@@yli{0}\fi -\else -{\let\ddd=\eee\let\eee=\fff\let\fff=\ggg -\ylhetpositionh{#4}{12}{3}{7}{-1}% %substituents on 6 to 8 -}% -\fi -\if@ylsw \ifx\@@ylii\empty -\def\@@ylii{0}\def\@@yli{342}\fi -\else -{\let\aaa=\hhh -\ylhetpositionh{#4}{-4}{0}{2}{0}% %substituent on 5 -}% -\fi -\if@ylsw \ifx\@@ylii\empty -\def\@@ylii{0}\def\@@yli{342}\fi -\else -{% -\clipdetection% -\@clipfusefalse \if@iclip \@clipfusetrue \fi% -\ylatombondposition{#4}{-9}{4}% %10 for 8a position -}% -\fi -\if@ylsw \ifx\@@ylii\empty -\def\@@ylii{-303}\def\@@yli{171}\fi -\else -{% -\clipdetection% -\@clipfusefalse \if@jclip \@clipfusetrue \fi% -\ylatombondposition{#4}{-8}{10}% %9 for 4a position -}% -\fi -\if@ylsw \ifx\@@ylii\empty -\def\@@ylii{-103}\def\@@yli{171}\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}(1200,1200)(-400,-800)% - \iforigpt \put(-\shiftii,-\shiftiii){\circle*{50}}% - \put(-\noshift,-\noshift){\circle{50}}% - \typeout{command `decaheterohi' origin: % - (\the\noshift,\the\noshift) ---> (\the\shiftii,\the\shiftiii)}\fi% -\fi -\begingroup -\resetbdsw% -\@bond@@omit{#5}% -{\let\fff=\jjj \let\eee=\iii% -\set@skel@bondh{#1}{a}{c}% bond between 1 and 2 \@aaa -> \hskbondc etc -\set@skel@bondh{#1}{b}{b}% bond between 2 and 3 \@bbb -> \hskbondb etc -\set@skel@bondh{#1}{c}{a}% bond between 3 and 4 \@ccc -> \hskbonda etc -\set@skel@bondh{#1}{d}{f}% bond between 4 and 4a \@ddd -> \hskbondf etc -\set@skel@bondh{#1}{k}{e}% bond between 4a and 8a \@kkk -> \hskbonde etc -\set@skel@bondh{#1}{j}{d}% bond between 8a and 1 \@jjj -> \hskbondd etc -}% -{\let\aaa=\hhh \let\ddd=\eee\let\eee=\fff\let\fff=\ggg% - \let\ccc=\iii\let\bbb=\jjj% -\put(0,-342){\set@skel@bondh{#1}{e}{a}}% - % bond between 4a and 5 \@eee -> \hskbonda etc -\put(0,-342){\set@skel@bondh{#1}{i}{c}}% - % bond between 8a and 8 \@iii -> \hskbondc etc -\put(0,-342){\set@skel@bondh{#1}{h}{d}}% - % bond between 7 and 8 \@hhh -> \hskbondd etc -\put(0,-342){\set@skel@bondh{#1}{g}{e}}% - % bond between 6 and 7 \@ggg -> \hskbonde etc -\put(0,-342){\set@skel@bondh{#1}{f}{f}}% - % bond between 5 and 6 \@fff -> \hskbondf etc -}% -\endgroup -\@tfor\member:=#2\do{% -\if\member r\relax% -{\let\fff=\jjj \let\eee=\iii% - \put(0,0){\hbonda}% bond between 1 and 2 - \put(0,0){\hbondc}% bond between 3 and 4 -}% -{\let\aaa=\hhh \let\ddd=\eee\let\eee=\fff\let\fff=\ggg% - \let\ccc=\iii\let\bbb=\jjj% - \put(0,-342){\hbondb}% bond between 8a and 4a - \put(0,-342){\hbondf}% bond between 8 and 7 - \put(0,-342){\hbondd}% bond between 5 and 6 -}% -\else \if\member l\relax% -\else \if\member a\relax% - \put(0,0){\hbondc}% bond between 3 and 4 -\else \if\member b\relax - \put(0,0){\hbondb}% bond between 2 and 3 -\else \if\member c\relax - \put(0,0){\hbonda}% bond between 1 and 2 -\else \if\member d\relax% -{\let\fff=\jjj% - \put(0,0){\hbondf}% bond between 1 and 8a -}% -\else \if\member e\relax% -{\let\aaa=\hhh \let\bbb=\jjj% - \put(0,-342){\hbonda}% bond between 8 and 8a -}% -\else \if\member f\relax% -{\let\aaa=\hhh \let\fff=\ggg% - \put(0,-342){\hbondf}% bond between 8 and 7 -}% -\else \if\member g\relax% -{\let\eee=\fff \let\fff=\ggg% - \put(0,-342){\hbonde}% bond between 6 and 7 -}% -\else \if\member h\relax% -{\let\ddd=\eee \let\eee=\fff% - \put(0,-342){\hbondd}% bond between 5 and 6 -}% -\else \if\member i\relax% -{\let\ccc=\iii \let\ddd=\eee% - \put(0,-342){\hbondc}% bond between 5 and 4a -}% -\else \if\member j\relax% -{\let\eee=\iii% - \put(0,0){\hbondd}% bond between 4 and 4a -}% -\else \if\member k\relax% -{\let\ccc=\iii\let\bbb=\jjj% - \put(0,-342){\hbondb}% bond between 8a and 4a -}% -\else \if\member K\relax% -{\let\eee=\iii\let\fff=\jjj% - \put(0,0){\hbonde}% bond between 8a and 4a -}% -\else \if\member A%left aromatic circle - \put(203,0){\circle{240}}% %circle -\else \if\member B%left aromatic circle - \put(203,-342){\circle{240}}% %circle -\else \expandafter\twoCH@@R\member//% - \def\aax{8a}\def\aay{4a}\def\aaz{10}% - \if\@@tmpa 4\relax% - \putratom{68}{-18}{\@@tmpb}% % right type - \else\if\@@tmpa 1\relax% - \putratom{272}{-18}{\@@tmpb}% % right type - \else\if\@@tmpa 3\relax% - \putratom{120}{60}{\@@tmpb}% % right type - \else\if\@@tmpa 2\relax% - \putratom{233}{60}{\@@tmpb}% % right type - \else\ifx\@@tmpa\aaz\relax% - \putratom{233}{-110}{\@@tmpb}% % right type - \else\ifx\@@tmpa\aax\relax% - \putratom{233}{-110}{\@@tmpb}% % right type - \else\ifx\@@tmpa\aay\relax% - \putratom{120}{-110}{\@@tmpb}% % right type - \else\if\@@tmpa 9\relax% - \putratom{120}{-110}{\@@tmpb}% % right type - \else\if\@@tmpa 5\relax% - \putratom{68}{-360}{\@@tmpb}% % right type - \else\if\@@tmpa 8\relax% - \putratom{272}{-360}{\@@tmpb}% % right type - \else\if\@@tmpa 6\relax% - \putratom{120}{-452}{\@@tmpb}% % right type - \else\if\@@tmpa 7\relax% - \putratom{233}{-452}{\@@tmpb}% % right type - \fi\fi\fi\fi\fi\fi\fi\fi\fi\fi\fi\fi% - \expandafter\twoCH@R\member//% - \set@fusion@decahi -\fi\fi\fi\fi\fi\fi\fi\fi\fi\fi% -\fi\fi\fi\fi\fi\fi}% -\iniflag -\@tmpclipfalse -\put(0,0){\set@hetatom@sixh{#3}{5}{0}{5}{-1}% - \if@aclip \global\@acliptrue\fi - \if@bclip \global\@bcliptrue\fi - \if@cclip \global\@ccliptrue\fi - \if@clip \global\@cliptrue\fi -}% %substituents on 1 to 4 -\put(0,-342){\iniflag%2000/11/11 by Shinsaku Fujita - \set@hetatom@sixh{#3}{12}{3}{7}{-1}% - \@gclipfalse \if@fclip \global\@gcliptrue \fi% - \@fclipfalse \if@eclip \global\@fcliptrue \fi% - \@eclipfalse \if@clip \global\@ecliptrue \fi% -}%substituents on 6 to 8 -\put(0,-342){\set@hetatom@sixh{#3}{-4}{0}{2}{0}% - \@aclipfalse \if@aclip \global\@hcliptrue \fi% -}%%substituent on 5 -\put(0,0){\set@vrtx@decafusehi{#3}% - \@tmpclipfalse - \if@iclip \global\@tmpcliptrue \fi - \if@jclip \global\@icliptrue \fi - \if@tmpclip \global\@jcliptrue \fi -}% fused positions -\put(0,0){\setsixringh{#4}{5}{0}{5}{-1}}% %substituents on 1 to 4 -{\@clipfalse \if@eclip \@cliptrue \fi% %substituents on 6 to 8 - \@eclipfalse \if@fclip \@ecliptrue \fi% - \@fclipfalse \if@gclip \@fcliptrue \fi% -\put(0,-342){\setsixringh{#4}{12}{3}{7}{-1}}% -}% -{\@aclipfalse \if@hclip \@acliptrue \fi% %substituent on 5 -\put(0,-342){\setsixringh{#4}{-4}{0}{2}{0}}% -}% -{\@clipfusefalse \if@iclip \@clipfusetrue \fi% - \put(303,-171){\setatombond{#4}{-9}{4}}% %10 for 8a position -}% -{\@clipfusefalse \if@jclip \@clipfusetrue \fi - \put(103,-171){\setatombond{#4}{-8}{10}}% %9 for 4a position -}% -\end{picture}\iniatom\iniflag}% %end of \decaheterohi macro -\def\set@vrtx@decafusehi#1{% -\@forsemicol\member:=#1\do{% -\ifx\member\empty\else -\expandafter\@m@mb@r\member;\relax% -\expandafter\twoch@r\@membera{}% -\ifcase\@tmpa\or\or\or - \or%%%%4 - \if\@tmpb a% - \global\@icliptrue% - \putlatom{135}{-211}{\@memberb}% % left type - \else\if\@tmpb h% - \XyMTeXWarning{Forbidden fused position `4a' or `9'}% - \else\if\@tmpb s% - \XyMTeXWarning{Forbidden fused position `4a' or `9'}% - \else\ifx\@tmpb\empty\relax - \else - \XyMTeXWarning{Forbidden fused position `4a' or `9'}% - \fi\fi\fi\fi - \or\or\or - \or%8 - \if\@tmpb a% - \global\@jcliptrue% - \putratom{273}{-211}{\@memberb}% % right type - \else\if\@tmpb h% - \XyMTeXWarning{Forbidden fused position `8a' or `10'}% - \else\if\@tmpb s% - \XyMTeXWarning{Forbidden fused position `8a' or `10'}% - \else\ifx\@tmpb\empty\relax - \else - \XyMTeXWarning{Forbidden fused position `8a' or `10'}% - \fi\fi\fi\fi -\or%9 (= 4a) - \ifx\@tmpb\empty% - \global\@icliptrue% - \putlatom{135}{-211}{\@memberb}% % left type - \else - \XyMTeXWarning{Forbidden fused position `4a' or `9'}% - \fi -\or%10 (= 8a) - \ifx\@tmpb\empty% - \global\@jcliptrue% - \putratom{273}{-211}{\@memberb}% % right type - \else - \XyMTeXWarning{Forbidden fused position `8a' or `10'}% - \fi -\fi\fi}% -}% end of the macro \set@vrtx@decafusehi -\def\set@fusion@decahi{% - \let\@@tmpa=\@tmpa - \let\@@tmpb=\@tmpb - \if\@tmpa a% - \let\@@tmpa=\@tmpa - \put(0,0){\set@fusionadd@sixhi}% - \else\if\@tmpa A% - \let\@@tmpa=\@tmpa - \put(0,0){\set@fusionadd@sixhi}% - \else\if\@tmpa b% - \let\@@tmpa=\@tmpa - \put(0,0){\set@fusionadd@sixhi}% - \else\if\@tmpa B% - \let\@@tmpa=\@tmpa - \put(0,0){\set@fusionadd@sixhi}% - \else\if\@tmpa c% - \let\@@tmpa=\@tmpa - \put(0,0){\set@fusionadd@sixhi}% - \else\if\@tmpa C% - \let\@@tmpa=\@tmpa - \put(0,0){\set@fusionadd@sixhi}% - \else\if\@tmpa d% - \let\@@tmpa=\@tmpa - \put(0,0){\set@fusionadd@sixhi}% - \if@smallringsw\else - \XyMTeXWarning{Unfavorable Fusion for bond `d'}% - \fi - \else\if\@tmpa D% - \let\@@tmpa=\@tmpa - \put(0,0){\set@fusionadd@sixhi}% - \if@smallringsw\else - \XyMTeXWarning{Unfavorable Fusion for bond `D'}% - \fi - \else\if\@tmpa e% - \edef\@@tmpa{c}% - \put(0,-342){\set@fusionadd@sixhi}% - \if@smallringsw\else - \XyMTeXWarning{Unfavorable Fusion for bond `e'}% - \fi - \else\if\@tmpa E% - \edef\@@tmpa{C}% - \put(0,-342){\set@fusionadd@sixhi}% - \if@smallringsw\else - \XyMTeXWarning{Unfavorable Fusion for bond `E'}% - \fi - \else\if\@tmpa f% - \edef\@@tmpa{d}% - \put(0,-342){\set@fusionadd@sixhi}% - \else\if\@tmpa F% - \edef\@@tmpa{D}% - \put(0,-342){\set@fusionadd@sixhi}% - \else\if\@tmpa g% - \edef\@@tmpa{e}% - \put(0,-342){\set@fusionadd@sixhi}% - \else\if\@tmpa G% - \edef\@@tmpa{E}% - \put(0,-342){\set@fusionadd@sixhi}% - \else\if\@tmpa h% - \edef\@@tmpa{f}% - \put(0,-342){\set@fusionadd@sixhi}% - \else\if\@tmpa H% - \edef\@@tmpa{F}% - \put(0,-342){\set@fusionadd@sixhi}% - \else\if\@tmpa i% - \edef\@@tmpa{a}% - \put(0,-342){\set@fusionadd@sixhi}% - \if@smallringsw\else - \XyMTeXWarning{Unfavorable Fusion for bond `i'}% - \fi - \else\if\@tmpa I% - \edef\@@tmpa{A}% - \put(0,-342){\set@fusionadd@sixhi}% - \if@smallringsw\else - \XyMTeXWarning{Unfavorable Fusion for bond `I'}% - \fi - \else\if\@tmpa j% - \edef\@@tmpa{f}% - \put(0,0){\set@fusionadd@sixhi}% - \if@smallringsw\else - \XyMTeXWarning{Unfavorable Fusion for bond `j'}% - \fi - \else\if\@tmpa J% - \edef\@@tmpa{F}% - \put(0,0){\set@fusionadd@sixhi}% - \if@smallringsw\else - \XyMTeXWarning{Unfavorable Fusion for bond `J'}% - \fi - \else\if\@tmpa k% - \edef\@@tmpa{e}% - \put(0,0){\set@fusionadd@sixhi}% - \if@smallringsw\else - \XyMTeXWarning{Forbidden Fusion for bond `k'}% - \fi - \else\if\@tmpa K% - \edef\@@tmpa{E}% - \put(0,0){\set@fusionadd@sixhi}% - \if@smallringsw\else - \XyMTeXWarning{Forbidden Fusion for bond `K'}% - \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@decahi -\def\quinolineh{% - \@ifnextchar[{\@quinolineh[@}{\@quinolineh[acfhk]}}% -\def\@quinolineh[#1]#2{% -\iforigpt \typeout{command `quinolineh' % - is based on `decaheteroh'.}\fi% -\decaheteroh[#1]{1==N}{#2}}% -\def\quinolinehi{% - \@ifnextchar[{\@quinolinehi[@}{\@quinolinehi[acfhk]}}% -\def\@quinolinehi[#1]#2{% -\iforigpt \typeout{command `quinolinehi' % - is based on `decaheterohi'.}\fi% -\decaheterohi[#1]{1==N}{#2}}% -\def\isoquinolineh{% - \@ifnextchar[{\@isoquinolineh[@}{\@isoquinolineh[acfhk]}}% -\def\@isoquinolineh[#1]#2{% -\iforigpt \typeout{command `isoquinolineh' % - is based on `decaheteroh'.}\fi% -\decaheteroh[#1]{2==N}{#2}}% -\def\isoquinolinehi{% - \@ifnextchar[{\@isoquinolinehi[@}{\@isoquinolinehi[acfhk]}}% -\def\@isoquinolinehi[#1]#2{% -\iforigpt \typeout{command `isoquinolinehi' % - is based on `decaheterohi'.}\fi% -\decaheterohi[#1]{2==N}{#2}}% -\def\quinoxalineh{% - \@ifnextchar[{\@quinoxalineh[@}{\@quinoxalineh[acfhk]}}% -\def\@quinoxalineh[#1]#2{% -\iforigpt \typeout{command `quinoxalineh' % - is based on `decaheteroh'.}\fi% -\decaheteroh[#1]{1==N;4==N}{#2}}% -\def\quinazolineh{% - \@ifnextchar[{\@quinazolineh[@}{\@quinazolineh[acfhk]}}% -\def\@quinazolineh[#1]#2{% -\iforigpt \typeout{command `quinazolineh' % - is based on `decaheteroh'.}\fi% -\decaheteroh[#1]{1==N;3==N}{#2}}% -\def\quinazolinehi{% - \@ifnextchar[{\@quinazolinehi[@}{\@quinazolinehi[acfhk]}}% -\def\@quinazolinehi[#1]#2{% -\iforigpt \typeout{command `quinazolinehi' % - is based on `decaheterohi'.}\fi% -\decaheterohi[#1]{1==N;3==N}{#2}}% -\def\cinnolineh{% - \@ifnextchar[{\@cinnolineh[@}{\@cinnolineh[acfhk]}}% -\def\@cinnolineh[#1]#2{% -\iforigpt \typeout{command `cinnolineh' % - is based on `decaheteroh'.}\fi% -\decaheteroh[#1]{1==N;2==N}{#2}}% -\def\cinnolinehi{% - \@ifnextchar[{\@cinnolinehi[@}{\@cinnolinehi[acfhk]}}% -\def\@cinnolinehi[#1]#2{% -\iforigpt \typeout{command `cinnolinehi' % - is based on `decaheterohi'.}\fi% -\decaheterohi[#1]{1==N;2==N}{#2}}% -\def\pteridineh{% - \@ifnextchar[{\@pteridineh[@}{\@pteridineh[acfhk]}}% -\def\@pteridineh[#1]#2{% -\iforigpt \typeout{command `pteridineh' % - is based on `decaheteroh'.}\fi% -\decaheteroh[#1]{1==N;3==N;5==N;8==N}{#2}}% -\def\pteridinehi{% - \@ifnextchar[{\@pteridinehi[@}{\@pteridinehi[acfhk]}}% -\def\@pteridinehi[#1]#2{% -\iforigpt \typeout{command `pteridinehi' % - is based on `decaheterohi'.}\fi% -\decaheterohi[#1]{1==N;3==N;5==N;8==N}{#2}}% -\def\nonaheteroh{\@ifnextchar({\@nona@heteroh(@}{\@nona@heteroh(@)}} -\def\@nona@heteroh(#1){\@ifnextchar[{\@nona@@heteroh(#1)[@}% -{\@nona@@heteroh(#1)[@]}} -\def\@nona@@heteroh(#1)[#2]#3#4{\@ifnextchar[% -{\@nonaheteroh(#1)[#2]{#3}{#4}[@}% -{\@nonaheteroh(#1)[#2]{#3}{#4}[@]}} -\def\@nonaheteroh(#1)[#2]#3#4[#5]{% -\iniflag\iniatom% -\test@vertix@nonav{#3}% -\@reset@ylsw% -\ylpositionh{#4}{5}{1}{5}{-1}% %substituents on 1 to 3 -\if@ylsw \ifx\@@ylii\empty -\def\@@ylii{0}\def\@@yli{0}\fi -\else -{\let\ddd=\eee\let\eee=\fff\let\fff=\ggg -\ylpositionh{#4}{11}{3}{7}{-1}% %substituents on 5 to 7 -}% -\fi -\if@ylsw \ifx\@@ylii\empty -\def\@@ylii{0}\def\@@yli{342}\fi -\else -{\let\aaa=\hhh -\ylpositionh{#4}{-3}{0}{2}{0}%%substituent on 4 -}% -\fi -\if@ylsw \ifx\@@ylii\empty -\def\@@ylii{0}\def\@@yli{342}\fi -\else -{% -\clipdetection% -\@clipfusefalse \if@iclip \@clipfusetrue \fi% -\ylatombondposition{#4}{-8}{4}% %9 for 7a position -}% -\fi -\if@ylsw \ifx\@@ylii\empty -\def\@@ylii{-303}\def\@@yli{171}\fi -\else -{% -\clipdetection% -\@clipfusefalse \if@jclip \@clipfusetrue \fi% -\ylatombondposition{#4}{-7}{10}% %8 for 3a position -}% -\fi -\if@ylsw \ifx\@@ylii\empty -\def\@@ylii{-103}\def\@@yli{171}\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}(1200,1200)(-400,-800)% - \iforigpt \put(-\shiftii,-\shiftiii){\circle*{50}}% - \put(-\noshift,-\noshift){\circle{50}}% - \typeout{command `nonahetero' origin: % - (\the\noshift,\the\noshift) ---> (\the\shiftii,\the\shiftiii)}\fi% -\fi -\begingroup -\resetbdsw% -\@bond@@omit{#5}% -{\let\fff=\jjj \let\eee=\iii% -\set@skel@bondh{#1}{a}{c}% bond between 1 and 2 \@aaa -> \hskbondc etc -\set@skel@bondh{#1}{b}{b}% bond between 2 and 3 \@bbb -> \hskbondb etc -\set@skel@longbond{#1}{c}{hskbondvert}% - % bond between 3 and 3a \@ccc -> \hskbondhoriz etc -\set@skel@bondh{#1}{j}{e}% bond between 3a and 7a \@jjj -> \hskbonde etc -\set@skel@bondh{#1}{i}{d}% bond between 7a and 1 \@iii -> \hskbondd etc -}% -{\let\aaa=\hhh \let\ddd=\eee\let\eee=\fff\let\fff=\ggg - \let\ccc=\iii\let\bbb=\jjj% -\put(0,-342){\set@skel@bondh{#1}{d}{a}}% - % bond between 3a and 4 \@ddd -> \hskbonda etc -\put(0,-342){\set@skel@bondh{#1}{h}{c}}% - % bond between 7a and 7 \@hhh -> \hskbondc etc -\put(0,-342){\set@skel@bondh{#1}{g}{d}}% - % bond between 6 and 7 \@ggg -> \hskbondd etc -\put(0,-342){\set@skel@bondh{#1}{f}{e}}% - % bond between 5 and 6 \@fff -> \hskbonde etc -\put(0,-342){\set@skel@bondh{#1}{e}{f}}% - % bond between 4 and 5 \@eee -> \hskbondf etc -}% -\endgroup -\@tfor\member:=#2\do{% -\if\member r\relax% -{\let\aaa=\hhh \let\ddd=\eee\let\eee=\fff\let\fff=\ggg% - \let\ccc=\iii\let\bbb=\jjj% - \put(0,-342){\hbondb}% bond between 3a and 7a - \put(0,-342){\hbondf}% bond between 4 and 5 - \put(0,-342){\hbondd}% bond between 6 and 7 -}% -\else \if\member l\relax% -\else \if\member a\relax% - \put(0,0){\hbondc}% bond between 3 and 4 -\else \if\member b\relax% - \put(0,0){\hbondb}% bond between 2 and 3 -\else \if\member c\relax% - \put(0,0){\hbondvert}% bond between 3 and 3a -\else \if\member d\relax% -{\let\aaa=\hhh \let\bbb=\jjj% - \put(0,-342){\hbonda}% bond between 4 and 3a -}% -\else \if\member e\relax% -{\let\aaa=\hhh \let\fff=\ggg% - \put(0,-342){\hbondf}% bond between 4 and 5 -}% -\else \if\member f\relax% -{\let\eee=\fff \let\fff=\ggg% - \put(0,-342){\hbonde}% bond between 5 and 6 -}% -\else \if\member g\relax% -{\let\ddd=\eee \let\eee=\fff% - \put(0,-342){\hbondd}% bond between 6 and 7 -}% -\else \if\member h\relax% -{\let\ccc=\iii \let\ddd=\eee% - \put(0,-342){\hbondc}% bond between 7 and 7a -}% -\else \if\member i\relax% -{\let\eee=\iii% - \put(0,0){\hbondd}% bond between 1 and 7a -}% -\else \if\member j\relax% -{\let\ccc=\iii\let\bbb=\jjj% - \put(0,-342){\hbondb}% bond between 7a and 3a -}% -\else \if\member J\relax% -{\let\eee=\iii\let\fff=\jjj% - \put(0,0){\hbonde}% bond between 7a and 3a -}% -\else \if\member B%left aromatic circle - \put(233,0){\circle{180}}% %circle (five-membered) -\else \if\member A%left aromatic circle - \put(203,-342){\circle{240}}% %circle (six-membered) -\else - \expandafter\twoCH@@R\member//% - \def\aax{3a} \def\aay{7a}% - \if\@@tmpa 1\relax% - \putratom{272}{-18}{\@@tmpb}% % right type - \else\if\@@tmpa 2\relax% - \putratom{233}{60}{\@@tmpb}% % right type - \else\if\@@tmpa 3\relax% - \putratom{120}{60}{\@@tmpb}% % right type - \else\if\@@tmpa 4\relax% - \putratom{68}{-360}{\@@tmpb}% % right type - \else\if\@@tmpa 5\relax% - \putratom{120}{-452}{\@@tmpb}% % right type - \else\if\@@tmpa 6\relax% - \putratom{233}{-452}{\@@tmpb}% % right type - \else\if\@@tmpa 7\relax% - \putratom{272}{-360}{\@@tmpb}% % right type - \else\if\@@tmpa 8\relax% - \putratom{120}{-110}{\@@tmpb}% % right type - \else\ifx\@@tmpa\aax\relax% - \putratom{120}{-110}{\@@tmpb}% % right type - \else\ifx\@@tmpa\aay\relax% - \putratom{233}{-110}{\@@tmpb}% % right type - \else\if\@@tmpa 9\relax% - \putratom{233}{-110}{\@@tmpb}% % right type - \else\if\@@tmpa 0\relax% - \putratom{196}{-30}{\@@tmpb}% % right type - \fi\fi\fi\fi\fi\fi\fi\fi\fi\fi\fi\fi% - \expandafter\twoCH@R\member//% - \set@fusion@nonah -\fi\fi\fi\fi\fi\fi\fi\fi\fi% -\fi\fi\fi\fi\fi\fi}% -\iniflag -\@tmpclipfalse -\put(0,0){\set@hetatom@sixh{#3}{5}{1}{5}{-1}% - \if@aclip \global\@acliptrue\fi - \if@bclip \global\@bcliptrue\fi - \if@cclip \global\@ccliptrue\fi -}% %substituents on 1 to 3 -\put(0,-342){\set@hetatom@sixh{#3}{11}{3}{7}{-1}% - \@gclipfalse \if@fclip \global\@gcliptrue \fi% - \@fclipfalse \if@eclip \global\@fcliptrue \fi% - \@eclipfalse \if@clip \global\@ecliptrue \fi% -}%substituents on 5 to 7 -\put(0,-342){\set@hetatom@sixh{#3}{-3}{0}{2}{0}% - \@aclipfalse \if@aclip \global\@hcliptrue \fi% -}%%substituent on 4 -\put(0,0){\set@vrtx@nonafuseh{#3}% - \@tmpclipfalse - \if@iclip \global\@tmpcliptrue \fi - \if@jclip \global\@icliptrue \fi - \if@tmpclip \global\@jcliptrue \fi -}% fused positions -\put(0,0){\setsixringh{#4}{5}{1}{5}{-1}}% %substituents on 1 to 3 -{\@clipfalse \if@eclip \@cliptrue \fi% %substituents on 5 to 7 - \@eclipfalse \if@fclip \@ecliptrue \fi% - \@fclipfalse \if@gclip \@fcliptrue \fi% -\put(0,-342){\setsixringh{#4}{11}{3}{7}{-1}}% -}% -{\@aclipfalse \if@hclip \@acliptrue \fi% %substituent on 4 -\put(0,-342){\setsixringh{#4}{-3}{0}{2}{0}}% -}% -{\@clipfusefalse \if@iclip \@clipfusetrue \fi% - \put(303,-171){\setatombond{#4}{-8}{4}}% %9 for 7a position -}% -{\@clipfusefalse \if@jclip \@clipfusetrue \fi% - \put(103,-171){\setatombond{#4}{-7}{10}}% %8 for 3a position -}% -\end{picture}\iniatom\iniflag}% %end of \nonaheteroh macro -\def\set@vrtx@nonafuseh#1{% -\@forsemicol\member:=#1\do{% -\ifx\member\empty\else -\expandafter\@m@mb@r\member;\relax% -\expandafter\twoch@r\@membera{}% -\ifcase\@tmpa\or\or - \or%%%%3 - \if\@tmpb a% - \global\@icliptrue% - \putlatom{135}{-211}{\@memberb}% % left type - \else\if\@tmpb h% - \XyMTeXWarning{Forbidden fused position `3a' or `8'}% - \else\if\@tmpb s% - \XyMTeXWarning{Forbidden fused position `3a' or `8'}% - \else\ifx\@tmpb\empty\relax - \else - \XyMTeXWarning{Forbidden fused position `3a' or `8'}% - \fi\fi\fi\fi - \or\or\or - \or%7 - \if\@tmpb a% - \global\@jcliptrue% - \putratom{273}{-211}{\@memberb}% % right type - \else\if\@tmpb h% - \XyMTeXWarning{Forbidden fused position `7a' or `9'}% - \else\if\@tmpb s% - \XyMTeXWarning{Forbidden fused position `7a' or `9'}% - \else\ifx\@tmpb\empty\relax - \else - \XyMTeXWarning{Forbidden fused position `7a' or `9'}% - \fi\fi\fi\fi -\or%8 (= 3a) - \ifx\@tmpb\empty% - \global\@icliptrue% - \putlatom{135}{-211}{\@memberb}% % left type - \else - \XyMTeXWarning{Forbidden fused position `3a' or `8'}% - \fi -\or%9 (= 7a) - \ifx\@tmpb\empty% - \global\@jcliptrue% - \putratom{273}{-211}{\@memberb}% % right type - \else - \XyMTeXWarning{Forbidden fused position `7a' or `9'}% - \fi -\fi\fi}% -}% end of the macro \set@vrtx@nonafuseh -\def\nonaheterohi{\@ifnextchar({\@nona@heterohi(@}{\@nona@heterohi(@)}} -\def\@nona@heterohi(#1){\@ifnextchar[{\@nona@@heterohi(#1)[@}% -{\@nona@@heterohi(#1)[@]}} -\def\@nona@@heterohi(#1)[#2]#3#4{\@ifnextchar[% -{\@nonaheterohi(#1)[#2]{#3}{#4}[@}% -{\@nonaheterohi(#1)[#2]{#3}{#4}[@]}} -\def\@nonaheterohi(#1)[#2]#3#4[#5]{% -\iniflag\iniatom%initialize -\test@vertix@nonavi{#3}% -\@reset@ylsw% -\ylpositionh{#4}{0}{0}{4}{0}% %substituents on 1 to 3 -\if@ylsw \ifx\@@ylii\empty -\def\@@ylii{0}\def\@@yli{0}\fi -\else -{\let\ddd=\eee\let\eee=\fff\let\fff=\ggg -\ylpositionh{#4}{0}{3}{7}{0}%%substituents on 4 to 6 -}% -\fi -\if@ylsw \ifx\@@ylii\empty -\def\@@ylii{0}\def\@@yli{342}\fi -\else -{\let\aaa=\hhh -\ylpositionh{#4}{-6}{0}{2}{0}%%substituent on 7 -}% -\fi -\if@ylsw \ifx\@@ylii\empty -\def\@@ylii{0}\def\@@yli{342}\fi -\else -{% -\clipdetection% -\@clipfusefalse \if@iclip \@clipfusetrue \fi% -\ylatombondposition{#4}{-7}{4}% %8 for 3a position -}% -\fi -\if@ylsw \ifx\@@ylii\empty -\def\@@ylii{-303}\def\@@yli{171}\fi -\else -{% -\clipdetection% -\@clipfusefalse \if@jclip \@clipfusetrue \fi% -\ylatombondposition{#4}{-8}{10}%%9 for 7a position -}% -\fi -\if@ylsw \ifx\@@ylii\empty -\def\@@ylii{-103}\def\@@yli{171}\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}(1200,1200)(-400,-800)% - \iforigpt \put(-\shiftii,-\shiftiii){\circle*{50}}% - \put(-\noshift,-\noshift){\circle{50}}% - \typeout{command `nonaheterohi' origin: % - (\the\noshift,\the\noshift) ---> (\the\shiftii,\the\shiftiii)}\fi% -\fi -\begingroup -\resetbdsw% -\@bond@@omit{#5}% -{\let\fff=\jjj \let\eee=\iii% -\set@skel@bondh{#1}{a}{a}% bond between 1 and 2 \@aaa -> \hskbonda etc -\set@skel@bondh{#1}{b}{b}% bond between 2 and 3 \@bbb -> \hskbondb etc -\set@skel@longbond{#1}{c}{hskbondverti}% - % bond between 3 and 3a \@ccc -> \hskbondverti etc -\set@skel@bondh{#1}{j}{e}% bond between 3a and 7a \@jjj -> \hskbonde etc -\set@skel@bondh{#1}{i}{f}% bond between 7a and 1 \@iii -> \hskbondf etc -}% -{\let\aaa=\hhh \let\ddd=\eee\let\eee=\fff\let\fff=\ggg% - \let\ccc=\iii\let\bbb=\jjj% -\put(0,-342){\set@skel@bondh{#1}{h}{a}}% - % bond between 7a and 7 \@hhh -> \hskbonda etc -\put(0,-342){\set@skel@bondh{#1}{d}{c}}% - % bond between 3a and 4 \@ddd -> \hskbondc etc -\put(0,-342){\set@skel@bondh{#1}{e}{d}}% - % bond between 4 and 5 \@eee -> \hskbondd etc -\put(0,-342){\set@skel@bondh{#1}{f}{e}}% - % bond between 5 and 6 \@fff -> \hskbonde etc -\put(0,-342){\set@skel@bondh{#1}{g}{f}}% - % bond between 6 and 7 \@ggg -> \hskbondf etc -}% -\endgroup -\@tfor\member:=#2\do{% -\if\member r\relax% -{\let\aaa=\hhh \let\ddd=\eee\let\eee=\fff\let\fff=\ggg% - \let\ccc=\iii\let\bbb=\jjj% - \put(0,-342){\hbondb}% bond between 3a and 7a - \put(0,-342){\hbondf}% bond between 6 and 7 - \put(0,-342){\hbondd}% bond between 4 and 5 -}% -\else \if\member l\relax% -\else \if\member a\relax% - \put(0,0){\hbonda}% bond between 1 and 2 -\else \if\member b\relax% - \put(0,0){\hbondb}% bond between 2 and 3 -\else \if\member c\relax% - \put(0,0){\hbondverti}% bond between 3 and 3a -\else \if\member d\relax% -{\let\ccc=\iii \let\ddd=\eee% - \put(0,-342){\hbondc}% bond between 4 and 3a -}% -\else \if\member e\relax% -{\let\ddd=\eee\let\eee=\fff% - \put(0,-342){\hbondd}% bond between 4 and 5 -}% -\else \if\member f\relax% -{\let\eee=\fff \let\fff=\ggg% - \put(0,-342){\hbonde}% bond between 5 and 6 -}% -\else \if\member g\relax% -{\let\aaa=\hhh \let\fff=\ggg% - \put(0,-342){\hbondf}% bond between 7 and 6 -}% -\else \if\member h\relax% -{\let\aaa=\hhh \let\bbb=\jjj% - \put(0,-342){\hbonda}% bond between 7 and 7a -}% -\else \if\member i\relax% -{\let\fff=\jjj% - \put(0,0){\hbondf}% bond between 1 and 7a -}% -\else \if\member j\relax% -{\let\ccc=\iii\let\bbb=\jjj% - \put(0,-342){\hbondb}% bond between 7a and 3a -}% -\else \if\member J\relax% -{\let\eee=\iii\let\fff=\jjj% - \put(0,0){\hbonde}% bond between 7a and 3a -}% -\else \if\member B%aromatic circle - \put(173,0){\circle{180}}% %circle (five-membered) -\else \if\member A%aromatic circle - \put(203,-342){\circle{240}}% %circle (six-membered) -\else - \expandafter\twoCH@@R\member//% - \def\aax{7a} \def\aay{3a}% - \if\@@tmpa 1\relax% - \putratom{68}{-18}{\@@tmpb}% % right type - \else\if\@@tmpa 3\relax% - \putratom{233}{60}{\@@tmpb}% % right type - \else\if\@@tmpa 2\relax% - \putratom{120}{60}{\@@tmpb}% % right type - \else\if\@@tmpa 7\relax% - \putratom{68}{-360}{\@@tmpb}% % right type - \else\if\@@tmpa 6\relax% - \putratom{120}{-452}{\@@tmpb}% % right type - \else\if\@@tmpa 5\relax% - \putratom{233}{-452}{\@@tmpb}% % right type - \else\if\@@tmpa 4\relax% - \putratom{272}{-360}{\@@tmpb}% % right type - \else\if\@@tmpa 9\relax% - \putratom{120}{-110}{\@@tmpb}% % right type - \else\ifx\@@tmpa\aax\relax% - \putratom{120}{-110}{\@@tmpb}% % right type - \else\ifx\@@tmpa\aay\relax% - \putratom{233}{-110}{\@@tmpb}% % right type - \else\if\@@tmpa 8\relax% - \putratom{233}{-110}{\@@tmpb}% % right type - \else\if\@@tmpa 0\relax% - \putratom{140}{-30}{\@@tmpb}% % right type - \fi\fi\fi\fi\fi\fi\fi\fi\fi\fi\fi\fi% - \expandafter\twoCH@R\member//% - \set@fusion@nonahi -\fi\fi\fi\fi\fi\fi\fi\fi\fi% -\fi\fi\fi\fi\fi\fi}% -\iniflag -\put(0,0){\set@hetatom@sixh{#3}{0}{0}{4}{0}% - \if@aclip \global\@acliptrue\fi - \if@bclip \global\@bcliptrue\fi - \if@cclip \global\@ccliptrue\fi -}% %substituents on 1 to 3 -\put(0,-342){\set@hetatom@sixh{#3}{0}{3}{7}{0}% - \@gclipfalse \if@fclip \global\@gcliptrue \fi% - \@fclipfalse \if@eclip \global\@fcliptrue \fi% - \@eclipfalse \if@clip \global\@ecliptrue \fi}%substituents on 4 to 6 -\put(0,-342){\set@hetatom@sixh{#3}{-6}{0}{2}{0}% - \@hclipfalse \if@aclip \global\@hcliptrue \fi}%%substituent on 7 -\put(0,0){\set@vrtx@nonafusehi{#3}% - \if@iclip \global\@icliptrue \fi - \if@jclip \global\@jcliptrue \fi}% fused positions -\put(0,0){\setsixringh{#4}{0}{0}{4}{0}}% %substituents on 1 to 3 -{\@clipfalse \if@eclip \@cliptrue \fi% %substituents on 4 to 6 - \@eclipfalse \if@fclip \@ecliptrue \fi% - \@fclipfalse \if@gclip \@fcliptrue \fi% -\put(0,-342){\setsixringh{#4}{0}{3}{7}{0}}% -}% -{\@aclipfalse \if@hclip \@acliptrue \fi% %substituent on 7 -\put(0,-342){\setsixringh{#4}{-6}{0}{2}{0}}% -}% -{\@clipfusefalse \if@iclip \@clipfusetrue \fi% - \put(303,-171){\setatombond{#4}{-7}{4}}% %8 for 3a position -}% -{\@clipfusefalse \if@jclip \@clipfusetrue \fi% - \put(103,-171){\setatombond{#4}{-8}{10}}%%9 for 7a position -}% -\end{picture}\iniatom\iniflag}% %end of \nonaheterohi macro -\def\set@vrtx@nonafusehi#1{% -\@forsemicol\member:=#1\do{% -\ifx\member\empty\else -\expandafter\@m@mb@r\member;\relax% -\expandafter\twoCH@R\@membera//% -\ifcase\@tmpa% - \or - \or - \or%%%%3 - \if\@tmpb a% - \global\@icliptrue% - \putratom{273}{-211}{\@memberb}% % right type - \else\relax - \fi - \or%4 - \or%5 - \or%6 - \or%7 - \if\@tmpb a% - \global\@jcliptrue% - \putlatom{135}{-211}{\@memberb}% % left type - \else\relax - \fi -\or%8 (= 3a) - \ifx\@tmpb\empty - \global\@icliptrue% - \putratom{273}{-211}{\@memberb}% % right type - \else - \XyMTeXWarning{Forbidden spiro ring for the 3a position}% - \fi -\or%9 (= 7a) - \ifx\@tmpb\empty - \global\@jcliptrue% - \putlatom{135}{-211}{\@memberb}% % left type - \else - \XyMTeXWarning{Forbidden spiro ring for the 7a position}% - \fi -\fi\fi}% -}% end of the macro \set@vrtx@nonafusehi -\def\purineh{\@ifnextchar[{\@purineh[@}{\@purineh[ra]}}% -\def\@purineh[#1]#2{% -\iforigpt \typeout{command `purineh' % - is based on `nonaheteroh'.}\fi% -\nonaheteroh[#1]{1==N;3==N;5==N;7==N}{#2}}% -\def\purinehi{\@ifnextchar[{\@purinehi[@}{\@purinehi[ra]}}% -\def\@purinehi[#1]#2{% -\iforigpt \typeout{command `purinehi' % - is based on `nonaheterohi'.}\fi% -\nonaheterohi[#1]{1==N;3==N;5==N;7==N}{#2}}% -\def\indoleh{\@ifnextchar[{\@indoleh[@}{\@indoleh[rb]}}% -\def\@indoleh[#1]#2{% -\iforigpt \typeout{command `indoleh' % - is based on `nonaheteroh'.}\fi% -\nonaheteroh[#1]{1==N}{#2}}% -\def\indolehi{\@ifnextchar[{\@indolehi[@}{\@indolehi[rb]}}% -\def\@indolehi[#1]#2{% -\iforigpt \typeout{command `indolehi' % - is based on `nonaheterohi'.}\fi% -\nonaheterohi[#1]{1==N}{#2}}% -\def\indolizineh{% - \@ifnextchar[{\@indolizineh[@}{\@indolizineh[aceg]}}% -\def\@indolizineh[#1]#2{% -\iforigpt \typeout{command `indolizineh' % - is based on `nonaheteroh'.}\fi% -\nonaheteroh[#1]{7a==N}{#2}}% -\def\indolizinehi{% - \@ifnextchar[{\@indolizinehi[@}{\@indolizinehi[aceg]}}% -\def\@indolizinehi[#1]#2{% -\iforigpt \typeout{command `indolizinehi' % - is based on `nonaheterohi'.}\fi% -\nonaheterohi[#1]{7a==N}{#2}}% -\def\isoindoleh{% - \@ifnextchar[{\@isoindoleh[@}{\@isoindoleh[cegi]}}% -\def\@isoindoleh[#1]#2{% -\iforigpt \typeout{command `isoindoleh' % - is based on `nonaheteroh'.}\fi% -\nonaheteroh[#1]{2==N}{#2}}% -\def\isoindolehi{% - \@ifnextchar[{\@isoindolehi[@}{\@isoindolehi[cegi]}}% -\def\@isoindolehi[#1]#2{% -\iforigpt \typeout{command `isoindolehi' % - is based on `nonaheterohi'.}\fi% -\nonaheterohi[#1]{2==N}{#2}}% -\def\benzofuraneh{% - \@ifnextchar[{\@benzofuraneh[@}{\@benzofuraneh[rb]}}% -\def\@benzofuraneh[#1]#2{% -\iforigpt \typeout{command `benzofuraneh' % - is based on `nonaheteroh'.}\fi% -\nonaheteroh[#1]{1==O}{#2}}% -\def\benzofuranehi{% - \@ifnextchar[{\@benzofuranehi[@}{\@benzofuranehi[rb]}}% -\def\@benzofuranehi[#1]#2{% -\iforigpt \typeout{command `benzofuranehi' % - is based on `nonaheterohi'.}\fi% -\nonaheterohi[#1]{1==O}{#2}}% -\def\isobenzofuraneh{\@ifnextchar[{\@isobenzofuraneh[@}% - {\@isobenzofuraneh[cegi]}}% -\def\@isobenzofuraneh[#1]#2{% -\iforigpt \typeout{command `isobenzofuraneh' % - is based on `nonaheteroh'.}\fi% -\nonaheteroh[#1]{2==O}{#2}}% -\def\isobenzofuranehi{\@ifnextchar[{\@isobenzofuranehi[@}% - {\@isobenzofuranehi[cegi]}}% -\def\@isobenzofuranehi[#1]#2{% -\iforigpt \typeout{command `isobenzofuranehi' % - is based on `nonaheterohi'.}\fi% -\nonaheterohi[#1]{2==O}{#2}}% -\def\benzoxazoleh{% - \@ifnextchar[{\@benzoxazoleh[@}{\@benzoxazoleh[rb]}}% -\def\@benzoxazoleh[#1]#2{% -\iforigpt \typeout{command `benzoxazoleh' % - is based on `nonaheteroh'.}\fi% -\nonaheteroh[#1]{1==O;3==N}{#2}}% -\def\benzoxazolehi{% - \@ifnextchar[{\@benzoxazolehi[@}{\@benzoxazolehi[rb]}}% -\def\@benzoxazolehi[#1]#2{% -\iforigpt \typeout{command `benzoxazolehi' % - is based on `nonaheterohi'.}\fi% -\nonaheterohi[#1]{1==O;3==N}{#2}}% -\def\sixunith{\@ifnextchar[{\@sixunith[@}{\@sixunith[@]}} -\def\@sixunith[#1]#2#3#4{\sixheteroh[#1]{#2}{#3}[#4]} -\def\fiveunith{\@ifnextchar[{\@fiveunith[@}{\@fiveunith[r]}} -\def\@fiveunith[#1]#2#3#4{\fiveheteroh[#1]{#2}{#3}[#4]} -\def\fiveunithi{\@ifnextchar[{\@fiveunithi[@}{\@fiveunithi[r]}} -\def\@fiveunithi[#1]#2#3#4{\fiveheterohi[#1]{#2}{#3}[#4]} - -\def\threeheteroh{\@ifnextchar({\@three@heteroh(@}{\@three@heteroh(@)}} -\def\@three@heteroh(#1){\@ifnextchar[{\@three@@heteroh(#1)[@}% -{\@three@@heteroh(#1)[@]}} -\def\@three@@heteroh(#1)[#2]#3#4{\@ifnextchar[% -{\@threeheteroh(#1)[#2]{#3}{#4}[@}% -{\@threeheteroh(#1)[#2]{#3}{#4}[@]}} -\def\@threeheteroh(#1)[#2]#3#4[#5]{% -\iniatom\iniflag%initialize -\test@vertix@sixv{#3}{d}{f}{b}{@}{@}{@}%tentative use for six-h -\@reset@ylsw% -\ylpositionh{#4}{3}{3}{5}{0}%subst 1 -\if@ylsw \ifx\@@ylii\empty -\def\@@ylii{235}\def\@@yli{-103}\fi -\else -\ylpositionh{#4}{-1}{1}{3}{0}%subst 3 -\fi -\if@ylsw \ifx\@@ylii\empty -\def\@@ylii{103}\def\@@yli{-29}\fi -\else -\ylpositionh{#4}{4}{5}{7}{0}%subst 2 -\fi -\if@ylsw \ifx\@@ylii\empty -\def\@@ylii{103}\def\@@yli{-171}\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}(580,700)(-200,-240)% - \iforigpt \put(-200,-240){\circle*{50}}% - \put(0,0){\circle{50}}% - \typeout{command `threeheteroh' origin: % - (0,0) ---> (200,240)}\fi% -\fi -\iniatom\iniflag%initialize -\test@vertix@sixv{#3}{c}{e}{a}{@}{@}{@}% -\test@vertix@sixv{#3}{b}{d}{f}{@}{@}{@}% -{\resetbdsw% -\@bond@@omit{#5}% -\put(0,0){\set@skel@bond{#1}{a}{c}}% - % bond between 1 and 2 \@aaa -> \skbondc etc -\put(171,-103){\set@skel@bond{#1}{b}{e}}% - % bond between 2 and 3 \@bbb -> \skbonde etc -\put(0,-200){\set@skel@bond{#1}{c}{a}}% - % bond between 3 and 1 \@ccc -> \skbonda etc -}% -\@tfor\member:=#2\do{% -\if\member r\relax% -\else\if\member a\relax\put(0,0){\bondc}% -\else\if\member b\relax\put(171,-103){\bonde}% -\else\if\member c\relax\put(0,-200){\bonda}% -\else\if\member A\relax% aromatic circle - \put(70,103){\circle{100}}% %circle -\else - \expandafter\twoCH@@R\member//% - \set@fusionadd@threeh -\fi\fi\fi\fi\fi% -}% -\iniflag -\put(-215,103){\set@hetatom@sixh{#3}{3}{3}{5}{0}% -\if@clip \global\@cliptrue\fi}%subst 1 <--six h 4 -\put(-103,29){\set@hetatom@sixh{#3}{-1}{1}{3}{0}% -\if@bclip \global\@bcliptrue\fi}%subst 3 <--six h 2 -\put(-103,171){\set@hetatom@sixh{#3}{4}{5}{7}{0}% -\if@fclip \global\@fcliptrue\fi}%subst 2 <--six h 6 -\put(-235,103){\setsixringh{#4}{3}{3}{5}{0}}%subst 1 -\put(-103,29){\setsixringh{#4}{-1}{1}{3}{0}}%subst 3 -\put(-103,171){\setsixringh{#4}{4}{5}{7}{0}}%subst 2 -\end{picture}% -\iniatom\iniflag}% %end of \threeheteroh macro -\def\set@fusionadd@threeh{% - \if\@@tmpa 0\relax% - \putratom{35}{85}{\scriptsize\@@tmpb}% % right type - \else\if\@@tmpa 1\relax% - \putratom{80}{85}{\scriptsize\@@tmpb}% % right type - \else\if\@@tmpa 2\relax% - \putratom{15}{50}{\scriptsize\@@tmpb}% % right type - \else\if\@@tmpa 3\relax% - \putratom{15}{120}{\scriptsize\@@tmpb}% % right type - \else\if\@@tmpa 4\relax% - \putratom{180}{130}{\scriptsize\@@tmpb}% % right type - \else\if\@@tmpa 5\relax% - \putratom{20}{-60}{\scriptsize\@@tmpb}% % right type - \else\if\@@tmpa 6\relax% - \putratom{20}{230}{\scriptsize\@@tmpb}% % right type - \else - \set@fusion@threeh - \fi\fi\fi\fi\fi\fi\fi% -}% -\def\set@fusion@threeh{% -\if\@@tmpa b\relax% - \putlratom{0}{0}{\@@tmpb}% % bond fused - \FuseWarning{0}{-200}% - {\fuseAx}{\fuseAy}{\fuseBx}{\fuseBy}{b}% - \else\if\@@tmpa B\relax% - \putlratom{0}{200}{\@@tmpb}% % bond fused - \FuseWarning{0}{200}% - {\fuseAx}{\fuseAy}{\fuseBx}{\fuseBy}{B}% - \else\if\@@tmpa a\relax% - \putlratom{171}{103}{\@@tmpb}% % bond fused - \FuseWarning{171}{103}% - {\fuseAx}{\fuseAy}{\fuseBx}{\fuseBy}{a}% - \else\if\@@tmpa A\relax% - \putlratom{0}{0}{\@@tmpb}% % bond fused - \FuseWarning{-171}{-103}% - {\fuseAx}{\fuseAy}{\fuseBx}{\fuseBy}{A}% - \else\if\@@tmpa c\relax% - \putlratom{0}{200}{\@@tmpb}% % bond fused - \FuseWarning{-171}{103}% - {\fuseAx}{\fuseAy}{\fuseBx}{\fuseBy}{c}% - \else\if\@@tmpa C\relax% - \putlratom{171}{103}{\@@tmpb}% % bond fused - \FuseWarning{171}{-103}% - {\fuseAx}{\fuseAy}{\fuseBx}{\fuseBy}{C}% -\fi\fi\fi\fi\fi\fi% -}% end of the macro \set@fusion@threeh -\def\threeheterohi{\@ifnextchar({\@three@heterohi(@}{\@three@heterohi(@)}} -\def\@three@heterohi(#1){\@ifnextchar[{\@three@@heterohi(#1)[@}% -{\@three@@heterohi(#1)[@]}} -\def\@three@@heterohi(#1)[#2]#3#4{\@ifnextchar[% -{\@threeheterohi(#1)[#2]{#3}{#4}[@}% -{\@threeheterohi(#1)[#2]{#3}{#4}[@]}} -\def\@threeheterohi(#1)[#2]#3#4[#5]{% -\iniatom\iniflag%initialize -\test@vertix@sixv{#3}{a}{e}{c}{@}{@}{@}%tentative use for six-h -\@reset@ylsw% -\ylpositionh{#4}{0}{0}{2}{0}%subst 1 -\if@ylsw \ifx\@@ylii\empty -\def\@@ylii{171}\def\@@yli{-103}\fi -\else -\ylpositionh{#4}{0}{2}{4}{0}%subst 3 -\fi -\if@ylsw \ifx\@@ylii\empty -\def\@@ylii{303}\def\@@yli{-29}\fi -\else -\ylpositionh{#4}{3}{4}{6}{0}%subst 2 -\fi -\if@ylsw \ifx\@@ylii\empty -\def\@@ylii{303}\def\@@yli{-171}\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}(580,700)(-400,-240)% - \iforigpt \put(-400,-240){\circle*{50}}% - \put(0,0){\circle{50}}% - \typeout{command `threeheterohi' origin: % - (0,0) ---> (400,240)}\fi% -\fi -\iniatom\iniflag%initialize -\test@vertix@sixv{#3}{e}{c}{a}{@}{@}{@}% -\test@vertix@sixv{#3}{f}{d}{b}{@}{@}{@}% -{\resetbdsw% -\@bond@@omit{#5}% -\put(0,0){\set@skel@bond{#1}{a}{d}}% - % bond between 1 and 2 \@aaa -> \skbondd etc -\put(-171,-103){\set@skel@bond{#1}{b}{b}}% - % bond between 2 and 3 \@bbb -> \skbondb etc -\put(0,-200){\set@skel@bond{#1}{c}{f}}% - % bond between 3 and 1 \@ccc -> \skbondf etc -}% -\@tfor\member:=#2\do{% -\if\member r\relax% -\else\if\member a\relax\put(0,0){\bondd}% -\else\if\member b\relax\put(-171,-103){\bondb}% -\else\if\member c\relax\put(0,-200){\bondf}% -\else\if\member A\relax% aromatic circle - \put(70,103){\circle{100}}% %circle -\else - \expandafter\twoCH@@R\member//% - \set@fusionadd@threehi -\fi\fi\fi\fi\fi% -}% -\iniflag -\put(-171,103){\set@hetatom@sixh{#3}{0}{0}{2}{0}% -\if@aclip \global\@acliptrue\fi}%subst 1 <--six h 1 -\put(-303,29){\set@hetatom@sixh{#3}{0}{2}{4}{0}% -\if@cclip \global\@ccliptrue\fi}%subst 3 <--six h 3 -\put(-303,171){\set@hetatom@sixh{#3}{3}{4}{6}{0}% -\if@eclip \global\@ecliptrue\fi}%subst 2 <--six h 5 -\put(-171,103){\setsixringh{#4}{0}{0}{2}{0}}%subst 1 -\put(-303,29){\setsixringh{#4}{0}{2}{4}{0}}%subst 3 -\put(-303,171){\setsixringh{#4}{3}{4}{6}{0}}%subst 2 -\end{picture}% -\iniatom\iniflag}% %end of \threeheterohi macro -\def\set@fusionadd@threehi{% - \if\@@tmpa 0\relax% - \putlatom{-35}{85}{\scriptsize\@@tmpb}% % left type - \else\if\@@tmpa 1\relax% - \putlatom{-80}{85}{\scriptsize\@@tmpb}% % left type - \else\if\@@tmpa 2\relax% - \putlatom{-15}{50}{\scriptsize\@@tmpb}% % left type - \else\if\@@tmpa 3\relax% - \putlatom{-15}{120}{\scriptsize\@@tmpb}% % left type - \else\if\@@tmpa 4\relax% - \putlatom{-180}{130}{\scriptsize\@@tmpb}% % left type - \else\if\@@tmpa 5\relax% - \putlatom{-20}{-60}{\scriptsize\@@tmpb}% % left type - \else\if\@@tmpa 6\relax% - \putlatom{-20}{230}{\scriptsize\@@tmpb}% % left type - \else - \set@fusion@threehi - \fi\fi\fi\fi\fi\fi\fi% -}% -\def\set@fusion@threehi{% -\if\@@tmpa b\relax% - \putlratom{0}{0}{\@@tmpb}% % bond fused - \FuseWarning{0}{-200}% - {\fuseAx}{\fuseAy}{\fuseBx}{\fuseBy}{b}% - \else\if\@@tmpa B\relax% - \putlratom{0}{200}{\@@tmpb}% % bond fused - \FuseWarning{0}{200}% - {\fuseAx}{\fuseAy}{\fuseBx}{\fuseBy}{B}% - \else\if\@@tmpa a\relax% - \putlratom{-171}{103}{\@@tmpb}% % bond fused - \FuseWarning{-171}{103}% - {\fuseAx}{\fuseAy}{\fuseBx}{\fuseBy}{a}% - \else\if\@@tmpa A\relax% - \putlratom{0}{0}{\@@tmpb}% % bond fused - \FuseWarning{171}{-103}% - {\fuseAx}{\fuseAy}{\fuseBx}{\fuseBy}{A}% - \else\if\@@tmpa c\relax% - \putlratom{0}{200}{\@@tmpb}% % bond fused - \FuseWarning{171}{103}% - {\fuseAx}{\fuseAy}{\fuseBx}{\fuseBy}{c}% - \else\if\@@tmpa C\relax% - \putlratom{-171}{103}{\@@tmpb}% % bond fused - \FuseWarning{-171}{-103}% - {\fuseAx}{\fuseAy}{\fuseBx}{\fuseBy}{C}% -\fi\fi\fi\fi\fi\fi% -}% end of the macro \set@fusion@threehi -\endinput -%% -%% End of file `hetaromh.sty'. diff --git a/Master/texmf-dist/tex/latex/xymtex/locant.sty b/Master/texmf-dist/tex/latex/xymtex/locant.sty deleted file mode 100644 index 211de7b8eed..00000000000 --- a/Master/texmf-dist/tex/latex/xymtex/locant.sty +++ /dev/null @@ -1,107 +0,0 @@ -%% -%% This is file `locant.sty', -%% generated with the docstrip utility. -%% -%% The original source files were: -%% -%% locant.dtx (with options: `locant') -%% -%% This is a generated file. -%% -%% Copyright 1996 by Shinsaku Fujita -%% -%% This file is part of the XyMTeX system. -%% ======================================= -%% -%% Released on August 16, 1996 -%% -%% Copyright (C) 1996 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: locant.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 1.01} -\typeout{ -- Released August 16, 1996 by Shinsaku Fujita} -\def\j@urnalname{locant} -\def\versi@ndate{August 16, 1996} -\def\versi@nno{ver1.01} -\def\copyrighth@lder{SF} % Shinsaku Fujita -\typeout{XyMTeX Macro File `\j@urnalname' (\versi@nno) <\versi@ndate>% -\space[\copyrighth@lder]} -\def\bdloocant#1#2#3#4#5#6{% -\begin{picture}(800,880)(-\shiftii,-\shifti) -\putratom{90}{360}{#1}% -\putratom{200}{180}{#2}% -\putratom{90}{-20}{#3}% -\putlatom{-90}{360}{#6}% -\putlatom{-200}{180}{#5}% -\putlatom{-90}{-20}{#4}% -\end{picture}}% -\def\bdlocant{\bdloocant{a}{b}{c}{d}{e}{f}} -\def\sxloocant#1#2#3#4#5#6{% -\begin{picture}(800,880)(-\shiftii,-\shifti)% -\putratom{-10}{340}{\scriptsize #1}% -\putlatom{150}{260}{\scriptsize #2}% -\putlatom{150}{110}{\scriptsize #3}% -\putratom{-10}{40}{\scriptsize #4}% -\putratom{-150}{110}{\scriptsize #5}% -\putratom{-150}{260}{\scriptsize #6}% -\end{picture}}% -\def\sxlocant{\sxloocant{1}{2}{3}{4}{5}{6}} -\def\bdloocnth#1#2#3#4#5#6{% -\begin{picture}(880,800)(-\shifti,-\shiftii)% -\putlatom{10}{80}{#1}% -\putratom{180}{210}{#2}% -\putratom{380}{80}{#3}% -\putratom{380}{-120}{#4}% -\putratom{180}{-260}{#5}% -\putlatom{10}{-120}{#6}% -\end{picture}}% -\def\bdlocnth{\bdloocnth{a}{b}{c}{d}{e}{f}} -\def\sxloocnth#1#2#3#4#5#6{% -\begin{picture}(880,800)(-\shifti,-\shiftii)% -\putratom{40}{-20}{\scriptsize #1}% -\putratom{110}{100}{\scriptsize #2}% -\putlatom{290}{100}{\scriptsize #3}% -\putlatom{380}{-20}{\scriptsize #4}% -\putratom{110}{-140}{\scriptsize #6}% -\putlatom{290}{-140}{\scriptsize #5}% -\end{picture}}% -\def\sxlocnth{\sxloocnth{1}{2}{3}{4}{5}{6}} -\endinput -%% -%% End of file `locant.sty'. diff --git a/Master/texmf-dist/tex/latex/xymtex/lowcycle.sty b/Master/texmf-dist/tex/latex/xymtex/lowcycle.sty deleted file mode 100644 index 245a88800be..00000000000 --- a/Master/texmf-dist/tex/latex/xymtex/lowcycle.sty +++ /dev/null @@ -1,141 +0,0 @@ -%% -%% This is file `lowcycle.sty', -%% generated with the docstrip utility. -%% -%% The original source files were: -%% -%% lowcycle.dtx (with options: `lowcycle') -%% -%% This is a generated file. -%% -%% Copyright 1996,1998 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, 1996 (private version) -%% Version 2.00 Released on December 25, 1998 -%% -%% Copyright (C) 1996, 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: lowcycle.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{lowcycle} -\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{threehetero}{\input hetarom.sty\relax}{} -\@ifundefined{sixheteroh}{\input hetaromh.sty\relax}{} -\unitlength=0.1pt -\def\cyclopentanev{\@ifnextchar[{\@cyclopentanev[@}{\@cyclopentanev[]}} -\def\@cyclopentanev[#1]#2{% -\iforigpt \typeout{command `cyclopentanev' % - is based on `fiveheterov'.}\fi% -\fiveheterov[#1]{}{#2}} -\def\cyclopentanevi{\@ifnextchar[{\@cyclopentanevi[@}{\@cyclopentanevi[]}} -\def\@cyclopentanevi[#1]#2{% -\iforigpt \typeout{command `cyclopentanevi' % - is based on `fiveheterovi'.}\fi% -\fiveheterovi[#1]{}{#2}} -\def\cyclopentaneh{\@ifnextchar[{\@cyclopentaneh[@}{\@cyclopentaneh[]}} -\def\@cyclopentaneh[#1]#2{% -\iforigpt \typeout{command `cyclophentaneh' % - is based on `fiveheteroh'.}\fi% -\fiveheteroh[#1]{}{#2}} -\def\cyclopentanehi{% - \@ifnextchar[{\@cyclopentanehi[@}{\@cyclopentanehi[]}} -\def\@cyclopentanehi[#1]#2{% -\iforigpt \typeout{command `cyclopentanehi' % - is based on `fiveheterohi'.}\fi% -\fiveheterohi[#1]{}{#2}} -\def\indanev{\@ifnextchar[{\@indanev[@}{\@indanev[rb]}} -\def\@indanev[#1]#2{% -\iforigpt \typeout{command `indanev' % - is based on `nonaheterov'.}\fi% -\nonaheterov[#1]{}{#2}} -\def\indanevi{\@ifnextchar[{\@indanevi[@}{\@indanevi[rb]}} -\def\@indanevi[#1]#2{% -\iforigpt \typeout{command `indanevi' % - is based on `nonaheterovi'.}\fi% -\nonaheterovi[#1]{}{#2}} -\def\indaneh{\@ifnextchar[{\@indaneh[@}{\@indaneh[rb]}} -\def\@indaneh[#1]#2{% -\iforigpt \typeout{command `indaneh' % - is based on `nonaheteroh'.}\fi% -\nonaheteroh[#1]{}{#2}} -\def\indanehi{\@ifnextchar[{\@indanehi[@}{\@indanehi[rb]}} -\def\@indanehi[#1]#2{% -\iforigpt \typeout{command `indanehi' % - is based on `nonaheterohi'.}\fi% -\nonaheterohi[#1]{}{#2}} -\def\cyclobutane{\@ifnextchar[{\@cyclobutane[@}{\@cyclobutane[]}} -\def\@cyclobutane[#1]#2{% -\iforigpt \typeout{command `cyclobutane' % - is based on `fourhetero'.}\fi% -\fourhetero[#1]{}{#2}} -\def\cyclopropane{\@ifnextchar[{\@cyclopropane[@}{\@cyclopropane[]}} -\def\@cyclopropane[#1]#2{% -\iforigpt \typeout{command `cyclopropane' % - is based on `threehetero'.}\fi% -\threehetero[#1]{}{#2}} -\let\cyclopropanev=\cyclopropane -\def\cyclopropanei{\@ifnextchar[{\@cyclopropanei[@}{\@cyclopropanei[]}} -\def\@cyclopropanei[#1]#2{% -\iforigpt \typeout{command `cyclopropanei' % - is based on `threeheteroi'.}\fi% -\threeheteroi[#1]{}{#2}} -\let\cyclopropanevi=\cyclopropanei -\def\cyclopropaneh{\@ifnextchar[{\@cyclopropaneh[@}{\@cyclopropaneh[]}} -\def\@cyclopropaneh[#1]#2{% -\iforigpt \typeout{command `cyclopropaneh' % - is based on `threeheteroh'.}\fi% -\threeheteroh[#1]{}{#2}} -\def\cyclopropanehi{\@ifnextchar[{\@cyclopropanehi[@}{\@cyclopropanehi[]}} -\def\@cyclopropanehi[#1]#2{% -\iforigpt \typeout{command `cyclopropanehi' % - is based on `threeheterohi'.}\fi% -\threeheterohi[#1]{}{#2}} -\endinput -%% -%% End of file `lowcycle.sty'. 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'. diff --git a/Master/texmf-dist/tex/latex/xymtex/polymers.sty b/Master/texmf-dist/tex/latex/xymtex/polymers.sty deleted file mode 100644 index 4a73e25db83..00000000000 --- a/Master/texmf-dist/tex/latex/xymtex/polymers.sty +++ /dev/null @@ -1,231 +0,0 @@ -%% -%% This is file `polymers.sty', -%% generated with the docstrip utility. -%% -%% The original source files were: -%% -%% polymers.dtx (with options: `polymers') -%% -%% This is a generated file. -%% -%% Copyright 1996,1998 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, 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: polymers.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{polymers} -\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}{} -\unitlength=0.1pt -\def\@forsemicol#1:=#2\do#3{% -%% \edef\@fortmp{#2}\ifx\@fortmp\@empty% - \expandafter\def\expandafter\@fortmp\expandafter{#2}% - \ifx\@fortmp\@empty% - \else% - \expandafter\@forl@@p#2;\@nil;\@nil\@@#1{#3}\fi} -\def\leftPMdelim#1{$\mathstrut #1$} -\def\leftpmdelim{\leftPMdelim{\biggm(}} -\def\rightPMdelim#1#2{% - $\mathstrut #1_{\mkern-5mu #2}$} -\def\rightpmdelim#1{\rightPMdelim{\biggm)}{#1}} -\def\leftPolymer#1#2{% -\begin{picture}(0,0)(0,0) -\putlatom{0}{0}{#2} -\putlatom{120}{0}{$#1$} -\end{picture}} -\def\leftpolymer#1{\leftPolymer{\biggm(}{#1}} -\def\rightPolymer#1#2#3{% -\begin{picture}(0,0)(0,0) -\putratom{0}{0}{#2} -\putratom{-150}{0}{% - $\mathstrut#1_{\mkern-2mu #3}$} -\end{picture}} -\def\rightpolymer#1#2{\rightPolymer{\biggm)}{#1}{#2}} -\def\leftsqrPolymer#1#2{% -\begin{picture}(0,0)(0,0) -\putlatom{0}{0}{#2} -\putlatom{120}{0}{$#1$} -\end{picture}} -\def\leftSqrpolymer#1{\leftsqrPolymer{\Biggm[}{#1}} -\def\rightsqrPolymer#1#2#3{% -\begin{picture}(0,0)(0,0) -\putratom{0}{0}{#2} -\putratom{-150}{0}{% - $\mathstrut #1_{#3}$} -\end{picture}} -\def\rightSqrpolymer#1#2{\rightsqrPolymer{\Biggm]}{#1}{#2}} -\def\lsqrdelimiter#1{% -\hbox{\vrule \@width\fboxrule -$\vcenter to#1{% -\hrule \@height\fboxrule \@width\fboxsep -\vfill -\hrule \@height\fboxrule \@width\fboxsep}$}} -\def\leftsqrpolymer#1{% - \leftsqrPolymer{\lsqrdelimiter{300\unitlength}}{#1}} -\def\rsqrdelimiter#1{% -\hbox{$\vcenter to#1{% -\hrule \@height\fboxrule \@width\fboxsep \vfill -\hrule \@height\fboxrule \@width\fboxsep}$\kern-\fboxrule -\vrule \@width\fboxrule\kern2pt}} -\def\rightsqrpolymer#1#2{% -\rightsqrPolymer{\rsqrdelimiter{300\unitlength}}{#1}{#2}} -\long\def\@sqrpolymer#1#2#3{% -\begingroup \fboxrule=#1 - \leavevmode\setbox\@tempboxa\hbox{#2}\@tempdima\fboxrule - \advance\@tempdima \fboxsep \advance\@tempdima \dp\@tempboxa - \@tempdimb=\wd\@tempboxa - \advance\@tempdimb by \fboxsep - \advance\@tempdimb by \fboxsep - \advance\@tempdimb by \fboxrule - \advance\@tempdimb by \fboxrule - \hbox{\lower \@tempdima\hbox - {\vbox{ - \hbox to\@tempdimb{% - \vrule \@height \fboxrule \@width\fboxsep\hfill - \vrule \@height \fboxrule \@width\fboxsep} - \nointerlineskip - \hbox{\vrule \@width \fboxrule \hskip\fboxsep - \vbox{\vskip\fboxsep \copy\@tempboxa\vskip\fboxsep}\hskip - \fboxsep\vrule \@width \fboxrule} - \nointerlineskip - \hbox to\@tempdimb{% - \vrule \@height \fboxrule \@width\fboxsep\hfill - \vrule \@height \fboxrule \@width\fboxsep}}}}% -\kern2pt\lower\@tempdima\hbox{\scriptsize$#3$}\endgroup} -\long\def\sqrpolymer#1#2{\@sqrpolymer{0.4pt}{#1}{#2}} -\long\def\Sqrpolymer#1#2{\@sqrpolymer{1pt}{#1}{#2}} -\long\def\mpolymer#1#2{% - \leavevmode\setbox\@tempboxa\hbox{#1}\@tempdima\fboxrule - \advance\@tempdima \fboxsep \advance\@tempdima \dp\@tempboxa - \hbox{\lower \@tempdima\hbox{\vbox{\hbox{\hskip\fboxsep% - $\left(\vcenter{\vskip\fboxsep \copy\@tempboxa\vskip\fboxsep}% - \right)_{#2}$}}}}} -\def\WestPbond{% -\begin{picture}(100,100)(0,0) -\put(-100,0){\Westbond} -\put(-60,0){\line(-1,0){90}} -\end{picture}} -\def\EastPbond{% -\begin{picture}(100,100)(0,0) -\put(100,0){\Eastbond} -\put(60,0){\line(1,0){90}} -\end{picture}} -\def\sbond{% -\begin{picture}(160,0)(0,0) -\put(0,33){\line(1,0){160}} -\end{picture}} -\newif\if@centbondsw \@centbondswfalse -\newif\if@centatswi \@centatswifalse -\newif\if@centatswii \@centatswiifalse -\def\polyethylene{\@ifnextchar[{\@polyethylene}{\@polyethylene[]}} -\def\@polyethylene[#1]#2#3{% - \begin{picture}(1100,600)(-400,-300)% - \iforigpt \put(-400,-300){\circle*{50}}% - \put(-\noshift,-\noshift){\circle{50}}% - \typeout{command `polyethylene' origin: % - (\the\noshift,\the\noshift) ---> (400,300)}\fi% -\def\@@@temp{#1} -\ifx\@@@temp\empty\else -\@tfor\member:=#1\do{% - \expandafter\twoch@@r\member{}{}% - \ifcase\@@tmpa - \or \relax \putratom{47}{50}{\scriptsize\@@tmpb}% - \or \relax \putratom{347}{50}{\scriptsize\@@tmpb}% -\fi}\fi -\@forsemicol\member:=#2\do{% -\ifx\member\empty\else -\expandafter\@m@mb@r\member;\relax% - \expandafter\threech@r\@membera{}{}% - \ifcase\@tmpa \global\@centbondswtrue \put(20,0){\Eastbond}% - \or \global\@centatswitrue \putlratom{-40}{-33}{\@memberb}% - \or \global\@centatswiitrue \putlratom{260}{-33}{\@memberb}% -\fi\fi}% -\if@centatswi \else \putlratom{-40}{-33}{C}\fi -\if@centatswii \else \putlratom{260}{-33}{C}\fi -\if@centbondsw \else \put(70,0){\line(1,0){160}}\fi -\global\@centbondswfalse -\global\@centatswifalse -\global\@centatswiifalse -\gdef\numrepeated{x} -\@forsemicol\member:=#3\do{% -\ifx\member\empty\else -\expandafter\@m@mb@r\member;\relax% -\expandafter\threech@r\@membera{}{}% -\ifcase\@tmpa \gdef\numrepeated{\@memberb}% -\or\put(0,0){\Northbond}% -\or\put(0,0){\WestPbond}% -\or\put(0,0){\Southbond}% -\or\put(300,0){\Southbond}% -\or\put(300,0){\EastPbond}% -\or\put(300,0){\Northbond}% -\fi\fi}%end of ifcase -\put(-200,-33){\leftpmdelim} -\put(400,-33){\rightpmdelim{\numrepeated}} -\end{picture}}%end of macro polyethylene -\def\polystyrene{\@ifnextchar[{\@polystyrene}{\@polystyrene[]}} -\def\@polystyrene[#1]#2#3#4{% -\begin{picture}(1100,1200)(0,-640)% - \iforigpt \put(0,-640){\circle*{50}}% - \put(-\noshift,-\noshift){\circle{50}}% - \typeout{command `polystyrene' origin: % - (\the\noshift,\the\noshift) ---> (0,640)}\fi% -\begingroup \origptfalse -\put(0,0){\polyethylene[#1]{#2}{#3}}% -\put(700,0){\line(0,1){240}}% -\put(300,-646){\bzdrv{#4}}% -\endgroup -\end{picture}}%end of macro polystyrene -\endinput -%% -%% End of file `polymers.sty'. diff --git a/Master/texmf-dist/tex/latex/xymtex/xymtex.sty b/Master/texmf-dist/tex/latex/xymtex/xymtex.sty deleted file mode 100644 index e529da86c9a..00000000000 --- a/Master/texmf-dist/tex/latex/xymtex/xymtex.sty +++ /dev/null @@ -1,85 +0,0 @@ -% xymtex.sty -% Copyright (C) 1993, 1966, 1998 by Shinsaku Fujita, all rights reserved. -% %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% -% \typeout{XyMTeX for Drawing Chemical Structural Formulas. Version 1.00} -% \typeout{ -- Released December 1, 1993 by Shinsaku Fujita} -% \typeout{XyMTeX for Drawing Chemical Structural Formulas. Version 1.00a} -% \typeout{ -- Released May 22, 1996 by Shinsaku Fujita} -% \typeout{XyMTeX for Drawing Chemical Structural Formulas. Version 1.02} -% \typeout{ -- Released October 31, 1998 by Shinsaku Fujita} -% %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% -% \def\j@urnalname{xymtex.sty} -% \def\versi@ndate{May 22, 1996} -% \def\versi@nno{ver1.00a} -% \def\copyrighth@lder{SF} % Shinsaku Fujita -% %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% -% \def\j@urnalname{xymtex.sty} -% \def\versi@ndate{October 31, 1998} -% \def\versi@nno{ver1.02} -% \def\copyrighth@lder{SF} % Shinsaku Fujita -% %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% -% -% This file is a part of the macro package ``XyMTeX'' which has been -% designed for typesetting chemical structural formulas. -% -% This file is to be contained in the ``xymtex'' directory which is -% an input directory for TeX. It is a LaTeX optional style file and -% should be used only within LaTeX, because several macros of the file -% are based on LaTeX commands. -% -% For the review of XyMTeX, see -% (1) Shinsaku Fujita, ``Typesetting structural formulas with the text -% formatter TeX/LaTeX'', Computers and Chemistry, 18, 109--116 (1994). -% The following book deals with an application of TeX/LaTeX to -% preparation of manuscripts of chemical fields: -% (2) Shinsaku Fujita, ``LaTeX for Chemists and Biochemists'' -% Tokyo Kagaku Dozin, Tokyo (1993) [in Japanese]. -% (3) Shinskau Fujita, ``XyMTeX for drwoing chemical structural -% formulas'', TUGboat, 16(1), 80--88 (1995). -% -% Copying of this file is authorized only if either -% (1) you make absolutely no changes to your copy, including name and -% directory name; or -% (2) if you do make changes, -% (a) you name it something other than the names included in the -% ``xymtex'' directory and -% (b) you are requested to leave this notice intact. -% This restriction ensures that all standard styles are identical. -% -% Please report any bugs, comments, suggestions, etc. to: -% Shinsaku Fujita, -% Ashigara Research Laboratories, Fuji Photo Film Co., Ltd., -% Minami-Ashigara, Kanagawa-ken, 250-01, Japan. -% -% New address: -% Shinsaku Fujita, -% Department of Chemistry and Materials Technology, -% Kyoto Institute of Technology, \\ -% Matsugasaki, Sakyoku, Kyoto, 606 Japan -% %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% -\typeout{XyMTeX for Drawing Chemical Structural Formulas. Version 2.00} -\typeout{ -- Released December 25, 1998 by Shinsaku Fujita} -\def\j@urnalname{xymtex.sty} -\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]} - -\usepackage{epic} -\usepackage{chemstr} -\usepackage{carom} -\usepackage{hetarom} -\usepackage{hetaromh} -\usepackage{lowcycle} -\usepackage{ccycle} -\usepackage{hcycle} -\usepackage{aliphat} -\usepackage{locant} -\usepackage{polymers} -\usepackage{methylen} -\usepackage{fusering} - -\endinput - \ No newline at end of file -- cgit v1.2.3