diff options
Diffstat (limited to 'Master/texmf-dist/tex/latex/xymtex/chemstr.sty')
-rw-r--r-- | Master/texmf-dist/tex/latex/xymtex/chemstr.sty | 5905 |
1 files changed, 0 insertions, 5905 deletions
diff --git a/Master/texmf-dist/tex/latex/xymtex/chemstr.sty b/Master/texmf-dist/tex/latex/xymtex/chemstr.sty deleted file mode 100644 index 6e81e68d184..00000000000 --- a/Master/texmf-dist/tex/latex/xymtex/chemstr.sty +++ /dev/null @@ -1,5905 +0,0 @@ -%% -%% This is file `chemstr.sty', -%% generated with the docstrip utility. -%% -%% The original source files were: -%% -%% chemstr.dtx (with options: `chemstr') -%% -%% This is a generated file. -%% -%% Copyright 1996, 1988 by Shinsaku Fujita -%% -%% This file is part of the XyMTeX system. -%% ======================================= -%% -%% Version 1.01 Released on August 16, 1996 -%% Version 1.02 Released on October 31, 1998 (private version) -%% Version 2.00 Released on December 25, 1998 -%% -%% Copyright (C) 1996, 1998 by Shinsaku Fujita, all rights reserved. -%% This style file is created for drawing chemical structural formulas -%% This style file is to be contained in the ``xymtex'' directory which -%% is an input directory for TeX. -%% -%% Copying of this file is authorized only if either -%% -%% (1) you make absolutely no changes to your copy, including name and -%% directory name -%% (2) if you do make changes, -%% (a) you name it something other than the names included in the -%% ``xymtex'' directory and -%% (b) you acknowledge the original name. -%% This restriction ensures that all standard styles are identical. -%% -%% ======================================= -%% -%% This file contains several codes modified from latex.tex (LaTeX2.09) -%% and from latex.ltx (a LaTeX2e), the reused parts of which are subject to -%% Copyright 1994 the LaTeX3 project and the individual authors (For further -%% copyright information see the file legal.txt of the LaTeX2e standard -%% distribution, and any other copyright indicated in this file.) -%% -%% File: chemstr.dtx -%% \CharacterTable -%% {Upper-case \A\B\C\D\E\F\G\H\I\J\K\L\M\N\O\P\Q\R\S\T\U\V\W\X\Y\Z -%% Lower-case \a\b\c\d\e\f\g\h\i\j\k\l\m\n\o\p\q\r\s\t\u\v\w\x\y\z -%% Digits \0\1\2\3\4\5\6\7\8\9 -%% Exclamation \! Double quote \" Hash (number) \# -%% Dollar \$ Percent \% Ampersand \& -%% Acute accent \' Left paren \( Right paren \) -%% Asterisk \* Plus \+ Comma \, -%% Minus \- Point \. Solidus \/ -%% Colon \: Semicolon \; Less than \< -%% Equals \= Greater than \> Question mark \? -%% Commercial at \@ Left bracket \[ Backslash \\ -%% Right bracket \] Circumflex \^ Underscore \_ -%% Grave accent \` Left brace \{ Vertical bar \| -%% Right brace \} Tilde \~} -\typeout{XyMTeX for Drawing Chemical Structural Formulas. Version 2.00} -\typeout{ -- Released December 25, 1998 by Shinsaku Fujita} -\def\j@urnalname{chemstr} -\def\versi@ndate{December 25, 1998} -\def\versi@nno{ver2.00} -\def\copyrighth@lder{SF} % Shinsaku Fujita -\typeout{XyMTeX Macro File `\j@urnalname' (\versi@nno) <\versi@ndate>% -\space[\copyrighth@lder]} -\def\UPSILON{\char'7} -\def\XyM{X\kern-.30em\smash{\raise.50ex\hbox{\UPSILON}}\kern-.30em{M}} -\def\XyMTeX{\XyM\kern-.1em\TeX} -\def\@forsemicol#1:=#2\do#3{% - \expandafter\def\expandafter\@fortmp\expandafter{#2}% - \ifx\@fortmp\@empty \else% - \expandafter\@forl@@p#2;\@nil;\@nil\@@#1{#3}\fi} -\long\def\@forl@@p#1;#2;#3\@@#4#5{\def#4{#1}\ifx #4\@nnil \else% - #5\def#4{#2}\ifx #4\@nnil \else#5\@iforl@@p #3\@@#4{#5}\fi\fi} -\long\def\@iforl@@p#1;#2\@@#3#4{\def#3{#1}\ifx #3\@nnil% - \expandafter\@fornoop \else - #4\relax\expandafter\@iforl@@p\fi#2\@@#3{#4}} -\def\@m@mb@r#1==#2;{\gdef\@membera{#1}\gdef\@memberb{#2}} -\def\twoch@r#1#2{\gdef\@tmpa{#1}\gdef\@tmpb{#2}} -\def\twoch@@r#1#2{\gdef\@@tmpa{#1}\gdef\@@tmpb{#2}} -\def\threech@r#1#2#3{\gdef\@tmpa{#1}\gdef\@tmpb{#2}\gdef\@tmpc{#3}} -\def\twoCH@@R#1#2//{\gdef\@@tmpa{#1}\gdef\@@tmpb{#2}} -\def\twoCH@R#1#2//{\gdef\@tmpa{#1}\gdef\@tmpb{#2}} -\newif\if@rightput \@rightputfalse -\newif\if@leftput \@leftputfalse -\newif\if@leftrightput \@leftrightputfalse -\def\resetlrput{\@rightputfalse\@leftputfalse -\@leftrightputfalse} -\def\rmoiety#1{\if@leftput -\XyMTeXWarning{Wrong \string\rmoiety\space used in a left box}% -\hbox to0pt{% -\hbox to0pt{\hss\vrule width\overfullrule height\overfullrule}#1\hss}% -\else\if@rightput\XyMTeXWarning{Unnecessary \string\rmoiety\space -used in a right box}\hbox to0pt{#1\hss}% -\else\if@leftrightput\hbox to0pt{#1\hss}% -\fi\fi\fi\resetlrput} -\def\lmoiety#1{\if@rightput -\XyMTeXWarning{Wrong \string\lmoiety\space used in a right box}% -\hbox to0pt{\hss#1\kern-.72em% -\hbox to0pt{\vrule width\overfullrule height\overfullrule\hss}}\else -\if@leftput\XyMTeXWarning{Unnecessary \string\lmoiety\space -used in a left box}\hbox to0pt{\hss#1}% -\else\if@leftrightput\hbox to0pt{\hss#1\kern-.72em}% -\else\hbox to0pt{\hss#1\kern-.72em}\fi\fi\fi\resetlrput} -\def\XyMTeXWarning#1{% -\begingroup - \let\protect\string - \immediate\write\@unused{^^IXyMTeX Warning: #1\space - on input line \the\inputlineno^^I}% -\endgroup} -\newcount\@cnttempa -\newcount\@cnttempb -\def\FuseWarning#1#2#3#4#5#6#7{% -\@tempcnta=#1 \@tempcntb=#2 -\@cnttempa=#3 \advance\@cnttempa-#5 -\@cnttempb=#4 \advance\@cnttempb-#6 -\ifnum\@tempcnta=\@cnttempa - \ifnum\@tempcntb=\@cnttempb\else - \XyMTeXWarning{Mismatched fusion at bond `#7'}% - \fi -\else - \XyMTeXWarning{Mismatched fusion at bond `#7'}% -\fi} -\def\putlatom#1#2#3{\begingroup\resetlrput -\put(#1,#2){\@leftputtrue\hbox to0pt{\hss #3}\@leftputfalse}\endgroup} -\def\putratom#1#2#3{\begingroup\resetlrput -\put(#1,#2){\@rightputtrue\hbox to0pt{#3 \hss}\@rightputfalse}\endgroup} -\def\putlratom#1#2#3{\begingroup\resetlrput -\put(#1,#2){\@leftrightputtrue\hbox to.72em{#3\hss}}% -\@leftrightputfalse\endgroup} -\def\Putlratom#1#2#3{\put(#1,#2){\hbox to.8em{#3}}} -\newcount\noshift \noshift=0\relax% -\newcount\shifti \shifti=240\relax% -\newcount\shiftii \shiftii=400\relax% -\newcount\shiftiii \shiftiii=800\relax% -\unitlength.1pt% -\def\fuseAx{0} -\def\fuseBx{0} -\def\fuseAy{0} -\def\fuseBy{0} -\newif\if@clip \@clipfalse% % switch for clipping at 4 -\newif\if@aclip \@aclipfalse% % switch for clipping at 1 -\newif\if@bclip \@bclipfalse% % switch for clipping at 2 -\newif\if@cclip \@cclipfalse% % switch for clipping at 3 -\newif\if@eclip \@eclipfalse% % switch for clipping at 5 -\newif\if@fclip \@fclipfalse% % switch for clipping at 6 -\newif\iforigpt \origptfalse% % switch for showing the original point -\newcount\@tmpaa% -\newif\if@gclip \@gclipfalse% -\newif\if@hclip \@hclipfalse% -\newif\if@iclip \@iclipfalse% -\newif\if@jclip \@jclipfalse% -\def\@yl{(yl)} -\newcount\yl@xdiff -\newcount\yl@ydiff -\newcount\yl@shiftii -\newcount\yl@shifti -\def\@ylii{0}\def\@yli{0} -\def\@@ylii{}\def\@@yli{} -\def\reset@@yl{\gdef\@@ylii{}\gdef\@@yli{}} -\def\reset@yl@xydiff{\yl@xdiff=0 \yl@ydiff=0\relax} -\newif\if@ylsw \@ylswfalse -\newif\if@@ylsw \@@ylswfalse -\def\@reset@ylsw{\@ylswfalse\@@ylswfalse} -\newif\if@smallringsw \@smallringswfalse -\def\iniflag{% -\@aclipfalse\@bclipfalse\@cclipfalse\@clipfalse\@eclipfalse% -\@fclipfalse\@gclipfalse\@hclipfalse% -\@iclipfalse\@jclipfalse\@clipfusefalse% -\global\@smallringswfalse% -}% -\def\iniatom{% -\def\aaa{}\def\bbb{}\def\ccc{}\gdef\ddd{}% -\def\eee{}\def\fff{}% -\def\ggg{}\def\hhh{}\def\iii{}\gdef\jjj{}% -\def\@aaa{}\def\@bbb{}\def\@ccc{}\def\@ddd{}% -\def\@eee{}\def\@fff{}% -\def\@ggg{}\def\@hhh{}\def\@iii{}% -\def\@jjj{}\def\@kkk{}% -}% -\def\resetbdsw{\def\@aaa{a}\def\@bbb{b}\def\@ccc{c}% -\def\@ddd{d}\def\@eee{e}\def\@fff{f}% -\def\@ggg{g}\def\@hhh{h}\def\@iii{i}% -\def\@jjj{j}\def\@kkk{k}% -}% -\iniatom -\def\ylposition#1#2#3#4#5{% -\@@ylswfalse%%%\@reset@ylsw -\@forsemicol\member:=#1\do{% -\if@@ylsw\else% -\ifx\member\empty\else% -\expandafter\@m@mb@r\member;\relax% -\expandafter\threech@r\@membera{}{}\relax% -\ifx\@memberb\@yl\relax\@@ylswtrue\else\@@ylswfalse\fi -\if@@ylsw -\ifnum#5<0\relax% -\@tmpaa=-\@tmpa\relax \advance\@tmpaa by#2\relax% -\else\@tmpaa=\@tmpa\relax \advance\@tmpaa by#2\relax\fi -\ifnum\@tmpaa>#3\relax% -\ifnum\@tmpaa<#4\relax% -\ifcase\@tmpaa%0 omit - \or\ifx\aaa\empty - \gdef\@ylii{0}\gdef\@yli{-406}\global\@ylswtrue%\@ylatrue% subst. on 1 - \else - \gdef\@ylii{0}\gdef\@yli{-442}\global\@ylswtrue%\@ylatrue% subst. on 1 - \fi - \or\ifx\bbb\empty - \gdef\@ylii{-171}\gdef\@yli{-303}\global\@ylswtrue%\@ylbtrue% subst. on 2 - \else - \gdef\@ylii{-213}\gdef\@yli{-327}\global\@ylswtrue%\@ylbtrue% subst. on 2 - \fi - \or\ifx\ccc\empty - \gdef\@ylii{-171}\gdef\@yli{-103}\global\@ylswtrue%\@ylctrue% subst. on 3 - \else - \gdef\@ylii{-213}\gdef\@yli{-79}\global\@ylswtrue%\@ylctrue% subst. on 3 - \fi - \or\ifx\ddd\empty - \gdef\@ylii{0}\gdef\@yli{0}\global\@ylswtrue%\@yldtrue% subst. on 4 - \else - \gdef\@ylii{0}\gdef\@yli{36}\global\@ylswtrue%\@yldtrue% subst. on 4 - \fi - \or\ifx\eee\empty - \gdef\@ylii{171}\gdef\@yli{-103}\global\@ylswtrue%\@yletrue% subst. on 5 - \else - \gdef\@ylii{213}\gdef\@yli{-79}\global\@ylswtrue%\@yletrue% subst. on 5 - \fi - \or\ifx\fff\empty - \gdef\@ylii{171}\gdef\@yli{-303}\global\@ylswtrue%\@ylftrue% subst. on 6 - \else - \gdef\@ylii{213}\gdef\@yli{-327}\global\@ylswtrue%\@ylftrue% subst. on 6 - \fi% -\fi%end of ifcase -\fi\fi\fi\fi\fi}}% -\def\@substa{% -\if@aclip% %clipping - \if\@tmpb S%single bond - \ifx\@tmpc\empty% - \yl@xdiff=31\relax - \yl@ydiff=-17\relax - \put(0,436){\line(0,1){110}}% % single bond at 1 - \putlratom{-31}{563}{\@memberb}% % left or right type - \else\if\@tmpc B%(B) beta - \yl@xdiff=-36\relax - \yl@ydiff=-27\relax - \putlatom{-42}{563}{\@memberb}% % left type - {% - \thicklines% - \put(-18,436){\line(-3,5){60}}% % single bond at 1 - }% - \else\if\@tmpc A%(A) alpha - \yl@xdiff=37\relax - \yl@ydiff=-27\relax - \putratom{41}{563}{\@memberb}% % right type - \@ifundefined{dottedline}{% - \put(18,436){\line(3,5){60}}% % single bond at 1 - }{{\thicklines% - \dottedline{20}(18,436)(72,526)}}% - \else\if\@tmpc u%(u) up --- (B) beta - \yl@xdiff=36\relax - \yl@ydiff=-27\relax - \putratom{41}{563}{\@memberb}% % right type - {% - \thicklines% - \put(18,436){\line(3,5){60}}% % single bond at 1 - }% - \else\if\@tmpc d%(d) down --- (A) alpha - \yl@xdiff=-37\relax - \yl@ydiff=-27\relax - \putlatom{-42}{563}{\@memberb}% % left type - \@ifundefined{dottedline}{% - \put(-18,436){\line(-3,5){60}}% % single bond at 1 - }{{\thicklines% - \dottedline{20}(-18,436)(-72,526)}}% - \else\if\@tmpc b%(b) beta - \yl@xdiff=-36\relax - \yl@ydiff=-27\relax - \putlatom{-42}{563}{\@memberb}% % left type - \put(-18,436){\line(-3,5){60}}% % single bond at 1 - \else\if\@tmpc a%(a) alpha - \yl@xdiff=37\relax - \yl@ydiff=-27\relax - \putratom{41}{563}{\@memberb}% % right type - \put(18,436){\line(3,5){60}}% % single bond at 1 - \fi\fi\fi\fi\fi% - \fi\fi - \else\if\@tmpb D%double bond - \yl@xdiff=31\relax - \yl@ydiff=-17\relax - \putlratom{-31}{563}{\@memberb}% % left or right type - \put(-12,436){\line(0,1){110}}% % double bond at 1 - \put(12,436){\line(0,1){110}}% % double bond at 1 - \else\if\@tmpb B%beta single bond - \yl@xdiff=31\relax - \yl@ydiff=-17\relax - \putlratom{-31}{563}{\@memberb}% % left or right type - {% - \thicklines% - \put(0,436){\line(0,1){110}}% % single bond at 1 - }% - \else\if\@tmpb A%alpha single bond - \yl@xdiff=31\relax - \yl@ydiff=-17\relax - \putlratom{-31}{563}{\@memberb}% % left or right type - \@ifundefined{dottedline}{% - \put(0,436){\line(0,1){110}}% % single bond at 1 - }{{\thicklines% - \dottedline{20}(0,436)(0,546)}}% - \else\if\@tmpb F%fused bond - {\let\@tmpb=\@tmpc\@clipfusetrue - \put(0,406){\setatombondd}% - }% - \else\if\@tmpb G%fused bond - {\let\@tmpb=\@tmpc\@clipfusetrue - \put(0,406){\setatombondf}% - }% - \else% - \yl@xdiff=31\relax - \yl@ydiff=-17\relax - \putlratom{-31}{563}{\@memberb}% % left or right type - \put(0,436){\line(0,1){110}}% % single bond at 1 - \fi\fi\fi\fi% - \fi\fi% -\else% % no clipping - \if\@tmpb S%single bond - \ifx\@tmpc\empty% - \yl@xdiff=31\relax - \yl@ydiff=-17\relax - \put(0,406){\line(0,1){140}}% % single bond at 1 - \putlratom{-31}{563}{\@memberb}% % left or right type - \else\if\@tmpc B%(B) beta - \yl@xdiff=-30\relax - \yl@ydiff=-37\relax - \putlatom{-42}{563}{\@memberb}% % left type - {% - \thicklines% - \put(0,406){\line(-3,5){72}}% % single bond at 1 - }% - \else\if\@tmpc A%(A) alpha - \yl@xdiff=31\relax - \yl@ydiff=-37\relax - \putratom{41}{563}{\@memberb}% % right type - \@ifundefined{dottedline}{% - \put(0,406){\line(3,5){72}}% % single bond at 1 - }{{\thicklines% - \dottedline{20}(0,406)(72,526)}}% - \else\if\@tmpc u%(u) upper --- (B) beta - \yl@xdiff=30\relax - \yl@ydiff=-37\relax - \putratom{41}{563}{\@memberb}% % right type - {% - \thicklines% - \put(0,406){\line(3,5){72}}% % single bond at 1 - }% - \else\if\@tmpc d%(d) down --- (A) alpha - \yl@xdiff=-31\relax - \yl@ydiff=-37\relax - \putlatom{-42}{563}{\@memberb}% % left type - \@ifundefined{dottedline}{% - \put(0,406){\line(-3,5){72}}% % single bond at 1 - }{{\thicklines% - \dottedline{20}(0,406)(-72,526)}}% - \else\if\@tmpc b%(b) beta - \yl@xdiff=-30\relax - \yl@ydiff=-37\relax - \putlatom{-42}{563}{\@memberb}% % left type - \put(0,406){\line(-3,5){72}}% % single bond at 1 - \else\if\@tmpc a%(a) alpha - \yl@xdiff=31\relax - \yl@ydiff=-37\relax - \putratom{41}{563}{\@memberb}% % right type - \put(0,406){\line(3,5){72}}% % single bond at 1 - \fi\fi\fi\fi\fi% - \fi\fi% - \else\if\@tmpb D%double bond - \yl@xdiff=31\relax - \yl@ydiff=-17\relax - \putlratom{-31}{563}{\@memberb}% % left or right type - \put(-12,406){\line(0,1){140}}% % double bond at 1 - \put(12,406){\line(0,1){140}}% % double bond at 1 - \else\if\@tmpb B%beta single bond - \yl@xdiff=31\relax - \yl@ydiff=-17\relax - \putlratom{-31}{563}{\@memberb}% % left or right type - {% - \thicklines% - \put(0,406){\line(0,1){140}}% % single bond at 1 - }% - \else\if\@tmpb A%alpha single bond - \yl@xdiff=31\relax - \yl@ydiff=-17\relax - \putlratom{-31}{563}{\@memberb}% % left or right type - \@ifundefined{dottedline}{% - \put(0,406){\line(0,1){140}}% % single bond at 1 - }{{\thicklines% - \dottedline{20}(0,406)(0,546)}}% - \else\if\@tmpb F%fused bond - {\let\@tmpb=\@tmpc\@clipfusefalse - \put(0,406){\setatombondd}% - }% - \else\if\@tmpb G%fused bond - {\let\@tmpb=\@tmpc\@clipfusefalse - \put(0,406){\setatombondf}% - }% - \else% - \yl@xdiff=31\relax - \yl@ydiff=-17\relax - \putlratom{-31}{563}{\@memberb}% % left or right type - \put(0,406){\line(0,1){140}}% % single bond at 1 - \fi\fi\fi\fi% - \fi\fi - \fi}% end of \@substa -\def\@substb{% - \if@bclip %clipping - \if\@tmpb S%single bond - \ifx\@tmpc\empty% - \yl@xdiff=-10\relax - \yl@ydiff=24\relax - \putratom{311}{363}{\@memberb}% % right type - \put(201,327){\line(5,3){100}}% % single bond at 2 - \else\if\@tmpc B%(B) beta - \yl@xdiff=-7\relax - \yl@ydiff=38\relax - \putratom{268}{420}{\@memberb}% % right type - {% - \thicklines% - \put(201,358){\line(3,5){60}}% % single bond at 2 - }% - \else\if\@tmpc A%(A) alpha - \yl@xdiff=-17\relax - \yl@ydiff=23\relax - \putratom{318}{280}{\@memberb}% % right type - \@ifundefined{dottedline}{% - \put(201,303){\line(1,0){100}}% % single bond at 2 - }{{\thicklines% - \dottedline{20}(201,303)(301,303)}}% - \else\if\@tmpc u%(u) up --- (B) beta - \yl@xdiff=-17\relax - \yl@ydiff=23\relax - \putratom{318}{280}{\@memberb}% % right type - {% - \thicklines% - \put(201,303){\line(1,0){100}}% % single bond at 2 - }% - \else\if\@tmpc d%(d) down --- (A) alpha - \yl@xdiff=-7\relax - \yl@ydiff=38\relax - \putratom{268}{420}{\@memberb}% % right type - \@ifundefined{dottedline}{% - \put(201,358){\line(3,5){60}}% % single bond at 2 - }{{\thicklines% - \dottedline{20}(201,358)(261,458)}}% - \else\if\@tmpc b%(b) beta - \yl@xdiff=-7\relax - \yl@ydiff=38\relax - \putratom{268}{420}{\@memberb}% % right type - \put(201,358){\line(3,5){60}}% % single bond at 2 - \else\if\@tmpc a%(a) alpha% - \yl@xdiff=-17\relax - \yl@ydiff=23\relax - \putratom{318}{280}{\@memberb}% % right type - \put(201,303){\line(1,0){100}}% % single bond at 2 - \fi\fi\fi\fi\fi% - \fi\fi% - \else\if\@tmpb D%double bond - \yl@xdiff=-10\relax - \yl@ydiff=18\relax - \putratom{311}{363}{\@memberb}% % right type - \put(194,331){\line(5,3){100}}% % double bond at 2 - \put(200,305){\line(5,3){100}}% % double bond at 2 - \else\if\@tmpb B%beta single bond - \yl@xdiff=-10\relax - \yl@ydiff=24\relax - \putratom{311}{363}{\@memberb}% % right type - {% - \thicklines% - \put(201,327){\line(5,3){100}}% % single bond at 2 - }% - \else\if\@tmpb A%alpha single bond - \yl@xdiff=-10\relax - \yl@ydiff=24\relax - \putratom{311}{363}{\@memberb}% % right type - \@ifundefined{dottedline}{% - \put(201,327){\line(5,3){100}}% % single bond at 2 - }{{\thicklines% - \dottedline{20}(201,327)(301,387)}}% - \else\if\@tmpb F%fused bond - {\let\@tmpb=\@tmpc\@clipfusetrue - \put(171,303){\setatombonda}% - }% - \else\if\@tmpb G%fused bond - {\let\@tmpb=\@tmpc\@clipfusetrue - \put(171,303){\setatombonde}% - }% - \else% - \yl@xdiff=-10\relax - \yl@ydiff=24\relax - \putratom{311}{363}{\@memberb}% % right type - \put(201,327){\line(5,3){100}}% % single bond at 2 - \fi\fi\fi\fi% - \fi\fi% - \else% %no clipping - \if\@tmpb S%single bond - \ifx\@tmpc\empty% - \yl@xdiff=-10\relax - \yl@ydiff=12\relax - \putratom{301}{363}{\@memberb}% % right type - \put(171,303){\line(5,3){120}}% % single bond at 2 - \else\if\@tmpc B%(B) beta - \yl@xdiff=-15\relax - \yl@ydiff=13\relax - \putratom{258}{410}{\@memberb}% % right type - {% - \thicklines% - \put(171,303){\line(3,5){72}}% % single bond at 2 - }% - \else\if\@tmpc A%(A) alpha - \yl@xdiff=-7\relax - \yl@ydiff=23\relax - \putratom{318}{280}{\@memberb}% % right type - \@ifundefined{dottedline}{% - \put(171,303){\line(1,0){140}}% % single bond at 2 - }{{\thicklines% - \dottedline{20}(171,303)(311,303)}}% - \else\if\@tmpc u%(u) up --- (B) beta - \yl@xdiff=-7\relax - \yl@ydiff=23\relax - \putratom{318}{280}{\@memberb}% % right type - {% - \thicklines% - \put(171,303){\line(1,0){140}}% % single bond at 2 - }% - \else\if\@tmpc d%(d) down --- (A) alpha - \yl@xdiff=-15\relax - \yl@ydiff=13\relax - \putratom{258}{410}{\@memberb}% % right type - \@ifundefined{dottedline}{% - \put(171,303){\line(3,5){72}}% % single bond at 2 - }{{\thicklines% - \dottedline{20}(171,303)(243,423)}}% - \else\if\@tmpc b%(b) beta - \yl@xdiff=-15\relax - \yl@ydiff=13\relax - \putratom{258}{410}{\@memberb}% % right type - \put(171,303){\line(3,5){72}}% % single bond at 2 - \else\if\@tmpc a%(a) alpha - \yl@xdiff=-7\relax - \yl@ydiff=23\relax - \putratom{318}{280}{\@memberb}% % right type - \put(171,303){\line(1,0){140}}% % single bond at 2 - \fi\fi\fi\fi\fi% - \fi\fi% - \else\if\@tmpb D%double bond - \yl@xdiff=-10\relax - \yl@ydiff=6\relax - \putratom{301}{363}{\@memberb}% % right type - \put(168,310){\line(5,3){120}}% % double bond at 2 - \put(174,284){\line(5,3){120}}% % double bond at 2 - \else\if\@tmpb B%beta single bond - \yl@xdiff=-10\relax - \yl@ydiff=12\relax - \putratom{301}{363}{\@memberb}% % right type - {% - \thicklines% - \put(171,303){\line(5,3){120}}% % single bond at 2 - }% - \else\if\@tmpb A%alpha single bond - \yl@xdiff=-10\relax - \yl@ydiff=12\relax - \putratom{301}{363}{\@memberb}% % right type - \@ifundefined{dottedline}{% - \put(171,303){\line(5,3){120}}% % single bond at 2 - }{{\thicklines% - \dottedline{20}(171,303)(291,375)}}% - \else\if\@tmpb F%fused bond - {\let\@tmpb=\@tmpc\@clipfusefalse - \put(171,303){\setatombonda}% - }% - \else\if\@tmpb G%fused bond - {\let\@tmpb=\@tmpc\@clipfusefalse - \put(171,303){\setatombonde}% - }% - \else% - \yl@xdiff=-10\relax - \yl@ydiff=12\relax - \putratom{301}{363}{\@memberb}% % right type - \put(171,303){\line(5,3){120}}% % single bond at 2 - \fi\fi\fi\fi% - \fi\fi - \fi}% end of \@substb -\def\@substc{% - \if@cclip %clipping - \if\@tmpb S%single bond - \ifx\@tmpc\empty% - \yl@xdiff=-10\relax - \yl@ydiff=46\relax - \putratom{311}{-27}{\@memberb}% % right type - \put(201,79){\line(5,-3){110}}% % single bond at 3 - \else\if\@tmpc B%(B) beta - \yl@xdiff=-7\relax - \yl@ydiff=28\relax - \putratom{268}{-80}{\@memberb}% % right type - {% - \thicklines% - \put(201,48){\line(3,-5){60}}% % single bond at 3 - }% - \else\if\@tmpc A%(A) alpha - \yl@xdiff=-17\relax - \yl@ydiff=29\relax - \putratom{318}{74}{\@memberb}% % right type - \@ifundefined{dottedline}{% - \put(201,103){\line(1,0){100}}% % single bond at 3 - }{{\thicklines% - \dottedline{20}(201,103)(301,103)}}% - \else\if\@tmpc u%(u) up --- (B) beta - \yl@xdiff=-17\relax - \yl@ydiff=29\relax - \putratom{318}{74}{\@memberb}% % right type - {% - \thicklines% - \put(201,103){\line(1,0){100}}% % single bond at 3 - }% - \else\if\@tmpc d%(d) down --- (A) alpha - \yl@xdiff=-7\relax - \yl@ydiff=28\relax - \putratom{268}{-80}{\@memberb}% % right type - \@ifundefined{dottedline}{% - \put(201,48){\line(3,-5){60}}% % single bond at 3 - }{{\thicklines% - \dottedline{20}(201,48)(261,-52)}}% - \else\if\@tmpc b%(b) beta - \yl@xdiff=-7\relax - \yl@ydiff=28\relax - \putratom{268}{-80}{\@memberb}% % right type - \put(201,48){\line(3,-5){60}}% % single bond at 3 - \else\if\@tmpc a%(a) alpha - \yl@xdiff=-17\relax - \yl@ydiff=29\relax - \putratom{318}{74}{\@memberb}% % right type - \put(201,103){\line(1,0){100}}% % single bond at 3 - \fi\fi\fi\fi\fi% - \fi\fi - \else\if\@tmpb D%double bond - \yl@xdiff=-10\relax - \yl@ydiff=52\relax - \putratom{311}{-27}{\@memberb}% % right type - \put(194,76){\line(5,-3){100}}% % double bond at 3 - \put(200,101){\line(5,-3){100}}% % double bond at 3 - \else\if\@tmpb B%beta single bond - \yl@xdiff=-10\relax - \yl@ydiff=46\relax - \putratom{311}{-27}{\@memberb}% % right type - {% - \thicklines% - \put(201,79){\line(5,-3){100}}% % single bond at 3 - }% - \else\if\@tmpb A%alpha single bond - \yl@xdiff=-10\relax - \yl@ydiff=46\relax - \putratom{311}{-27}{\@memberb}% % right type - \@ifundefined{dottedline}{% - \put(201,79){\line(5,-3){100}}% % single bond at 3 - }{{\thicklines% - \dottedline{20}(201,79)(301,19)}}% - \else\if\@tmpb F%fused bond - {\let\@tmpb=\@tmpc\@clipfusetrue - \put(171,103){\setatombondf}% - }% - \else\if\@tmpb G%fused bond - {\let\@tmpb=\@tmpc\@clipfusetrue - \put(171,103){\setatombondc}% - }% - \else% - \yl@xdiff=-10\relax - \yl@ydiff=46\relax - \putratom{311}{-27}{\@memberb}% % right type - \put(201,79){\line(5,-3){100}}% % single bond at 3 - \fi\fi\fi\fi% - \fi\fi% - \else%no clipping - \if\@tmpb S%single bond - \ifx\@tmpc\empty% - \yl@xdiff=-10\relax - \yl@ydiff=58\relax - \putratom{301}{-27}{\@memberb}% % right type - \put(171,103){\line(5,-3){120}}% % single bond at 3 - \else\if\@tmpc B%(B) beta - \yl@xdiff=-10\relax - \yl@ydiff=48\relax - \putratom{258}{-70}{\@memberb}% % right type - {% - \thicklines% - \put(171,103){\line(3,-5){72}}% % single bond at 3 - }% - \else\if\@tmpc A%(A) alpha - \yl@xdiff=-10\relax - \yl@ydiff=30\relax - \putratom{318}{74}{\@memberb}% % right type - \@ifundefined{dottedline}{% - \put(171,103){\line(1,0){140}}% % single bond at 3 - }{{\thicklines% - \dottedline{20}(171,103)(311,103)}}% - \else\if\@tmpc u%(u) up --- (B) beta - \yl@xdiff=-10\relax - \yl@ydiff=30\relax - \putratom{318}{74}{\@memberb}% % right type - {% - \thicklines% - \put(171,103){\line(1,0){140}}% % single bond at 3 - }% - \else\if\@tmpc d%(d) down --- (A) alpha - \yl@xdiff=-10\relax - \yl@ydiff=48\relax - \putratom{258}{-70}{\@memberb}% % right type - \@ifundefined{dottedline}{% - \put(171,103){\line(3,-5){72}}% % single bond at 3 - }{{\thicklines% - \dottedline{20}(171,103)(243,-17)}}% - \else\if\@tmpc b%(b) beta - \yl@xdiff=-10\relax - \yl@ydiff=48\relax - \putratom{258}{-70}{\@memberb}% % right type - \put(171,103){\line(3,-5){72}}% % single bond at 3 - \else\if\@tmpc a%(a) alpha - \yl@xdiff=-10\relax - \yl@ydiff=30\relax - \putratom{318}{74}{\@memberb}% % right type - \put(171,103){\line(1,0){140}}% % single bond at 3 - \fi\fi\fi\fi\fi% - \fi\fi - \else\if\@tmpb D%double bond - \yl@xdiff=-10\relax - \yl@ydiff=65\relax - \putratom{301}{-27}{\@memberb}% % right type - \put(168,96){\line(5,-3){120}}% % double bond at 3 - \put(174,121){\line(5,-3){120}}% % double bond at 3 - \else\if\@tmpb B%beta single bond - \yl@xdiff=-10\relax - \yl@ydiff=58\relax - \putratom{301}{-27}{\@memberb}% % right type - {% - \thicklines% - \put(171,103){\line(5,-3){120}}% % single bond at 3 - }% - \else\if\@tmpb A%alpha single bond - \yl@xdiff=-10\relax - \yl@ydiff=58\relax - \putratom{301}{-27}{\@memberb}% % right type - \@ifundefined{dottedline}{% - \put(171,103){\line(5,-3){120}}% % single bond at 3 - }{{\thicklines% - \dottedline{20}(171,103)(291,31)}}% - \else\if\@tmpb F%fused bond - {\let\@tmpb=\@tmpc\@clipfusefalse - \put(171,103){\setatombondf}% - }% - \else\if\@tmpb G%fused bond - {\let\@tmpb=\@tmpc\@clipfusefalse - \put(171,103){\setatombondc}% - }% - \else% - \yl@xdiff=-10\relax - \yl@ydiff=58\relax - \putratom{301}{-27}{\@memberb}% % right type - \put(171,103){\line(5,-3){120}}% % single bond at 3 - \fi\fi\fi\fi% - \fi\fi - \fi -}% end of \@substc -\def\@substd{% -\if@clip %clipping - \if\@tmpb S%single bond - \ifx\@tmpc\empty% - \yl@xdiff=31\relax - \yl@ydiff=90\relax - \putlratom{-31}{-230}{\@memberb}% % left or right type - \put(0,-30){\line(0,-1){110}}% % single bond at 4 - \else\if\@tmpc B%(B) beta - \yl@xdiff=-36\relax - \yl@ydiff=100\relax - \putlatom{-42}{-230}{\@memberb}% % left type - {% - \thicklines% - \put(-18,-30){\line(-3,-5){60}}% % single bond at 4 - }% - \else\if\@tmpc A%(A) alpha - \yl@xdiff=37\relax - \yl@ydiff=100\relax - \putratom{41}{-230}{\@memberb}% % right type - \@ifundefined{dottedline}{% - \put(18,-30){\line(3,-5){60}}% % single bond at 4 - }{{\thicklines% - \dottedline{20}(18,-30)(72,-120)}}% - \else\if\@tmpc u%(u) up --- (B) beta - \yl@xdiff=37\relax - \yl@ydiff=100\relax - \putratom{41}{-230}{\@memberb}% % right type - {% - \thicklines% - \put(18,-30){\line(3,-5){60}}% % single bond at 4 - }% - \else\if\@tmpc d%(d) down --- (A) alpha - \yl@xdiff=-36\relax - \yl@ydiff=100\relax - \putlatom{-42}{-230}{\@memberb}% % left type - \@ifundefined{dottedline}{% - \put(-18,-30){\line(-3,-5){60}}% % single bond at 4 - }{{\thicklines% - \dottedline{20}(-18,-30)(-78,-130)}}% - \else\if\@tmpc b%(b) beta - \yl@xdiff=-36\relax - \yl@ydiff=100\relax - \putlatom{-42}{-230}{\@memberb}% % left type - \put(-18,-30){\line(-3,-5){60}}% % single bond at 4 - \else\if\@tmpc a%(a) alpha - \yl@xdiff=37\relax - \yl@ydiff=100\relax - \putratom{41}{-230}{\@memberb}% % right type - \put(18,-30){\line(3,-5){60}}% % single bond at 4 - \fi\fi\fi\fi\fi% - \fi\fi - \else\if\@tmpb D%double bond - \yl@xdiff=31\relax - \yl@ydiff=90\relax - \putlratom{-31}{-230}{\@memberb}% % left or right type - \put(-12,-30){\line(0,-1){110}}% % double bond at 4 - \put(12,-30){\line(0,-1){110}}% % double bond at 4 - \else\if\@tmpb B%beta single bond - \yl@xdiff=31\relax - \yl@ydiff=90\relax - \putlratom{-31}{-230}{\@memberb}% % left or right type - {% - \thicklines% - \put(0,-30){\line(0,-1){110}}% % single bond at 4 - }% - \else\if\@tmpb A%alpha single bond - \yl@xdiff=31\relax - \yl@ydiff=90\relax - \putlratom{-31}{-230}{\@memberb}% % left or right type - \@ifundefined{dottedline}{% - \put(0,-30){\line(0,-1){110}}% % single bond at 4 - }{{\thicklines% - \dottedline{20}(0,-30)(0,-140)}}% - \else\if\@tmpb F%fused bond - {\let\@tmpb=\@tmpc\@clipfusetrue - \put(0,0){\setatombonde}% - }% - \else\if\@tmpb G%fused bond - {\let\@tmpb=\@tmpc\@clipfusetrue - \put(0,0){\setatombondg}% - }% - \else% - \yl@xdiff=31\relax - \yl@ydiff=90\relax - \putlratom{-31}{-230}{\@memberb}% % left or right type - \put(0,-30){\line(0,-1){110}}% % single bond at 4 - \fi\fi\fi\fi% - \fi\fi% - \else%no clipping - \if\@tmpb S%single bond - \ifx\@tmpc\empty% - \yl@xdiff=31\relax - \yl@ydiff=90\relax - \putlratom{-31}{-230}{\@memberb}% % left or right type - \put(0,0){\line(0,-1){140}}% % single bond at 4 - \else\if\@tmpc B%(B) beta - \yl@xdiff=-30\relax - \yl@ydiff=110\relax - \putlatom{-42}{-230}{\@memberb}% % left type - {% - \thicklines% - \put(0,0){\line(-3,-5){72}}% % single bond at 4 - }% - \else\if\@tmpc A%(A) alpha - \yl@xdiff=31\relax - \yl@ydiff=110\relax - \putratom{41}{-230}{\@memberb}% % right type - \@ifundefined{dottedline}{% - \put(0,0){\line(3,-5){72}}% % single bond at 4 - }{{\thicklines% - \dottedline{20}(0,0)(72,-120)}}% - \else\if\@tmpc u%(u) up --- (B) beta - \yl@xdiff=31\relax - \yl@ydiff=110\relax - \putratom{41}{-230}{\@memberb}% % right type - {% - \thicklines% - \put(0,0){\line(3,-5){72}}% % single bond at 4 - }% - \else\if\@tmpc d%(d) down --- (A) alpha - \yl@xdiff=-30\relax - \yl@ydiff=110\relax - \putlatom{-42}{-230}{\@memberb}% % left type - \@ifundefined{dottedline}{% - \put(0,0){\line(-3,-5){72}}% % single bond at 4 - }{{\thicklines% - \dottedline{20}(0,0)(-72,-120)}}% - \else\if\@tmpc b%(b) beta - \yl@xdiff=-30\relax - \yl@ydiff=110\relax - \putlatom{-42}{-230}{\@memberb}% % left type - \put(0,0){\line(-3,-5){72}}% % single bond at 4 - \else\if\@tmpc a%(a) alpha - \yl@xdiff=31\relax - \yl@ydiff=110\relax - \putratom{41}{-230}{\@memberb}% % right type - \put(0,0){\line(3,-5){72}}% % single bond at 4 - \fi\fi\fi\fi\fi% - \fi\fi% - \else\if\@tmpb D%double bond - \yl@xdiff=31\relax - \yl@ydiff=90\relax - \putlratom{-31}{-230}{\@memberb}% % left or right type - \put(-12,0){\line(0,-1){140}}% % double bond at 4 - \put(12,0){\line(0,-1){140}}% % double bond at 4 - \else\if\@tmpb B%beta single bond - \yl@xdiff=31\relax - \yl@ydiff=90\relax - \putlratom{-31}{-230}{\@memberb}% % left or right type - {% - \thicklines% - \put(0,0){\line(0,-1){140}}% % single bond at 4 - }% - \else\if\@tmpb A%alpha single bond - \yl@xdiff=31\relax - \yl@ydiff=90\relax - \putlratom{-31}{-230}{\@memberb}% % left or right type - \@ifundefined{dottedline}{% - \put(0,0){\line(0,-1){140}}% % single bond at 4 - }{{\thicklines% - \dottedline{20}(0,0)(0,-140)}}% - \else\if\@tmpb F%fused bond - {\let\@tmpb=\@tmpc\@clipfusefalse - \put(0,0){\setatombonde}% - }% - \else\if\@tmpb G%fused bond - {\let\@tmpb=\@tmpc\@clipfusefalse - \put(0,0){\setatombondg}% - }% - \else% - \yl@xdiff=31\relax - \yl@ydiff=90\relax - \putlratom{-31}{-230}{\@memberb}% % left or right type - \put(0,0){\line(0,-1){140}}% % single bond at 4 - \fi\fi\fi\fi% - \fi\fi% - \fi}%end of \@substd -\def\@subste{% - \if@eclip%clipping - \if\@tmpb S%single bond - \ifx\@tmpc\empty% - \yl@xdiff=10\relax - \yl@ydiff=46\relax - \putlatom{-311}{-27}{\@memberb}% % left type - \put(-201,79){\line(-5,-3){110}}% % single bond at 5 - \else\if\@tmpc B%(B) beta - \yl@xdiff=7\relax - \yl@ydiff=38\relax - \putlatom{-268}{-80}{\@memberb}% % left type - {% - \thicklines% - \put(-201,48){\line(-3,-5){60}}% % single bond at 5 - }% - \else\if\@tmpc A%(A) alpha - \yl@xdiff=17\relax - \yl@ydiff=29\relax - \putlatom{-318}{74}{\@memberb}% % left type - \@ifundefined{dottedline}{% - \put(-201,103){\line(-1,0){100}}% % single bond at 5 - }{{\thicklines% - \dottedline{20}(-201,103)(-301,103)}}% - \else\if\@tmpc u% (u) up --- (B) beta - \yl@xdiff=17\relax - \yl@ydiff=29\relax - \putlatom{-318}{74}{\@memberb}% % left type - {% - \thicklines% - \put(-201,103){\line(-1,0){100}}% % single bond at 5 - }% - \else\if\@tmpc d% (d) down --- (A) alpha - \yl@xdiff=7\relax - \yl@ydiff=38\relax - \putlatom{-268}{-80}{\@memberb}% % left type - \@ifundefined{dottedline}{% - \put(-201,48){\line(-3,-5){60}}% % single bond at 5 - }{{\thicklines% - \dottedline{20}(-201,48)(-261,-52)}}% - \else\if\@tmpc b%(b) beta - \yl@xdiff=7\relax - \yl@ydiff=38\relax - \putlatom{-268}{-80}{\@memberb}% % left type - \put(-201,48){\line(-3,-5){60}}% % single bond at 5 - \else\if\@tmpc a%(a) alpha - \yl@xdiff=17\relax - \yl@ydiff=29\relax - \putlatom{-318}{74}{\@memberb}% % left type - \put(-201,103){\line(-1,0){100}}% % single bond at 5 - \fi\fi\fi\fi\fi% - \fi\fi% - \else\if\@tmpb D%double bond - \yl@xdiff=10\relax - \yl@ydiff=62\relax - \putlatom{-311}{-27}{\@memberb}% % left type - \put(-194,76){\line(-5,-3){100}}% % double bond at 5 - \put(-200,101){\line(-5,-3){100}}% % double bond at 5 - \else\if\@tmpb B%beta single bond - \yl@xdiff=10\relax - \yl@ydiff=46\relax - \putlatom{-311}{-27}{\@memberb}% % left type - {% - \thicklines% - \put(-201,79){\line(-5,-3){100}}% % single bond at 5 - }% - \else\if\@tmpb A%alpha single bond - \yl@xdiff=10\relax - \yl@ydiff=46\relax - \putlatom{-311}{-27}{\@memberb}% % left type - \@ifundefined{dottedline}{% - \put(-201,79){\line(-5,-3){100}}% % single bond at 5 - }{{\thicklines% - \dottedline{20}(-201,79)(-301,21)}}% - \else\if\@tmpb F%fused bond - {\let\@tmpb=\@tmpc\@clipfusetrue - \put(-171,103){\setatombondc}% - }% - \else\if\@tmpb G%fused bond - {\let\@tmpb=\@tmpc\@clipfusetrue - \put(-171,103){\setatombondd}% - }% - \else% - \yl@xdiff=10\relax - \yl@ydiff=46\relax - \putlatom{-311}{-27}{\@memberb}% % left type - \put(-201,79){\line(-5,-3){100}}% % single bond at 5 - \fi\fi\fi\fi% - \fi\fi% -\else%no clipping - \if\@tmpb S%single bond - \ifx\@tmpc\empty% - \yl@xdiff=10\relax - \yl@ydiff=56\relax - \putlatom{-301}{-27}{\@memberb}% % left type - \put(-171,103){\line(-5,-3){120}}% % single bond at 5 - \else\if\@tmpc B%(B) beta - \yl@xdiff=15\relax - \yl@ydiff=63\relax - \putlatom{-258}{-70}{\@memberb}% % left type - {% - \thicklines% - \put(-171,103){\line(-3,-5){72}}% % single bond at 5 - }% - \else\if\@tmpc A%(A) alpha - \yl@xdiff=15\relax - \yl@ydiff=29\relax - \putlatom{-326}{74}{\@memberb}% % left type - \@ifundefined{dottedline}{% - \put(-171,103){\line(-1,0){140}}% % single bond at 5 - }{{\thicklines% - \dottedline{20}(-171,103)(-311,103)}}% - \else\if\@tmpc u%(u) up --- (B) beta - \yl@xdiff=15\relax - \yl@ydiff=29\relax - \putlatom{-326}{74}{\@memberb}% % left type - {% - \thicklines% - \put(-171,103){\line(-1,0){140}}% % single bond at 5 - }% - \else\if\@tmpc d%(d) down --- (A) alpha - \yl@xdiff=15\relax - \yl@ydiff=63\relax - \putlatom{-258}{-70}{\@memberb}% % left type - \@ifundefined{dottedline}{% - \put(-171,103){\line(-3,-5){72}}% % single bond at 5 - }{{\thicklines% - \dottedline{20}(-171,103)(-243,-17)}}% - \else\if\@tmpc b%(b) beta - \yl@xdiff=15\relax - \yl@ydiff=63\relax - \putlatom{-258}{-70}{\@memberb}% % left type - \put(-171,103){\line(-3,-5){72}}% % single bond at 5 - \else\if\@tmpc a%(a) alpha - \yl@xdiff=15\relax - \yl@ydiff=29\relax - \putlatom{-326}{74}{\@memberb}% % left type - \put(-171,103){\line(-1,0){140}}% % single bond at 5 - \fi\fi\fi\fi\fi% - \fi\fi - \else\if\@tmpb D%double bond - \yl@xdiff=10\relax - \yl@ydiff=62\relax - \putlatom{-301}{-27}{\@memberb}% % left type - \put(-168,96){\line(-5,-3){120}}% % double bond at 5 - \put(-174,121){\line(-5,-3){120}}% % double bond at 5 - \else\if\@tmpb B%beta single bond - \yl@xdiff=10\relax - \yl@ydiff=56\relax - \putlatom{-301}{-27}{\@memberb}% % left type - {% - \thicklines% - \put(-171,103){\line(-5,-3){120}}% % single bond at 5 - }% - \else\if\@tmpb A%alpha single bond - \yl@xdiff=-10\relax - \yl@ydiff=56\relax - \putlatom{-301}{-27}{\@memberb}% % left type - \@ifundefined{dottedline}{% - \put(-171,103){\line(-5,-3){120}}% % single bond at 5 - }{{\thicklines% - \dottedline{20}(-171,103)(-311,31)}}% - \else\if\@tmpb F%fused bond - {\let\@tmpb=\@tmpc\@clipfusefalse - \put(-171,103){\setatombondc}% - }% - \else\if\@tmpb G%fused bond - {\let\@tmpb=\@tmpc\@clipfusefalse - \put(-171,103){\setatombondd}% - }% - \else% - \yl@xdiff=10\relax - \yl@ydiff=56\relax - \putlatom{-301}{-27}{\@memberb}% % left type - \put(-171,103){\line(-5,-3){120}}%% single bond at 5 - \fi\fi\fi\fi% - \fi\fi% - \fi}% end of \@subste -\def\@substf{% - \if@fclip %clipping - \if\@tmpb S%single bond - \ifx\@tmpc\empty% - \yl@xdiff=10\relax - \yl@ydiff=24\relax - \putlatom{-311}{363}{\@memberb}% % left type - \put(-201,327){\line(-5,3){100}}% % single bond at 6 - \else\if\@tmpc B%(B) beta - \yl@xdiff=8\relax - \yl@ydiff=38\relax - \putlatom{-268}{420}{\@memberb}% % left type - {% - \thicklines% - \put(-201,358){\line(-3,5){60}}% % single bond at 6 - }% - \else\if\@tmpc A%(A) alpha - \yl@xdiff=17\relax - \yl@ydiff=23\relax - \putlatom{-318}{280}{\@memberb}% % left type - \@ifundefined{dottedline}{% - \put(-201,303){\line(-1,0){100}}% % single bond at 6 - }{{\thicklines% - \dottedline{20}(-201,303)(-301,303)}}% - \else\if\@tmpc u%(u) up --- (B) beta - \yl@xdiff=17\relax - \yl@ydiff=23\relax - \putlatom{-318}{280}{\@memberb}% % left type - {% - \thicklines% - \put(-201,303){\line(-1,0){100}}% % single bond at 6 - }% - \else\if\@tmpc d%(d) down --- (A) alpha - \yl@xdiff=8\relax - \yl@ydiff=38\relax - \putlatom{-268}{420}{\@memberb}% % left type - \@ifundefined{dottedline}{% - \put(-201,358){\line(-3,5){60}}% % single bond at 6 - }{{\thicklines% - \dottedline{20}(-201,358)(-261,458)}}% - \else\if\@tmpc b%(b) beta - \yl@xdiff=8\relax - \yl@ydiff=38\relax - \putlatom{-268}{420}{\@memberb}% % left type - \put(-201,358){\line(-3,5){60}}% % single bond at 6 - \else\if\@tmpc a%(a) alpha - \yl@xdiff=17\relax - \yl@ydiff=23\relax - \putlatom{-318}{280}{\@memberb}% % left type - \put(-201,303){\line(-1,0){100}}% % single bond at 6 - \fi\fi\fi\fi\fi% - \fi\fi - \else\if\@tmpb D%double bond - \yl@xdiff=10\relax - \yl@ydiff=6\relax - \putlatom{-311}{363}{\@memberb}% % left type - \put(-194,331){\line(-5,3){100}}% % double bond at 6 - \put(-200,305){\line(-5,3){100}}% % double bond at 6 - \else\if\@tmpb B%beta single bond - \yl@xdiff=10\relax - \yl@ydiff=24\relax - \putlatom{-311}{363}{\@memberb}% % left type - {% - \thicklines% - \put(-201,327){\line(-5,3){100}}% % single bond at 6 - }% - \else\if\@tmpb A%alpha single bond - \yl@xdiff=10\relax - \yl@ydiff=24\relax - \putlatom{-311}{363}{\@memberb}% % left type - \@ifundefined{dottedline}{% - \put(-201,327){\line(-5,3){100}}% % single bond at 6 - }{{\thicklines% - \dottedline{20}(-201,327)(-301,387)}}%1998/10/11 by SF - \else\if\@tmpb F%fused bond - {\let\@tmpb=\@tmpc\@clipfusetrue - \put(-171,303){\setatombondg}% - }% - \else\if\@tmpb G%fused bond - {\let\@tmpb=\@tmpc\@clipfusetrue - \put(-171,303){\setatombonda}% - }% - \else% - \yl@xdiff=10\relax - \yl@ydiff=24\relax - \putlatom{-311}{363}{\@memberb}% % left type - \put(-201,327){\line(-5,3){100}}% % single bond at 6 - \fi\fi\fi\fi% - \fi\fi -\else%no clipping - \if\@tmpb S%single bond - \ifx\@tmpc\empty% - \yl@xdiff=10\relax - \yl@ydiff=12\relax - \putlatom{-301}{363}{\@memberb}% % left type - \put(-171,303){\line(-5,3){120}}% % single bond at 6 - \else\if\@tmpc B%(B) beta - \yl@xdiff=15\relax - \yl@ydiff=13\relax - \putlatom{-258}{410}{\@memberb}% % left type - {% - \thicklines% - \put(-171,303){\line(-3,5){72}}% % single bond at 6 - }% - \else\if\@tmpc A%(A) alpha - \yl@xdiff=15\relax - \yl@ydiff=23\relax - \putlatom{-326}{280}{\@memberb}% % left type - \@ifundefined{dottedline}{% - \put(-171,303){\line(-1,0){140}}% % single bond at 6 - }{{\thicklines% - \dottedline{20}(-171,303)(-311,303)}}% - \else\if\@tmpc u%(u) up --- (B) beta - \yl@xdiff=15\relax - \yl@ydiff=23\relax - \putlatom{-326}{280}{\@memberb}% % left type - {% - \thicklines% - \put(-171,303){\line(-1,0){140}}% % single bond at 6 - }% - \else\if\@tmpc d%(d) down --- (A) alpha - \yl@xdiff=15\relax - \yl@ydiff=13\relax - \putlatom{-258}{410}{\@memberb}% % left type - \@ifundefined{dottedline}{% - \put(-171,303){\line(-3,5){72}}% % single bond at 6 - }{{\thicklines% - \dottedline{20}(-171,303)(-243,423)}}% - \else\if\@tmpc b%(b) beta - \yl@xdiff=15\relax - \yl@ydiff=13\relax - \putlatom{-258}{410}{\@memberb}% % left type - \put(-171,303){\line(-3,5){72}}% % single bond at 6 - \else\if\@tmpc a%(a) alpha - \yl@xdiff=15\relax - \yl@ydiff=23\relax - \putlatom{-326}{280}{\@memberb}% % left type - \put(-171,303){\line(-1,0){140}}% % single bond at 6 - \fi\fi\fi\fi\fi% - \fi\fi% - \else\if\@tmpb D%double bond - \yl@xdiff=10\relax - \yl@ydiff=6\relax - \putlatom{-301}{363}{\@memberb}% % left type - \put(-168,310){\line(-5,3){120}}% % double bond at 6 - \put(-174,284){\line(-5,3){120}}% % double bond at 6 - \else\if\@tmpb B%beta single bond - \yl@xdiff=10\relax - \yl@ydiff=12\relax - \putlatom{-301}{363}{\@memberb}% % left type - {% - \thicklines% - \put(-171,303){\line(-5,3){120}}% % single bond at 6 - }% - \else\if\@tmpb A%alpha single bond - \yl@xdiff=-10\relax - \yl@ydiff=12\relax - \putlatom{-301}{363}{\@memberb}% % left type - \@ifundefined{dottedline}{% - \put(-171,303){\line(-5,3){120}}% % single bond at 6 - }{{\thicklines% - \dottedline{20}(-171,303)(-311,375)}}% - \else\if\@tmpb F%fused bond - {\let\@tmpb=\@tmpc\@clipfusefalse - \put(-171,303){\setatombondg}% - }% - \else\if\@tmpb G%fused bond - {\let\@tmpb=\@tmpc\@clipfusefalse - \put(-171,303){\setatombonda}% - }% - \else% - \yl@xdiff=10\relax - \yl@ydiff=12\relax - \putlatom{-301}{363}{\@memberb}% % left type - \put(-171,303){\line(-5,3){120}}% % single bond at 6 - \fi\fi\fi\fi% - \fi\fi -\fi}% end of \@substf -\def\setsixringv#1#2#3#4#5{% -\@forsemicol\member:=#1\do{% -\ifx\member\empty\else% -\expandafter\@m@mb@r\member;\relax% -\expandafter\threech@r\@membera{}{}% -\ifx\@memberb\@yl\else -\ifnum#5 < 0\relax% -\@tmpaa=-\@tmpa\relax \advance\@tmpaa by#2\relax% -\else\@tmpaa=\@tmpa\relax \advance\@tmpaa by#2\relax \fi -\ifnum\@tmpaa >#3\relax% -\ifnum\@tmpaa <#4\relax% -\ifcase\@tmpaa%0 omit - \or\@substa% subst. on 1 - \or\@substb% subst. on 2 - \or\@substc% subst. on 3 - \or\@substd% subst. on 4 - \or\@subste% subst. on 5 - \or\@substf% subst. on 6 -\fi%end of ifcase -\fi% -\fi\fi\fi}}% -\def\ylfusedposition#1#2#3#4#5{% -\@@ylswfalse%\@reset@ylsw -\@forsemicol\member:=#1\do{% -\if@@ylsw\else% -\ifx\member\empty\else% -\expandafter\@m@mb@r\member;\relax% -\expandafter\threech@r\@membera{}{}% -\ifx\@memberb\@yl\relax\@@ylswtrue\else\@@ylswfalse\fi -\if@@ylsw -\ifnum#5<0\relax% -\@tmpaa=-\@tmpa\relax\advance\@tmpaa by #2\relax% -\@fused@linktrue -\else\@tmpaa=\@tmpa\relax\advance\@tmpaa by #2\relax -\@fused@linkfalse\fi% -\ifnum\@tmpaa >#3\relax% -\ifnum\@tmpaa <#4\relax% -\ifcase\@tmpaa% - \if\@tmpb F%single bond at F (fused position) - \def\@ylii{-171}\def\@yli{-303}\@ylswtrue%\@ylatrue% subst. on 0 - \else\if\@tmpb G%single bond at G (fused position) - \def\@ylii{-171}\def\@yli{-103}\@ylswtrue%\@ylatrue% subst. on 0 - \fi\fi% -\or% subst. on 1 F == (0,406), G == (171,303) for \@fused@linkfalse - % subst. on 1 G == (0,406), F == (171,303) for \@fused@linktrue -\if@fused@link - \if\@tmpb G%single bond at F (5,-3) fusion - \def\@ylii{0}\def\@yli{-406}\@ylswtrue%\@ylatrue% subst. on 1 - \else\if\@tmpb F%single bond at G - \def\@ylii{-171}\def\@yli{-303}\@ylswtrue%\@ylatrue% subst. on 1 - \fi\fi% -\else - \if\@tmpb F%single bond at F (5,-3) fusion - \def\@ylii{0}\def\@yli{-406}\@ylswtrue%\@ylatrue% subst. on 1 - \else\if\@tmpb G%single bond at G - \def\@ylii{-171}\def\@yli{-303}\@ylswtrue%\@ylatrue% subst. on 1 - \fi\fi% -\fi -\or% subst. on 2 F == (0,406), G == (-171,303) for \@fused@linkfalse - % subst. on 2 G == (0,406), F == (-171,303) for \@fused@linktrue -\if@fused@link - \if\@tmpb G%single bond at (-5,-3) fusion - \def\@ylii{0}\def\@yli{-406}\@ylswtrue%\@ylatrue% subst. on 2 - \else\if\@tmpb F%single bond at G - \def\@ylii{171}\def\@yli{-303}\@ylswtrue%\@ylatrue% subst. on 2 - \fi\fi% -\else - \if\@tmpb F%single bond at (-5,-3) fusion - \def\@ylii{0}\def\@yli{-406}\@ylswtrue%\@ylatrue% subst. on 2 - \else\if\@tmpb G%single bond at G - \def\@ylii{171}\def\@yli{-303}\@ylswtrue%\@ylatrue% subst. on 2 - \fi\fi% -\fi -\or %3 fused positions % G == (303,171) F == (103,171) - \if\@tmpb G%single bond at G (fused position) - \def\@ylii{-303}\def\@yli{-171}\@ylswtrue%\@ylatrue% subst. on 3 - \else\if\@tmpb F%single bond at F (fused position) - \def\@ylii{-103}\def\@yli{-171}\@ylswtrue%\@ylatrue% subst. on 3 - \fi\fi% -\fi%end of ifcase -\fi\fi\fi\fi\fi}}% end of \ylfusedposition -\def\GFbonda{% - \if\@tmpb F%single bond at F (fused position) - \GFbonda@a - \else\if\@tmpb G%single bond at G (fused position) - \GFbonda@b - \fi\fi% -}%end of GFbonda -\def\GFbonda@a{% - \if\@tmpc B%beta single bond - \yl@xdiff=31\relax%171-140 - \yl@ydiff=-17\relax%460-(303+140) - \putlratom{140}{460}{\@memberb}% % left or right type - {% - \thicklines% - \put(171,303){\line(0,1){140}}% % single bond at F - }% - \else\if\@tmpc A%alpha single bond - \yl@xdiff=31\relax%171-140 - \yl@ydiff=-17\relax%460-(303+140) - \putlratom{140}{460}{\@memberb}% % left or right type - \@ifundefined{dottedline}{% - \put(171,303){\line(0,1){140}}% % single bond at F - }{{\thicklines% - \dottedline{20}(171,303)(171,443)}}% - \else\if\@tmpc U% unspecified single bond - \yl@xdiff=31\relax%171-140 - \yl@ydiff=-17\relax%460-(303+140) - \putlratom{140}{460}{\@memberb}% % left or right type - \put(168,303){$\wr$}% unspecified single bond at F - \put(168,353){$\wr$}% - \put(168,403){$\wr$}% - \else\if\@tmpc S%beta single bond - \yl@xdiff=31\relax%171-140 - \yl@ydiff=-17\relax%460-(303+140) - \putlratom{140}{460}{\@memberb}% % left or right type - \put(171,303){\line(0,1){140}}% % single bond at F - \else\ifx\@tmpc\empty%beta single bond - \yl@xdiff=31\relax%171-140 - \yl@ydiff=-17\relax%460-(303+140) - \putlratom{140}{460}{\@memberb}% % left or right type - \put(171,303){\line(0,1){140}}% % single bond at F - \fi\fi\fi\fi\fi% -}% -\def\GFbonda@b{% - \if\@tmpc B%beta single bond - \yl@xdiff=31\relax%171-140 - \yl@ydiff=90\relax%127-(140-103) - \putlratom{140}{-127}{\@memberb}% % left or right type - {% - \thicklines% - \put(171,103){\line(0,-1){140}}% % single bond at G - }% - \else\if\@tmpc A%alpha single bond - \yl@xdiff=31\relax%171-140 - \yl@ydiff=90\relax%127-(140-103) - \putlratom{140}{-127}{\@memberb}% % left or right type - \@ifundefined{dottedline}{% - \put(171,103){\line(0,-1){140}}% % single bond at G - }{{\thicklines% - \dottedline{20}(171,103)(171,-37)}}% - \else\if\@tmpc U%beta single bond - \yl@xdiff=31\relax%171-140 - \yl@ydiff=90\relax%127-(140-103) - \putlratom{140}{-127}{\@memberb}% % left or right type - \put(168,43){$\wr$}% unspecified single bond at G - \put(168,-8){$\wr$}% - \put(168,-57){$\wr$}% - \else\if\@tmpc S%alpha single bond - \yl@xdiff=31\relax%171-140 - \yl@ydiff=90\relax%127-(140-103) - \putlratom{140}{-127}{\@memberb}% % left or right type - \put(171,103){\line(0,-1){140}}% % single bond at G - \else\ifx\@tmpc\empty%alpha single bond - \yl@xdiff=31\relax%171-140 - \yl@ydiff=90\relax%127-(140-103) - \putlratom{140}{-127}{\@memberb}% % left or right type - \put(171,103){\line(0,-1){140}}% % single bond at G - \fi\fi\fi\fi\fi% -}% -\def\GFbondb{% - \if@fused@link - \if\@tmpb G%single bond at G (5,-3) fusion - \GFbondb@a - \else\if\@tmpb F%single bond at F - \GFbondb@b - \fi\fi% - \else - \if\@tmpb F%single bond at F (5,-3) fusion - \GFbondb@a - \else\if\@tmpb G%single bond at G - \GFbondb@b - \fi\fi% - \fi -}% end of \GFbondb -\def\GFbondb@a{% - \if\@tmpc B%beta single bond - \yl@xdiff=10\relax% - \yl@ydiff=22\relax% - \putlatom{-130}{466}{\@memberb}% % left type - {% - \thicklines% - \put(0,406){\line(-5,3){120}}% % single bond at F - }% - \else\if\@tmpc A%alpha single bond - \yl@xdiff=10\relax% - \yl@ydiff=22\relax% - \putlatom{-130}{466}{\@memberb}% % left type - \@ifundefined{dottedline}{% - \put(0,406){\line(-5,3){120}}% % single bond at F - }{{\thicklines% - \dottedline{20}(0,406)(-120,478)}}% - \else\if\@tmpc U%unspecified single bond - \yl@xdiff=10\relax% - \yl@ydiff=22\relax% - \putlatom{-130}{466}{\@memberb}% % left type - \put(0,406){\line(-5,3){120}}% % single bond at F - \else\if\@tmpc S%beta single bond - \yl@xdiff=10\relax% - \yl@ydiff=22\relax% - \putlatom{-130}{466}{\@memberb}% % left type - \put(0,406){\line(-5,3){120}}% % single bond at F - \else\ifx\@tmpc\empty%beta single bond - \yl@xdiff=10\relax% - \yl@ydiff=22\relax% - \putlatom{-130}{466}{\@memberb}% % left type - \put(0,406){\line(-5,3){120}}% % single bond at F - \else\if\@tmpc D%beta single bond (downward) - \yl@xdiff=31\relax% - \yl@ydiff=90\relax% - \putlratom{-31}{176}{\@memberb}% % left or right type - {% - \thicklines% - \put(0,406){\line(0,-1){140}}% % single bond at F - }% - \else\if\@tmpc C%alpha single bond (downward) - \yl@xdiff=31\relax% - \yl@ydiff=90\relax% - \putlratom{-31}{176}{\@memberb}% % left or right type - \@ifundefined{dottedline}{% - \put(0,406){\line(0,-1){140}}% % single bond at F - }{{\thicklines% - \dottedline{20}(0,406)(0,266)}}% - \fi\fi\fi\fi\fi\fi\fi% -}% end of \GFbondb@a -\def\GFbondb@b{% - \if\@tmpc B%beta single bond - \yl@xdiff=-10\relax% - \yl@ydiff=58\relax% - \putratom{301}{173}{\@memberb}% % right type - {% - \thicklines% - \put(171,303){\line(5,-3){120}}% % single bond at G - }% - \else\if\@tmpc A%alpha single bond - \yl@xdiff=-10\relax% - \yl@ydiff=58\relax% - \putratom{301}{173}{\@memberb}% % right type - \@ifundefined{dottedline}{% - \put(171,303){\line(5,-3){120}}% % single bond at G - }{{\thicklines% - \dottedline{20}(171,303)(291,231)}}% - \else\if\@tmpc U%unspecified single bond - \yl@xdiff=-10\relax% - \yl@ydiff=58\relax% - \putratom{301}{173}{\@memberb}% % right type - \put(171,303){\line(5,-3){120}}% % single bond at G - \else\if\@tmpc S%alpha single bond - \yl@xdiff=-10\relax% - \yl@ydiff=58\relax% - \putratom{301}{173}{\@memberb}% % right type - \put(171,303){\line(5,-3){120}}% % single bond at G - \else\ifx\@tmpc\empty%alpha single bond - \yl@xdiff=-10\relax% - \yl@ydiff=58\relax% - \putratom{301}{173}{\@memberb}% % right type - \put(171,303){\line(5,-3){120}}% % single bond at G - \else\if\@tmpc D%beta single bond (upward) - \yl@xdiff=31\relax% - \yl@ydiff=-17\relax% - \putlratom{140}{460}{\@memberb}% % left or right type - {% - \thicklines% - \put(171,303){\line(0,1){140}}% % single bond at G - }% - \else\if\@tmpc C%alpha single bond (upward) - \yl@xdiff=31\relax% - \yl@ydiff=-17\relax% - \putlratom{140}{460}{\@memberb}% % left or right type - \@ifundefined{dottedline}{% - \put(171,303){\line(0,1){140}}% % single bond at G - }{{\thicklines% - \dottedline{20}(171,303)(171,443)}}% - \fi\fi\fi\fi\fi\fi\fi% -}% end of \GFbondb@b -\def\GFbondc{% -\if@fused@link - \if\@tmpb G%single bond at (-5,-3) fusion - \GFbondc@a - \else\if\@tmpb F%single bond at F - \GFbondc@b - \fi\fi% -\else - \if\@tmpb F%single bond at (-5,-3) fusion - \GFbondc@a - \else\if\@tmpb G%single bond at G - \GFbondc@b - \fi\fi% -\fi -}% end of \GFbondc - \def\GFbondc@a{% - \if\@tmpc B%beta single bond - \yl@xdiff=-10\relax% - \yl@ydiff=12\relax% - \putratom{130}{466}{\@memberb}% % right type - {% - \thicklines% - \put(0,406){\line(5,3){120}}% % single bond at F - }% - \else\if\@tmpc A%alpha single bond - \yl@xdiff=-10\relax% - \yl@ydiff=12\relax% - \putratom{130}{466}{\@memberb}% % right type - \@ifundefined{dottedline}{% - \put(0,406){\line(5,3){120}}% % single bond at F - }{{\thicklines% - \dottedline{20}(0,406)(120,478)}}% - \else\if\@tmpc U%unspecified single bond - \yl@xdiff=-10\relax% - \yl@ydiff=12\relax% - \putratom{130}{466}{\@memberb}% % right type - \put(0,406){\line(5,3){120}}% % single bond at F - \else\if\@tmpc S%beta single bond - \yl@xdiff=-10\relax% - \yl@ydiff=12\relax% - \putratom{130}{466}{\@memberb}% % right type - \put(0,406){\line(5,3){120}}% % single bond at F - \else\ifx\@tmpc\empty%beta single bond - \yl@xdiff=-10\relax% - \yl@ydiff=12\relax% - \putratom{130}{466}{\@memberb}% % right type - \put(0,406){\line(5,3){120}}% % single bond at F - \else\if\@tmpc D%beta single bond (downward) - \yl@xdiff=31\relax% - \yl@ydiff=90\relax% - \putlratom{-31}{176}{\@memberb}% % left or right type - {% - \thicklines% - \put(0,406){\line(0,-1){140}}% % single bond at F - }% - \else\if\@tmpc C%alpha single bond (downward) - \yl@xdiff=31\relax% - \yl@ydiff=90\relax% - \putlratom{-31}{176}{\@memberb}% % left or right type - \@ifundefined{dottedline}{% - \put(0,406){\line(0,-1){140}}% % single bond at F - }{{\thicklines% - \dottedline{20}(0,406)(0,266)}}% - \fi\fi\fi\fi\fi\fi\fi% -}% end of \GFbondc@a -\def\GFbondc@b{% - \if\@tmpc B%beta single bond - \yl@xdiff=10\relax% - \yl@ydiff=59\relax% - \putlatom{-301}{173}{\@memberb}% % left type - {% - \thicklines% - \put(-171,303){\line(-5,-3){120}}% % single bond at G - }% - \else\if\@tmpc A%alpha single bond - \yl@xdiff=10\relax% - \yl@ydiff=59\relax% - \putlatom{-301}{173}{\@memberb}% % left type - \@ifundefined{dottedline}{% - \put(-171,303){\line(-5,-3){120}}% % single bond at G - }{{\thicklines% - \dottedline{20}(-171,303)(-291,231)}}% - \else\if\@tmpc U%unspecified single bond - \yl@xdiff=10\relax% - \yl@ydiff=59\relax% - \putlatom{-301}{173}{\@memberb}% % left type - \put(-171,303){\line(-5,-3){120}}% single bond at G - \else\if\@tmpc S%alpha single bond - \yl@xdiff=10\relax% - \yl@ydiff=59\relax% - \putlatom{-301}{173}{\@memberb}% % left type - \put(-171,303){\line(-5,-3){120}}% single bond at G - \else\ifx\@tmpc\empty%alpha single bond - \yl@xdiff=10\relax% - \yl@ydiff=59\relax% - \putlatom{-301}{173}{\@memberb}% % left type - \put(-171,303){\line(-5,-3){120}}% single bond at G - \else\if\@tmpc D%beta single bond (upward) - \yl@xdiff=-30\relax% - \yl@ydiff=-17\relax% - \putlratom{201}{460}{\@memberb}% % left or right type - {% - \thicklines% - \put(-171,303){\line(0,1){140}}% % single bond at G - }% - \else\if\@tmpc C%alpha single bond (upward) - \yl@xdiff=-30\relax% - \yl@ydiff=-17\relax% - \putlratom{201}{460}{\@memberb}% % left or right type - \@ifundefined{dottedline}{% - \put(-171,303){\line(0,1){140}}% % single bond at G - }{{\thicklines% - \dottedline{20}(-171,303)(-171,443)}}% - \fi\fi\fi\fi\fi\fi\fi% -}% end of \GFbondc@b -\def\GFbondd{% - \if\@tmpb G%single bond at G (fused position) - \if\@tmpc B%beta single bond - \yl@xdiff=-17\relax% - \yl@ydiff=31\relax% - \putlratom{460}{140}{\@memberb}% % left or right type - {% - \thicklines% - \put(303,171){\line(1,0){140}}% % single bond at G - }% - \else\if\@tmpc A%alpha single bond - \yl@xdiff=-17\relax% - \yl@ydiff=31\relax% - \putlratom{460}{140}{\@memberb}% % left or right type - \@ifundefined{dottedline}{% - \put(303,171){\line(1,0){140}}% % single bond at G - }{{\thicklines% - \dottedline{20}(303,171)(443,171)}}% - \else\if\@tmpc U% unspecified single bond - \yl@xdiff=-17\relax% - \yl@ydiff=31\relax% - \putlratom{460}{140}{\@memberb}% % left or right type - \put(303,148){$\sim$}% unspecified single bond at G - \put(353,148){$\sim$}% - \put(403,148){$\sim$}% - \else\if\@tmpc S%beta single bond - \yl@xdiff=-17\relax% - \yl@ydiff=31\relax% - \putlratom{460}{140}{\@memberb}% % left or right type - \put(303,171){\line(1,0){140}}% % single bond at G - \else\ifx\@tmpc\empty%beta single bond - \yl@xdiff=-17\relax% - \yl@ydiff=31\relax% - \putlratom{460}{140}{\@memberb}% % left or right type - \put(303,171){\line(1,0){140}}% % single bond at G - \fi\fi\fi\fi\fi% - \else\if\@tmpb F%single bond at F (fused position) - \if\@tmpc B%beta single bond - \yl@xdiff=20\relax% - \yl@ydiff=31\relax% - \putlatom{-57}{140}{\@memberb}% % left type - {% - \thicklines% - \put(103,171){\line(-1,0){140}}% % single bond at F - }% - \else\if\@tmpc A%alpha single bond - \yl@xdiff=20\relax% - \yl@ydiff=31\relax% - \putlatom{-57}{140}{\@memberb}% % left type - \@ifundefined{dottedline}{% - \put(103,171){\line(-1,0){140}}% % single bond at F - }{{\thicklines% - \dottedline{20}(103,171)(-37,171)}}% - \else\if\@tmpc U%beta single bond - \yl@xdiff=20\relax% - \yl@ydiff=31\relax% - \putlatom{-57}{140}{\@memberb}% % left type - \put(40,148){$\sim$}% unspecified single bond at F - \put(-13,148){$\sim$}% - \put(-62,148){$\sim$}% - \else\if\@tmpc S%alpha single bond - \yl@xdiff=20\relax% - \yl@ydiff=31\relax% - \putlatom{-57}{140}{\@memberb}% % left type - \put(103,171){\line(-1,0){140}}% % single bond at F - \else\ifx\@tmpc\empty%alpha single bond - \yl@xdiff=20\relax% - \yl@ydiff=31\relax% - \putlatom{-57}{140}{\@memberb}% % left type - \put(103,171){\line(-1,0){140}}% % single bond at F - \fi\fi\fi\fi\fi% - \fi\fi% -}% end of \GFbondd -\newif\if@fused@link \@fused@linkfalse -\def\setfusedbond#1#2#3#4#5{% -\@forsemicol\member:=#1\do{% -\ifx\member\empty\else% -\expandafter\@m@mb@r\member;\relax% -\expandafter\threech@r\@membera{}{}% -\ifx\@memberb\@yl\else -\ifnum#5<0\relax% -\@tmpaa=-\@tmpa\relax\advance\@tmpaa by #2\relax\@fused@linktrue -\else\@tmpaa=\@tmpa\relax\advance\@tmpaa by #2\relax -\@fused@linkfalse\fi% -\ifnum\@tmpaa >#3\relax% -\ifnum\@tmpaa <#4\relax% -\ifcase\@tmpaa% -\GFbonda -\or% subst. on 1 F == (0,406), G == (171,303) -\GFbondb -\or% subst. on 2 F == (0,406), G == (-171,303) for \@fused@linkfalse - % subst. on 2 G == (0,406), F == (-171,303) for \@fused@linktrue -\GFbondc -\or %3 fused positions % G == (303,171) F == (103,171) -\GFbondd -\fi%end of ifcase -\fi\fi\fi\fi}}% -\newif\if@clipfuse \@clipfusefalse -\def\setatombond#1#2#3{% -\@forsemicol\member:=#1\do{% -\ifx\member\empty\else% -\expandafter\@m@mb@r\member;\relax% -\expandafter\threech@r\@membera{}{}% -\@tmpaa=\@tmpa\relax\advance\@tmpaa by #2\relax -\ifx\@memberb\@yl\else -\ifnum\@tmpaa >0\relax% -\ifnum\@tmpaa <2\relax% -\ifcase\@tmpaa% -\or% subst. on 1 - \ifnum#3=1\relax%(upward) - \setatombonda - \else\ifnum#3=4\relax%(right) - \setatombondb - \else\ifnum#3=7\relax%(downward) - \setatombondc - \else\ifnum#3=11\relax% - \setatombondd - \else\ifnum#3=5\relax% - \setatombonde - \else\ifnum#3=3\relax% - \setatombondf - \else\ifnum#3=9\relax% - \setatombondg - \else\ifnum#3=10\relax%(left) - \setatombondh -\fi\fi\fi\fi\fi\fi\fi\fi% -\fi%end of ifcase -\fi\fi\fi\fi}}% -\def\setatombonda{%upward (0,1) - \if@clipfuse% - \if\@tmpb B%beta single bond - \yl@xdiff=31\relax - \yl@ydiff=-17\relax - {% - \thicklines% - \put(0,40){\line(0,1){100}}% % single bond at 1 - }% - \else\if\@tmpb A%alpha single bond - \yl@xdiff=31\relax - \yl@ydiff=-17\relax - \@ifundefined{dottedline}{% - \put(0,40){\line(0,1){100}}% % single bond at 1 - }{{\thicklines% - \dottedline{20}(0,40)(0,140)}}% - \else\if\@tmpb U% unspecified single bond - \yl@xdiff=31\relax - \yl@ydiff=-17\relax - \put(-3,30){$\wr$}% unspecified single bond at 1 - \put(-3,80){$\wr$}% - \else\if\@tmpb S%beta single bond - \yl@xdiff=31\relax - \yl@ydiff=-17\relax - \put(0,40){\line(0,1){100}}% % single bond at 1 - \else\if\@tmpb D%double bond - \yl@xdiff=31\relax - \yl@ydiff=-17\relax - \put(-10,40){\line(0,1){100}}% % single bond at 1 - \put(10,40){\line(0,1){100}}% % single bond at 1 - \else\if\@tmpb T%double bond - \yl@xdiff=31\relax - \yl@ydiff=-17\relax - \put(-15,40){\line(0,1){100}}% % single bond at 1 - \put(0,40){\line(0,1){100}}% % single bond at 1 - \put(15,40){\line(0,1){100}}% % single bond at 1 - \else\ifx\@tmpb\empty%beta single bond - \yl@xdiff=31\relax - \yl@ydiff=-17\relax - \put(0,40){\line(0,1){100}}% % single bond at 1 - \fi\fi\fi\fi\fi\fi\fi% - \putlratom{-31}{157}{\@memberb}% % left or right type - \else%no clip - \if\@tmpb B%beta single bond - \yl@xdiff=31\relax - \yl@ydiff=-17\relax - {% - \thicklines% - \put(0,0){\line(0,1){140}}% % single bond at 1 - }% - \else\if\@tmpb A%alpha single bond - \yl@xdiff=31\relax - \yl@ydiff=-17\relax - \@ifundefined{dottedline}{% - \put(0,0){\line(0,1){140}}% % single bond at 1 - }{{\thicklines% - \dottedline{20}(0,0)(0,140)}}% - \else\if\@tmpb U% unspecified single bond - \yl@xdiff=31\relax - \yl@ydiff=-17\relax - \put(-3,0){$\wr$}% unspecified single bond at 1 - \put(-3,50){$\wr$}% - \put(-3,100){$\wr$}% - \else\if\@tmpb S%beta single bond - \yl@xdiff=31\relax - \yl@ydiff=-17\relax - \put(0,0){\line(0,1){140}}% % single bond at 1 - \else\if\@tmpb D%beta single bond - \yl@xdiff=31\relax - \yl@ydiff=-17\relax - \put(-10,0){\line(0,1){140}}% % single bond at 1 - \put(10,0){\line(0,1){140}}% % single bond at 1 - \else\if\@tmpb T%beta single bond - \yl@xdiff=31\relax - \yl@ydiff=-17\relax - \put(-15,0){\line(0,1){140}}% % single bond at 1 - \put(0,0){\line(0,1){140}}% % single bond at 1 - \put(15,0){\line(0,1){140}}% % single bond at 1 - \else\ifx\@tmpb\empty%beta single bond - \yl@xdiff=31\relax - \yl@ydiff=-17\relax - \put(0,0){\line(0,1){140}}% % single bond at 1 - \fi\fi\fi\fi\fi\fi\fi% - \putlratom{-31}{157}{\@memberb}% % left or right type - \fi% -}% end of \setatombonda -\def\setatombondb{%(right) (1,0) - \if@clipfuse% - \if\@tmpb B%beta single bond - \yl@xdiff=-17\relax - \yl@ydiff=31\relax - {% - \thicklines% - \put(30,0){\line(1,0){110}}% % single bond at 1 - }% - \else\if\@tmpb A%alpha single bond - \yl@xdiff=-17\relax - \yl@ydiff=31\relax - \@ifundefined{dottedline}{% - \put(30,0){\line(1,0){110}}% % single bond at 1 - }{{\thicklines% - \dottedline{20}(30,0)(140,0)}}% - \else\if\@tmpb U%beta single bond - \yl@xdiff=-17\relax - \yl@ydiff=31\relax - \put(30,0){\line(1,0){110}}% % single bond at 1 - \else\if\@tmpb S%alpha single bond - \yl@xdiff=-17\relax - \yl@ydiff=31\relax - \put(40,0){\line(1,0){100}}% % single bond at 1 - \else\if\@tmpb D%alpha single bond - \yl@xdiff=-17\relax - \yl@ydiff=31\relax - \put(40,10){\line(1,0){100}}% % single bond at 1 - \put(40,-10){\line(1,0){100}}% % single bond at 1 - \else\if\@tmpb T%alpha single bond - \yl@xdiff=-17\relax - \yl@ydiff=31\relax - \put(40,15){\line(1,0){100}}% % single bond at 1 - \put(40,0){\line(1,0){100}}% % single bond at 1 - \put(40,-15){\line(1,0){100}}% % single bond at 1 - \else\ifx\@tmpb\empty%alpha single bond - \yl@xdiff=-17\relax - \yl@ydiff=31\relax - \put(40,0){\line(1,0){100}}% % single bond at 1 - \fi\fi\fi\fi\fi\fi\fi% - \putratom{157}{-31}{\@memberb}% % right type only - \else% - \if\@tmpb B%beta single bond - \yl@xdiff=-17\relax - \yl@ydiff=31\relax - {% - \thicklines% - \put(0,0){\line(1,0){140}}% % single bond at 1 - }% - \else\if\@tmpb A%alpha single bond - \yl@xdiff=-17\relax - \yl@ydiff=31\relax - \@ifundefined{dottedline}{% - \put(0,0){\line(1,0){140}}% % single bond at 1 - }{{\thicklines% - \dottedline{20}(0,0)(140,0)}}% - \else\if\@tmpb U%beta single bond - \yl@xdiff=-17\relax - \yl@ydiff=31\relax - \put(0,0){\line(1,0){140}}% % single bond at 1 - \else\if\@tmpb S%alpha single bond - \yl@xdiff=-17\relax - \yl@ydiff=31\relax - \put(0,0){\line(1,0){140}}% % single bond at 1 - \else\if\@tmpb D%alpha single bond - \yl@xdiff=-17\relax - \yl@ydiff=31\relax - \put(0,10){\line(1,0){140}}% % single bond at 1 - \put(0,-10){\line(1,0){140}}% % single bond at 1 - \else\if\@tmpb T%alpha single bond - \yl@xdiff=-17\relax - \yl@ydiff=31\relax - \put(0,-15){\line(1,0){140}}% % single bond at 1 - \put(0,0){\line(1,0){140}}% % single bond at 1 - \put(0,15){\line(1,0){140}}% % single bond at 1 - \else\ifx\@tmpb\empty%alpha single bond - \yl@xdiff=-17\relax - \yl@ydiff=31\relax - \put(0,0){\line(1,0){140}}% % single bond at 1 - \fi\fi\fi\fi\fi\fi\fi% - \putratom{157}{-31}{\@memberb}% % right type only - \fi% -}% end of \setatombondb -\def\setatombondc{%(downward) (0,-1) - \if@clipfuse% - \if\@tmpb B%beta single bond - \yl@xdiff=31\relax - \yl@ydiff=90\relax - {% - \thicklines% - \put(0,-40){\line(0,-1){100}}% % single bond at 1 - }% - \else\if\@tmpb A%alpha single bond - \yl@xdiff=31\relax - \yl@ydiff=90\relax - \@ifundefined{dottedline}{% - \put(0,-40){\line(0,-1){100}}% % single bond at 1 - }{{\thicklines% - \dottedline{20}(0,-40)(0,-140)}}% - \else\if\@tmpb U%beta single bond - \yl@xdiff=31\relax - \yl@ydiff=90\relax - \put(-3,-90){$\wr$}% unspecified single bond at 1 - \put(-3,-140){$\wr$}% - \else\if\@tmpb S%alpha single bond - \yl@xdiff=31\relax - \yl@ydiff=90\relax - \put(0,-40){\line(0,-1){100}}% % single bond at 1 - \else\if\@tmpb D%alpha single bond - \yl@xdiff=31\relax - \yl@ydiff=90\relax - \put(10,-40){\line(0,-1){100}}% % single bond at 1 - \put(-10,-40){\line(0,-1){100}}% % single bond at 1 - \else\if\@tmpb T%alpha single bond - \yl@xdiff=31\relax - \yl@ydiff=90\relax - \put(15,-40){\line(0,-1){100}}% % single bond at 1 - \put(0,-40){\line(0,-1){100}}% % single bond at 1 - \put(-15,-40){\line(0,-1){100}}% % single bond at 1 - \else\ifx\@tmpb\empty%alpha single bond - \yl@xdiff=31\relax - \yl@ydiff=90\relax - \put(0,-40){\line(0,-1){100}}% % single bond at 1 - \fi\fi\fi\fi\fi\fi\fi% - \putlratom{-31}{-230}{\@memberb}% % left or right type - \else%no clipping - \if\@tmpb B%beta single bond - \yl@xdiff=31\relax - \yl@ydiff=90\relax - {% - \thicklines% - \put(0,0){\line(0,-1){140}}% % single bond at 1 - }% - \else\if\@tmpb A%alpha single bond - \yl@xdiff=31\relax - \yl@ydiff=90\relax - \@ifundefined{dottedline}{% - \put(0,0){\line(0,-1){140}}% % single bond at 1 - }{{\thicklines% - \dottedline{20}(0,0)(0,-140)}}% - \else\if\@tmpb U%beta single bond - \yl@xdiff=31\relax - \yl@ydiff=90\relax - \put(-3,-60){$\wr$}% unspecified single bond at 1 - \put(-3,-110){$\wr$}% - \put(-3,-160){$\wr$}% - \else\if\@tmpb S%alpha single bond - \yl@xdiff=31\relax - \yl@ydiff=90\relax - \put(0,0){\line(0,-1){140}}% % single bond at 1 - \else\if\@tmpb D%alpha single bond - \yl@xdiff=31\relax - \yl@ydiff=90\relax - \put(10,0){\line(0,-1){140}}% % single bond at 1 - \put(-10,0){\line(0,-1){140}}% % single bond at 1 - \else\if\@tmpb T%alpha single bond - \yl@xdiff=31\relax - \yl@ydiff=90\relax - \put(15,0){\line(0,-1){140}}% % single bond at 1 - \put(0,0){\line(0,-1){140}}% % single bond at 1 - \put(-15,0){\line(0,-1){140}}% % single bond at 1 - \else\ifx\@tmpb\empty%alpha single bond - \yl@xdiff=31\relax - \yl@ydiff=90\relax - \put(0,0){\line(0,-1){140}}% % single bond at 1 - \fi\fi\fi\fi\fi\fi\fi% - \putlratom{-31}{-230}{\@memberb}% % left or right type - \fi% -}% end of \setatombondc -\def\setatombondd{% (-5,3) - \if@clipfuse% - \yl@xdiff=-10\relax - \yl@ydiff=18\relax - \if\@tmpb B%beta single bond - {% - \thicklines% - \put(-30,18){\line(-5,3){100}}% % single bond at 1 - }% - \else\if\@tmpb A%alpha single bond - \@ifundefined{dottedline}{% - \put(-30,18){\line(-5,3){100}}% % single bond at 1 - }{{\thicklines% - \dottedline{20}(-30,18)(-130,78)}}% - \else\if\@tmpb U%unspecified single bond - \put(-30,18){\line(-5,3){100}}% % single bond at 1 - \else\if\@tmpb S%beta single bond - \put(-30,18){\line(-5,3){100}}% % single bond at 1 - \else\if\@tmpb D%beta single bond - \put(-36,8){\line(-5,3){100}}% % single bond at 1 - \put(-24,24){\line(-5,3){100}}% % single bond at 1 - \else\if\@tmpb T%beta single bond - \put(-39,3){\line(-5,3){100}}% % single bond at 1 - \put(-30,18){\line(-5,3){100}}% % single bond at 1 - \put(-21,33){\line(-5,3){100}}% % single bond at 1 - \else\ifx\@tmpb\empty%beta single bond - \put(-30,18){\line(-5,3){100}}% % single bond at 1 - \fi\fi\fi\fi\fi\fi\fi% - \putlatom{-130}{60}{\@memberb}% % left type - \else%no clipping - \yl@xdiff=-10\relax - \yl@ydiff=18\relax - \if\@tmpb B%beta single bond - {% - \thicklines% - \put(0,0){\line(-5,3){130}}% % single bond at 1 - }% - \else\if\@tmpb A%alpha single bond - \@ifundefined{dottedline}{% - \put(0,0){\line(-5,3){130}}% % single bond at 1 - }{{\thicklines% - \dottedline{20}(0,0)(-130,78)}}% - \else\if\@tmpb U%unspecified single bond - \put(0,0){\line(-5,3){130}}% % single bond at 1 - \else\if\@tmpb S%beta single bond - \put(0,0){\line(-5,3){130}}% % single bond at 1 - \else\if\@tmpb D%beta single bond - \put(6,10){\line(-5,3){130}}% % single bond at 1 - \put(-6,-10){\line(-5,3){130}}% % single bond at 1 - \else\if\@tmpb T%beta single bond - \put(9,15){\line(-5,3){130}}% % single bond at 1 - \put(0,0){\line(-5,3){130}}% % single bond at 1 - \put(-9,-15){\line(-5,3){130}}% % single bond at 1 - \else\ifx\@tmpb\empty%beta single bond - \put(0,0){\line(-5,3){130}}% % single bond at 1 - \fi\fi\fi\fi\fi\fi\fi% - \putlatom{-130}{60}{\@memberb}% % left type - \fi% -}% end of \setatombondd -\def\setatombonde{%(5,-3) - \if@clipfuse% - \yl@xdiff=-10\relax - \yl@ydiff=52\relax - \if\@tmpb B%beta single bond - {% - \thicklines% - \put(30,-18){\line(5,-3){100}}% % single bond at 1 - }% - \else\if\@tmpb A%alpha single bond - \@ifundefined{dottedline}{% - \put(30,-18){\line(5,-3){100}}% % single bond at 1 - }{{\thicklines% - \dottedline{20}(30,-18)(130,-78)}}% - \else\if\@tmpb U%unspecified single bond - \put(30,-18){\line(5,-3){100}}% % single bond at 1 - \else\if\@tmpb S%alpha single bond - \put(30,-18){\line(5,-3){100}}% % single bond at 1 - \else\if\@tmpb D%alpha single bond - \put(36,-12){\line(5,-3){100}}% % single bond at 1 - \put(24,-28){\line(5,-3){100}}% % single bond at 1 - \else\if\@tmpb T%alpha single bond - \put(39,-3){\line(5,-3){100}}% % single bond at 1 - \put(30,-18){\line(5,-3){100}}% % single bond at 1 - \put(21,-33){\line(5,-3){100}}% % single bond at 1 - \else\ifx\@tmpb\empty%alpha single bond - \put(30,-18){\line(5,-3){100}}% % single bond at 1 - \fi\fi\fi\fi\fi\fi\fi% - \putratom{140}{-130}{\@memberb}% % right type - \else%no clipping - \yl@xdiff=-10\relax - \yl@ydiff=52\relax - \if\@tmpb B%beta single bond - {% - \thicklines% - \put(0,0){\line(5,-3){130}}% % single bond at 1 - }% - \else\if\@tmpb A%alpha single bond - \@ifundefined{dottedline}{% - \put(0,0){\line(5,-3){130}}% % single bond at 1 - }{{\thicklines% - \dottedline{20}(0,0)(130,-78)}}% - \else\if\@tmpb U%unspecified single bond - \put(0,0){\line(5,-3){130}}% % single bond at 1 - \else\if\@tmpb S%alpha single bond - \put(0,0){\line(5,-3){130}}% % single bond at 1 - \else\if\@tmpb D%alpha single bond - \put(6,10){\line(5,-3){130}}% % single bond at 1 - \put(-6,-10){\line(5,-3){130}}% % single bond at 1 - \else\if\@tmpb T%alpha single bond - \put(9,15){\line(5,-3){130}}% % single bond at 1 - \put(0,0){\line(5,-3){130}}% % single bond at 1 - \put(-9,-15){\line(5,-3){130}}% % single bond at 1 - \else\ifx\@tmpb\empty%alpha single bond - \put(0,0){\line(5,-3){130}}% % single bond at 1 - \fi\fi\fi\fi\fi\fi\fi% - \putratom{140}{-130}{\@memberb}% % right type - \fi% -}% end of \setatombonde -\def\setatombondf{%% (5,3) - \if@clipfuse% - \yl@xdiff=-10\relax - \yl@ydiff=18\relax - \if\@tmpb B%beta single bond - {% - \thicklines% - \put(30,18){\line(5,3){100}}% % single bond at 1 - }% - \else\if\@tmpb A%alpha single bond - \@ifundefined{dottedline}{% - \put(30,18){\line(5,3){100}}% % single bond at 1 - }{{\thicklines% - \dottedline{20}(30,18)(130,78)}}% - \else\if\@tmpb U%unspecified single bond - \put(30,18){\line(5,3){100}}% % single bond at 1 - \else\if\@tmpb S%beta single bond - \put(30,18){\line(5,3){100}}% % single bond at 1 - \else\if\@tmpb D%beta single bond - \put(36,8){\line(5,3){100}}% % single bond at 1 - \put(24,24){\line(5,3){100}}% % single bond at 1 - \else\if\@tmpb T%beta single bond - \put(39,3){\line(5,3){100}}% % single bond at 1 - \put(30,18){\line(5,3){100}}% % single bond at 1 - \put(21,33){\line(5,3){100}}% % single bond at 1 - \else\ifx\@tmpb\empty%beta single bond - \put(30,18){\line(5,3){100}}% % single bond at 1 - \fi\fi\fi\fi\fi\fi\fi% - \putratom{140}{60}{\@memberb}% % right type - \else%no clipping - \yl@xdiff=-10\relax - \yl@ydiff=18\relax - \if\@tmpb B%beta single bond - {% - \thicklines% - \put(0,0){\line(5,3){130}}% % single bond at 1 - }% - \else\if\@tmpb A%alpha single bond - \@ifundefined{dottedline}{% - \put(0,0){\line(5,3){130}}% % single bond at 1 - }{{\thicklines% - \dottedline{20}(0,0)(130,78)}}% - \else\if\@tmpb U%unspecified single bond - \put(0,0){\line(5,3){130}}% % single bond at 1 - \else\if\@tmpb S%beta single bond - \put(0,0){\line(5,3){130}}% % single bond at 1 - \else\if\@tmpb D%beta single bond - \put(6,-10){\line(5,3){130}}% % single bond at 1 - \put(-6,10){\line(5,3){130}}% % single bond at 1 - \else\if\@tmpb T%beta single bond - \put(9,-15){\line(5,3){130}}% % single bond at 1 - \put(0,0){\line(5,3){130}}% % single bond at 1 - \put(-9,15){\line(5,3){130}}% % single bond at 1 - \else\ifx\@tmpb\empty%beta single bond - \put(0,0){\line(5,3){130}}% % single bond at 1 - \fi\fi\fi\fi\fi\fi\fi% - \putratom{140}{60}{\@memberb}% % right type - \fi% -}% end of \setatombondf -\def\setatombondg{%% (-5,-3) - \if@clipfuse% - \yl@xdiff=0\relax - \yl@ydiff=52\relax%1999/1/6 by Shinsaku Fujita - \if\@tmpb B%beta single bond - {% - \thicklines% - \put(-30,-18){\line(-5,-3){100}}% % single bond at 1 - }% - \else\if\@tmpb A%alpha single bond - \@ifundefined{dottedline}{% - \put(-30,-18){\line(-5,-3){100}}% % single bond at 1 - }{{\thicklines% - \dottedline{20}(-20,-12)(-120,-72)}}% - \else\if\@tmpc U%unspecified single bond - \put(-30,-18){\line(-5,-3){100}}% % single bond at 1 - \else\if\@tmpc S%alpha single bond - \put(-30,-18){\line(-5,-3){100}}% % single bond at 1 - \else\if\@tmpb D%double bond - \put(-36,-12){\line(-5,-3){100}}% % single bond at 1 - \put(-24,-28){\line(-5,-3){100}}% % single bond at 1 - \else\if\@tmpb T%triple bond - \put(-39,-3){\line(-5,-3){100}}% % single bond at 1 - \put(-30,-18){\line(-5,-3){100}}% % single bond at 1 - \put(-21,-33){\line(-5,-3){100}}% % single bond at 1 - \else\ifx\@tmpc\empty%alpha single bond - \put(-30,-18){\line(-5,-3){100}}% % single bond at 1 - \fi\fi\fi\fi\fi\fi\fi% - \putlatom{-130}{-130}{\@memberb}% % left type - \else% - \yl@xdiff=0\relax - \yl@ydiff=52\relax%1999/1/6 by Shinsaku Fujita - \if\@tmpb B%beta single bond - {% - \thicklines% - \put(0,0){\line(-5,-3){130}}% % single bond at 1 - }% - \else\if\@tmpb A%alpha single bond - \@ifundefined{dottedline}{% - \put(0,0){\line(-5,-3){130}}% % single bond at 1 - }{{\thicklines% - \dottedline{20}(0,0)(-130,-78)}}% - \else\if\@tmpc U%unspecified single bond - \put(0,0){\line(-5,-3){130}}% % single bond at 1 - \else\if\@tmpc S%alpha single bond - \put(0,0){\line(-5,-3){130}}% % single bond at 1 - \else\if\@tmpb D%alpha single bond - \put(-6,10){\line(-5,-3){130}}% % single bond at 1 - \put(6,-10){\line(-5,-3){130}}% % single bond at 1 - \else\if\@tmpb T%alpha single bond - \put(-9,15){\line(-5,-3){130}}% % single bond at 1 - \put(0,0){\line(-5,-3){130}}% % single bond at 1 - \put(9,-15){\line(-5,-3){130}}% % single bond at 1 - \else\ifx\@tmpc\empty%alpha single bond - \put(0,0){\line(-5,-3){130}}% % single bond at 1 - \fi\fi\fi\fi\fi\fi\fi% - \putlatom{-130}{-130}{\@memberb}% % left type - \fi% -}% end of \setatombondg -\def\setatombondh{% (-1,0) - \yl@xdiff=17\relax - \yl@ydiff=31\relax - \if@clipfuse% - \if\@tmpb B%beta single bond - {% - \thicklines% - \put(-30,0){\line(-1,0){110}}% % single bond at 1 - }% - \else\if\@tmpb A%alpha single bond - \@ifundefined{dottedline}{% - \put(-30,0){\line(-1,0){110}}% % single bond at 1 - }{{\thicklines% - \dottedline{20}(-30,0)(-140,0)}}% - \else\if\@tmpb U%beta single bond - \put(-30,0){\line(-1,0){110}}% % single bond at 1 - \else\if\@tmpb S%alpha single bond - \put(-40,0){\line(-1,0){100}}% % single bond at 1 - \else\if\@tmpb D%alpha single bond - \put(-40,10){\line(-1,0){100}}% % single bond at 1 - \put(-40,-10){\line(-1,0){100}}% % single bond at 1 - \else\if\@tmpb T%alpha single bond - \put(-40,15){\line(-1,0){100}}% % single bond at 1 - \put(-40,0){\line(-1,0){100}}% % single bond at 1 - \put(-40,-15){\line(-1,0){100}}% % single bond at 1 - \else\ifx\@tmpb\empty%alpha single bond - \put(-40,0){\line(-1,0){100}}% % single bond at 1 - \fi\fi\fi\fi\fi\fi\fi% - \putlatom{-157}{-31}{\@memberb}% % left type only - \else% - \if\@tmpb B%beta single bond - {% - \thicklines% - \put(0,0){\line(-1,0){140}}% % single bond at 1 - }% - \else\if\@tmpb A%alpha single bond - \@ifundefined{dottedline}{% - \put(0,0){\line(-1,0){140}}% % single bond at 1 - }{{\thicklines% - \dottedline{20}(0,0)(-140,0)}}% - \else\if\@tmpb U%beta single bond - \put(0,0){\line(-1,0){140}}% % single bond at 1 - \else\if\@tmpb S%alpha single bond - \put(0,0){\line(-1,0){140}}% % single bond at 1 - \else\if\@tmpb D%alpha single bond - \put(0,10){\line(-1,0){140}}% % single bond at 1 - \put(0,-10){\line(-1,0){140}}% % single bond at 1 - \else\if\@tmpb T%alpha single bond - \put(0,-15){\line(-1,0){140}}% % single bond at 1 - \put(0,0){\line(-1,0){140}}% % single bond at 1 - \put(0,15){\line(-1,0){140}}% % single bond at 1 - \else\ifx\@tmpb\empty%alpha single bond - \put(0,0){\line(-1,0){140}}% % single bond at 1 - \fi\fi\fi\fi\fi\fi\fi% - \putlatom{-157}{-31}{\@memberb}% % left type only - \fi% -}% end of \setatombondh -\def\ylatombondposition#1#2#3{% -\@@ylswfalse%%%\@reset@ylsw -\@forsemicol\member:=#1\do{% -\if@@ylsw\else% -\ifx\member\empty\else% -\expandafter\@m@mb@r\member;\relax% -\expandafter\threech@r\@membera{}{}% -\ifx\@memberb\@yl\relax\@@ylswtrue\else\@@ylswfalse\fi -\if@@ylsw -\@tmpaa=\@tmpa\relax\advance\@tmpaa by #2\relax -\ifnum\@tmpaa >0\relax% -\ifnum\@tmpaa <2\relax% -\ifcase\@tmpaa% -\or% subst. on 1 - \ifnum#3=1\relax%upward - \if@clipfuse% - \gdef\@ylii{0}\gdef\@yli{-48}\global\@ylswtrue% - \else - \gdef\@ylii{0}\gdef\@yli{0}\global\@ylswtrue% - \fi - \else\ifnum#3=4\relax%(right) - \if@clipfuse% - \gdef\@ylii{-40}\gdef\@yli{0}\global\@ylswtrue% - \else - \gdef\@ylii{0}\gdef\@yli{0}\global\@ylswtrue% - \fi - \else\ifnum#3=7\relax%(downward) - \if@clipfuse% - \gdef\@ylii{0}\gdef\@yli{48}\global\@ylswtrue% - \else - \gdef\@ylii{0}\gdef\@yli{0}\global\@ylswtrue% - \fi - \else\ifnum#3=11\relax% - \if@clipfuse% - \gdef\@ylii{50}\gdef\@yli{-30}\global\@ylswtrue% - \else - \gdef\@ylii{0}\gdef\@yli{0}\global\@ylswtrue% - \fi - \else\ifnum#3=5\relax% - \if@clipfuse% - \gdef\@ylii{-50}\gdef\@yli{30}\global\@ylswtrue% - \else - \gdef\@ylii{0}\gdef\@yli{0}\global\@ylswtrue% - \fi - \else\ifnum#3=3\relax% - \if@clipfuse% - \gdef\@ylii{-50}\gdef\@yli{-30}\global\@ylswtrue% - \else - \gdef\@ylii{0}\gdef\@yli{0}\global\@ylswtrue% - \fi - \else\ifnum#3=9\relax% - \if@clipfuse% - \gdef\@ylii{50}\gdef\@yli{30}\global\@ylswtrue% - \else - \gdef\@ylii{0}\gdef\@yli{0}\global\@ylswtrue% - \fi - \else\ifnum#3=10\relax%(left) - \if@clipfuse% - \gdef\@ylii{40}\gdef\@yli{0}\global\@ylswtrue% - \else - \gdef\@ylii{0}\gdef\@yli{0}\global\@ylswtrue% - \fi -\fi\fi\fi\fi\fi\fi\fi\fi% -\fi%end of ifcase -\fi\fi\fi\fi% -\fi}}% end of \ylatombondposition -\def\ylpositionh#1#2#3#4#5{% -\@@ylswfalse%%%\@reset@ylsw -\@forsemicol\member:=#1\do{% -\if@@ylsw\else% -\ifx\member\empty\else% -\expandafter\@m@mb@r\member;\relax% -\expandafter\threech@r\@membera{}{}\relax% -\ifx\@memberb\@yl\relax\@@ylswtrue\else\@@ylswfalse\fi -\if@@ylsw -\ifnum#5<0\relax% -\@tmpaa=-\@tmpa\relax \advance\@tmpaa by#2\relax% -\else\@tmpaa=\@tmpa\relax \advance\@tmpaa by#2\relax\fi -\ifnum\@tmpaa>#3\relax% -\ifnum\@tmpaa<#4\relax% -\ifcase\@tmpaa%0 omit - \or\ifx\aaa\empty - \gdef\@ylii{0}\gdef\@yli{0}\global\@ylswtrue%\@ylatrue% subst. on 1 - \else - \gdef\@ylii{30}\gdef\@yli{0}\global\@ylswtrue%\@ylatrue% subst. on 1 - \fi - \or\ifx\bbb\empty - \gdef\@ylii{-103}\gdef\@yli{-171}\global\@ylswtrue%\@ylbtrue% subst. on 2 - \else - \gdef\@ylii{-73}\gdef\@yli{-223}\global\@ylswtrue%\@ylbtrue% subst. on 2 - \fi - \or \ifx\ccc\empty - \gdef\@ylii{-303}\gdef\@yli{-171}\global\@ylswtrue%\@ylctrue% subst. on 3 - \else - \gdef\@ylii{-333}\gdef\@yli{-223}\global\@ylswtrue%\@ylctrue% subst. on 3 - \fi - \or\ifx\ddd\empty - \gdef\@ylii{-406}\gdef\@yli{0}\global\@ylswtrue%\@yldtrue% subst. on 4 - \else - \gdef\@ylii{-436}\gdef\@yli{0}\global\@ylswtrue%\@yldtrue% subst. on 4 - \fi - \or\ifx\eee\empty - \gdef\@ylii{-303}\gdef\@yli{171}\global\@ylswtrue%\@yletrue% subst. on 5 - \else - \gdef\@ylii{-333}\gdef\@yli{223}\global\@ylswtrue%\@yletrue% subst. on 5 - \fi - \or \ifx\fff\empty - \gdef\@ylii{-103}\gdef\@yli{171}\global\@ylswtrue%\@ylftrue% subst. on 6 - \else - \gdef\@ylii{-73}\gdef\@yli{223}\global\@ylswtrue%\@ylftrue% subst. on 6 - \fi -\fi%end of ifcase -\fi\fi\fi\fi\fi}}% -\def\@hsubsta{% -\if@aclip %clipping - \if\@tmpb S%single bond - \ifx\@tmpc\empty% - \yl@xdiff=17\relax - \yl@ydiff=31\relax - \putlatom{-157}{-31}{\@memberb}% % left type only - \put(-30,0){\line(-1,0){110}}% % single bond at 1 - \else\if\@tmpc B%(B) beta - \yl@xdiff=27\relax - \yl@ydiff=36\relax - \putlatom{-157}{42}{\@memberb}% % left type - {% - \thicklines% - \put(-30,18){\line(-5,3){100}}% % single bond at 1 - }% - \else\if\@tmpc A%(A) alpha - \yl@xdiff=37\relax - \yl@ydiff=28\relax - \putlatom{-157}{-100}{\@memberb}% % left type - \@ifundefined{dottedline}{% - \put(-30,-18){\line(-5,-3){100}}% % single bond at 1 - }{{\thicklines% - \dottedline{20}(-30,-18)(-120,-72)}}% - \else\if\@tmpc u%(u) up --- (B) beta - \yl@xdiff=37\relax - \yl@ydiff=28\relax - \putlatom{-157}{-100}{\@memberb}% % left type - {% - \thicklines% - \put(-30,-18){\line(-5,-3){100}}% % single bond at 1 - }% - \else\if\@tmpc d%(d) down --- (A) alpha - \yl@xdiff=27\relax - \yl@ydiff=36\relax - \putlatom{-157}{42}{\@memberb}% % left type - \@ifundefined{dottedline}{% - \put(-30,18){\line(-5,3){100}}% % single bond at 1 - }{{\thicklines% - \dottedline{20}(-30,18)(-130,78)}}% - \else\if\@tmpc b%(b) beta - \yl@xdiff=27\relax - \yl@ydiff=36\relax - \putlatom{-157}{42}{\@memberb}% % left type - \put(-30,18){\line(-5,3){100}}% % single bond at 1 - \else\if\@tmpc a%(a) alpha - \yl@xdiff=27\relax - \yl@ydiff=28\relax - \putlatom{-157}{-100}{\@memberb}% % left type - \put(-30,-18){\line(-5,-3){100}}% % single bond at 1 - \fi\fi\fi\fi\fi - \fi\fi - \else\if\@tmpb D%double bond - \yl@xdiff=17\relax - \yl@ydiff=31\relax - \putlatom{-157}{-31}{\@memberb}% % left type only - \put(-30,-12){\line(-1,0){110}}% % double bond at 1 - \put(-30,12){\line(-1,0){110}}% % double bond at 1 - \else\if\@tmpb B%beta single bond - \yl@xdiff=17\relax - \yl@ydiff=31\relax - \putlatom{-157}{-31}{\@memberb}% % left type only - {% - \thicklines% - \put(-30,0){\line(-1,0){110}}% % single bond at 1 - }% - \else\if\@tmpb A%alpha single bond - \yl@xdiff=17\relax - \yl@ydiff=31\relax - \putlatom{-157}{-31}{\@memberb}% % left type only - \@ifundefined{dottedline}{% - \put(-30,0){\line(-1,0){110}}% % single bond at 1 - }{{\thicklines% - \dottedline{20}(-30,0)(-140,0)}}% - \else\if\@tmpb F%fused bond - {\let\@tmpb=\@tmpc\@clipfusetrue - \put(0,0){\setatombondG}% - }% - \else\if\@tmpb G%fused bond - {\let\@tmpb=\@tmpc\@clipfusetrue - \put(0,0){\setatombondD}% - }% - \else% - \yl@xdiff=17\relax - \yl@ydiff=31\relax - \putlatom{-157}{-31}{\@memberb}% % left type only - \put(-40,0){\line(-1,0){100}}% % single bond at 1 - \fi\fi\fi\fi - \fi\fi% -\else%% no clipping - \if\@tmpb S%single bond - \ifx\@tmpc\empty% - \yl@xdiff=17\relax - \yl@ydiff=31\relax - \putlatom{-157}{-31}{\@memberb}% % left type only - \put(0,0){\line(-1,0){140}}% % single bond at 1 - \else\if\@tmpc B%(B) beta - \yl@xdiff=37\relax - \yl@ydiff=30\relax - \putlatom{-157}{42}{\@memberb}% % left type - {% - \thicklines% - \put(0,0){\line(-5,3){120}}% % single bond at 1 - }% - \else\if\@tmpc A%(A) alpha - \yl@xdiff=37\relax - \yl@ydiff=28\relax - \putlatom{-157}{-100}{\@memberb}% % left type - \@ifundefined{dottedline}{% - \put(0,0){\line(-5,-3){120}}% % single bond at 1 - }{{\thicklines% - \dottedline{20}(0,0)(-120,-72)}}% - \else\if\@tmpc u%(u) up --- (B) beta - \yl@xdiff=37\relax - \yl@ydiff=28\relax - \putlatom{-157}{-100}{\@memberb}% % left type - {% - \thicklines% - \put(0,0){\line(-5,-3){120}}% % single bond at 1 - }% - \else\if\@tmpc d%(d) down --- (A) alpha - \yl@xdiff=37\relax - \yl@ydiff=30\relax - \putlatom{-157}{42}{\@memberb}% % left type - \@ifundefined{dottedline}{% - \put(0,0){\line(-5,3){120}}% % single bond at 1 - }{{\thicklines% - \dottedline{20}(0,0)(-120,72)}}% - \else\if\@tmpc b%(b) beta - \yl@xdiff=37\relax - \yl@ydiff=30\relax - \putlatom{-157}{42}{\@memberb}% % left type - \put(0,0){\line(-5,3){120}}% % single bond at 1 - \else\if\@tmpc a%(a) alpha - \yl@xdiff=37\relax - \yl@ydiff=28\relax - \putlatom{-157}{-100}{\@memberb}% % left type - \put(0,0){\line(-5,-3){120}}% % single bond at 1 - \fi\fi\fi\fi\fi - \fi\fi - \else\if\@tmpb D%double bond - \yl@xdiff=17\relax - \yl@ydiff=31\relax - \putlatom{-157}{-31}{\@memberb}% % left type only - \put(0,-12){\line(-1,0){140}}% % double bond at 1 - \put(0,12){\line(-1,0){140}}% % double bond at 1 - \else\if\@tmpb B%beta single bond - \yl@xdiff=17\relax - \yl@ydiff=31\relax - \putlatom{-157}{-31}{\@memberb}% % left type only - {% - \thicklines% - \put(0,0){\line(-1,0){140}}% % single bond at 1 - }% - \else\if\@tmpb A%alpha single bond - \yl@xdiff=17\relax - \yl@ydiff=31\relax - \putlatom{-157}{-31}{\@memberb}% % left type only - \@ifundefined{dottedline}{% - \put(0,0){\line(-1,0){140}}% % single bond at 1 - }{{\thicklines% - \dottedline{20}(0,0)(-140,0)}}% - \else\if\@tmpb F%fused bond - {\let\@tmpb=\@tmpc\@clipfusefalse - \put(0,0){\setatombondG}% - }% - \else\if\@tmpb G%fused bond - {\let\@tmpb=\@tmpc\@clipfusefalse - \put(0,0){\setatombondD}% - }% - \else% - \yl@xdiff=17\relax - \yl@ydiff=31\relax - \putlatom{-157}{-31}{\@memberb}% % left type only - \put(0,0){\line(-1,0){140}}% % single bond at 1 - \fi\fi\fi\fi% - \fi\fi - \fi}%end of \@hsubsta -\def\@hsubstb{% - \if@bclip %clipping - \if\@tmpb S%single bond - \ifx\@tmpc\empty% - \yl@xdiff=43\relax - \yl@ydiff=5\relax - \putlratom{-27}{331}{\@memberb}% - \put(79,221){\line(-3,5){63}}% % single bond at 2 (62=>63) - \else\if\@tmpc B%(B) beta - \yl@xdiff=0\relax - \yl@ydiff=21\relax - \putlatom{-41}{240}{\@memberb}% % left type - {% - \thicklines% - \put(59,201){\line(-5,3){100}}% % single bond at 2 - }% - \else\if\@tmpc A%(A) alpha - \yl@xdiff=20\relax - \yl@ydiff=-10\relax - \putratom{83}{331}{\@memberb}% % right type - \@ifundefined{dottedline}{% - \put(103,221){\line(0,1){100}}% % single bond at 2 - }{{\thicklines% - \dottedline{20}(103,221)(103,321)}}%1998/10/11 by SF - \else\if\@tmpc u%(u) up --- (B) beta - \yl@xdiff=20\relax - \yl@ydiff=-10\relax - \putratom{83}{331}{\@memberb}% % right type - {% - \thicklines% - \put(103,221){\line(0,1){100}}% % single bond at 2 - }% - \else\if\@tmpc d%(d) down --- (A) alpha - \yl@xdiff=0\relax - \yl@ydiff=21\relax - \putlatom{-41}{240}{\@memberb}% % left type - \@ifundefined{dottedline}{% - \put(59,201){\line(-5,3){100}}% % single bond at 2 - }{{\thicklines% - \dottedline{20}(59,201)(-41,261)}}%1998/10/11 by SF - \else\if\@tmpc b%(b) beta - \yl@xdiff=0\relax - \yl@ydiff=21\relax - \putlatom{-41}{240}{\@memberb}% % left type - \put(59,201){\line(-5,3){100}}% % single bond at 2 - \else\if\@tmpc a%(a) alpha - \yl@xdiff=20\relax - \yl@ydiff=-10\relax - \putratom{83}{331}{\@memberb}% % right type - \put(103,221){\line(0,1){100}}% % single bond at 2 - \fi\fi\fi\fi\fi% - \fi\fi - \else\if\@tmpb D%double bond - \yl@xdiff=49\relax - \yl@ydiff=-13\relax - \putlratom{-27}{331}{\@memberb}% - \put(78,208){\line(-3,5){63}}% % double bond at 2(62->63) - \put(100,219){\line(-3,5){63}}% % double bond at 2(62->63) - \else\if\@tmpb B%beta single bond - \yl@xdiff=43\relax - \yl@ydiff=5\relax - \putlratom{-27}{331}{\@memberb}% - {% - \thicklines% - \put(79,221){\line(-3,5){63}}% % single bond at 2 (62->63) - }% - \else\if\@tmpb A%alpha single bond - \yl@xdiff=43\relax - \yl@ydiff=5\relax - \putlratom{-27}{331}{\@memberb}% - \@ifundefined{dottedline}{% - \put(79,221){\line(-3,5){63}}% % single bond at 2(62->63) - }{{\thicklines% - \dottedline{20}(79,221)(16,326)}}%1998/10/11 by SF - \else\if\@tmpb F%fused bond - {\let\@tmpb=\@tmpc\@clipfusetrue - \put(103,171){\setatombondh}% - }% - \else\if\@tmpb G%fused bond - {\let\@tmpb=\@tmpc\@clipfusetrue - \put(103,171){\setatombondF}% - }% - \else% - \yl@xdiff=43\relax - \yl@ydiff=5\relax - \putlratom{-27}{331}{\@memberb}% - \put(79,221){\line(-3,5){63}}% % single bond at 2 (62->63) - \fi\fi\fi\fi% - \fi\fi - \else%%no clipping - \if\@tmpb S%single bond - \ifx\@tmpc\empty% - \yl@xdiff=58\relax - \yl@ydiff=-41\relax - \putlratom{-27}{331}{\@memberb}% - \put(103,171){\line(-3,5){72}}% % single bond at 2 - \else\if\@tmpc B%(B) beta - \yl@xdiff=14\relax - \yl@ydiff=-3\relax - \putlatom{-31}{240}{\@memberb}% % left type - {% - \thicklines% - \put(103,171){\line(-5,3){120}}% % single bond at 2 - }% - \else\if\@tmpc A%(A) alpha - \yl@xdiff=20\relax - \yl@ydiff=-20\relax - \putratom{83}{331}{\@memberb}% % right type - \@ifundefined{dottedline}{% - \put(103,171){\line(0,1){140}}% % single bond at 2 - }{{\thicklines% - \dottedline{20}(103,171)(103,311)}}%1998/10/11 by SF - \else\if\@tmpc u%(u) up --- (B) beta - \yl@xdiff=20\relax - \yl@ydiff=-20\relax - \putratom{83}{331}{\@memberb}% % right type - {% - \thicklines% - \put(103,171){\line(0,1){140}}% % single bond at 2 - }% - \else\if\@tmpc d%(d) down --- (A) alpha - \yl@xdiff=14\relax - \yl@ydiff=-3\relax - \putlatom{-31}{240}{\@memberb}% % left type - \@ifundefined{dottedline}{% - \put(103,171){\line(-5,3){120}}% % single bond at 2 - }{{\thicklines% - \dottedline{20}(103,171)(-7,243)}}%1998/10/11 by SF - \else\if\@tmpc b%(b) beta - \yl@xdiff=14\relax - \yl@ydiff=-3\relax - \putlatom{-31}{240}{\@memberb}% % left type - \put(103,171){\line(-5,3){120}}% % single bond at 2 - \else\if\@tmpc a%(a) alpha - \yl@xdiff=20\relax - \yl@ydiff=-20\relax - \putratom{83}{331}{\@memberb}% % right type - \put(103,171){\line(0,1){140}}% % single bond at 2 - \fi\fi\fi\fi\fi% - \fi\fi - \else\if\@tmpb D%double bond - \yl@xdiff=64\relax - \yl@ydiff=-41\relax - \putlratom{-27}{331}{\@memberb}% - \put(96,168){\line(-3,5){72}}% % double bond at 2 - \put(121,174){\line(-3,5){72}}% % double bond at 2 - \else\if\@tmpb B%beta single bond - \yl@xdiff=58\relax - \yl@ydiff=-41\relax - \putlratom{-27}{331}{\@memberb}% - {% - \thicklines% - \put(103,171){\line(-3,5){72}}% % single bond at 2 - }% - \else\if\@tmpb A%alpha single bond - \yl@xdiff=58\relax - \yl@ydiff=-41\relax - \putlratom{-27}{331}{\@memberb}% - \@ifundefined{dottedline}{% - \put(103,171){\line(-3,5){72}}% % single bond at 2 - }{{\thicklines% - \dottedline{20}(103,171)(31,291)}}% - \else\if\@tmpb F%fused bond - {\let\@tmpb=\@tmpc\@clipfusefalse - \put(103,171){\setatombondh}% - }% - \else\if\@tmpb G%fused bond - {\let\@tmpb=\@tmpc\@clipfusefalse - \put(103,171){\setatombondF}% - }% - \else% - \yl@xdiff=58\relax - \yl@ydiff=-41\relax - \putlratom{-27}{331}{\@memberb}% - \put(103,171){\line(-3,5){72}}% % single bond at 2 - \fi\fi\fi\fi% - \fi\fi - \fi}% end of \@hsubstb -\def\@hsubstc{% - \if@cclip %clipping - \if\@tmpb S%single bond - \ifx\@tmpc\empty% - \yl@xdiff=43\relax - \yl@ydiff=5\relax - \putratom{363}{331}{\@memberb}% - \put(343,221){\line(3,5){63}}% % single bond at 3 (62->63) - \else\if\@tmpc B%(B) beta - \yl@xdiff=0\relax - \yl@ydiff=21\relax - \putratom{443}{240}{\@memberb}% % right type - {% - \thicklines% - \put(343,201){\line(5,3){100}}% % single bond at 3 - }% - \else\if\@tmpc A%(A) alpha - \yl@xdiff=20\relax - \yl@ydiff=0\relax - \putratom{283}{331}{\@memberb}% % right type - \@ifundefined{dottedline}{% - \put(303,221){\line(0,1){110}}% % single bond at 3 - }{{\thicklines% - \dottedline{20}(303,221)(303,331)}}% - \else\if\@tmpc u%(u) up --- (B) beta - \yl@xdiff=20\relax - \yl@ydiff=0\relax - \putratom{283}{331}{\@memberb}% % right type - {% - \thicklines% - \put(303,221){\line(0,1){110}}% % single bond at 3 - }% - \else\if\@tmpc d%(d) down --- (A) alpha - \yl@xdiff=0\relax - \yl@ydiff=21\relax - \putratom{443}{240}{\@memberb}% % right type - \@ifundefined{dottedline}{% - \put(343,201){\line(5,3){100}}% % single bond at 3 - }{{\thicklines% - \dottedline{20}(343,201)(443,261)}}% - \else\if\@tmpc b%(b) beta - \yl@xdiff=0\relax - \yl@ydiff=21\relax - \putratom{443}{240}{\@memberb}% % right type - \put(343,201){\line(5,3){100}}% % single bond at 3 - \else\if\@tmpc a%(a) alpha - \yl@xdiff=20\relax - \yl@ydiff=0\relax - \putratom{283}{331}{\@memberb}% % right type - \put(303,221){\line(0,1){110}}% % single bond at 3 - \fi\fi\fi\fi\fi% - \fi\fi - \else\if\@tmpb D%double bond - \yl@xdiff=22\relax - \yl@ydiff=-18\relax - \putratom{363}{331}{\@memberb}% - \put(328,208){\line(3,5){63}}% % double bond at 3 - \put(303,214){\line(3,5){63}}% % double bond at 3 - \else\if\@tmpb B%beta single bond - \yl@xdiff=43\relax - \yl@ydiff=5\relax - \putratom{363}{331}{\@memberb}% - {% - \thicklines% - \put(343,221){\line(3,5){63}}% % single bond at 3 - }% - \else\if\@tmpb A%alpha single bond - \yl@xdiff=43\relax - \yl@ydiff=5\relax - \putratom{363}{331}{\@memberb}% - \@ifundefined{dottedline}{% - \put(343,221){\line(3,5){63}}% % single bond at 3 (62->63) - }{{\thicklines% - \dottedline{20}(343,221)(406,326)}}% 1998/10/11 by SF - \else\if\@tmpb F%fused bond - {\let\@tmpb=\@tmpc\@clipfusetrue - \put(303,171){\setatombondD}% - }% - \else\if\@tmpb G%fused bond - {\let\@tmpb=\@tmpc\@clipfusetrue - \put(303,171){\setatombondb}% - }% - \else% - \yl@xdiff=43\relax - \yl@ydiff=5\relax - \putratom{363}{331}{\@memberb}% - \put(343,221){\line(3,5){63}}% % single bond at 3 (62->63) - \fi\fi\fi\fi% - \fi\fi - \else%no clipping - \if\@tmpb S%single bond - \ifx\@tmpc\empty% - \yl@xdiff=12\relax - \yl@ydiff=-40\relax - \putratom{363}{331}{\@memberb}% - \put(303,171){\line(3,5){72}}% % single bond at 3 - \else\if\@tmpc B%(B) beta - \yl@xdiff=-20\relax - \yl@ydiff=3\relax - \putratom{443}{240}{\@memberb}% % right type - {% - \thicklines% - \put(303,171){\line(5,3){120}}% % single bond at 3 - }% - \else\if\@tmpc A%(A) alpha - \yl@xdiff=20\relax - \yl@ydiff=-20\relax - \putratom{283}{331}{\@memberb}% % right type - \@ifundefined{dottedline}{% - \put(303,171){\line(0,1){140}}% % single bond at 3 - }{{\thicklines% - \dottedline{20}(303,171)(303,311)}}% - \else\if\@tmpc u%(u) up --- (B) beta - \yl@xdiff=20\relax - \yl@ydiff=-20\relax - \putratom{283}{331}{\@memberb}% % right type - {% - \thicklines% - \put(303,171){\line(0,1){140}}% % single bond at 3 - }% - \else\if\@tmpc d%(d) down --- (A) alpha - \yl@xdiff=-20\relax - \yl@ydiff=3\relax - \putratom{443}{240}{\@memberb}% % right type - \@ifundefined{dottedline}{% - \put(303,171){\line(5,3){120}}% % single bond at 3 - }{{\thicklines% - \dottedline{20}(303,171)(423,243)}}% - \else\if\@tmpc b%(b) beta - \yl@xdiff=-20\relax - \yl@ydiff=3\relax - \putratom{443}{240}{\@memberb}% % right type - \put(303,171){\line(5,3){120}}% % single bond at 3 - \else\if\@tmpc a%(a) alpha - \yl@xdiff=20\relax - \yl@ydiff=-20\relax - \putratom{283}{331}{\@memberb}% % right type - \put(303,171){\line(0,1){140}}% % single bond at 3 - \fi\fi\fi\fi\fi% - \fi\fi% - \else\if\@tmpb D%double bond - \yl@xdiff=6\relax - \yl@ydiff=-40\relax - \putratom{363}{331}{\@memberb}% - \put(310,168){\line(3,5){72}}% % double bond at 3 - \put(284,174){\line(3,5){72}}% % double bond at 3 - \else\if\@tmpb B%beta single bond - \yl@xdiff=12\relax - \yl@ydiff=-40\relax - \putratom{363}{331}{\@memberb}% - {% - \thicklines% - \put(303,171){\line(3,5){72}}% % single bond at 3 - }% - \else\if\@tmpb A%alpha single bond - \yl@xdiff=12\relax - \yl@ydiff=-40\relax - \putratom{363}{331}{\@memberb}% - \@ifundefined{dottedline}{% - \put(303,171){\line(3,5){72}}% % single bond at 3 - }{{\thicklines% - \dottedline{20}(303,171)(375,291)}}% - \else\if\@tmpb F%fused bond - {\let\@tmpb=\@tmpc\@clipfusefalse - \put(303,171){\setatombondD}% - }% - \else\if\@tmpb G%fused bond - {\let\@tmpb=\@tmpc\@clipfusefalse - \put(303,171){\setatombondb}% - }% - \else% - \yl@xdiff=12\relax - \yl@ydiff=-40\relax - \putratom{363}{331}{\@memberb}% - \put(303,171){\line(3,5){72}}% % single bond at 3 - \fi\fi\fi\fi% - \fi\fi - \fi}% end of \@hsubstc -\def\@hsubstd{% -\if@clip %clipping - \if\@tmpb S%single bond - \ifx\@tmpc\empty% - \yl@xdiff=-17\relax - \yl@ydiff=31\relax - \putratom{563}{-31}{\@memberb}% % right type only - \put(436,0){\line(1,0){110}}% % single bond at 4 - \else\if\@tmpc B%(B) beta - \yl@xdiff=-27\relax - \yl@ydiff=36\relax - \putratom{563}{42}{\@memberb}% % right type only - {% - \thicklines% - \put(436,18){\line(5,3){100}}% % single bond at 4 - }% - \else\if\@tmpc A%(A) alpha - \yl@xdiff=-27\relax - \yl@ydiff=22\relax - \putratom{563}{-100}{\@memberb}% % right type only - \@ifundefined{dottedline}{% - \put(436,-18){\line(5,-3){100}}% % single bond at 4 - }{{\thicklines% - \dottedline{20}(436,-18)(526,-72)}}% - \else\if\@tmpc u%(u) up --- (B) beta - \yl@xdiff=-27\relax - \yl@ydiff=22\relax - \putratom{563}{-100}{\@memberb}% % right type only - {% - \thicklines% - \put(436,-18){\line(5,-3){100}}% % single bond at 4 - }% - \else\if\@tmpc d%(d) down --- (A) alpha - \yl@xdiff=-27\relax - \yl@ydiff=36\relax - \putratom{563}{42}{\@memberb}% % right type only - \@ifundefined{dottedline}{% - \put(436,18){\line(5,3){100}}% % single bond at 4 - }{{\thicklines% - \dottedline{20}(436,18)(536,78)}}% - \else\if\@tmpc b%(b) beta - \yl@xdiff=-27\relax - \yl@ydiff=36\relax - \putratom{563}{42}{\@memberb}% % right type only - \put(436,18){\line(5,3){100}}% % single bond at 4 - \else\if\@tmpc a%(a) alpha - \yl@xdiff=-27\relax - \yl@ydiff=22\relax - \putratom{563}{-100}{\@memberb}% % right type only - \put(436,-18){\line(5,-3){100}}% % single bond at 4 - \fi\fi\fi\fi\fi% - \fi\fi - \else\if\@tmpb D%double bond - \yl@xdiff=-17\relax - \yl@ydiff=31\relax - \putratom{563}{-31}{\@memberb}% % right type only - \put(436,-12){\line(1,0){110}}% % double bond at 4 - \put(436,12){\line(1,0){110}}% % double bond at 4 - \else\if\@tmpb B%beta single bond - \yl@xdiff=-17\relax - \yl@ydiff=31\relax - \putratom{563}{-31}{\@memberb}% % right type only - {% - \thicklines% - \put(436,0){\line(1,0){110}}% % single bond at 4 - }% - \else\if\@tmpb A%alpha single bond - \yl@xdiff=-17\relax - \yl@ydiff=31\relax - \putratom{563}{-31}{\@memberb}% % right type only - \@ifundefined{dottedline}{% - \put(436,0){\line(1,0){110}}% % single bond at 4 - }{{\thicklines% - \dottedline{20}(436,0)(546,0)}}% - \else\if\@tmpb F%fused bond - {\let\@tmpb=\@tmpc\@clipfusetrue - \put(406,0){\setatombondF}% - }% - \else\if\@tmpb G%fused bond - {\let\@tmpb=\@tmpc\@clipfusetrue - \put(406,0){\setatombondE}% - }% - \else% - \yl@xdiff=-17\relax - \yl@ydiff=31\relax - \putratom{563}{-31}{\@memberb}% % right type only - \put(436,0){\line(1,0){110}}% % single bond at 4 - \fi\fi\fi\fi% - \fi\fi -\else%% no clipping - \if\@tmpb S%single bond - \ifx\@tmpc\empty% - \yl@xdiff=-17\relax - \yl@ydiff=31\relax - \putratom{563}{-31}{\@memberb}% % right type only - \put(406,0){\line(1,0){140}}% % single bond at 4 - \else\if\@tmpc B%(B) beta - \yl@xdiff=-37\relax - \yl@ydiff=30\relax - \putratom{563}{42}{\@memberb}% % right type only - {% - \thicklines% - \put(406,0){\line(5,3){120}}% % single bond at 4 - }% - \else\if\@tmpc A%(A) alpha - \yl@xdiff=-37\relax - \yl@ydiff=28\relax - \putratom{563}{-100}{\@memberb}% % right type only - \@ifundefined{dottedline}{% - \put(406,0){\line(5,-3){120}}% % single bond at 4 - }{{\thicklines% - \dottedline{20}(406,0)(526,-72)}}% - \else\if\@tmpc u%(u) up --- (B) beta - \yl@xdiff=-37\relax - \yl@ydiff=28\relax - \putratom{563}{-100}{\@memberb}% % right type only - {% - \thicklines% - \put(406,0){\line(5,-3){120}}% % single bond at 4 - }% - \else\if\@tmpc d%(d) down --- (A) alpha - \yl@xdiff=-37\relax - \yl@ydiff=30\relax - \putratom{563}{42}{\@memberb}% % right type only - \@ifundefined{dottedline}{% - \put(406,0){\line(5,3){120}}% % single bond at 4 - }{{\thicklines% - \dottedline{20}(406,0)(526,72)}}% - \else\if\@tmpc b%(b) beta - \yl@xdiff=-37\relax - \yl@ydiff=30\relax - \putratom{563}{42}{\@memberb}% % right type only - \put(406,0){\line(5,3){120}}% % single bond at 4 - \else\if\@tmpc a%(a) alpha - \yl@xdiff=-37\relax - \yl@ydiff=28\relax - \putratom{563}{-100}{\@memberb}% % right type only - \put(406,0){\line(5,-3){120}}% % single bond at 4 - \fi\fi\fi\fi\fi% - \fi\fi - \else\if\@tmpb D%double bond - \yl@xdiff=-17\relax - \yl@ydiff=31\relax - \putratom{563}{-31}{\@memberb}% % right type only - \put(406,-12){\line(1,0){140}}% % double bond at 4 - \put(406,12){\line(1,0){140}}% % double bond at 4 - \else\if\@tmpb B%beta single bond - \yl@xdiff=-17\relax - \yl@ydiff=31\relax - \putratom{563}{-31}{\@memberb}% % right type only - {% - \thicklines% - \put(406,0){\line(1,0){140}}% % single bond at 4 - }% - \else\if\@tmpb A%alpha single bond - \yl@xdiff=-17\relax - \yl@ydiff=31\relax - \putratom{563}{-31}{\@memberb}% % right type only - \@ifundefined{dottedline}{% - \put(406,0){\line(1,0){140}}% % single bond at 4 - }{{\thicklines% - \dottedline{20}(406,0)(546,0)}}% - \else\if\@tmpb F%fused bond - {\let\@tmpb=\@tmpc\@clipfusefalse - \put(406,0){\setatombondF}% - }% - \else\if\@tmpb G%fused bond - {\let\@tmpb=\@tmpc\@clipfusefalse - \put(406,0){\setatombondE}% - }% - \else% - \yl@xdiff=-17\relax - \yl@ydiff=31\relax - \putratom{563}{-31}{\@memberb}% % right type only - \put(406,0){\line(1,0){140}}% % single bond at 4 - \fi\fi\fi\fi% - \fi\fi - \fi}% end of \@hsubstd -\def\@hsubste{% - \if@eclip %clipping - \if\@tmpb S%single bond - \ifx\@tmpc\empty% - \yl@xdiff=43\relax - \yl@ydiff=76\relax - \putratom{363}{-402}{\@memberb}% - \put(343,-221){\line(3,-5){63}}%% single bond at 5 (62=>63) - \else\if\@tmpc B%(B) beta - \yl@xdiff=0\relax - \yl@ydiff=41\relax - \putratom{443}{-301}{\@memberb}% % right type - {% - \thicklines% - \put(343,-201){\line(5,-3){100}}% % single bond at 5 - }% - \else\if\@tmpc A%(A) alpha - \yl@xdiff=20\relax - \yl@ydiff=71\relax - \putratom{283}{-402}{\@memberb}% % right type - \@ifundefined{dottedline}{% - \put(303,-221){\line(0,-1){110}}% % single bond at 5 - }{{\thicklines% - \dottedline{20}(303,-221)(303,-321)}}% - \else\if\@tmpc u%(u) up --- (B) beta - \yl@xdiff=20\relax - \yl@ydiff=71\relax - \putratom{283}{-402}{\@memberb}% % right type - {% - \thicklines% - \put(303,-221){\line(0,-1){110}}% % single bond at 5 - }% - \else\if\@tmpc d%(d) down --- (A) alpha - \yl@xdiff=0\relax - \yl@ydiff=41\relax - \putratom{443}{-301}{\@memberb}% % right type - \@ifundefined{dottedline}{% - \put(343,-201){\line(5,-3){100}}% % single bond at 5 - }{{\thicklines% - \dottedline{20}(343,-201)(443,-260)}}% - \else\if\@tmpc b%(b) beta - \yl@xdiff=0\relax - \yl@ydiff=41\relax - \putratom{443}{-301}{\@memberb}% % right type - \put(343,-201){\line(5,-3){100}}% % single bond at 5 - \else\if\@tmpc a%(a) alpha - \yl@xdiff=20\relax - \yl@ydiff=71\relax - \putratom{283}{-402}{\@memberb}% % right type - \put(303,-221){\line(0,-1){110}}% % single bond at 5 - \fi\fi\fi\fi\fi% - \fi\fi - \else\if\@tmpb D%double bond - \yl@xdiff=22\relax - \yl@ydiff=82\relax - \putratom{363}{-402}{\@memberb} - \put(328,-208){\line(3,-5){63}}% % double bond at 5 (62->63) - \put(306,-224){\line(3,-5){63}}% % double bond at 5 (62->63) - \else\if\@tmpb B%beta single bond - \yl@xdiff=43\relax - \yl@ydiff=76\relax - \putratom{363}{-402}{\@memberb}% - {% - \thicklines% - \put(343,-221){\line(3,-5){63}}%% single bond at 5(62->63) - }% - \else\if\@tmpb A%alpha single bond - \yl@xdiff=43\relax - \yl@ydiff=76\relax - \putratom{363}{-402}{\@memberb}% - \@ifundefined{dottedline}{% - \put(343,-221){\line(3,-5){63}}% % single bond at 5 (62->63) - }{{\thicklines% - \dottedline{20}(343,-221)(406,-326)}}%1998/10/11 by SF - \else\if\@tmpb F%fused bond - {\let\@tmpb=\@tmpc\@clipfusetrue - \put(303,-171){\setatombondb}% - }% - \else\if\@tmpb G%fused bond - {\let\@tmpb=\@tmpc\@clipfusetrue - \put(303,-171){\setatombondG}% - }% - \else% - \yl@xdiff=43\relax - \yl@ydiff=76\relax - \putratom{363}{-402}{\@memberb}% - \put(343,-221){\line(3,-5){63}}% % single bond at 5(62->63) - \fi\fi\fi\fi% - \fi\fi - \else%no clipping - \if\@tmpb S%single bond - \ifx\@tmpc\empty% - \yl@xdiff=9\relax - \yl@ydiff=111\relax - \putratom{363}{-402}{\@memberb}% - \put(303,-171){\line(3,-5){72}}% % single bond at 5 - \else\if\@tmpc B%(B) beta - \yl@xdiff=-20\relax - \yl@ydiff=58\relax - \putratom{443}{-301}{\@memberb}% % right type - {% - \thicklines% - \put(303,-171){\line(5,-3){120}}% % single bond at 5 - }% - \else\if\@tmpc A%(A) alpha - \yl@xdiff=20\relax - \yl@ydiff=81\relax - \putratom{283}{-402}{\@memberb}% % right type - \@ifundefined{dottedline}{% - \put(303,-171){\line(0,-1){140}}% % single bond at 5 - }{{\thicklines% - \dottedline{20}(303,-171)(303,-321)}}% - \else\if\@tmpc u%(u) up --- (B) beta - \yl@xdiff=20\relax - \yl@ydiff=81\relax - \putratom{283}{-402}{\@memberb}% % right type - {% - \thicklines% - \put(303,-171){\line(0,-1){140}}% % single bond at 5 - }% - \else\if\@tmpc d%(d) down --- (A) alpha - \yl@xdiff=-20\relax - \yl@ydiff=58\relax - \putratom{443}{-301}{\@memberb}% % right type - \@ifundefined{dottedline}{% - \put(303,-171){\line(5,-3){120}}% % single bond at 5 - }{{\thicklines% - \dottedline{20}(303,-171)(423,-243)}}% - \else\if\@tmpc b%(b) beta - \yl@xdiff=-20\relax - \yl@ydiff=58\relax - \putratom{443}{-301}{\@memberb}% % right type - \put(303,-171){\line(5,-3){120}}% % single bond at 5 - \else\if\@tmpc a%(a) alpha - \yl@xdiff=20\relax - \yl@ydiff=81\relax - \putratom{283}{-402}{\@memberb}% % right type - \put(303,-171){\line(0,-1){140}}% % single bond at 5 - \fi\fi\fi\fi\fi% - \fi\fi - \else\if\@tmpb D%double bond - \yl@xdiff=3\relax - \yl@ydiff=111\relax - \putratom{363}{-402}{\@memberb}% - \put(310,-168){\line(3,-5){72}}% % double bond at 5 - \put(284,-174){\line(3,-5){72}}% % double bond at 5 - \else\if\@tmpb B%beta single bond - \yl@xdiff=9\relax - \yl@ydiff=111\relax - \putratom{363}{-402}{\@memberb}% - {% - \thicklines% - \put(303,-171){\line(3,-5){72}}% % single bond at 5 - }% - \else\if\@tmpb A%alpha single bond - \yl@xdiff=9\relax - \yl@ydiff=111\relax - \putratom{363}{-402}{\@memberb}% - \@ifundefined{dottedline}{% - \put(303,-171){\line(3,-5){72}}% % single bond at 5 - }{{\thicklines% - \dottedline{20}(303,-171)(375,-291)}}% - \else\if\@tmpb F%fused bond - {\let\@tmpb=\@tmpc\@clipfusefalse - \put(303,-171){\setatombondb}% - }% - \else\if\@tmpb G%fused bond - {\let\@tmpb=\@tmpc\@clipfusefalse - \put(303,-171){\setatombondG}% - }% - \else% - \yl@xdiff=9\relax - \yl@ydiff=111\relax - \putratom{363}{-402}{\@memberb}% - \put(303,-171){\line(3,-5){72}}% % single bond at 5 - \fi\fi\fi\fi% - \fi\fi - \fi}% end of \@hsubste -\def\@hsubstf{% - \if@fclip %clipping - \if\@tmpb S%single bond - \ifx\@tmpc\empty% - \yl@xdiff=43\relax - \yl@ydiff=76\relax - \putlratom{-27}{-402}{\@memberb}% - \put(79,-221){\line(-3,-5){63}}% % single bond at 6 (62=>63) - \else\if\@tmpc B%(B) beta - \yl@xdiff=-10\relax - \yl@ydiff=40\relax - \putlatom{-31}{-301}{\@memberb}% % right type - {% - \thicklines% - \put(59,-201){\line(-5,-3){100}}% % single bond at 6 - }% - \else\if\@tmpc A%(A) alpha - \yl@xdiff=20\relax - \yl@ydiff=81\relax - \putratom{83}{-402}{\@memberb}% % right type - \@ifundefined{dottedline}{% - \put(103,-221){\line(0,-1){100}}% % single bond at 6 - }{{\thicklines% - \dottedline{20}(103,-221)(103,-321)}}% - \else\if\@tmpc u%(u) up --- (B) beta - \yl@xdiff=20\relax - \yl@ydiff=81\relax - \putratom{83}{-402}{\@memberb}% % right type - {% - \thicklines% - \put(103,-221){\line(0,-1){100}}% % single bond at 6 - }% - \else\if\@tmpc d%(d) down --- (A) alpha - \yl@xdiff=-10\relax - \yl@ydiff=40\relax - \putlatom{-31}{-301}{\@memberb}% % right type - \@ifundefined{dottedline}{% - \put(59,-201){\line(-5,-3){100}}% % single bond at 6 - }{{\thicklines% - \dottedline{20}(59,-201)(-41,-261)}}% - \else\if\@tmpc b%(b) beta - \yl@xdiff=-10\relax - \yl@ydiff=40\relax - \putlatom{-31}{-301}{\@memberb}% % right type - \put(59,-201){\line(-5,-3){100}}% % single bond at 6 - \else\if\@tmpc a%(a) alpha - \yl@xdiff=20\relax - \yl@ydiff=81\relax - \putratom{83}{-402}{\@memberb}% % right type - \put(103,-221){\line(0,-1){100}}% % single bond at 6 - \fi\fi\fi\fi\fi - \fi\fi - \else\if\@tmpb D%double bond - \yl@xdiff=49\relax - \yl@ydiff=82\relax - \putlratom{-27}{-402}{\@memberb}% - \put(78,-208){\line(-3,-5){63}}% % double bond at 6 (62->63) - \put(106,-219){\line(-3,-5){63}}% % double bond at 6 (62->63) - \else\if\@tmpb B%beta single bond - \yl@xdiff=43\relax - \yl@ydiff=76\relax - \putlratom{-27}{-402}{\@memberb}% - {% - \thicklines% - \put(79,-221){\line(-3,-5){63}}% % single bond at 6 (62=>63) - }% - \else\if\@tmpb A%alpha single bond - \yl@xdiff=43\relax - \yl@ydiff=76\relax - \putlratom{-27}{-402}{\@memberb}% - \@ifundefined{dottedline}{% - \put(79,-221){\line(-3,-5){63}}% single bond at 6 (62=>63) - }{{\thicklines% - \dottedline{20}(79,-221)(16,-326)}}%1998/10/11 by SF - \else\if\@tmpb F%fused bond - {\let\@tmpb=\@tmpc\@clipfusetrue - \put(103,-171){\setatombondE}% - }% - \else\if\@tmpb G%fused bond - {\let\@tmpb=\@tmpc\@clipfusetrue - \put(103,-171){\setatombondh}% - }% - \else% - \yl@xdiff=43\relax - \yl@ydiff=76\relax - \putlratom{-27}{-402}{\@memberb}% - \put(79,-221){\line(-3,-5){63}}% % single bond at 6(62->63) - \fi\fi\fi\fi% - \fi\fi - \else%%no clipping - \if\@tmpb S%single bond - \ifx\@tmpc\empty% - \yl@xdiff=59\relax - \yl@ydiff=111\relax - \putlratom{-27}{-402}{\@memberb}% - \put(108,-171){\line(-3,-5){72}}% % single bond at 6 - \else\if\@tmpc B%beta single bond%1998/10/11 by S. Fujita - \yl@xdiff=8\relax - \yl@ydiff=58\relax - \putlatom{-31}{-301}{\@memberb}% % right type - {% - \thicklines% - \put(103,-171){\line(-5,-3){120}}% % single bond at 6 - }% - \else\if\@tmpc A%(A) alpha - \yl@xdiff=20\relax - \yl@ydiff=91\relax - \putratom{83}{-402}{\@memberb}% % right type - \@ifundefined{dottedline}{% - \put(103,-171){\line(0,-1){140}}% % single bond at 6 - }{{\thicklines% - \dottedline{20}(103,-171)(103,-311)}}%1998/10/17 by SF - \else\if\@tmpc u%(u) up --- (B) beta - \yl@xdiff=20\relax - \yl@ydiff=91\relax - \putratom{83}{-402}{\@memberb}% % right type - {% - \thicklines% - \put(103,-171){\line(0,-1){140}}% % single bond at 6 - }% - \else\if\@tmpc d%(d) down --- (A) alpha - \yl@xdiff=8\relax - \yl@ydiff=58\relax - \putlatom{-31}{-301}{\@memberb}% % right type - \@ifundefined{dottedline}{% - \put(103,-171){\line(-5,-3){120}}% % single bond at 6 - }{{\thicklines% - \dottedline{20}(103,-171)(-17,-243)}}% - \else\if\@tmpc b%(b) beta - \yl@xdiff=8\relax - \yl@ydiff=58\relax - \putlatom{-31}{-301}{\@memberb}% % right type - \put(103,-171){\line(-5,-3){120}}% % single bond at 6 - \else\if\@tmpc a%(a) alpha - \yl@xdiff=20\relax - \yl@ydiff=91\relax - \putratom{83}{-402}{\@memberb}% % right type - \put(103,-171){\line(0,-1){140}}% % single bond at 6 - \fi\fi\fi\fi\fi% - \fi\fi - \else\if\@tmpb D%double bond - \yl@xdiff=65\relax - \yl@ydiff=111\relax - \putlratom{-27}{-402}{\@memberb}% - \put(96,-168){\line(-3,-5){72}}% % double bond at 6 - \put(121,-174){\line(-3,-5){72}}% % double bond at 6 - \else\if\@tmpb B%beta single bond - \yl@xdiff=59\relax - \yl@ydiff=111\relax - \putlratom{-27}{-402}{\@memberb}% - \put(108,-171){\line(-3,-5){72}}% % single bond at 6 - {% - \thicklines% - \put(108,-171){\line(-3,-5){72}}% % single bond at 6 - }% - \else\if\@tmpb A%alpha single bond - \yl@xdiff=59\relax - \yl@ydiff=111\relax - \putlratom{-27}{-402}{\@memberb}% - \@ifundefined{dottedline}{% - \put(108,-171){\line(-3,-5){72}}% % single bond at 6 - }{{\thicklines% - \dottedline{20}(103,-171)(31,-291)}}% - \else\if\@tmpb F%fused bond - {\let\@tmpb=\@tmpc\@clipfusefalse - \put(103,-171){\setatombondE}% - }% - \else\if\@tmpb G%fused bond - {\let\@tmpb=\@tmpc\@clipfusefalse - \put(103,-171){\setatombondh}% - }% - \else% - \yl@xdiff=59\relax - \yl@ydiff=111\relax - \putlratom{-27}{-402}{\@memberb}% - \put(108,-171){\line(-3,-5){72}}% % single bond at 6 - \fi\fi\fi\fi% - \fi\fi - \fi}% end of \@hsubstf -\def\setsixringh#1#2#3#4#5{% -\@forsemicol\member:=#1\do{% -\ifx\member\empty\else% -\expandafter\@m@mb@r\member;\relax% -\expandafter\threech@r\@membera{}{}% -\ifx\@memberb\@yl\else -\ifnum#5 < 0\relax% -\@tmpaa=-\@tmpa\relax \advance\@tmpaa by#2\relax% -\else\@tmpaa=\@tmpa\relax \advance\@tmpaa by#2\relax \fi -\ifnum\@tmpaa >#3\relax% -\ifnum\@tmpaa <#4\relax% -\ifcase\@tmpaa%0 omit - \or\@hsubsta% subst. on 1 - \or\@hsubstb% subst. on 2 - \or\@hsubstc% subst. on 3 - \or\@hsubstd% subst. on 4 - \or\@hsubste% subst. on 5 - \or\@hsubstf% subst. on 6 -\fi%end of ifcase -\fi\fi\fi\fi}}% %end of setsixringh -\newcount\x@ryl -\newcount\y@ryl -\def\ryl{\@ifnextchar({\@ryl}{\@ryl()}} -\def\@ryl(#1)#2{% -\iniatom\iniflag%initialize -\@reset@ylsw% -\def\centeraaa{}% -\x@ryl=0\y@ryl=0 -\@forsemicol\member:=#1\do{% -\if@ylsw% -\XyMTeXWarning{Duplicated items in the first augument of \string\ryl}% -\else% -\ifx\member\empty\else% -\expandafter\@m@mb@r\member;\relax% -\expandafter\twoch@r\@membera{}% -\settowidth{\dimen0}{\@memberb}% -\x@ryl=\dimen0%%%dimension => counter -\divide\x@ryl\unitlength -\advance\x@ryl by-70 -\y@ryl=0 -\ifcase\@tmpa% -\def\centeraaa{\@memberb}\@ylswtrue -\advance\y@ryl by50 -\or%1 -\def\centeraaa{\@memberb}\@ylswtrue -\advance\x@ryl by30 -\advance\y@ryl by50 -\or%2 -\def\centeraaa{\@memberb}\@ylswtrue -\advance\x@ryl by40 -\advance\y@ryl by40 -\or%3 -\def\centeraaa{\@memberb}\@ylswtrue -\advance\x@ryl by50 -\advance\y@ryl by30 -\or%4 -\def\centeraaa{\@memberb}\@ylswtrue -\advance\x@ryl by50 -\advance\y@ryl by0 -\or%5 -\def\centeraaa{\@memberb}\@ylswtrue -\advance\x@ryl by50 -\advance\y@ryl by-30 -\or%6 -\def\centeraaa{\@memberb}\@ylswtrue -\advance\x@ryl by50 -\advance\y@ryl by-50 -\or%7 -\def\centeraaa{\@memberb}\@ylswtrue -\advance\x@ryl by30 -\advance\y@ryl by-50 -\or%8 -\def\centeraaa{\@memberb}\@ylswtrue -\advance\y@ryl by-50 -\fi -\fi\fi}% - \yl@shiftii=\x@ryl - \yl@shifti=-\y@ryl - \advance\yl@shiftii\yl@xdiff - \advance\yl@shifti\yl@ydiff - \begin{picture}(0,0)(-\yl@shiftii,-\yl@shifti) -\ifx\centeraaa\empty\else% - \@clipfusetrue - \putlatom{40}{-30}{\centeraaa}% % left type -\fi% -\@forsemicol\member:=#2\do{% -\ifx\member\empty\else% -\expandafter\@m@mb@r\member;\relax% -\expandafter\threech@r\@membera{}{}% -\ifcase\@tmpa% -\setatombonda% 0 (upward) (0,1) -\or\setatombondF%1 (3,5) -\or\setatombondA%2 (1,1) -\or\setatombondf%3 (5,3) -\or\setatombondb%4 (1,0) -\or\setatombonde%5 (5,-3) -\or\setatombondB%6 (1,-1) -\or\setatombondE%7 (3,-5) -\or\setatombondc%8 (0,-1) -\fi%end of ifcase -\fi -}\end{picture}}% %end of \ryl macro -\def\setatombondF{%% (3,5) - \if@clipfuse% - \if\@tmpb B%beta single bond - \yl@xdiff=10\relax - \yl@ydiff=-10\relax - {% - \thicklines% - \put(30,50){\line(3,5){60}}% % single bond at 1 - }% - \else\if\@tmpb A%alpha single bond - \yl@xdiff=10\relax - \yl@ydiff=-10\relax - \@ifundefined{dottedline}{% - \put(30,50){\line(3,5){60}}% % single bond at 1 - }{{\thicklines% - \dottedline{20}(30,50)(90,150)}}% - \else\if\@tmpb U%unspecified single bond - \yl@xdiff=10\relax - \yl@ydiff=-10\relax - \put(30,50){\line(3,5){60}}% % single bond at 1 - \else\if\@tmpb S%beta single bond - \yl@xdiff=10\relax - \yl@ydiff=-10\relax - \put(30,50){\line(3,5){60}}% % single bond at 1 - \else\if\@tmpb D%double bond - \yl@xdiff=10\relax - \yl@ydiff=-10\relax - \put(40,44){\line(3,5){60}}% % single bond at 1 - \put(20,56){\line(3,5){60}}% % single bond at 1 - \else\if\@tmpb T%triple bond - \yl@xdiff=10\relax - \yl@ydiff=-10\relax - \put(45,41){\line(3,5){60}}% % single bond at 1 - \put(30,50){\line(3,5){60}}% % single bond at 1 - \put(15,59){\line(3,5){60}}% % single bond at 1 - \else\ifx\@tmpb\empty%beta single bond - \yl@xdiff=10\relax - \yl@ydiff=-10\relax - \put(30,50){\line(3,5){60}}% % single bond at 1 - \fi\fi\fi\fi\fi\fi\fi% - \putratom{80}{160}{\@memberb}% % right type - \else%no clipping - \if\@tmpb B%beta single bond - \yl@xdiff=10\relax - \yl@ydiff=-10\relax - {% - \thicklines% - \put(0,0){\line(3,5){90}}% % single bond at 1 - }% - \else\if\@tmpb A%alpha single bond - \yl@xdiff=10\relax - \yl@ydiff=-10\relax - \@ifundefined{dottedline}{% - \put(0,0){\line(3,5){90}}% % single bond at 1 - }{{\thicklines% - \dottedline{20}(0,0)(90,150)}}% - \else\if\@tmpb U%unspecified single bond - \yl@xdiff=10\relax - \yl@ydiff=-10\relax - \put(0,0){\line(3,5){90}}% % single bond at 1 - \else\if\@tmpb S%beta single bond - \yl@xdiff=10\relax - \yl@ydiff=-10\relax - \put(0,0){\line(3,5){90}}% % single bond at 1 - \else\if\@tmpb D%beta single bond - \yl@xdiff=10\relax - \yl@ydiff=-10\relax - \put(10,-6){\line(3,5){90}}% % single bond at 1 - \put(-10,6){\line(3,5){90}}% % single bond at 1 - \else\if\@tmpb T%beta single bond - \yl@xdiff=10\relax - \yl@ydiff=-10\relax - \put(15,-9){\line(3,5){90}}% % single bond at 1 - \put(0,0){\line(3,5){90}}% % single bond at 1 - \put(-15,9){\line(3,5){90}}% % single bond at 1 - \else\ifx\@tmpb\empty%beta single bond - \yl@xdiff=10\relax - \yl@ydiff=-10\relax - \put(0,0){\line(3,5){90}}% % single bond at 1 - \fi\fi\fi\fi\fi\fi\fi% - \putratom{80}{160}{\@memberb}% % right type - \fi% -}% end of \setatombondF -\def\setatombondE{%% (3,-5) - \if@clipfuse% - \yl@xdiff=10\relax - \yl@ydiff=70\relax - \if\@tmpb B%beta single bond - {% - \thicklines% - \put(30,-50){\line(3,-5){60}}% % single bond at 1 - }% - \else\if\@tmpb A%alpha single bond - \@ifundefined{dottedline}{% - \put(30,-50){\line(3,-5){60}}% % single bond at 1 - }{{\thicklines% - \dottedline{20}(30,-50)(90,-150)}}% - \else\if\@tmpb U%unspecified single bond - \put(30,-50){\line(3,-5){60}}% % single bond at 1 - \else\if\@tmpb S%beta single bond - \put(30,-50){\line(3,-5){60}}% % single bond at 1 - \else\if\@tmpb D%double bond - \put(40,-44){\line(3,-5){60}}% % single bond at 1 - \put(20,-56){\line(3,-5){60}}% % single bond at 1 - \else\if\@tmpb T%triple bond - \put(45,-41){\line(3,-5){60}}% % single bond at 1 - \put(30,-50){\line(3,-5){60}}% % single bond at 1 - \put(15,-59){\line(3,-5){60}}% % single bond at 1 - \else\ifx\@tmpb\empty%beta single bond - \put(30,-50){\line(3,-5){60}}% % single bond at 1 - \fi\fi\fi\fi\fi\fi\fi% - \putratom{80}{-220}{\@memberb}% % right type - \else%no clipping - \yl@xdiff=10\relax - \yl@ydiff=70\relax - \if\@tmpb B%beta single bond - {% - \thicklines% - \put(0,0){\line(3,-5){90}}% % single bond at 1 - }% - \else\if\@tmpb A%alpha single bond - \@ifundefined{dottedline}{% - \put(0,0){\line(3,-5){90}}% % single bond at 1 - }{{\thicklines% - \dottedline{20}(0,0)(90,-150)}}% - \else\if\@tmpb U%unspecified single bond - \put(0,0){\line(3,-5){90}}% % single bond at 1 - \else\if\@tmpb S%beta single bond - \put(0,0){\line(3,-5){90}}% % single bond at 1 - \else\if\@tmpb D%beta single bond - \put(10,6){\line(3,-5){90}}% % single bond at 1 - \put(-10,-6){\line(3,-5){90}}% % single bond at 1 - \else\if\@tmpb T%beta single bond - \put(15,9){\line(3,-5){90}}% % single bond at 1 - \put(0,0){\line(3,-5){90}}% % single bond at 1 - \put(-15,-9){\line(3,-5){90}}% % single bond at 1 - \else\ifx\@tmpb\empty%beta single bond - \put(0,0){\line(3,-5){90}}% % single bond at 1 - \fi\fi\fi\fi\fi\fi\fi% - \putratom{80}{-220}{\@memberb}% % right type - \fi% -}% end of \setatombondE -\def\setatombondA{%% (1,1) - \yl@xdiff=0\relax - \yl@ydiff=0\relax - \if@clipfuse% - \if\@tmpb B%beta single bond - {% - \thicklines% - \put(40,40){\line(1,1){100}}% % single bond at 1 - }% - \else\if\@tmpb A%alpha single bond - \@ifundefined{dottedline}{% - \put(40,40){\line(1,1){100}}% % single bond at 1 - }{{\thicklines% - \dottedline{20}(40,40)(140,140)}}% - \else\if\@tmpb U%unspecified single bond - \put(40,40){\line(1,1){100}}% % single bond at 1 - \else\if\@tmpb S%beta single bond - \put(40,40){\line(1,1){100}}% % single bond at 1 - \else\if\@tmpb D%double bond - \put(46,36){\line(1,1){100}}% % single bond at 1 - \put(36,46){\line(1,1){100}}% % single bond at 1 - \else\if\@tmpb T%triple bond - \put(50,30){\line(1,1){100}}% % single bond at 1 - \put(40,40){\line(1,1){100}}% % single bond at 1 - \put(30,50){\line(1,1){100}}% % single bond at 1 - \else\ifx\@tmpb\empty%beta single bond - \put(40,40){\line(1,1){100}}% % single bond at 1 - \fi\fi\fi\fi\fi\fi\fi% - \putratom{140}{140}{\@memberb}% % right type - \else%no clipping - \if\@tmpb B%beta single bond - {% - \thicklines% - \put(0,0){\line(1,1){120}}% % single bond at 1 - }% - \else\if\@tmpb A%alpha single bond - \@ifundefined{dottedline}{% - \put(0,0){\line(1,1){120}}% % single bond at 1 - }{{\thicklines% - \dottedline{20}(0,0)(120,120)}}% - \else\if\@tmpb U%unspecified single bond - \put(0,0){\line(1,1){120}}% % single bond at 1 - \else\if\@tmpb S%beta single bond - \put(0,0){\line(1,1){120}}% % single bond at 1 - \else\if\@tmpb D%beta single bond - \put(6,-6){\line(1,1){120}}% % single bond at 1 - \put(-6,6){\line(1,1){120}}% % single bond at 1 - \else\if\@tmpb T%beta single bond - \put(10,-10){\line(1,1){120}}% % single bond at 1 - \put(0,0){\line(1,1){120}}% % single bond at 1 - \put(-10,10){\line(1,1){120}}% % single bond at 1 - \else\ifx\@tmpb\empty%beta single bond - \put(0,0){\line(1,1){120}}% % single bond at 1 - \fi\fi\fi\fi\fi\fi\fi% - \putratom{120}{120}{\@memberb}% % right type - \fi% -}% end of \setatombondA -\def\setatombondB{%% (1,-1) - \if@clipfuse% - \yl@xdiff=0\relax - \yl@ydiff=60\relax - \if\@tmpb B%beta single bond - {% - \thicklines% - \put(40,-40){\line(1,-1){100}}% % single bond at 1 - }% - \else\if\@tmpb A%alpha single bond - \@ifundefined{dottedline}{% - \put(40,-40){\line(1,-1){100}}% % single bond at 1 - }{{\thicklines% - \dottedline{20}(40,-40)(140,-140)}}% - \else\if\@tmpb U%unspecified single bond - \put(40,-40){\line(1,-1){100}}% % single bond at 1 - \else\if\@tmpb S%beta single bond - \put(40,-40){\line(1,-1){100}}% % single bond at 1 - \else\if\@tmpb D%double bond - \put(46,-36){\line(1,-1){100}}% % single bond at 1 - \put(36,-46){\line(1,-1){100}}% % single bond at 1 - \else\if\@tmpb T%triple bond - \put(50,-30){\line(1,-1){100}}% % single bond at 1 - \put(40,-40){\line(1,-1){100}}% % single bond at 1 - \put(30,-50){\line(1,-1){100}}% % single bond at 1 - \else\ifx\@tmpb\empty%beta single bond - \put(40,-40){\line(1,-1){100}}% % single bond at 1 - \fi\fi\fi\fi\fi\fi\fi% - \putratom{140}{-200}{\@memberb}% % right type - \else%no clipping - \yl@xdiff=0\relax - \yl@ydiff=60\relax - \if\@tmpb B%beta single bond - {% - \thicklines% - \put(0,0){\line(1,-1){120}}% % single bond at 1 - }% - \else\if\@tmpb A%alpha single bond - \@ifundefined{dottedline}{% - \put(0,0){\line(1,-1){120}}% % single bond at 1 - }{{\thicklines% - \dottedline{20}(0,0)(120,-120)}}% - \else\if\@tmpb U%unspecified single bond - \put(0,0){\line(1,-1){120}}% % single bond at 1 - \else\if\@tmpb S%beta single bond - \put(0,0){\line(1,-1){120}}% % single bond at 1 - \else\if\@tmpb D%beta single bond - \put(6,6){\line(1,-1){120}}% % single bond at 1 - \put(-6,-6){\line(1,-1){120}}% % single bond at 1 - \else\if\@tmpb T%beta single bond - \put(10,10){\line(1,-1){120}}% % single bond at 1 - \put(0,0){\line(1,-1){120}}% % single bond at 1 - \put(-10,-10){\line(1,-1){120}}% % single bond at 1 - \else\ifx\@tmpb\empty%beta single bond - \put(0,0){\line(1,-1){120}}% % single bond at 1 - \fi\fi\fi\fi\fi\fi\fi% - \putratom{120}{-180}{\@memberb}% % right type - \fi% -}% end of \setatombondB -\def\lyl{\@ifnextchar({\@lyl}{\@lyl()}} -\def\@lyl(#1)#2{% -\iniatom\iniflag%initialize -\@reset@ylsw% -\def\centeraaa{}% -\x@ryl=0\y@ryl=0 -\@forsemicol\member:=#1\do{% -\if@ylsw% -\XyMTeXWarning{Duplicated items in the first augument of \string\ryl}% -\else% -\ifx\member\empty\else% -\expandafter\@m@mb@r\member;\relax% -\expandafter\twoch@r\@membera{}% -\settowidth{\dimen0}{\@memberb}% -\x@ryl=\dimen0%%%dimension => counter -\divide\x@ryl\unitlength -\advance\x@ryl by-80 -\y@ryl=0 -\ifcase\@tmpa% -\def\centeraaa{\@memberb}\@ylswtrue -\advance\y@ryl by50 -\or%1 -\def\centeraaa{\@memberb}\@ylswtrue -\advance\x@ryl by30 -\advance\y@ryl by50 -\or%2 -\def\centeraaa{\@memberb}\@ylswtrue -\advance\x@ryl by40 -\advance\y@ryl by40 -\or%3 -\def\centeraaa{\@memberb}\@ylswtrue -\advance\x@ryl by50 -\advance\y@ryl by30 -\or%4 -\def\centeraaa{\@memberb}\@ylswtrue -\advance\x@ryl by50 -\advance\y@ryl by0 -\or%5 -\def\centeraaa{\@memberb}\@ylswtrue -\advance\x@ryl by50 -\advance\y@ryl by-30 -\or%6 -\def\centeraaa{\@memberb}\@ylswtrue -\advance\x@ryl by50 -\advance\y@ryl by-50 -\or%7 -\def\centeraaa{\@memberb}\@ylswtrue -\advance\x@ryl by30 -\advance\y@ryl by-50 -\or%8 -\def\centeraaa{\@memberb}\@ylswtrue -\advance\y@ryl by-50 -\fi -\fi\fi}% - \yl@shiftii=-\x@ryl - \yl@shifti=-\y@ryl - \advance\yl@shiftii\yl@xdiff - \advance\yl@shifti\yl@ydiff - \begin{picture}(0,0)(-\yl@shiftii,-\yl@shifti) -\ifx\centeraaa\empty\else% - \@clipfusetrue - \putratom{-40}{-30}{\centeraaa}% % right type -\fi% -\@forsemicol\member:=#2\do{% -\ifx\member\empty\else% -\expandafter\@m@mb@r\member;\relax% -\expandafter\threech@r\@membera{}{}% -\ifcase\@tmpa% -\setatombonda% 0 (upward) (0,1) -\or\setatombondD%1 (-3,5) -\or\setatombondH%2 (-1,1) -\or\setatombondd%3 (-5,3) -\or\setatombondh%4 (-1,0) -\or\setatombondg%5 (-5,-3) -\or\setatombondC%6 (-1,-1) -\or\setatombondG%7 (-3,-5) -\or\setatombondc%8 (0,-1) -\fi%end of ifcase -\fi -}\end{picture}}% %end of \lyl macro -\def\setatombondD{%% (-3,5) - \if@clipfuse% - \if\@tmpb B%beta single bond - \yl@xdiff=-10\relax - \yl@ydiff=-10\relax - {% - \thicklines% - \put(-30,50){\line(-3,5){60}}% % single bond at 1 - }% - \else\if\@tmpb A%alpha single bond - \yl@xdiff=-10\relax - \yl@ydiff=-10\relax - \@ifundefined{dottedline}{% - \put(-30,50){\line(-3,5){60}}% % single bond at 1 - }{{\thicklines% - \dottedline{20}(-30,50)(-90,150)}}% - \else\if\@tmpb U%unspecified single bond - \yl@xdiff=-10\relax - \yl@ydiff=-10\relax - \put(-30,50){\line(-3,5){60}}% % single bond at 1 - \else\if\@tmpb S%beta single bond - \yl@xdiff=-10\relax - \yl@ydiff=-10\relax - \put(-30,50){\line(-3,5){60}}% % single bond at 1 - \else\if\@tmpb D%double bond - \yl@xdiff=-10\relax - \yl@ydiff=-10\relax - \put(-40,44){\line(-3,5){60}}% % single bond at 1 - \put(-20,56){\line(-3,5){60}}% % single bond at 1 - \else\if\@tmpb T%triple bond - \yl@xdiff=-10\relax - \yl@ydiff=-10\relax - \put(-45,41){\line(-3,5){60}}% % single bond at 1 - \put(-30,50){\line(-3,5){60}}% % single bond at 1 - \put(-15,59){\line(-3,5){60}}% % single bond at 1 - \else\ifx\@tmpb\empty%beta single bond - \yl@xdiff=-10\relax - \yl@ydiff=-10\relax - \put(-30,50){\line(-3,5){60}}% % single bond at 1 - \fi\fi\fi\fi\fi\fi\fi% - \putlatom{-80}{160}{\@memberb}% % left type - \else%no clipping - \if\@tmpb B%beta single bond - \yl@xdiff=-10\relax - \yl@ydiff=-10\relax - {% - \thicklines% - \put(0,0){\line(-3,5){90}}% % single bond at 1 - }% - \else\if\@tmpb A%alpha single bond - \yl@xdiff=-10\relax - \yl@ydiff=-10\relax - \@ifundefined{dottedline}{% - \put(0,0){\line(-3,5){90}}% % single bond at 1 - }{{\thicklines% - \dottedline{20}(0,0)(-90,150)}}% - \else\if\@tmpb U%unspecified single bond - \yl@xdiff=-10\relax - \yl@ydiff=-10\relax - \put(0,0){\line(-3,5){90}}% % single bond at 1 - \else\if\@tmpb S%beta single bond - \yl@xdiff=-10\relax - \yl@ydiff=-10\relax - \put(0,0){\line(-3,5){90}}% % single bond at 1 - \else\if\@tmpb D%beta single bond - \yl@xdiff=-10\relax - \yl@ydiff=-10\relax - \put(-10,-6){\line(-3,5){90}}% % single bond at 1 - \put(10,6){\line(-3,5){90}}% % single bond at 1 - \else\if\@tmpb T%beta single bond - \yl@xdiff=-10\relax - \yl@ydiff=-10\relax - \put(-15,-9){\line(-3,5){90}}% % single bond at 1 - \put(0,0){\line(-3,5){90}}% % single bond at 1 - \put(15,9){\line(-3,5){90}}% % single bond at 1 - \else\ifx\@tmpb\empty%beta single bond - \yl@xdiff=-10\relax - \yl@ydiff=-10\relax - \put(0,0){\line(-3,5){90}}% % single bond at 1 - \fi\fi\fi\fi\fi\fi\fi% - \putlatom{-80}{160}{\@memberb}% % left type - \fi% -}% end of \setatombondD -\def\setatombondG{%% (-3,-5) - \if@clipfuse% - \yl@xdiff=-10\relax - \yl@ydiff=70\relax - \if\@tmpb B%beta single bond - {% - \thicklines% - \put(-30,-50){\line(-3,-5){60}}% % single bond at 1 - }% - \else\if\@tmpb A%alpha single bond - \@ifundefined{dottedline}{% - \put(-30,-50){\line(-3,-5){60}}% % single bond at 1 - }{{\thicklines% - \dottedline{20}(-30,-50)(-90,-150)}}% - \else\if\@tmpb U%unspecified single bond - \put(-30,-50){\line(-3,-5){60}}% % single bond at 1 - \else\if\@tmpb S%beta single bond - \put(-30,-50){\line(-3,-5){60}}% % single bond at 1 - \else\if\@tmpb D%double bond - \put(-40,-44){\line(-3,-5){60}}% % single bond at 1 - \put(-20,-56){\line(-3,-5){60}}% % single bond at 1 - \else\if\@tmpb T%triple bond - \put(-45,-41){\line(-3,-5){60}}% % single bond at 1 - \put(-30,-50){\line(-3,-5){60}}% % single bond at 1 - \put(-15,-59){\line(-3,-5){60}}% % single bond at 1 - \else\ifx\@tmpb\empty%beta single bond - \put(-30,-50){\line(-3,-5){60}}% % single bond at 1 - \fi\fi\fi\fi\fi\fi\fi% - \putlatom{-80}{-220}{\@memberb}% % left type - \else%no clipping - \yl@xdiff=-10\relax - \yl@ydiff=70\relax - \if\@tmpb B%beta single bond - {% - \thicklines% - \put(0,0){\line(-3,-5){90}}% % single bond at 1 - }% - \else\if\@tmpb A%alpha single bond - \@ifundefined{dottedline}{% - \put(0,0){\line(-3,-5){90}}% % single bond at 1 - }{{\thicklines% - \dottedline{20}(0,0)(-90,-150)}}% - \else\if\@tmpb U%unspecified single bond - \put(0,0){\line(-3,-5){90}}% % single bond at 1 - \else\if\@tmpb S%beta single bond - \put(0,0){\line(-3,-5){90}}% % single bond at 1 - \else\if\@tmpb D%beta single bond - \put(-10,6){\line(-3,-5){90}}% % single bond at 1 - \put(10,-6){\line(-3,-5){90}}% % single bond at 1 - \else\if\@tmpb T%beta single bond - \put(-15,9){\line(-3,-5){90}}% % single bond at 1 - \put(0,0){\line(-3,-5){90}}% % single bond at 1 - \put(15,-9){\line(-3,-5){90}}% % single bond at 1 - \else\ifx\@tmpb\empty%beta single bond - \put(0,0){\line(-3,-5){90}}% % single bond at 1 - \fi\fi\fi\fi\fi\fi\fi% - \putlatom{-80}{-220}{\@memberb}% % left type - \fi% -}% end of \setatombondG -\def\setatombondH{%% (-1,1) - \yl@xdiff=0\relax - \yl@ydiff=0\relax - \if@clipfuse% - \if\@tmpb B%beta single bond - {% - \thicklines% - \put(-40,40){\line(-1,1){100}}% % single bond at 1 - }% - \else\if\@tmpb A%alpha single bond - \@ifundefined{dottedline}{% - \put(-40,40){\line(-1,1){100}}% % single bond at 1 - }{{\thicklines% - \dottedline{20}(-40,40)(-140,140)}}% - \else\if\@tmpb U%unspecified single bond - \put(-40,40){\line(-1,1){100}}% % single bond at 1 - \else\if\@tmpb S%beta single bond - \put(-40,40){\line(-1,1){100}}% % single bond at 1 - \else\if\@tmpb D%double bond - \put(-46,36){\line(-1,1){100}}% % single bond at 1 - \put(-36,46){\line(-1,1){100}}% % single bond at 1 - \else\if\@tmpb T%triple bond - \put(-50,30){\line(-1,1){100}}% % single bond at 1 - \put(-40,40){\line(-1,1){100}}% % single bond at 1 - \put(-30,50){\line(-1,1){100}}% % single bond at 1 - \else\ifx\@tmpb\empty%beta single bond - \put(-40,40){\line(-1,1){100}}% % single bond at 1 - \fi\fi\fi\fi\fi\fi\fi% - \putlatom{-140}{140}{\@memberb}% % left type - \else%no clipping - \if\@tmpb B%beta single bond - {% - \thicklines% - \put(0,0){\line(-1,1){120}}% % single bond at 1 - }% - \else\if\@tmpb A%alpha single bond - \@ifundefined{dottedline}{% - \put(0,0){\line(-1,1){120}}% % single bond at 1 - }{{\thicklines% - \dottedline{20}(0,0)(-120,120)}}% - \else\if\@tmpb U%unspecified single bond - \put(0,0){\line(-1,1){120}}% % single bond at 1 - \else\if\@tmpb S%beta single bond - \put(0,0){\line(-1,1){120}}% % single bond at 1 - \else\if\@tmpb D%beta single bond - \put(-6,-6){\line(-1,1){120}}% % single bond at 1 - \put(6,6){\line(-1,1){120}}% % single bond at 1 - \else\if\@tmpb T%beta single bond - \put(-10,-10){\line(-1,1){120}}% % single bond at 1 - \put(0,0){\line(-1,1){120}}% % single bond at 1 - \put(10,10){\line(-1,1){120}}% % single bond at 1 - \else\ifx\@tmpb\empty%beta single bond - \put(0,0){\line(-1,1){120}}% % single bond at 1 - \fi\fi\fi\fi\fi\fi\fi% - \putlatom{-120}{120}{\@memberb}% % left type - \fi% -}% end of \setatombondH -\def\setatombondC{%% (-1,-1) - \if@clipfuse% - \yl@xdiff=0\relax - \yl@ydiff=60\relax - \if\@tmpb B%beta single bond - {% - \thicklines% - \put(-40,-40){\line(-1,-1){100}}% % single bond at 1 - }% - \else\if\@tmpb A%alpha single bond - \@ifundefined{dottedline}{% - \put(-40,-40){\line(-1,-1){100}}% % single bond at 1 - }{{\thicklines% - \dottedline{20}(-40,-40)(-140,-140)}}% - \else\if\@tmpb U%unspecified single bond - \put(-40,-40){\line(-1,-1){100}}% % single bond at 1 - \else\if\@tmpb S%beta single bond - \put(-40,-40){\line(-1,-1){100}}% % single bond at 1 - \else\if\@tmpb D%double bond - \put(-46,-36){\line(-1,-1){100}}% % single bond at 1 - \put(-36,-46){\line(-1,-1){100}}% % single bond at 1 - \else\if\@tmpb T%triple bond - \put(-50,-30){\line(-1,-1){100}}% % single bond at 1 - \put(-40,-40){\line(-1,-1){100}}% % single bond at 1 - \put(-30,-50){\line(-1,-1){100}}% % single bond at 1 - \else\ifx\@tmpb\empty%beta single bond - \put(-40,-40){\line(-1,-1){100}}% % single bond at 1 - \fi\fi\fi\fi\fi\fi\fi% - \putlatom{-140}{-200}{\@memberb}% % left type - \else%no clipping - \yl@xdiff=0\relax - \yl@ydiff=60\relax - \if\@tmpb B%beta single bond - {% - \thicklines% - \put(0,0){\line(-1,-1){120}}% % single bond at 1 - }% - \else\if\@tmpb A%alpha single bond - \@ifundefined{dottedline}{% - \put(0,0){\line(-1,-1){120}}% % single bond at 1 - }{{\thicklines% - \dottedline{20}(0,0)(-120,-120)}}% - \else\if\@tmpb U%unspecified single bond - \put(0,0){\line(-1,-1){120}}% % single bond at 1 - \else\if\@tmpb S%beta single bond - \put(0,0){\line(-1,-1){120}}% % single bond at 1 - \else\if\@tmpb D%beta single bond - \put(-6,6){\line(-1,-1){120}}% % single bond at 1 - \put(6,-6){\line(-1,-1){120}}% % single bond at 1 - \else\if\@tmpb T%beta single bond - \put(-10,10){\line(-1,-1){120}}% % single bond at 1 - \put(0,0){\line(-1,-1){120}}% % single bond at 1 - \put(10,-10){\line(-1,-1){120}}% % single bond at 1 - \else\ifx\@tmpb\empty%beta single bond - \put(0,0){\line(-1,-1){120}}% % single bond at 1 - \fi\fi\fi\fi\fi\fi\fi% - \putlatom{-120}{-180}{\@memberb}% % left type - \fi% -}% end of \setatombondC -\def\ayl{\@ifnextchar({\@ayl@}{\@ayl@(10,40)}} -\def\@ayl@(#1,#2)#3{\begingroup\yl@xdiff=0 \yl@ydiff=0% -\kern#1\unitlength\raise#2\unitlength\hbox to0pt{#3\hss}% -\endgroup} -\def\upnobond#1#2{% -\hbox{\hbox to0.72em{\hss#1\hss}\kern-0.72em\raise2.2ex\hbox{#2}}} -\def\downnobond#1#2{% -\hbox{\hbox to0.72em{\hss#1\hss}\kern-0.72em\lower2.2ex\hbox{#2}}} -\def\test@vertix#1{% - \expandafter\def\csname #1#1#1\endcsname{@}% - \if\@tmpb h\relax - \expandafter\def\csname #1#1#1\endcsname{@}% - \else\if\@tmpb s\relax - \expandafter\def\csname #1#1#1\endcsname{}% - \fi\fi} -\def\test@vertix@sixv#1#2#3#4#5#6#7{% -\@forsemicol\member:=#1\do{% -\ifx\member\empty\else% -\expandafter\@m@mb@r\member;\relax% -\expandafter\twoCH@R\@membera//% -\ifcase\@tmpa% - \or \test@vertix{#2}% - \or \test@vertix{#3}% - \or \test@vertix{#4}% - \or - \if\@tmpb a% - \def\iii{@}% - \else - \test@vertix{#5}% - \fi - \or \test@vertix{#6}% - \or \test@vertix{#7}% -\fi\fi}}% end of \test@vertix@sixv -%% \changes{v2.00}{1996/11/14}{@ in place of a net value} -\def\set@hetatom@sixv#1#2#3#4#5{% -\@forsemicol\member:=#1\do{% -\ifx\member\empty\else% -\expandafter\@m@mb@r\member;\relax% -\expandafter\twoch@r\@membera{}% -\ifnum#5 < 0\relax% -\@tmpaa=-\@tmpa\relax \advance\@tmpaa by#2\relax% -\else\@tmpaa=\@tmpa\relax \advance\@tmpaa by#2\relax \fi -\ifnum\@tmpaa >#3\relax% -\ifnum\@tmpaa <#4\relax% -\ifcase\@tmpaa% -\or%position 1 - \if\@tmpb h\relax - \@acliptrue% - \putratom{0}{356}{\@memberb}% % right type - \else\if\@tmpb s\relax - \@aclipfalse% - \putratom{0}{406}{\@memberb}% % right type - \else\if\@tmpb a\relax%omit fused position - \else - \@acliptrue% - \putratom{-31}{356}{\@memberb}% % right type - \fi\fi\fi -\or%position 2 - \if\@tmpb h\relax - \@bcliptrue% - \putratom{135}{280}{\@memberb}% % right type - \else\if\@tmpb s\relax - \@bclipfalse% - \putratom{175}{303}{\@memberb}% % right type - \else\if\@tmpb a\relax%omit fused position - \else - \@bcliptrue% - \putratom{135}{280}{\@memberb}% % right type - \fi\fi\fi -\or%position 3 - \if\@tmpb h\relax - \@ccliptrue% - \putratom{135}{95}{\@memberb}% % right type - \else\if\@tmpb s\relax - \@cclipfalse% - \putratom{175}{103}{\@memberb}% % right type - \else\if\@tmpb a\relax%omit fused position - \else - \@ccliptrue% - \putratom{135}{65}{\@memberb}% % right type - \fi\fi\fi -\or%position 4 - \if\@tmpb h\relax - \@cliptrue% - \putratom{0}{50}{\@memberb}% % right type - \else\if\@tmpb s\relax - \@clipfalse% - \putratom{0}{0}{\@memberb}% % right type - \else\if\@tmpb a\relax%omit fused position - \else - \@cliptrue% - \putratom{-31}{-10}{\@memberb}% % right type - \fi\fi\fi -\or%position 5 - \if\@tmpb h\relax - \@ecliptrue% - \putlatom{-135}{95}{\@memberb}% % right type - \else\if\@tmpb s\relax - \@eclipfalse% - \putlatom{-175}{103}{\@memberb}% % right type - \else\if\@tmpb a\relax%omit fused position - \else - \@ecliptrue% - \putlatom{-135}{65}{\@memberb}% % left type - \fi\fi\fi -\or%position 6 - \if\@tmpb h\relax - \@fcliptrue% - \putlatom{-135}{280}{\@memberb}% % right type - \else\if\@tmpb s\relax - \@fclipfalse% - \putlatom{-175}{303}{\@memberb}% % right type - \else\if\@tmpb a\relax%omit fused position - \else - \@fcliptrue% - \putlatom{-135}{280}{\@memberb}% % left type - \fi\fi\fi -\fi% end of ifcase -\fi\fi\fi}}% end of the macro \set@hetatom@sixv -\def\set@hetatom@sixh#1#2#3#4#5{% -\@forsemicol\member:=#1\do{% -\ifx\member\empty\else% -\expandafter\@m@mb@r\member;\relax% -\expandafter\twoCH@R\@membera//% -\ifnum#5 < 0\relax% -\@tmpaa=-\@tmpa\relax \advance\@tmpaa by#2\relax% -\else\@tmpaa=\@tmpa\relax \advance\@tmpaa by#2\relax \fi -\ifnum\@tmpaa >#3\relax% -\ifnum\@tmpaa <#4\relax% -\ifcase\@tmpaa% -\or%position 1 - \if\@tmpb h\relax - \@acliptrue% - \putlatom{60}{0}{\@memberb}% % left type - \else\if\@tmpb s\relax - \@aclipfalse% - \putlatom{0}{0}{\@memberb}% % left type - \else\if\@tmpb a\relax%omit fused position - \else - \@acliptrue% - \putlatom{60}{-36}{\@memberb}% % left type - \fi\fi\fi -\or%position 2 - \if\@tmpb h\relax - \@bcliptrue% - \putlatom{135}{141}{\@memberb}% % left type - \else\if\@tmpb s\relax - \@bclipfalse% - \putlatom{103}{171}{\@memberb}% % left type - \else\if\@tmpb a\relax%omit fused position - \else - \@bcliptrue% - \putlatom{135}{141}{\@memberb}% % left type - \fi\fi\fi -\or%position 3 - \if\@tmpb h\relax - \@ccliptrue% - \putratom{273}{141}{\@memberb}% % right type - \else\if\@tmpb s\relax - \@cclipfalse% - \putratom{303}{171}{\@memberb}% % right type - \else\if\@tmpb a\relax%omit fused position - \else - \@ccliptrue% - \putratom{273}{141}{\@memberb}% % right type - \fi\fi\fi -\or%position 4 - \if\@tmpb h\relax - \@cliptrue% - \putratom{346}{0}{\@memberb}% % right type - \else\if\@tmpb s\relax - \@clipfalse% - \putratom{406}{0}{\@memberb}% % right type - \else\if\@tmpb a\relax%omit fused position - \else - \@cliptrue% - \putratom{346}{-36}{\@memberb}% % right type - \fi\fi\fi -\or%position 5 - \if\@tmpb h\relax - \@ecliptrue% - \putratom{283}{-131}{\@memberb}% % right type - \else\if\@tmpb s\relax - \@eclipfalse% - \putratom{303}{-171}{\@memberb}% % right type - \else\if\@tmpb a\relax%omit fused position - \else - \@ecliptrue% - \putratom{273}{-211}{\@memberb}% % right type - \fi\fi\fi -\or%position 6 - \if\@tmpb h\relax - \@fcliptrue% - \putlatom{125}{-131}{\@memberb}% % left type - \else\if\@tmpb s\relax - \@fclipfalse% - \putlatom{103}{-171}{\@memberb}% % left type - \else\if\@tmpb a\relax%omit fused position - \else - \@fcliptrue% - \putlatom{135}{-211}{\@memberb}% % left type - \fi\fi\fi -\fi% end of ifcase -\fi\fi\fi}}% end of the macro \set@hetatom@sixh -\def\test@vertix@decav#1#2#3#4#5#6#7{% -\@forsemicol\member:=#1\do{% -\ifx\member\empty\else% -\expandafter\@m@mb@r\member;\relax% -\expandafter\twoch@r\@membera{}% -\ifcase\@tmpa% - \or\or\or\or\or\or - \or \test@vertix{#2}% - \or - \if\@tmpb a% - \def\jjj{@}% - \else - \test@vertix{#3}% - \fi - \or \test@vertix{#4}% - \or \test@vertix{#5}% -\fi\fi}} -\def\set@vrtx@fuse#1{% -\@forsemicol\member:=#1\do{% -\ifx\member\empty\else% -\expandafter\@m@mb@r\member;\relax% -\expandafter\twoch@r\@membera{}% -\ifcase\@tmpa% - \or - \or - \or - \or%%%%4 - \if\@tmpb a% - \global\@icliptrue% - \putlatom{207}{65}{\@memberb}% % left type - \else\relax - \fi - \or%5 - \or%6 - \or%7 - \or% - \if\@tmpb a% - \global\@jcliptrue% - \putlatom{207}{280}{\@memberb}% % left type - \else\relax - \fi -\or%9 (= 4a) - \global\@icliptrue% - \putlatom{207}{65}{\@memberb}% % left type -\or%10 (= 8a) - \global\@jcliptrue% - \putlatom{207}{280}{\@memberb}% % left type -\fi\fi}% -}% end of the macro \set@vrtx@fuse -\def\set@vrtx@fuseh#1{% -\@forsemicol\member:=#1\do{% -\ifx\member\empty\else% -\expandafter\@m@mb@r\member;\relax% -\expandafter\twoCH@R\@membera//% -\ifcase\@tmpa% - \or - \or - \or - \or%%%%4 - \if\@tmpb a% - \global\@icliptrue% - \putratom{273}{-211}{\@memberb}% % right type - \else\relax - \fi - \or%5 - \or%6 - \or%7 - \or% - \if\@tmpb a% - \global\@jcliptrue% - \putlatom{135}{-211}{\@memberb}% % left type - \else\relax - \fi -\or%9 (= 4a) - \ifx\@tmpb\empty - \global\@icliptrue% - \putratom{273}{-211}{\@memberb}% % right type - \else - \XyMTeXWarning{Forbidden spiro ring for the 4a position}% - \fi -\or%10 (= 8a) - \ifx\@tmpb\empty - \global\@jcliptrue% - \putlatom{135}{-211}{\@memberb}% % left type - \else - \XyMTeXWarning{Forbidden spiro ring for the 8a position}% - \fi -\fi\fi}% -}% end of the macro \set@vrtx@fuseh -\def\set@fusionadd@sixv{% - \if\@@tmpa 1\relax% - \putratom{-38}{282}{\@@tmpb}% % right type - \else\if\@@tmpa 2\relax% - \putratom{60}{253}{\@@tmpb}% % right type - \else\if\@@tmpa 3\relax% - \putratom{60}{120}{\@@tmpb}% % right type - \else\if\@@tmpa 4\relax% - \putratom{-38}{88}{\@@tmpb}% % right type - \else\if\@@tmpa 6\relax% - \putratom{-90}{253}{\@@tmpb}% % right type - \else\if\@@tmpa 5\relax% - \putratom{-90}{120}{\@@tmpb}% % right type - \else - \set@fusion@sixv - \fi\fi\fi\fi\fi\fi% -}% -\def\set@fusion@sixv{% -\if\@@tmpa d\relax% - \putlratom{0}{0}{\@@tmpb}% % bond fused - \FuseWarning{171}{-103}% - {\fuseAx}{\fuseAy}{\fuseBx}{\fuseBy}{d, h, or other}% - \else\if\@@tmpa D\relax% - \putlratom{-171}{103}{\@@tmpb}% % bond fused - \FuseWarning{-171}{103}% - {\fuseAx}{\fuseAy}{\fuseBx}{\fuseBy}{D, H, or other}% - \else\if\@@tmpa e\relax% - \putlratom{-171}{103}{\@@tmpb}% % bond fused - \FuseWarning{0}{-200}% - {\fuseAx}{\fuseAy}{\fuseBx}{\fuseBy}{e, k, or other}% - \else\if\@@tmpa E\relax% - \putlratom{-171}{303}{\@@tmpb}% % bond fused - \FuseWarning{0}{200}% - {\fuseAx}{\fuseAy}{\fuseBx}{\fuseBy}{E, K, or other}% - \else\if\@@tmpa f\relax% - \putlratom{-171}{303}{\@@tmpb}% % bond fused - \FuseWarning{-171}{-103}% - {\fuseAx}{\fuseAy}{\fuseBx}{\fuseBy}{f, j, or other}% - \else\if\@@tmpa F\relax% - \putlratom{0}{406}{\@@tmpb}% % bond fused - \FuseWarning{171}{103}% - {\fuseAx}{\fuseAy}{\fuseBx}{\fuseBy}{F, J, or other}% - \else\if\@@tmpa a\relax% - \putlratom{0}{406}{\@@tmpb}% % bond fused - \FuseWarning{-171}{103}% - {\fuseAx}{\fuseAy}{\fuseBx}{\fuseBy}{a, i, or other}% - \else\if\@@tmpa A\relax% - \putlratom{171}{303}{\@@tmpb}% % bond fused - \FuseWarning{171}{-103}% - {\fuseAx}{\fuseAy}{\fuseBx}{\fuseBy}{A, I, or other}% - \else\if\@@tmpa b\relax% - \putlratom{171}{303}{\@@tmpb}% % bond fused - \FuseWarning{0}{200}% - {\fuseAx}{\fuseAy}{\fuseBx}{\fuseBy}{b, k, or other}% - \else\if\@@tmpa B\relax% - \putlratom{171}{103}{\@@tmpb}% % bond fused - \FuseWarning{0}{-200}% - {\fuseAx}{\fuseAy}{\fuseBx}{\fuseBy}{B, K, or other}% - \else\if\@@tmpa c\relax% - \putlratom{171}{103}{\@@tmpb}% % bond fused - \FuseWarning{171}{103}% - {\fuseAx}{\fuseAy}{\fuseBx}{\fuseBy}{c, e, or other}% - \else\if\@@tmpa C\relax% - \putlratom{0}{0}{\@@tmpb}% % bond fused - \FuseWarning{-171}{-103}% - {\fuseAx}{\fuseAy}{\fuseBx}{\fuseBy}{C, E, or other}% - \fi\fi\fi\fi\fi\fi\fi\fi\fi\fi\fi\fi% -}% end of the macro \set@fusion@sixv -\def\set@fusionadd@sixvi{% - \if\@@tmpa 4\relax% - \putratom{-38}{282}{\@@tmpb}% % right type - \else\if\@@tmpa 3\relax% - \putratom{60}{253}{\@@tmpb}% % right type - \else\if\@@tmpa 2\relax% - \putratom{60}{120}{\@@tmpb}% % right type - \else\if\@@tmpa 1\relax% - \putratom{-38}{88}{\@@tmpb}% % right type - \else\if\@@tmpa 5\relax% - \putratom{-90}{253}{\@@tmpb}% % right type - \else\if\@@tmpa 6\relax% - \putratom{-90}{120}{\@@tmpb}% % right type - \else - \set@fusion@sixvi - \fi\fi\fi\fi\fi\fi% -}% end of the macro \set@fusionadd@sixvi -\def\set@fusion@sixvi{% - \if\@@tmpa a\relax% - \putlratom{0}{0}{\@@tmpb}% % right type - \FuseWarning{-171}{-103}% - {\fuseAx}{\fuseAy}{\fuseBx}{\fuseBy}{a or other}% - \else\if\@@tmpa A\relax% - \putlratom{171}{103}{\@@tmpb}% % right type - \FuseWarning{171}{103}% - {\fuseAx}{\fuseAy}{\fuseBx}{\fuseBy}{A or other}% - \else\if\@@tmpa b\relax% - \putlratom{171}{103}{\@@tmpb}% % right type - \FuseWarning{0}{-200}% - {\fuseAx}{\fuseAy}{\fuseBx}{\fuseBy}{b or other}% - \else\if\@@tmpa B\relax% - \putlratom{171}{303}{\@@tmpb}% % right type - \FuseWarning{0}{200}% - {\fuseAx}{\fuseAy}{\fuseBx}{\fuseBy}{B or other}% - \else\if\@@tmpa c\relax% - \putlratom{171}{303}{\@@tmpb}% % right type - \FuseWarning{171}{-103}% - {\fuseAx}{\fuseAy}{\fuseBx}{\fuseBy}{c or other}% - \else\if\@@tmpa C\relax% - \putlratom{0}{406}{\@@tmpb}% % right type - \FuseWarning{-171}{103}% - {\fuseAx}{\fuseAy}{\fuseBx}{\fuseBy}{C or other}% - \else\if\@@tmpa d\relax% - \putlratom{0}{406}{\@@tmpb}% % right type - \FuseWarning{171}{103}% - {\fuseAx}{\fuseAy}{\fuseBx}{\fuseBy}{d or other}% - \else\if\@@tmpa D\relax% - \putlratom{-171}{303}{\@@tmpb}% % right type - \FuseWarning{-171}{-103}% - {\fuseAx}{\fuseAy}{\fuseBx}{\fuseBy}{D or other}% - \else\if\@@tmpa e\relax% - \putlratom{-171}{303}{\@@tmpb}% % right type - \FuseWarning{0}{200}% - {\fuseAx}{\fuseAy}{\fuseBx}{\fuseBy}{e or other}% - \else\if\@@tmpa E\relax% - \putlratom{-171}{103}{\@@tmpb}% % right type - \FuseWarning{0}{-200}% - {\fuseAx}{\fuseAy}{\fuseBx}{\fuseBy}{E or other}% - \else\if\@@tmpa f\relax% - \putlratom{-171}{103}{\@@tmpb}% % right type - \FuseWarning{171}{-103}% - {\fuseAx}{\fuseAy}{\fuseBx}{\fuseBy}{f or other}% - \else\if\@@tmpa F\relax% - \putlratom{0}{0}{\@@tmpb}% % right type - \FuseWarning{-171}{103}% - {\fuseAx}{\fuseAy}{\fuseBx}{\fuseBy}{F or other}% - \fi\fi\fi\fi\fi\fi\fi\fi\fi\fi\fi\fi% -}% end of the marcro \set@fusion@sixvi -\def\set@fusionadd@sixh{% - \if\@@tmpa 4\relax% - \putratom{272}{-18}{\@@tmpb}% % right type - \else\if\@@tmpa 1\relax% - \putratom{68}{-18}{\@@tmpb}% % right type - \else\if\@@tmpa 3\relax% - \putratom{233}{60}{\@@tmpb}% % right type - \else\if\@@tmpa 2\relax% - \putratom{120}{60}{\@@tmpb}% % right type - \else\if\@@tmpa 5\relax% - \putratom{233}{-110}{\@@tmpb}% % right type - \else\if\@@tmpa 6\relax% - \putratom{120}{-110}{\@@tmpb}% % right type - \else - \set@fusion@sixh - \fi\fi\fi\fi\fi\fi% -}% -\def\set@fusion@sixh{% -\if\@@tmpa d\relax% - \putlratom{406}{0}{\@@tmpb}% % bond fused - \FuseWarning{103}{171}% - {\fuseAx}{\fuseAy}{\fuseBx}{\fuseBy}{d, h, or other}% - \else\if\@@tmpa D\relax% - \putlratom{303}{-171}{\@@tmpb}% % bond fused - \FuseWarning{-103}{-171}% - {\fuseAx}{\fuseAy}{\fuseBx}{\fuseBy}{D, H, or other}% - \else\if\@@tmpa e\relax% - \putlratom{303}{-171}{\@@tmpb}% % bond fused - \FuseWarning{200}{0}% - {\fuseAx}{\fuseAy}{\fuseBx}{\fuseBy}{e, k, or other}% - \else\if\@@tmpa E\relax% - \putlratom{103}{-171}{\@@tmpb}% % bond fused - \FuseWarning{-200}{0}% - {\fuseAx}{\fuseAy}{\fuseBx}{\fuseBy}{E, K, or other}% - \else\if\@@tmpa f\relax% - \putlratom{103}{-171}{\@@tmpb}% % bond fused - \FuseWarning{103}{-171}% - {\fuseAx}{\fuseAy}{\fuseBx}{\fuseBy}{f, j, or other}% - \else\if\@@tmpa F\relax% - \putlratom{0}{0}{\@@tmpb}% % bond fused - \FuseWarning{-103}{171}% - {\fuseAx}{\fuseAy}{\fuseBx}{\fuseBy}{F, J, or other}% - \else\if\@@tmpa a\relax% - \putlratom{0}{0}{\@@tmpb}% % bond fused - \FuseWarning{-103}{-171}% - {\fuseAx}{\fuseAy}{\fuseBx}{\fuseBy}{a, i, or other}% - \else\if\@@tmpa A\relax% - \putlratom{103}{171}{\@@tmpb}% % bond fused - \FuseWarning{103}{171}% - {\fuseAx}{\fuseAy}{\fuseBx}{\fuseBy}{A, I, or other}% - \else\if\@@tmpa b\relax% - \putlratom{103}{171}{\@@tmpb}% % bond fused - \FuseWarning{-200}{0}% - {\fuseAx}{\fuseAy}{\fuseBx}{\fuseBy}{b, k, or other}% - \else\if\@@tmpa B\relax% - \putlratom{303}{171}{\@@tmpb}% % bond fused - \FuseWarning{200}{0}% - {\fuseAx}{\fuseAy}{\fuseBx}{\fuseBy}{B, K, or other}% - \else\if\@@tmpa c\relax% - \putlratom{303}{171}{\@@tmpb}% % bond fused - \FuseWarning{-103}{171}% - {\fuseAx}{\fuseAy}{\fuseBx}{\fuseBy}{c, e, or other}% - \else\if\@@tmpa C\relax% - \putlratom{406}{0}{\@@tmpb}% % bond fused - \FuseWarning{103}{-171}% - {\fuseAx}{\fuseAy}{\fuseBx}{\fuseBy}{C, E, or other}% - \fi\fi\fi\fi\fi\fi\fi\fi\fi\fi\fi\fi% -}% end of the macro \set@fusion@sixh -\def\set@fusionadd@sixhi{% - \if\@@tmpa 1\relax% - \putratom{272}{-18}{\@@tmpb}% % right type - \else\if\@@tmpa 4\relax% - \putratom{68}{-18}{\@@tmpb}% % right type - \else\if\@@tmpa 2\relax% - \putratom{233}{60}{\@@tmpb}% % right type - \else\if\@@tmpa 3\relax% - \putratom{120}{60}{\@@tmpb}% % right type - \else\if\@@tmpa 6\relax% - \putratom{233}{-110}{\@@tmpb}% % right type - \else\if\@@tmpa 5\relax% - \putratom{120}{-110}{\@@tmpb}% % right type - \else - \set@fusion@sixhi - \fi\fi\fi\fi\fi\fi% -}% -\def\set@fusion@sixhi{% -\if\@@tmpa F\relax% - \putlratom{406}{0}{\@@tmpb}% % bond fused - \FuseWarning{103}{171}% - {\fuseAx}{\fuseAy}{\fuseBx}{\fuseBy}{F, J, or other}% - \else\if\@@tmpa f\relax% - \putlratom{303}{-171}{\@@tmpb}% % bond fused - \FuseWarning{-103}{-171}% - {\fuseAx}{\fuseAy}{\fuseBx}{\fuseBy}{f, j, or other}% - \else\if\@@tmpa E\relax% - \putlratom{303}{-171}{\@@tmpb}% % bond fused - \FuseWarning{200}{0}% - {\fuseAx}{\fuseAy}{\fuseBx}{\fuseBy}{E, K, or other}% - \else\if\@@tmpa e\relax% - \putlratom{103}{-171}{\@@tmpb}% % bond fused - \FuseWarning{-200}{0}% - {\fuseAx}{\fuseAy}{\fuseBx}{\fuseBy}{e, k, or other}% - \else\if\@@tmpa D\relax% - \putlratom{103}{-171}{\@@tmpb}% % bond fused - \FuseWarning{103}{-171}% - {\fuseAx}{\fuseAy}{\fuseBx}{\fuseBy}{D, H, or other}% - \else\if\@@tmpa d\relax% - \putlratom{0}{0}{\@@tmpb}% % bond fused - \FuseWarning{-103}{171}% - {\fuseAx}{\fuseAy}{\fuseBx}{\fuseBy}{d, h, or other}% - \else\if\@@tmpa C\relax% - \putlratom{0}{0}{\@@tmpb}% % bond fused - \FuseWarning{-103}{-171}% - {\fuseAx}{\fuseAy}{\fuseBx}{\fuseBy}{C, E, or other}% - \else\if\@@tmpa c\relax% - \putlratom{103}{171}{\@@tmpb}% % bond fused - \FuseWarning{103}{171}% - {\fuseAx}{\fuseAy}{\fuseBx}{\fuseBy}{c, e, or other}% - \else\if\@@tmpa B\relax% - \putlratom{103}{171}{\@@tmpb}% % bond fused - \FuseWarning{-200}{0}% - {\fuseAx}{\fuseAy}{\fuseBx}{\fuseBy}{B, K, or other}% - \else\if\@@tmpa b\relax% - \putlratom{303}{171}{\@@tmpb}% % bond fused - \FuseWarning{200}{0}% - {\fuseAx}{\fuseAy}{\fuseBx}{\fuseBy}{b, k, or other}% - \else\if\@@tmpa A\relax% - \putlratom{303}{171}{\@@tmpb}% % bond fused - \FuseWarning{-103}{171}% - {\fuseAx}{\fuseAy}{\fuseBx}{\fuseBy}{A, I, or other}% - \else\if\@@tmpa a\relax% - \putlratom{406}{0}{\@@tmpb}% % bond fused - \FuseWarning{103}{-171}% - {\fuseAx}{\fuseAy}{\fuseBx}{\fuseBy}{a, i, or other}% - \fi\fi\fi\fi\fi\fi\fi\fi\fi\fi\fi\fi% -}% end of the macro \set@fusion@sixhi -\def\UnfavorableFusion#1{\if@smallringsw\else -\XyMTeXWarning{Unfavorable Fusion for bond `#1'}\fi} -\def\ForbiddenFusion#1{\if@smallringsw\else -\XyMTeXWarning{Forbidden Fusion for bond `#1'}\fi} -\def\set@fusion@decav{% - \let\@@tmpa=\@tmpa - \let\@@tmpb=\@tmpb - \if\@tmpa a% - \let\@@tmpa=\@tmpa - \put(342,0){\set@fusionadd@sixv}% - \else\if\@tmpa A% - \let\@@tmpa=\@tmpa - \put(342,0){\set@fusionadd@sixv}% - \else\if\@tmpa b% - \let\@@tmpa=\@tmpa - \put(342,0){\set@fusionadd@sixv}% - \else\if\@tmpa B% - \let\@@tmpa=\@tmpa - \put(342,0){\set@fusionadd@sixv}% - \else\if\@tmpa c% - \let\@@tmpa=\@tmpa - \put(342,0){\set@fusionadd@sixv}% - \else\if\@tmpa C% - \let\@@tmpa=\@tmpa - \put(342,0){\set@fusionadd@sixv}% - \else\if\@tmpa d% - \let\@@tmpa=\@tmpa - \put(342,0){\set@fusionadd@sixv}% - \UnfavorableFusion{d}% - \else\if\@tmpa D% - \let\@@tmpa=\@tmpa - \put(342,0){\set@fusionadd@sixv}% - \UnfavorableFusion{D}% - \else\if\@tmpa e% - \edef\@@tmpa{c}% - \put(0,0){\set@fusionadd@sixv}% - \UnfavorableFusion{e}% - \else\if\@tmpa E% - \edef\@@tmpa{C}% - \put(0,0){\set@fusionadd@sixv}% - \UnfavorableFusion{E}% - \else\if\@tmpa f% - \edef\@@tmpa{d}% - \put(0,0){\set@fusionadd@sixv}% - \else\if\@tmpa F% - \edef\@@tmpa{D}% - \put(0,0){\set@fusionadd@sixv}% - \else\if\@tmpa g% - \edef\@@tmpa{e}% - \put(0,0){\set@fusionadd@sixv}% - \else\if\@tmpa G% - \edef\@@tmpa{E}% - \put(0,0){\set@fusionadd@sixv}% - \else\if\@tmpa h% - \edef\@@tmpa{f}% - \put(0,0){\set@fusionadd@sixv}% - \else\if\@tmpa H% - \edef\@@tmpa{F}% - \put(0,0){\set@fusionadd@sixv}% - \else\if\@tmpa i% - \edef\@@tmpa{a}% - \put(0,0){\set@fusionadd@sixv}% - \UnfavorableFusion{i}% - \else\if\@tmpa I% - \edef\@@tmpa{A}% - \put(0,0){\set@fusionadd@sixv}% - \UnfavorableFusion{I}% - \else\if\@tmpa j% - \edef\@@tmpa{f}% - \put(342,0){\set@fusionadd@sixv}% - \UnfavorableFusion{j}% - \else\if\@tmpa J% - \edef\@@tmpa{F}% - \put(342,0){\set@fusionadd@sixv}% - \UnfavorableFusion{J}% - \else\if\@tmpa k% - \edef\@@tmpa{e}% - \put(342,0){\set@fusionadd@sixv}% - \ForbiddenFusion{k}% - \else\if\@tmpa K% - \edef\@@tmpa{E}% - \put(342,0){\set@fusionadd@sixv}% - \ForbiddenFusion{K}% - \fi\fi\fi\fi\fi\fi\fi\fi\fi\fi\fi\fi% - \fi\fi\fi\fi\fi\fi\fi\fi\fi\fi% -}% end of the macro \set@fusion@decav -\def\set@fusion@decavb{% - \let\@@tmpa=\@tmpa - \let\@@tmpb=\@tmpb - \if\@tmpa a% - \edef\@@tmpa{b}% - \put(0,0){\set@fusionadd@sixv}% - \else\if\@tmpa A% - \edef\@@tmpa{B}% - \put(0,0){\set@fusionadd@sixv}% - \else\if\@tmpa b% - \edef\@@tmpa{c}% - \put(0,0){\set@fusionadd@sixv}% - \else\if\@tmpa B% - \edef\@@tmpa{C}% - \put(0,0){\set@fusionadd@sixv}% - \else\if\@tmpa c% - \edef\@@tmpa{d}% - \put(0,0){\set@fusionadd@sixv}% - \else\if\@tmpa C% - \edef\@@tmpa{D}% - \put(0,0){\set@fusionadd@sixv}% - \else\if\@tmpa d% - \edef\@@tmpa{e}% - \put(0,0){\set@fusionadd@sixv}% - \UnfavorableFusion{d}% - \else\if\@tmpa D% - \edef\@@tmpa{E}% - \put(0,0){\set@fusionadd@sixv}% - \UnfavorableFusion{D}% - \else\if\@tmpa e% - \edef\@@tmpa{d}% - \put(-171,303){\set@fusionadd@sixv}% - \UnfavorableFusion{e}% - \else\if\@tmpa E% - \edef\@@tmpa{D}% - \put(-171,303){\set@fusionadd@sixv}% - \UnfavorableFusion{E}% - \else\if\@tmpa f% - \edef\@@tmpa{e}% - \put(-171,303){\set@fusionadd@sixv}% - \else\if\@tmpa F% - \edef\@@tmpa{E}% - \put(-171,303){\set@fusionadd@sixv}% - \else\if\@tmpa g% - \edef\@@tmpa{f}% - \put(-171,303){\set@fusionadd@sixv}% - \else\if\@tmpa G% - \edef\@@tmpa{F}% - \put(-171,303){\set@fusionadd@sixv}% - \else\if\@tmpa h% - \edef\@@tmpa{a}% - \put(-171,303){\set@fusionadd@sixv}% - \else\if\@tmpa H% - \edef\@@tmpa{A}% - \put(-171,303){\set@fusionadd@sixv}% - \else\if\@tmpa i% - \edef\@@tmpa{b}% - \put(-171,303){\set@fusionadd@sixv}% - \UnfavorableFusion{i}% - \else\if\@tmpa I% - \edef\@@tmpa{B}% - \put(-171,303){\set@fusionadd@sixv}% - \UnfavorableFusion{I}% - \else\if\@tmpa j% - \edef\@@tmpa{a}% - \put(0,0){\set@fusionadd@sixv}% - \UnfavorableFusion{j}% - \else\if\@tmpa J% - \edef\@@tmpa{A}% - \put(0,0){\set@fusionadd@sixv}% - \UnfavorableFusion{J}% - \else\if\@tmpa k% - \edef\@@tmpa{c}% - \put(-171,303){\set@fusionadd@sixv}% - \ForbiddenFusion{k}% - \else\if\@tmpa K% - \edef\@@tmpa{C}% - \put(-171,303){\set@fusionadd@sixv}% - \ForbiddenFusion{K}% - \fi\fi\fi\fi\fi\fi\fi\fi\fi\fi\fi\fi% - \fi\fi\fi\fi\fi\fi\fi\fi\fi\fi% -}% end of the macro \set@fusion@decavb -\def\set@fusion@decavt{% - \let\@@tmpa=\@tmpa - \let\@@tmpb=\@tmpb - \if\@tmpa a% - \edef\@@tmpa{f}% - \put(171,303){\set@fusionadd@sixv}% - \else\if\@tmpa A% - \edef\@@tmpa{F}% - \put(171,303){\set@fusionadd@sixv}% - \else\if\@tmpa b% - \edef\@@tmpa{a}% - \put(171,303){\set@fusionadd@sixv}% - \else\if\@tmpa B% - \edef\@@tmpa{A}% - \put(171,303){\set@fusionadd@sixv}% - \else\if\@tmpa c% - \edef\@@tmpa{b}% - \put(171,303){\set@fusionadd@sixv}% - \else\if\@tmpa C% - \edef\@@tmpa{B}% - \put(171,303){\set@fusionadd@sixv}% - \else\if\@tmpa d% - \edef\@@tmpa{c}% - \put(171,303){\set@fusionadd@sixv}% - \UnfavorableFusion{d}% - \else\if\@tmpa D% - \edef\@@tmpa{C}% - \put(171,303){\set@fusionadd@sixv}% - \UnfavorableFusion{D}% - \else\if\@tmpa e% - \edef\@@tmpa{b}% - \put(0,0){\set@fusionadd@sixv}% - \UnfavorableFusion{e}% - \else\if\@tmpa E% - \edef\@@tmpa{B}% - \put(0,0){\set@fusionadd@sixv}% - \UnfavorableFusion{E}% - \else\if\@tmpa f% - \edef\@@tmpa{c}% - \put(0,0){\set@fusionadd@sixv}% - \else\if\@tmpa F% - \edef\@@tmpa{C}% - \put(0,0){\set@fusionadd@sixv}% - \else\if\@tmpa g% - \edef\@@tmpa{d}% - \put(0,0){\set@fusionadd@sixv}% - \else\if\@tmpa G% - \edef\@@tmpa{D}% - \put(0,0){\set@fusionadd@sixv}% - \else\if\@tmpa h% - \edef\@@tmpa{e}% - \put(0,0){\set@fusionadd@sixv}% - \else\if\@tmpa H% - \edef\@@tmpa{E}% - \put(0,0){\set@fusionadd@sixv}% - \else\if\@tmpa i% - \edef\@@tmpa{f}% - \put(0,0){\set@fusionadd@sixv}% - \UnfavorableFusion{i}% - \else\if\@tmpa I% - \edef\@@tmpa{F}% - \put(0,0){\set@fusionadd@sixv}% - \UnfavorableFusion{I}% - \else\if\@tmpa j% - \edef\@@tmpa{e}% - \put(171,303){\set@fusionadd@sixv}% - \UnfavorableFusion{j}% - \else\if\@tmpa J% - \edef\@@tmpa{E}% - \put(171,303){\set@fusionadd@sixv}% - \UnfavorableFusion{J}% - \else\if\@tmpa k% - \edef\@@tmpa{d}% - \put(171,303){\set@fusionadd@sixv}% - \ForbiddenFusion{k}% - \else\if\@tmpa K% - \edef\@@tmpa{D}% - \put(171,303){\set@fusionadd@sixv}% - \ForbiddenFusion{K}% - \fi\fi\fi\fi\fi\fi\fi\fi\fi\fi\fi\fi% - \fi\fi\fi\fi\fi\fi\fi\fi\fi\fi% -}% end of \set@fusion@decavt -\def\set@fusion@decah{% - \let\@@tmpa=\@tmpa - \let\@@tmpb=\@tmpb - \if\@tmpa a% - \let\@@tmpa=\@tmpa - \put(0,0){\set@fusionadd@sixh}% - \else\if\@tmpa A% - \let\@@tmpa=\@tmpa - \put(0,0){\set@fusionadd@sixh}% - \else\if\@tmpa b% - \let\@@tmpa=\@tmpa - \put(0,0){\set@fusionadd@sixh}% - \else\if\@tmpa B% - \let\@@tmpa=\@tmpa - \put(0,0){\set@fusionadd@sixh}% - \else\if\@tmpa c% - \let\@@tmpa=\@tmpa - \put(0,0){\set@fusionadd@sixh}% - \else\if\@tmpa C% - \let\@@tmpa=\@tmpa - \put(0,0){\set@fusionadd@sixh}% - \else\if\@tmpa d% - \let\@@tmpa=\@tmpa - \put(0,0){\set@fusionadd@sixh}% - \UnfavorableFusion{d}% - \else\if\@tmpa D% - \let\@@tmpa=\@tmpa - \put(0,0){\set@fusionadd@sixh}% - \UnfavorableFusion{D}% - \else\if\@tmpa e% - \edef\@@tmpa{c}% - \put(0,-342){\set@fusionadd@sixh}% - \UnfavorableFusion{e}% - \else\if\@tmpa E% - \edef\@@tmpa{C}% - \put(0,-342){\set@fusionadd@sixh}% - \UnfavorableFusion{E}% - \else\if\@tmpa f% - \edef\@@tmpa{d}% - \put(0,-342){\set@fusionadd@sixh}% - \else\if\@tmpa F% - \edef\@@tmpa{D}% - \put(0,-342){\set@fusionadd@sixh}% - \else\if\@tmpa g% - \edef\@@tmpa{e}% - \put(0,-342){\set@fusionadd@sixh}% - \else\if\@tmpa G% - \edef\@@tmpa{E}% - \put(0,-342){\set@fusionadd@sixh}% - \else\if\@tmpa h% - \edef\@@tmpa{f}% - \put(0,-342){\set@fusionadd@sixh}% - \else\if\@tmpa H% - \edef\@@tmpa{F}% - \put(0,-342){\set@fusionadd@sixh}% - \else\if\@tmpa i% - \edef\@@tmpa{a}% - \put(0,-342){\set@fusionadd@sixh}% - \UnfavorableFusion{i}% - \else\if\@tmpa I% - \edef\@@tmpa{A}% - \put(0,-342){\set@fusionadd@sixh}% - \UnfavorableFusion{I}% - \else\if\@tmpa j% - \edef\@@tmpa{f}% - \put(0,0){\set@fusionadd@sixh}% - \UnfavorableFusion{j}% - \else\if\@tmpa J% - \edef\@@tmpa{F}% - \put(0,0){\set@fusionadd@sixh}% - \UnfavorableFusion{J}% - \else\if\@tmpa k% - \edef\@@tmpa{e}% - \put(0,0){\set@fusionadd@sixh}% - \ForbiddenFusion{k}% - \else\if\@tmpa K% - \edef\@@tmpa{E}% - \put(0,0){\set@fusionadd@sixh}% - \ForbiddenFusion{K}% - \fi\fi\fi\fi\fi\fi\fi\fi\fi\fi\fi\fi% - \fi\fi\fi\fi\fi\fi\fi\fi\fi\fi% -}% end of the macro \set@fusion@decah -\def\set@fusion@hanthrav{% - \let\@@tmpa=\@tmpa - \let\@@tmpb=\@tmpb - \if\@tmpa a% - \let\@@tmpa=\@tmpa - \put(684,0){\set@fusionadd@sixv}% - \else\if\@tmpa A% - \let\@@tmpa=\@tmpa - \put(684,0){\set@fusionadd@sixv}% - \else\if\@tmpa b% - \let\@@tmpa=\@tmpa - \put(684,0){\set@fusionadd@sixv}% - \else\if\@tmpa B% - \let\@@tmpa=\@tmpa - \put(684,0){\set@fusionadd@sixv}% - \else\if\@tmpa c% - \let\@@tmpa=\@tmpa - \put(684,0){\set@fusionadd@sixv}% - \else\if\@tmpa C% - \let\@@tmpa=\@tmpa - \put(684,0){\set@fusionadd@sixv}% - \else\if\@tmpa d% - \let\@@tmpa=\@tmpa - \put(684,0){\set@fusionadd@sixv}% - \UnfavorableFusion{d}% - \else\if\@tmpa D% - \let\@@tmpa=\@tmpa - \put(684,0){\set@fusionadd@sixv}% - \UnfavorableFusion{D}% - \else\if\@tmpa e% - \edef\@@tmpa{c}% - \put(342,0){\set@fusionadd@sixv}% - \UnfavorableFusion{e}% - \else\if\@tmpa E% - \edef\@@tmpa{C}% - \put(342,0){\set@fusionadd@sixv}% - \UnfavorableFusion{E}% - \else\if\@tmpa f% - \edef\@@tmpa{d}% - \put(342,0){\set@fusionadd@sixv}% - \UnfavorableFusion{f}% - \else\if\@tmpa F% - \edef\@@tmpa{D}% - \put(342,0){\set@fusionadd@sixv}% - \UnfavorableFusion{F}% - \else\if\@tmpa g% - \edef\@@tmpa{c}% - \put(0,0){\set@fusionadd@sixv}% - \UnfavorableFusion{g}% - \else\if\@tmpa G% - \edef\@@tmpa{C}% - \put(0,0){\set@fusionadd@sixv}% - \UnfavorableFusion{G}% - \else\if\@tmpa h% - \edef\@@tmpa{d}% - \put(0,0){\set@fusionadd@sixv}% - \else\if\@tmpa H% - \edef\@@tmpa{D}% - \put(0,0){\set@fusionadd@sixv}% - \else\if\@tmpa i% - \edef\@@tmpa{e}% - \put(0,0){\set@fusionadd@sixv}% - \else\if\@tmpa I% - \edef\@@tmpa{E}% - \put(0,0){\set@fusionadd@sixv}% - \else\if\@tmpa j% - \edef\@@tmpa{f}% - \put(0,0){\set@fusionadd@sixv}% - \else\if\@tmpa J% - \edef\@@tmpa{F}% - \put(0,0){\set@fusionadd@sixv}% - \else\if\@tmpa k% - \edef\@@tmpa{a}% - \put(0,0){\set@fusionadd@sixv}% - \UnfavorableFusion{k}% - \else\if\@tmpa K% - \edef\@@tmpa{A}% - \put(0,0){\set@fusionadd@sixv}% - \UnfavorableFusion{K}% - \else\if\@tmpa l% - \edef\@@tmpa{f}% - \put(342,0){\set@fusionadd@sixv}% - \UnfavorableFusion{l}% - \else\if\@tmpa L% - \edef\@@tmpa{F}% - \put(342,0){\set@fusionadd@sixv}% - \UnfavorableFusion{L}% - \else\if\@tmpa m% - \edef\@@tmpa{a}% - \put(342,0){\set@fusionadd@sixv}% - \UnfavorableFusion{m}% - \else\if\@tmpa M% - \edef\@@tmpa{A}% - \put(342,0){\set@fusionadd@sixv}% - \UnfavorableFusion{M}% - \else\if\@tmpa n% - \edef\@@tmpa{f}% - \put(684,0){\set@fusionadd@sixv}% - \UnfavorableFusion{n}% - \else\if\@tmpa N% - \edef\@@tmpa{F}% - \put(684,0){\set@fusionadd@sixv}% - \UnfavorableFusion{N}% - \else\if\@tmpa o% - \edef\@@tmpa{e}% - \put(684,0){\set@fusionadd@sixv}% - \ForbiddenFusion{o}% - \else\if\@tmpa O% - \edef\@@tmpa{E}% - \put(684,0){\set@fusionadd@sixv}% - \ForbiddenFusion{O}% - \else\if\@tmpa p% - \edef\@@tmpa{e}% - \put(342,0){\set@fusionadd@sixv}% - \ForbiddenFusion{p}% - \else\if\@tmpa P% - \edef\@@tmpa{E}% - \put(342,0){\set@fusionadd@sixv}% - \ForbiddenFusion{P}% - \fi\fi\fi\fi\fi\fi\fi\fi\fi\fi% - \fi\fi\fi\fi\fi\fi\fi\fi\fi\fi\fi\fi% - \fi\fi\fi\fi\fi\fi\fi\fi\fi\fi% -}% end of the macro \set@fusion@hanthrav -\def\set@fusion@hphenanv{% - \let\@@tmpa=\@tmpa - \let\@@tmpb=\@tmpb - \if\@tmpa a% - \edef\@@tmpa{b}% - \put(513,303){\set@fusionadd@sixv}% - \else\if\@tmpa A% - \edef\@@tmpa{B}% - \put(513,303){\set@fusionadd@sixv}% - \else\if\@tmpa b% - \edef\@@tmpa{a}% - \put(513,303){\set@fusionadd@sixv}% - \else\if\@tmpa B% - \edef\@@tmpa{A}% - \put(513,303){\set@fusionadd@sixv}% - \else\if\@tmpa c% - \edef\@@tmpa{f}% - \put(513,303){\set@fusionadd@sixv}% - \else\if\@tmpa C% - \edef\@@tmpa{F}% - \put(513,303){\set@fusionadd@sixv}% - \else\if\@tmpa d% - \edef\@@tmpa{e}% - \put(513,303){\set@fusionadd@sixv}% - \UnfavorableFusion{d}% - \else\if\@tmpa D% - \edef\@@tmpa{E}% - \put(513,303){\set@fusionadd@sixv}% - \UnfavorableFusion{D}% - \else\if\@tmpa e% - \edef\@@tmpa{f}% - \put(342,0){\set@fusionadd@sixv}% - \UnfavorableFusion{e}% - \else\if\@tmpa E% - \edef\@@tmpa{F}% - \put(342,0){\set@fusionadd@sixv}% - \UnfavorableFusion{E}% - \else\if\@tmpa f% - \edef\@@tmpa{a}% - \put(0,0){\set@fusionadd@sixv}% - \UnfavorableFusion{f}% - \else\if\@tmpa F% - \edef\@@tmpa{A}% - \put(0,0){\set@fusionadd@sixv}% - \UnfavorableFusion{F}% - \else\if\@tmpa g% - \edef\@@tmpa{f}% - \put(0,0){\set@fusionadd@sixv}% - \else\if\@tmpa G% - \edef\@@tmpa{F}% - \put(0,0){\set@fusionadd@sixv}% - \else\if\@tmpa h% - \edef\@@tmpa{e}% - \put(0,0){\set@fusionadd@sixv}% - \else\if\@tmpa H% - \edef\@@tmpa{E}% - \put(0,0){\set@fusionadd@sixv}% - \else\if\@tmpa i% - \edef\@@tmpa{d}% - \put(0,0){\set@fusionadd@sixv}% - \else\if\@tmpa I% - \edef\@@tmpa{D}% - \put(0,0){\set@fusionadd@sixv}% - \else\if\@tmpa j% - \edef\@@tmpa{c}% - \put(0,0){\set@fusionadd@sixv}% - \UnfavorableFusion{j}% - \else\if\@tmpa J% - \edef\@@tmpa{C}% - \put(0,0){\set@fusionadd@sixv}% - \UnfavorableFusion{J}% - \else\if\@tmpa k% - \edef\@@tmpa{d}% - \put(342,0){\set@fusionadd@sixv}% - \UnfavorableFusion{k}% - \else\if\@tmpa K% - \edef\@@tmpa{D}% - \put(342,0){\set@fusionadd@sixv}% - \UnfavorableFusion{K}% - \else\if\@tmpa l% - \edef\@@tmpa{c}% - \put(342,0){\set@fusionadd@sixv}% - \else\if\@tmpa L% - \edef\@@tmpa{C}% - \put(342,0){\set@fusionadd@sixv}% - \else\if\@tmpa m% - \edef\@@tmpa{b}% - \put(342,0){\set@fusionadd@sixv}% - \UnfavorableFusion{m}% - \else\if\@tmpa M% - \edef\@@tmpa{B}% - \put(342,0){\set@fusionadd@sixv}% - \UnfavorableFusion{M}% - \else\if\@tmpa n% - \edef\@@tmpa{c}% - \put(513,303){\set@fusionadd@sixv}% - \UnfavorableFusion{n}% - \else\if\@tmpa N% - \edef\@@tmpa{C}% - \put(513,303){\set@fusionadd@sixv}% - \UnfavorableFusion{N}% - \else\if\@tmpa o% - \edef\@@tmpa{d}% - \put(513,303){\set@fusionadd@sixv}% - \ForbiddenFusion{o}% - \else\if\@tmpa O% - \edef\@@tmpa{D}% - \put(513,303){\set@fusionadd@sixv}% - \ForbiddenFusion{O}% - \else\if\@tmpa p% - \edef\@@tmpa{e}% - \put(342,0){\set@fusionadd@sixv}% - \ForbiddenFusion{p}% - \else\if\@tmpa P% - \edef\@@tmpa{E}% - \put(342,0){\set@fusionadd@sixv}% - \ForbiddenFusion{P}% - \fi\fi\fi\fi\fi\fi\fi\fi\fi\fi% - \fi\fi\fi\fi\fi\fi\fi\fi\fi\fi\fi\fi% - \fi\fi\fi\fi\fi\fi\fi\fi\fi\fi% -}% end of the macro \set@fusion@hphananv -\def\set@fusionadd@fivev{% - \if\@@tmpa 1\relax% - \putratom{-38}{88}{\@@tmpb}% % right type - \else\if\@@tmpa 2\relax% - \putratom{60}{120}{\@@tmpb}% % right type - \else\if\@@tmpa 3\relax% - \putratom{60}{233}{\@@tmpb}% % right type - \else\if\@@tmpa 4\relax% - \putratom{-60}{233}{\@@tmpb}% % right type - \else\if\@@tmpa 5\relax% - \putratom{-60}{120}{\@@tmpb}% % right type - \else\if\@@tmpa 0\relax% - \putratom{-38}{150}{\@@tmpb}% % right type - \else - \set@fusion@fivev - \fi\fi\fi\fi\fi\fi% -}% end of the macro \set@fusionadd@fivev -\def\set@fusion@fivev{% - \if\@@tmpa a\relax% - \putlratom{0}{0}{\@@tmpb}% % right type - \FuseWarning{-171}{-103}% - {\fuseAx}{\fuseAy}{\fuseBx}{\fuseBy}{a}% - \else\if\@@tmpa A\relax% - \putlratom{171}{103}{\@@tmpb}% % right type - \FuseWarning{171}{103}% - {\fuseAx}{\fuseAy}{\fuseBx}{\fuseBy}{A}% - \else\if\@@tmpa b\relax% - \putlratom{171}{103}{\@@tmpb}% % right type - \FuseWarning{0}{-200}% - {\fuseAx}{\fuseAy}{\fuseBx}{\fuseBy}{b}% - \else\if\@@tmpa B\relax% - \putlratom{171}{303}{\@@tmpb}% % right type - \FuseWarning{0}{200}% - {\fuseAx}{\fuseAy}{\fuseBx}{\fuseBy}{B}% - \else\if\@@tmpa c\relax - \XyMTeXWarning{Not-used fusion at bond `c'}% - \else\if\@@tmpa C\relax% - \XyMTeXWarning{Not-used fusion at bond `C'}% - \else\if\@@tmpa d\relax% - \putlratom{-171}{303}{\@@tmpb}% % right type - \FuseWarning{0}{200}% - {\fuseAx}{\fuseAy}{\fuseBx}{\fuseBy}{d}% - \else\if\@@tmpa D\relax% - \putlratom{-171}{103}{\@@tmpb}% % right type - \FuseWarning{0}{-200}% - {\fuseAx}{\fuseAy}{\fuseBx}{\fuseBy}{D}% - \else\if\@@tmpa e\relax% - \putlratom{-171}{103}{\@@tmpb}% % right type - \FuseWarning{171}{-103}% - {\fuseAx}{\fuseAy}{\fuseBx}{\fuseBy}{e}% - \else\if\@@tmpa E\relax% - \putlratom{0}{0}{\@@tmpb}% % right type - \FuseWarning{-171}{103}% - {\fuseAx}{\fuseAy}{\fuseBx}{\fuseBy}{E}% - \fi\fi\fi\fi\fi\fi\fi\fi\fi\fi% -}% end of the marcro \set@fusion@fivev -\def\set@fusionadd@fivevi{% - \if\@@tmpa 1\relax% - \putratom{-38}{282}{\@@tmpb}% % right type - \else\if\@@tmpa 2\relax% - \putratom{60}{233}{\@@tmpb}% % right type - \else\if\@@tmpa 3\relax% - \putratom{60}{120}{\@@tmpb}% % right type - \else\if\@@tmpa 4\relax% - \putratom{-60}{120}{\@@tmpb}% % right type - \else\if\@@tmpa 5\relax% - \putratom{-60}{233}{\@@tmpb}% % right type - \else\if\@@tmpa 0\relax% - \putratom{-38}{213}{\@@tmpb}% % right type - \else - \set@fusion@fivevi - \fi\fi\fi\fi\fi\fi% -}% end of the macro \set@fusionadd@fivevi -\def\set@fusion@fivevi{% -\if\@@tmpa d\relax% - \putlratom{-171}{103}{\@@tmpb}% % bond fused - \FuseWarning{0}{-200}% - {\fuseAx}{\fuseAy}{\fuseBx}{\fuseBy}{d, k, or other}% - \else\if\@@tmpa D\relax% - \putlratom{-171}{303}{\@@tmpb}% % bond fused - \FuseWarning{0}{200}% - {\fuseAx}{\fuseAy}{\fuseBx}{\fuseBy}{D, K, or other}% - \else\if\@@tmpa e\relax% - \putlratom{-171}{303}{\@@tmpb}% % bond fused - \FuseWarning{-171}{-103}% - {\fuseAx}{\fuseAy}{\fuseBx}{\fuseBy}{e, j, or other}% - \else\if\@@tmpa E\relax% - \putlratom{0}{406}{\@@tmpb}% % bond fused - \FuseWarning{171}{103}% - {\fuseAx}{\fuseAy}{\fuseBx}{\fuseBy}{E, J, or other}% - \else\if\@@tmpa a\relax% - \putlratom{0}{406}{\@@tmpb}% % bond fused - \FuseWarning{-171}{103}% - {\fuseAx}{\fuseAy}{\fuseBx}{\fuseBy}{a, i, or other}% - \else\if\@@tmpa A\relax% - \putlratom{171}{303}{\@@tmpb}% % bond fused - \FuseWarning{171}{-103}% - {\fuseAx}{\fuseAy}{\fuseBx}{\fuseBy}{A, I, or other}% - \else\if\@@tmpa b\relax% - \putlratom{171}{303}{\@@tmpb}% % bond fused - \FuseWarning{0}{200}% - {\fuseAx}{\fuseAy}{\fuseBx}{\fuseBy}{b, k, or other}% - \else\if\@@tmpa B\relax% - \putlratom{171}{103}{\@@tmpb}% % bond fused - \FuseWarning{0}{-200}% - {\fuseAx}{\fuseAy}{\fuseBx}{\fuseBy}{B, K, or other}% - \else\if\@@tmpa c\relax - \XyMTeXWarning{Not-used fusion at bond `c'}% - \else\if\@@tmpa C\relax% - \XyMTeXWarning{Not-used fusion at bond `C'}% - \fi\fi\fi\fi\fi\fi\fi\fi\fi\fi% -}% end of the macro \set@fusion@fivevi -\def\set@fusionadd@fiveh{% - \if\@@tmpa 1\relax% - \putratom{272}{-18}{\@@tmpb}% % right type - \else\if\@@tmpa 2\relax% - \putratom{233}{60}{\@@tmpb}% % right type - \else\if\@@tmpa 3\relax% - \putratom{120}{60}{\@@tmpb}% % right type - \else\if\@@tmpa 5\relax% - \putratom{233}{-110}{\@@tmpb}% % right type - \else\if\@@tmpa 4\relax% - \putratom{120}{-110}{\@@tmpb}% % right type - \else\if\@@tmpa 0\relax% - \putratom{196}{-30}{\@@tmpb}% % right type - \else - \set@fusion@fiveh - \fi\fi\fi\fi\fi\fi% -}% -\def\set@fusion@fiveh{% -\if\@@tmpa E\relax% - \putlratom{406}{0}{\@@tmpb}% % bond fused - \FuseWarning{103}{171}% - {\fuseAx}{\fuseAy}{\fuseBx}{\fuseBy}{E, J, or other}% - \else\if\@@tmpa e\relax% - \putlratom{303}{-171}{\@@tmpb}% % bond fused - \FuseWarning{-103}{-171}% - {\fuseAx}{\fuseAy}{\fuseBx}{\fuseBy}{e, j, or other}% - \else\if\@@tmpa D\relax% - \putlratom{303}{-171}{\@@tmpb}% % bond fused - \FuseWarning{200}{0}% - {\fuseAx}{\fuseAy}{\fuseBx}{\fuseBy}{D, K, or other}% - \else\if\@@tmpa d\relax% - \putlratom{103}{-171}{\@@tmpb}% % bond fused - \FuseWarning{-200}{0}% - {\fuseAx}{\fuseAy}{\fuseBx}{\fuseBy}{d, k, or other}% - \else\if\@@tmpa c\relax - \XyMTeXWarning{Not-used fusion at bond `c'}% - \else\if\@@tmpa C\relax% - \XyMTeXWarning{Not-used fusion at bond `C'}% - \else\if\@@tmpa B\relax% - \putlratom{103}{171}{\@@tmpb}% % bond fused - \FuseWarning{-200}{0}% - {\fuseAx}{\fuseAy}{\fuseBx}{\fuseBy}{B, K, or other}% - \else\if\@@tmpa b\relax% - \putlratom{303}{171}{\@@tmpb}% % bond fused - \FuseWarning{200}{0}% - {\fuseAx}{\fuseAy}{\fuseBx}{\fuseBy}{b, k, or other}% - \else\if\@@tmpa A\relax% - \putlratom{303}{171}{\@@tmpb}% % bond fused - \FuseWarning{-103}{171}% - {\fuseAx}{\fuseAy}{\fuseBx}{\fuseBy}{A, I, or other}% - \else\if\@@tmpa a\relax% - \putlratom{406}{0}{\@@tmpb}% % bond fused - \FuseWarning{103}{-171}% - {\fuseAx}{\fuseAy}{\fuseBx}{\fuseBy}{a, i, or other}% - \fi\fi\fi\fi\fi\fi\fi\fi\fi\fi% -}% end of the macro \set@fusion@fiveh -\def\set@fusionadd@fivehi{% - \if\@@tmpa 1\relax% - \putratom{-38}{282}{\@@tmpb}% % right type - \else\if\@@tmpa 2\relax% - \putratom{60}{233}{\@@tmpb}% % right type - \else\if\@@tmpa 3\relax% - \putratom{60}{120}{\@@tmpb}% % right type - \else\if\@@tmpa 4\relax% - \putratom{-60}{120}{\@@tmpb}% % right type - \else\if\@@tmpa 5\relax% - \putratom{-60}{233}{\@@tmpb}% % right type - \else\if\@@tmpa 0\relax% - \putratom{140}{-30}{\@@tmpb}% % right type - \else - \set@fusion@fivehi - \fi\fi\fi\fi\fi\fi% -}% -\def\set@fusion@fivehi{% -\if\@@tmpa d\relax% - \putlratom{303}{-171}{\@@tmpb}% % bond fused - \FuseWarning{200}{0}% - {\fuseAx}{\fuseAy}{\fuseBx}{\fuseBy}{d, k, or other}% - \else\if\@@tmpa D\relax% - \putlratom{103}{-171}{\@@tmpb}% % bond fused - \FuseWarning{-200}{0}% - {\fuseAx}{\fuseAy}{\fuseBx}{\fuseBy}{D, K, or other}% - \else\if\@@tmpa e\relax% - \putlratom{103}{-171}{\@@tmpb}% % bond fused - \FuseWarning{103}{-171}% - {\fuseAx}{\fuseAy}{\fuseBx}{\fuseBy}{e, j, or other}% - \else\if\@@tmpa E\relax% - \putlratom{0}{0}{\@@tmpb}% % bond fused - \FuseWarning{-103}{171}% - {\fuseAx}{\fuseAy}{\fuseBx}{\fuseBy}{E, J, or other}% - \else\if\@@tmpa a\relax% - \putlratom{0}{0}{\@@tmpb}% % bond fused - \FuseWarning{-103}{-171}% - {\fuseAx}{\fuseAy}{\fuseBx}{\fuseBy}{a, i, or other}% - \else\if\@@tmpa A\relax% - \putlratom{103}{171}{\@@tmpb}% % bond fused - \FuseWarning{103}{171}% - {\fuseAx}{\fuseAy}{\fuseBx}{\fuseBy}{A, I, or other}% - \else\if\@@tmpa b\relax% - \putlratom{103}{171}{\@@tmpb}% % bond fused - \FuseWarning{-200}{0}% - {\fuseAx}{\fuseAy}{\fuseBx}{\fuseBy}{b, k, or other}% - \else\if\@@tmpa B\relax% - \putlratom{303}{171}{\@@tmpb}% % bond fused - \FuseWarning{200}{0}% - {\fuseAx}{\fuseAy}{\fuseBx}{\fuseBy}{B, K, or other}% - \else\if\@@tmpa c\relax - \XyMTeXWarning{Not-used fusion at bond `c'}% - \else\if\@@tmpa C\relax% - \XyMTeXWarning{Not-used fusion at bond `C'}% - \fi\fi\fi\fi\fi\fi\fi\fi\fi\fi% -}% end of the macro \set@fusion@sixh -\def\set@fusion@nonav{% - \let\@@tmpa=\@tmpa - \let\@@tmpb=\@tmpb - \if\@tmpa a% - \let\@@tmpa=\@tmpa - \put(342,0){\set@fusionadd@sixvi}% - \else\if\@tmpa A% - \let\@@tmpa=\@tmpa - \put(342,0){\set@fusionadd@sixvi}% - \else\if\@tmpa b% - \let\@@tmpa=\@tmpa - \put(342,0){\set@fusionadd@sixvi}% - \else\if\@tmpa B% - \let\@@tmpa=\@tmpa - \put(342,0){\set@fusionadd@sixvi}% - \else\if\@tmpa c\relax - \XyMTeXWarning{Not-used fusion at bond `c'}% - \else\if\@tmpa C\relax% - \XyMTeXWarning{Not-used fusion at bond `C'}% - \else\if\@tmpa d% - \edef\@@tmpa{c}% - \put(0,0){\set@fusionadd@sixvi}% - \UnfavorableFusion{d}% - \else\if\@tmpa D% - \edef\@@tmpa{C}% - \put(0,0){\set@fusionadd@sixvi}% - \UnfavorableFusion{D}% - \else\if\@tmpa e% - \edef\@@tmpa{d}% - \put(0,0){\set@fusionadd@sixvi}% - \else\if\@tmpa E% - \edef\@@tmpa{D}% - \put(0,0){\set@fusionadd@sixvi}% - \else\if\@tmpa f% - \edef\@@tmpa{e}% - \put(0,0){\set@fusionadd@sixvi}% - \else\if\@tmpa F% - \edef\@@tmpa{E}% - \put(0,0){\set@fusionadd@sixvi}% - \else\if\@tmpa g% - \edef\@@tmpa{f}% - \put(0,0){\set@fusionadd@sixvi}% - \else\if\@tmpa G% - \edef\@@tmpa{F}% - \put(0,0){\set@fusionadd@sixvi}% - \else\if\@tmpa h% - \edef\@@tmpa{a}% - \put(0,0){\set@fusionadd@sixvi}% - \UnfavorableFusion{h}% - \else\if\@tmpa H% - \edef\@@tmpa{A}% - \put(0,0){\set@fusionadd@sixvi}% - \UnfavorableFusion{H}% - \else\if\@tmpa i% - \edef\@@tmpa{f}% - \put(342,0){\set@fusionadd@sixvi}% - \UnfavorableFusion{i}% - \else\if\@tmpa I% - \edef\@@tmpa{F}% - \put(342,0){\set@fusionadd@sixvi}% - \UnfavorableFusion{I}% - \else\if\@tmpa j% - \edef\@@tmpa{e}% - \put(342,0){\set@fusionadd@sixvi}% - \ForbiddenFusion{j}% - \else\if\@tmpa J% - \edef\@@tmpa{E}% - \put(342,0){\set@fusionadd@sixvi}% - \ForbiddenFusion{J}% - \fi\fi\fi\fi\fi\fi\fi\fi\fi\fi% - \fi\fi\fi\fi\fi\fi\fi\fi\fi\fi% -}% end of the macro \set@fusion@nonav -\def\set@fusion@nonavi{% - \let\@@tmpa=\@tmpa - \let\@@tmpb=\@tmpb - \if\@tmpa a% - \let\@@tmpa=\@tmpa - \put(342,0){\set@fusionadd@sixv}% - \else\if\@tmpa A% - \let\@@tmpa=\@tmpa - \put(342,0){\set@fusionadd@sixv}% - \else\if\@tmpa b% - \let\@@tmpa=\@tmpa - \put(342,0){\set@fusionadd@sixv}% - \else\if\@tmpa B% - \let\@@tmpa=\@tmpa - \put(342,0){\set@fusionadd@sixv}% - \else\if\@tmpa c\relax - \XyMTeXWarning{Not-used fusion at bond `c'}% - \else\if\@tmpa C\relax% - \XyMTeXWarning{Not-used fusion at bond `C'}% - \else\if\@tmpa d% - \edef\@@tmpa{c}% - \put(0,0){\set@fusionadd@sixv}% - \UnfavorableFusion{d}% - \else\if\@tmpa D% - \edef\@@tmpa{C}% - \put(0,0){\set@fusionadd@sixv}% - \UnfavorableFusion{D}% - \else\if\@tmpa e% - \edef\@@tmpa{d}% - \put(0,0){\set@fusionadd@sixv}% - \else\if\@tmpa E% - \edef\@@tmpa{D}% - \put(0,0){\set@fusionadd@sixv}% - \else\if\@tmpa f% - \edef\@@tmpa{e}% - \put(0,0){\set@fusionadd@sixv}% - \else\if\@tmpa F% - \edef\@@tmpa{E}% - \put(0,0){\set@fusionadd@sixv}% - \else\if\@tmpa g% - \edef\@@tmpa{f}% - \put(0,0){\set@fusionadd@sixv}% - \else\if\@tmpa G% - \edef\@@tmpa{F}% - \put(0,0){\set@fusionadd@sixv}% - \else\if\@tmpa h% - \edef\@@tmpa{a}% - \put(0,0){\set@fusionadd@sixv}% - \UnfavorableFusion{h}% - \else\if\@tmpa H% - \edef\@@tmpa{A}% - \put(0,0){\set@fusionadd@sixv}% - \UnfavorableFusion{H}% - \else\if\@tmpa i% - \edef\@@tmpa{f}% - \put(342,0){\set@fusionadd@sixv}% - \UnfavorableFusion{i}% - \else\if\@tmpa I% - \edef\@@tmpa{F}% - \put(342,0){\set@fusionadd@sixv}% - \UnfavorableFusion{I}% - \else\if\@tmpa j% - \edef\@@tmpa{e}% - \put(342,0){\set@fusionadd@sixv}% - \ForbiddenFusion{j}% - \else\if\@tmpa J% - \edef\@@tmpa{E}% - \put(342,0){\set@fusionadd@sixv}% - \ForbiddenFusion{J}% - \fi\fi\fi\fi\fi\fi\fi\fi\fi\fi% - \fi\fi\fi\fi\fi\fi\fi\fi\fi\fi% -}% end of the macro \set@fusion@nonavi -\def\set@fusion@nonah{% - \let\@@tmpa=\@tmpa - \let\@@tmpb=\@tmpb - \if\@tmpa a% - \let\@@tmpa=\@tmpa - \put(0,0){\set@fusionadd@sixhi}% - \else\if\@tmpa A% - \let\@@tmpa=\@tmpa - \put(0,0){\set@fusionadd@sixhi}% - \else\if\@tmpa b% - \let\@@tmpa=\@tmpa - \put(0,0){\set@fusionadd@sixhi}% - \else\if\@tmpa B% - \let\@@tmpa=\@tmpa - \put(0,0){\set@fusionadd@sixhi}% - \else\if\@tmpa c\relax - \XyMTeXWarning{Not-used fusion at bond `c'}% - \else\if\@tmpa C\relax% - \XyMTeXWarning{Not-used fusion at bond `C'}% - \else\if\@tmpa d% - \edef\@@tmpa{c}% - \put(0,-342){\set@fusionadd@sixhi}% - \UnfavorableFusion{d}% - \else\if\@tmpa D% - \edef\@@tmpa{C}% - \put(0,-342){\set@fusionadd@sixhi}% - \UnfavorableFusion{D}% - \else\if\@tmpa e% - \edef\@@tmpa{d}% - \put(0,-342){\set@fusionadd@sixhi}% - \else\if\@tmpa E% - \edef\@@tmpa{D}% - \put(0,-342){\set@fusionadd@sixhi}% - \else\if\@tmpa f% - \edef\@@tmpa{e}% - \put(0,-342){\set@fusionadd@sixhi}% - \else\if\@tmpa F% - \edef\@@tmpa{E}% - \put(0,-342){\set@fusionadd@sixhi}% - \else\if\@tmpa g% - \edef\@@tmpa{f}% - \put(0,-342){\set@fusionadd@sixhi}% - \else\if\@tmpa G% - \edef\@@tmpa{F}% - \put(0,-342){\set@fusionadd@sixhi}% - \else\if\@tmpa h% - \edef\@@tmpa{a}% - \put(0,-342){\set@fusionadd@sixhi}% - \UnfavorableFusion{h}% - \else\if\@tmpa H% - \edef\@@tmpa{A}% - \put(0,-342){\set@fusionadd@sixhi}% - \UnfavorableFusion{H}% - \else\if\@tmpa i% - \edef\@@tmpa{f}% - \put(0,0){\set@fusionadd@sixhi}% - \UnfavorableFusion{i}% - \else\if\@tmpa I% - \edef\@@tmpa{F}% - \put(0,0){\set@fusionadd@sixhi}% - \UnfavorableFusion{I}% - \else\if\@tmpa j% - \edef\@@tmpa{e}% - \put(0,0){\set@fusionadd@sixhi}% - \ForbiddenFusion{j}% - \else\if\@tmpa J% - \edef\@@tmpa{E}% - \put(0,0){\set@fusionadd@sixhi}% - \ForbiddenFusion{J}% - \fi\fi\fi\fi\fi\fi\fi\fi\fi\fi% - \fi\fi\fi\fi\fi\fi\fi\fi\fi\fi% -}% end of the macro \set@fusion@nonah -\def\set@fusion@nonahi{% - \let\@@tmpa=\@tmpa - \let\@@tmpb=\@tmpb - \if\@tmpa a% - \let\@@tmpa=\@tmpa - \put(0,0){\set@fusionadd@sixh}% - \else\if\@tmpa A% - \let\@@tmpa=\@tmpa - \put(0,0){\set@fusionadd@sixh}% - \else\if\@tmpa b% - \let\@@tmpa=\@tmpa - \put(0,0){\set@fusionadd@sixh}% - \else\if\@tmpa B% - \let\@@tmpa=\@tmpa - \put(0,0){\set@fusionadd@sixh}% - \else\if\@tmpa c\relax - \XyMTeXWarning{Not-used fusion at bond `c'}% - \else\if\@tmpa C\relax% - \XyMTeXWarning{Not-used fusion at bond `C'}% - \else\if\@tmpa d% - \edef\@@tmpa{c}% - \put(0,-342){\set@fusionadd@sixh}% - \UnfavorableFusion{d}% - \else\if\@tmpa D% - \edef\@@tmpa{C}% - \put(0,-342){\set@fusionadd@sixh}% - \UnfavorableFusion{D}% - \else\if\@tmpa e% - \edef\@@tmpa{d}% - \put(0,-342){\set@fusionadd@sixh}% - \else\if\@tmpa E% - \edef\@@tmpa{D}% - \put(0,-342){\set@fusionadd@sixh}% - \else\if\@tmpa f% - \edef\@@tmpa{e}% - \put(0,-342){\set@fusionadd@sixh}% - \else\if\@tmpa F% - \edef\@@tmpa{E}% - \put(0,-342){\set@fusionadd@sixh}% - \else\if\@tmpa g% - \edef\@@tmpa{f}% - \put(0,-342){\set@fusionadd@sixh}% - \else\if\@tmpa G% - \edef\@@tmpa{F}% - \put(0,-342){\set@fusionadd@sixh}% - \else\if\@tmpa h% - \edef\@@tmpa{a}% - \put(0,-342){\set@fusionadd@sixh}% - \UnfavorableFusion{h}% - \else\if\@tmpa H% - \edef\@@tmpa{A}% - \put(0,-342){\set@fusionadd@sixh}% - \UnfavorableFusion{H}% - \else\if\@tmpa i% - \edef\@@tmpa{f}% - \put(0,0){\set@fusionadd@sixh}% - \UnfavorableFusion{i}% - \else\if\@tmpa I% - \edef\@@tmpa{F}% - \put(0,0){\set@fusionadd@sixh}% - \UnfavorableFusion{I}% - \else\if\@tmpa j% - \edef\@@tmpa{e}% - \put(0,0){\set@fusionadd@sixh}% - \ForbiddenFusion{j}% - \else\if\@tmpa J% - \edef\@@tmpa{E}% - \put(0,0){\set@fusionadd@sixh}% - \ForbiddenFusion{J}% - \fi\fi\fi\fi\fi\fi\fi\fi\fi\fi% - \fi\fi\fi\fi\fi\fi\fi\fi\fi\fi% -}% end of the macro \set@fusion@nonahi -\endinput -%% -%% End of file `chemstr.sty'. |