%% %% 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, 1998, 2001, 2002, 2004, 2005, 2006, 2009, 2010, 2011, 2013 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. %% %% This file is part of the XyMTeX system. %% ======================================= %% %% Old Versions: %% 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.01 Released on June 20, 2001 (private version) %% Version 3.00 Released on April 30, 2002 %% Version 4.00 Released on May 30, 2002 (private version) %% Version 4.01 Released on August 30, 2004 %% Version 4.01a Released on November 11, 2004 %% Version 4.02 Released on December 20, 2004 %% Version 4.03 Released on July 20, 2005 %% Version 4.03b Released on September 5, 2006 %% Version 4.04a Released on July 7, 2009 %% Version 5.00 Released on October 01, 2010 %% Version 5.01b Released on February 24, 2011 %% Version 5.01 Released on March 22, 2013 %% %% The Present Version: %% Version 5.01 Released on June 19, 2013 %% %% This work may be distributed and/or modified under the %% conditions of the LaTeX Project Public License, either version 1.3 %% of this license or (at your option) any later version. %% The latest version of this license is in %% http://www.latex-project.org/lppl.txt %% and version 1.3 or later is part of all distributions of LaTeX %% version 2005/12/01 or later. %% %% This work has the LPPL maintenance status `maintained'. %% The Current Maintainer of this work is Shinsaku Fujita. %% %% This work consists of the files chemstr.dtx and chemstr.ins %% and the derived file chemstr.sty. %% %% ======================================= %% %% 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 5.01} \typeout{ -- Released June 19, 2013 by Shinsaku Fujita} \def\j@urnalname{chemstr} \def\versi@ndate{June 19, 2013} \def\versi@nno{ver5.01} \def\copyrighth@lder{SF} % Shinsaku Fujita \typeout{XyMTeX Macro File `\j@urnalname' (\versi@nno) <\versi@ndate>% \space[\copyrighth@lder]} \def\select@@Upsionfont{% \edef\test@rm{\rmdefault}% \edef\test@sf{\sfdefault}% \edef\test@tt{\ttdefault}% \ifx\f@family \test@rm\relax {\expandafter\csname OT1/cmr/\f@series/\f@shape/\f@size% \endcsname\char'7}% \else\ifx\f@family \test@sf\relax {\expandafter\csname OT1/cmss/\f@series/\f@shape/\f@size% \endcsname\char'7}% \else\ifx\f@family \test@tt\relax {\expandafter\csname OT1/cmtt/\f@series/\f@shape/\f@size% \endcsname\char'7}% \else{\expandafter\csname OT1/cmr/\f@series/\f@shape/\f@size% \endcsname \char'7}\fi\fi\fi% } \def\XyM{X\kern-.30em\smash{% \raise.50ex\hbox to0.8em{\hss\select@@Upsionfont% \hss}}\kern-.30em{M}} \def\XyMTeX{\XyM\kern-.1em\TeX} \newif\ifPSmode \PSmodefalse \newif\ifPDFmode \PDFmodefalse \newif\ifTeXLaTeXmode \TeXLaTeXmodetrue%default TeX/LaTeX mode. \newcount\@tempcntXa \newcount\@tempcntYa \newcount\@tempcntz \newcount\@tempcntXb \newcount\@tempcntYb \newcount\@tempcntzz \newcount\@tempcntXc \newcount\@tempcntYc \newcount\@tempcntzzz \newcount\@tempcntXd \newcount\@tempcntYd \newcount\@tempcntzzzz \newdimen\@dimtempa \newdimen\@tempdimd \newdimen\@tempdime \def\waveunitA(#1,#2)#3{% \@tempcntz=#1\relax \@tempcntzz=#2\relax %%%%%%%%%%%%%%%%%%%%%%%%% %%%%%%%%%%%%%%%%%%%%%%%%% \ifnum\@tempcntz=3\relax% \ifnum\@tempcntzz=5\relax% \@tempcntXa=-16 \@tempcntYa=10\relax% \@tempcntXd=16 \@tempcntYd=-10\relax \else\ifnum\@tempcntzz=-5\relax% \@tempcntXa=-16 \@tempcntYa=-10\relax \@tempcntXd=16 \@tempcntYd=10\relax \fi\fi \else\ifnum\@tempcntz=-3\relax% \ifnum\@tempcntzz=5\relax% \@tempcntXa=-16 \@tempcntYa=-10\relax% \@tempcntXd=16 \@tempcntYd=10\relax \else\ifnum\@tempcntzz=-5\relax% \@tempcntXa=-16 \@tempcntYa=10\relax \@tempcntXd=16 \@tempcntYd=-10\relax \fi\fi \else\ifnum\@tempcntz=5\relax \ifnum\@tempcntzz=3\relax \@tempcntXa=-10 \@tempcntYa=16\relax \@tempcntXd=10 \@tempcntYd=-16\relax \else\ifnum\@tempcntzz=-3\relax \@tempcntXa=-10 \@tempcntYa=-16\relax \@tempcntXd=10 \@tempcntYd=16\relax \fi\fi \else\ifnum\@tempcntz=-5\relax \ifnum\@tempcntzz=3\relax \@tempcntXa=10 \@tempcntYa=16\relax \@tempcntXd=10 \@tempcntYd=-16\relax \else\ifnum\@tempcntzz=-3\relax \@tempcntXa=10 \@tempcntYa=-16\relax \@tempcntXd=-10 \@tempcntYd=16\relax \fi\fi \else\ifnum\@tempcntz=1\relax \ifnum\@tempcntzz=0\relax \@tempcntXa=0 \@tempcntYa=20\relax \@tempcntXd=0 \@tempcntYd=-20\relax \fi \else\ifnum\@tempcntz=-1\relax \ifnum\@tempcntzz=0\relax \@tempcntXa=0 \@tempcntYa=-20\relax \@tempcntXd=0 \@tempcntYd=20\relax \fi \else\ifnum\@tempcntz=0\relax \ifnum\@tempcntzz=1\relax \@tempcntXa=-20 \@tempcntYa=0\relax \@tempcntXd=20 \@tempcntYd=0\relax \fi \fi\fi\fi\fi\fi\fi\fi %%%%%%%%%%%%%%%%%%%% %%%%%%%%%%%%%%%%%%%% \ifnum\@tempcntzz=0\relax%(1,0) (-1,0) \ifnum\@tempcntz>0\relax \@tempcntXb=#3\relax \else \@tempcntXb=-#3\relax \fi \@tempcntYb=0 \ifnum\@tempcntz>0\relax \@tempcntXa=#3\relax \else \@tempcntXa=-#3\relax \fi \divide\@tempcntXa by2\relax \@tempcntXd=\@tempcntXa \else\ifnum\@tempcntz=0\relax%(0,1) (0,-1) \@tempcntXb=0\relax \ifnum\@tempcntzz>0\relax \@tempcntYb=#3\relax \@tempcntYa=#3\relax \else \@tempcntYb=-#3\relax \@tempcntYa=-#3\relax \fi \divide\@tempcntYa by2\relax \@tempcntYd=\@tempcntYa \else \ifnum\@tempcntz>0\relax \@tempcntXb=#3\relax \else \@tempcntXb=-#3\relax \fi \ifnum\@tempcntzz>0\relax \@tempcntYb=#3\relax \else \@tempcntYb=-#3\relax \fi \ifnum\@tempcntzz>0\relax \@tempcntzzzz=#2\relax \else \@tempcntzzzz=-#2\relax \fi \multiply\@tempcntYb by10\relax \multiply\@tempcntYb by\@tempcntzzzz\relax \ifnum\@tempcntz>0\relax \@tempcntzzzz=#1\relax \else \@tempcntzzzz=-#1\relax \fi \divide\@tempcntYb by\@tempcntzzzz\relax \divide\@tempcntYb by10\relax \@tempcntzzzz=\@tempcntXb \divide\@tempcntzzzz by2\relax \advance\@tempcntXa by\@tempcntzzzz \advance\@tempcntXd by\@tempcntzzzz \@tempcntzzzz=\@tempcntYb \divide\@tempcntzzzz by2\relax \advance\@tempcntYa by\@tempcntzzzz \advance\@tempcntYd by\@tempcntzzzz \fi\fi %%%%%%%%%%%%%%%%% %%%%%%%%%%%%%%%%% \@tempcntXc=\@tempcntXb \multiply\@tempcntXc by2\relax \@tempcntYc=\@tempcntYb \multiply\@tempcntYc by2\relax \begin{picture}(0,0)(0,0)% \multiput(0,0)(\@tempcntXc,\@tempcntYc){3}{% \qbezier(0,0)(\@tempcntXa,\@tempcntYa)(\@tempcntXb,\@tempcntYb)}% \multiput(\@tempcntXb,\@tempcntYb)(\@tempcntXc,\@tempcntYc){2}{% \qbezier(0,0)(\@tempcntXd,\@tempcntYd)(\@tempcntXb,\@tempcntYb)}% \end{picture}% }%end of \waveunitA \newif\ifwavebond \wavebondfalse \def\WaveBonds{\wavebondtrue} \def\NormalBonds{\wavebondfalse} \def\Put@@Line(#1,#2)(#3,#4)#5{\Put@Direct(#1,#2){% \ifwavebond \@tempcnta=#5\relax \divide\@tempcnta by5\relax \waveunitA(#3,#4){\@tempcnta}\else \line(#3,#4){#5}\fi}} \global\let\@ldline=\line%store the oridinal line command of picture enviroment \global\let\@ldthicklines=\thicklines \global\let\@ldthinlines=\thinlines %%\def\Put@@Line(#1,#2)(#3,#4)#5{\Put@Direct(#1,#2){\line(#3,#4){#5}}} \def\Put@@sCircle(#1,#2)#3{\Put@Direct(#1,#2){\circle*{#3}}} \def\Put@@oCircle(#1,#2)#3{\Put@Direct(#1,#2){\circle{#3}}} \newif\ifxymtexpssw\xymtexpsswfalse \def\originalpicture{% \let\sfpicture=\picture \let\endsfpicture=\endpicture \let\Put@Direct=\put \let\Multiput@Direct=\multiput \let\line=\@ldline \let\dotorline=\d@t@rline \let\thicklines=\@ldthicklines \let\thinlines=\@ldthinlines \thinlines \let\Put@Line=\Put@@Line \let\Put@sCircle=\Put@@sCircle \let\Put@oCircle=\Put@@oCircle \xymtexpsswfalse \@ifundefined{@changeunitlength}{}{% \let\changeunitlength=\@changeunitlength}% \unitlength=0.1pt} \def\changexymtextops{\xymtexpsswtrue} \def\SlopetoXY(#1,#2)(#3,#4)#5{% %%x-coordinate \@tempcntXa=0\relax \ifnum#3>0\relax \@tempcntXa=#5\relax \else\ifnum#3<0\relax\@tempcntXa=-#5\relax\fi\fi \advance\@tempcntXa by#1\relax %%y-coordinate \@tempcntYa=#5\relax \ifnum#3=0\relax\else \multiply\@tempcntYa by#4\relax\multiply\@tempcntYa by10\relax \divide\@tempcntYa by#3\relax\divide\@tempcntYa by10\relax\fi \ifnum\@tempcntYa<0\relax \ifnum#4>0\relax\@tempcntYa=-\@tempcntYa\fi \else \ifnum\@tempcntYa>0\relax \ifnum#4<0\relax\@tempcntYa=-\@tempcntYa\fi\fi \fi \advance\@tempcntYa by#2\relax} \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;{\def\@membera{#1}\def\@memberb{#2}} \def\twoch@r#1#2{\gdef\@tmpa{#1}\gdef\@tmpb{#2}} \def\twoch@@r#1#2{\gdef\@@tmpa{#1}\gdef\@@tmpb{#2}} \newif\ifdrawsamesubst\drawsamesubstfalse \def\@get@first@char#1{\if\noexpand#1\relax\else \@cnttempa=`#1\relax \ifnum\@cnttempa>47\relax \ifnum\@cnttempa<58\relax \XyMTeXWarning{The second number (\@tmpb) of a two-digit number (\@tmpa\@tmpb) is missed. ^^J\space This should be written in braces, ^^J\space e.g. `{\@tmpa\@tmpb}D==substituent' and `{{\@tmpa\@tmpb}}==substituent'.} \fi\fi\fi} \def\threech@r#1#2#3{\gdef\@tmpa{#1}\gdef\@tmpb{#2}\gdef\@tmpc{#3}% \begingroup \ifdrawsamesubst\ifx\@tmpa\empty\relax\else\ifx\@tmpb\empty\relax\else \setbox0=\hbox{\@get@first@char#2\relax}\fi\fi\fi \endgroup} \def\twoCH@@R#1#2//{\def\@@tmpa{#1}\def\@@tmpb{#2}} \def\twoCH@R#1#2//{\def\@tmpa{#1}\def\@tmpb{#2}} \def\@forendparenthesis#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}} \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} \newif\if@dbondcolor \@dbondcolorfalse \def\XyMTeXWarning#1{% \begingroup \if@dbondcolor\else \let\protect\string \immediate\write\@unused{^^IXyMTeX Warning: #1\space on input line \the\inputlineno^^I}% \fi \endgroup% \global\@dbondcolorfalse%2010/10/01 for bond coloring } \newcount\@cnttempa \newcount\@cnttempb \def\FuseW@rning#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\futileFuseWarning#1#2#3#4#5#6#7{} \let\FuseWarning=\FuseW@rning \let\substfont=\normalfont \let\substfontsize=\normalsize \def\putlatom#1#2#3{\begingroup\resetlrput \Put@Direct(#1,#2){\@leftputtrue\substfont\substfontsize \hbox to0pt{\hss #3}\@leftputfalse}\endgroup} \def\putratom#1#2#3{\begingroup\resetlrput \Put@Direct(#1,#2){\@rightputtrue\substfont\substfontsize \hbox to0pt{#3 \hss}\@rightputfalse}\endgroup} \newif\ifspecial@ylcs \special@ylcsfalse \def\@getcharwidthput#1#2\owari{% \global\special@ylcsfalse \if\noexpand#1\relax \global\special@ylcstrue \else%\if the category #1 is 'command' \ifcat#1$\relax \global\special@ylcstrue\else%if the category of #1 is 'special letter' \ifcat#1a\relax%if the category of #1 is 'letter' \setbox0=\hbox{#1}% \global\@dimtempa=0.7em \global\advance\@dimtempa by-\wd0\relax \global\divide\@dimtempa by2\relax \else\global\@dimtempa=0em\relax\fi\fi\fi} \def\putlratom#1#2#3{\begingroup\resetlrput \Put@Direct(#1,#2){\@leftrightputtrue\substfont\substfontsize \setbox1=\hbox{% \expandafter\@getcharwidthput#3\relax\owari}%the centering mechanism \@tempdima=\@dimtempa%global to local \ifspecial@ylcs\hbox to.72em{#3\hss}\else \hbox to0.72em{\kern\@tempdima #3\hss}\kern-\@tempdima \fi}% \@leftrightputfalse\endgroup} \def\Putlratom#1#2#3{\Put@Direct(#1,#2){\substfont\substfontsize \hbox to.8em{#3}}} \def\d@t@rline(#1,#2)(#3,#4)#5/(#6,#7)(#8,#9){% \@ifundefined{dottedline}{% \XyMTeXWarning{A dottedline is replaced by a solid line.}% \Put@Line(#1,#2)(#3,#4){#5}% }{{\thicklines% \ifdim\unitlength>0.08pt \dottedline{20}(#6,#7)(#8,#9)% \else \dottedline{30}(#6,#7)(#8,#9)\fi}}} \let\dotorline=\d@t@rline \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%to use as a local counter \def\@rigpt@utput#1{\iforigpt \Put@sCircle(-\shiftii,-\shifti){50}% \Put@oCircle(-\noshift,-\noshift){50}% \typeout{command `#1' origin: % (\the\noshift,\the\noshift) ---> (\the\shiftii,\the\shifti)}\fi} \def\OrigptOutput(#1,#2)#3{\iforigpt \Put@sCircle(-#1,-#2){50}\Put@oCircle(0,0){50}% \typeout{command `#3' origin: (0,0) ---> (#1,#2)}\fi} \def\OrigptOutputA(#1,#2)(#3,#4)#5{\iforigpt \Put@sCircle(-#1,-#2){50}\Put@oCircle(-#3,-#4){50}% \typeout{command `#5' origin: (#3,#4) ---> (#1,#2)}\fi} \def\origptoutput{\@ifnextchar({\@origptoutput}{\@origptoutput(,)}} \def\@origptoutput(#1){% \@ifnextchar({\@@origptoutput(#1)}{\@@origptoutput(#1)(,)}} \def\@@origptoutput(#1,#2)(#3,#4)#5{% \def\TEMParga{#1}\def\TEMPargb{#3}% \ifx\TEMParga\empty\relax \@rigpt@utput{#5}\else\ifx\TEMPargb\empty\relax \OrigptOutput(#1,#2){#5}\else \OrigptOutputA(#1,#2)(#3,#4){#5}\fi\fi} \newif\if@gclip \@gclipfalse% \newif\if@hclip \@hclipfalse% \newif\if@iclip \@iclipfalse% \newif\if@jclip \@jclipfalse% \newif\if@xclip \@xclipfalse%added for temp. 2013/03/24 \def\clipinfo{} \def\storeclipinfo{% \if@aclip \xdef\clipinfo{\clipinfo a,}\fi \if@bclip \xdef\clipinfo{\clipinfo b,}\fi \if@cclip \xdef\clipinfo{\clipinfo c,}\fi \if@clip \xdef\clipinfo{\clipinfo d,}\fi \if@eclip \xdef\clipinfo{\clipinfo e,}\fi \if@fclip \xdef\clipinfo{\clipinfo f,}\fi \if@gclip \xdef\clipinfo{\clipinfo g,}\fi \if@hclip \xdef\clipinfo{\clipinfo h,}\fi \if@iclip \xdef\clipinfo{\clipinfo i,}\fi \if@jclip \xdef\clipinfo{\clipinfo j,}\fi \if@xclip \xdef\clipinfo{\clipinfo x,}\fi }% \def\developclipinfo{% \expandafter\@tfor\expandafter\MEMBER\expandafter:% \expandafter=\clipinfo\do{% \if\MEMBER a\relax \@acliptrue\fi \if\MEMBER b\relax \@bcliptrue\fi \if\MEMBER c\relax \@ccliptrue\fi \if\MEMBER d\relax \@cliptrue\fi \if\MEMBER e\relax \@ecliptrue\fi \if\MEMBER f\relax \@fcliptrue\fi \if\MEMBER g\relax \@gcliptrue\fi \if\MEMBER h\relax \@hcliptrue\fi \if\MEMBER i\relax \@icliptrue\fi \if\MEMBER j\relax \@jcliptrue\fi}% \gdef\clipinfo{}} \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\ifshiftpicsw\shiftpicswfalse \newif\if@sixfuseposv\@sixfuseposvfalse \def\ShiftPicEnv{% \@ifnextchar[{\ShiftPicEnv@}{\ShiftPicEnv@[0]}} \def\ShiftPicEnv@[#1](#2)(#3)/(#4)(#5)#6{% \@ifnextchar({\@ShiftPicEnv[#1](#2)(#3)/(#4)(#5){#6}}% {\@ShiftPicEnv[#1](#2)(#3)/(#4)(#5){#6}(,)}} \def\@ShiftPicEnv[#1](#2)(#3)/(#4)(#5)#6(#7){% \@ifnextchar({\@@ShiftPicEnv[#1](#2)(#3)/(#4)(#5){#6}(#7)}% {\@@ShiftPicEnv[#1](#2)(#3)/(#4)(#5){#6}(#7)(,)}} \def\@@ShiftPicEnv[#1](#2)(#3)/(#4)(#5)#6(#7)(#8){% \shiftpicswfalse%initialize \ifcase#1\relax%%%non-fused ring \if@ylsw \shiftpicswtrue \yl@shiftii=\@ylii \yl@shifti=\@yli \fi \or%%%fused ring \if@sixfuseposv \shiftpicswtrue \yl@shiftii=-\fuseAx \yl@shifti=-\fuseAy \fi \fi \ifshiftpicsw \advance\yl@shiftii\yl@xdiff \advance\yl@shifti\yl@ydiff \begin{sfpicture}(#2)(#3)% \reset@yl@xydiff%1999/1/6 by S. Fujita \else \begin{sfpicture}(#4)(#5)% \origptoutput(#7)(#8){#6}% \fi} \def\endShiftPicEnv{\end{sfpicture}} \def\ShiftPicEnvB(#1)(#2)/(#3)(#4)#5{% \@ifnextchar({\@ShiftPicEnvB(#1)(#2)/(#3)(#4){#5}}% {\@ShiftPicEnvB(#1)(#2)/(#3)(#4){#5}(,)}} \def\@ShiftPicEnvB(#1)(#2)/(#3)(#4)#5(#6){% \@ifnextchar({\@@ShiftPicEnvB(#1)(#2)/(#3)(#4){#5}(#6)}% {\@@ShiftPicEnvB(#1)(#2)/(#3)(#4){#5}(#6)(,)}} \def\@@ShiftPicEnvB(#1)(#2)/(#3)(#4)#5(#6)(#7){% \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{sfpicture}(#1)(#2)% \reset@yl@xydiff%1999/1/6 by S. Fujita \else \begin{sfpicture}(#3)(#4)% \origptoutput(#6)(#7){#5}% \fi} \def\endShiftPicEnvB{\end{sfpicture}} \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\gggA{}\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 \reset@@yl%%2013/06/19bug fix \@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 \putlratom{-31}{563}{\@memberb}% % left or right type \Put@Line(0,436)(0,1){110}% % single bond at 1 \else\if\@tmpc B%(B) beta \yl@xdiff=-36\relax \yl@ydiff=-27\relax \putlatom{-42}{563}{\@memberb}% % left type {% \thicklines% \Put@Line(-18,436)(-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 \dotorline(18,436)(3,5){60}/(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@Line(18,436)(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 \dotorline(-18,436)(-3,5){60}/(-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@Line(-18,436)(-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@Line(18,436)(3,5){60}% % single bond at 1 \else\if\@tmpc V%(V) beta undefined \yl@xdiff=-36\relax \yl@ydiff=-27\relax \putlatom{-42}{563}{\@memberb}% % left type {% \WaveBonds% \Put@Line(-18,436)(-3,5){60}% % single bond at 1 }% \else\if\@tmpc U%(U) alpha undefined \yl@xdiff=37\relax \yl@ydiff=-27\relax \putratom{41}{563}{\@memberb}% % right type {% \WaveBonds% \Put@Line(18,436)(3,5){60}% % single bond at 1 }% \fi\fi\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@Line(-12,436)(0,1){110}% % double bond at 1 \Put@Line(12,436)(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@Line(0,436)(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 \dotorline(0,436)(0,1){110}/(0,436)(0,546)% \else\if\@tmpb U%undefined single bond \yl@xdiff=31\relax \yl@ydiff=-17\relax \putlratom{-31}{563}{\@memberb}% % left or right type {% \WaveBonds% \Put@Line(0,436)(0,1){110}% % single wave bond at 1 }% \else\if\@tmpb F%fused bond {\let\@tmpb=\@tmpc\@clipfusetrue \Put@Direct(0,406){\setatombondd}% }% \else\if\@tmpb G%fused bond {\let\@tmpb=\@tmpc\@clipfusetrue \Put@Direct(0,406){\setatombondf}% }% \else% \yl@xdiff=31\relax \yl@ydiff=-17\relax \putlratom{-31}{563}{\@memberb}% % left or right type \Put@Line(0,436)(0,1){110}% % single bond at 1 \fi\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 \putlratom{-31}{563}{\@memberb}% % left or right type \Put@Line(0,406)(0,1){140}% % single bond at 1 \else\if\@tmpc B%(B) beta \yl@xdiff=-30\relax \yl@ydiff=-37\relax \putlatom{-42}{563}{\@memberb}% % left type {% \thicklines% \Put@Line(0,406)(-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 \dotorline(0,406)(3,5){72}/(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@Line(0,406)(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 \dotorline(0,406)(-3,5){72}/(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@Line(0,406)(-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@Line(0,406)(3,5){72}% % single bond at 1 \else\if\@tmpc V%(V) beta undefined \yl@xdiff=-30\relax \yl@ydiff=-37\relax \putlatom{-42}{563}{\@memberb}% % left type {% \WaveBonds% \Put@Line(0,406)(-3,5){72}% % single bond at 1 }% \else\if\@tmpc U%(U) alpha undefined \yl@xdiff=31\relax \yl@ydiff=-37\relax \putratom{41}{563}{\@memberb}% % right type {% \WaveBonds% \Put@Line(0,406)(3,5){72}% % single bond at 1 }% \fi\fi\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@Line(-12,406)(0,1){140}% % double bond at 1 \Put@Line(12,406)(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@Line(0,406)(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 \dotorline(0,406)(0,1){140}/(0,406)(0,546)% \else\if\@tmpb U%undefined single bond \yl@xdiff=31\relax \yl@ydiff=-17\relax \putlratom{-31}{563}{\@memberb}% % left or right type {% \WaveBonds% \Put@Line(0,406)(0,1){140}% % single wave bond at 1 }% \else\if\@tmpb F%fused bond {\let\@tmpb=\@tmpc\@clipfusefalse \Put@Direct(0,406){\setatombondd}% }% \else\if\@tmpb G%fused bond {\let\@tmpb=\@tmpc\@clipfusefalse \Put@Direct(0,406){\setatombondf}% }% \else% \yl@xdiff=31\relax \yl@ydiff=-17\relax \putlratom{-31}{563}{\@memberb}% % left or right type \Put@Line(0,406)(0,1){140}% % single bond at 1 \fi\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@Line(201,327)(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@Line(201,358)(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 \dotorline(201,303)(1,0){100}/(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@Line(201,303)(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 \dotorline(201,358)(3,5){60}/(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@Line(201,358)(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@Line(201,303)(1,0){100}% % single bond at 2 \else\if\@tmpc V%(V) beta undefined \yl@xdiff=-7\relax \yl@ydiff=38\relax \putratom{268}{420}{\@memberb}% % right type {% \WaveBonds% \Put@Line(201,358)(3,5){60}% % single bond at 2 }% \else\if\@tmpc U%(U) alphau undefined \yl@xdiff=-17\relax \yl@ydiff=23\relax \putratom{318}{280}{\@memberb}% % right type {% \WaveBonds% \Put@Line(201,303)(1,0){100}% % single bond at 2 }% \fi\fi\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@Line(194,331)(5,3){100}% % double bond at 2 \Put@Line(200,305)(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@Line(201,327)(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 \dotorline(201,327)(5,3){100}/(201,327)(301,387)% \else\if\@tmpb U%undefined single bond \yl@xdiff=-10\relax \yl@ydiff=24\relax \putratom{311}{363}{\@memberb}% % right type {% \WaveBonds% \Put@Line(210,327)(5,3){100}% % single wave bond at 2 }% \else\if\@tmpb F%fused bond {\let\@tmpb=\@tmpc\@clipfusetrue \Put@Direct(171,303){\setatombonda}% }% \else\if\@tmpb G%fused bond {\let\@tmpb=\@tmpc\@clipfusetrue \Put@Direct(171,303){\setatombonde}% }% \else% \yl@xdiff=-10\relax \yl@ydiff=24\relax \putratom{311}{363}{\@memberb}% % right type \Put@Line(201,327)(5,3){100}% % single bond at 2 \fi\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@Line(171,303)(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@Line(171,303)(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 \dotorline(171,303)(1,0){140}/(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@Line(171,303)(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 \dotorline(171,303)(3,5){72}/(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@Line(171,303)(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@Line(171,303)(1,0){140}% % single bond at 2 \else\if\@tmpc V%(V) beta undefined \yl@xdiff=-15\relax \yl@ydiff=13\relax \putratom{258}{410}{\@memberb}% % right type {% \WaveBonds% \Put@Line(171,303)(3,5){72}% % single bond at 2 }% \else\if\@tmpc U%(U) alpha undefined \yl@xdiff=-7\relax \yl@ydiff=23\relax \putratom{318}{280}{\@memberb}% % right type {% \WaveBonds% \Put@Line(171,303)(1,0){140}% % single bond at 2 }% \fi\fi\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@Line(168,310)(5,3){120}% % double bond at 2 \Put@Line(174,284)(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@Line(171,303)(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 \dotorline(171,303)(5,3){120}/(171,303)(291,375)% \else\if\@tmpb U%undefined single bond \yl@xdiff=-10\relax \yl@ydiff=12\relax \putratom{301}{363}{\@memberb}% % right type {% \WaveBonds% \Put@Line(171,303)(5,3){120}% % single wave bond at 2 }% \else\if\@tmpb F%fused bond {\let\@tmpb=\@tmpc\@clipfusefalse \Put@Direct(171,303){\setatombonda}% }% \else\if\@tmpb G%fused bond {\let\@tmpb=\@tmpc\@clipfusefalse \Put@Direct(171,303){\setatombonde}% }% \else% \yl@xdiff=-10\relax \yl@ydiff=12\relax \putratom{301}{363}{\@memberb}% % right type \Put@Line(171,303)(5,3){120}% % single bond at 2 \fi\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@Line(201,79)(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@Line(201,48)(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 \dotorline(201,103)(1,0){100}/(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@Line(201,103)(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 \dotorline(201,48)(3,-5){60}/(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@Line(201,48)(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@Line(201,103)(1,0){100}% % single bond at 3 \else\if\@tmpc V%(V) beta undefined \yl@xdiff=-7\relax \yl@ydiff=28\relax \putratom{268}{-80}{\@memberb}% % right type {% \WaveBonds% \Put@Line(201,48)(3,-5){60}% % single bond at 3 }% \else\if\@tmpc U%(U) alpha undefined \yl@xdiff=-17\relax \yl@ydiff=29\relax \putratom{318}{74}{\@memberb}% % right type {% \WaveBonds% \Put@Line(201,103)(1,0){100}% % single bond at 3 }% \fi\fi\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@Line(194,76)(5,-3){100}% % double bond at 3 \Put@Line(200,101)(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@Line(201,79)(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 \dotorline(201,79)(5,-3){100}/(201,79)(301,19)% \else\if\@tmpb U%undefined single bond \yl@xdiff=-10\relax \yl@ydiff=46\relax \putratom{311}{-27}{\@memberb}% % right type {% \WaveBonds% \Put@Line(210,79)(5,-3){100}% % single wave bond at 3 }% \else\if\@tmpb F%fused bond {\let\@tmpb=\@tmpc\@clipfusetrue \Put@Direct(171,103){\setatombondf}% }% \else\if\@tmpb G%fused bond {\let\@tmpb=\@tmpc\@clipfusetrue \Put@Direct(171,103){\setatombondc}% }% \else% \yl@xdiff=-10\relax \yl@ydiff=46\relax \putratom{311}{-27}{\@memberb}% % right type \Put@Line(201,79)(5,-3){100}% % single bond at 3 \fi\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@Line(171,103)(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@Line(171,103)(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 \dotorline(171,103)(1,0){140}/(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@Line(171,103)(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 \dotorline(171,103)(3,-5){72}/(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@Line(171,103)(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@Line(171,103)(1,0){140}% % single bond at 3 \else\if\@tmpc V%(V) beta undefined \yl@xdiff=-10\relax \yl@ydiff=48\relax \putratom{258}{-70}{\@memberb}% % right type {% \WaveBonds% \Put@Line(171,103)(3,-5){72}% % single bond at 3 }% \else\if\@tmpc U%(U) alpha undefined \yl@xdiff=-10\relax \yl@ydiff=30\relax \putratom{318}{74}{\@memberb}% % right type {% \WaveBonds% \Put@Line(171,103)(1,0){140}% % single bond at 3 }% \fi\fi\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@Line(168,96)(5,-3){120}% % double bond at 3 \Put@Line(174,121)(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@Line(171,103)(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 \dotorline(171,103)(5,-3){120}/(171,103)(291,31)% \else\if\@tmpb U%undefined single bond \yl@xdiff=-10\relax \yl@ydiff=58\relax \putratom{301}{-27}{\@memberb}% % right type {% \WaveBonds% \Put@Line(171,103)(5,-3){120}% % single wave bond at 3 }% \else\if\@tmpb F%fused bond {\let\@tmpb=\@tmpc\@clipfusefalse \Put@Direct(171,103){\setatombondf}% }% \else\if\@tmpb G%fused bond {\let\@tmpb=\@tmpc\@clipfusefalse \Put@Direct(171,103){\setatombondc}% }% \else% \yl@xdiff=-10\relax \yl@ydiff=58\relax \putratom{301}{-27}{\@memberb}% % right type \Put@Line(171,103)(5,-3){120}% % single bond at 3 \fi\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@Line(0,-30)(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@Line(-18,-30)(-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 \dotorline(18,-30)(3,-5){60}/(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@Line(18,-30)(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 \dotorline(-18,-30)(-3,-5){60}/(-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@Line(-18,-30)(-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@Line(18,-30)(3,-5){60}% % single bond at 4 \else\if\@tmpc V%(V) beta undefined \yl@xdiff=-36\relax \yl@ydiff=100\relax \putlatom{-42}{-230}{\@memberb}% % left type {% \WaveBonds% \Put@Line(-18,-30)(-3,-5){60}% % single bond at 4 }% \else\if\@tmpc U%(U) alpha undefined \yl@xdiff=37\relax \yl@ydiff=100\relax \putratom{41}{-230}{\@memberb}% % right type {% \WaveBonds% \Put@Line(18,-30)(3,-5){60}% % single bond at 4 }% \fi\fi\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@Line(-12,-30)(0,-1){110}% % double bond at 4 \Put@Line(12,-30)(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@Line(0,-30)(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 \dotorline(0,-30)(0,-1){110}/(0,-30)(0,-140)% \else\if\@tmpb U%undefined single bond \yl@xdiff=31\relax \yl@ydiff=90\relax \putlratom{-31}{-230}{\@memberb}% % right type {% \WaveBonds% \Put@Line(0,-30)(0,-1){110}% % single wave bond at 4 }% \else\if\@tmpb F%fused bond {\let\@tmpb=\@tmpc\@clipfusetrue \Put@Direct(0,0){\setatombonde}% }% \else\if\@tmpb G%fused bond {\let\@tmpb=\@tmpc\@clipfusetrue \Put@Direct(0,0){\setatombondg}% }% \else% \yl@xdiff=31\relax \yl@ydiff=90\relax \putlratom{-31}{-230}{\@memberb}% % left or right type \Put@Line(0,-30)(0,-1){110}% % single bond at 4 \fi\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@Line(0,0)(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@Line(0,0)(-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 \dotorline(0,0)(3,-5){72}/(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@Line(0,0)(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 \dotorline(0,0)(-3,-5){72}/(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@Line(0,0)(-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@Line(0,0)(3,-5){72}% % single bond at 4 \else\if\@tmpc V%(V) beta undefined \yl@xdiff=-30\relax \yl@ydiff=110\relax \putlatom{-42}{-230}{\@memberb}% % left type {% \WaveBonds% \Put@Line(0,0)(-3,-5){72}% % single bond at 4 }% \else\if\@tmpc U%(U) alpha undefined \yl@xdiff=31\relax \yl@ydiff=110\relax \putratom{41}{-230}{\@memberb}% % right type {% \WaveBonds% \Put@Line(0,0)(3,-5){72}% % single bond at 4 }% \fi\fi\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@Line(-12,0)(0,-1){140}% % double bond at 4 \Put@Line(12,0)(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@Line(0,0)(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 \dotorline(0,0)(0,-1){140}/(0,0)(0,-140)% \else\if\@tmpb U%undefined single bond \yl@xdiff=31\relax \yl@ydiff=90\relax \putlratom{-31}{-230}{\@memberb}% % right type {% \WaveBonds% \Put@Line(0,0)(0,-1){140}% % single wave bond at 4 }% \else\if\@tmpb F%fused bond {\let\@tmpb=\@tmpc\@clipfusefalse \Put@Direct(0,0){\setatombonde}% }% \else\if\@tmpb G%fused bond {\let\@tmpb=\@tmpc\@clipfusefalse \Put@Direct(0,0){\setatombondg}% }% \else% \yl@xdiff=31\relax \yl@ydiff=90\relax \putlratom{-31}{-230}{\@memberb}% % left or right type \Put@Line(0,0)(0,-1){140}% % single bond at 4 \fi\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@Line(-201,79)(-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@Line(-201,48)(-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 \dotorline(-201,103)(-1,0){100}/(-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@Line(-201,103)(-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 \dotorline(-201,48)(-3,-5){60}/(-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@Line(-201,48)(-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@Line(-201,103)(-1,0){100}% % single bond at 5 \else\if\@tmpc V%(V) beta undefined \yl@xdiff=7\relax \yl@ydiff=38\relax \putlatom{-268}{-80}{\@memberb}% % left type {% \WaveBonds% \Put@Line(-201,48)(-3,-5){60}% % single bond at 5 }% \else\if\@tmpc U%(U) alpha undefined \yl@xdiff=17\relax \yl@ydiff=29\relax \putlatom{-318}{74}{\@memberb}% % left type {% \WaveBonds% \Put@Line(-201,103)(-1,0){100}% % single bond at 5 }% \fi\fi\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@Line(-194,76)(-5,-3){100}% % double bond at 5 \Put@Line(-200,101)(-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@Line(-201,79)(-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 \dotorline(-201,79)(-5,-3){100}/(-201,79)(-301,21)% \else\if\@tmpb U%undefined single bond \yl@xdiff=10\relax \yl@ydiff=46\relax \putlatom{-311}{-27}{\@memberb}% % right type {% \WaveBonds% \Put@Line(-220,79)(-5,-3){100}% % single wave bond at 5 }% \else\if\@tmpb F%fused bond {\let\@tmpb=\@tmpc\@clipfusetrue \Put@Direct(-171,103){\setatombondc}% }% \else\if\@tmpb G%fused bond {\let\@tmpb=\@tmpc\@clipfusetrue \Put@Direct(-171,103){\setatombondd}% }% \else% \yl@xdiff=10\relax \yl@ydiff=46\relax \putlatom{-311}{-27}{\@memberb}% % left type \Put@Line(-201,79)(-5,-3){100}% % single bond at 5 \fi\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@Line(-171,103)(-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@Line(-171,103)(-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 \dotorline(-171,103)(-1,0){140}/(-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@Line(-171,103)(-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 \dotorline(-171,103)(-3,-5){72}/(-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@Line(-171,103)(-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@Line(-171,103)(-1,0){140}% % single bond at 5 \else\if\@tmpc V%(V) beta undefined \yl@xdiff=15\relax \yl@ydiff=63\relax \putlatom{-258}{-70}{\@memberb}% % left type {% \WaveBonds% \Put@Line(-171,103)(-3,-5){72}% % single bond at 5 }% \else\if\@tmpc U%(U) alpha undefined \yl@xdiff=15\relax \yl@ydiff=29\relax \putlatom{-326}{74}{\@memberb}% % left type {% \WaveBonds% \Put@Line(-171,103)(-1,0){140}% % single bond at 5 }% \fi\fi\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@Line(-168,96)(-5,-3){120}% % double bond at 5 \Put@Line(-174,121)(-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@Line(-171,103)(-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 \dotorline(-171,103)(-5,-3){120}/(-171,103)(-311,31)% \else\if\@tmpb U%undefined single bond \yl@xdiff=-10\relax \yl@ydiff=56\relax \putlatom{-301}{-27}{\@memberb}% % right type {% \WaveBonds% \Put@Line(-171,103)(-5,-3){120}% % single wave bond at 5 }% \else\if\@tmpb F%fused bond {\let\@tmpb=\@tmpc\@clipfusefalse \Put@Direct(-171,103){\setatombondc}% }% \else\if\@tmpb G%fused bond {\let\@tmpb=\@tmpc\@clipfusefalse \Put@Direct(-171,103){\setatombondd}% }% \else% \yl@xdiff=10\relax \yl@ydiff=56\relax \putlatom{-301}{-27}{\@memberb}% % left type \Put@Line(-171,103)(-5,-3){120}%% single bond at 5 \fi\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@Line(-201,327)(-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@Line(-201,358)(-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 \dotorline(-201,303)(-1,0){100}/(-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@Line(-201,303)(-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 \dotorline(-201,358)(-3,5){60}/(-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@Line(-201,358)(-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@Line(-201,303)(-1,0){100}% % single bond at 6 \else\if\@tmpc V%(V) beta undefined \yl@xdiff=8\relax \yl@ydiff=38\relax \putlatom{-268}{420}{\@memberb}% % left type {% \WaveBonds% \Put@Line(-201,358)(-3,5){60}% % single bond at 6 }% \else\if\@tmpc U%(U) alpha undefined \yl@xdiff=17\relax \yl@ydiff=23\relax \putlatom{-318}{280}{\@memberb}% % left type {% \WaveBonds% \Put@Line(-201,303)(-1,0){100}% % single bond at 6 }% \fi\fi\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@Line(-194,331)(-5,3){100}% % double bond at 6 \Put@Line(-200,305)(-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@Line(-201,327)(-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 \dotorline(-201,327)(-5,3){100}/(-201,327)(-301,387)% \else\if\@tmpb U%undefined single bond \yl@xdiff=10\relax \yl@ydiff=24\relax \putlatom{-311}{363}{\@memberb}% % right type {% \WaveBonds% \Put@Line(-211,327)(-5,3){100}% % single wave bond at 6 }% \else\if\@tmpb F%fused bond {\let\@tmpb=\@tmpc\@clipfusetrue \Put@Direct(-171,303){\setatombondg}% }% \else\if\@tmpb G%fused bond {\let\@tmpb=\@tmpc\@clipfusetrue \Put@Direct(-171,303){\setatombonda}% }% \else% \yl@xdiff=10\relax \yl@ydiff=24\relax \putlatom{-311}{363}{\@memberb}% % left type \Put@Line(-201,327)(-5,3){100}% % single bond at 6 \fi\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@Line(-171,303)(-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@Line(-171,303)(-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 \dotorline(-171,303)(-1,0){140}/(-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@Line(-171,303)(-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 \dotorline(-171,303)(-3,5){72}/(-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@Line(-171,303)(-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@Line(-171,303)(-1,0){140}% % single bond at 6 \else\if\@tmpc V%(V) beta undefined \yl@xdiff=15\relax \yl@ydiff=13\relax \putlatom{-258}{410}{\@memberb}% % left type {% \WaveBonds% \Put@Line(-171,303)(-3,5){72}% % single bond at 6 }% \else\if\@tmpc U%(U) alpha undefined \yl@xdiff=15\relax \yl@ydiff=23\relax \putlatom{-326}{280}{\@memberb}% % left type {% \WaveBonds% \Put@Line(-171,303)(-1,0){140}% % single bond at 6 }% \fi\fi\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@Line(-168,310)(-5,3){120}% % double bond at 6 \Put@Line(-174,284)(-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@Line(-171,303)(-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 \dotorline(-171,303)(-5,3){120}/(-171,303)(-311,375)% \else\if\@tmpb U%undefined single bond \yl@xdiff=-10\relax \yl@ydiff=12\relax \putlatom{-301}{363}{\@memberb}% % right type {% \WaveBonds% \Put@Line(-171,303)(-5,3){120}% % single wave bond at 6 }% \else\if\@tmpb F%fused bond {\let\@tmpb=\@tmpc\@clipfusefalse \Put@Direct(-171,303){\setatombondg}% }% \else\if\@tmpb G%fused bond {\let\@tmpb=\@tmpc\@clipfusefalse \Put@Direct(-171,303){\setatombonda}% }% \else% \yl@xdiff=10\relax \yl@ydiff=12\relax \putlatom{-301}{363}{\@memberb}% % left type \Put@Line(-171,303)(-5,3){120}% % single bond at 6 \fi\fi\fi\fi% \fi\fi\fi \fi}% end of \@substf \RequirePackage{xcolor} \def\bondsubstcolor{} \def\addbscolor#1#2{#2\gdef\bondsubstcolor{#1}} \newif\ifbscolor \def\setbscolor{\addbscolor{}{}% \edef\@tmptmpb{\@tmpb}\edef\@tmptmpc{\@tmpc}%store original values \ifbscolor\setbox0=\hbox{\@memberb}\bondsubstcolor\setbox0=\hbox{}\fi \edef\@tmpb{\@tmptmpb}\edef\@tmpc{\@tmptmpc}%recover the original values }% \def\setBScolor#1{\begingroup\setbscolor#1\addbscolor{}{}\endgroup}% \def\bscolorswON{\bscolortrue} \def\bscolorswOFF{\bscolorfalse} \bscolorswON%default bond coloring \def\defineXyMcolor#1#2#3{% \definecolor{#1}{#2}{#3}% \@ifundefined{psset}{% \expandafter\def\csname#1\endcsname{\color{#1}}}% {\expandafter\def\csname#1\endcsname{\color{#1}% \psset{linecolor=#1}}}} \def\XyMcolor#1{% \@ifnextchar[{\@XyMcolor{#1}}{\@XyMcolor{#1}[]}} \def\@XyMcolor#1[#2]#3{% \edef\tempColorModel{#2}% \ifx\tempColorModel\@empty\colorlet{#1}{#3}\else \colorlet{#1}[#2]{#3}\fi \@ifundefined{psset}{% \expandafter\def\csname#1\endcsname{\color{#1}}}% {\expandafter\def\csname#1\endcsname{\color{#1}% \psset{linecolor=#1}}}} \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{\setbscolor\@substa\addbscolor{}{}}%% subst. on 1 \or{\setbscolor\@substb\addbscolor{}{}}%% subst. on 2 \or{\setbscolor\@substc\addbscolor{}{}}%% subst. on 3 \or{\setbscolor\@substd\addbscolor{}{}}%% subst. on 4 \or{\setbscolor\@subste\addbscolor{}{}}%% subst. on 5 \or{\setbscolor\@substf\addbscolor{}{}}%% 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@Line(171,303)(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 \dotorline(171,303)(0,1){140}/(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 {% \WaveBonds% \Put@Line(171,303)(0,1){140}% % single wave bond at 1 }% \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@Line(171,303)(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@Line(171,303)(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@Line(171,103)(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 \dotorline(171,103)(0,-1){140}/(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 {% \WaveBonds% \Put@Line(171,103)(0,-1){140}% % single wave bond at 1 }% \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@Line(171,103)(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@Line(171,103)(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@Line(0,406)(-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 \dotorline(0,406)(-5,3){120}/(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 {% \WaveBonds% \Put@Line(0,406)(-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@Line(0,406)(-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@Line(0,406)(-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@Line(0,406)(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 \dotorline(0,406)(0,-1){140}/(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@Line(171,303)(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 \dotorline(171,303)(5,-3){120}/(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 {% \WaveBonds% \Put@Line(171,303)(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@Line(171,303)(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@Line(171,303)(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@Line(171,303)(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 \dotorline(171,303)(0,1){140}/(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@Line(0,406)(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 \dotorline(0,406)(5,3){120}/(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 {% \WaveBonds% \Put@Line(0,406)(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@Line(0,406)(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@Line(0,406)(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@Line(0,406)(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 \dotorline(0,406)(0,-1){140}/(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@Line(-171,303)(-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 \dotorline(-171,303)(-5,-3){120}/(-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 {% \WaveBonds% \Put@Line(-171,303)(-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@Line(-171,303)(-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@Line(-171,303)(-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@Line(-171,303)(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 \dotorline(-171,303)(0,1){140}/(-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@Line(303,171)(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 \dotorline(303,171)(1,0){140}/(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 {% \WaveBonds% \Put@Line(303,171)(1,0){140}% single bond at G }% \else\if\@tmpc S%beta single bond \yl@xdiff=-17\relax% \yl@ydiff=31\relax% \putlratom{460}{140}{\@memberb}% % left or right type \Put@Line(303,171)(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@Line(303,171)(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@Line(103,171)(-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 \dotorline(103,171)(-1,0){140}/(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 {% \WaveBonds% \Put@Line(103,171)(-1,0){140}% single bond at F }% \else\if\@tmpc S%alpha single bond \yl@xdiff=20\relax% \yl@ydiff=31\relax% \putlatom{-57}{140}{\@memberb}% % left type \Put@Line(103,171)(-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@Line(103,171)(-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% {\setbscolor\GFbonda\addbscolor{}{}}%2010/10/01 \or% subst. on 1 F == (0,406), G == (171,303) {\setbscolor\GFbondb\addbscolor{}{}}%2010/10/01 \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 {\setbscolor\GFbondc\addbscolor{}{}}%2010/10/01 \or %3 fused positions % G == (303,171) F == (103,171) {\setbscolor\GFbondd\addbscolor{}{}}%2010/10/01 \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) {\setbscolor\setatombonda\addbscolor{}{}}%2010/10/01 \else\ifnum#3=4\relax%(right) {\setbscolor\setatombondb\addbscolor{}{}}%2010/10/01 \else\ifnum#3=7\relax%(downward) {\setbscolor\setatombondc\addbscolor{}{}}%2010/10/01 \else\ifnum#3=11\relax% {\setbscolor\setatombondd\addbscolor{}{}}%2010/10/01 \else\ifnum#3=5\relax% {\setbscolor\setatombonde\addbscolor{}{}}%2010/10/01 \else\ifnum#3=3\relax% {\setbscolor\setatombondf\addbscolor{}{}}%2010/10/01 \else\ifnum#3=9\relax% {\setbscolor\setatombondg\addbscolor{}{}}%2010/10/01 \else\ifnum#3=10\relax%(left) {\setbscolor\setatombondh\addbscolor{}{}}%2010/10/01 \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@Line(0,40)(0,1){100}% % single bond at 1 }% \else\if\@tmpb A%alpha single bond \yl@xdiff=31\relax \yl@ydiff=-17\relax \dotorline(0,40)(0,1){100}/(0,40)(0,140)% \else\if\@tmpb U% unspecified single bond \yl@xdiff=31\relax \yl@ydiff=-17\relax {% \WaveBonds% \Put@Line(0,40)(0,1){100}% single bond at F }% \else\if\@tmpb S%beta single bond \yl@xdiff=31\relax \yl@ydiff=-17\relax \Put@Line(0,40)(0,1){100}% % single bond at 1 \else\if\@tmpb D%double bond \yl@xdiff=31\relax \yl@ydiff=-17\relax \Put@Line(-10,40)(0,1){100}% % single bond at 1 \Put@Line(10,40)(0,1){100}% % single bond at 1 \else\if\@tmpb T%double bond \yl@xdiff=31\relax \yl@ydiff=-17\relax \Put@Line(-15,40)(0,1){100}% % single bond at 1 \Put@Line(0,40)(0,1){100}% % single bond at 1 \Put@Line(15,40)(0,1){100}% % single bond at 1 \else\ifx\@tmpb\empty%beta single bond \yl@xdiff=31\relax \yl@ydiff=-17\relax \Put@Line(0,40)(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@Line(0,0)(0,1){140}% % single bond at 1 }% \else\if\@tmpb A%alpha single bond \yl@xdiff=31\relax \yl@ydiff=-17\relax \dotorline(0,0)(0,1){140}/(0,0)(0,140)% \else\if\@tmpb U% unspecified single bond \yl@xdiff=31\relax \yl@ydiff=-17\relax {% \WaveBonds% \Put@Line(0,0)(0,1){140}% single bond at F }% \else\if\@tmpb S%beta single bond \yl@xdiff=31\relax \yl@ydiff=-17\relax \Put@Line(0,0)(0,1){140}% % single bond at 1 \else\if\@tmpb D%beta single bond \yl@xdiff=31\relax \yl@ydiff=-17\relax \Put@Line(-10,0)(0,1){140}% % single bond at 1 \Put@Line(10,0)(0,1){140}% % single bond at 1 \else\if\@tmpb T%beta single bond \yl@xdiff=31\relax \yl@ydiff=-17\relax \Put@Line(-15,0)(0,1){140}% % single bond at 1 \Put@Line(0,0)(0,1){140}% % single bond at 1 \Put@Line(15,0)(0,1){140}% % single bond at 1 \else\ifx\@tmpb\empty%beta single bond \yl@xdiff=31\relax \yl@ydiff=-17\relax \Put@Line(0,0)(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@Line(30,0)(1,0){110}% % single bond at 1 }% \else\if\@tmpb A%alpha single bond \yl@xdiff=-17\relax \yl@ydiff=31\relax \dotorline(30,0)(1,0){110}/(30,0)(140,0)% \else\if\@tmpb U%beta single bond \yl@xdiff=-17\relax \yl@ydiff=31\relax {% \WaveBonds% \Put@Line(30,0)(1,0){110}% % single bond at 1 }% \else\if\@tmpb S%alpha single bond \yl@xdiff=-17\relax \yl@ydiff=31\relax \Put@Line(40,0)(1,0){100}% % single bond at 1 \else\if\@tmpb D%alpha single bond \yl@xdiff=-17\relax \yl@ydiff=31\relax \Put@Line(40,10)(1,0){100}% % single bond at 1 \Put@Line(40,-10)(1,0){100}% % single bond at 1 \else\if\@tmpb T%alpha single bond \yl@xdiff=-17\relax \yl@ydiff=31\relax \Put@Line(40,15)(1,0){100}% % single bond at 1 \Put@Line(40,0)(1,0){100}% % single bond at 1 \Put@Line(40,-15)(1,0){100}% % single bond at 1 \else\ifx\@tmpb\empty%alpha single bond \yl@xdiff=-17\relax \yl@ydiff=31\relax \Put@Line(40,0)(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@Line(0,0)(1,0){140}% % single bond at 1 }% \else\if\@tmpb A%alpha single bond \yl@xdiff=-17\relax \yl@ydiff=31\relax \dotorline(0,0)(1,0){140}/(0,0)(140,0)% \else\if\@tmpb U%beta single bond \yl@xdiff=-17\relax \yl@ydiff=31\relax {% \WaveBonds% \Put@Line(0,0)(1,0){140}% % single bond at 1 }% \else\if\@tmpb S%alpha single bond \yl@xdiff=-17\relax \yl@ydiff=31\relax \Put@Line(0,0)(1,0){140}% % single bond at 1 \else\if\@tmpb D%alpha single bond \yl@xdiff=-17\relax \yl@ydiff=31\relax \Put@Line(0,10)(1,0){140}% % single bond at 1 \Put@Line(0,-10)(1,0){140}% % single bond at 1 \else\if\@tmpb T%alpha single bond \yl@xdiff=-17\relax \yl@ydiff=31\relax \Put@Line(0,-15)(1,0){140}% % single bond at 1 \Put@Line(0,0)(1,0){140}% % single bond at 1 \Put@Line(0,15)(1,0){140}% % single bond at 1 \else\ifx\@tmpb\empty%alpha single bond \yl@xdiff=-17\relax \yl@ydiff=31\relax \Put@Line(0,0)(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@Line(0,-40)(0,-1){100}% % single bond at 1 }% \else\if\@tmpb A%alpha single bond \yl@xdiff=31\relax \yl@ydiff=90\relax \dotorline(0,-40)(0,-1){100}/(0,-40)(0,-140)% \else\if\@tmpb U%beta single bond \yl@xdiff=31\relax \yl@ydiff=90\relax {% \WaveBonds% \Put@Line(0,-40)(0,-1){100}% % single bond at 1 }% \else\if\@tmpb S%alpha single bond \yl@xdiff=31\relax \yl@ydiff=90\relax \Put@Line(0,-40)(0,-1){100}% % single bond at 1 \else\if\@tmpb D%alpha single bond \yl@xdiff=31\relax \yl@ydiff=90\relax \Put@Line(10,-40)(0,-1){100}% % single bond at 1 \Put@Line(-10,-40)(0,-1){100}% % single bond at 1 \else\if\@tmpb T%alpha single bond \yl@xdiff=31\relax \yl@ydiff=90\relax \Put@Line(15,-40)(0,-1){100}% % single bond at 1 \Put@Line(0,-40)(0,-1){100}% % single bond at 1 \Put@Line(-15,-40)(0,-1){100}% % single bond at 1 \else\ifx\@tmpb\empty%alpha single bond \yl@xdiff=31\relax \yl@ydiff=90\relax \Put@Line(0,-40)(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@Line(0,0)(0,-1){140}% % single bond at 1 }% \else\if\@tmpb A%alpha single bond \yl@xdiff=31\relax \yl@ydiff=90\relax \dotorline(0,0)(0,-1){140}/(0,0)(0,-140)% \else\if\@tmpb U%beta single bond \yl@xdiff=31\relax \yl@ydiff=90\relax {% \WaveBonds% \Put@Line(0,0)(0,-1){140}% % single bond at 1 }% \else\if\@tmpb S%alpha single bond \yl@xdiff=31\relax \yl@ydiff=90\relax \Put@Line(0,0)(0,-1){140}% % single bond at 1 \else\if\@tmpb D%alpha single bond \yl@xdiff=31\relax \yl@ydiff=90\relax \Put@Line(10,0)(0,-1){140}% % single bond at 1 \Put@Line(-10,0)(0,-1){140}% % single bond at 1 \else\if\@tmpb T%alpha single bond \yl@xdiff=31\relax \yl@ydiff=90\relax \Put@Line(15,0)(0,-1){140}% % single bond at 1 \Put@Line(0,0)(0,-1){140}% % single bond at 1 \Put@Line(-15,0)(0,-1){140}% % single bond at 1 \else\ifx\@tmpb\empty%alpha single bond \yl@xdiff=31\relax \yl@ydiff=90\relax \Put@Line(0,0)(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=20\relax \yl@ydiff=18\relax \if\@tmpb B%beta single bond {% \thicklines% \Put@Line(-30,18)(-5,3){100}% % single bond at 1 }% \else\if\@tmpb A%alpha single bond \dotorline(-30,18)(-5,3){100}/(-30,18)(-130,78)% \else\if\@tmpb U%unspecified single bond {% \WaveBonds% \Put@Line(-30,18)(-5,3){100}% % single bond at 1 }% \else\if\@tmpb S%beta single bond \Put@Line(-30,18)(-5,3){100}% % single bond at 1 \else\if\@tmpb D%beta single bond \Put@Line(-36,8)(-5,3){100}% % single bond at 1 \Put@Line(-24,24)(-5,3){100}% % single bond at 1 \else\if\@tmpb T%beta single bond \Put@Line(-39,3)(-5,3){100}% % single bond at 1 \Put@Line(-30,18)(-5,3){100}% % single bond at 1 \Put@Line(-21,33)(-5,3){100}% % single bond at 1 \else\ifx\@tmpb\empty%beta single bond \Put@Line(-30,18)(-5,3){100}% % single bond at 1 \fi\fi\fi\fi\fi\fi\fi% \putlatom{-150}{60}{\@memberb}% % left type \else%no clipping \yl@xdiff=20\relax \yl@ydiff=18\relax \if\@tmpb B%beta single bond {% \thicklines% \Put@Line(0,0)(-5,3){130}% % single bond at 1 }% \else\if\@tmpb A%alpha single bond \dotorline(0,0)(-5,3){130}/(0,0)(-130,78)% \else\if\@tmpb U%unspecified single bond {% \WaveBonds% \Put@Line(0,0)(-5,3){130}% % single bond at 1 }% \else\if\@tmpb S%beta single bond \Put@Line(0,0)(-5,3){130}% % single bond at 1 \else\if\@tmpb D%beta single bond \Put@Line(6,10)(-5,3){130}% % single bond at 1 \Put@Line(-6,-10)(-5,3){130}% % single bond at 1 \else\if\@tmpb T%beta single bond \Put@Line(9,15)(-5,3){130}% % single bond at 1 \Put@Line(0,0)(-5,3){130}% % single bond at 1 \Put@Line(-9,-15)(-5,3){130}% % single bond at 1 \else\ifx\@tmpb\empty%beta single bond \Put@Line(0,0)(-5,3){130}% % single bond at 1 \fi\fi\fi\fi\fi\fi\fi% \putlatom{-150}{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@Line(30,-18)(5,-3){100}% % single bond at 1 }% \else\if\@tmpb A%alpha single bond \dotorline(30,-18)(5,-3){100}/(30,-18)(130,-78)% \else\if\@tmpb U%unspecified single bond {% \WaveBonds% \Put@Line(30,-18)(5,-3){100}% % single bond at 1 }% \else\if\@tmpb S%alpha single bond \Put@Line(30,-18)(5,-3){100}% % single bond at 1 \else\if\@tmpb D%alpha single bond \Put@Line(36,-12)(5,-3){100}% % single bond at 1 \Put@Line(24,-28)(5,-3){100}% % single bond at 1 \else\if\@tmpb T%alpha single bond \Put@Line(39,-3)(5,-3){100}% % single bond at 1 \Put@Line(30,-18)(5,-3){100}% % single bond at 1 \Put@Line(21,-33)(5,-3){100}% % single bond at 1 \else\ifx\@tmpb\empty%alpha single bond \Put@Line(30,-18)(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@Line(0,0)(5,-3){130}% % single bond at 1 }% \else\if\@tmpb A%alpha single bond \dotorline(0,0)(5,-3){130}/(0,0)(130,-78)% \else\if\@tmpb U%unspecified single bond {% \WaveBonds% \Put@Line(0,0)(5,-3){130}% % single bond at 1 }% \else\if\@tmpb S%alpha single bond \Put@Line(0,0)(5,-3){130}% % single bond at 1 \else\if\@tmpb D%alpha single bond \Put@Line(6,10)(5,-3){130}% % single bond at 1 \Put@Line(-6,-10)(5,-3){130}% % single bond at 1 \else\if\@tmpb T%alpha single bond \Put@Line(9,15)(5,-3){130}% % single bond at 1 \Put@Line(0,0)(5,-3){130}% % single bond at 1 \Put@Line(-9,-15)(5,-3){130}% % single bond at 1 \else\ifx\@tmpb\empty%alpha single bond \Put@Line(0,0)(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=-30\relax \yl@ydiff=18\relax \if\@tmpb B%beta single bond {% \thicklines% \Put@Line(30,18)(5,3){100}% % single bond at 1 }% \else\if\@tmpb A%alpha single bond \dotorline(30,18)(5,3){100}/(30,18)(130,78)% \else\if\@tmpb U%unspecified single bond {% \WaveBonds% \Put@Line(30,18)(5,3){100}% % single bond at 1 }% \else\if\@tmpb S%beta single bond \Put@Line(30,18)(5,3){100}% % single bond at 1 \else\if\@tmpb D%beta single bond \Put@Line(36,8)(5,3){100}% % single bond at 1 \Put@Line(24,24)(5,3){100}% % single bond at 1 \else\if\@tmpb T%beta single bond \Put@Line(39,3)(5,3){100}% % single bond at 1 \Put@Line(30,18)(5,3){100}% % single bond at 1 \Put@Line(21,33)(5,3){100}% % single bond at 1 \else\ifx\@tmpb\empty%beta single bond \Put@Line(30,18)(5,3){100}% % single bond at 1 \fi\fi\fi\fi\fi\fi\fi% \putratom{160}{60}{\@memberb}% % right type \else%no clipping \yl@xdiff=-30\relax \yl@ydiff=18\relax \if\@tmpb B%beta single bond {% \thicklines% \Put@Line(0,0)(5,3){130}% % single bond at 1 }% \else\if\@tmpb A%alpha single bond \dotorline(0,0)(5,3){120}/(0,0)(130,78)% \else\if\@tmpb U%unspecified single bond {% \WaveBonds% \Put@Line(0,0)(5,3){130}% % single bond at 1 }% \else\if\@tmpb S%beta single bond \Put@Line(0,0)(5,3){130}% % single bond at 1 \else\if\@tmpb D%beta single bond \Put@Line(6,-10)(5,3){130}% % single bond at 1 \Put@Line(-6,10)(5,3){130}% % single bond at 1 \else\if\@tmpb T%beta single bond \Put@Line(9,-15)(5,3){130}% % single bond at 1 \Put@Line(0,0)(5,3){130}% % single bond at 1 \Put@Line(-9,15)(5,3){130}% % single bond at 1 \else\ifx\@tmpb\empty%beta single bond \Put@Line(0,0)(5,3){130}% % single bond at 1 \fi\fi\fi\fi\fi\fi\fi% \putratom{160}{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@Line(-30,-18)(-5,-3){100}% % single bond at 1 }% \else\if\@tmpb A%alpha single bond \dotorline(-35,-21)(-5,-3){100}/(-35,-21)(-120,-72)% \else\if\@tmpc U%unspecified single bond {% \WaveBonds% \Put@Line(-35,-21)(-5,-3){100}% % single bond at 1 }% \else\if\@tmpc S%alpha single bond \Put@Line(-35,-21)(-5,-3){100}% % single bond at 1 \else\if\@tmpb D%double bond \Put@Line(-36,-12)(-5,-3){100}% % single bond at 1 \Put@Line(-24,-28)(-5,-3){100}% % single bond at 1 \else\if\@tmpb T%triple bond \Put@Line(-39,-3)(-5,-3){100}% % single bond at 1 \Put@Line(-30,-18)(-5,-3){100}% % single bond at 1 \Put@Line(-21,-33)(-5,-3){100}% % single bond at 1 \else\ifx\@tmpc\empty%alpha single bond \Put@Line(-35,-21)(-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@Line(0,0)(-5,-3){130}% % single bond at 1 }% \else\if\@tmpb A%alpha single bond \dotorline(0,0)(-5,-3){130}/(0,0)(-130,-78)% \else\if\@tmpc U%unspecified single bond {% \WaveBonds% \Put@Line(0,0)(-5,-3){130}% % single bond at 1 }% \else\if\@tmpc S%alpha single bond \Put@Line(0,0)(-5,-3){130}% % single bond at 1 \else\if\@tmpb D%alpha single bond \Put@Line(-6,10)(-5,-3){130}% % single bond at 1 \Put@Line(6,-10)(-5,-3){130}% % single bond at 1 \else\if\@tmpb T%alpha single bond \Put@Line(-9,15)(-5,-3){130}% % single bond at 1 \Put@Line(0,0)(-5,-3){130}% % single bond at 1 \Put@Line(9,-15)(-5,-3){130}% % single bond at 1 \else\ifx\@tmpc\empty%alpha single bond \Put@Line(0,0)(-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@Line(-30,0)(-1,0){110}% % single bond at 1 }% \else\if\@tmpb A%alpha single bond \dotorline(-30,0)(-1,0){110}/(-30,0)(-140,0)% \else\if\@tmpb U%beta single bond {% \WaveBonds% \Put@Line(-30,0)(-1,0){110}% % single bond at 1 }% \else\if\@tmpb S%alpha single bond \Put@Line(-40,0)(-1,0){100}% % single bond at 1 \else\if\@tmpb D%alpha single bond \Put@Line(-40,10)(-1,0){100}% % single bond at 1 \Put@Line(-40,-10)(-1,0){100}% % single bond at 1 \else\if\@tmpb T%alpha single bond \Put@Line(-40,15)(-1,0){100}% % single bond at 1 \Put@Line(-40,0)(-1,0){100}% % single bond at 1 \Put@Line(-40,-15)(-1,0){100}% % single bond at 1 \else\ifx\@tmpb\empty%alpha single bond \Put@Line(-40,0)(-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@Line(0,0)(-1,0){140}% % single bond at 1 }% \else\if\@tmpb A%alpha single bond \dotorline(0,0)(-1,0){140}/(0,0)(-140,0)% \else\if\@tmpb U%beta single bond {% \WaveBonds% \Put@Line(0,0)(-1,0){140}% % single bond at 1 }% \else\if\@tmpb S%alpha single bond \Put@Line(0,0)(-1,0){140}% % single bond at 1 \else\if\@tmpb D%alpha single bond \Put@Line(0,10)(-1,0){140}% % single bond at 1 \Put@Line(0,-10)(-1,0){140}% % single bond at 1 \else\if\@tmpb T%alpha single bond \Put@Line(0,-15)(-1,0){140}% % single bond at 1 \Put@Line(0,0)(-1,0){140}% % single bond at 1 \Put@Line(0,15)(-1,0){140}% % single bond at 1 \else\ifx\@tmpb\empty%alpha single bond \Put@Line(0,0)(-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 \reset@@yl%%2013/06/19bug fix \@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@Line(-30,0)(-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@Line(-30,18)(-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 \dotorline(-30,-18)(-5,-3){100}/(-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@Line(-30,-18)(-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 \dotorline(-30,18)(-5,3){100}/(-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@Line(-30,18)(-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@Line(-30,-18)(-5,-3){100}% % single bond at 1 \else\if\@tmpc V%(V) beta undefined \yl@xdiff=27\relax \yl@ydiff=36\relax \putlatom{-157}{42}{\@memberb}% % left type {% \WaveBonds% \Put@Line(-30,18)(-5,3){100}% % single bond at 1 }% \else\if\@tmpc U%(U) alpha undefined \yl@xdiff=27\relax \yl@ydiff=28\relax \putlatom{-157}{-100}{\@memberb}% % left type {% \WaveBonds% \Put@Line(-30,-18)(-5,-3){100}% % single bond at 1 }% \fi\fi\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@Line(-30,-12)(-1,0){110}% % double bond at 1 \Put@Line(-30,12)(-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@Line(-30,0)(-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 \dotorline(-30,0)(-1,0){110}/(-30,0)(-140,0)% \else\if\@tmpb U%undefined single bond \yl@xdiff=17\relax \yl@ydiff=31\relax \putlatom{-157}{-31}{\@memberb}% % left type only {% \WaveBonds% \Put@Line(-30,0)(-1,0){110}% % single wave bond at 1 }% \else\if\@tmpb F%fused bond {\let\@tmpb=\@tmpc\@clipfusetrue \Put@Direct(0,0){\setatombondG}% }% \else\if\@tmpb G%fused bond {\let\@tmpb=\@tmpc\@clipfusetrue \Put@Direct(0,0){\setatombondD}% }% \else% \yl@xdiff=17\relax \yl@ydiff=31\relax \putlatom{-157}{-31}{\@memberb}% % left type only \Put@Line(-40,0)(-1,0){100}% % single bond at 1 \fi\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@Line(0,0)(-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@Line(0,0)(-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 \dotorline(0,0)(-5,-3){120}/(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@Line(0,0)(-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 \dotorline(0,0)(-5,3){120}/(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@Line(0,0)(-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@Line(0,0)(-5,-3){120}% % single bond at 1 \else\if\@tmpc V%(V) beta undefined \yl@xdiff=37\relax \yl@ydiff=30\relax \putlatom{-157}{42}{\@memberb}% % left type {% \WaveBonds% \Put@Line(0,0)(-5,3){120}% % single bond at 1 }% \else\if\@tmpc U%(U) alpha undefined \yl@xdiff=37\relax \yl@ydiff=28\relax \putlatom{-157}{-100}{\@memberb}% % left type {% \WaveBonds% \Put@Line(0,0)(-5,-3){120}% % single bond at 1 }% \fi\fi\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@Line(0,-12)(-1,0){140}% % double bond at 1 \Put@Line(0,12)(-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@Line(0,0)(-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 \dotorline(0,0)(-1,0){140}/(0,0)(-140,0)% \else\if\@tmpb U%undefined single bond \yl@xdiff=17\relax \yl@ydiff=31\relax \putlatom{-157}{-31}{\@memberb}% % left type only {% \WaveBonds% \Put@Line(0,0)(-1,0){140}% % single wave bond at 1 }% \else\if\@tmpb F%fused bond {\let\@tmpb=\@tmpc\@clipfusefalse \Put@Direct(0,0){\setatombondG}% }% \else\if\@tmpb G%fused bond {\let\@tmpb=\@tmpc\@clipfusefalse \Put@Direct(0,0){\setatombondD}% }% \else% \yl@xdiff=17\relax \yl@ydiff=31\relax \putlatom{-157}{-31}{\@memberb}% % left type only \Put@Line(0,0)(-1,0){140}% % single bond at 1 \fi\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=53\relax \yl@ydiff=5\relax \putlratom{-37}{331}{\@memberb}% \Put@Line(79,221)(-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@Line(59,201)(-5,3){100}% % single bond at 2 }% \else\if\@tmpc A%(A) alpha \yl@xdiff=30\relax \yl@ydiff=-10\relax \putratom{73}{331}{\@memberb}% % right type \dotorline(103,221)(0,1){100}/(103,221)(103,321)% \else\if\@tmpc u%(u) up --- (B) beta \yl@xdiff=30\relax \yl@ydiff=-10\relax \putlratom{73}{331}{\@memberb}% % left-right type {% \thicklines% \Put@Line(103,221)(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 \dotorline(59,201)(-5,3){100}/(59,201)(-41,261)% \else\if\@tmpc b%(b) beta \yl@xdiff=0\relax \yl@ydiff=21\relax \putlatom{-41}{240}{\@memberb}% % left type \Put@Line(59,201)(-5,3){100}% % single bond at 2 \else\if\@tmpc a%(a) alpha \yl@xdiff=30\relax \yl@ydiff=-10\relax \putlratom{73}{331}{\@memberb}% % left-right type \Put@Line(103,221)(0,1){100}% % single bond at 2 \else\if\@tmpc V%(V) beta undefined \yl@xdiff=0\relax \yl@ydiff=21\relax \putlatom{-41}{240}{\@memberb}% % left type {% \WaveBonds% \Put@Line(59,201)(-5,3){100}% % single bond at 2 }% \else\if\@tmpc U%(U) alpha undefined \yl@xdiff=30\relax \yl@ydiff=-10\relax \putlratom{73}{331}{\@memberb}% % left-right type {% \WaveBonds% \Put@Line(103,221)(0,1){100}% % single bond at 2 }% \fi\fi\fi\fi\fi% \fi\fi\fi\fi \else\if\@tmpb D%double bond \yl@xdiff=59\relax \yl@ydiff=-13\relax \putlratom{-37}{331}{\@memberb}% \Put@Line(78,208)(-3,5){63}% % double bond at 2(62->63) \Put@Line(100,219)(-3,5){63}% % double bond at 2(62->63) \else\if\@tmpb B%beta single bond \yl@xdiff=53\relax \yl@ydiff=5\relax \putlratom{-37}{331}{\@memberb}% {% \thicklines% \Put@Line(79,221)(-3,5){63}% % single bond at 2 (62->63) }% \else\if\@tmpb A%alpha single bond \yl@xdiff=53\relax \yl@ydiff=5\relax \putlratom{-37}{331}{\@memberb}% \dotorline(79,221)(-3,5){63}/(79,221)(16,326)% \else\if\@tmpb U%undefined single bond \yl@xdiff=53\relax \yl@ydiff=5\relax \putlratom{-37}{331}{\@memberb}% {% \WaveBonds% \Put@Line(79,221)(-3,5){63}% % single wave bond at 1 }% \else\if\@tmpb F%fused bond {\let\@tmpb=\@tmpc\@clipfusetrue \Put@Direct(103,171){\setatombondh}% }% \else\if\@tmpb G%fused bond {\let\@tmpb=\@tmpc\@clipfusetrue \Put@Direct(103,171){\setatombondF}% }% \else% \yl@xdiff=53\relax \yl@ydiff=5\relax \putlratom{-37}{331}{\@memberb}% \Put@Line(79,221)(-3,5){63}% % single bond at 2 (62->63) \fi\fi\fi\fi% \fi\fi\fi \else%%no clipping \if\@tmpb S%single bond \ifx\@tmpc\empty% \yl@xdiff=58\relax \yl@ydiff=-21\relax \putlratom{-27}{311}{\@memberb}% \Put@Line(103,171)(-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@Line(103,171)(-5,3){120}% % single bond at 2 }% \else\if\@tmpc A%(A) alpha \yl@xdiff=30\relax \yl@ydiff=-20\relax \putlratom{73}{331}{\@memberb}% % left-right type \dotorline(103,171)(0,1){140}/(103,171)(103,311)% \else\if\@tmpc u%(u) up --- (B) beta \yl@xdiff=30\relax \yl@ydiff=-20\relax \putlratom{73}{331}{\@memberb}% % left-right type {% \thicklines% \Put@Line(103,171)(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 \dotorline(103,171)(-5,3){120}/(103,171)(-7,243)% \else\if\@tmpc b%(b) beta \yl@xdiff=14\relax \yl@ydiff=-3\relax \putlatom{-31}{240}{\@memberb}% % left type \Put@Line(103,171)(-5,3){120}% % single bond at 2 \else\if\@tmpc a%(a) alpha \yl@xdiff=30\relax \yl@ydiff=-20\relax \putlratom{73}{331}{\@memberb}% % left-right type \Put@Line(103,171)(0,1){140}% % single bond at 2 \else\if\@tmpc V%(V) beta undefined \yl@xdiff=14\relax \yl@ydiff=-3\relax \putlatom{-31}{240}{\@memberb}% % left type {% \WaveBonds% \Put@Line(103,171)(-5,3){120}% % single bond at 2 }% \else\if\@tmpc U%(U) alpha undefined \yl@xdiff=30\relax \yl@ydiff=-20\relax \putlratom{73}{331}{\@memberb}% % left-right type {% \WaveBonds% \Put@Line(103,171)(0,1){140}% % single bond at 2 }% \fi\fi\fi\fi\fi% \fi\fi\fi\fi \else\if\@tmpb D%double bond \yl@xdiff=64\relax \yl@ydiff=-21\relax \putlratom{-27}{311}{\@memberb}% \Put@Line(96,168)(-3,5){72}% % double bond at 2 \Put@Line(121,174)(-3,5){72}% % double bond at 2 \else\if\@tmpb B%beta single bond \yl@xdiff=58\relax \yl@ydiff=-21\relax \putlratom{-27}{311}{\@memberb}% {% \thicklines% \Put@Line(103,171)(-3,5){72}% % single bond at 2 }% \else\if\@tmpb A%alpha single bond \yl@xdiff=58\relax \yl@ydiff=-21\relax \putlratom{-27}{311}{\@memberb}% \dotorline(103,171)(-3,5){72}/(103,171)(31,291)% \else\if\@tmpb U%undefined single bond \yl@xdiff=58\relax \yl@ydiff=-21\relax \putlratom{-27}{311}{\@memberb}% {% \WaveBonds% \Put@Line(103,171)(-3,5){72}% % single wave bond at 1 }% \else\if\@tmpb F%fused bond {\let\@tmpb=\@tmpc\@clipfusefalse \Put@Direct(103,171){\setatombondh}% }% \else\if\@tmpb G%fused bond {\let\@tmpb=\@tmpc\@clipfusefalse \Put@Direct(103,171){\setatombondF}% }% \else% \yl@xdiff=58\relax \yl@ydiff=-21\relax \putlratom{-27}{311}{\@memberb}% \Put@Line(103,171)(-3,5){72}% % single bond at 2 \fi\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=33\relax \yl@ydiff=5\relax \putratom{373}{331}{\@memberb}% \Put@Line(343,221)(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@Line(343,201)(5,3){100}% % single bond at 3 }% \else\if\@tmpc A%(A) alpha \yl@xdiff=30\relax \yl@ydiff=0\relax \putlratom{273}{331}{\@memberb}% % left-right type \dotorline(303,221)(0,1){110}/(303,221)(303,321)% \else\if\@tmpc u%(u) up --- (B) beta \yl@xdiff=30\relax \yl@ydiff=0\relax \putlratom{273}{331}{\@memberb}% % left-right type {% \thicklines% \Put@Line(303,221)(0,1){100}% % 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 \dotorline(343,201)(5,3){100}/(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@Line(343,201)(5,3){100}% % single bond at 3 \else\if\@tmpc a%(a) alpha \yl@xdiff=30\relax \yl@ydiff=0\relax \putlratom{273}{331}{\@memberb}% % left-right type \Put@Line(303,221)(0,1){100}% % single bond at 3 \else\if\@tmpc V%(V) beta undefined \yl@xdiff=0\relax \yl@ydiff=21\relax \putratom{443}{240}{\@memberb}% % right type {% \WaveBonds% \Put@Line(343,201)(5,3){100}% % single bond at 3 }% \else\if\@tmpc U%(U) alpha undefined \yl@xdiff=30\relax \yl@ydiff=0\relax \putlratom{273}{331}{\@memberb}% % left-right type {% \WaveBonds% \Put@Line(303,221)(0,1){100}% % single bond at 3 }% \fi\fi\fi\fi\fi% \fi\fi\fi\fi \else\if\@tmpb D%double bond \yl@xdiff=12\relax \yl@ydiff=-18\relax \putratom{373}{331}{\@memberb}% \Put@Line(328,208)(3,5){63}% % double bond at 3 \Put@Line(303,214)(3,5){63}% % double bond at 3 \else\if\@tmpb B%beta single bond \yl@xdiff=33\relax \yl@ydiff=5\relax \putratom{373}{331}{\@memberb}% {% \thicklines% \Put@Line(343,221)(3,5){63}% % single bond at 3 }% \else\if\@tmpb A%alpha single bond \yl@xdiff=33\relax \yl@ydiff=5\relax \putratom{373}{331}{\@memberb}% \dotorline(343,221)(3,5){63}/(343,221)(406,326)% \else\if\@tmpb U%undefined single bond \yl@xdiff=33\relax \yl@ydiff=5\relax \putratom{373}{331}{\@memberb}% {% \WaveBonds% \Put@Line(343,221)(3,5){63}% % single wave bond at 3 }% \else\if\@tmpb F%fused bond {\let\@tmpb=\@tmpc\@clipfusetrue \Put@Direct(303,171){\setatombondD}% }% \else\if\@tmpb G%fused bond {\let\@tmpb=\@tmpc\@clipfusetrue \Put@Direct(303,171){\setatombondb}% }% \else% \yl@xdiff=33\relax \yl@ydiff=5\relax \putratom{373}{331}{\@memberb}% \Put@Line(343,221)(3,5){63}% % single bond at 3 (62->63) \fi\fi\fi\fi% \fi\fi\fi \else%no clipping \if\@tmpb S%single bond \ifx\@tmpc\empty% \yl@xdiff=12\relax \yl@ydiff=-20\relax \putratom{363}{311}{\@memberb}% \Put@Line(303,171)(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@Line(303,171)(5,3){120}% % single bond at 3 }% \else\if\@tmpc A%(A) alpha \yl@xdiff=30\relax \yl@ydiff=-20\relax \putratom{273}{331}{\@memberb}% % right type \dotorline(303,171)(0,1){140}/(303,171)(303,311)% \else\if\@tmpc u%(u) up --- (B) beta \yl@xdiff=30\relax \yl@ydiff=-20\relax \putratom{273}{331}{\@memberb}% % right type {% \thicklines% \Put@Line(303,171)(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 \dotorline(303,171)(5,3){120}/(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@Line(303,171)(5,3){120}% % single bond at 3 \else\if\@tmpc a%(a) alpha \yl@xdiff=30\relax \yl@ydiff=-20\relax \putratom{273}{331}{\@memberb}% % right type \Put@Line(303,171)(0,1){140}% % single bond at 3 \else\if\@tmpc V%(V) beta undefined \yl@xdiff=-20\relax \yl@ydiff=3\relax \putratom{443}{240}{\@memberb}% % right type {% \WaveBonds% \Put@Line(303,171)(5,3){120}% % single bond at 3 }% \else\if\@tmpc U%(U) alpha undefined \yl@xdiff=30\relax \yl@ydiff=-20\relax \putratom{273}{331}{\@memberb}% % right type {% \WaveBonds% \Put@Line(303,171)(0,1){140}% % single bond at 3 }% \fi\fi\fi\fi\fi% \fi\fi\fi\fi% \else\if\@tmpb D%double bond \yl@xdiff=6\relax \yl@ydiff=-20\relax \putratom{363}{311}{\@memberb}% \Put@Line(310,168)(3,5){72}% % double bond at 3 \Put@Line(284,174)(3,5){72}% % double bond at 3 \else\if\@tmpb B%beta single bond \yl@xdiff=12\relax \yl@ydiff=-20\relax \putratom{363}{311}{\@memberb}% {% \thicklines% \Put@Line(303,171)(3,5){72}% % single bond at 3 }% \else\if\@tmpb A%alpha single bond \yl@xdiff=12\relax \yl@ydiff=-20\relax \putratom{363}{311}{\@memberb}% \dotorline(303,171)(3,5){72}/(303,171)(375,291)% \else\if\@tmpb U%undefined single bond \yl@xdiff=12\relax \yl@ydiff=-20\relax \putratom{363}{311}{\@memberb}% {% \WaveBonds% \Put@Line(303,171)(3,5){72}% % single wave bond at 3 }% \else\if\@tmpb F%fused bond {\let\@tmpb=\@tmpc\@clipfusefalse \Put@Direct(303,171){\setatombondD}% }% \else\if\@tmpb G%fused bond {\let\@tmpb=\@tmpc\@clipfusefalse \Put@Direct(303,171){\setatombondb}% }% \else% \yl@xdiff=12\relax \yl@ydiff=-20\relax \putratom{363}{311}{\@memberb}% \Put@Line(303,171)(3,5){72}% % single bond at 3 \fi\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@Line(436,0)(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@Line(436,18)(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 \dotorline(436,-18)(5,-3){100}/(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@Line(436,-18)(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 \dotorline(436,18)(5,3){100}/(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@Line(436,18)(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@Line(436,-18)(5,-3){100}% % single bond at 4 \else\if\@tmpc V%(V) beta undefined \yl@xdiff=-27\relax \yl@ydiff=36\relax \putratom{563}{42}{\@memberb}% % right type only {% \WaveBonds% \Put@Line(436,18)(5,3){100}% % single bond at 4 }% \else\if\@tmpc U%(U) alpha undefined \yl@xdiff=-27\relax \yl@ydiff=22\relax \putratom{563}{-100}{\@memberb}% % right type only {% \WaveBonds% \Put@Line(436,-18)(5,-3){100}% % single bond at 4 }% \fi\fi\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@Line(436,-12)(1,0){110}% % double bond at 4 \Put@Line(436,12)(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@Line(436,0)(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 \dotorline(436,0)(1,0){110}/(436,0)(546,0)% \else\if\@tmpb U%undefined single bond \yl@xdiff=-17\relax \yl@ydiff=31\relax \putratom{563}{-31}{\@memberb}% % right type only {% \WaveBonds% \Put@Line(436,0)(1,0){110}% % single wave bond at 3 }% \else\if\@tmpb F%fused bond {\let\@tmpb=\@tmpc\@clipfusetrue \Put@Direct(406,0){\setatombondF}% }% \else\if\@tmpb G%fused bond {\let\@tmpb=\@tmpc\@clipfusetrue \Put@Direct(406,0){\setatombondE}% }% \else% \yl@xdiff=-17\relax \yl@ydiff=31\relax \putratom{563}{-31}{\@memberb}% % right type only \Put@Line(436,0)(1,0){110}% % single bond at 4 \fi\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@Line(406,0)(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@Line(406,0)(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 \dotorline(406,0)(5,-3){120}/(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@Line(406,0)(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 \dotorline(406,0)(5,3){120}/(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@Line(406,0)(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@Line(406,0)(5,-3){120}% % single bond at 4 \else\if\@tmpc V%(V) beta undefined \yl@xdiff=-37\relax \yl@ydiff=30\relax \putratom{563}{42}{\@memberb}% % right type only {% \WaveBonds% \Put@Line(406,0)(5,3){120}% % single bond at 4 }% \else\if\@tmpc U%(U) alpha undefined \yl@xdiff=-37\relax \yl@ydiff=28\relax \putratom{563}{-100}{\@memberb}% % right type only {% \WaveBonds% \Put@Line(406,0)(5,-3){120}% % single bond at 4 }% \fi\fi\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@Line(406,-12)(1,0){140}% % double bond at 4 \Put@Line(406,12)(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@Line(406,0)(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 \dotorline(406,0)(1,0){140}/(406,0)(546,0)% \else\if\@tmpb U%undefined single bond \yl@xdiff=-17\relax \yl@ydiff=31\relax \putratom{563}{-31}{\@memberb}% % right type only {% \WaveBonds% \Put@Line(406,0)(1,0){140}% % single wave bond at 4 }% \else\if\@tmpb F%fused bond {\let\@tmpb=\@tmpc\@clipfusefalse \Put@Direct(406,0){\setatombondF}% }% \else\if\@tmpb G%fused bond {\let\@tmpb=\@tmpc\@clipfusefalse \Put@Direct(406,0){\setatombondE}% }% \else% \yl@xdiff=-17\relax \yl@ydiff=31\relax \putratom{563}{-31}{\@memberb}% % right type only \Put@Line(406,0)(1,0){140}% % single bond at 4 \fi\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=33\relax \yl@ydiff=76\relax \putratom{373}{-402}{\@memberb}% \Put@Line(343,-221)(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@Line(343,-201)(5,-3){100}% % single bond at 5 }% \else\if\@tmpc A%(A) alpha \yl@xdiff=30\relax \yl@ydiff=71\relax \putlratom{273}{-402}{\@memberb}% % left-right type \dotorline(303,-221)(0,-1){110}/(303,-221)(303,-311)% \else\if\@tmpc u%(u) up --- (B) beta \yl@xdiff=30\relax \yl@ydiff=71\relax \putlratom{273}{-402}{\@memberb}% % left-right type {% \thicklines% \Put@Line(303,-221)(0,-1){100}% % 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 \dotorline(343,-201)(5,-3){100}/(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@Line(343,-201)(5,-3){100}% % single bond at 5 \else\if\@tmpc a%(a) alpha \yl@xdiff=30\relax \yl@ydiff=71\relax \putratom{273}{-402}{\@memberb}% % left-right type \Put@Line(303,-221)(0,-1){100}% % single bond at 5 \else\if\@tmpc V%(V) beta undefined \yl@xdiff=0\relax \yl@ydiff=41\relax \putratom{443}{-301}{\@memberb}% % right type {% \WaveBonds% \Put@Line(343,-201)(5,-3){100}% % single bond at 5 }% \else\if\@tmpc U%(U) alpha undefined \yl@xdiff=30\relax \yl@ydiff=71\relax \putratom{273}{-402}{\@memberb}% % left-right type {% \WaveBonds% \Put@Line(303,-221)(0,-1){100}% % single bond at 5 }% \fi\fi\fi\fi\fi% \fi\fi\fi\fi \else\if\@tmpb D%double bond \yl@xdiff=12\relax \yl@ydiff=82\relax \putratom{373}{-402}{\@memberb}% \Put@Line(328,-208)(3,-5){63}% % double bond at 5 (62->63) \Put@Line(306,-224)(3,-5){63}% % double bond at 5 (62->63) \else\if\@tmpb B%beta single bond \yl@xdiff=33\relax \yl@ydiff=76\relax \putratom{373}{-402}{\@memberb}% {% \thicklines% \Put@Line(343,-221)(3,-5){63}%% single bond at 5(62->63) }% \else\if\@tmpb A%alpha single bond \yl@xdiff=33\relax \yl@ydiff=76\relax \putratom{373}{-402}{\@memberb}% \dotorline(343,-221)(3,-5){63}/(343,-221)(406,-326)% \else\if\@tmpb U%undefined single bond \yl@xdiff=33\relax \yl@ydiff=76\relax \putratom{373}{-402}{\@memberb}% {% \WaveBonds% \Put@Line(343,-221)(3,-5){63}% % single wave bond at 5 }% \else\if\@tmpb F%fused bond {\let\@tmpb=\@tmpc\@clipfusetrue \Put@Direct(303,-171){\setatombondb}% }% \else\if\@tmpb G%fused bond {\let\@tmpb=\@tmpc\@clipfusetrue \Put@Direct(303,-171){\setatombondG}% }% \else% \yl@xdiff=33\relax \yl@ydiff=76\relax \putratom{373}{-402}{\@memberb}% \Put@Line(343,-221)(3,-5){63}% % single bond at 5(62->63) \fi\fi\fi\fi% \fi\fi\fi \else%no clipping \if\@tmpb S%single bond \ifx\@tmpc\empty% \yl@xdiff=9\relax \yl@ydiff=91\relax \putratom{363}{-382}{\@memberb}% \Put@Line(303,-171)(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@Line(303,-171)(5,-3){120}% % single bond at 5 }% \else\if\@tmpc A%(A) alpha \yl@xdiff=30\relax \yl@ydiff=81\relax \putratom{273}{-402}{\@memberb}% % right type \dotorline(303,-171)(0,-1){140}/(303,-171)(303,-311)%2002/5/30 \else\if\@tmpc u%(u) up --- (B) beta \yl@xdiff=30\relax \yl@ydiff=81\relax \putratom{273}{-402}{\@memberb}% % right type {% \thicklines% \Put@Line(303,-171)(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 \dotorline(303,-171)(5,-3){120}/(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@Line(303,-171)(5,-3){120}% % single bond at 5 \else\if\@tmpc a%(a) alpha \yl@xdiff=30\relax \yl@ydiff=81\relax \putratom{273}{-402}{\@memberb}% % right type \Put@Line(303,-171)(0,-1){140}% % single bond at 5 \else\if\@tmpc V%(V) beta undefined \yl@xdiff=-20\relax \yl@ydiff=58\relax \putratom{443}{-301}{\@memberb}% % right type {% \WaveBonds% \Put@Line(303,-171)(5,-3){120}% % single bond at 5 }% \else\if\@tmpc U%(U) alpha undefined \yl@xdiff=30\relax \yl@ydiff=81\relax \putratom{273}{-402}{\@memberb}% % right type {% \WaveBonds% \Put@Line(303,-171)(0,-1){140}% % single bond at 5 }% \fi\fi\fi\fi\fi% \fi\fi\fi\fi \else\if\@tmpb D%double bond \yl@xdiff=3\relax \yl@ydiff=91\relax \putratom{363}{-382}{\@memberb}% \Put@Line(310,-168)(3,-5){72}% % double bond at 5 \Put@Line(284,-174)(3,-5){72}% % double bond at 5 \else\if\@tmpb B%beta single bond \yl@xdiff=9\relax \yl@ydiff=91\relax \putratom{363}{-382}{\@memberb}% {% \thicklines% \Put@Line(303,-171)(3,-5){72}% % single bond at 5 }% \else\if\@tmpb A%alpha single bond \yl@xdiff=9\relax \yl@ydiff=91\relax \putratom{363}{-382}{\@memberb}% \dotorline(303,-171)(3,-5){72}/(303,-171)(375,-291)% \else\if\@tmpb U%undefined single bond \yl@xdiff=9\relax \yl@ydiff=91\relax \putratom{363}{-382}{\@memberb}% {% \WaveBonds% \Put@Line(303,-171)(3,-5){72}% % single wave bond at 5 }% \else\if\@tmpb F%fused bond {\let\@tmpb=\@tmpc\@clipfusefalse \Put@Direct(303,-171){\setatombondb}% }% \else\if\@tmpb G%fused bond {\let\@tmpb=\@tmpc\@clipfusefalse \Put@Direct(303,-171){\setatombondG}% }% \else% \yl@xdiff=9\relax \yl@ydiff=91\relax \putratom{363}{-382}{\@memberb}% \Put@Line(303,-171)(3,-5){72}% % single bond at 5 \fi\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=53\relax \yl@ydiff=76\relax \putlratom{-37}{-402}{\@memberb}% \Put@Line(79,-221)(-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@Line(59,-201)(-5,-3){100}% % single bond at 6 }% \else\if\@tmpc A%(A) alpha \yl@xdiff=30\relax \yl@ydiff=81\relax \putlratom{73}{-402}{\@memberb}% % left-right type \dotorline(103,-221)(0,-1){100}/(103,-221)(103,-321)% \else\if\@tmpc u%(u) up --- (B) beta \yl@xdiff=30\relax \yl@ydiff=81\relax \putlratom{73}{-402}{\@memberb}% % left-right type {% \thicklines% \Put@Line(103,-221)(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 \dotorline(59,-201)(-5,-3){100}/(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@Line(59,-201)(-5,-3){100}% % single bond at 6 \else\if\@tmpc a%(a) alpha \yl@xdiff=30\relax \yl@ydiff=81\relax \putratom{73}{-402}{\@memberb}% % right type \Put@Line(103,-221)(0,-1){100}% % single bond at 6 \else\if\@tmpc V%(V) beta undefined \yl@xdiff=-10\relax \yl@ydiff=40\relax \putlatom{-31}{-301}{\@memberb}% % right type {% \WaveBonds% \Put@Line(59,-201)(-5,-3){100}% % single bond at 6 }% \else\if\@tmpc U%(U) alpha undefined \yl@xdiff=30\relax \yl@ydiff=81\relax \putratom{73}{-402}{\@memberb}% % right type {% \WaveBonds% \Put@Line(103,-221)(0,-1){100}% % single bond at 6 }% \fi\fi\fi\fi\fi \fi\fi\fi\fi \else\if\@tmpb D%double bond \yl@xdiff=59\relax \yl@ydiff=82\relax \putlratom{-37}{-402}{\@memberb}% \Put@Line(78,-208)(-3,-5){63}% % double bond at 6 (62->63) \Put@Line(106,-219)(-3,-5){63}% % double bond at 6 (62->63) \else\if\@tmpb B%beta single bond \yl@xdiff=53\relax \yl@ydiff=76\relax \putlratom{-37}{-402}{\@memberb}% {% \thicklines% \Put@Line(79,-221)(-3,-5){63}% % single bond at 6 (62=>63) }% \else\if\@tmpb A%alpha single bond \yl@xdiff=53\relax \yl@ydiff=76\relax \putlratom{-37}{-402}{\@memberb}% \dotorline(79,-221)(-3,-5){63}/(79,-221)(16,-326)% \else\if\@tmpb U%undefined single bond \yl@xdiff=53\relax \yl@ydiff=76\relax \putlratom{-37}{-402}{\@memberb}% {% \WaveBonds% \Put@Line(79,-221)(-3,-5){63}% % single wave bond at 6 }% \else\if\@tmpb F%fused bond {\let\@tmpb=\@tmpc\@clipfusetrue \Put@Direct(103,-171){\setatombondE}% }% \else\if\@tmpb G%fused bond {\let\@tmpb=\@tmpc\@clipfusetrue \Put@Direct(103,-171){\setatombondh}% }% \else% \yl@xdiff=53\relax \yl@ydiff=76\relax \putlratom{-37}{-402}{\@memberb}% \Put@Line(79,-221)(-3,-5){63}% % single bond at 6(62->63) \fi\fi\fi\fi% \fi\fi\fi \else%%no clipping \if\@tmpb S%single bond \ifx\@tmpc\empty% \yl@xdiff=63\relax \yl@ydiff=91\relax \putlratom{-27}{-382}{\@memberb}% \Put@Line(108,-171)(-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@Line(103,-171)(-5,-3){120}% % single bond at 6 }% \else\if\@tmpc A%(A) alpha \yl@xdiff=30\relax \yl@ydiff=91\relax \putlratom{73}{-402}{\@memberb}% % left-right type \dotorline(103,-171)(0,-1){140}/(103,-171)(103,-311)% \else\if\@tmpc u%(u) up --- (B) beta \yl@xdiff=30\relax \yl@ydiff=91\relax \putlratom{73}{-402}{\@memberb}% % left-right type {% \thicklines% \Put@Line(103,-171)(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 \dotorline(103,-171)(-5,-3){120}/(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@Line(103,-171)(-5,-3){120}% % single bond at 6 \else\if\@tmpc a%(a) alpha \yl@xdiff=30\relax \yl@ydiff=91\relax \putlratom{73}{-402}{\@memberb}% % right-left type \Put@Line(103,-171)(0,-1){140}% % single bond at 6 \else\if\@tmpc V%(V) beta undefined \yl@xdiff=8\relax \yl@ydiff=58\relax \putlatom{-31}{-301}{\@memberb}% % right type {% \WaveBonds% \Put@Line(103,-171)(-5,-3){120}% % single bond at 6 }% \else\if\@tmpc U%(U) alpha undefined \yl@xdiff=30\relax \yl@ydiff=91\relax \putlratom{73}{-402}{\@memberb}% % right-left type {% \WaveBonds% \Put@Line(103,-171)(0,-1){140}% % single bond at 6 }% \fi\fi\fi\fi\fi% \fi\fi\fi\fi \else\if\@tmpb D%double bond \yl@xdiff=65\relax \yl@ydiff=91\relax \putlratom{-27}{-382}{\@memberb}% \Put@Line(96,-168)(-3,-5){72}% % double bond at 6 \Put@Line(121,-174)(-3,-5){72}% % double bond at 6 \else\if\@tmpb B%beta single bond \yl@xdiff=59\relax \yl@ydiff=91\relax \putlratom{-27}{-382}{\@memberb}% \Put@Line(108,-171)(-3,-5){72}% % single bond at 6 {% \thicklines% \Put@Line(108,-171)(-3,-5){72}% % single bond at 6 }% \else\if\@tmpb A%alpha single bond \yl@xdiff=59\relax \yl@ydiff=91\relax \putlratom{-27}{-382}{\@memberb}% \dotorline(108,-171)(-3,-5){72}/(103,-171)(31,-291)% \else\if\@tmpb U%undefined single bond \yl@xdiff=59\relax \yl@ydiff=91\relax \putlratom{-27}{-382}{\@memberb}% {% \WaveBonds% \Put@Line(108,-171)(-3,-5){72}% % single wave bond at 6 }% \else\if\@tmpb F%fused bond {\let\@tmpb=\@tmpc\@clipfusefalse \Put@Direct(103,-171){\setatombondE}% }% \else\if\@tmpb G%fused bond {\let\@tmpb=\@tmpc\@clipfusefalse \Put@Direct(103,-171){\setatombondh}% }% \else% \yl@xdiff=59\relax \yl@ydiff=91\relax \putlratom{-27}{-382}{\@memberb}% \Put@Line(108,-171)(-3,-5){72}% % single bond at 6 \fi\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{\setbscolor\@hsubsta\addbscolor{}{}}% subst. on 1%2010/10/01 \or{\setbscolor\@hsubstb\addbscolor{}{}}% subst. on 2%2010/10/01 \or{\setbscolor\@hsubstc\addbscolor{}{}}% subst. on 3%2010/10/01 \or{\setbscolor\@hsubstd\addbscolor{}{}}% subst. on 4%2010/10/01 \or{\setbscolor\@hsubste\addbscolor{}{}}% subst. on 5%2010/10/01 \or{\setbscolor\@hsubstf\addbscolor{}{}}% subst. on 6%2010/10/01 \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{sfpicture}(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{}{}% \let\local@tmpa=\@tmpa%global to local 2002/5/30 by SF \ifcase\local@tmpa% {\setbscolor\setatombonda\addbscolor{}{}}%2010/10/01%\setatombonda% 0 (upward) (0,1) \or{\setbscolor\setatombondF\addbscolor{}{}}%2010/10/01%\or\setatombondF%1 (3,5) \or{\setbscolor\setatombondA\addbscolor{}{}}%2010/10/01%\or\setatombondA%2 (1,1) \or{\setbscolor\setatombondf\addbscolor{}{}}%2010/10/01%\or\setatombondf%3 (5,3) \or{\setbscolor\setatombondb\addbscolor{}{}}%2010/10/01%\or\setatombondb%4 (1,0) \or{\setbscolor\setatombonde\addbscolor{}{}}%2010/10/01%\or\setatombonde%5 (5,-3) \or{\setbscolor\setatombondB\addbscolor{}{}}%2010/10/01%\or\setatombondB%6 (1,-1) \or{\setbscolor\setatombondE\addbscolor{}{}}%2010/10/01%\or\setatombondE%7 (3,-5) \or{\setbscolor\setatombondc\addbscolor{}{}}%2010/10/01%\or\setatombondc%8 (0,-1) \fi%end of ifcase \fi }\end{sfpicture}}% %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@Line(30,50)(3,5){60}% % single bond at 1 }% \else\if\@tmpb A%alpha single bond \yl@xdiff=10\relax \yl@ydiff=-10\relax \dotorline(30,50)(3,5){60}/(30,50)(90,150)% \else\if\@tmpb U%unspecified single bond \yl@xdiff=10\relax \yl@ydiff=-10\relax {% \WaveBonds% \Put@Line(30,50)(3,5){60}% % single bond at 1 }% \else\if\@tmpb S%beta single bond \yl@xdiff=10\relax \yl@ydiff=-10\relax \Put@Line(30,50)(3,5){60}% % single bond at 1 \else\if\@tmpb D%double bond \yl@xdiff=10\relax \yl@ydiff=-10\relax \Put@Line(40,44)(3,5){60}% % single bond at 1 \Put@Line(20,56)(3,5){60}% % single bond at 1 \else\if\@tmpb T%triple bond \yl@xdiff=10\relax \yl@ydiff=-10\relax \Put@Line(45,41)(3,5){60}% % single bond at 1 \Put@Line(30,50)(3,5){60}% % single bond at 1 \Put@Line(15,59)(3,5){60}% % single bond at 1 \else\ifx\@tmpb\empty%beta single bond \yl@xdiff=10\relax \yl@ydiff=-10\relax \Put@Line(30,50)(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@Line(0,0)(3,5){90}% % single bond at 1 }% \else\if\@tmpb A%alpha single bond \yl@xdiff=10\relax \yl@ydiff=-10\relax \dotorline(0,0)(3,5){90}/(0,0)(90,150)% \else\if\@tmpb U%unspecified single bond \yl@xdiff=10\relax \yl@ydiff=-10\relax {% \WaveBonds% \Put@Line(0,0)(3,5){90}% % single bond at 1 }% \else\if\@tmpb S%beta single bond \yl@xdiff=10\relax \yl@ydiff=-10\relax \Put@Line(0,0)(3,5){90}% % single bond at 1 \else\if\@tmpb D%beta single bond \yl@xdiff=10\relax \yl@ydiff=-10\relax \Put@Line(10,-6)(3,5){90}% % single bond at 1 \Put@Line(-10,6)(3,5){90}% % single bond at 1 \else\if\@tmpb T%beta single bond \yl@xdiff=10\relax \yl@ydiff=-10\relax \Put@Line(15,-9)(3,5){90}% % single bond at 1 \Put@Line(0,0)(3,5){90}% % single bond at 1 \Put@Line(-15,9)(3,5){90}% % single bond at 1 \else\ifx\@tmpb\empty%beta single bond \yl@xdiff=10\relax \yl@ydiff=-10\relax \Put@Line(0,0)(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=90\relax \if\@tmpb B%beta single bond {% \thicklines% \Put@Line(30,-50)(3,-5){60}% % single bond at 1 }% \else\if\@tmpb A%alpha single bond \dotorline(30,-50)(3,-5){60}/(30,-50)(90,-150)% \else\if\@tmpb U%unspecified single bond {% \WaveBonds% \Put@Line(30,-50)(3,-5){60}% % single bond at 1 }% \else\if\@tmpb S%beta single bond \Put@Line(30,-50)(3,-5){60}% % single bond at 1 \else\if\@tmpb D%double bond \Put@Line(40,-44)(3,-5){60}% % single bond at 1 \Put@Line(20,-56)(3,-5){60}% % single bond at 1 \else\if\@tmpb T%triple bond \Put@Line(45,-41)(3,-5){60}% % single bond at 1 \Put@Line(30,-50)(3,-5){60}% % single bond at 1 \Put@Line(15,-59)(3,-5){60}% % single bond at 1 \else\ifx\@tmpb\empty%beta single bond \Put@Line(30,-50)(3,-5){60}% % single bond at 1 \fi\fi\fi\fi\fi\fi\fi% \putratom{80}{-240}{\@memberb}% % right type \else%no clipping \yl@xdiff=10\relax \yl@ydiff=90\relax \if\@tmpb B%beta single bond {% \thicklines% \Put@Line(0,0)(3,-5){90}% % single bond at 1 }% \else\if\@tmpb A%alpha single bond \dotorline(0,0)(3,-5){90}/(0,0)(90,-150)% \else\if\@tmpb U%unspecified single bond {% \WaveBonds% \Put@Line(0,0)(3,-5){90}% % single bond at 1 }% \else\if\@tmpb S%beta single bond \Put@Line(0,0)(3,-5){90}% % single bond at 1 \else\if\@tmpb D%beta single bond \Put@Line(10,6)(3,-5){90}% % single bond at 1 \Put@Line(-10,-6)(3,-5){90}% % single bond at 1 \else\if\@tmpb T%beta single bond \Put@Line(15,9)(3,-5){90}% % single bond at 1 \Put@Line(0,0)(3,-5){90}% % single bond at 1 \Put@Line(-15,-9)(3,-5){90}% % single bond at 1 \else\ifx\@tmpb\empty%beta single bond \Put@Line(0,0)(3,-5){90}% % single bond at 1 \fi\fi\fi\fi\fi\fi\fi% \putratom{80}{-240}{\@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@Line(40,40)(1,1){100}% % single bond at 1 }% \else\if\@tmpb A%alpha single bond \dotorline(40,40)(1,1){100}/(40,40)(140,140)% \else\if\@tmpb U%unspecified single bond {% \WaveBonds% \Put@Line(40,40)(1,1){100}% % single bond at 1 }% \else\if\@tmpb S%beta single bond \Put@Line(40,40)(1,1){100}% % single bond at 1 \else\if\@tmpb D%double bond \Put@Line(46,36)(1,1){100}% % single bond at 1 \Put@Line(36,46)(1,1){100}% % single bond at 1 \else\if\@tmpb T%triple bond \Put@Line(50,30)(1,1){100}% % single bond at 1 \Put@Line(40,40)(1,1){100}% % single bond at 1 \Put@Line(30,50)(1,1){100}% % single bond at 1 \else\ifx\@tmpb\empty%beta single bond \Put@Line(40,40)(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@Line(0,0)(1,1){120}% % single bond at 1 }% \else\if\@tmpb A%alpha single bond \dotorline(0,0)(1,1){120}/(0,0)(120,120)% \else\if\@tmpb U%unspecified single bond {% \WaveBonds% \Put@Line(0,0)(1,1){120}% % single bond at 1 }% \else\if\@tmpb S%beta single bond \Put@Line(0,0)(1,1){120}% % single bond at 1 \else\if\@tmpb D%beta single bond \Put@Line(6,-6)(1,1){120}% % single bond at 1 \Put@Line(-6,6)(1,1){120}% % single bond at 1 \else\if\@tmpb T%beta single bond \Put@Line(10,-10)(1,1){120}% % single bond at 1 \Put@Line(0,0)(1,1){120}% % single bond at 1 \Put@Line(-10,10)(1,1){120}% % single bond at 1 \else\ifx\@tmpb\empty%beta single bond \Put@Line(0,0)(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@Line(40,-40)(1,-1){100}% % single bond at 1 }% \else\if\@tmpb A%alpha single bond \dotorline(40,-40)(1,-1){100}/(40,-40)(140,-140)% \else\if\@tmpb U%unspecified single bond {% \WaveBonds% \Put@Line(40,-40)(1,-1){100}% % single bond at 1 }% \else\if\@tmpb S%beta single bond \Put@Line(40,-40)(1,-1){100}% % single bond at 1 \else\if\@tmpb D%double bond \Put@Line(46,-36)(1,-1){100}% % single bond at 1 \Put@Line(36,-46)(1,-1){100}% % single bond at 1 \else\if\@tmpb T%triple bond \Put@Line(50,-30)(1,-1){100}% % single bond at 1 \Put@Line(40,-40)(1,-1){100}% % single bond at 1 \Put@Line(30,-50)(1,-1){100}% % single bond at 1 \else\ifx\@tmpb\empty%beta single bond \Put@Line(40,-40)(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@Line(0,0)(1,-1){120}% % single bond at 1 }% \else\if\@tmpb A%alpha single bond \dotorline(0,0)(1,-1){120}/(0,0)(120,-120)% \else\if\@tmpb U%unspecified single bond {% \WaveBonds% \Put@Line(0,0)(1,-1){120}% % single bond at 1 }% \else\if\@tmpb S%beta single bond \Put@Line(0,0)(1,-1){120}% % single bond at 1 \else\if\@tmpb D%beta single bond \Put@Line(6,6)(1,-1){120}% % single bond at 1 \Put@Line(-6,-6)(1,-1){120}% % single bond at 1 \else\if\@tmpb T%beta single bond \Put@Line(10,10)(1,-1){120}% % single bond at 1 \Put@Line(0,0)(1,-1){120}% % single bond at 1 \Put@Line(-10,-10)(1,-1){120}% % single bond at 1 \else\ifx\@tmpb\empty%beta single bond \Put@Line(0,0)(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{sfpicture}(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{}{}% \let\local@tmpa=\@tmpa%global to local 2002/5/30 by SF \ifcase\local@tmpa% {\setbscolor\setatombonda\addbscolor{}{}}%2010/10/01%\setatombonda% 0 (upward) (0,1) \or{\setbscolor\setatombondD\addbscolor{}{}}%2010/10/01%\or\setatombondD%1 (-3,5) \or{\setbscolor\setatombondH\addbscolor{}{}}%2010/10/01%\or\setatombondH%2 (-1,1) \or{\setbscolor\setatombondd\addbscolor{}{}}%2010/10/01%\or\setatombondd%3 (-5,3) \or{\setbscolor\setatombondh\addbscolor{}{}}%2010/10/01%\or\setatombondh%4 (-1,0) \or{\setbscolor\setatombondg\addbscolor{}{}}%2010/10/01%\or\setatombondg%5 (-5,-3) \or{\setbscolor\setatombondC\addbscolor{}{}}%2010/10/01%\or\setatombondC%6 (-1,-1) \or{\setbscolor\setatombondG\addbscolor{}{}}%2010/10/01%\or\setatombondG%7 (-3,-5) \or{\setbscolor\setatombondc\addbscolor{}{}}%2010/10/01%\or\setatombondc%8 (0,-1) \fi%end of ifcase \fi }\end{sfpicture}}% %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@Line(-30,50)(-3,5){60}% % single bond at 1 }% \else\if\@tmpb A%alpha single bond \yl@xdiff=10\relax \yl@ydiff=-10\relax \dotorline(-30,50)(-3,5){60}/(-30,50)(-90,150)% \else\if\@tmpb U%unspecified single bond \yl@xdiff=10\relax \yl@ydiff=-10\relax {% \WaveBonds% \Put@Line(-30,50)(-3,5){60}% % single bond at 1 }% \else\if\@tmpb S%beta single bond \yl@xdiff=10\relax \yl@ydiff=-10\relax \Put@Line(-30,50)(-3,5){60}% % single bond at 1 \else\if\@tmpb D%double bond \yl@xdiff=10\relax \yl@ydiff=-10\relax \Put@Line(-40,44)(-3,5){60}% % single bond at 1 \Put@Line(-20,56)(-3,5){60}% % single bond at 1 \else\if\@tmpb T%triple bond \yl@xdiff=10\relax \yl@ydiff=-10\relax \Put@Line(-45,41)(-3,5){60}% % single bond at 1 \Put@Line(-30,50)(-3,5){60}% % single bond at 1 \Put@Line(-15,59)(-3,5){60}% % single bond at 1 \else\ifx\@tmpb\empty%beta single bond \yl@xdiff=10\relax \yl@ydiff=-10\relax \Put@Line(-30,50)(-3,5){60}% % single bond at 1 \fi\fi\fi\fi\fi\fi\fi% \putlatom{-100}{160}{\@memberb}% % left type \else%no clipping \if\@tmpb B%beta single bond \yl@xdiff=10\relax \yl@ydiff=-10\relax {% \thicklines% \Put@Line(0,0)(-3,5){90}% % single bond at 1 }% \else\if\@tmpb A%alpha single bond \yl@xdiff=10\relax \yl@ydiff=-10\relax \dotorline(0,0)(-3,5){90}/(0,0)(-90,150)% \else\if\@tmpb U%unspecified single bond \yl@xdiff=10\relax \yl@ydiff=-10\relax {% \WaveBonds% \Put@Line(0,0)(-3,5){90}% % single bond at 1 }% \else\if\@tmpb S%beta single bond \yl@xdiff=10\relax \yl@ydiff=-10\relax \Put@Line(0,0)(-3,5){90}% % single bond at 1 \else\if\@tmpb D%beta single bond \yl@xdiff=10\relax \yl@ydiff=-10\relax \Put@Line(-10,-6)(-3,5){90}% % single bond at 1 \Put@Line(10,6)(-3,5){90}% % single bond at 1 \else\if\@tmpb T%beta single bond \yl@xdiff=10\relax \yl@ydiff=-10\relax \Put@Line(-15,-9)(-3,5){90}% % single bond at 1 \Put@Line(0,0)(-3,5){90}% % single bond at 1 \Put@Line(15,9)(-3,5){90}% % single bond at 1 \else\ifx\@tmpb\empty%beta single bond \yl@xdiff=10\relax \yl@ydiff=-10\relax \Put@Line(0,0)(-3,5){90}% % single bond at 1 \fi\fi\fi\fi\fi\fi\fi% \putlatom{-100}{160}{\@memberb}% % left type \fi% }% end of \setatombondD \def\setatombondG{%% (-3,-5) \if@clipfuse% \yl@xdiff=-10\relax \yl@ydiff=90\relax \if\@tmpb B%beta single bond {% \thicklines% \Put@Line(-30,-50)(-3,-5){60}% % single bond at 1 }% \else\if\@tmpb A%alpha single bond \dotorline(-30,-50)(-3,-5){60}/(-30,-50)(-90,-150)% \else\if\@tmpb U%unspecified single bond {% \WaveBonds% \Put@Line(-30,-50)(-3,-5){60}% % single bond at 1 }% \else\if\@tmpb S%beta single bond \Put@Line(-30,-50)(-3,-5){60}% % single bond at 1 \else\if\@tmpb D%double bond \Put@Line(-40,-44)(-3,-5){60}% % single bond at 1 \Put@Line(-20,-56)(-3,-5){60}% % single bond at 1 \else\if\@tmpb T%triple bond \Put@Line(-45,-41)(-3,-5){60}% % single bond at 1 \Put@Line(-30,-50)(-3,-5){60}% % single bond at 1 \Put@Line(-15,-59)(-3,-5){60}% % single bond at 1 \else\ifx\@tmpb\empty%beta single bond \Put@Line(-30,-50)(-3,-5){60}% % single bond at 1 \fi\fi\fi\fi\fi\fi\fi% \putlatom{-80}{-240}{\@memberb}% % left type \else%no clipping \yl@xdiff=-10\relax \yl@ydiff=90\relax \if\@tmpb B%beta single bond {% \thicklines% \Put@Line(0,0)(-3,-5){90}% % single bond at 1 }% \else\if\@tmpb A%alpha single bond \dotorline(0,0)(-3,-5){90}/(0,0)(-90,-150)% \else\if\@tmpb U%unspecified single bond {% \WaveBonds% \Put@Line(0,0)(-3,-5){90}% % single bond at 1 }% \else\if\@tmpb S%beta single bond \Put@Line(0,0)(-3,-5){90}% % single bond at 1 \else\if\@tmpb D%beta single bond \Put@Line(-10,6)(-3,-5){90}% % single bond at 1 \Put@Line(10,-6)(-3,-5){90}% % single bond at 1 \else\if\@tmpb T%beta single bond \Put@Line(-15,9)(-3,-5){90}% % single bond at 1 \Put@Line(0,0)(-3,-5){90}% % single bond at 1 \Put@Line(15,-9)(-3,-5){90}% % single bond at 1 \else\ifx\@tmpb\empty%beta single bond \Put@Line(0,0)(-3,-5){90}% % single bond at 1 \fi\fi\fi\fi\fi\fi\fi% \putlatom{-80}{-240}{\@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@Line(-40,40)(-1,1){100}% % single bond at 1 }% \else\if\@tmpb A%alpha single bond \dotorline(-40,40)(-1,1){100}/(-40,40)(-140,140)% \else\if\@tmpb U%unspecified single bond {% \WaveBonds% \Put@Line(-40,40)(-1,1){100}% % single bond at 1 }% \else\if\@tmpb S%beta single bond \Put@Line(-40,40)(-1,1){100}% % single bond at 1 \else\if\@tmpb D%double bond \Put@Line(-46,36)(-1,1){100}% % single bond at 1 \Put@Line(-36,46)(-1,1){100}% % single bond at 1 \else\if\@tmpb T%triple bond \Put@Line(-50,30)(-1,1){100}% % single bond at 1 \Put@Line(-40,40)(-1,1){100}% % single bond at 1 \Put@Line(-30,50)(-1,1){100}% % single bond at 1 \else\ifx\@tmpb\empty%beta single bond \Put@Line(-40,40)(-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@Line(0,0)(-1,1){120}% % single bond at 1 }% \else\if\@tmpb A%alpha single bond \dotorline(0,0)(-1,1){120}/(0,0)(-120,120)% \else\if\@tmpb U%unspecified single bond {% \WaveBonds% \Put@Line(0,0)(-1,1){120}% % single bond at 1 }% \else\if\@tmpb S%beta single bond \Put@Line(0,0)(-1,1){120}% % single bond at 1 \else\if\@tmpb D%beta single bond \Put@Line(-6,-6)(-1,1){120}% % single bond at 1 \Put@Line(6,6)(-1,1){120}% % single bond at 1 \else\if\@tmpb T%beta single bond \Put@Line(-10,-10)(-1,1){120}% % single bond at 1 \Put@Line(0,0)(-1,1){120}% % single bond at 1 \Put@Line(10,10)(-1,1){120}% % single bond at 1 \else\ifx\@tmpb\empty%beta single bond \Put@Line(0,0)(-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@Line(-40,-40)(-1,-1){100}% % single bond at 1 }% \else\if\@tmpb A%alpha single bond \dotorline(-40,-40)(-1,-1){100}/(-40,-40)(-140,-140)% \else\if\@tmpb U%unspecified single bond {% \WaveBonds% \Put@Line(-40,-40)(-1,-1){100}% % single bond at 1 }% \else\if\@tmpb S%beta single bond \Put@Line(-40,-40)(-1,-1){100}% % single bond at 1 \else\if\@tmpb D%double bond \Put@Line(-46,-36)(-1,-1){100}% % single bond at 1 \Put@Line(-36,-46)(-1,-1){100}% % single bond at 1 \else\if\@tmpb T%triple bond \Put@Line(-50,-30)(-1,-1){100}% % single bond at 1 \Put@Line(-40,-40)(-1,-1){100}% % single bond at 1 \Put@Line(-30,-50)(-1,-1){100}% % single bond at 1 \else\ifx\@tmpb\empty%beta single bond \Put@Line(-40,-40)(-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@Line(0,0)(-1,-1){120}% % single bond at 1 }% \else\if\@tmpb A%alpha single bond \dotorline(0,0)(-1,-1){120}/(0,0)(-120,-120)% \else\if\@tmpb U%unspecified single bond {% \WaveBonds% \Put@Line(0,0)(-1,-1){120}% % single bond at 1 }% \else\if\@tmpb S%beta single bond \Put@Line(0,0)(-1,-1){120}% % single bond at 1 \else\if\@tmpb D%beta single bond \Put@Line(-6,6)(-1,-1){120}% % single bond at 1 \Put@Line(6,-6)(-1,-1){120}% % single bond at 1 \else\if\@tmpb T%beta single bond \Put@Line(-10,10)(-1,-1){120}% % single bond at 1 \Put@Line(0,0)(-1,-1){120}% % single bond at 1 \Put@Line(10,-10)(-1,-1){120}% % single bond at 1 \else\ifx\@tmpb\empty%beta single bond \Put@Line(0,0)(-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\BiFunc(#1,#2)#3#4#5{% \SlopetoXY(0,0)(#1,#2){#3}% \begin{picture}(\@tempcntXa,\@tempcntYa)(0,0)% \Put@Line(0,0)(#1,#2){#3}% \put(0,0){#4}% \put(\@tempcntXa,\@tempcntYa){#5}% \end{picture}} \def\test@vertix#1{% \def\tempG{#1}\relax%%%added 2006/9/6 \if\tempG g\relax \expandafter\def\csname #1#1#1A\endcsname{@}% \if\@tmpb h\relax \expandafter\def\csname #1#1#1A\endcsname{@}% \else\if\@tmpb s\relax \expandafter\def\csname #1#1#1A\endcsname{}% \fi\fi \else \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 \fi } \def\test@vertix@sixv#1#2#3#4#5#6#7{% \@forsemicol\member:=#1\do{% \ifx\member\empty \relax\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\relax% \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 \relax\else% \expandafter\@m@mb@r\member;\relax% \expandafter\twoch@r\@membera{}\relax% \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 \relax% \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\relax \@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\relax \@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\relax \@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\relax \@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\relax \@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\relax \@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\relax\else% \expandafter\@m@mb@r\member;\relax% \expandafter\twoch@r\@membera{}% \ifcase\@tmpa \relax% \or\or\or\or\or\or \or \test@vertix{#2}% \or \if\@tmpb a\relax% \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\relax% \@icliptrue%2001/06/20 by S. Fujita \putlatom{207}{65}{\@memberb}% % left type \else\relax \fi \or%5 \or%6 \or%7 \or% \if\@tmpb a\relax% \@jcliptrue%2001/06/20 by S. Fujita \putlatom{207}{280}{\@memberb}% % left type \else\relax \fi \or%9 (= 4a) \@icliptrue%2001/06/20 by S. Fujita \putlatom{207}{65}{\@memberb}% % left type \or%10 (= 8a) \@jcliptrue%2001/06/20 by S. Fujita \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\relax% \@icliptrue%%2001/06/20 by S. Fujita \putratom{273}{-211}{\@memberb}% % right type \else\relax \fi \or%5 \or%6 \or%7 \or% \if\@tmpb a\relax% \@jcliptrue%2001/06/20 by S. Fujita% \putlatom{135}{-211}{\@memberb}% % left type \else\relax \fi \or%9 (= 4a) \ifx\@tmpb\empty\relax \@icliptrue%%2001/06/20 by S. Fujita \putratom{273}{-211}{\@memberb}% % right type \else \XyMTeXWarning{Forbidden spiro ring for the 4a position}% \fi \or%10 (= 8a) \ifx\@tmpb\empty\relax \@jcliptrue%%2001/06/20 by S. Fujita \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@Direct(342,0){\set@fusionadd@sixv}% \else\if\@tmpa A% \let\@@tmpa=\@tmpa \Put@Direct(342,0){\set@fusionadd@sixv}% \else\if\@tmpa b% \let\@@tmpa=\@tmpa \Put@Direct(342,0){\set@fusionadd@sixv}% \else\if\@tmpa B% \let\@@tmpa=\@tmpa \Put@Direct(342,0){\set@fusionadd@sixv}% \else\if\@tmpa c% \let\@@tmpa=\@tmpa \Put@Direct(342,0){\set@fusionadd@sixv}% \else\if\@tmpa C% \let\@@tmpa=\@tmpa \Put@Direct(342,0){\set@fusionadd@sixv}% \else\if\@tmpa d% \let\@@tmpa=\@tmpa \Put@Direct(342,0){\set@fusionadd@sixv}% \UnfavorableFusion{d}% \else\if\@tmpa D% \let\@@tmpa=\@tmpa \Put@Direct(342,0){\set@fusionadd@sixv}% \UnfavorableFusion{D}% \else\if\@tmpa e% \edef\@@tmpa{c}% \Put@Direct(0,0){\set@fusionadd@sixv}% \UnfavorableFusion{e}% \else\if\@tmpa E% \edef\@@tmpa{C}% \Put@Direct(0,0){\set@fusionadd@sixv}% \UnfavorableFusion{E}% \else\if\@tmpa f% \edef\@@tmpa{d}% \Put@Direct(0,0){\set@fusionadd@sixv}% \else\if\@tmpa F% \edef\@@tmpa{D}% \Put@Direct(0,0){\set@fusionadd@sixv}% \else\if\@tmpa g% \edef\@@tmpa{e}% \Put@Direct(0,0){\set@fusionadd@sixv}% \else\if\@tmpa G% \edef\@@tmpa{E}% \Put@Direct(0,0){\set@fusionadd@sixv}% \else\if\@tmpa h% \edef\@@tmpa{f}% \Put@Direct(0,0){\set@fusionadd@sixv}% \else\if\@tmpa H% \edef\@@tmpa{F}% \Put@Direct(0,0){\set@fusionadd@sixv}% \else\if\@tmpa i% \edef\@@tmpa{a}% \Put@Direct(0,0){\set@fusionadd@sixv}% \UnfavorableFusion{i}% \else\if\@tmpa I% \edef\@@tmpa{A}% \Put@Direct(0,0){\set@fusionadd@sixv}% \UnfavorableFusion{I}% \else\if\@tmpa j% \edef\@@tmpa{f}% \Put@Direct(342,0){\set@fusionadd@sixv}% \UnfavorableFusion{j}% \else\if\@tmpa J% \edef\@@tmpa{F}% \Put@Direct(342,0){\set@fusionadd@sixv}% \UnfavorableFusion{J}% \else\if\@tmpa k% \edef\@@tmpa{e}% \Put@Direct(342,0){\set@fusionadd@sixv}% \ForbiddenFusion{k}% \else\if\@tmpa K% \edef\@@tmpa{E}% \Put@Direct(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@Direct(0,0){\set@fusionadd@sixv}% \else\if\@tmpa A% \edef\@@tmpa{B}% \Put@Direct(0,0){\set@fusionadd@sixv}% \else\if\@tmpa b% \edef\@@tmpa{c}% \Put@Direct(0,0){\set@fusionadd@sixv}% \else\if\@tmpa B% \edef\@@tmpa{C}% \Put@Direct(0,0){\set@fusionadd@sixv}% \else\if\@tmpa c% \edef\@@tmpa{d}% \Put@Direct(0,0){\set@fusionadd@sixv}% \else\if\@tmpa C% \edef\@@tmpa{D}% \Put@Direct(0,0){\set@fusionadd@sixv}% \else\if\@tmpa d% \edef\@@tmpa{e}% \Put@Direct(0,0){\set@fusionadd@sixv}% \UnfavorableFusion{d}% \else\if\@tmpa D% \edef\@@tmpa{E}% \Put@Direct(0,0){\set@fusionadd@sixv}% \UnfavorableFusion{D}% \else\if\@tmpa e% \edef\@@tmpa{d}% \Put@Direct(-171,303){\set@fusionadd@sixv}% \UnfavorableFusion{e}% \else\if\@tmpa E% \edef\@@tmpa{D}% \Put@Direct(-171,303){\set@fusionadd@sixv}% \UnfavorableFusion{E}% \else\if\@tmpa f% \edef\@@tmpa{e}% \Put@Direct(-171,303){\set@fusionadd@sixv}% \else\if\@tmpa F% \edef\@@tmpa{E}% \Put@Direct(-171,303){\set@fusionadd@sixv}% \else\if\@tmpa g% \edef\@@tmpa{f}% \Put@Direct(-171,303){\set@fusionadd@sixv}% \else\if\@tmpa G% \edef\@@tmpa{F}% \Put@Direct(-171,303){\set@fusionadd@sixv}% \else\if\@tmpa h% \edef\@@tmpa{a}% \Put@Direct(-171,303){\set@fusionadd@sixv}% \else\if\@tmpa H% \edef\@@tmpa{A}% \Put@Direct(-171,303){\set@fusionadd@sixv}% \else\if\@tmpa i% \edef\@@tmpa{b}% \Put@Direct(-171,303){\set@fusionadd@sixv}% \UnfavorableFusion{i}% \else\if\@tmpa I% \edef\@@tmpa{B}% \Put@Direct(-171,303){\set@fusionadd@sixv}% \UnfavorableFusion{I}% \else\if\@tmpa j% \edef\@@tmpa{a}% \Put@Direct(0,0){\set@fusionadd@sixv}% \UnfavorableFusion{j}% \else\if\@tmpa J% \edef\@@tmpa{A}% \Put@Direct(0,0){\set@fusionadd@sixv}% \UnfavorableFusion{J}% \else\if\@tmpa k% \edef\@@tmpa{c}% \Put@Direct(-171,303){\set@fusionadd@sixv}% \ForbiddenFusion{k}% \else\if\@tmpa K% \edef\@@tmpa{C}% \Put@Direct(-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@Direct(171,303){\set@fusionadd@sixv}% \else\if\@tmpa A% \edef\@@tmpa{F}% \Put@Direct(171,303){\set@fusionadd@sixv}% \else\if\@tmpa b% \edef\@@tmpa{a}% \Put@Direct(171,303){\set@fusionadd@sixv}% \else\if\@tmpa B% \edef\@@tmpa{A}% \Put@Direct(171,303){\set@fusionadd@sixv}% \else\if\@tmpa c% \edef\@@tmpa{b}% \Put@Direct(171,303){\set@fusionadd@sixv}% \else\if\@tmpa C% \edef\@@tmpa{B}% \Put@Direct(171,303){\set@fusionadd@sixv}% \else\if\@tmpa d% \edef\@@tmpa{c}% \Put@Direct(171,303){\set@fusionadd@sixv}% \UnfavorableFusion{d}% \else\if\@tmpa D% \edef\@@tmpa{C}% \Put@Direct(171,303){\set@fusionadd@sixv}% \UnfavorableFusion{D}% \else\if\@tmpa e% \edef\@@tmpa{b}% \Put@Direct(0,0){\set@fusionadd@sixv}% \UnfavorableFusion{e}% \else\if\@tmpa E% \edef\@@tmpa{B}% \Put@Direct(0,0){\set@fusionadd@sixv}% \UnfavorableFusion{E}% \else\if\@tmpa f% \edef\@@tmpa{c}% \Put@Direct(0,0){\set@fusionadd@sixv}% \else\if\@tmpa F% \edef\@@tmpa{C}% \Put@Direct(0,0){\set@fusionadd@sixv}% \else\if\@tmpa g% \edef\@@tmpa{d}% \Put@Direct(0,0){\set@fusionadd@sixv}% \else\if\@tmpa G% \edef\@@tmpa{D}% \Put@Direct(0,0){\set@fusionadd@sixv}% \else\if\@tmpa h% \edef\@@tmpa{e}% \Put@Direct(0,0){\set@fusionadd@sixv}% \else\if\@tmpa H% \edef\@@tmpa{E}% \Put@Direct(0,0){\set@fusionadd@sixv}% \else\if\@tmpa i% \edef\@@tmpa{f}% \Put@Direct(0,0){\set@fusionadd@sixv}% \UnfavorableFusion{i}% \else\if\@tmpa I% \edef\@@tmpa{F}% \Put@Direct(0,0){\set@fusionadd@sixv}% \UnfavorableFusion{I}% \else\if\@tmpa j% \edef\@@tmpa{e}% \Put@Direct(171,303){\set@fusionadd@sixv}% \UnfavorableFusion{j}% \else\if\@tmpa J% \edef\@@tmpa{E}% \Put@Direct(171,303){\set@fusionadd@sixv}% \UnfavorableFusion{J}% \else\if\@tmpa k% \edef\@@tmpa{d}% \Put@Direct(171,303){\set@fusionadd@sixv}% \ForbiddenFusion{k}% \else\if\@tmpa K% \edef\@@tmpa{D}% \Put@Direct(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@Direct(0,0){\set@fusionadd@sixh}% \else\if\@tmpa A% \let\@@tmpa=\@tmpa \Put@Direct(0,0){\set@fusionadd@sixh}% \else\if\@tmpa b% \let\@@tmpa=\@tmpa \Put@Direct(0,0){\set@fusionadd@sixh}% \else\if\@tmpa B% \let\@@tmpa=\@tmpa \Put@Direct(0,0){\set@fusionadd@sixh}% \else\if\@tmpa c% \let\@@tmpa=\@tmpa \Put@Direct(0,0){\set@fusionadd@sixh}% \else\if\@tmpa C% \let\@@tmpa=\@tmpa \Put@Direct(0,0){\set@fusionadd@sixh}% \else\if\@tmpa d% \let\@@tmpa=\@tmpa \Put@Direct(0,0){\set@fusionadd@sixh}% \UnfavorableFusion{d}% \else\if\@tmpa D% \let\@@tmpa=\@tmpa \Put@Direct(0,0){\set@fusionadd@sixh}% \UnfavorableFusion{D}% \else\if\@tmpa e% \edef\@@tmpa{c}% \Put@Direct(0,-342){\set@fusionadd@sixh}% \UnfavorableFusion{e}% \else\if\@tmpa E% \edef\@@tmpa{C}% \Put@Direct(0,-342){\set@fusionadd@sixh}% \UnfavorableFusion{E}% \else\if\@tmpa f% \edef\@@tmpa{d}% \Put@Direct(0,-342){\set@fusionadd@sixh}% \else\if\@tmpa F% \edef\@@tmpa{D}% \Put@Direct(0,-342){\set@fusionadd@sixh}% \else\if\@tmpa g% \edef\@@tmpa{e}% \Put@Direct(0,-342){\set@fusionadd@sixh}% \else\if\@tmpa G% \edef\@@tmpa{E}% \Put@Direct(0,-342){\set@fusionadd@sixh}% \else\if\@tmpa h% \edef\@@tmpa{f}% \Put@Direct(0,-342){\set@fusionadd@sixh}% \else\if\@tmpa H% \edef\@@tmpa{F}% \Put@Direct(0,-342){\set@fusionadd@sixh}% \else\if\@tmpa i% \edef\@@tmpa{a}% \Put@Direct(0,-342){\set@fusionadd@sixh}% \UnfavorableFusion{i}% \else\if\@tmpa I% \edef\@@tmpa{A}% \Put@Direct(0,-342){\set@fusionadd@sixh}% \UnfavorableFusion{I}% \else\if\@tmpa j% \edef\@@tmpa{f}% \Put@Direct(0,0){\set@fusionadd@sixh}% \UnfavorableFusion{j}% \else\if\@tmpa J% \edef\@@tmpa{F}% \Put@Direct(0,0){\set@fusionadd@sixh}% \UnfavorableFusion{J}% \else\if\@tmpa k% \edef\@@tmpa{e}% \Put@Direct(0,0){\set@fusionadd@sixh}% \ForbiddenFusion{k}% \else\if\@tmpa K% \edef\@@tmpa{E}% \Put@Direct(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@Direct(684,0){\set@fusionadd@sixv}% \else\if\@tmpa A% \let\@@tmpa=\@tmpa \Put@Direct(684,0){\set@fusionadd@sixv}% \else\if\@tmpa b% \let\@@tmpa=\@tmpa \Put@Direct(684,0){\set@fusionadd@sixv}% \else\if\@tmpa B% \let\@@tmpa=\@tmpa \Put@Direct(684,0){\set@fusionadd@sixv}% \else\if\@tmpa c% \let\@@tmpa=\@tmpa \Put@Direct(684,0){\set@fusionadd@sixv}% \else\if\@tmpa C% \let\@@tmpa=\@tmpa \Put@Direct(684,0){\set@fusionadd@sixv}% \else\if\@tmpa d% \let\@@tmpa=\@tmpa \Put@Direct(684,0){\set@fusionadd@sixv}% \UnfavorableFusion{d}% \else\if\@tmpa D% \let\@@tmpa=\@tmpa \Put@Direct(684,0){\set@fusionadd@sixv}% \UnfavorableFusion{D}% \else\if\@tmpa e% \edef\@@tmpa{c}% \Put@Direct(342,0){\set@fusionadd@sixv}% \UnfavorableFusion{e}% \else\if\@tmpa E% \edef\@@tmpa{C}% \Put@Direct(342,0){\set@fusionadd@sixv}% \UnfavorableFusion{E}% \else\if\@tmpa f% \edef\@@tmpa{d}% \Put@Direct(342,0){\set@fusionadd@sixv}% \UnfavorableFusion{f}% \else\if\@tmpa F% \edef\@@tmpa{D}% \Put@Direct(342,0){\set@fusionadd@sixv}% \UnfavorableFusion{F}% \else\if\@tmpa g% \edef\@@tmpa{c}% \Put@Direct(0,0){\set@fusionadd@sixv}% \UnfavorableFusion{g}% \else\if\@tmpa G% \edef\@@tmpa{C}% \Put@Direct(0,0){\set@fusionadd@sixv}% \UnfavorableFusion{G}% \else\if\@tmpa h% \edef\@@tmpa{d}% \Put@Direct(0,0){\set@fusionadd@sixv}% \else\if\@tmpa H% \edef\@@tmpa{D}% \Put@Direct(0,0){\set@fusionadd@sixv}% \else\if\@tmpa i% \edef\@@tmpa{e}% \Put@Direct(0,0){\set@fusionadd@sixv}% \else\if\@tmpa I% \edef\@@tmpa{E}% \Put@Direct(0,0){\set@fusionadd@sixv}% \else\if\@tmpa j% \edef\@@tmpa{f}% \Put@Direct(0,0){\set@fusionadd@sixv}% \else\if\@tmpa J% \edef\@@tmpa{F}% \Put@Direct(0,0){\set@fusionadd@sixv}% \else\if\@tmpa k% \edef\@@tmpa{a}% \Put@Direct(0,0){\set@fusionadd@sixv}% \UnfavorableFusion{k}% \else\if\@tmpa K% \edef\@@tmpa{A}% \Put@Direct(0,0){\set@fusionadd@sixv}% \UnfavorableFusion{K}% \else\if\@tmpa l% \edef\@@tmpa{f}% \Put@Direct(342,0){\set@fusionadd@sixv}% \UnfavorableFusion{l}% \else\if\@tmpa L% \edef\@@tmpa{F}% \Put@Direct(342,0){\set@fusionadd@sixv}% \UnfavorableFusion{L}% \else\if\@tmpa m% \edef\@@tmpa{a}% \Put@Direct(342,0){\set@fusionadd@sixv}% \UnfavorableFusion{m}% \else\if\@tmpa M% \edef\@@tmpa{A}% \Put@Direct(342,0){\set@fusionadd@sixv}% \UnfavorableFusion{M}% \else\if\@tmpa n% \edef\@@tmpa{f}% \Put@Direct(684,0){\set@fusionadd@sixv}% \UnfavorableFusion{n}% \else\if\@tmpa N% \edef\@@tmpa{F}% \Put@Direct(684,0){\set@fusionadd@sixv}% \UnfavorableFusion{N}% \else\if\@tmpa o% \edef\@@tmpa{e}% \Put@Direct(684,0){\set@fusionadd@sixv}% \ForbiddenFusion{o}% \else\if\@tmpa O% \edef\@@tmpa{E}% \Put@Direct(684,0){\set@fusionadd@sixv}% \ForbiddenFusion{O}% \else\if\@tmpa p% \edef\@@tmpa{e}% \Put@Direct(342,0){\set@fusionadd@sixv}% \ForbiddenFusion{p}% \else\if\@tmpa P% \edef\@@tmpa{E}% \Put@Direct(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@Direct(513,303){\set@fusionadd@sixv}% \else\if\@tmpa A% \edef\@@tmpa{B}% \Put@Direct(513,303){\set@fusionadd@sixv}% \else\if\@tmpa b% \edef\@@tmpa{a}% \Put@Direct(513,303){\set@fusionadd@sixv}% \else\if\@tmpa B% \edef\@@tmpa{A}% \Put@Direct(513,303){\set@fusionadd@sixv}% \else\if\@tmpa c% \edef\@@tmpa{f}% \Put@Direct(513,303){\set@fusionadd@sixv}% \else\if\@tmpa C% \edef\@@tmpa{F}% \Put@Direct(513,303){\set@fusionadd@sixv}% \else\if\@tmpa d% \edef\@@tmpa{e}% \Put@Direct(513,303){\set@fusionadd@sixv}% \UnfavorableFusion{d}% \else\if\@tmpa D% \edef\@@tmpa{E}% \Put@Direct(513,303){\set@fusionadd@sixv}% \UnfavorableFusion{D}% \else\if\@tmpa e% \edef\@@tmpa{f}% \Put@Direct(342,0){\set@fusionadd@sixv}% \UnfavorableFusion{e}% \else\if\@tmpa E% \edef\@@tmpa{F}% \Put@Direct(342,0){\set@fusionadd@sixv}% \UnfavorableFusion{E}% \else\if\@tmpa f% \edef\@@tmpa{a}% \Put@Direct(0,0){\set@fusionadd@sixv}% \UnfavorableFusion{f}% \else\if\@tmpa F% \edef\@@tmpa{A}% \Put@Direct(0,0){\set@fusionadd@sixv}% \UnfavorableFusion{F}% \else\if\@tmpa g% \edef\@@tmpa{f}% \Put@Direct(0,0){\set@fusionadd@sixv}% \else\if\@tmpa G% \edef\@@tmpa{F}% \Put@Direct(0,0){\set@fusionadd@sixv}% \else\if\@tmpa h% \edef\@@tmpa{e}% \Put@Direct(0,0){\set@fusionadd@sixv}% \else\if\@tmpa H% \edef\@@tmpa{E}% \Put@Direct(0,0){\set@fusionadd@sixv}% \else\if\@tmpa i% \edef\@@tmpa{d}% \Put@Direct(0,0){\set@fusionadd@sixv}% \else\if\@tmpa I% \edef\@@tmpa{D}% \Put@Direct(0,0){\set@fusionadd@sixv}% \else\if\@tmpa j% \edef\@@tmpa{c}% \Put@Direct(0,0){\set@fusionadd@sixv}% \UnfavorableFusion{j}% \else\if\@tmpa J% \edef\@@tmpa{C}% \Put@Direct(0,0){\set@fusionadd@sixv}% \UnfavorableFusion{J}% \else\if\@tmpa k% \edef\@@tmpa{d}% \Put@Direct(342,0){\set@fusionadd@sixv}% \UnfavorableFusion{k}% \else\if\@tmpa K% \edef\@@tmpa{D}% \Put@Direct(342,0){\set@fusionadd@sixv}% \UnfavorableFusion{K}% \else\if\@tmpa l% \edef\@@tmpa{c}% \Put@Direct(342,0){\set@fusionadd@sixv}% \else\if\@tmpa L% \edef\@@tmpa{C}% \Put@Direct(342,0){\set@fusionadd@sixv}% \else\if\@tmpa m% \edef\@@tmpa{b}% \Put@Direct(342,0){\set@fusionadd@sixv}% \UnfavorableFusion{m}% \else\if\@tmpa M% \edef\@@tmpa{B}% \Put@Direct(342,0){\set@fusionadd@sixv}% \UnfavorableFusion{M}% \else\if\@tmpa n% \edef\@@tmpa{c}% \Put@Direct(513,303){\set@fusionadd@sixv}% \UnfavorableFusion{n}% \else\if\@tmpa N% \edef\@@tmpa{C}% \Put@Direct(513,303){\set@fusionadd@sixv}% \UnfavorableFusion{N}% \else\if\@tmpa o% \edef\@@tmpa{d}% \Put@Direct(513,303){\set@fusionadd@sixv}% \ForbiddenFusion{o}% \else\if\@tmpa O% \edef\@@tmpa{D}% \Put@Direct(513,303){\set@fusionadd@sixv}% \ForbiddenFusion{O}% \else\if\@tmpa p% \edef\@@tmpa{e}% \Put@Direct(342,0){\set@fusionadd@sixv}% \ForbiddenFusion{p}% \else\if\@tmpa P% \edef\@@tmpa{E}% \Put@Direct(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 \newif\iffusesw \fuseswfalse \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 \iffusesw \putlratom{171}{103}{\@@tmpb}% % right type \else \XyMTeXWarning{Not-used fusion at bond `c'}% \fi \else\if\@@tmpa C\relax% \iffusesw \putlratom{-171}{103}{\@@tmpb}% % right type \else \XyMTeXWarning{Not-used fusion at bond `C'}% \fi \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 \iffusesw \putlratom{171}{103}{\@@tmpb}% % right type \else \XyMTeXWarning{Not-used fusion at bond `c'}% \fi \else\if\@@tmpa C\relax% \iffusesw \putlratom{-171}{103}{\@@tmpb}% % right type \else \XyMTeXWarning{Not-used fusion at bond `C'}% \fi \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 \iffusesw \putlratom{303}{171}{\@@tmpb}% % right type \else \XyMTeXWarning{Not-used fusion at bond `c'}% \fi \else\if\@@tmpa C\relax% \iffusesw \putlratom{303}{-171}{\@@tmpb}% % right type \else \XyMTeXWarning{Not-used fusion at bond `C'}% \fi \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 \iffusesw \putlratom{303}{171}{\@@tmpb}% % right type \else \XyMTeXWarning{Not-used fusion at bond `c'}% \fi \else\if\@@tmpa C\relax% \iffusesw \putlratom{303}{-171}{\@@tmpb}% % right type \else \XyMTeXWarning{Not-used fusion at bond `C'}% \fi \fi\fi\fi\fi\fi\fi\fi\fi\fi\fi% }% end of the macro \set@fusion@sixhi \def\set@fusion@nonav{% \let\@@tmpa=\@tmpa \let\@@tmpb=\@tmpb \if\@tmpa a% \let\@@tmpa=\@tmpa \Put@Direct(342,0){\set@fusionadd@sixvi}% \else\if\@tmpa A% \let\@@tmpa=\@tmpa \Put@Direct(342,0){\set@fusionadd@sixvi}% \else\if\@tmpa b% \let\@@tmpa=\@tmpa \Put@Direct(342,0){\set@fusionadd@sixvi}% \else\if\@tmpa B% \let\@@tmpa=\@tmpa \Put@Direct(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@Direct(0,0){\set@fusionadd@sixvi}% \UnfavorableFusion{d}% \else\if\@tmpa D% \edef\@@tmpa{C}% \Put@Direct(0,0){\set@fusionadd@sixvi}% \UnfavorableFusion{D}% \else\if\@tmpa e% \edef\@@tmpa{d}% \Put@Direct(0,0){\set@fusionadd@sixvi}% \else\if\@tmpa E% \edef\@@tmpa{D}% \Put@Direct(0,0){\set@fusionadd@sixvi}% \else\if\@tmpa f% \edef\@@tmpa{e}% \Put@Direct(0,0){\set@fusionadd@sixvi}% \else\if\@tmpa F% \edef\@@tmpa{E}% \Put@Direct(0,0){\set@fusionadd@sixvi}% \else\if\@tmpa g% \edef\@@tmpa{f}% \Put@Direct(0,0){\set@fusionadd@sixvi}% \else\if\@tmpa G% \edef\@@tmpa{F}% \Put@Direct(0,0){\set@fusionadd@sixvi}% \else\if\@tmpa h% \edef\@@tmpa{a}% \Put@Direct(0,0){\set@fusionadd@sixvi}% \UnfavorableFusion{h}% \else\if\@tmpa H% \edef\@@tmpa{A}% \Put@Direct(0,0){\set@fusionadd@sixvi}% \UnfavorableFusion{H}% \else\if\@tmpa i% \edef\@@tmpa{f}% \Put@Direct(342,0){\set@fusionadd@sixvi}% \UnfavorableFusion{i}% \else\if\@tmpa I% \edef\@@tmpa{F}% \Put@Direct(342,0){\set@fusionadd@sixvi}% \UnfavorableFusion{I}% \else\if\@tmpa j% \edef\@@tmpa{e}% \Put@Direct(342,0){\set@fusionadd@sixvi}% \ForbiddenFusion{j}% \else\if\@tmpa J% \edef\@@tmpa{E}% \Put@Direct(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@Direct(342,0){\set@fusionadd@sixv}% \else\if\@tmpa A% \let\@@tmpa=\@tmpa \Put@Direct(342,0){\set@fusionadd@sixv}% \else\if\@tmpa b% \let\@@tmpa=\@tmpa \Put@Direct(342,0){\set@fusionadd@sixv}% \else\if\@tmpa B% \let\@@tmpa=\@tmpa \Put@Direct(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@Direct(0,0){\set@fusionadd@sixv}% \UnfavorableFusion{d}% \else\if\@tmpa D% \edef\@@tmpa{C}% \Put@Direct(0,0){\set@fusionadd@sixv}% \UnfavorableFusion{D}% \else\if\@tmpa e% \edef\@@tmpa{d}% \Put@Direct(0,0){\set@fusionadd@sixv}% \else\if\@tmpa E% \edef\@@tmpa{D}% \Put@Direct(0,0){\set@fusionadd@sixv}% \else\if\@tmpa f% \edef\@@tmpa{e}% \Put@Direct(0,0){\set@fusionadd@sixv}% \else\if\@tmpa F% \edef\@@tmpa{E}% \Put@Direct(0,0){\set@fusionadd@sixv}% \else\if\@tmpa g% \edef\@@tmpa{f}% \Put@Direct(0,0){\set@fusionadd@sixv}% \else\if\@tmpa G% \edef\@@tmpa{F}% \Put@Direct(0,0){\set@fusionadd@sixv}% \else\if\@tmpa h% \edef\@@tmpa{a}% \Put@Direct(0,0){\set@fusionadd@sixv}% \UnfavorableFusion{h}% \else\if\@tmpa H% \edef\@@tmpa{A}% \Put@Direct(0,0){\set@fusionadd@sixv}% \UnfavorableFusion{H}% \else\if\@tmpa i% \edef\@@tmpa{f}% \Put@Direct(342,0){\set@fusionadd@sixv}% \UnfavorableFusion{i}% \else\if\@tmpa I% \edef\@@tmpa{F}% \Put@Direct(342,0){\set@fusionadd@sixv}% \UnfavorableFusion{I}% \else\if\@tmpa j% \edef\@@tmpa{e}% \Put@Direct(342,0){\set@fusionadd@sixv}% \ForbiddenFusion{j}% \else\if\@tmpa J% \edef\@@tmpa{E}% \Put@Direct(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@Direct(0,0){\set@fusionadd@sixhi}% \else\if\@tmpa A% \let\@@tmpa=\@tmpa \Put@Direct(0,0){\set@fusionadd@sixhi}% \else\if\@tmpa b% \let\@@tmpa=\@tmpa \Put@Direct(0,0){\set@fusionadd@sixhi}% \else\if\@tmpa B% \let\@@tmpa=\@tmpa \Put@Direct(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@Direct(0,-342){\set@fusionadd@sixhi}% \UnfavorableFusion{d}% \else\if\@tmpa D% \edef\@@tmpa{C}% \Put@Direct(0,-342){\set@fusionadd@sixhi}% \UnfavorableFusion{D}% \else\if\@tmpa e% \edef\@@tmpa{d}% \Put@Direct(0,-342){\set@fusionadd@sixhi}% \else\if\@tmpa E% \edef\@@tmpa{D}% \Put@Direct(0,-342){\set@fusionadd@sixhi}% \else\if\@tmpa f% \edef\@@tmpa{e}% \Put@Direct(0,-342){\set@fusionadd@sixhi}% \else\if\@tmpa F% \edef\@@tmpa{E}% \Put@Direct(0,-342){\set@fusionadd@sixhi}% \else\if\@tmpa g% \edef\@@tmpa{f}% \Put@Direct(0,-342){\set@fusionadd@sixhi}% \else\if\@tmpa G% \edef\@@tmpa{F}% \Put@Direct(0,-342){\set@fusionadd@sixhi}% \else\if\@tmpa h% \edef\@@tmpa{a}% \Put@Direct(0,-342){\set@fusionadd@sixhi}% \UnfavorableFusion{h}% \else\if\@tmpa H% \edef\@@tmpa{A}% \Put@Direct(0,-342){\set@fusionadd@sixhi}% \UnfavorableFusion{H}% \else\if\@tmpa i% \edef\@@tmpa{f}% \Put@Direct(0,0){\set@fusionadd@sixhi}% \UnfavorableFusion{i}% \else\if\@tmpa I% \edef\@@tmpa{F}% \Put@Direct(0,0){\set@fusionadd@sixhi}% \UnfavorableFusion{I}% \else\if\@tmpa j% \edef\@@tmpa{e}% \Put@Direct(0,0){\set@fusionadd@sixhi}% \ForbiddenFusion{j}% \else\if\@tmpa J% \edef\@@tmpa{E}% \Put@Direct(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@Direct(0,0){\set@fusionadd@sixh}% \else\if\@tmpa A% \let\@@tmpa=\@tmpa \Put@Direct(0,0){\set@fusionadd@sixh}% \else\if\@tmpa b% \let\@@tmpa=\@tmpa \Put@Direct(0,0){\set@fusionadd@sixh}% \else\if\@tmpa B% \let\@@tmpa=\@tmpa \Put@Direct(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@Direct(0,-342){\set@fusionadd@sixh}% \UnfavorableFusion{d}% \else\if\@tmpa D% \edef\@@tmpa{C}% \Put@Direct(0,-342){\set@fusionadd@sixh}% \UnfavorableFusion{D}% \else\if\@tmpa e% \edef\@@tmpa{d}% \Put@Direct(0,-342){\set@fusionadd@sixh}% \else\if\@tmpa E% \edef\@@tmpa{D}% \Put@Direct(0,-342){\set@fusionadd@sixh}% \else\if\@tmpa f% \edef\@@tmpa{e}% \Put@Direct(0,-342){\set@fusionadd@sixh}% \else\if\@tmpa F% \edef\@@tmpa{E}% \Put@Direct(0,-342){\set@fusionadd@sixh}% \else\if\@tmpa g% \edef\@@tmpa{f}% \Put@Direct(0,-342){\set@fusionadd@sixh}% \else\if\@tmpa G% \edef\@@tmpa{F}% \Put@Direct(0,-342){\set@fusionadd@sixh}% \else\if\@tmpa h% \edef\@@tmpa{a}% \Put@Direct(0,-342){\set@fusionadd@sixh}% \UnfavorableFusion{h}% \else\if\@tmpa H% \edef\@@tmpa{A}% \Put@Direct(0,-342){\set@fusionadd@sixh}% \UnfavorableFusion{H}% \else\if\@tmpa i% \edef\@@tmpa{f}% \Put@Direct(0,0){\set@fusionadd@sixh}% \UnfavorableFusion{i}% \else\if\@tmpa I% \edef\@@tmpa{F}% \Put@Direct(0,0){\set@fusionadd@sixh}% \UnfavorableFusion{I}% \else\if\@tmpa j% \edef\@@tmpa{e}% \Put@Direct(0,0){\set@fusionadd@sixh}% \ForbiddenFusion{j}% \else\if\@tmpa J% \edef\@@tmpa{E}% \Put@Direct(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 \def\SetTwoAtoms#1{\setbox0=\hbox{#1}% {\white \rule{\wd0}{\ht0}}\kern-\wd0{#1}} \def\SetTwoAtomx#1{{\setbox0=\hbox{#1}% \@tempdimd=\wd0 \advance\@tempdimd by8\unitlength% \@tempdime=\ht0 \advance\@tempdime by8\unitlength% \kern-4\unitlength{\white \rule[-4\unitlength]{\@tempdimd}{\@tempdime}}% \kern-\@tempdimd{#1}}} \originalpicture%initial setting \endinput %% %% End of file `chemstr.sty'.