%%
%% 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'.
