summaryrefslogtreecommitdiff
path: root/Master/texmf-dist/tex/latex/xymtex/chemstr.sty
diff options
context:
space:
mode:
Diffstat (limited to 'Master/texmf-dist/tex/latex/xymtex/chemstr.sty')
-rw-r--r--Master/texmf-dist/tex/latex/xymtex/chemstr.sty5905
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'.