summaryrefslogtreecommitdiff
path: root/macros/latex/contrib/xymtex/base/chemstr.sty
diff options
context:
space:
mode:
Diffstat (limited to 'macros/latex/contrib/xymtex/base/chemstr.sty')
-rw-r--r--macros/latex/contrib/xymtex/base/chemstr.sty6716
1 files changed, 6716 insertions, 0 deletions
diff --git a/macros/latex/contrib/xymtex/base/chemstr.sty b/macros/latex/contrib/xymtex/base/chemstr.sty
new file mode 100644
index 0000000000..fc4c2276f3
--- /dev/null
+++ b/macros/latex/contrib/xymtex/base/chemstr.sty
@@ -0,0 +1,6716 @@
+%%
+%% This is file `chemstr.sty',
+%% generated with the docstrip utility.
+%%
+%% The original source files were:
+%%
+%% chemstr.dtx (with options: `chemstr')
+%%
+%% This is a generated file.
+%%
+%% Copyright 1996, 1998, 2001, 2002, 2004, 2005, 2006, 2009, 2010, 2011, 2013 by Shinsaku Fujita
+%% all rights reserved.
+%% This style file is created for drawing chemical structural formulas
+%% This style file is to be contained in the ``xymtex'' directory which
+%% is an input directory for TeX.
+%%
+%% This file is part of the XyMTeX system.
+%% =======================================
+%%
+%% Old Versions:
+%% Version 1.01 Released on August 16, 1996
+%% Version 1.02 Released on October 31, 1998 (private version)
+%% Version 2.00 Released on December 25, 1998
+%% Version 2.01 Released on June 20, 2001 (private version)
+%% Version 3.00 Released on April 30, 2002
+%% Version 4.00 Released on May 30, 2002 (private version)
+%% Version 4.01 Released on August 30, 2004
+%% Version 4.01a Released on November 11, 2004
+%% Version 4.02 Released on December 20, 2004
+%% Version 4.03 Released on July 20, 2005
+%% Version 4.03b Released on September 5, 2006
+%% Version 4.04a Released on July 7, 2009
+%% Version 5.00 Released on October 01, 2010
+%% Version 5.01b Released on February 24, 2011
+%% Version 5.01 Released on March 22, 2013
+%%
+%% The Present Version:
+%% Version 5.01 Released on June 19, 2013
+%%
+%% This work may be distributed and/or modified under the
+%% conditions of the LaTeX Project Public License, either version 1.3
+%% of this license or (at your option) any later version.
+%% The latest version of this license is in
+%% http://www.latex-project.org/lppl.txt
+%% and version 1.3 or later is part of all distributions of LaTeX
+%% version 2005/12/01 or later.
+%%
+%% This work has the LPPL maintenance status `maintained'.
+%% The Current Maintainer of this work is Shinsaku Fujita.
+%%
+%% This work consists of the files chemstr.dtx and chemstr.ins
+%% and the derived file chemstr.sty.
+%%
+%% =======================================
+%%
+%% File: chemstr.dtx
+%% \CharacterTable
+%% {Upper-case \A\B\C\D\E\F\G\H\I\J\K\L\M\N\O\P\Q\R\S\T\U\V\W\X\Y\Z
+%% Lower-case \a\b\c\d\e\f\g\h\i\j\k\l\m\n\o\p\q\r\s\t\u\v\w\x\y\z
+%% Digits \0\1\2\3\4\5\6\7\8\9
+%% Exclamation \! Double quote \" Hash (number) \#
+%% Dollar \$ Percent \% Ampersand \&
+%% Acute accent \' Left paren \( Right paren \)
+%% Asterisk \* Plus \+ Comma \,
+%% Minus \- Point \. Solidus \/
+%% Colon \: Semicolon \; Less than \<
+%% Equals \= Greater than \> Question mark \?
+%% Commercial at \@ Left bracket \[ Backslash \\
+%% Right bracket \] Circumflex \^ Underscore \_
+%% Grave accent \` Left brace \{ Vertical bar \|
+%% Right brace \} Tilde \~}
+\typeout{XyMTeX for Drawing Chemical Structural Formulas. Version 5.01}
+\typeout{ -- Released June 19, 2013 by Shinsaku Fujita}
+\def\j@urnalname{chemstr}
+\def\versi@ndate{June 19, 2013}
+\def\versi@nno{ver5.01}
+\def\copyrighth@lder{SF} % Shinsaku Fujita
+\typeout{XyMTeX Macro File `\j@urnalname' (\versi@nno) <\versi@ndate>%
+\space[\copyrighth@lder]}
+
+\def\select@@Upsionfont{%
+\edef\test@rm{\rmdefault}%
+\edef\test@sf{\sfdefault}%
+\edef\test@tt{\ttdefault}%
+\ifx\f@family \test@rm\relax
+{\expandafter\csname OT1/cmr/\f@series/\f@shape/\f@size%
+\endcsname\char'7}%
+\else\ifx\f@family \test@sf\relax
+{\expandafter\csname OT1/cmss/\f@series/\f@shape/\f@size%
+\endcsname\char'7}%
+\else\ifx\f@family \test@tt\relax
+{\expandafter\csname OT1/cmtt/\f@series/\f@shape/\f@size%
+\endcsname\char'7}%
+\else{\expandafter\csname OT1/cmr/\f@series/\f@shape/\f@size%
+\endcsname
+\char'7}\fi\fi\fi%
+}
+\def\XyM{X\kern-.30em\smash{%
+\raise.50ex\hbox to0.8em{\hss\select@@Upsionfont%
+\hss}}\kern-.30em{M}}
+\def\XyMTeX{\XyM\kern-.1em\TeX}
+\newif\ifPSmode \PSmodefalse
+\newif\ifPDFmode \PDFmodefalse
+\newif\ifTeXLaTeXmode \TeXLaTeXmodetrue%default TeX/LaTeX mode.
+\newcount\@tempcntXa \newcount\@tempcntYa \newcount\@tempcntz
+\newcount\@tempcntXb \newcount\@tempcntYb \newcount\@tempcntzz
+\newcount\@tempcntXc \newcount\@tempcntYc \newcount\@tempcntzzz
+\newcount\@tempcntXd \newcount\@tempcntYd \newcount\@tempcntzzzz
+\newdimen\@dimtempa
+\newdimen\@tempdimd
+\newdimen\@tempdime
+\def\waveunitA(#1,#2)#3{%
+\@tempcntz=#1\relax
+\@tempcntzz=#2\relax
+%%%%%%%%%%%%%%%%%%%%%%%%%
+%%%%%%%%%%%%%%%%%%%%%%%%%
+\ifnum\@tempcntz=3\relax%
+ \ifnum\@tempcntzz=5\relax%
+ \@tempcntXa=-16 \@tempcntYa=10\relax%
+ \@tempcntXd=16 \@tempcntYd=-10\relax
+ \else\ifnum\@tempcntzz=-5\relax%
+ \@tempcntXa=-16 \@tempcntYa=-10\relax
+ \@tempcntXd=16 \@tempcntYd=10\relax
+ \fi\fi
+\else\ifnum\@tempcntz=-3\relax%
+ \ifnum\@tempcntzz=5\relax%
+ \@tempcntXa=-16 \@tempcntYa=-10\relax%
+ \@tempcntXd=16 \@tempcntYd=10\relax
+ \else\ifnum\@tempcntzz=-5\relax%
+ \@tempcntXa=-16 \@tempcntYa=10\relax
+ \@tempcntXd=16 \@tempcntYd=-10\relax
+ \fi\fi
+\else\ifnum\@tempcntz=5\relax
+ \ifnum\@tempcntzz=3\relax
+ \@tempcntXa=-10 \@tempcntYa=16\relax
+ \@tempcntXd=10 \@tempcntYd=-16\relax
+ \else\ifnum\@tempcntzz=-3\relax
+ \@tempcntXa=-10 \@tempcntYa=-16\relax
+ \@tempcntXd=10 \@tempcntYd=16\relax
+ \fi\fi
+\else\ifnum\@tempcntz=-5\relax
+ \ifnum\@tempcntzz=3\relax
+ \@tempcntXa=10 \@tempcntYa=16\relax
+ \@tempcntXd=10 \@tempcntYd=-16\relax
+ \else\ifnum\@tempcntzz=-3\relax
+ \@tempcntXa=10 \@tempcntYa=-16\relax
+ \@tempcntXd=-10 \@tempcntYd=16\relax
+ \fi\fi
+\else\ifnum\@tempcntz=1\relax
+ \ifnum\@tempcntzz=0\relax
+ \@tempcntXa=0 \@tempcntYa=20\relax
+ \@tempcntXd=0 \@tempcntYd=-20\relax
+ \fi
+\else\ifnum\@tempcntz=-1\relax
+ \ifnum\@tempcntzz=0\relax
+ \@tempcntXa=0 \@tempcntYa=-20\relax
+ \@tempcntXd=0 \@tempcntYd=20\relax
+ \fi
+\else\ifnum\@tempcntz=0\relax
+ \ifnum\@tempcntzz=1\relax
+ \@tempcntXa=-20 \@tempcntYa=0\relax
+ \@tempcntXd=20 \@tempcntYd=0\relax
+ \fi
+\fi\fi\fi\fi\fi\fi\fi
+%%%%%%%%%%%%%%%%%%%%
+%%%%%%%%%%%%%%%%%%%%
+\ifnum\@tempcntzz=0\relax%(1,0) (-1,0)
+ \ifnum\@tempcntz>0\relax
+ \@tempcntXb=#3\relax
+ \else
+ \@tempcntXb=-#3\relax
+ \fi
+ \@tempcntYb=0
+ \ifnum\@tempcntz>0\relax
+ \@tempcntXa=#3\relax
+ \else
+ \@tempcntXa=-#3\relax
+ \fi
+ \divide\@tempcntXa by2\relax
+ \@tempcntXd=\@tempcntXa
+\else\ifnum\@tempcntz=0\relax%(0,1) (0,-1)
+ \@tempcntXb=0\relax
+ \ifnum\@tempcntzz>0\relax
+ \@tempcntYb=#3\relax
+ \@tempcntYa=#3\relax
+ \else
+ \@tempcntYb=-#3\relax
+ \@tempcntYa=-#3\relax
+ \fi
+ \divide\@tempcntYa by2\relax
+ \@tempcntYd=\@tempcntYa
+\else
+\ifnum\@tempcntz>0\relax
+\@tempcntXb=#3\relax
+\else
+\@tempcntXb=-#3\relax
+\fi
+\ifnum\@tempcntzz>0\relax
+\@tempcntYb=#3\relax
+\else
+\@tempcntYb=-#3\relax
+\fi
+\ifnum\@tempcntzz>0\relax
+\@tempcntzzzz=#2\relax
+\else
+\@tempcntzzzz=-#2\relax
+\fi
+\multiply\@tempcntYb by10\relax
+\multiply\@tempcntYb by\@tempcntzzzz\relax
+\ifnum\@tempcntz>0\relax
+\@tempcntzzzz=#1\relax
+\else
+\@tempcntzzzz=-#1\relax
+\fi
+\divide\@tempcntYb by\@tempcntzzzz\relax
+\divide\@tempcntYb by10\relax
+\@tempcntzzzz=\@tempcntXb
+\divide\@tempcntzzzz by2\relax
+\advance\@tempcntXa by\@tempcntzzzz
+\advance\@tempcntXd by\@tempcntzzzz
+\@tempcntzzzz=\@tempcntYb
+\divide\@tempcntzzzz by2\relax
+\advance\@tempcntYa by\@tempcntzzzz
+\advance\@tempcntYd by\@tempcntzzzz
+\fi\fi
+%%%%%%%%%%%%%%%%%
+%%%%%%%%%%%%%%%%%
+\@tempcntXc=\@tempcntXb
+\multiply\@tempcntXc by2\relax
+\@tempcntYc=\@tempcntYb
+\multiply\@tempcntYc by2\relax
+\begin{picture}(0,0)(0,0)%
+\multiput(0,0)(\@tempcntXc,\@tempcntYc){3}{%
+\qbezier(0,0)(\@tempcntXa,\@tempcntYa)(\@tempcntXb,\@tempcntYb)}%
+\multiput(\@tempcntXb,\@tempcntYb)(\@tempcntXc,\@tempcntYc){2}{%
+\qbezier(0,0)(\@tempcntXd,\@tempcntYd)(\@tempcntXb,\@tempcntYb)}%
+\end{picture}%
+}%end of \waveunitA
+\newif\ifwavebond \wavebondfalse
+\def\WaveBonds{\wavebondtrue}
+\def\NormalBonds{\wavebondfalse}
+\def\Put@@Line(#1,#2)(#3,#4)#5{\Put@Direct(#1,#2){%
+\ifwavebond \@tempcnta=#5\relax
+\divide\@tempcnta by5\relax
+\waveunitA(#3,#4){\@tempcnta}\else
+\line(#3,#4){#5}\fi}}
+\global\let\@ldline=\line%store the oridinal line command of picture enviroment
+\global\let\@ldthicklines=\thicklines
+\global\let\@ldthinlines=\thinlines
+%%\def\Put@@Line(#1,#2)(#3,#4)#5{\Put@Direct(#1,#2){\line(#3,#4){#5}}}
+\def\Put@@sCircle(#1,#2)#3{\Put@Direct(#1,#2){\circle*{#3}}}
+\def\Put@@oCircle(#1,#2)#3{\Put@Direct(#1,#2){\circle{#3}}}
+\newif\ifxymtexpssw\xymtexpsswfalse
+\def\originalpicture{%
+\let\sfpicture=\picture
+\let\endsfpicture=\endpicture
+\let\Put@Direct=\put
+\let\Multiput@Direct=\multiput
+\let\line=\@ldline
+\let\dotorline=\d@t@rline
+\let\thicklines=\@ldthicklines
+\let\thinlines=\@ldthinlines
+\thinlines
+\let\Put@Line=\Put@@Line
+\let\Put@sCircle=\Put@@sCircle
+\let\Put@oCircle=\Put@@oCircle
+\xymtexpsswfalse
+\@ifundefined{@changeunitlength}{}{%
+\let\changeunitlength=\@changeunitlength}%
+\unitlength=0.1pt}
+\def\changexymtextops{\xymtexpsswtrue}
+\def\SlopetoXY(#1,#2)(#3,#4)#5{%
+%%x-coordinate
+\@tempcntXa=0\relax
+\ifnum#3>0\relax \@tempcntXa=#5\relax
+\else\ifnum#3<0\relax\@tempcntXa=-#5\relax\fi\fi
+\advance\@tempcntXa by#1\relax
+%%y-coordinate
+\@tempcntYa=#5\relax
+\ifnum#3=0\relax\else
+\multiply\@tempcntYa by#4\relax\multiply\@tempcntYa by10\relax
+\divide\@tempcntYa by#3\relax\divide\@tempcntYa by10\relax\fi
+\ifnum\@tempcntYa<0\relax
+\ifnum#4>0\relax\@tempcntYa=-\@tempcntYa\fi
+\else
+\ifnum\@tempcntYa>0\relax
+\ifnum#4<0\relax\@tempcntYa=-\@tempcntYa\fi\fi
+\fi
+\advance\@tempcntYa by#2\relax}
+\def\@forsemicol#1:=#2\do#3{%
+ \expandafter\def\expandafter\@fortmp\expandafter{#2}%
+ \ifx\@fortmp\@empty \else%
+ \expandafter\@forl@@p#2;\@nil;\@nil\@@#1{#3}\fi}
+\long\def\@forl@@p#1;#2;#3\@@#4#5{\def#4{#1}\ifx #4\@nnil \else%
+ #5\def#4{#2}\ifx #4\@nnil \else#5\@iforl@@p #3\@@#4{#5}\fi\fi}
+\long\def\@iforl@@p#1;#2\@@#3#4{\def#3{#1}\ifx #3\@nnil%
+ \expandafter\@fornoop \else
+ #4\relax\expandafter\@iforl@@p\fi#2\@@#3{#4}}
+\def\@m@mb@r#1==#2;{\def\@membera{#1}\def\@memberb{#2}}
+\def\twoch@r#1#2{\gdef\@tmpa{#1}\gdef\@tmpb{#2}}
+\def\twoch@@r#1#2{\gdef\@@tmpa{#1}\gdef\@@tmpb{#2}}
+\newif\ifdrawsamesubst\drawsamesubstfalse
+\def\@get@first@char#1{\if\noexpand#1\relax\else
+\@cnttempa=`#1\relax
+\ifnum\@cnttempa>47\relax
+\ifnum\@cnttempa<58\relax
+\XyMTeXWarning{The second number (\@tmpb) of a two-digit number (\@tmpa\@tmpb)
+is missed. ^^J\space This should be written in braces,
+^^J\space e.g. `{\@tmpa\@tmpb}D==substituent' and `{{\@tmpa\@tmpb}}==substituent'.}
+\fi\fi\fi}
+\def\threech@r#1#2#3{\gdef\@tmpa{#1}\gdef\@tmpb{#2}\gdef\@tmpc{#3}%
+\begingroup
+\ifdrawsamesubst\ifx\@tmpa\empty\relax\else\ifx\@tmpb\empty\relax\else
+\setbox0=\hbox{\@get@first@char#2\relax}\fi\fi\fi
+\endgroup}
+\def\twoCH@@R#1#2//{\def\@@tmpa{#1}\def\@@tmpb{#2}}
+\def\twoCH@R#1#2//{\def\@tmpa{#1}\def\@tmpb{#2}}
+
+\def\@forendparenthesis#1:=#2\do#3{%
+ \expandafter\def\expandafter\@fortmp\expandafter{#2}%
+ \ifx\@fortmp\@empty \else%
+ \expandafter\@forL@@P#2)\@nil)\@nil\@@#1{#3}\fi}
+\long\def\@forL@@P#1)#2)#3\@@#4#5{\def#4{#1}\ifx #4\@nnil \else%
+ #5\def#4{#2}\ifx #4\@nnil \else#5\@iforL@@P #3\@@#4{#5}\fi\fi}
+\long\def\@iforL@@P#1)#2\@@#3#4{\def#3{#1}\ifx #3\@nnil%
+ \expandafter\@fornoop \else
+ #4\relax\expandafter\@iforL@@P\fi#2\@@#3{#4}}
+\newif\if@rightput \@rightputfalse
+\newif\if@leftput \@leftputfalse
+\newif\if@leftrightput \@leftrightputfalse
+\def\resetlrput{\@rightputfalse\@leftputfalse
+\@leftrightputfalse}
+\def\rmoiety#1{\if@leftput
+\XyMTeXWarning{Wrong \string\rmoiety\space used in a left box}%
+\hbox to0pt{%
+\hbox to0pt{\hss\vrule width\overfullrule height\overfullrule}#1\hss}%
+\else\if@rightput\XyMTeXWarning{Unnecessary \string\rmoiety\space
+used in a right box}\hbox to0pt{#1\hss}%
+\else\if@leftrightput\hbox to0pt{#1\hss}%
+\fi\fi\fi\resetlrput}
+\def\lmoiety#1{\if@rightput
+\XyMTeXWarning{Wrong \string\lmoiety\space used in a right box}%
+\hbox to0pt{\hss#1\kern-.72em%
+\hbox to0pt{\vrule width\overfullrule height\overfullrule\hss}}\else
+\if@leftput\XyMTeXWarning{Unnecessary \string\lmoiety\space
+used in a left box}\hbox to0pt{\hss#1}%
+\else\if@leftrightput\hbox to0pt{\hss#1\kern-.72em}%
+\else\hbox to0pt{\hss#1\kern-.72em}\fi\fi\fi\resetlrput}
+\newif\if@dbondcolor \@dbondcolorfalse
+\def\XyMTeXWarning#1{%
+\begingroup
+\if@dbondcolor\else
+ \let\protect\string
+ \immediate\write\@unused{^^IXyMTeX Warning: #1\space
+ on input line \the\inputlineno^^I}%
+\fi
+\endgroup%
+\global\@dbondcolorfalse%2010/10/01 for bond coloring
+}
+\newcount\@cnttempa
+\newcount\@cnttempb
+\def\FuseW@rning#1#2#3#4#5#6#7{%
+\@tempcnta=#1 \@tempcntb=#2
+\@cnttempa=#3 \advance\@cnttempa-#5
+\@cnttempb=#4 \advance\@cnttempb-#6
+\ifnum\@tempcnta=\@cnttempa
+ \ifnum\@tempcntb=\@cnttempb\else
+ \XyMTeXWarning{Mismatched fusion at bond `#7'}%
+ \fi
+\else
+ \XyMTeXWarning{Mismatched fusion at bond `#7'}%
+\fi}
+\def\futileFuseWarning#1#2#3#4#5#6#7{}
+\let\FuseWarning=\FuseW@rning
+\let\substfont=\normalfont
+\let\substfontsize=\normalsize
+\def\putlatom#1#2#3{\begingroup\resetlrput
+\Put@Direct(#1,#2){\@leftputtrue\substfont\substfontsize
+\hbox to0pt{\hss #3}\@leftputfalse}\endgroup}
+\def\putratom#1#2#3{\begingroup\resetlrput
+\Put@Direct(#1,#2){\@rightputtrue\substfont\substfontsize
+\hbox to0pt{#3 \hss}\@rightputfalse}\endgroup}
+\newif\ifspecial@ylcs \special@ylcsfalse
+\def\@getcharwidthput#1#2\owari{%
+\global\special@ylcsfalse
+\if\noexpand#1\relax \global\special@ylcstrue \else%\if the category #1 is 'command'
+\ifcat#1$\relax \global\special@ylcstrue\else%if the category of #1 is 'special letter'
+\ifcat#1a\relax%if the category of #1 is 'letter'
+\setbox0=\hbox{#1}%
+\global\@dimtempa=0.7em
+\global\advance\@dimtempa by-\wd0\relax
+\global\divide\@dimtempa by2\relax
+\else\global\@dimtempa=0em\relax\fi\fi\fi}
+\def\putlratom#1#2#3{\begingroup\resetlrput
+\Put@Direct(#1,#2){\@leftrightputtrue\substfont\substfontsize
+\setbox1=\hbox{%
+\expandafter\@getcharwidthput#3\relax\owari}%the centering mechanism
+\@tempdima=\@dimtempa%global to local
+\ifspecial@ylcs\hbox to.72em{#3\hss}\else
+\hbox to0.72em{\kern\@tempdima #3\hss}\kern-\@tempdima
+\fi}%
+\@leftrightputfalse\endgroup}
+\def\Putlratom#1#2#3{\Put@Direct(#1,#2){\substfont\substfontsize
+\hbox to.8em{#3}}}
+\def\d@t@rline(#1,#2)(#3,#4)#5/(#6,#7)(#8,#9){%
+ \@ifundefined{dottedline}{%
+ \XyMTeXWarning{A dottedline is replaced by a solid line.}%
+ \Put@Line(#1,#2)(#3,#4){#5}%
+ }{{\thicklines%
+ \ifdim\unitlength>0.08pt
+ \dottedline{20}(#6,#7)(#8,#9)%
+ \else
+ \dottedline{30}(#6,#7)(#8,#9)\fi}}}
+\let\dotorline=\d@t@rline
+\newcount\noshift \noshift=0\relax%
+\newcount\shifti \shifti=240\relax%
+\newcount\shiftii \shiftii=400\relax%
+\newcount\shiftiii \shiftiii=800\relax%
+\unitlength.1pt%
+\def\fuseAx{0}
+\def\fuseBx{0}
+\def\fuseAy{0}
+\def\fuseBy{0}
+\newif\if@clip \@clipfalse% % switch for clipping at 4
+\newif\if@aclip \@aclipfalse% % switch for clipping at 1
+\newif\if@bclip \@bclipfalse% % switch for clipping at 2
+\newif\if@cclip \@cclipfalse% % switch for clipping at 3
+\newif\if@eclip \@eclipfalse% % switch for clipping at 5
+\newif\if@fclip \@fclipfalse% % switch for clipping at 6
+\newif\iforigpt \origptfalse% % switch for showing the original point
+\newcount\@tmpaa%to use as a local counter
+\def\@rigpt@utput#1{\iforigpt
+ \Put@sCircle(-\shiftii,-\shifti){50}%
+ \Put@oCircle(-\noshift,-\noshift){50}%
+ \typeout{command `#1' origin: %
+ (\the\noshift,\the\noshift) ---> (\the\shiftii,\the\shifti)}\fi}
+\def\OrigptOutput(#1,#2)#3{\iforigpt
+ \Put@sCircle(-#1,-#2){50}\Put@oCircle(0,0){50}%
+ \typeout{command `#3' origin: (0,0) ---> (#1,#2)}\fi}
+\def\OrigptOutputA(#1,#2)(#3,#4)#5{\iforigpt
+ \Put@sCircle(-#1,-#2){50}\Put@oCircle(-#3,-#4){50}%
+ \typeout{command `#5' origin: (#3,#4) ---> (#1,#2)}\fi}
+\def\origptoutput{\@ifnextchar({\@origptoutput}{\@origptoutput(,)}}
+\def\@origptoutput(#1){%
+\@ifnextchar({\@@origptoutput(#1)}{\@@origptoutput(#1)(,)}}
+\def\@@origptoutput(#1,#2)(#3,#4)#5{%
+\def\TEMParga{#1}\def\TEMPargb{#3}%
+\ifx\TEMParga\empty\relax
+\@rigpt@utput{#5}\else\ifx\TEMPargb\empty\relax
+\OrigptOutput(#1,#2){#5}\else
+\OrigptOutputA(#1,#2)(#3,#4){#5}\fi\fi}
+\newif\if@gclip \@gclipfalse%
+\newif\if@hclip \@hclipfalse%
+\newif\if@iclip \@iclipfalse%
+\newif\if@jclip \@jclipfalse%
+\newif\if@xclip \@xclipfalse%added for temp. 2013/03/24
+\def\clipinfo{}
+\def\storeclipinfo{%
+\if@aclip \xdef\clipinfo{\clipinfo a,}\fi
+\if@bclip \xdef\clipinfo{\clipinfo b,}\fi
+\if@cclip \xdef\clipinfo{\clipinfo c,}\fi
+\if@clip \xdef\clipinfo{\clipinfo d,}\fi
+\if@eclip \xdef\clipinfo{\clipinfo e,}\fi
+\if@fclip \xdef\clipinfo{\clipinfo f,}\fi
+\if@gclip \xdef\clipinfo{\clipinfo g,}\fi
+\if@hclip \xdef\clipinfo{\clipinfo h,}\fi
+\if@iclip \xdef\clipinfo{\clipinfo i,}\fi
+\if@jclip \xdef\clipinfo{\clipinfo j,}\fi
+\if@xclip \xdef\clipinfo{\clipinfo x,}\fi
+}%
+\def\developclipinfo{%
+\expandafter\@tfor\expandafter\MEMBER\expandafter:%
+\expandafter=\clipinfo\do{%
+\if\MEMBER a\relax \@acliptrue\fi
+\if\MEMBER b\relax \@bcliptrue\fi
+\if\MEMBER c\relax \@ccliptrue\fi
+\if\MEMBER d\relax \@cliptrue\fi
+\if\MEMBER e\relax \@ecliptrue\fi
+\if\MEMBER f\relax \@fcliptrue\fi
+\if\MEMBER g\relax \@gcliptrue\fi
+\if\MEMBER h\relax \@hcliptrue\fi
+\if\MEMBER i\relax \@icliptrue\fi
+\if\MEMBER j\relax \@jcliptrue\fi}%
+\gdef\clipinfo{}}
+\def\@yl{(yl)}
+\newcount\yl@xdiff
+\newcount\yl@ydiff
+\newcount\yl@shiftii
+\newcount\yl@shifti
+\def\@ylii{0}\def\@yli{0}
+\def\@@ylii{}\def\@@yli{}
+\def\reset@@yl{\gdef\@@ylii{}\gdef\@@yli{}}
+\def\reset@yl@xydiff{\yl@xdiff=0 \yl@ydiff=0\relax}
+\newif\if@ylsw \@ylswfalse
+\newif\if@@ylsw \@@ylswfalse
+\def\@reset@ylsw{\@ylswfalse\@@ylswfalse}
+\newif\ifshiftpicsw\shiftpicswfalse
+\newif\if@sixfuseposv\@sixfuseposvfalse
+\def\ShiftPicEnv{%
+\@ifnextchar[{\ShiftPicEnv@}{\ShiftPicEnv@[0]}}
+\def\ShiftPicEnv@[#1](#2)(#3)/(#4)(#5)#6{%
+\@ifnextchar({\@ShiftPicEnv[#1](#2)(#3)/(#4)(#5){#6}}%
+{\@ShiftPicEnv[#1](#2)(#3)/(#4)(#5){#6}(,)}}
+\def\@ShiftPicEnv[#1](#2)(#3)/(#4)(#5)#6(#7){%
+\@ifnextchar({\@@ShiftPicEnv[#1](#2)(#3)/(#4)(#5){#6}(#7)}%
+{\@@ShiftPicEnv[#1](#2)(#3)/(#4)(#5){#6}(#7)(,)}}
+\def\@@ShiftPicEnv[#1](#2)(#3)/(#4)(#5)#6(#7)(#8){%
+\shiftpicswfalse%initialize
+\ifcase#1\relax%%%non-fused ring
+\if@ylsw \shiftpicswtrue
+\yl@shiftii=\@ylii
+\yl@shifti=\@yli
+\fi
+\or%%%fused ring
+\if@sixfuseposv \shiftpicswtrue
+ \yl@shiftii=-\fuseAx
+ \yl@shifti=-\fuseAy
+\fi
+\fi
+\ifshiftpicsw
+\advance\yl@shiftii\yl@xdiff
+\advance\yl@shifti\yl@ydiff
+\begin{sfpicture}(#2)(#3)%
+ \reset@yl@xydiff%1999/1/6 by S. Fujita
+\else
+\begin{sfpicture}(#4)(#5)%
+ \origptoutput(#7)(#8){#6}%
+\fi}
+\def\endShiftPicEnv{\end{sfpicture}}
+\def\ShiftPicEnvB(#1)(#2)/(#3)(#4)#5{%
+\@ifnextchar({\@ShiftPicEnvB(#1)(#2)/(#3)(#4){#5}}%
+{\@ShiftPicEnvB(#1)(#2)/(#3)(#4){#5}(,)}}
+\def\@ShiftPicEnvB(#1)(#2)/(#3)(#4)#5(#6){%
+\@ifnextchar({\@@ShiftPicEnvB(#1)(#2)/(#3)(#4){#5}(#6)}%
+{\@@ShiftPicEnvB(#1)(#2)/(#3)(#4){#5}(#6)(,)}}
+\def\@@ShiftPicEnvB(#1)(#2)/(#3)(#4)#5(#6)(#7){%
+\if@ylsw
+ \yl@shiftii=\@ylii
+ \yl@shifti=\@yli
+ \advance\yl@shiftii\@@ylii
+ \advance\yl@shifti\@@yli
+ \advance\yl@shiftii\yl@xdiff
+ \advance\yl@shifti\yl@ydiff
+ \begin{sfpicture}(#1)(#2)%
+ \reset@yl@xydiff%1999/1/6 by S. Fujita
+\else
+ \begin{sfpicture}(#3)(#4)%
+ \origptoutput(#6)(#7){#5}%
+\fi}
+\def\endShiftPicEnvB{\end{sfpicture}}
+\newif\if@smallringsw \@smallringswfalse
+\def\iniflag{%
+\@aclipfalse\@bclipfalse\@cclipfalse\@clipfalse\@eclipfalse%
+\@fclipfalse\@gclipfalse\@hclipfalse%
+\@iclipfalse\@jclipfalse\@clipfusefalse%
+\global\@smallringswfalse%
+}%
+\def\iniatom{%
+\def\aaa{}\def\bbb{}\def\ccc{}\gdef\ddd{}%
+\def\eee{}\def\fff{}%
+\def\gggA{}\def\hhh{}\def\iii{}\gdef\jjj{}%
+\def\@aaa{}\def\@bbb{}\def\@ccc{}\def\@ddd{}%
+\def\@eee{}\def\@fff{}%
+\def\@ggg{}\def\@hhh{}\def\@iii{}%
+\def\@jjj{}\def\@kkk{}%
+}%
+\def\resetbdsw{\def\@aaa{a}\def\@bbb{b}\def\@ccc{c}%
+\def\@ddd{d}\def\@eee{e}\def\@fff{f}%
+\def\@ggg{g}\def\@hhh{h}\def\@iii{i}%
+\def\@jjj{j}\def\@kkk{k}%
+}%
+\iniatom
+\def\ylposition#1#2#3#4#5{%
+\@@ylswfalse%%%\@reset@ylsw
+\reset@@yl%%2013/06/19bug fix
+\@forsemicol\member:=#1\do{%
+\if@@ylsw\else%
+\ifx\member\empty\else%
+\expandafter\@m@mb@r\member;\relax%
+\expandafter\threech@r\@membera{}{}\relax%
+\ifx\@memberb\@yl\relax\@@ylswtrue\else\@@ylswfalse\fi
+\if@@ylsw
+\ifnum#5<0\relax%
+\@tmpaa=-\@tmpa\relax \advance\@tmpaa by#2\relax%
+\else\@tmpaa=\@tmpa\relax \advance\@tmpaa by#2\relax\fi
+\ifnum\@tmpaa>#3\relax%
+\ifnum\@tmpaa<#4\relax%
+\ifcase\@tmpaa%0 omit
+ \or\ifx\aaa\empty
+ \gdef\@ylii{0}\gdef\@yli{-406}\global\@ylswtrue%\@ylatrue% subst. on 1
+ \else
+ \gdef\@ylii{0}\gdef\@yli{-442}\global\@ylswtrue%\@ylatrue% subst. on 1
+ \fi
+ \or\ifx\bbb\empty
+ \gdef\@ylii{-171}\gdef\@yli{-303}\global\@ylswtrue%\@ylbtrue% subst. on 2
+ \else
+ \gdef\@ylii{-213}\gdef\@yli{-327}\global\@ylswtrue%\@ylbtrue% subst. on 2
+ \fi
+ \or\ifx\ccc\empty
+ \gdef\@ylii{-171}\gdef\@yli{-103}\global\@ylswtrue%\@ylctrue% subst. on 3
+ \else
+ \gdef\@ylii{-213}\gdef\@yli{-79}\global\@ylswtrue%\@ylctrue% subst. on 3
+ \fi
+ \or\ifx\ddd\empty
+ \gdef\@ylii{0}\gdef\@yli{0}\global\@ylswtrue%\@yldtrue% subst. on 4
+ \else
+ \gdef\@ylii{0}\gdef\@yli{36}\global\@ylswtrue%\@yldtrue% subst. on 4
+ \fi
+ \or\ifx\eee\empty
+ \gdef\@ylii{171}\gdef\@yli{-103}\global\@ylswtrue%\@yletrue% subst. on 5
+ \else
+ \gdef\@ylii{213}\gdef\@yli{-79}\global\@ylswtrue%\@yletrue% subst. on 5
+ \fi
+ \or\ifx\fff\empty
+ \gdef\@ylii{171}\gdef\@yli{-303}\global\@ylswtrue%\@ylftrue% subst. on 6
+ \else
+ \gdef\@ylii{213}\gdef\@yli{-327}\global\@ylswtrue%\@ylftrue% subst. on 6
+ \fi%
+\fi%end of ifcase
+\fi\fi\fi\fi\fi}}%
+\def\@substa{%
+\if@aclip% %clipping
+ \if\@tmpb S%single bond
+ \ifx\@tmpc\empty%
+ \yl@xdiff=31\relax
+ \yl@ydiff=-17\relax
+ \putlratom{-31}{563}{\@memberb}% % left or right type
+ \Put@Line(0,436)(0,1){110}% % single bond at 1
+ \else\if\@tmpc B%(B) beta
+ \yl@xdiff=-36\relax
+ \yl@ydiff=-27\relax
+ \putlatom{-42}{563}{\@memberb}% % left type
+ {%
+ \thicklines%
+ \Put@Line(-18,436)(-3,5){60}% % single bond at 1
+ }%
+ \else\if\@tmpc A%(A) alpha
+ \yl@xdiff=37\relax
+ \yl@ydiff=-27\relax
+ \putratom{41}{563}{\@memberb}% % right type
+ \dotorline(18,436)(3,5){60}/(18,436)(72,526)%
+ \else\if\@tmpc u%(u) up --- (B) beta
+ \yl@xdiff=36\relax
+ \yl@ydiff=-27\relax
+ \putratom{41}{563}{\@memberb}% % right type
+ {%
+ \thicklines%
+ \Put@Line(18,436)(3,5){60}% % single bond at 1
+ }%
+ \else\if\@tmpc d%(d) down --- (A) alpha
+ \yl@xdiff=-37\relax
+ \yl@ydiff=-27\relax
+ \putlatom{-42}{563}{\@memberb}% % left type
+ \dotorline(-18,436)(-3,5){60}/(-18,436)(-72,526)%
+ \else\if\@tmpc b%(b) beta
+ \yl@xdiff=-36\relax
+ \yl@ydiff=-27\relax
+ \putlatom{-42}{563}{\@memberb}% % left type
+ \Put@Line(-18,436)(-3,5){60}% % single bond at 1
+ \else\if\@tmpc a%(a) alpha
+ \yl@xdiff=37\relax
+ \yl@ydiff=-27\relax
+ \putratom{41}{563}{\@memberb}% % right type
+ \Put@Line(18,436)(3,5){60}% % single bond at 1
+ \else\if\@tmpc V%(V) beta undefined
+ \yl@xdiff=-36\relax
+ \yl@ydiff=-27\relax
+ \putlatom{-42}{563}{\@memberb}% % left type
+ {%
+ \WaveBonds%
+ \Put@Line(-18,436)(-3,5){60}% % single bond at 1
+ }%
+ \else\if\@tmpc U%(U) alpha undefined
+ \yl@xdiff=37\relax
+ \yl@ydiff=-27\relax
+ \putratom{41}{563}{\@memberb}% % right type
+ {%
+ \WaveBonds%
+ \Put@Line(18,436)(3,5){60}% % single bond at 1
+ }%
+ \fi\fi\fi\fi\fi%
+ \fi\fi\fi\fi
+ \else\if\@tmpb D%double bond
+ \yl@xdiff=31\relax
+ \yl@ydiff=-17\relax
+ \putlratom{-31}{563}{\@memberb}% % left or right type
+ \Put@Line(-12,436)(0,1){110}% % double bond at 1
+ \Put@Line(12,436)(0,1){110}% % double bond at 1
+ \else\if\@tmpb B%beta single bond
+ \yl@xdiff=31\relax
+ \yl@ydiff=-17\relax
+ \putlratom{-31}{563}{\@memberb}% % left or right type
+ {%
+ \thicklines%
+ \Put@Line(0,436)(0,1){110}% % single bond at 1
+ }%
+ \else\if\@tmpb A%alpha single bond
+ \yl@xdiff=31\relax
+ \yl@ydiff=-17\relax
+ \putlratom{-31}{563}{\@memberb}% % left or right type
+ \dotorline(0,436)(0,1){110}/(0,436)(0,546)%
+ \else\if\@tmpb U%undefined single bond
+ \yl@xdiff=31\relax
+ \yl@ydiff=-17\relax
+ \putlratom{-31}{563}{\@memberb}% % left or right type
+ {%
+ \WaveBonds%
+ \Put@Line(0,436)(0,1){110}% % single wave bond at 1
+ }%
+ \else\if\@tmpb F%fused bond
+ {\let\@tmpb=\@tmpc\@clipfusetrue
+ \Put@Direct(0,406){\setatombondd}%
+ }%
+ \else\if\@tmpb G%fused bond
+ {\let\@tmpb=\@tmpc\@clipfusetrue
+ \Put@Direct(0,406){\setatombondf}%
+ }%
+ \else%
+ \yl@xdiff=31\relax
+ \yl@ydiff=-17\relax
+ \putlratom{-31}{563}{\@memberb}% % left or right type
+ \Put@Line(0,436)(0,1){110}% % single bond at 1
+ \fi\fi\fi\fi%
+ \fi\fi\fi%
+\else% % no clipping
+ \if\@tmpb S%single bond
+ \ifx\@tmpc\empty%
+ \yl@xdiff=31\relax
+ \yl@ydiff=-17\relax
+ \putlratom{-31}{563}{\@memberb}% % left or right type
+ \Put@Line(0,406)(0,1){140}% % single bond at 1
+ \else\if\@tmpc B%(B) beta
+ \yl@xdiff=-30\relax
+ \yl@ydiff=-37\relax
+ \putlatom{-42}{563}{\@memberb}% % left type
+ {%
+ \thicklines%
+ \Put@Line(0,406)(-3,5){72}% % single bond at 1
+ }%
+ \else\if\@tmpc A%(A) alpha
+ \yl@xdiff=31\relax
+ \yl@ydiff=-37\relax
+ \putratom{41}{563}{\@memberb}% % right type
+ \dotorline(0,406)(3,5){72}/(0,406)(72,526)%
+ \else\if\@tmpc u%(u) upper --- (B) beta
+ \yl@xdiff=30\relax
+ \yl@ydiff=-37\relax
+ \putratom{41}{563}{\@memberb}% % right type
+ {%
+ \thicklines%
+ \Put@Line(0,406)(3,5){72}% % single bond at 1
+ }%
+ \else\if\@tmpc d%(d) down --- (A) alpha
+ \yl@xdiff=-31\relax
+ \yl@ydiff=-37\relax
+ \putlatom{-42}{563}{\@memberb}% % left type
+ \dotorline(0,406)(-3,5){72}/(0,406)(-72,526)%
+ \else\if\@tmpc b%(b) beta
+ \yl@xdiff=-30\relax
+ \yl@ydiff=-37\relax
+ \putlatom{-42}{563}{\@memberb}% % left type
+ \Put@Line(0,406)(-3,5){72}% % single bond at 1
+ \else\if\@tmpc a%(a) alpha
+ \yl@xdiff=31\relax
+ \yl@ydiff=-37\relax
+ \putratom{41}{563}{\@memberb}% % right type
+ \Put@Line(0,406)(3,5){72}% % single bond at 1
+ \else\if\@tmpc V%(V) beta undefined
+ \yl@xdiff=-30\relax
+ \yl@ydiff=-37\relax
+ \putlatom{-42}{563}{\@memberb}% % left type
+ {%
+ \WaveBonds%
+ \Put@Line(0,406)(-3,5){72}% % single bond at 1
+ }%
+ \else\if\@tmpc U%(U) alpha undefined
+ \yl@xdiff=31\relax
+ \yl@ydiff=-37\relax
+ \putratom{41}{563}{\@memberb}% % right type
+ {%
+ \WaveBonds%
+ \Put@Line(0,406)(3,5){72}% % single bond at 1
+ }%
+ \fi\fi\fi\fi\fi%
+ \fi\fi\fi\fi%
+ \else\if\@tmpb D%double bond
+ \yl@xdiff=31\relax
+ \yl@ydiff=-17\relax
+ \putlratom{-31}{563}{\@memberb}% % left or right type
+ \Put@Line(-12,406)(0,1){140}% % double bond at 1
+ \Put@Line(12,406)(0,1){140}% % double bond at 1
+ \else\if\@tmpb B%beta single bond
+ \yl@xdiff=31\relax
+ \yl@ydiff=-17\relax
+ \putlratom{-31}{563}{\@memberb}% % left or right type
+ {%
+ \thicklines%
+ \Put@Line(0,406)(0,1){140}% % single bond at 1
+ }%
+ \else\if\@tmpb A%alpha single bond
+ \yl@xdiff=31\relax
+ \yl@ydiff=-17\relax
+ \putlratom{-31}{563}{\@memberb}% % left or right type
+ \dotorline(0,406)(0,1){140}/(0,406)(0,546)%
+ \else\if\@tmpb U%undefined single bond
+ \yl@xdiff=31\relax
+ \yl@ydiff=-17\relax
+ \putlratom{-31}{563}{\@memberb}% % left or right type
+ {%
+ \WaveBonds%
+ \Put@Line(0,406)(0,1){140}% % single wave bond at 1
+ }%
+ \else\if\@tmpb F%fused bond
+ {\let\@tmpb=\@tmpc\@clipfusefalse
+ \Put@Direct(0,406){\setatombondd}%
+ }%
+ \else\if\@tmpb G%fused bond
+ {\let\@tmpb=\@tmpc\@clipfusefalse
+ \Put@Direct(0,406){\setatombondf}%
+ }%
+ \else%
+ \yl@xdiff=31\relax
+ \yl@ydiff=-17\relax
+ \putlratom{-31}{563}{\@memberb}% % left or right type
+ \Put@Line(0,406)(0,1){140}% % single bond at 1
+ \fi\fi\fi\fi%
+ \fi\fi\fi
+ \fi}% end of \@substa
+\def\@substb{%
+ \if@bclip %clipping
+ \if\@tmpb S%single bond
+ \ifx\@tmpc\empty%
+ \yl@xdiff=-10\relax
+ \yl@ydiff=24\relax
+ \putratom{311}{363}{\@memberb}% % right type
+ \Put@Line(201,327)(5,3){100}% % single bond at 2
+ \else\if\@tmpc B%(B) beta
+ \yl@xdiff=-7\relax
+ \yl@ydiff=38\relax
+ \putratom{268}{420}{\@memberb}% % right type
+ {%
+ \thicklines%
+ \Put@Line(201,358)(3,5){60}% % single bond at 2
+ }%
+ \else\if\@tmpc A%(A) alpha
+ \yl@xdiff=-17\relax
+ \yl@ydiff=23\relax
+ \putratom{318}{280}{\@memberb}% % right type
+ \dotorline(201,303)(1,0){100}/(201,303)(301,303)%
+ \else\if\@tmpc u%(u) up --- (B) beta
+ \yl@xdiff=-17\relax
+ \yl@ydiff=23\relax
+ \putratom{318}{280}{\@memberb}% % right type
+ {%
+ \thicklines%
+ \Put@Line(201,303)(1,0){100}% % single bond at 2
+ }%
+ \else\if\@tmpc d%(d) down --- (A) alpha
+ \yl@xdiff=-7\relax
+ \yl@ydiff=38\relax
+ \putratom{268}{420}{\@memberb}% % right type
+ \dotorline(201,358)(3,5){60}/(201,358)(261,458)%
+ \else\if\@tmpc b%(b) beta
+ \yl@xdiff=-7\relax
+ \yl@ydiff=38\relax
+ \putratom{268}{420}{\@memberb}% % right type
+ \Put@Line(201,358)(3,5){60}% % single bond at 2
+ \else\if\@tmpc a%(a) alpha%
+ \yl@xdiff=-17\relax
+ \yl@ydiff=23\relax
+ \putratom{318}{280}{\@memberb}% % right type
+ \Put@Line(201,303)(1,0){100}% % single bond at 2
+ \else\if\@tmpc V%(V) beta undefined
+ \yl@xdiff=-7\relax
+ \yl@ydiff=38\relax
+ \putratom{268}{420}{\@memberb}% % right type
+ {%
+ \WaveBonds%
+ \Put@Line(201,358)(3,5){60}% % single bond at 2
+ }%
+ \else\if\@tmpc U%(U) alphau undefined
+ \yl@xdiff=-17\relax
+ \yl@ydiff=23\relax
+ \putratom{318}{280}{\@memberb}% % right type
+ {%
+ \WaveBonds%
+ \Put@Line(201,303)(1,0){100}% % single bond at 2
+ }%
+ \fi\fi\fi\fi\fi%
+ \fi\fi\fi\fi%
+ \else\if\@tmpb D%double bond
+ \yl@xdiff=-10\relax
+ \yl@ydiff=18\relax
+ \putratom{311}{363}{\@memberb}% % right type
+ \Put@Line(194,331)(5,3){100}% % double bond at 2
+ \Put@Line(200,305)(5,3){100}% % double bond at 2
+ \else\if\@tmpb B%beta single bond
+ \yl@xdiff=-10\relax
+ \yl@ydiff=24\relax
+ \putratom{311}{363}{\@memberb}% % right type
+ {%
+ \thicklines%
+ \Put@Line(201,327)(5,3){100}% % single bond at 2
+ }%
+ \else\if\@tmpb A%alpha single bond
+ \yl@xdiff=-10\relax
+ \yl@ydiff=24\relax
+ \putratom{311}{363}{\@memberb}% % right type
+ \dotorline(201,327)(5,3){100}/(201,327)(301,387)%
+ \else\if\@tmpb U%undefined single bond
+ \yl@xdiff=-10\relax
+ \yl@ydiff=24\relax
+ \putratom{311}{363}{\@memberb}% % right type
+ {%
+ \WaveBonds%
+ \Put@Line(210,327)(5,3){100}% % single wave bond at 2
+ }%
+ \else\if\@tmpb F%fused bond
+ {\let\@tmpb=\@tmpc\@clipfusetrue
+ \Put@Direct(171,303){\setatombonda}%
+ }%
+ \else\if\@tmpb G%fused bond
+ {\let\@tmpb=\@tmpc\@clipfusetrue
+ \Put@Direct(171,303){\setatombonde}%
+ }%
+ \else%
+ \yl@xdiff=-10\relax
+ \yl@ydiff=24\relax
+ \putratom{311}{363}{\@memberb}% % right type
+ \Put@Line(201,327)(5,3){100}% % single bond at 2
+ \fi\fi\fi\fi%
+ \fi\fi\fi%
+ \else% %no clipping
+ \if\@tmpb S%single bond
+ \ifx\@tmpc\empty%
+ \yl@xdiff=-10\relax
+ \yl@ydiff=12\relax
+ \putratom{301}{363}{\@memberb}% % right type
+ \Put@Line(171,303)(5,3){120}% % single bond at 2
+ \else\if\@tmpc B%(B) beta
+ \yl@xdiff=-15\relax
+ \yl@ydiff=13\relax
+ \putratom{258}{410}{\@memberb}% % right type
+ {%
+ \thicklines%
+ \Put@Line(171,303)(3,5){72}% % single bond at 2
+ }%
+ \else\if\@tmpc A%(A) alpha
+ \yl@xdiff=-7\relax
+ \yl@ydiff=23\relax
+ \putratom{318}{280}{\@memberb}% % right type
+ \dotorline(171,303)(1,0){140}/(171,303)(311,303)%
+ \else\if\@tmpc u%(u) up --- (B) beta
+ \yl@xdiff=-7\relax
+ \yl@ydiff=23\relax
+ \putratom{318}{280}{\@memberb}% % right type
+ {%
+ \thicklines%
+ \Put@Line(171,303)(1,0){140}% % single bond at 2
+ }%
+ \else\if\@tmpc d%(d) down --- (A) alpha
+ \yl@xdiff=-15\relax
+ \yl@ydiff=13\relax
+ \putratom{258}{410}{\@memberb}% % right type
+ \dotorline(171,303)(3,5){72}/(171,303)(243,423)%
+ \else\if\@tmpc b%(b) beta
+ \yl@xdiff=-15\relax
+ \yl@ydiff=13\relax
+ \putratom{258}{410}{\@memberb}% % right type
+ \Put@Line(171,303)(3,5){72}% % single bond at 2
+ \else\if\@tmpc a%(a) alpha
+ \yl@xdiff=-7\relax
+ \yl@ydiff=23\relax
+ \putratom{318}{280}{\@memberb}% % right type
+ \Put@Line(171,303)(1,0){140}% % single bond at 2
+ \else\if\@tmpc V%(V) beta undefined
+ \yl@xdiff=-15\relax
+ \yl@ydiff=13\relax
+ \putratom{258}{410}{\@memberb}% % right type
+ {%
+ \WaveBonds%
+ \Put@Line(171,303)(3,5){72}% % single bond at 2
+ }%
+ \else\if\@tmpc U%(U) alpha undefined
+ \yl@xdiff=-7\relax
+ \yl@ydiff=23\relax
+ \putratom{318}{280}{\@memberb}% % right type
+ {%
+ \WaveBonds%
+ \Put@Line(171,303)(1,0){140}% % single bond at 2
+ }%
+ \fi\fi\fi\fi\fi%
+ \fi\fi\fi\fi%
+ \else\if\@tmpb D%double bond
+ \yl@xdiff=-10\relax
+ \yl@ydiff=6\relax
+ \putratom{301}{363}{\@memberb}% % right type
+ \Put@Line(168,310)(5,3){120}% % double bond at 2
+ \Put@Line(174,284)(5,3){120}% % double bond at 2
+ \else\if\@tmpb B%beta single bond
+ \yl@xdiff=-10\relax
+ \yl@ydiff=12\relax
+ \putratom{301}{363}{\@memberb}% % right type
+ {%
+ \thicklines%
+ \Put@Line(171,303)(5,3){120}% % single bond at 2
+ }%
+ \else\if\@tmpb A%alpha single bond
+ \yl@xdiff=-10\relax
+ \yl@ydiff=12\relax
+ \putratom{301}{363}{\@memberb}% % right type
+ \dotorline(171,303)(5,3){120}/(171,303)(291,375)%
+ \else\if\@tmpb U%undefined single bond
+ \yl@xdiff=-10\relax
+ \yl@ydiff=12\relax
+ \putratom{301}{363}{\@memberb}% % right type
+ {%
+ \WaveBonds%
+ \Put@Line(171,303)(5,3){120}% % single wave bond at 2
+ }%
+ \else\if\@tmpb F%fused bond
+ {\let\@tmpb=\@tmpc\@clipfusefalse
+ \Put@Direct(171,303){\setatombonda}%
+ }%
+ \else\if\@tmpb G%fused bond
+ {\let\@tmpb=\@tmpc\@clipfusefalse
+ \Put@Direct(171,303){\setatombonde}%
+ }%
+ \else%
+ \yl@xdiff=-10\relax
+ \yl@ydiff=12\relax
+ \putratom{301}{363}{\@memberb}% % right type
+ \Put@Line(171,303)(5,3){120}% % single bond at 2
+ \fi\fi\fi\fi%
+ \fi\fi\fi
+ \fi}% end of \@substb
+\def\@substc{%
+ \if@cclip %clipping
+ \if\@tmpb S%single bond
+ \ifx\@tmpc\empty%
+ \yl@xdiff=-10\relax
+ \yl@ydiff=46\relax
+ \putratom{311}{-27}{\@memberb}% % right type
+ \Put@Line(201,79)(5,-3){110}% % single bond at 3
+ \else\if\@tmpc B%(B) beta
+ \yl@xdiff=-7\relax
+ \yl@ydiff=28\relax
+ \putratom{268}{-80}{\@memberb}% % right type
+ {%
+ \thicklines%
+ \Put@Line(201,48)(3,-5){60}% % single bond at 3
+ }%
+ \else\if\@tmpc A%(A) alpha
+ \yl@xdiff=-17\relax
+ \yl@ydiff=29\relax
+ \putratom{318}{74}{\@memberb}% % right type
+ \dotorline(201,103)(1,0){100}/(201,103)(301,103)%
+ \else\if\@tmpc u%(u) up --- (B) beta
+ \yl@xdiff=-17\relax
+ \yl@ydiff=29\relax
+ \putratom{318}{74}{\@memberb}% % right type
+ {%
+ \thicklines%
+ \Put@Line(201,103)(1,0){100}% % single bond at 3
+ }%
+ \else\if\@tmpc d%(d) down --- (A) alpha
+ \yl@xdiff=-7\relax
+ \yl@ydiff=28\relax
+ \putratom{268}{-80}{\@memberb}% % right type
+ \dotorline(201,48)(3,-5){60}/(201,48)(261,-52)%
+ \else\if\@tmpc b%(b) beta
+ \yl@xdiff=-7\relax
+ \yl@ydiff=28\relax
+ \putratom{268}{-80}{\@memberb}% % right type
+ \Put@Line(201,48)(3,-5){60}% % single bond at 3
+ \else\if\@tmpc a%(a) alpha
+ \yl@xdiff=-17\relax
+ \yl@ydiff=29\relax
+ \putratom{318}{74}{\@memberb}% % right type
+ \Put@Line(201,103)(1,0){100}% % single bond at 3
+ \else\if\@tmpc V%(V) beta undefined
+ \yl@xdiff=-7\relax
+ \yl@ydiff=28\relax
+ \putratom{268}{-80}{\@memberb}% % right type
+ {%
+ \WaveBonds%
+ \Put@Line(201,48)(3,-5){60}% % single bond at 3
+ }%
+ \else\if\@tmpc U%(U) alpha undefined
+ \yl@xdiff=-17\relax
+ \yl@ydiff=29\relax
+ \putratom{318}{74}{\@memberb}% % right type
+ {%
+ \WaveBonds%
+ \Put@Line(201,103)(1,0){100}% % single bond at 3
+ }%
+ \fi\fi\fi\fi\fi%
+ \fi\fi\fi\fi
+ \else\if\@tmpb D%double bond
+ \yl@xdiff=-10\relax
+ \yl@ydiff=52\relax
+ \putratom{311}{-27}{\@memberb}% % right type
+ \Put@Line(194,76)(5,-3){100}% % double bond at 3
+ \Put@Line(200,101)(5,-3){100}% % double bond at 3
+ \else\if\@tmpb B%beta single bond
+ \yl@xdiff=-10\relax
+ \yl@ydiff=46\relax
+ \putratom{311}{-27}{\@memberb}% % right type
+ {%
+ \thicklines%
+ \Put@Line(201,79)(5,-3){100}% % single bond at 3
+ }%
+ \else\if\@tmpb A%alpha single bond
+ \yl@xdiff=-10\relax
+ \yl@ydiff=46\relax
+ \putratom{311}{-27}{\@memberb}% % right type
+ \dotorline(201,79)(5,-3){100}/(201,79)(301,19)%
+ \else\if\@tmpb U%undefined single bond
+ \yl@xdiff=-10\relax
+ \yl@ydiff=46\relax
+ \putratom{311}{-27}{\@memberb}% % right type
+ {%
+ \WaveBonds%
+ \Put@Line(210,79)(5,-3){100}% % single wave bond at 3
+ }%
+ \else\if\@tmpb F%fused bond
+ {\let\@tmpb=\@tmpc\@clipfusetrue
+ \Put@Direct(171,103){\setatombondf}%
+ }%
+ \else\if\@tmpb G%fused bond
+ {\let\@tmpb=\@tmpc\@clipfusetrue
+ \Put@Direct(171,103){\setatombondc}%
+ }%
+ \else%
+ \yl@xdiff=-10\relax
+ \yl@ydiff=46\relax
+ \putratom{311}{-27}{\@memberb}% % right type
+ \Put@Line(201,79)(5,-3){100}% % single bond at 3
+ \fi\fi\fi\fi%
+ \fi\fi\fi%
+ \else%no clipping
+ \if\@tmpb S%single bond
+ \ifx\@tmpc\empty%
+ \yl@xdiff=-10\relax
+ \yl@ydiff=58\relax
+ \putratom{301}{-27}{\@memberb}% % right type
+ \Put@Line(171,103)(5,-3){120}% % single bond at 3
+ \else\if\@tmpc B%(B) beta
+ \yl@xdiff=-10\relax
+ \yl@ydiff=48\relax
+ \putratom{258}{-70}{\@memberb}% % right type
+ {%
+ \thicklines%
+ \Put@Line(171,103)(3,-5){72}% % single bond at 3
+ }%
+ \else\if\@tmpc A%(A) alpha
+ \yl@xdiff=-10\relax
+ \yl@ydiff=30\relax
+ \putratom{318}{74}{\@memberb}% % right type
+ \dotorline(171,103)(1,0){140}/(171,103)(311,103)%
+ \else\if\@tmpc u%(u) up --- (B) beta
+ \yl@xdiff=-10\relax
+ \yl@ydiff=30\relax
+ \putratom{318}{74}{\@memberb}% % right type
+ {%
+ \thicklines%
+ \Put@Line(171,103)(1,0){140}% % single bond at 3
+ }%
+ \else\if\@tmpc d%(d) down --- (A) alpha
+ \yl@xdiff=-10\relax
+ \yl@ydiff=48\relax
+ \putratom{258}{-70}{\@memberb}% % right type
+ \dotorline(171,103)(3,-5){72}/(171,103)(243,-17)%
+ \else\if\@tmpc b%(b) beta
+ \yl@xdiff=-10\relax
+ \yl@ydiff=48\relax
+ \putratom{258}{-70}{\@memberb}% % right type
+ \Put@Line(171,103)(3,-5){72}% % single bond at 3
+ \else\if\@tmpc a%(a) alpha
+ \yl@xdiff=-10\relax
+ \yl@ydiff=30\relax
+ \putratom{318}{74}{\@memberb}% % right type
+ \Put@Line(171,103)(1,0){140}% % single bond at 3
+ \else\if\@tmpc V%(V) beta undefined
+ \yl@xdiff=-10\relax
+ \yl@ydiff=48\relax
+ \putratom{258}{-70}{\@memberb}% % right type
+ {%
+ \WaveBonds%
+ \Put@Line(171,103)(3,-5){72}% % single bond at 3
+ }%
+ \else\if\@tmpc U%(U) alpha undefined
+ \yl@xdiff=-10\relax
+ \yl@ydiff=30\relax
+ \putratom{318}{74}{\@memberb}% % right type
+ {%
+ \WaveBonds%
+ \Put@Line(171,103)(1,0){140}% % single bond at 3
+ }%
+ \fi\fi\fi\fi\fi%
+ \fi\fi\fi\fi
+ \else\if\@tmpb D%double bond
+ \yl@xdiff=-10\relax
+ \yl@ydiff=65\relax
+ \putratom{301}{-27}{\@memberb}% % right type
+ \Put@Line(168,96)(5,-3){120}% % double bond at 3
+ \Put@Line(174,121)(5,-3){120}% % double bond at 3
+ \else\if\@tmpb B%beta single bond
+ \yl@xdiff=-10\relax
+ \yl@ydiff=58\relax
+ \putratom{301}{-27}{\@memberb}% % right type
+ {%
+ \thicklines%
+ \Put@Line(171,103)(5,-3){120}% % single bond at 3
+ }%
+ \else\if\@tmpb A%alpha single bond
+ \yl@xdiff=-10\relax
+ \yl@ydiff=58\relax
+ \putratom{301}{-27}{\@memberb}% % right type
+ \dotorline(171,103)(5,-3){120}/(171,103)(291,31)%
+ \else\if\@tmpb U%undefined single bond
+ \yl@xdiff=-10\relax
+ \yl@ydiff=58\relax
+ \putratom{301}{-27}{\@memberb}% % right type
+ {%
+ \WaveBonds%
+ \Put@Line(171,103)(5,-3){120}% % single wave bond at 3
+ }%
+ \else\if\@tmpb F%fused bond
+ {\let\@tmpb=\@tmpc\@clipfusefalse
+ \Put@Direct(171,103){\setatombondf}%
+ }%
+ \else\if\@tmpb G%fused bond
+ {\let\@tmpb=\@tmpc\@clipfusefalse
+ \Put@Direct(171,103){\setatombondc}%
+ }%
+ \else%
+ \yl@xdiff=-10\relax
+ \yl@ydiff=58\relax
+ \putratom{301}{-27}{\@memberb}% % right type
+ \Put@Line(171,103)(5,-3){120}% % single bond at 3
+ \fi\fi\fi\fi%
+ \fi\fi\fi
+ \fi
+}% end of \@substc
+\def\@substd{%
+\if@clip %clipping
+ \if\@tmpb S%single bond
+ \ifx\@tmpc\empty%
+ \yl@xdiff=31\relax
+ \yl@ydiff=90\relax
+ \putlratom{-31}{-230}{\@memberb}% % left or right type
+ \Put@Line(0,-30)(0,-1){110}% % single bond at 4
+ \else\if\@tmpc B%(B) beta
+ \yl@xdiff=-36\relax
+ \yl@ydiff=100\relax
+ \putlatom{-42}{-230}{\@memberb}% % left type
+ {%
+ \thicklines%
+ \Put@Line(-18,-30)(-3,-5){60}% % single bond at 4
+ }%
+ \else\if\@tmpc A%(A) alpha
+ \yl@xdiff=37\relax
+ \yl@ydiff=100\relax
+ \putratom{41}{-230}{\@memberb}% % right type
+ \dotorline(18,-30)(3,-5){60}/(18,-30)(72,-120)%
+ \else\if\@tmpc u%(u) up --- (B) beta
+ \yl@xdiff=37\relax
+ \yl@ydiff=100\relax
+ \putratom{41}{-230}{\@memberb}% % right type
+ {%
+ \thicklines%
+ \Put@Line(18,-30)(3,-5){60}% % single bond at 4
+ }%
+ \else\if\@tmpc d%(d) down --- (A) alpha
+ \yl@xdiff=-36\relax
+ \yl@ydiff=100\relax
+ \putlatom{-42}{-230}{\@memberb}% % left type
+ \dotorline(-18,-30)(-3,-5){60}/(-18,-30)(-78,-130)%
+ \else\if\@tmpc b%(b) beta
+ \yl@xdiff=-36\relax
+ \yl@ydiff=100\relax
+ \putlatom{-42}{-230}{\@memberb}% % left type
+ \Put@Line(-18,-30)(-3,-5){60}% % single bond at 4
+ \else\if\@tmpc a%(a) alpha
+ \yl@xdiff=37\relax
+ \yl@ydiff=100\relax
+ \putratom{41}{-230}{\@memberb}% % right type
+ \Put@Line(18,-30)(3,-5){60}% % single bond at 4
+ \else\if\@tmpc V%(V) beta undefined
+ \yl@xdiff=-36\relax
+ \yl@ydiff=100\relax
+ \putlatom{-42}{-230}{\@memberb}% % left type
+ {%
+ \WaveBonds%
+ \Put@Line(-18,-30)(-3,-5){60}% % single bond at 4
+ }%
+ \else\if\@tmpc U%(U) alpha undefined
+ \yl@xdiff=37\relax
+ \yl@ydiff=100\relax
+ \putratom{41}{-230}{\@memberb}% % right type
+ {%
+ \WaveBonds%
+ \Put@Line(18,-30)(3,-5){60}% % single bond at 4
+ }%
+ \fi\fi\fi\fi\fi%
+ \fi\fi\fi\fi
+ \else\if\@tmpb D%double bond
+ \yl@xdiff=31\relax
+ \yl@ydiff=90\relax
+ \putlratom{-31}{-230}{\@memberb}% % left or right type
+ \Put@Line(-12,-30)(0,-1){110}% % double bond at 4
+ \Put@Line(12,-30)(0,-1){110}% % double bond at 4
+ \else\if\@tmpb B%beta single bond
+ \yl@xdiff=31\relax
+ \yl@ydiff=90\relax
+ \putlratom{-31}{-230}{\@memberb}% % left or right type
+ {%
+ \thicklines%
+ \Put@Line(0,-30)(0,-1){110}% % single bond at 4
+ }%
+ \else\if\@tmpb A%alpha single bond
+ \yl@xdiff=31\relax
+ \yl@ydiff=90\relax
+ \putlratom{-31}{-230}{\@memberb}% % left or right type
+ \dotorline(0,-30)(0,-1){110}/(0,-30)(0,-140)%
+ \else\if\@tmpb U%undefined single bond
+ \yl@xdiff=31\relax
+ \yl@ydiff=90\relax
+ \putlratom{-31}{-230}{\@memberb}% % right type
+ {%
+ \WaveBonds%
+ \Put@Line(0,-30)(0,-1){110}% % single wave bond at 4
+ }%
+ \else\if\@tmpb F%fused bond
+ {\let\@tmpb=\@tmpc\@clipfusetrue
+ \Put@Direct(0,0){\setatombonde}%
+ }%
+ \else\if\@tmpb G%fused bond
+ {\let\@tmpb=\@tmpc\@clipfusetrue
+ \Put@Direct(0,0){\setatombondg}%
+ }%
+ \else%
+ \yl@xdiff=31\relax
+ \yl@ydiff=90\relax
+ \putlratom{-31}{-230}{\@memberb}% % left or right type
+ \Put@Line(0,-30)(0,-1){110}% % single bond at 4
+ \fi\fi\fi\fi%
+ \fi\fi\fi%
+ \else%no clipping
+ \if\@tmpb S%single bond
+ \ifx\@tmpc\empty%
+ \yl@xdiff=31\relax
+ \yl@ydiff=90\relax
+ \putlratom{-31}{-230}{\@memberb}% % left or right type
+ \Put@Line(0,0)(0,-1){140}% % single bond at 4
+ \else\if\@tmpc B%(B) beta
+ \yl@xdiff=-30\relax
+ \yl@ydiff=110\relax
+ \putlatom{-42}{-230}{\@memberb}% % left type
+ {%
+ \thicklines%
+ \Put@Line(0,0)(-3,-5){72}% % single bond at 4
+ }%
+ \else\if\@tmpc A%(A) alpha
+ \yl@xdiff=31\relax
+ \yl@ydiff=110\relax
+ \putratom{41}{-230}{\@memberb}% % right type
+ \dotorline(0,0)(3,-5){72}/(0,0)(72,-120)%
+ \else\if\@tmpc u%(u) up --- (B) beta
+ \yl@xdiff=31\relax
+ \yl@ydiff=110\relax
+ \putratom{41}{-230}{\@memberb}% % right type
+ {%
+ \thicklines%
+ \Put@Line(0,0)(3,-5){72}% % single bond at 4
+ }%
+ \else\if\@tmpc d%(d) down --- (A) alpha
+ \yl@xdiff=-30\relax
+ \yl@ydiff=110\relax
+ \putlatom{-42}{-230}{\@memberb}% % left type
+ \dotorline(0,0)(-3,-5){72}/(0,0)(-72,-120)%
+ \else\if\@tmpc b%(b) beta
+ \yl@xdiff=-30\relax
+ \yl@ydiff=110\relax
+ \putlatom{-42}{-230}{\@memberb}% % left type
+ \Put@Line(0,0)(-3,-5){72}% % single bond at 4
+ \else\if\@tmpc a%(a) alpha
+ \yl@xdiff=31\relax
+ \yl@ydiff=110\relax
+ \putratom{41}{-230}{\@memberb}% % right type
+ \Put@Line(0,0)(3,-5){72}% % single bond at 4
+ \else\if\@tmpc V%(V) beta undefined
+ \yl@xdiff=-30\relax
+ \yl@ydiff=110\relax
+ \putlatom{-42}{-230}{\@memberb}% % left type
+ {%
+ \WaveBonds%
+ \Put@Line(0,0)(-3,-5){72}% % single bond at 4
+ }%
+ \else\if\@tmpc U%(U) alpha undefined
+ \yl@xdiff=31\relax
+ \yl@ydiff=110\relax
+ \putratom{41}{-230}{\@memberb}% % right type
+ {%
+ \WaveBonds%
+ \Put@Line(0,0)(3,-5){72}% % single bond at 4
+ }%
+ \fi\fi\fi\fi\fi%
+ \fi\fi\fi\fi%
+ \else\if\@tmpb D%double bond
+ \yl@xdiff=31\relax
+ \yl@ydiff=90\relax
+ \putlratom{-31}{-230}{\@memberb}% % left or right type
+ \Put@Line(-12,0)(0,-1){140}% % double bond at 4
+ \Put@Line(12,0)(0,-1){140}% % double bond at 4
+ \else\if\@tmpb B%beta single bond
+ \yl@xdiff=31\relax
+ \yl@ydiff=90\relax
+ \putlratom{-31}{-230}{\@memberb}% % left or right type
+ {%
+ \thicklines%
+ \Put@Line(0,0)(0,-1){140}% % single bond at 4
+ }%
+ \else\if\@tmpb A%alpha single bond
+ \yl@xdiff=31\relax
+ \yl@ydiff=90\relax
+ \putlratom{-31}{-230}{\@memberb}% % left or right type
+ \dotorline(0,0)(0,-1){140}/(0,0)(0,-140)%
+ \else\if\@tmpb U%undefined single bond
+ \yl@xdiff=31\relax
+ \yl@ydiff=90\relax
+ \putlratom{-31}{-230}{\@memberb}% % right type
+ {%
+ \WaveBonds%
+ \Put@Line(0,0)(0,-1){140}% % single wave bond at 4
+ }%
+ \else\if\@tmpb F%fused bond
+ {\let\@tmpb=\@tmpc\@clipfusefalse
+ \Put@Direct(0,0){\setatombonde}%
+ }%
+ \else\if\@tmpb G%fused bond
+ {\let\@tmpb=\@tmpc\@clipfusefalse
+ \Put@Direct(0,0){\setatombondg}%
+ }%
+ \else%
+ \yl@xdiff=31\relax
+ \yl@ydiff=90\relax
+ \putlratom{-31}{-230}{\@memberb}% % left or right type
+ \Put@Line(0,0)(0,-1){140}% % single bond at 4
+ \fi\fi\fi\fi%
+ \fi\fi\fi%
+ \fi}%end of \@substd
+\def\@subste{%
+ \if@eclip%clipping
+ \if\@tmpb S%single bond
+ \ifx\@tmpc\empty%
+ \yl@xdiff=10\relax
+ \yl@ydiff=46\relax
+ \putlatom{-311}{-27}{\@memberb}% % left type
+ \Put@Line(-201,79)(-5,-3){110}% % single bond at 5
+ \else\if\@tmpc B%(B) beta
+ \yl@xdiff=7\relax
+ \yl@ydiff=38\relax
+ \putlatom{-268}{-80}{\@memberb}% % left type
+ {%
+ \thicklines%
+ \Put@Line(-201,48)(-3,-5){60}% % single bond at 5
+ }%
+ \else\if\@tmpc A%(A) alpha
+ \yl@xdiff=17\relax
+ \yl@ydiff=29\relax
+ \putlatom{-318}{74}{\@memberb}% % left type
+ \dotorline(-201,103)(-1,0){100}/(-201,103)(-301,103)%
+ \else\if\@tmpc u% (u) up --- (B) beta
+ \yl@xdiff=17\relax
+ \yl@ydiff=29\relax
+ \putlatom{-318}{74}{\@memberb}% % left type
+ {%
+ \thicklines%
+ \Put@Line(-201,103)(-1,0){100}% % single bond at 5
+ }%
+ \else\if\@tmpc d% (d) down --- (A) alpha
+ \yl@xdiff=7\relax
+ \yl@ydiff=38\relax
+ \putlatom{-268}{-80}{\@memberb}% % left type
+ \dotorline(-201,48)(-3,-5){60}/(-201,48)(-261,-52)%
+ \else\if\@tmpc b%(b) beta
+ \yl@xdiff=7\relax
+ \yl@ydiff=38\relax
+ \putlatom{-268}{-80}{\@memberb}% % left type
+ \Put@Line(-201,48)(-3,-5){60}% % single bond at 5
+ \else\if\@tmpc a%(a) alpha
+ \yl@xdiff=17\relax
+ \yl@ydiff=29\relax
+ \putlatom{-318}{74}{\@memberb}% % left type
+ \Put@Line(-201,103)(-1,0){100}% % single bond at 5
+ \else\if\@tmpc V%(V) beta undefined
+ \yl@xdiff=7\relax
+ \yl@ydiff=38\relax
+ \putlatom{-268}{-80}{\@memberb}% % left type
+ {%
+ \WaveBonds%
+ \Put@Line(-201,48)(-3,-5){60}% % single bond at 5
+ }%
+ \else\if\@tmpc U%(U) alpha undefined
+ \yl@xdiff=17\relax
+ \yl@ydiff=29\relax
+ \putlatom{-318}{74}{\@memberb}% % left type
+ {%
+ \WaveBonds%
+ \Put@Line(-201,103)(-1,0){100}% % single bond at 5
+ }%
+ \fi\fi\fi\fi\fi%
+ \fi\fi\fi\fi%
+ \else\if\@tmpb D%double bond
+ \yl@xdiff=10\relax
+ \yl@ydiff=62\relax
+ \putlatom{-311}{-27}{\@memberb}% % left type
+ \Put@Line(-194,76)(-5,-3){100}% % double bond at 5
+ \Put@Line(-200,101)(-5,-3){100}% % double bond at 5
+ \else\if\@tmpb B%beta single bond
+ \yl@xdiff=10\relax
+ \yl@ydiff=46\relax
+ \putlatom{-311}{-27}{\@memberb}% % left type
+ {%
+ \thicklines%
+ \Put@Line(-201,79)(-5,-3){100}% % single bond at 5
+ }%
+ \else\if\@tmpb A%alpha single bond
+ \yl@xdiff=10\relax
+ \yl@ydiff=46\relax
+ \putlatom{-311}{-27}{\@memberb}% % left type
+ \dotorline(-201,79)(-5,-3){100}/(-201,79)(-301,21)%
+ \else\if\@tmpb U%undefined single bond
+ \yl@xdiff=10\relax
+ \yl@ydiff=46\relax
+ \putlatom{-311}{-27}{\@memberb}% % right type
+ {%
+ \WaveBonds%
+ \Put@Line(-220,79)(-5,-3){100}% % single wave bond at 5
+ }%
+ \else\if\@tmpb F%fused bond
+ {\let\@tmpb=\@tmpc\@clipfusetrue
+ \Put@Direct(-171,103){\setatombondc}%
+ }%
+ \else\if\@tmpb G%fused bond
+ {\let\@tmpb=\@tmpc\@clipfusetrue
+ \Put@Direct(-171,103){\setatombondd}%
+ }%
+ \else%
+ \yl@xdiff=10\relax
+ \yl@ydiff=46\relax
+ \putlatom{-311}{-27}{\@memberb}% % left type
+ \Put@Line(-201,79)(-5,-3){100}% % single bond at 5
+ \fi\fi\fi\fi%
+ \fi\fi\fi%
+\else%no clipping
+ \if\@tmpb S%single bond
+ \ifx\@tmpc\empty%
+ \yl@xdiff=10\relax
+ \yl@ydiff=56\relax
+ \putlatom{-301}{-27}{\@memberb}% % left type
+ \Put@Line(-171,103)(-5,-3){120}% % single bond at 5
+ \else\if\@tmpc B%(B) beta
+ \yl@xdiff=15\relax
+ \yl@ydiff=63\relax
+ \putlatom{-258}{-70}{\@memberb}% % left type
+ {%
+ \thicklines%
+ \Put@Line(-171,103)(-3,-5){72}% % single bond at 5
+ }%
+ \else\if\@tmpc A%(A) alpha
+ \yl@xdiff=15\relax
+ \yl@ydiff=29\relax
+ \putlatom{-326}{74}{\@memberb}% % left type
+ \dotorline(-171,103)(-1,0){140}/(-171,103)(-311,103)%
+ \else\if\@tmpc u%(u) up --- (B) beta
+ \yl@xdiff=15\relax
+ \yl@ydiff=29\relax
+ \putlatom{-326}{74}{\@memberb}% % left type
+ {%
+ \thicklines%
+ \Put@Line(-171,103)(-1,0){140}% % single bond at 5
+ }%
+ \else\if\@tmpc d%(d) down --- (A) alpha
+ \yl@xdiff=15\relax
+ \yl@ydiff=63\relax
+ \putlatom{-258}{-70}{\@memberb}% % left type
+ \dotorline(-171,103)(-3,-5){72}/(-171,103)(-243,-17)%
+ \else\if\@tmpc b%(b) beta
+ \yl@xdiff=15\relax
+ \yl@ydiff=63\relax
+ \putlatom{-258}{-70}{\@memberb}% % left type
+ \Put@Line(-171,103)(-3,-5){72}% % single bond at 5
+ \else\if\@tmpc a%(a) alpha
+ \yl@xdiff=15\relax
+ \yl@ydiff=29\relax
+ \putlatom{-326}{74}{\@memberb}% % left type
+ \Put@Line(-171,103)(-1,0){140}% % single bond at 5
+ \else\if\@tmpc V%(V) beta undefined
+ \yl@xdiff=15\relax
+ \yl@ydiff=63\relax
+ \putlatom{-258}{-70}{\@memberb}% % left type
+ {%
+ \WaveBonds%
+ \Put@Line(-171,103)(-3,-5){72}% % single bond at 5
+ }%
+ \else\if\@tmpc U%(U) alpha undefined
+ \yl@xdiff=15\relax
+ \yl@ydiff=29\relax
+ \putlatom{-326}{74}{\@memberb}% % left type
+ {%
+ \WaveBonds%
+ \Put@Line(-171,103)(-1,0){140}% % single bond at 5
+ }%
+ \fi\fi\fi\fi\fi%
+ \fi\fi\fi\fi
+ \else\if\@tmpb D%double bond
+ \yl@xdiff=10\relax
+ \yl@ydiff=62\relax
+ \putlatom{-301}{-27}{\@memberb}% % left type
+ \Put@Line(-168,96)(-5,-3){120}% % double bond at 5
+ \Put@Line(-174,121)(-5,-3){120}% % double bond at 5
+ \else\if\@tmpb B%beta single bond
+ \yl@xdiff=10\relax
+ \yl@ydiff=56\relax
+ \putlatom{-301}{-27}{\@memberb}% % left type
+ {%
+ \thicklines%
+ \Put@Line(-171,103)(-5,-3){120}% % single bond at 5
+ }%
+ \else\if\@tmpb A%alpha single bond
+ \yl@xdiff=-10\relax
+ \yl@ydiff=56\relax
+ \putlatom{-301}{-27}{\@memberb}% % left type
+ \dotorline(-171,103)(-5,-3){120}/(-171,103)(-311,31)%
+ \else\if\@tmpb U%undefined single bond
+ \yl@xdiff=-10\relax
+ \yl@ydiff=56\relax
+ \putlatom{-301}{-27}{\@memberb}% % right type
+ {%
+ \WaveBonds%
+ \Put@Line(-171,103)(-5,-3){120}% % single wave bond at 5
+ }%
+ \else\if\@tmpb F%fused bond
+ {\let\@tmpb=\@tmpc\@clipfusefalse
+ \Put@Direct(-171,103){\setatombondc}%
+ }%
+ \else\if\@tmpb G%fused bond
+ {\let\@tmpb=\@tmpc\@clipfusefalse
+ \Put@Direct(-171,103){\setatombondd}%
+ }%
+ \else%
+ \yl@xdiff=10\relax
+ \yl@ydiff=56\relax
+ \putlatom{-301}{-27}{\@memberb}% % left type
+ \Put@Line(-171,103)(-5,-3){120}%% single bond at 5
+ \fi\fi\fi\fi%
+ \fi\fi\fi%
+ \fi}% end of \@subste
+\def\@substf{%
+ \if@fclip %clipping
+ \if\@tmpb S%single bond
+ \ifx\@tmpc\empty%
+ \yl@xdiff=10\relax
+ \yl@ydiff=24\relax
+ \putlatom{-311}{363}{\@memberb}% % left type
+ \Put@Line(-201,327)(-5,3){100}% % single bond at 6
+ \else\if\@tmpc B%(B) beta
+ \yl@xdiff=8\relax
+ \yl@ydiff=38\relax
+ \putlatom{-268}{420}{\@memberb}% % left type
+ {%
+ \thicklines%
+ \Put@Line(-201,358)(-3,5){60}% % single bond at 6
+ }%
+ \else\if\@tmpc A%(A) alpha
+ \yl@xdiff=17\relax
+ \yl@ydiff=23\relax
+ \putlatom{-318}{280}{\@memberb}% % left type
+ \dotorline(-201,303)(-1,0){100}/(-201,303)(-301,303)%
+ \else\if\@tmpc u%(u) up --- (B) beta
+ \yl@xdiff=17\relax
+ \yl@ydiff=23\relax
+ \putlatom{-318}{280}{\@memberb}% % left type
+ {%
+ \thicklines%
+ \Put@Line(-201,303)(-1,0){100}% % single bond at 6
+ }%
+ \else\if\@tmpc d%(d) down --- (A) alpha
+ \yl@xdiff=8\relax
+ \yl@ydiff=38\relax
+ \putlatom{-268}{420}{\@memberb}% % left type
+ \dotorline(-201,358)(-3,5){60}/(-201,358)(-261,458)%
+ \else\if\@tmpc b%(b) beta
+ \yl@xdiff=8\relax
+ \yl@ydiff=38\relax
+ \putlatom{-268}{420}{\@memberb}% % left type
+ \Put@Line(-201,358)(-3,5){60}% % single bond at 6
+ \else\if\@tmpc a%(a) alpha
+ \yl@xdiff=17\relax
+ \yl@ydiff=23\relax
+ \putlatom{-318}{280}{\@memberb}% % left type
+ \Put@Line(-201,303)(-1,0){100}% % single bond at 6
+ \else\if\@tmpc V%(V) beta undefined
+ \yl@xdiff=8\relax
+ \yl@ydiff=38\relax
+ \putlatom{-268}{420}{\@memberb}% % left type
+ {%
+ \WaveBonds%
+ \Put@Line(-201,358)(-3,5){60}% % single bond at 6
+ }%
+ \else\if\@tmpc U%(U) alpha undefined
+ \yl@xdiff=17\relax
+ \yl@ydiff=23\relax
+ \putlatom{-318}{280}{\@memberb}% % left type
+ {%
+ \WaveBonds%
+ \Put@Line(-201,303)(-1,0){100}% % single bond at 6
+ }%
+ \fi\fi\fi\fi\fi%
+ \fi\fi\fi\fi
+ \else\if\@tmpb D%double bond
+ \yl@xdiff=10\relax
+ \yl@ydiff=6\relax
+ \putlatom{-311}{363}{\@memberb}% % left type
+ \Put@Line(-194,331)(-5,3){100}% % double bond at 6
+ \Put@Line(-200,305)(-5,3){100}% % double bond at 6
+ \else\if\@tmpb B%beta single bond
+ \yl@xdiff=10\relax
+ \yl@ydiff=24\relax
+ \putlatom{-311}{363}{\@memberb}% % left type
+ {%
+ \thicklines%
+ \Put@Line(-201,327)(-5,3){100}% % single bond at 6
+ }%
+ \else\if\@tmpb A%alpha single bond
+ \yl@xdiff=10\relax
+ \yl@ydiff=24\relax
+ \putlatom{-311}{363}{\@memberb}% % left type
+ \dotorline(-201,327)(-5,3){100}/(-201,327)(-301,387)%
+ \else\if\@tmpb U%undefined single bond
+ \yl@xdiff=10\relax
+ \yl@ydiff=24\relax
+ \putlatom{-311}{363}{\@memberb}% % right type
+ {%
+ \WaveBonds%
+ \Put@Line(-211,327)(-5,3){100}% % single wave bond at 6
+ }%
+ \else\if\@tmpb F%fused bond
+ {\let\@tmpb=\@tmpc\@clipfusetrue
+ \Put@Direct(-171,303){\setatombondg}%
+ }%
+ \else\if\@tmpb G%fused bond
+ {\let\@tmpb=\@tmpc\@clipfusetrue
+ \Put@Direct(-171,303){\setatombonda}%
+ }%
+ \else%
+ \yl@xdiff=10\relax
+ \yl@ydiff=24\relax
+ \putlatom{-311}{363}{\@memberb}% % left type
+ \Put@Line(-201,327)(-5,3){100}% % single bond at 6
+ \fi\fi\fi\fi%
+ \fi\fi\fi
+\else%no clipping
+ \if\@tmpb S%single bond
+ \ifx\@tmpc\empty%
+ \yl@xdiff=10\relax
+ \yl@ydiff=12\relax
+ \putlatom{-301}{363}{\@memberb}% % left type
+ \Put@Line(-171,303)(-5,3){120}% % single bond at 6
+ \else\if\@tmpc B%(B) beta
+ \yl@xdiff=15\relax
+ \yl@ydiff=13\relax
+ \putlatom{-258}{410}{\@memberb}% % left type
+ {%
+ \thicklines%
+ \Put@Line(-171,303)(-3,5){72}% % single bond at 6
+ }%
+ \else\if\@tmpc A%(A) alpha
+ \yl@xdiff=15\relax
+ \yl@ydiff=23\relax
+ \putlatom{-326}{280}{\@memberb}% % left type
+ \dotorline(-171,303)(-1,0){140}/(-171,303)(-311,303)%
+ \else\if\@tmpc u%(u) up --- (B) beta
+ \yl@xdiff=15\relax
+ \yl@ydiff=23\relax
+ \putlatom{-326}{280}{\@memberb}% % left type
+ {%
+ \thicklines%
+ \Put@Line(-171,303)(-1,0){140}% % single bond at 6
+ }%
+ \else\if\@tmpc d%(d) down --- (A) alpha
+ \yl@xdiff=15\relax
+ \yl@ydiff=13\relax
+ \putlatom{-258}{410}{\@memberb}% % left type
+ \dotorline(-171,303)(-3,5){72}/(-171,303)(-243,423)%
+ \else\if\@tmpc b%(b) beta
+ \yl@xdiff=15\relax
+ \yl@ydiff=13\relax
+ \putlatom{-258}{410}{\@memberb}% % left type
+ \Put@Line(-171,303)(-3,5){72}% % single bond at 6
+ \else\if\@tmpc a%(a) alpha
+ \yl@xdiff=15\relax
+ \yl@ydiff=23\relax
+ \putlatom{-326}{280}{\@memberb}% % left type
+ \Put@Line(-171,303)(-1,0){140}% % single bond at 6
+ \else\if\@tmpc V%(V) beta undefined
+ \yl@xdiff=15\relax
+ \yl@ydiff=13\relax
+ \putlatom{-258}{410}{\@memberb}% % left type
+ {%
+ \WaveBonds%
+ \Put@Line(-171,303)(-3,5){72}% % single bond at 6
+ }%
+ \else\if\@tmpc U%(U) alpha undefined
+ \yl@xdiff=15\relax
+ \yl@ydiff=23\relax
+ \putlatom{-326}{280}{\@memberb}% % left type
+ {%
+ \WaveBonds%
+ \Put@Line(-171,303)(-1,0){140}% % single bond at 6
+ }%
+ \fi\fi\fi\fi\fi%
+ \fi\fi\fi\fi%
+ \else\if\@tmpb D%double bond
+ \yl@xdiff=10\relax
+ \yl@ydiff=6\relax
+ \putlatom{-301}{363}{\@memberb}% % left type
+ \Put@Line(-168,310)(-5,3){120}% % double bond at 6
+ \Put@Line(-174,284)(-5,3){120}% % double bond at 6
+ \else\if\@tmpb B%beta single bond
+ \yl@xdiff=10\relax
+ \yl@ydiff=12\relax
+ \putlatom{-301}{363}{\@memberb}% % left type
+ {%
+ \thicklines%
+ \Put@Line(-171,303)(-5,3){120}% % single bond at 6
+ }%
+ \else\if\@tmpb A%alpha single bond
+ \yl@xdiff=-10\relax
+ \yl@ydiff=12\relax
+ \putlatom{-301}{363}{\@memberb}% % left type
+ \dotorline(-171,303)(-5,3){120}/(-171,303)(-311,375)%
+ \else\if\@tmpb U%undefined single bond
+ \yl@xdiff=-10\relax
+ \yl@ydiff=12\relax
+ \putlatom{-301}{363}{\@memberb}% % right type
+ {%
+ \WaveBonds%
+ \Put@Line(-171,303)(-5,3){120}% % single wave bond at 6
+ }%
+ \else\if\@tmpb F%fused bond
+ {\let\@tmpb=\@tmpc\@clipfusefalse
+ \Put@Direct(-171,303){\setatombondg}%
+ }%
+ \else\if\@tmpb G%fused bond
+ {\let\@tmpb=\@tmpc\@clipfusefalse
+ \Put@Direct(-171,303){\setatombonda}%
+ }%
+ \else%
+ \yl@xdiff=10\relax
+ \yl@ydiff=12\relax
+ \putlatom{-301}{363}{\@memberb}% % left type
+ \Put@Line(-171,303)(-5,3){120}% % single bond at 6
+ \fi\fi\fi\fi%
+ \fi\fi\fi
+\fi}% end of \@substf
+\RequirePackage{xcolor}
+\def\bondsubstcolor{}
+\def\addbscolor#1#2{#2\gdef\bondsubstcolor{#1}}
+\newif\ifbscolor
+\def\setbscolor{\addbscolor{}{}%
+\edef\@tmptmpb{\@tmpb}\edef\@tmptmpc{\@tmpc}%store original values
+\ifbscolor\setbox0=\hbox{\@memberb}\bondsubstcolor\setbox0=\hbox{}\fi
+\edef\@tmpb{\@tmptmpb}\edef\@tmpc{\@tmptmpc}%recover the original values
+}%
+\def\setBScolor#1{\begingroup\setbscolor#1\addbscolor{}{}\endgroup}%
+\def\bscolorswON{\bscolortrue}
+\def\bscolorswOFF{\bscolorfalse}
+\bscolorswON%default bond coloring
+\def\defineXyMcolor#1#2#3{%
+\definecolor{#1}{#2}{#3}%
+\@ifundefined{psset}{%
+\expandafter\def\csname#1\endcsname{\color{#1}}}%
+{\expandafter\def\csname#1\endcsname{\color{#1}%
+\psset{linecolor=#1}}}}
+\def\XyMcolor#1{%
+\@ifnextchar[{\@XyMcolor{#1}}{\@XyMcolor{#1}[]}}
+\def\@XyMcolor#1[#2]#3{%
+\edef\tempColorModel{#2}%
+\ifx\tempColorModel\@empty\colorlet{#1}{#3}\else
+\colorlet{#1}[#2]{#3}\fi
+\@ifundefined{psset}{%
+\expandafter\def\csname#1\endcsname{\color{#1}}}%
+{\expandafter\def\csname#1\endcsname{\color{#1}%
+\psset{linecolor=#1}}}}
+\def\setsixringv#1#2#3#4#5{%
+\@forsemicol\member:=#1\do{%
+\ifx\member\empty\else%
+\expandafter\@m@mb@r\member;\relax%
+\expandafter\threech@r\@membera{}{}%
+\ifx\@memberb\@yl\else
+\ifnum#5 < 0\relax%
+\@tmpaa=-\@tmpa\relax \advance\@tmpaa by#2\relax%
+\else\@tmpaa=\@tmpa\relax \advance\@tmpaa by#2\relax \fi
+\ifnum\@tmpaa >#3\relax%
+\ifnum\@tmpaa <#4\relax%
+\ifcase\@tmpaa%0 omit
+ \or{\setbscolor\@substa\addbscolor{}{}}%% subst. on 1
+ \or{\setbscolor\@substb\addbscolor{}{}}%% subst. on 2
+ \or{\setbscolor\@substc\addbscolor{}{}}%% subst. on 3
+ \or{\setbscolor\@substd\addbscolor{}{}}%% subst. on 4
+ \or{\setbscolor\@subste\addbscolor{}{}}%% subst. on 5
+ \or{\setbscolor\@substf\addbscolor{}{}}%% subst. on 6
+\fi%end of ifcase
+\fi%
+\fi\fi\fi}}%
+\def\ylfusedposition#1#2#3#4#5{%
+\@@ylswfalse%\@reset@ylsw
+\@forsemicol\member:=#1\do{%
+\if@@ylsw\else%
+\ifx\member\empty\else%
+\expandafter\@m@mb@r\member;\relax%
+\expandafter\threech@r\@membera{}{}%
+\ifx\@memberb\@yl\relax\@@ylswtrue\else\@@ylswfalse\fi
+\if@@ylsw
+\ifnum#5<0\relax%
+\@tmpaa=-\@tmpa\relax\advance\@tmpaa by #2\relax%
+\@fused@linktrue
+\else\@tmpaa=\@tmpa\relax\advance\@tmpaa by #2\relax
+\@fused@linkfalse\fi%
+\ifnum\@tmpaa >#3\relax%
+\ifnum\@tmpaa <#4\relax%
+\ifcase\@tmpaa%
+ \if\@tmpb F%single bond at F (fused position)
+ \def\@ylii{-171}\def\@yli{-303}\@ylswtrue%\@ylatrue% subst. on 0
+ \else\if\@tmpb G%single bond at G (fused position)
+ \def\@ylii{-171}\def\@yli{-103}\@ylswtrue%\@ylatrue% subst. on 0
+ \fi\fi%
+\or% subst. on 1 F == (0,406), G == (171,303) for \@fused@linkfalse
+ % subst. on 1 G == (0,406), F == (171,303) for \@fused@linktrue
+\if@fused@link
+ \if\@tmpb G%single bond at F (5,-3) fusion
+ \def\@ylii{0}\def\@yli{-406}\@ylswtrue%\@ylatrue% subst. on 1
+ \else\if\@tmpb F%single bond at G
+ \def\@ylii{-171}\def\@yli{-303}\@ylswtrue%\@ylatrue% subst. on 1
+ \fi\fi%
+\else
+ \if\@tmpb F%single bond at F (5,-3) fusion
+ \def\@ylii{0}\def\@yli{-406}\@ylswtrue%\@ylatrue% subst. on 1
+ \else\if\@tmpb G%single bond at G
+ \def\@ylii{-171}\def\@yli{-303}\@ylswtrue%\@ylatrue% subst. on 1
+ \fi\fi%
+\fi
+\or% subst. on 2 F == (0,406), G == (-171,303) for \@fused@linkfalse
+ % subst. on 2 G == (0,406), F == (-171,303) for \@fused@linktrue
+\if@fused@link
+ \if\@tmpb G%single bond at (-5,-3) fusion
+ \def\@ylii{0}\def\@yli{-406}\@ylswtrue%\@ylatrue% subst. on 2
+ \else\if\@tmpb F%single bond at G
+ \def\@ylii{171}\def\@yli{-303}\@ylswtrue%\@ylatrue% subst. on 2
+ \fi\fi%
+\else
+ \if\@tmpb F%single bond at (-5,-3) fusion
+ \def\@ylii{0}\def\@yli{-406}\@ylswtrue%\@ylatrue% subst. on 2
+ \else\if\@tmpb G%single bond at G
+ \def\@ylii{171}\def\@yli{-303}\@ylswtrue%\@ylatrue% subst. on 2
+ \fi\fi%
+\fi
+\or %3 fused positions % G == (303,171) F == (103,171)
+ \if\@tmpb G%single bond at G (fused position)
+ \def\@ylii{-303}\def\@yli{-171}\@ylswtrue%\@ylatrue% subst. on 3
+ \else\if\@tmpb F%single bond at F (fused position)
+ \def\@ylii{-103}\def\@yli{-171}\@ylswtrue%\@ylatrue% subst. on 3
+ \fi\fi%
+\fi%end of ifcase
+\fi\fi\fi\fi\fi}}% end of \ylfusedposition
+\def\GFbonda{%
+ \if\@tmpb F%single bond at F (fused position)
+ \GFbonda@a
+ \else\if\@tmpb G%single bond at G (fused position)
+ \GFbonda@b
+ \fi\fi%
+}%end of GFbonda
+\def\GFbonda@a{%
+ \if\@tmpc B%beta single bond
+ \yl@xdiff=31\relax%171-140
+ \yl@ydiff=-17\relax%460-(303+140)
+ \putlratom{140}{460}{\@memberb}% % left or right type
+ {%
+ \thicklines%
+ \Put@Line(171,303)(0,1){140}% % single bond at F
+ }%
+ \else\if\@tmpc A%alpha single bond
+ \yl@xdiff=31\relax%171-140
+ \yl@ydiff=-17\relax%460-(303+140)
+ \putlratom{140}{460}{\@memberb}% % left or right type
+ \dotorline(171,303)(0,1){140}/(171,303)(171,443)%
+ \else\if\@tmpc U% unspecified single bond
+ \yl@xdiff=31\relax%171-140
+ \yl@ydiff=-17\relax%460-(303+140)
+ \putlratom{140}{460}{\@memberb}% % left or right type
+ {%
+ \WaveBonds%
+ \Put@Line(171,303)(0,1){140}% % single wave bond at 1
+ }%
+ \else\if\@tmpc S%beta single bond
+ \yl@xdiff=31\relax%171-140
+ \yl@ydiff=-17\relax%460-(303+140)
+ \putlratom{140}{460}{\@memberb}% % left or right type
+ \Put@Line(171,303)(0,1){140}% % single bond at F
+ \else\ifx\@tmpc\empty%beta single bond
+ \yl@xdiff=31\relax%171-140
+ \yl@ydiff=-17\relax%460-(303+140)
+ \putlratom{140}{460}{\@memberb}% % left or right type
+ \Put@Line(171,303)(0,1){140}% % single bond at F
+ \fi\fi\fi\fi\fi%
+}%
+\def\GFbonda@b{%
+ \if\@tmpc B%beta single bond
+ \yl@xdiff=31\relax%171-140
+ \yl@ydiff=90\relax%127-(140-103)
+ \putlratom{140}{-127}{\@memberb}% % left or right type
+ {%
+ \thicklines%
+ \Put@Line(171,103)(0,-1){140}% % single bond at G
+ }%
+ \else\if\@tmpc A%alpha single bond
+ \yl@xdiff=31\relax%171-140
+ \yl@ydiff=90\relax%127-(140-103)
+ \putlratom{140}{-127}{\@memberb}% % left or right type
+ \dotorline(171,103)(0,-1){140}/(171,103)(171,-37)%
+ \else\if\@tmpc U%beta single bond
+ \yl@xdiff=31\relax%171-140
+ \yl@ydiff=90\relax%127-(140-103)
+ \putlratom{140}{-127}{\@memberb}% % left or right type
+ {%
+ \WaveBonds%
+ \Put@Line(171,103)(0,-1){140}% % single wave bond at 1
+ }%
+ \else\if\@tmpc S%alpha single bond
+ \yl@xdiff=31\relax%171-140
+ \yl@ydiff=90\relax%127-(140-103)
+ \putlratom{140}{-127}{\@memberb}% % left or right type
+ \Put@Line(171,103)(0,-1){140}% % single bond at G
+ \else\ifx\@tmpc\empty%alpha single bond
+ \yl@xdiff=31\relax%171-140
+ \yl@ydiff=90\relax%127-(140-103)
+ \putlratom{140}{-127}{\@memberb}% % left or right type
+ \Put@Line(171,103)(0,-1){140}% % single bond at G
+ \fi\fi\fi\fi\fi%
+}%
+\def\GFbondb{%
+ \if@fused@link
+ \if\@tmpb G%single bond at G (5,-3) fusion
+ \GFbondb@a
+ \else\if\@tmpb F%single bond at F
+ \GFbondb@b
+ \fi\fi%
+ \else
+ \if\@tmpb F%single bond at F (5,-3) fusion
+ \GFbondb@a
+ \else\if\@tmpb G%single bond at G
+ \GFbondb@b
+ \fi\fi%
+ \fi
+}% end of \GFbondb
+\def\GFbondb@a{%
+ \if\@tmpc B%beta single bond
+ \yl@xdiff=10\relax%
+ \yl@ydiff=22\relax%
+ \putlatom{-130}{466}{\@memberb}% % left type
+ {%
+ \thicklines%
+ \Put@Line(0,406)(-5,3){120}% % single bond at F
+ }%
+ \else\if\@tmpc A%alpha single bond
+ \yl@xdiff=10\relax%
+ \yl@ydiff=22\relax%
+ \putlatom{-130}{466}{\@memberb}% % left type
+ \dotorline(0,406)(-5,3){120}/(0,406)(-120,478)%
+ \else\if\@tmpc U%unspecified single bond
+ \yl@xdiff=10\relax%
+ \yl@ydiff=22\relax%
+ \putlatom{-130}{466}{\@memberb}% % left type
+ {%
+ \WaveBonds%
+ \Put@Line(0,406)(-5,3){120}% % single bond at F
+ }%
+ \else\if\@tmpc S%beta single bond
+ \yl@xdiff=10\relax%
+ \yl@ydiff=22\relax%
+ \putlatom{-130}{466}{\@memberb}% % left type
+ \Put@Line(0,406)(-5,3){120}% % single bond at F
+ \else\ifx\@tmpc\empty%beta single bond
+ \yl@xdiff=10\relax%
+ \yl@ydiff=22\relax%
+ \putlatom{-130}{466}{\@memberb}% % left type
+ \Put@Line(0,406)(-5,3){120}% % single bond at F
+ \else\if\@tmpc D%beta single bond (downward)
+ \yl@xdiff=31\relax%
+ \yl@ydiff=90\relax%
+ \putlratom{-31}{176}{\@memberb}% % left or right type
+ {%
+ \thicklines%
+ \Put@Line(0,406)(0,-1){140}% % single bond at F
+ }%
+ \else\if\@tmpc C%alpha single bond (downward)
+ \yl@xdiff=31\relax%
+ \yl@ydiff=90\relax%
+ \putlratom{-31}{176}{\@memberb}% % left or right type
+ \dotorline(0,406)(0,-1){140}/(0,406)(0,266)%
+ \fi\fi\fi\fi\fi\fi\fi%
+}% end of \GFbondb@a
+\def\GFbondb@b{%
+ \if\@tmpc B%beta single bond
+ \yl@xdiff=-10\relax%
+ \yl@ydiff=58\relax%
+ \putratom{301}{173}{\@memberb}% % right type
+ {%
+ \thicklines%
+ \Put@Line(171,303)(5,-3){120}% % single bond at G
+ }%
+ \else\if\@tmpc A%alpha single bond
+ \yl@xdiff=-10\relax%
+ \yl@ydiff=58\relax%
+ \putratom{301}{173}{\@memberb}% % right type
+ \dotorline(171,303)(5,-3){120}/(171,303)(291,231)%
+ \else\if\@tmpc U%unspecified single bond
+ \yl@xdiff=-10\relax%
+ \yl@ydiff=58\relax%
+ \putratom{301}{173}{\@memberb}% % right type
+ {%
+ \WaveBonds%
+ \Put@Line(171,303)(5,-3){120}% % single bond at G
+ }%
+ \else\if\@tmpc S%alpha single bond
+ \yl@xdiff=-10\relax%
+ \yl@ydiff=58\relax%
+ \putratom{301}{173}{\@memberb}% % right type
+ \Put@Line(171,303)(5,-3){120}% % single bond at G
+ \else\ifx\@tmpc\empty%alpha single bond
+ \yl@xdiff=-10\relax%
+ \yl@ydiff=58\relax%
+ \putratom{301}{173}{\@memberb}% % right type
+ \Put@Line(171,303)(5,-3){120}% % single bond at G
+ \else\if\@tmpc D%beta single bond (upward)
+ \yl@xdiff=31\relax%
+ \yl@ydiff=-17\relax%
+ \putlratom{140}{460}{\@memberb}% % left or right type
+ {%
+ \thicklines%
+ \Put@Line(171,303)(0,1){140}% % single bond at G
+ }%
+ \else\if\@tmpc C%alpha single bond (upward)
+ \yl@xdiff=31\relax%
+ \yl@ydiff=-17\relax%
+ \putlratom{140}{460}{\@memberb}% % left or right type
+ \dotorline(171,303)(0,1){140}/(171,303)(171,443)%
+ \fi\fi\fi\fi\fi\fi\fi%
+}% end of \GFbondb@b
+\def\GFbondc{%
+\if@fused@link
+ \if\@tmpb G%single bond at (-5,-3) fusion
+ \GFbondc@a
+ \else\if\@tmpb F%single bond at F
+ \GFbondc@b
+ \fi\fi%
+\else
+ \if\@tmpb F%single bond at (-5,-3) fusion
+ \GFbondc@a
+ \else\if\@tmpb G%single bond at G
+ \GFbondc@b
+ \fi\fi%
+\fi
+}% end of \GFbondc
+ \def\GFbondc@a{%
+ \if\@tmpc B%beta single bond
+ \yl@xdiff=-10\relax%
+ \yl@ydiff=12\relax%
+ \putratom{130}{466}{\@memberb}% % right type
+ {%
+ \thicklines%
+ \Put@Line(0,406)(5,3){120}% % single bond at F
+ }%
+ \else\if\@tmpc A%alpha single bond
+ \yl@xdiff=-10\relax%
+ \yl@ydiff=12\relax%
+ \putratom{130}{466}{\@memberb}% % right type
+ \dotorline(0,406)(5,3){120}/(0,406)(120,478)%
+ \else\if\@tmpc U%unspecified single bond
+ \yl@xdiff=-10\relax%
+ \yl@ydiff=12\relax%
+ \putratom{130}{466}{\@memberb}% % right type
+ {%
+ \WaveBonds%
+ \Put@Line(0,406)(5,3){120}% % single bond at F
+ }%
+ \else\if\@tmpc S%beta single bond
+ \yl@xdiff=-10\relax%
+ \yl@ydiff=12\relax%
+ \putratom{130}{466}{\@memberb}% % right type
+ \Put@Line(0,406)(5,3){120}% % single bond at F
+ \else\ifx\@tmpc\empty%beta single bond
+ \yl@xdiff=-10\relax%
+ \yl@ydiff=12\relax%
+ \putratom{130}{466}{\@memberb}% % right type
+ \Put@Line(0,406)(5,3){120}% % single bond at F
+ \else\if\@tmpc D%beta single bond (downward)
+ \yl@xdiff=31\relax%
+ \yl@ydiff=90\relax%
+ \putlratom{-31}{176}{\@memberb}% % left or right type
+ {%
+ \thicklines%
+ \Put@Line(0,406)(0,-1){140}% % single bond at F
+ }%
+ \else\if\@tmpc C%alpha single bond (downward)
+ \yl@xdiff=31\relax%
+ \yl@ydiff=90\relax%
+ \putlratom{-31}{176}{\@memberb}% % left or right type
+ \dotorline(0,406)(0,-1){140}/(0,406)(0,266)%
+ \fi\fi\fi\fi\fi\fi\fi%
+}% end of \GFbondc@a
+\def\GFbondc@b{%
+ \if\@tmpc B%beta single bond
+ \yl@xdiff=10\relax%
+ \yl@ydiff=59\relax%
+ \putlatom{-301}{173}{\@memberb}% % left type
+ {%
+ \thicklines%
+ \Put@Line(-171,303)(-5,-3){120}% % single bond at G
+ }%
+ \else\if\@tmpc A%alpha single bond
+ \yl@xdiff=10\relax%
+ \yl@ydiff=59\relax%
+ \putlatom{-301}{173}{\@memberb}% % left type
+ \dotorline(-171,303)(-5,-3){120}/(-171,303)(-291,231)%
+ \else\if\@tmpc U%unspecified single bond
+ \yl@xdiff=10\relax%
+ \yl@ydiff=59\relax%
+ \putlatom{-301}{173}{\@memberb}% % left type
+ {%
+ \WaveBonds%
+ \Put@Line(-171,303)(-5,-3){120}% single bond at G
+ }%
+ \else\if\@tmpc S%alpha single bond
+ \yl@xdiff=10\relax%
+ \yl@ydiff=59\relax%
+ \putlatom{-301}{173}{\@memberb}% % left type
+ \Put@Line(-171,303)(-5,-3){120}% single bond at G
+ \else\ifx\@tmpc\empty%alpha single bond
+ \yl@xdiff=10\relax%
+ \yl@ydiff=59\relax%
+ \putlatom{-301}{173}{\@memberb}% % left type
+ \Put@Line(-171,303)(-5,-3){120}% single bond at G
+ \else\if\@tmpc D%beta single bond (upward)
+ \yl@xdiff=-30\relax%
+ \yl@ydiff=-17\relax%
+ \putlratom{201}{460}{\@memberb}% % left or right type
+ {%
+ \thicklines%
+ \Put@Line(-171,303)(0,1){140}% % single bond at G
+ }%
+ \else\if\@tmpc C%alpha single bond (upward)
+ \yl@xdiff=-30\relax%
+ \yl@ydiff=-17\relax%
+ \putlratom{201}{460}{\@memberb}% % left or right type
+ \dotorline(-171,303)(0,1){140}/(-171,303)(-171,443)%
+ \fi\fi\fi\fi\fi\fi\fi%
+}% end of \GFbondc@b
+\def\GFbondd{%
+ \if\@tmpb G%single bond at G (fused position)
+ \if\@tmpc B%beta single bond
+ \yl@xdiff=-17\relax%
+ \yl@ydiff=31\relax%
+ \putlratom{460}{140}{\@memberb}% % left or right type
+ {%
+ \thicklines%
+ \Put@Line(303,171)(1,0){140}% % single bond at G
+ }%
+ \else\if\@tmpc A%alpha single bond
+ \yl@xdiff=-17\relax%
+ \yl@ydiff=31\relax%
+ \putlratom{460}{140}{\@memberb}% % left or right type
+ \dotorline(303,171)(1,0){140}/(303,171)(443,171)%
+ \else\if\@tmpc U% unspecified single bond
+ \yl@xdiff=-17\relax%
+ \yl@ydiff=31\relax%
+ \putlratom{460}{140}{\@memberb}% % left or right type
+ {%
+ \WaveBonds%
+ \Put@Line(303,171)(1,0){140}% single bond at G
+ }%
+ \else\if\@tmpc S%beta single bond
+ \yl@xdiff=-17\relax%
+ \yl@ydiff=31\relax%
+ \putlratom{460}{140}{\@memberb}% % left or right type
+ \Put@Line(303,171)(1,0){140}% % single bond at G
+ \else\ifx\@tmpc\empty%beta single bond
+ \yl@xdiff=-17\relax%
+ \yl@ydiff=31\relax%
+ \putlratom{460}{140}{\@memberb}% % left or right type
+ \Put@Line(303,171)(1,0){140}% % single bond at G
+ \fi\fi\fi\fi\fi%
+ \else\if\@tmpb F%single bond at F (fused position)
+ \if\@tmpc B%beta single bond
+ \yl@xdiff=20\relax%
+ \yl@ydiff=31\relax%
+ \putlatom{-57}{140}{\@memberb}% % left type
+ {%
+ \thicklines%
+ \Put@Line(103,171)(-1,0){140}% % single bond at F
+ }%
+ \else\if\@tmpc A%alpha single bond
+ \yl@xdiff=20\relax%
+ \yl@ydiff=31\relax%
+ \putlatom{-57}{140}{\@memberb}% % left type
+ \dotorline(103,171)(-1,0){140}/(103,171)(-37,171)%
+ \else\if\@tmpc U%beta single bond
+ \yl@xdiff=20\relax%
+ \yl@ydiff=31\relax%
+ \putlatom{-57}{140}{\@memberb}% % left type
+ {%
+ \WaveBonds%
+ \Put@Line(103,171)(-1,0){140}% single bond at F
+ }%
+ \else\if\@tmpc S%alpha single bond
+ \yl@xdiff=20\relax%
+ \yl@ydiff=31\relax%
+ \putlatom{-57}{140}{\@memberb}% % left type
+ \Put@Line(103,171)(-1,0){140}% % single bond at F
+ \else\ifx\@tmpc\empty%alpha single bond
+ \yl@xdiff=20\relax%
+ \yl@ydiff=31\relax%
+ \putlatom{-57}{140}{\@memberb}% % left type
+ \Put@Line(103,171)(-1,0){140}% % single bond at F
+ \fi\fi\fi\fi\fi%
+ \fi\fi%
+}% end of \GFbondd
+\newif\if@fused@link \@fused@linkfalse
+\def\setfusedbond#1#2#3#4#5{%
+\@forsemicol\member:=#1\do{%
+\ifx\member\empty\else%
+\expandafter\@m@mb@r\member;\relax%
+\expandafter\threech@r\@membera{}{}%
+\ifx\@memberb\@yl\else
+\ifnum#5<0\relax%
+\@tmpaa=-\@tmpa\relax\advance\@tmpaa by #2\relax\@fused@linktrue
+\else\@tmpaa=\@tmpa\relax\advance\@tmpaa by #2\relax
+\@fused@linkfalse\fi%
+\ifnum\@tmpaa >#3\relax%
+\ifnum\@tmpaa <#4\relax%
+\ifcase\@tmpaa%
+{\setbscolor\GFbonda\addbscolor{}{}}%2010/10/01
+\or% subst. on 1 F == (0,406), G == (171,303)
+{\setbscolor\GFbondb\addbscolor{}{}}%2010/10/01
+\or% subst. on 2 F == (0,406), G == (-171,303) for \@fused@linkfalse
+ % subst. on 2 G == (0,406), F == (-171,303) for \@fused@linktrue
+{\setbscolor\GFbondc\addbscolor{}{}}%2010/10/01
+\or %3 fused positions % G == (303,171) F == (103,171)
+{\setbscolor\GFbondd\addbscolor{}{}}%2010/10/01
+\fi%end of ifcase
+\fi\fi\fi\fi}}%
+\newif\if@clipfuse \@clipfusefalse
+\def\setatombond#1#2#3{%
+\@forsemicol\member:=#1\do{%
+\ifx\member\empty\else%
+\expandafter\@m@mb@r\member;\relax%
+\expandafter\threech@r\@membera{}{}%
+\@tmpaa=\@tmpa\relax\advance\@tmpaa by #2\relax
+\ifx\@memberb\@yl\else
+\ifnum\@tmpaa >0\relax%
+\ifnum\@tmpaa <2\relax%
+\ifcase\@tmpaa%
+\or% subst. on 1
+ \ifnum#3=1\relax%(upward)
+{\setbscolor\setatombonda\addbscolor{}{}}%2010/10/01
+ \else\ifnum#3=4\relax%(right)
+{\setbscolor\setatombondb\addbscolor{}{}}%2010/10/01
+ \else\ifnum#3=7\relax%(downward)
+{\setbscolor\setatombondc\addbscolor{}{}}%2010/10/01
+ \else\ifnum#3=11\relax%
+{\setbscolor\setatombondd\addbscolor{}{}}%2010/10/01
+ \else\ifnum#3=5\relax%
+{\setbscolor\setatombonde\addbscolor{}{}}%2010/10/01
+ \else\ifnum#3=3\relax%
+{\setbscolor\setatombondf\addbscolor{}{}}%2010/10/01
+ \else\ifnum#3=9\relax%
+{\setbscolor\setatombondg\addbscolor{}{}}%2010/10/01
+ \else\ifnum#3=10\relax%(left)
+{\setbscolor\setatombondh\addbscolor{}{}}%2010/10/01
+\fi\fi\fi\fi\fi\fi\fi\fi%
+\fi%end of ifcase
+\fi\fi\fi\fi}}%
+\def\setatombonda{%upward (0,1)
+ \if@clipfuse%
+ \if\@tmpb B%beta single bond
+ \yl@xdiff=31\relax
+ \yl@ydiff=-17\relax
+ {%
+ \thicklines%
+ \Put@Line(0,40)(0,1){100}% % single bond at 1
+ }%
+ \else\if\@tmpb A%alpha single bond
+ \yl@xdiff=31\relax
+ \yl@ydiff=-17\relax
+ \dotorline(0,40)(0,1){100}/(0,40)(0,140)%
+ \else\if\@tmpb U% unspecified single bond
+ \yl@xdiff=31\relax
+ \yl@ydiff=-17\relax
+ {%
+ \WaveBonds%
+ \Put@Line(0,40)(0,1){100}% single bond at F
+ }%
+ \else\if\@tmpb S%beta single bond
+ \yl@xdiff=31\relax
+ \yl@ydiff=-17\relax
+ \Put@Line(0,40)(0,1){100}% % single bond at 1
+ \else\if\@tmpb D%double bond
+ \yl@xdiff=31\relax
+ \yl@ydiff=-17\relax
+ \Put@Line(-10,40)(0,1){100}% % single bond at 1
+ \Put@Line(10,40)(0,1){100}% % single bond at 1
+ \else\if\@tmpb T%double bond
+ \yl@xdiff=31\relax
+ \yl@ydiff=-17\relax
+ \Put@Line(-15,40)(0,1){100}% % single bond at 1
+ \Put@Line(0,40)(0,1){100}% % single bond at 1
+ \Put@Line(15,40)(0,1){100}% % single bond at 1
+ \else\ifx\@tmpb\empty%beta single bond
+ \yl@xdiff=31\relax
+ \yl@ydiff=-17\relax
+ \Put@Line(0,40)(0,1){100}% % single bond at 1
+ \fi\fi\fi\fi\fi\fi\fi%
+ \putlratom{-31}{157}{\@memberb}% % left or right type
+ \else%no clip
+ \if\@tmpb B%beta single bond
+ \yl@xdiff=31\relax
+ \yl@ydiff=-17\relax
+ {%
+ \thicklines%
+ \Put@Line(0,0)(0,1){140}% % single bond at 1
+ }%
+ \else\if\@tmpb A%alpha single bond
+ \yl@xdiff=31\relax
+ \yl@ydiff=-17\relax
+ \dotorline(0,0)(0,1){140}/(0,0)(0,140)%
+ \else\if\@tmpb U% unspecified single bond
+ \yl@xdiff=31\relax
+ \yl@ydiff=-17\relax
+ {%
+ \WaveBonds%
+ \Put@Line(0,0)(0,1){140}% single bond at F
+ }%
+ \else\if\@tmpb S%beta single bond
+ \yl@xdiff=31\relax
+ \yl@ydiff=-17\relax
+ \Put@Line(0,0)(0,1){140}% % single bond at 1
+ \else\if\@tmpb D%beta single bond
+ \yl@xdiff=31\relax
+ \yl@ydiff=-17\relax
+ \Put@Line(-10,0)(0,1){140}% % single bond at 1
+ \Put@Line(10,0)(0,1){140}% % single bond at 1
+ \else\if\@tmpb T%beta single bond
+ \yl@xdiff=31\relax
+ \yl@ydiff=-17\relax
+ \Put@Line(-15,0)(0,1){140}% % single bond at 1
+ \Put@Line(0,0)(0,1){140}% % single bond at 1
+ \Put@Line(15,0)(0,1){140}% % single bond at 1
+ \else\ifx\@tmpb\empty%beta single bond
+ \yl@xdiff=31\relax
+ \yl@ydiff=-17\relax
+ \Put@Line(0,0)(0,1){140}% % single bond at 1
+ \fi\fi\fi\fi\fi\fi\fi%
+ \putlratom{-31}{157}{\@memberb}% % left or right type
+ \fi%
+}% end of \setatombonda
+\def\setatombondb{%(right) (1,0)
+ \if@clipfuse%
+ \if\@tmpb B%beta single bond
+ \yl@xdiff=-17\relax
+ \yl@ydiff=31\relax
+ {%
+ \thicklines%
+ \Put@Line(30,0)(1,0){110}% % single bond at 1
+ }%
+ \else\if\@tmpb A%alpha single bond
+ \yl@xdiff=-17\relax
+ \yl@ydiff=31\relax
+ \dotorline(30,0)(1,0){110}/(30,0)(140,0)%
+ \else\if\@tmpb U%beta single bond
+ \yl@xdiff=-17\relax
+ \yl@ydiff=31\relax
+ {%
+ \WaveBonds%
+ \Put@Line(30,0)(1,0){110}% % single bond at 1
+ }%
+ \else\if\@tmpb S%alpha single bond
+ \yl@xdiff=-17\relax
+ \yl@ydiff=31\relax
+ \Put@Line(40,0)(1,0){100}% % single bond at 1
+ \else\if\@tmpb D%alpha single bond
+ \yl@xdiff=-17\relax
+ \yl@ydiff=31\relax
+ \Put@Line(40,10)(1,0){100}% % single bond at 1
+ \Put@Line(40,-10)(1,0){100}% % single bond at 1
+ \else\if\@tmpb T%alpha single bond
+ \yl@xdiff=-17\relax
+ \yl@ydiff=31\relax
+ \Put@Line(40,15)(1,0){100}% % single bond at 1
+ \Put@Line(40,0)(1,0){100}% % single bond at 1
+ \Put@Line(40,-15)(1,0){100}% % single bond at 1
+ \else\ifx\@tmpb\empty%alpha single bond
+ \yl@xdiff=-17\relax
+ \yl@ydiff=31\relax
+ \Put@Line(40,0)(1,0){100}% % single bond at 1
+ \fi\fi\fi\fi\fi\fi\fi%
+ \putratom{157}{-31}{\@memberb}% % right type only
+ \else%
+ \if\@tmpb B%beta single bond
+ \yl@xdiff=-17\relax
+ \yl@ydiff=31\relax
+ {%
+ \thicklines%
+ \Put@Line(0,0)(1,0){140}% % single bond at 1
+ }%
+ \else\if\@tmpb A%alpha single bond
+ \yl@xdiff=-17\relax
+ \yl@ydiff=31\relax
+ \dotorline(0,0)(1,0){140}/(0,0)(140,0)%
+ \else\if\@tmpb U%beta single bond
+ \yl@xdiff=-17\relax
+ \yl@ydiff=31\relax
+ {%
+ \WaveBonds%
+ \Put@Line(0,0)(1,0){140}% % single bond at 1
+ }%
+ \else\if\@tmpb S%alpha single bond
+ \yl@xdiff=-17\relax
+ \yl@ydiff=31\relax
+ \Put@Line(0,0)(1,0){140}% % single bond at 1
+ \else\if\@tmpb D%alpha single bond
+ \yl@xdiff=-17\relax
+ \yl@ydiff=31\relax
+ \Put@Line(0,10)(1,0){140}% % single bond at 1
+ \Put@Line(0,-10)(1,0){140}% % single bond at 1
+ \else\if\@tmpb T%alpha single bond
+ \yl@xdiff=-17\relax
+ \yl@ydiff=31\relax
+ \Put@Line(0,-15)(1,0){140}% % single bond at 1
+ \Put@Line(0,0)(1,0){140}% % single bond at 1
+ \Put@Line(0,15)(1,0){140}% % single bond at 1
+ \else\ifx\@tmpb\empty%alpha single bond
+ \yl@xdiff=-17\relax
+ \yl@ydiff=31\relax
+ \Put@Line(0,0)(1,0){140}% % single bond at 1
+ \fi\fi\fi\fi\fi\fi\fi%
+ \putratom{157}{-31}{\@memberb}% % right type only
+ \fi%
+}% end of \setatombondb
+\def\setatombondc{%(downward) (0,-1)
+ \if@clipfuse%
+ \if\@tmpb B%beta single bond
+ \yl@xdiff=31\relax
+ \yl@ydiff=90\relax
+ {%
+ \thicklines%
+ \Put@Line(0,-40)(0,-1){100}% % single bond at 1
+ }%
+ \else\if\@tmpb A%alpha single bond
+ \yl@xdiff=31\relax
+ \yl@ydiff=90\relax
+ \dotorline(0,-40)(0,-1){100}/(0,-40)(0,-140)%
+ \else\if\@tmpb U%beta single bond
+ \yl@xdiff=31\relax
+ \yl@ydiff=90\relax
+ {%
+ \WaveBonds%
+ \Put@Line(0,-40)(0,-1){100}% % single bond at 1
+ }%
+ \else\if\@tmpb S%alpha single bond
+ \yl@xdiff=31\relax
+ \yl@ydiff=90\relax
+ \Put@Line(0,-40)(0,-1){100}% % single bond at 1
+ \else\if\@tmpb D%alpha single bond
+ \yl@xdiff=31\relax
+ \yl@ydiff=90\relax
+ \Put@Line(10,-40)(0,-1){100}% % single bond at 1
+ \Put@Line(-10,-40)(0,-1){100}% % single bond at 1
+ \else\if\@tmpb T%alpha single bond
+ \yl@xdiff=31\relax
+ \yl@ydiff=90\relax
+ \Put@Line(15,-40)(0,-1){100}% % single bond at 1
+ \Put@Line(0,-40)(0,-1){100}% % single bond at 1
+ \Put@Line(-15,-40)(0,-1){100}% % single bond at 1
+ \else\ifx\@tmpb\empty%alpha single bond
+ \yl@xdiff=31\relax
+ \yl@ydiff=90\relax
+ \Put@Line(0,-40)(0,-1){100}% % single bond at 1
+ \fi\fi\fi\fi\fi\fi\fi%
+ \putlratom{-31}{-230}{\@memberb}% % left or right type
+ \else%no clipping
+ \if\@tmpb B%beta single bond
+ \yl@xdiff=31\relax
+ \yl@ydiff=90\relax
+ {%
+ \thicklines%
+ \Put@Line(0,0)(0,-1){140}% % single bond at 1
+ }%
+ \else\if\@tmpb A%alpha single bond
+ \yl@xdiff=31\relax
+ \yl@ydiff=90\relax
+ \dotorline(0,0)(0,-1){140}/(0,0)(0,-140)%
+ \else\if\@tmpb U%beta single bond
+ \yl@xdiff=31\relax
+ \yl@ydiff=90\relax
+ {%
+ \WaveBonds%
+ \Put@Line(0,0)(0,-1){140}% % single bond at 1
+ }%
+ \else\if\@tmpb S%alpha single bond
+ \yl@xdiff=31\relax
+ \yl@ydiff=90\relax
+ \Put@Line(0,0)(0,-1){140}% % single bond at 1
+ \else\if\@tmpb D%alpha single bond
+ \yl@xdiff=31\relax
+ \yl@ydiff=90\relax
+ \Put@Line(10,0)(0,-1){140}% % single bond at 1
+ \Put@Line(-10,0)(0,-1){140}% % single bond at 1
+ \else\if\@tmpb T%alpha single bond
+ \yl@xdiff=31\relax
+ \yl@ydiff=90\relax
+ \Put@Line(15,0)(0,-1){140}% % single bond at 1
+ \Put@Line(0,0)(0,-1){140}% % single bond at 1
+ \Put@Line(-15,0)(0,-1){140}% % single bond at 1
+ \else\ifx\@tmpb\empty%alpha single bond
+ \yl@xdiff=31\relax
+ \yl@ydiff=90\relax
+ \Put@Line(0,0)(0,-1){140}% % single bond at 1
+ \fi\fi\fi\fi\fi\fi\fi%
+ \putlratom{-31}{-230}{\@memberb}% % left or right type
+ \fi%
+}% end of \setatombondc
+\def\setatombondd{% (-5,3)
+ \if@clipfuse%
+ \yl@xdiff=20\relax
+ \yl@ydiff=18\relax
+ \if\@tmpb B%beta single bond
+ {%
+ \thicklines%
+ \Put@Line(-30,18)(-5,3){100}% % single bond at 1
+ }%
+ \else\if\@tmpb A%alpha single bond
+ \dotorline(-30,18)(-5,3){100}/(-30,18)(-130,78)%
+ \else\if\@tmpb U%unspecified single bond
+ {%
+ \WaveBonds%
+ \Put@Line(-30,18)(-5,3){100}% % single bond at 1
+ }%
+ \else\if\@tmpb S%beta single bond
+ \Put@Line(-30,18)(-5,3){100}% % single bond at 1
+ \else\if\@tmpb D%beta single bond
+ \Put@Line(-36,8)(-5,3){100}% % single bond at 1
+ \Put@Line(-24,24)(-5,3){100}% % single bond at 1
+ \else\if\@tmpb T%beta single bond
+ \Put@Line(-39,3)(-5,3){100}% % single bond at 1
+ \Put@Line(-30,18)(-5,3){100}% % single bond at 1
+ \Put@Line(-21,33)(-5,3){100}% % single bond at 1
+ \else\ifx\@tmpb\empty%beta single bond
+ \Put@Line(-30,18)(-5,3){100}% % single bond at 1
+ \fi\fi\fi\fi\fi\fi\fi%
+ \putlatom{-150}{60}{\@memberb}% % left type
+ \else%no clipping
+ \yl@xdiff=20\relax
+ \yl@ydiff=18\relax
+ \if\@tmpb B%beta single bond
+ {%
+ \thicklines%
+ \Put@Line(0,0)(-5,3){130}% % single bond at 1
+ }%
+ \else\if\@tmpb A%alpha single bond
+ \dotorline(0,0)(-5,3){130}/(0,0)(-130,78)%
+ \else\if\@tmpb U%unspecified single bond
+ {%
+ \WaveBonds%
+ \Put@Line(0,0)(-5,3){130}% % single bond at 1
+ }%
+ \else\if\@tmpb S%beta single bond
+ \Put@Line(0,0)(-5,3){130}% % single bond at 1
+ \else\if\@tmpb D%beta single bond
+ \Put@Line(6,10)(-5,3){130}% % single bond at 1
+ \Put@Line(-6,-10)(-5,3){130}% % single bond at 1
+ \else\if\@tmpb T%beta single bond
+ \Put@Line(9,15)(-5,3){130}% % single bond at 1
+ \Put@Line(0,0)(-5,3){130}% % single bond at 1
+ \Put@Line(-9,-15)(-5,3){130}% % single bond at 1
+ \else\ifx\@tmpb\empty%beta single bond
+ \Put@Line(0,0)(-5,3){130}% % single bond at 1
+ \fi\fi\fi\fi\fi\fi\fi%
+ \putlatom{-150}{60}{\@memberb}% % left type
+ \fi%
+}% end of \setatombondd
+\def\setatombonde{%(5,-3)
+ \if@clipfuse%
+ \yl@xdiff=-10\relax
+ \yl@ydiff=52\relax
+ \if\@tmpb B%beta single bond
+ {%
+ \thicklines%
+ \Put@Line(30,-18)(5,-3){100}% % single bond at 1
+ }%
+ \else\if\@tmpb A%alpha single bond
+ \dotorline(30,-18)(5,-3){100}/(30,-18)(130,-78)%
+ \else\if\@tmpb U%unspecified single bond
+ {%
+ \WaveBonds%
+ \Put@Line(30,-18)(5,-3){100}% % single bond at 1
+ }%
+ \else\if\@tmpb S%alpha single bond
+ \Put@Line(30,-18)(5,-3){100}% % single bond at 1
+ \else\if\@tmpb D%alpha single bond
+ \Put@Line(36,-12)(5,-3){100}% % single bond at 1
+ \Put@Line(24,-28)(5,-3){100}% % single bond at 1
+ \else\if\@tmpb T%alpha single bond
+ \Put@Line(39,-3)(5,-3){100}% % single bond at 1
+ \Put@Line(30,-18)(5,-3){100}% % single bond at 1
+ \Put@Line(21,-33)(5,-3){100}% % single bond at 1
+ \else\ifx\@tmpb\empty%alpha single bond
+ \Put@Line(30,-18)(5,-3){100}% % single bond at 1
+ \fi\fi\fi\fi\fi\fi\fi%
+ \putratom{140}{-130}{\@memberb}% % right type
+ \else%no clipping
+ \yl@xdiff=-10\relax
+ \yl@ydiff=52\relax
+ \if\@tmpb B%beta single bond
+ {%
+ \thicklines%
+ \Put@Line(0,0)(5,-3){130}% % single bond at 1
+ }%
+ \else\if\@tmpb A%alpha single bond
+ \dotorline(0,0)(5,-3){130}/(0,0)(130,-78)%
+ \else\if\@tmpb U%unspecified single bond
+ {%
+ \WaveBonds%
+ \Put@Line(0,0)(5,-3){130}% % single bond at 1
+ }%
+ \else\if\@tmpb S%alpha single bond
+ \Put@Line(0,0)(5,-3){130}% % single bond at 1
+ \else\if\@tmpb D%alpha single bond
+ \Put@Line(6,10)(5,-3){130}% % single bond at 1
+ \Put@Line(-6,-10)(5,-3){130}% % single bond at 1
+ \else\if\@tmpb T%alpha single bond
+ \Put@Line(9,15)(5,-3){130}% % single bond at 1
+ \Put@Line(0,0)(5,-3){130}% % single bond at 1
+ \Put@Line(-9,-15)(5,-3){130}% % single bond at 1
+ \else\ifx\@tmpb\empty%alpha single bond
+ \Put@Line(0,0)(5,-3){130}% % single bond at 1
+ \fi\fi\fi\fi\fi\fi\fi%
+ \putratom{140}{-130}{\@memberb}% % right type
+ \fi%
+}% end of \setatombonde
+\def\setatombondf{%% (5,3)
+ \if@clipfuse%
+ \yl@xdiff=-30\relax
+ \yl@ydiff=18\relax
+ \if\@tmpb B%beta single bond
+ {%
+ \thicklines%
+ \Put@Line(30,18)(5,3){100}% % single bond at 1
+ }%
+ \else\if\@tmpb A%alpha single bond
+ \dotorline(30,18)(5,3){100}/(30,18)(130,78)%
+ \else\if\@tmpb U%unspecified single bond
+ {%
+ \WaveBonds%
+ \Put@Line(30,18)(5,3){100}% % single bond at 1
+ }%
+ \else\if\@tmpb S%beta single bond
+ \Put@Line(30,18)(5,3){100}% % single bond at 1
+ \else\if\@tmpb D%beta single bond
+ \Put@Line(36,8)(5,3){100}% % single bond at 1
+ \Put@Line(24,24)(5,3){100}% % single bond at 1
+ \else\if\@tmpb T%beta single bond
+ \Put@Line(39,3)(5,3){100}% % single bond at 1
+ \Put@Line(30,18)(5,3){100}% % single bond at 1
+ \Put@Line(21,33)(5,3){100}% % single bond at 1
+ \else\ifx\@tmpb\empty%beta single bond
+ \Put@Line(30,18)(5,3){100}% % single bond at 1
+ \fi\fi\fi\fi\fi\fi\fi%
+ \putratom{160}{60}{\@memberb}% % right type
+ \else%no clipping
+ \yl@xdiff=-30\relax
+ \yl@ydiff=18\relax
+ \if\@tmpb B%beta single bond
+ {%
+ \thicklines%
+ \Put@Line(0,0)(5,3){130}% % single bond at 1
+ }%
+ \else\if\@tmpb A%alpha single bond
+ \dotorline(0,0)(5,3){120}/(0,0)(130,78)%
+ \else\if\@tmpb U%unspecified single bond
+ {%
+ \WaveBonds%
+ \Put@Line(0,0)(5,3){130}% % single bond at 1
+ }%
+ \else\if\@tmpb S%beta single bond
+ \Put@Line(0,0)(5,3){130}% % single bond at 1
+ \else\if\@tmpb D%beta single bond
+ \Put@Line(6,-10)(5,3){130}% % single bond at 1
+ \Put@Line(-6,10)(5,3){130}% % single bond at 1
+ \else\if\@tmpb T%beta single bond
+ \Put@Line(9,-15)(5,3){130}% % single bond at 1
+ \Put@Line(0,0)(5,3){130}% % single bond at 1
+ \Put@Line(-9,15)(5,3){130}% % single bond at 1
+ \else\ifx\@tmpb\empty%beta single bond
+ \Put@Line(0,0)(5,3){130}% % single bond at 1
+ \fi\fi\fi\fi\fi\fi\fi%
+ \putratom{160}{60}{\@memberb}% % right type
+ \fi%
+}% end of \setatombondf
+\def\setatombondg{%% (-5,-3)
+ \if@clipfuse%
+ \yl@xdiff=0\relax
+ \yl@ydiff=52\relax%1999/1/6 by Shinsaku Fujita
+ \if\@tmpb B%beta single bond
+ {%
+ \thicklines%
+ \Put@Line(-30,-18)(-5,-3){100}% % single bond at 1
+ }%
+ \else\if\@tmpb A%alpha single bond
+ \dotorline(-35,-21)(-5,-3){100}/(-35,-21)(-120,-72)%
+ \else\if\@tmpc U%unspecified single bond
+ {%
+ \WaveBonds%
+ \Put@Line(-35,-21)(-5,-3){100}% % single bond at 1
+ }%
+ \else\if\@tmpc S%alpha single bond
+ \Put@Line(-35,-21)(-5,-3){100}% % single bond at 1
+ \else\if\@tmpb D%double bond
+ \Put@Line(-36,-12)(-5,-3){100}% % single bond at 1
+ \Put@Line(-24,-28)(-5,-3){100}% % single bond at 1
+ \else\if\@tmpb T%triple bond
+ \Put@Line(-39,-3)(-5,-3){100}% % single bond at 1
+ \Put@Line(-30,-18)(-5,-3){100}% % single bond at 1
+ \Put@Line(-21,-33)(-5,-3){100}% % single bond at 1
+ \else\ifx\@tmpc\empty%alpha single bond
+ \Put@Line(-35,-21)(-5,-3){100}% % single bond at 1
+ \fi\fi\fi\fi\fi\fi\fi%
+ \putlatom{-130}{-130}{\@memberb}% % left type
+ \else%
+ \yl@xdiff=0\relax
+ \yl@ydiff=52\relax%1999/1/6 by Shinsaku Fujita
+ \if\@tmpb B%beta single bond
+ {%
+ \thicklines%
+ \Put@Line(0,0)(-5,-3){130}% % single bond at 1
+ }%
+ \else\if\@tmpb A%alpha single bond
+ \dotorline(0,0)(-5,-3){130}/(0,0)(-130,-78)%
+ \else\if\@tmpc U%unspecified single bond
+ {%
+ \WaveBonds%
+ \Put@Line(0,0)(-5,-3){130}% % single bond at 1
+ }%
+ \else\if\@tmpc S%alpha single bond
+ \Put@Line(0,0)(-5,-3){130}% % single bond at 1
+ \else\if\@tmpb D%alpha single bond
+ \Put@Line(-6,10)(-5,-3){130}% % single bond at 1
+ \Put@Line(6,-10)(-5,-3){130}% % single bond at 1
+ \else\if\@tmpb T%alpha single bond
+ \Put@Line(-9,15)(-5,-3){130}% % single bond at 1
+ \Put@Line(0,0)(-5,-3){130}% % single bond at 1
+ \Put@Line(9,-15)(-5,-3){130}% % single bond at 1
+ \else\ifx\@tmpc\empty%alpha single bond
+ \Put@Line(0,0)(-5,-3){130}% % single bond at 1
+ \fi\fi\fi\fi\fi\fi\fi%
+ \putlatom{-130}{-130}{\@memberb}% % left type
+ \fi%
+}% end of \setatombondg
+\def\setatombondh{% (-1,0)
+ \yl@xdiff=17\relax
+ \yl@ydiff=31\relax
+ \if@clipfuse%
+ \if\@tmpb B%beta single bond
+ {%
+ \thicklines%
+ \Put@Line(-30,0)(-1,0){110}% % single bond at 1
+ }%
+ \else\if\@tmpb A%alpha single bond
+ \dotorline(-30,0)(-1,0){110}/(-30,0)(-140,0)%
+ \else\if\@tmpb U%beta single bond
+ {%
+ \WaveBonds%
+ \Put@Line(-30,0)(-1,0){110}% % single bond at 1
+ }%
+ \else\if\@tmpb S%alpha single bond
+ \Put@Line(-40,0)(-1,0){100}% % single bond at 1
+ \else\if\@tmpb D%alpha single bond
+ \Put@Line(-40,10)(-1,0){100}% % single bond at 1
+ \Put@Line(-40,-10)(-1,0){100}% % single bond at 1
+ \else\if\@tmpb T%alpha single bond
+ \Put@Line(-40,15)(-1,0){100}% % single bond at 1
+ \Put@Line(-40,0)(-1,0){100}% % single bond at 1
+ \Put@Line(-40,-15)(-1,0){100}% % single bond at 1
+ \else\ifx\@tmpb\empty%alpha single bond
+ \Put@Line(-40,0)(-1,0){100}% % single bond at 1
+ \fi\fi\fi\fi\fi\fi\fi%
+ \putlatom{-157}{-31}{\@memberb}% % left type only
+ \else%
+ \if\@tmpb B%beta single bond
+ {%
+ \thicklines%
+ \Put@Line(0,0)(-1,0){140}% % single bond at 1
+ }%
+ \else\if\@tmpb A%alpha single bond
+ \dotorline(0,0)(-1,0){140}/(0,0)(-140,0)%
+ \else\if\@tmpb U%beta single bond
+ {%
+ \WaveBonds%
+ \Put@Line(0,0)(-1,0){140}% % single bond at 1
+ }%
+ \else\if\@tmpb S%alpha single bond
+ \Put@Line(0,0)(-1,0){140}% % single bond at 1
+ \else\if\@tmpb D%alpha single bond
+ \Put@Line(0,10)(-1,0){140}% % single bond at 1
+ \Put@Line(0,-10)(-1,0){140}% % single bond at 1
+ \else\if\@tmpb T%alpha single bond
+ \Put@Line(0,-15)(-1,0){140}% % single bond at 1
+ \Put@Line(0,0)(-1,0){140}% % single bond at 1
+ \Put@Line(0,15)(-1,0){140}% % single bond at 1
+ \else\ifx\@tmpb\empty%alpha single bond
+ \Put@Line(0,0)(-1,0){140}% % single bond at 1
+ \fi\fi\fi\fi\fi\fi\fi%
+ \putlatom{-157}{-31}{\@memberb}% % left type only
+ \fi%
+}% end of \setatombondh
+\def\ylatombondposition#1#2#3{%
+\@@ylswfalse%%%\@reset@ylsw
+\@forsemicol\member:=#1\do{%
+\if@@ylsw\else%
+\ifx\member\empty\else%
+\expandafter\@m@mb@r\member;\relax%
+\expandafter\threech@r\@membera{}{}%
+\ifx\@memberb\@yl\relax\@@ylswtrue\else\@@ylswfalse\fi
+\if@@ylsw
+\@tmpaa=\@tmpa\relax\advance\@tmpaa by #2\relax
+\ifnum\@tmpaa >0\relax%
+\ifnum\@tmpaa <2\relax%
+\ifcase\@tmpaa%
+\or% subst. on 1
+ \ifnum#3=1\relax%upward
+ \if@clipfuse%
+ \gdef\@ylii{0}\gdef\@yli{-48}\global\@ylswtrue%
+ \else
+ \gdef\@ylii{0}\gdef\@yli{0}\global\@ylswtrue%
+ \fi
+ \else\ifnum#3=4\relax%(right)
+ \if@clipfuse%
+ \gdef\@ylii{-40}\gdef\@yli{0}\global\@ylswtrue%
+ \else
+ \gdef\@ylii{0}\gdef\@yli{0}\global\@ylswtrue%
+ \fi
+ \else\ifnum#3=7\relax%(downward)
+ \if@clipfuse%
+ \gdef\@ylii{0}\gdef\@yli{48}\global\@ylswtrue%
+ \else
+ \gdef\@ylii{0}\gdef\@yli{0}\global\@ylswtrue%
+ \fi
+ \else\ifnum#3=11\relax%
+ \if@clipfuse%
+ \gdef\@ylii{50}\gdef\@yli{-30}\global\@ylswtrue%
+ \else
+ \gdef\@ylii{0}\gdef\@yli{0}\global\@ylswtrue%
+ \fi
+ \else\ifnum#3=5\relax%
+ \if@clipfuse%
+ \gdef\@ylii{-50}\gdef\@yli{30}\global\@ylswtrue%
+ \else
+ \gdef\@ylii{0}\gdef\@yli{0}\global\@ylswtrue%
+ \fi
+ \else\ifnum#3=3\relax%
+ \if@clipfuse%
+ \gdef\@ylii{-50}\gdef\@yli{-30}\global\@ylswtrue%
+ \else
+ \gdef\@ylii{0}\gdef\@yli{0}\global\@ylswtrue%
+ \fi
+ \else\ifnum#3=9\relax%
+ \if@clipfuse%
+ \gdef\@ylii{50}\gdef\@yli{30}\global\@ylswtrue%
+ \else
+ \gdef\@ylii{0}\gdef\@yli{0}\global\@ylswtrue%
+ \fi
+ \else\ifnum#3=10\relax%(left)
+ \if@clipfuse%
+ \gdef\@ylii{40}\gdef\@yli{0}\global\@ylswtrue%
+ \else
+ \gdef\@ylii{0}\gdef\@yli{0}\global\@ylswtrue%
+ \fi
+\fi\fi\fi\fi\fi\fi\fi\fi%
+\fi%end of ifcase
+\fi\fi\fi\fi%
+\fi}}% end of \ylatombondposition
+\def\ylpositionh#1#2#3#4#5{%
+\@@ylswfalse%%%\@reset@ylsw
+\reset@@yl%%2013/06/19bug fix
+\@forsemicol\member:=#1\do{%
+\if@@ylsw\else%
+\ifx\member\empty\else%
+\expandafter\@m@mb@r\member;\relax%
+\expandafter\threech@r\@membera{}{}\relax%
+\ifx\@memberb\@yl\relax\@@ylswtrue\else\@@ylswfalse\fi
+\if@@ylsw
+\ifnum#5<0\relax%
+\@tmpaa=-\@tmpa\relax \advance\@tmpaa by#2\relax%
+\else\@tmpaa=\@tmpa\relax \advance\@tmpaa by#2\relax\fi
+\ifnum\@tmpaa>#3\relax%
+\ifnum\@tmpaa<#4\relax%
+\ifcase\@tmpaa%0 omit
+ \or\ifx\aaa\empty
+ \gdef\@ylii{0}\gdef\@yli{0}\global\@ylswtrue%\@ylatrue% subst. on 1
+ \else
+ \gdef\@ylii{30}\gdef\@yli{0}\global\@ylswtrue%\@ylatrue% subst. on 1
+ \fi
+ \or\ifx\bbb\empty
+ \gdef\@ylii{-103}\gdef\@yli{-171}\global\@ylswtrue%\@ylbtrue% subst. on 2
+ \else
+ \gdef\@ylii{-73}\gdef\@yli{-223}\global\@ylswtrue%\@ylbtrue% subst. on 2
+ \fi
+ \or \ifx\ccc\empty
+ \gdef\@ylii{-303}\gdef\@yli{-171}\global\@ylswtrue%\@ylctrue% subst. on 3
+ \else
+ \gdef\@ylii{-333}\gdef\@yli{-223}\global\@ylswtrue%\@ylctrue% subst. on 3
+ \fi
+ \or\ifx\ddd\empty
+ \gdef\@ylii{-406}\gdef\@yli{0}\global\@ylswtrue%\@yldtrue% subst. on 4
+ \else
+ \gdef\@ylii{-436}\gdef\@yli{0}\global\@ylswtrue%\@yldtrue% subst. on 4
+ \fi
+ \or\ifx\eee\empty
+ \gdef\@ylii{-303}\gdef\@yli{171}\global\@ylswtrue%\@yletrue% subst. on 5
+ \else
+ \gdef\@ylii{-333}\gdef\@yli{223}\global\@ylswtrue%\@yletrue% subst. on 5
+ \fi
+ \or \ifx\fff\empty
+ \gdef\@ylii{-103}\gdef\@yli{171}\global\@ylswtrue%\@ylftrue% subst. on 6
+ \else
+ \gdef\@ylii{-73}\gdef\@yli{223}\global\@ylswtrue%\@ylftrue% subst. on 6
+ \fi
+\fi%end of ifcase
+\fi\fi\fi\fi\fi}}%
+\def\@hsubsta{%
+\if@aclip %clipping
+ \if\@tmpb S%single bond
+ \ifx\@tmpc\empty%
+ \yl@xdiff=17\relax
+ \yl@ydiff=31\relax
+ \putlatom{-157}{-31}{\@memberb}% % left type only
+ \Put@Line(-30,0)(-1,0){110}% % single bond at 1
+ \else\if\@tmpc B%(B) beta
+ \yl@xdiff=27\relax
+ \yl@ydiff=36\relax
+ \putlatom{-157}{42}{\@memberb}% % left type
+ {%
+ \thicklines%
+ \Put@Line(-30,18)(-5,3){100}% % single bond at 1
+ }%
+ \else\if\@tmpc A%(A) alpha
+ \yl@xdiff=37\relax
+ \yl@ydiff=28\relax
+ \putlatom{-157}{-100}{\@memberb}% % left type
+ \dotorline(-30,-18)(-5,-3){100}/(-30,-18)(-120,-72)%
+ \else\if\@tmpc u%(u) up --- (B) beta
+ \yl@xdiff=37\relax
+ \yl@ydiff=28\relax
+ \putlatom{-157}{-100}{\@memberb}% % left type
+ {%
+ \thicklines%
+ \Put@Line(-30,-18)(-5,-3){100}% % single bond at 1
+ }%
+ \else\if\@tmpc d%(d) down --- (A) alpha
+ \yl@xdiff=27\relax
+ \yl@ydiff=36\relax
+ \putlatom{-157}{42}{\@memberb}% % left type
+ \dotorline(-30,18)(-5,3){100}/(-30,18)(-130,78)%
+ \else\if\@tmpc b%(b) beta
+ \yl@xdiff=27\relax
+ \yl@ydiff=36\relax
+ \putlatom{-157}{42}{\@memberb}% % left type
+ \Put@Line(-30,18)(-5,3){100}% % single bond at 1
+ \else\if\@tmpc a%(a) alpha
+ \yl@xdiff=27\relax
+ \yl@ydiff=28\relax
+ \putlatom{-157}{-100}{\@memberb}% % left type
+ \Put@Line(-30,-18)(-5,-3){100}% % single bond at 1
+ \else\if\@tmpc V%(V) beta undefined
+ \yl@xdiff=27\relax
+ \yl@ydiff=36\relax
+ \putlatom{-157}{42}{\@memberb}% % left type
+ {%
+ \WaveBonds%
+ \Put@Line(-30,18)(-5,3){100}% % single bond at 1
+ }%
+ \else\if\@tmpc U%(U) alpha undefined
+ \yl@xdiff=27\relax
+ \yl@ydiff=28\relax
+ \putlatom{-157}{-100}{\@memberb}% % left type
+ {%
+ \WaveBonds%
+ \Put@Line(-30,-18)(-5,-3){100}% % single bond at 1
+ }%
+ \fi\fi\fi\fi\fi
+ \fi\fi\fi\fi
+ \else\if\@tmpb D%double bond
+ \yl@xdiff=17\relax
+ \yl@ydiff=31\relax
+ \putlatom{-157}{-31}{\@memberb}% % left type only
+ \Put@Line(-30,-12)(-1,0){110}% % double bond at 1
+ \Put@Line(-30,12)(-1,0){110}% % double bond at 1
+ \else\if\@tmpb B%beta single bond
+ \yl@xdiff=17\relax
+ \yl@ydiff=31\relax
+ \putlatom{-157}{-31}{\@memberb}% % left type only
+ {%
+ \thicklines%
+ \Put@Line(-30,0)(-1,0){110}% % single bond at 1
+ }%
+ \else\if\@tmpb A%alpha single bond
+ \yl@xdiff=17\relax
+ \yl@ydiff=31\relax
+ \putlatom{-157}{-31}{\@memberb}% % left type only
+ \dotorline(-30,0)(-1,0){110}/(-30,0)(-140,0)%
+ \else\if\@tmpb U%undefined single bond
+ \yl@xdiff=17\relax
+ \yl@ydiff=31\relax
+ \putlatom{-157}{-31}{\@memberb}% % left type only
+ {%
+ \WaveBonds%
+ \Put@Line(-30,0)(-1,0){110}% % single wave bond at 1
+ }%
+ \else\if\@tmpb F%fused bond
+ {\let\@tmpb=\@tmpc\@clipfusetrue
+ \Put@Direct(0,0){\setatombondG}%
+ }%
+ \else\if\@tmpb G%fused bond
+ {\let\@tmpb=\@tmpc\@clipfusetrue
+ \Put@Direct(0,0){\setatombondD}%
+ }%
+ \else%
+ \yl@xdiff=17\relax
+ \yl@ydiff=31\relax
+ \putlatom{-157}{-31}{\@memberb}% % left type only
+ \Put@Line(-40,0)(-1,0){100}% % single bond at 1
+ \fi\fi\fi\fi
+ \fi\fi\fi%
+\else%% no clipping
+ \if\@tmpb S%single bond
+ \ifx\@tmpc\empty%
+ \yl@xdiff=17\relax
+ \yl@ydiff=31\relax
+ \putlatom{-157}{-31}{\@memberb}% % left type only
+ \Put@Line(0,0)(-1,0){140}% % single bond at 1
+ \else\if\@tmpc B%(B) beta
+ \yl@xdiff=37\relax
+ \yl@ydiff=30\relax
+ \putlatom{-157}{42}{\@memberb}% % left type
+ {%
+ \thicklines%
+ \Put@Line(0,0)(-5,3){120}% % single bond at 1
+ }%
+ \else\if\@tmpc A%(A) alpha
+ \yl@xdiff=37\relax
+ \yl@ydiff=28\relax
+ \putlatom{-157}{-100}{\@memberb}% % left type
+ \dotorline(0,0)(-5,-3){120}/(0,0)(-120,-72)%
+ \else\if\@tmpc u%(u) up --- (B) beta
+ \yl@xdiff=37\relax
+ \yl@ydiff=28\relax
+ \putlatom{-157}{-100}{\@memberb}% % left type
+ {%
+ \thicklines%
+ \Put@Line(0,0)(-5,-3){120}% % single bond at 1
+ }%
+ \else\if\@tmpc d%(d) down --- (A) alpha
+ \yl@xdiff=37\relax
+ \yl@ydiff=30\relax
+ \putlatom{-157}{42}{\@memberb}% % left type
+ \dotorline(0,0)(-5,3){120}/(0,0)(-120,72)%
+ \else\if\@tmpc b%(b) beta
+ \yl@xdiff=37\relax
+ \yl@ydiff=30\relax
+ \putlatom{-157}{42}{\@memberb}% % left type
+ \Put@Line(0,0)(-5,3){120}% % single bond at 1
+ \else\if\@tmpc a%(a) alpha
+ \yl@xdiff=37\relax
+ \yl@ydiff=28\relax
+ \putlatom{-157}{-100}{\@memberb}% % left type
+ \Put@Line(0,0)(-5,-3){120}% % single bond at 1
+ \else\if\@tmpc V%(V) beta undefined
+ \yl@xdiff=37\relax
+ \yl@ydiff=30\relax
+ \putlatom{-157}{42}{\@memberb}% % left type
+ {%
+ \WaveBonds%
+ \Put@Line(0,0)(-5,3){120}% % single bond at 1
+ }%
+ \else\if\@tmpc U%(U) alpha undefined
+ \yl@xdiff=37\relax
+ \yl@ydiff=28\relax
+ \putlatom{-157}{-100}{\@memberb}% % left type
+ {%
+ \WaveBonds%
+ \Put@Line(0,0)(-5,-3){120}% % single bond at 1
+ }%
+ \fi\fi\fi\fi\fi
+ \fi\fi\fi\fi
+ \else\if\@tmpb D%double bond
+ \yl@xdiff=17\relax
+ \yl@ydiff=31\relax
+ \putlatom{-157}{-31}{\@memberb}% % left type only
+ \Put@Line(0,-12)(-1,0){140}% % double bond at 1
+ \Put@Line(0,12)(-1,0){140}% % double bond at 1
+ \else\if\@tmpb B%beta single bond
+ \yl@xdiff=17\relax
+ \yl@ydiff=31\relax
+ \putlatom{-157}{-31}{\@memberb}% % left type only
+ {%
+ \thicklines%
+ \Put@Line(0,0)(-1,0){140}% % single bond at 1
+ }%
+ \else\if\@tmpb A%alpha single bond
+ \yl@xdiff=17\relax
+ \yl@ydiff=31\relax
+ \putlatom{-157}{-31}{\@memberb}% % left type only
+ \dotorline(0,0)(-1,0){140}/(0,0)(-140,0)%
+ \else\if\@tmpb U%undefined single bond
+ \yl@xdiff=17\relax
+ \yl@ydiff=31\relax
+ \putlatom{-157}{-31}{\@memberb}% % left type only
+ {%
+ \WaveBonds%
+ \Put@Line(0,0)(-1,0){140}% % single wave bond at 1
+ }%
+ \else\if\@tmpb F%fused bond
+ {\let\@tmpb=\@tmpc\@clipfusefalse
+ \Put@Direct(0,0){\setatombondG}%
+ }%
+ \else\if\@tmpb G%fused bond
+ {\let\@tmpb=\@tmpc\@clipfusefalse
+ \Put@Direct(0,0){\setatombondD}%
+ }%
+ \else%
+ \yl@xdiff=17\relax
+ \yl@ydiff=31\relax
+ \putlatom{-157}{-31}{\@memberb}% % left type only
+ \Put@Line(0,0)(-1,0){140}% % single bond at 1
+ \fi\fi\fi\fi%
+ \fi\fi\fi
+ \fi}%end of \@hsubsta
+\def\@hsubstb{%
+ \if@bclip %clipping
+ \if\@tmpb S%single bond
+ \ifx\@tmpc\empty%
+ \yl@xdiff=53\relax
+ \yl@ydiff=5\relax
+ \putlratom{-37}{331}{\@memberb}%
+ \Put@Line(79,221)(-3,5){63}% % single bond at 2 (62=>63)
+ \else\if\@tmpc B%(B) beta
+ \yl@xdiff=0\relax
+ \yl@ydiff=21\relax
+ \putlatom{-41}{240}{\@memberb}% % left type
+ {%
+ \thicklines%
+ \Put@Line(59,201)(-5,3){100}% % single bond at 2
+ }%
+ \else\if\@tmpc A%(A) alpha
+ \yl@xdiff=30\relax
+ \yl@ydiff=-10\relax
+ \putratom{73}{331}{\@memberb}% % right type
+ \dotorline(103,221)(0,1){100}/(103,221)(103,321)%
+ \else\if\@tmpc u%(u) up --- (B) beta
+ \yl@xdiff=30\relax
+ \yl@ydiff=-10\relax
+ \putlratom{73}{331}{\@memberb}% % left-right type
+ {%
+ \thicklines%
+ \Put@Line(103,221)(0,1){100}% % single bond at 2
+ }%
+ \else\if\@tmpc d%(d) down --- (A) alpha
+ \yl@xdiff=0\relax
+ \yl@ydiff=21\relax
+ \putlatom{-41}{240}{\@memberb}% % left type
+ \dotorline(59,201)(-5,3){100}/(59,201)(-41,261)%
+ \else\if\@tmpc b%(b) beta
+ \yl@xdiff=0\relax
+ \yl@ydiff=21\relax
+ \putlatom{-41}{240}{\@memberb}% % left type
+ \Put@Line(59,201)(-5,3){100}% % single bond at 2
+ \else\if\@tmpc a%(a) alpha
+ \yl@xdiff=30\relax
+ \yl@ydiff=-10\relax
+ \putlratom{73}{331}{\@memberb}% % left-right type
+ \Put@Line(103,221)(0,1){100}% % single bond at 2
+ \else\if\@tmpc V%(V) beta undefined
+ \yl@xdiff=0\relax
+ \yl@ydiff=21\relax
+ \putlatom{-41}{240}{\@memberb}% % left type
+ {%
+ \WaveBonds%
+ \Put@Line(59,201)(-5,3){100}% % single bond at 2
+ }%
+ \else\if\@tmpc U%(U) alpha undefined
+ \yl@xdiff=30\relax
+ \yl@ydiff=-10\relax
+ \putlratom{73}{331}{\@memberb}% % left-right type
+ {%
+ \WaveBonds%
+ \Put@Line(103,221)(0,1){100}% % single bond at 2
+ }%
+ \fi\fi\fi\fi\fi%
+ \fi\fi\fi\fi
+ \else\if\@tmpb D%double bond
+ \yl@xdiff=59\relax
+ \yl@ydiff=-13\relax
+ \putlratom{-37}{331}{\@memberb}%
+ \Put@Line(78,208)(-3,5){63}% % double bond at 2(62->63)
+ \Put@Line(100,219)(-3,5){63}% % double bond at 2(62->63)
+ \else\if\@tmpb B%beta single bond
+ \yl@xdiff=53\relax
+ \yl@ydiff=5\relax
+ \putlratom{-37}{331}{\@memberb}%
+ {%
+ \thicklines%
+ \Put@Line(79,221)(-3,5){63}% % single bond at 2 (62->63)
+ }%
+ \else\if\@tmpb A%alpha single bond
+ \yl@xdiff=53\relax
+ \yl@ydiff=5\relax
+ \putlratom{-37}{331}{\@memberb}%
+ \dotorline(79,221)(-3,5){63}/(79,221)(16,326)%
+ \else\if\@tmpb U%undefined single bond
+ \yl@xdiff=53\relax
+ \yl@ydiff=5\relax
+ \putlratom{-37}{331}{\@memberb}%
+ {%
+ \WaveBonds%
+ \Put@Line(79,221)(-3,5){63}% % single wave bond at 1
+ }%
+ \else\if\@tmpb F%fused bond
+ {\let\@tmpb=\@tmpc\@clipfusetrue
+ \Put@Direct(103,171){\setatombondh}%
+ }%
+ \else\if\@tmpb G%fused bond
+ {\let\@tmpb=\@tmpc\@clipfusetrue
+ \Put@Direct(103,171){\setatombondF}%
+ }%
+ \else%
+ \yl@xdiff=53\relax
+ \yl@ydiff=5\relax
+ \putlratom{-37}{331}{\@memberb}%
+ \Put@Line(79,221)(-3,5){63}% % single bond at 2 (62->63)
+ \fi\fi\fi\fi%
+ \fi\fi\fi
+ \else%%no clipping
+ \if\@tmpb S%single bond
+ \ifx\@tmpc\empty%
+ \yl@xdiff=58\relax
+ \yl@ydiff=-21\relax
+ \putlratom{-27}{311}{\@memberb}%
+ \Put@Line(103,171)(-3,5){72}% % single bond at 2
+ \else\if\@tmpc B%(B) beta
+ \yl@xdiff=14\relax
+ \yl@ydiff=-3\relax
+ \putlatom{-31}{240}{\@memberb}% % left type
+ {%
+ \thicklines%
+ \Put@Line(103,171)(-5,3){120}% % single bond at 2
+ }%
+ \else\if\@tmpc A%(A) alpha
+ \yl@xdiff=30\relax
+ \yl@ydiff=-20\relax
+ \putlratom{73}{331}{\@memberb}% % left-right type
+ \dotorline(103,171)(0,1){140}/(103,171)(103,311)%
+ \else\if\@tmpc u%(u) up --- (B) beta
+ \yl@xdiff=30\relax
+ \yl@ydiff=-20\relax
+ \putlratom{73}{331}{\@memberb}% % left-right type
+ {%
+ \thicklines%
+ \Put@Line(103,171)(0,1){140}% % single bond at 2
+ }%
+ \else\if\@tmpc d%(d) down --- (A) alpha
+ \yl@xdiff=14\relax
+ \yl@ydiff=-3\relax
+ \putlatom{-31}{240}{\@memberb}% % left type
+ \dotorline(103,171)(-5,3){120}/(103,171)(-7,243)%
+ \else\if\@tmpc b%(b) beta
+ \yl@xdiff=14\relax
+ \yl@ydiff=-3\relax
+ \putlatom{-31}{240}{\@memberb}% % left type
+ \Put@Line(103,171)(-5,3){120}% % single bond at 2
+ \else\if\@tmpc a%(a) alpha
+ \yl@xdiff=30\relax
+ \yl@ydiff=-20\relax
+ \putlratom{73}{331}{\@memberb}% % left-right type
+ \Put@Line(103,171)(0,1){140}% % single bond at 2
+ \else\if\@tmpc V%(V) beta undefined
+ \yl@xdiff=14\relax
+ \yl@ydiff=-3\relax
+ \putlatom{-31}{240}{\@memberb}% % left type
+ {%
+ \WaveBonds%
+ \Put@Line(103,171)(-5,3){120}% % single bond at 2
+ }%
+ \else\if\@tmpc U%(U) alpha undefined
+ \yl@xdiff=30\relax
+ \yl@ydiff=-20\relax
+ \putlratom{73}{331}{\@memberb}% % left-right type
+ {%
+ \WaveBonds%
+ \Put@Line(103,171)(0,1){140}% % single bond at 2
+ }%
+ \fi\fi\fi\fi\fi%
+ \fi\fi\fi\fi
+ \else\if\@tmpb D%double bond
+ \yl@xdiff=64\relax
+ \yl@ydiff=-21\relax
+ \putlratom{-27}{311}{\@memberb}%
+ \Put@Line(96,168)(-3,5){72}% % double bond at 2
+ \Put@Line(121,174)(-3,5){72}% % double bond at 2
+ \else\if\@tmpb B%beta single bond
+ \yl@xdiff=58\relax
+ \yl@ydiff=-21\relax
+ \putlratom{-27}{311}{\@memberb}%
+ {%
+ \thicklines%
+ \Put@Line(103,171)(-3,5){72}% % single bond at 2
+ }%
+ \else\if\@tmpb A%alpha single bond
+ \yl@xdiff=58\relax
+ \yl@ydiff=-21\relax
+ \putlratom{-27}{311}{\@memberb}%
+ \dotorline(103,171)(-3,5){72}/(103,171)(31,291)%
+ \else\if\@tmpb U%undefined single bond
+ \yl@xdiff=58\relax
+ \yl@ydiff=-21\relax
+ \putlratom{-27}{311}{\@memberb}%
+ {%
+ \WaveBonds%
+ \Put@Line(103,171)(-3,5){72}% % single wave bond at 1
+ }%
+ \else\if\@tmpb F%fused bond
+ {\let\@tmpb=\@tmpc\@clipfusefalse
+ \Put@Direct(103,171){\setatombondh}%
+ }%
+ \else\if\@tmpb G%fused bond
+ {\let\@tmpb=\@tmpc\@clipfusefalse
+ \Put@Direct(103,171){\setatombondF}%
+ }%
+ \else%
+ \yl@xdiff=58\relax
+ \yl@ydiff=-21\relax
+ \putlratom{-27}{311}{\@memberb}%
+ \Put@Line(103,171)(-3,5){72}% % single bond at 2
+ \fi\fi\fi\fi%
+ \fi\fi\fi
+ \fi}% end of \@hsubstb
+\def\@hsubstc{%
+ \if@cclip %clipping
+ \if\@tmpb S%single bond
+ \ifx\@tmpc\empty%
+ \yl@xdiff=33\relax
+ \yl@ydiff=5\relax
+ \putratom{373}{331}{\@memberb}%
+ \Put@Line(343,221)(3,5){63}% % single bond at 3 (62->63)
+ \else\if\@tmpc B%(B) beta
+ \yl@xdiff=0\relax
+ \yl@ydiff=21\relax
+ \putratom{443}{240}{\@memberb}% % right type
+ {%
+ \thicklines%
+ \Put@Line(343,201)(5,3){100}% % single bond at 3
+ }%
+ \else\if\@tmpc A%(A) alpha
+ \yl@xdiff=30\relax
+ \yl@ydiff=0\relax
+ \putlratom{273}{331}{\@memberb}% % left-right type
+ \dotorline(303,221)(0,1){110}/(303,221)(303,321)%
+ \else\if\@tmpc u%(u) up --- (B) beta
+ \yl@xdiff=30\relax
+ \yl@ydiff=0\relax
+ \putlratom{273}{331}{\@memberb}% % left-right type
+ {%
+ \thicklines%
+ \Put@Line(303,221)(0,1){100}% % single bond at 3
+ }%
+ \else\if\@tmpc d%(d) down --- (A) alpha
+ \yl@xdiff=0\relax
+ \yl@ydiff=21\relax
+ \putratom{443}{240}{\@memberb}% % right type
+ \dotorline(343,201)(5,3){100}/(343,201)(443,261)%
+ \else\if\@tmpc b%(b) beta
+ \yl@xdiff=0\relax
+ \yl@ydiff=21\relax
+ \putratom{443}{240}{\@memberb}% % right type
+ \Put@Line(343,201)(5,3){100}% % single bond at 3
+ \else\if\@tmpc a%(a) alpha
+ \yl@xdiff=30\relax
+ \yl@ydiff=0\relax
+ \putlratom{273}{331}{\@memberb}% % left-right type
+ \Put@Line(303,221)(0,1){100}% % single bond at 3
+ \else\if\@tmpc V%(V) beta undefined
+ \yl@xdiff=0\relax
+ \yl@ydiff=21\relax
+ \putratom{443}{240}{\@memberb}% % right type
+ {%
+ \WaveBonds%
+ \Put@Line(343,201)(5,3){100}% % single bond at 3
+ }%
+ \else\if\@tmpc U%(U) alpha undefined
+ \yl@xdiff=30\relax
+ \yl@ydiff=0\relax
+ \putlratom{273}{331}{\@memberb}% % left-right type
+ {%
+ \WaveBonds%
+ \Put@Line(303,221)(0,1){100}% % single bond at 3
+ }%
+ \fi\fi\fi\fi\fi%
+ \fi\fi\fi\fi
+ \else\if\@tmpb D%double bond
+ \yl@xdiff=12\relax
+ \yl@ydiff=-18\relax
+ \putratom{373}{331}{\@memberb}%
+ \Put@Line(328,208)(3,5){63}% % double bond at 3
+ \Put@Line(303,214)(3,5){63}% % double bond at 3
+ \else\if\@tmpb B%beta single bond
+ \yl@xdiff=33\relax
+ \yl@ydiff=5\relax
+ \putratom{373}{331}{\@memberb}%
+ {%
+ \thicklines%
+ \Put@Line(343,221)(3,5){63}% % single bond at 3
+ }%
+ \else\if\@tmpb A%alpha single bond
+ \yl@xdiff=33\relax
+ \yl@ydiff=5\relax
+ \putratom{373}{331}{\@memberb}%
+ \dotorline(343,221)(3,5){63}/(343,221)(406,326)%
+ \else\if\@tmpb U%undefined single bond
+ \yl@xdiff=33\relax
+ \yl@ydiff=5\relax
+ \putratom{373}{331}{\@memberb}%
+ {%
+ \WaveBonds%
+ \Put@Line(343,221)(3,5){63}% % single wave bond at 3
+ }%
+ \else\if\@tmpb F%fused bond
+ {\let\@tmpb=\@tmpc\@clipfusetrue
+ \Put@Direct(303,171){\setatombondD}%
+ }%
+ \else\if\@tmpb G%fused bond
+ {\let\@tmpb=\@tmpc\@clipfusetrue
+ \Put@Direct(303,171){\setatombondb}%
+ }%
+ \else%
+ \yl@xdiff=33\relax
+ \yl@ydiff=5\relax
+ \putratom{373}{331}{\@memberb}%
+ \Put@Line(343,221)(3,5){63}% % single bond at 3 (62->63)
+ \fi\fi\fi\fi%
+ \fi\fi\fi
+ \else%no clipping
+ \if\@tmpb S%single bond
+ \ifx\@tmpc\empty%
+ \yl@xdiff=12\relax
+ \yl@ydiff=-20\relax
+ \putratom{363}{311}{\@memberb}%
+ \Put@Line(303,171)(3,5){72}% % single bond at 3
+ \else\if\@tmpc B%(B) beta
+ \yl@xdiff=-20\relax
+ \yl@ydiff=3\relax
+ \putratom{443}{240}{\@memberb}% % right type
+ {%
+ \thicklines%
+ \Put@Line(303,171)(5,3){120}% % single bond at 3
+ }%
+ \else\if\@tmpc A%(A) alpha
+ \yl@xdiff=30\relax
+ \yl@ydiff=-20\relax
+ \putratom{273}{331}{\@memberb}% % right type
+ \dotorline(303,171)(0,1){140}/(303,171)(303,311)%
+ \else\if\@tmpc u%(u) up --- (B) beta
+ \yl@xdiff=30\relax
+ \yl@ydiff=-20\relax
+ \putratom{273}{331}{\@memberb}% % right type
+ {%
+ \thicklines%
+ \Put@Line(303,171)(0,1){140}% % single bond at 3
+ }%
+ \else\if\@tmpc d%(d) down --- (A) alpha
+ \yl@xdiff=-20\relax
+ \yl@ydiff=3\relax
+ \putratom{443}{240}{\@memberb}% % right type
+ \dotorline(303,171)(5,3){120}/(303,171)(423,243)%
+ \else\if\@tmpc b%(b) beta
+ \yl@xdiff=-20\relax
+ \yl@ydiff=3\relax
+ \putratom{443}{240}{\@memberb}% % right type
+ \Put@Line(303,171)(5,3){120}% % single bond at 3
+ \else\if\@tmpc a%(a) alpha
+ \yl@xdiff=30\relax
+ \yl@ydiff=-20\relax
+ \putratom{273}{331}{\@memberb}% % right type
+ \Put@Line(303,171)(0,1){140}% % single bond at 3
+ \else\if\@tmpc V%(V) beta undefined
+ \yl@xdiff=-20\relax
+ \yl@ydiff=3\relax
+ \putratom{443}{240}{\@memberb}% % right type
+ {%
+ \WaveBonds%
+ \Put@Line(303,171)(5,3){120}% % single bond at 3
+ }%
+ \else\if\@tmpc U%(U) alpha undefined
+ \yl@xdiff=30\relax
+ \yl@ydiff=-20\relax
+ \putratom{273}{331}{\@memberb}% % right type
+ {%
+ \WaveBonds%
+ \Put@Line(303,171)(0,1){140}% % single bond at 3
+ }%
+ \fi\fi\fi\fi\fi%
+ \fi\fi\fi\fi%
+ \else\if\@tmpb D%double bond
+ \yl@xdiff=6\relax
+ \yl@ydiff=-20\relax
+ \putratom{363}{311}{\@memberb}%
+ \Put@Line(310,168)(3,5){72}% % double bond at 3
+ \Put@Line(284,174)(3,5){72}% % double bond at 3
+ \else\if\@tmpb B%beta single bond
+ \yl@xdiff=12\relax
+ \yl@ydiff=-20\relax
+ \putratom{363}{311}{\@memberb}%
+ {%
+ \thicklines%
+ \Put@Line(303,171)(3,5){72}% % single bond at 3
+ }%
+ \else\if\@tmpb A%alpha single bond
+ \yl@xdiff=12\relax
+ \yl@ydiff=-20\relax
+ \putratom{363}{311}{\@memberb}%
+ \dotorline(303,171)(3,5){72}/(303,171)(375,291)%
+ \else\if\@tmpb U%undefined single bond
+ \yl@xdiff=12\relax
+ \yl@ydiff=-20\relax
+ \putratom{363}{311}{\@memberb}%
+ {%
+ \WaveBonds%
+ \Put@Line(303,171)(3,5){72}% % single wave bond at 3
+ }%
+ \else\if\@tmpb F%fused bond
+ {\let\@tmpb=\@tmpc\@clipfusefalse
+ \Put@Direct(303,171){\setatombondD}%
+ }%
+ \else\if\@tmpb G%fused bond
+ {\let\@tmpb=\@tmpc\@clipfusefalse
+ \Put@Direct(303,171){\setatombondb}%
+ }%
+ \else%
+ \yl@xdiff=12\relax
+ \yl@ydiff=-20\relax
+ \putratom{363}{311}{\@memberb}%
+ \Put@Line(303,171)(3,5){72}% % single bond at 3
+ \fi\fi\fi\fi%
+ \fi\fi\fi
+ \fi}% end of \@hsubstc
+\def\@hsubstd{%
+\if@clip %clipping
+ \if\@tmpb S%single bond
+ \ifx\@tmpc\empty%
+ \yl@xdiff=-17\relax
+ \yl@ydiff=31\relax
+ \putratom{563}{-31}{\@memberb}% % right type only
+ \Put@Line(436,0)(1,0){110}% % single bond at 4
+ \else\if\@tmpc B%(B) beta
+ \yl@xdiff=-27\relax
+ \yl@ydiff=36\relax
+ \putratom{563}{42}{\@memberb}% % right type only
+ {%
+ \thicklines%
+ \Put@Line(436,18)(5,3){100}% % single bond at 4
+ }%
+ \else\if\@tmpc A%(A) alpha
+ \yl@xdiff=-27\relax
+ \yl@ydiff=22\relax
+ \putratom{563}{-100}{\@memberb}% % right type only
+ \dotorline(436,-18)(5,-3){100}/(436,-18)(526,-72)%
+ \else\if\@tmpc u%(u) up --- (B) beta
+ \yl@xdiff=-27\relax
+ \yl@ydiff=22\relax
+ \putratom{563}{-100}{\@memberb}% % right type only
+ {%
+ \thicklines%
+ \Put@Line(436,-18)(5,-3){100}% % single bond at 4
+ }%
+ \else\if\@tmpc d%(d) down --- (A) alpha
+ \yl@xdiff=-27\relax
+ \yl@ydiff=36\relax
+ \putratom{563}{42}{\@memberb}% % right type only
+ \dotorline(436,18)(5,3){100}/(436,18)(536,78)%
+ \else\if\@tmpc b%(b) beta
+ \yl@xdiff=-27\relax
+ \yl@ydiff=36\relax
+ \putratom{563}{42}{\@memberb}% % right type only
+ \Put@Line(436,18)(5,3){100}% % single bond at 4
+ \else\if\@tmpc a%(a) alpha
+ \yl@xdiff=-27\relax
+ \yl@ydiff=22\relax
+ \putratom{563}{-100}{\@memberb}% % right type only
+ \Put@Line(436,-18)(5,-3){100}% % single bond at 4
+ \else\if\@tmpc V%(V) beta undefined
+ \yl@xdiff=-27\relax
+ \yl@ydiff=36\relax
+ \putratom{563}{42}{\@memberb}% % right type only
+ {%
+ \WaveBonds%
+ \Put@Line(436,18)(5,3){100}% % single bond at 4
+ }%
+ \else\if\@tmpc U%(U) alpha undefined
+ \yl@xdiff=-27\relax
+ \yl@ydiff=22\relax
+ \putratom{563}{-100}{\@memberb}% % right type only
+ {%
+ \WaveBonds%
+ \Put@Line(436,-18)(5,-3){100}% % single bond at 4
+ }%
+ \fi\fi\fi\fi\fi%
+ \fi\fi\fi\fi
+ \else\if\@tmpb D%double bond
+ \yl@xdiff=-17\relax
+ \yl@ydiff=31\relax
+ \putratom{563}{-31}{\@memberb}% % right type only
+ \Put@Line(436,-12)(1,0){110}% % double bond at 4
+ \Put@Line(436,12)(1,0){110}% % double bond at 4
+ \else\if\@tmpb B%beta single bond
+ \yl@xdiff=-17\relax
+ \yl@ydiff=31\relax
+ \putratom{563}{-31}{\@memberb}% % right type only
+ {%
+ \thicklines%
+ \Put@Line(436,0)(1,0){110}% % single bond at 4
+ }%
+ \else\if\@tmpb A%alpha single bond
+ \yl@xdiff=-17\relax
+ \yl@ydiff=31\relax
+ \putratom{563}{-31}{\@memberb}% % right type only
+ \dotorline(436,0)(1,0){110}/(436,0)(546,0)%
+ \else\if\@tmpb U%undefined single bond
+ \yl@xdiff=-17\relax
+ \yl@ydiff=31\relax
+ \putratom{563}{-31}{\@memberb}% % right type only
+ {%
+ \WaveBonds%
+ \Put@Line(436,0)(1,0){110}% % single wave bond at 3
+ }%
+ \else\if\@tmpb F%fused bond
+ {\let\@tmpb=\@tmpc\@clipfusetrue
+ \Put@Direct(406,0){\setatombondF}%
+ }%
+ \else\if\@tmpb G%fused bond
+ {\let\@tmpb=\@tmpc\@clipfusetrue
+ \Put@Direct(406,0){\setatombondE}%
+ }%
+ \else%
+ \yl@xdiff=-17\relax
+ \yl@ydiff=31\relax
+ \putratom{563}{-31}{\@memberb}% % right type only
+ \Put@Line(436,0)(1,0){110}% % single bond at 4
+ \fi\fi\fi\fi%
+ \fi\fi\fi
+\else%% no clipping
+ \if\@tmpb S%single bond
+ \ifx\@tmpc\empty%
+ \yl@xdiff=-17\relax
+ \yl@ydiff=31\relax
+ \putratom{563}{-31}{\@memberb}% % right type only
+ \Put@Line(406,0)(1,0){140}% % single bond at 4
+ \else\if\@tmpc B%(B) beta
+ \yl@xdiff=-37\relax
+ \yl@ydiff=30\relax
+ \putratom{563}{42}{\@memberb}% % right type only
+ {%
+ \thicklines%
+ \Put@Line(406,0)(5,3){120}% % single bond at 4
+ }%
+ \else\if\@tmpc A%(A) alpha
+ \yl@xdiff=-37\relax
+ \yl@ydiff=28\relax
+ \putratom{563}{-100}{\@memberb}% % right type only
+ \dotorline(406,0)(5,-3){120}/(406,0)(526,-72)%
+ \else\if\@tmpc u%(u) up --- (B) beta
+ \yl@xdiff=-37\relax
+ \yl@ydiff=28\relax
+ \putratom{563}{-100}{\@memberb}% % right type only
+ {%
+ \thicklines%
+ \Put@Line(406,0)(5,-3){120}% % single bond at 4
+ }%
+ \else\if\@tmpc d%(d) down --- (A) alpha
+ \yl@xdiff=-37\relax
+ \yl@ydiff=30\relax
+ \putratom{563}{42}{\@memberb}% % right type only
+ \dotorline(406,0)(5,3){120}/(406,0)(526,72)%
+ \else\if\@tmpc b%(b) beta
+ \yl@xdiff=-37\relax
+ \yl@ydiff=30\relax
+ \putratom{563}{42}{\@memberb}% % right type only
+ \Put@Line(406,0)(5,3){120}% % single bond at 4
+ \else\if\@tmpc a%(a) alpha
+ \yl@xdiff=-37\relax
+ \yl@ydiff=28\relax
+ \putratom{563}{-100}{\@memberb}% % right type only
+ \Put@Line(406,0)(5,-3){120}% % single bond at 4
+ \else\if\@tmpc V%(V) beta undefined
+ \yl@xdiff=-37\relax
+ \yl@ydiff=30\relax
+ \putratom{563}{42}{\@memberb}% % right type only
+ {%
+ \WaveBonds%
+ \Put@Line(406,0)(5,3){120}% % single bond at 4
+ }%
+ \else\if\@tmpc U%(U) alpha undefined
+ \yl@xdiff=-37\relax
+ \yl@ydiff=28\relax
+ \putratom{563}{-100}{\@memberb}% % right type only
+ {%
+ \WaveBonds%
+ \Put@Line(406,0)(5,-3){120}% % single bond at 4
+ }%
+ \fi\fi\fi\fi\fi%
+ \fi\fi\fi\fi
+ \else\if\@tmpb D%double bond
+ \yl@xdiff=-17\relax
+ \yl@ydiff=31\relax
+ \putratom{563}{-31}{\@memberb}% % right type only
+ \Put@Line(406,-12)(1,0){140}% % double bond at 4
+ \Put@Line(406,12)(1,0){140}% % double bond at 4
+ \else\if\@tmpb B%beta single bond
+ \yl@xdiff=-17\relax
+ \yl@ydiff=31\relax
+ \putratom{563}{-31}{\@memberb}% % right type only
+ {%
+ \thicklines%
+ \Put@Line(406,0)(1,0){140}% % single bond at 4
+ }%
+ \else\if\@tmpb A%alpha single bond
+ \yl@xdiff=-17\relax
+ \yl@ydiff=31\relax
+ \putratom{563}{-31}{\@memberb}% % right type only
+ \dotorline(406,0)(1,0){140}/(406,0)(546,0)%
+ \else\if\@tmpb U%undefined single bond
+ \yl@xdiff=-17\relax
+ \yl@ydiff=31\relax
+ \putratom{563}{-31}{\@memberb}% % right type only
+ {%
+ \WaveBonds%
+ \Put@Line(406,0)(1,0){140}% % single wave bond at 4
+ }%
+ \else\if\@tmpb F%fused bond
+ {\let\@tmpb=\@tmpc\@clipfusefalse
+ \Put@Direct(406,0){\setatombondF}%
+ }%
+ \else\if\@tmpb G%fused bond
+ {\let\@tmpb=\@tmpc\@clipfusefalse
+ \Put@Direct(406,0){\setatombondE}%
+ }%
+ \else%
+ \yl@xdiff=-17\relax
+ \yl@ydiff=31\relax
+ \putratom{563}{-31}{\@memberb}% % right type only
+ \Put@Line(406,0)(1,0){140}% % single bond at 4
+ \fi\fi\fi\fi%
+ \fi\fi\fi
+ \fi}% end of \@hsubstd
+\def\@hsubste{%
+ \if@eclip %clipping
+ \if\@tmpb S%single bond
+ \ifx\@tmpc\empty%
+ \yl@xdiff=33\relax
+ \yl@ydiff=76\relax
+ \putratom{373}{-402}{\@memberb}%
+ \Put@Line(343,-221)(3,-5){63}%% single bond at 5 (62=>63)
+ \else\if\@tmpc B%(B) beta
+ \yl@xdiff=0\relax
+ \yl@ydiff=41\relax
+ \putratom{443}{-301}{\@memberb}% % right type
+ {%
+ \thicklines%
+ \Put@Line(343,-201)(5,-3){100}% % single bond at 5
+ }%
+ \else\if\@tmpc A%(A) alpha
+ \yl@xdiff=30\relax
+ \yl@ydiff=71\relax
+ \putlratom{273}{-402}{\@memberb}% % left-right type
+ \dotorline(303,-221)(0,-1){110}/(303,-221)(303,-311)%
+ \else\if\@tmpc u%(u) up --- (B) beta
+ \yl@xdiff=30\relax
+ \yl@ydiff=71\relax
+ \putlratom{273}{-402}{\@memberb}% % left-right type
+ {%
+ \thicklines%
+ \Put@Line(303,-221)(0,-1){100}% % single bond at 5
+ }%
+ \else\if\@tmpc d%(d) down --- (A) alpha
+ \yl@xdiff=0\relax
+ \yl@ydiff=41\relax
+ \putratom{443}{-301}{\@memberb}% % right type
+ \dotorline(343,-201)(5,-3){100}/(343,-201)(443,-260)%
+ \else\if\@tmpc b%(b) beta
+ \yl@xdiff=0\relax
+ \yl@ydiff=41\relax
+ \putratom{443}{-301}{\@memberb}% % right type
+ \Put@Line(343,-201)(5,-3){100}% % single bond at 5
+ \else\if\@tmpc a%(a) alpha
+ \yl@xdiff=30\relax
+ \yl@ydiff=71\relax
+ \putratom{273}{-402}{\@memberb}% % left-right type
+ \Put@Line(303,-221)(0,-1){100}% % single bond at 5
+ \else\if\@tmpc V%(V) beta undefined
+ \yl@xdiff=0\relax
+ \yl@ydiff=41\relax
+ \putratom{443}{-301}{\@memberb}% % right type
+ {%
+ \WaveBonds%
+ \Put@Line(343,-201)(5,-3){100}% % single bond at 5
+ }%
+ \else\if\@tmpc U%(U) alpha undefined
+ \yl@xdiff=30\relax
+ \yl@ydiff=71\relax
+ \putratom{273}{-402}{\@memberb}% % left-right type
+ {%
+ \WaveBonds%
+ \Put@Line(303,-221)(0,-1){100}% % single bond at 5
+ }%
+ \fi\fi\fi\fi\fi%
+ \fi\fi\fi\fi
+ \else\if\@tmpb D%double bond
+ \yl@xdiff=12\relax
+ \yl@ydiff=82\relax
+ \putratom{373}{-402}{\@memberb}%
+ \Put@Line(328,-208)(3,-5){63}% % double bond at 5 (62->63)
+ \Put@Line(306,-224)(3,-5){63}% % double bond at 5 (62->63)
+ \else\if\@tmpb B%beta single bond
+ \yl@xdiff=33\relax
+ \yl@ydiff=76\relax
+ \putratom{373}{-402}{\@memberb}%
+ {%
+ \thicklines%
+ \Put@Line(343,-221)(3,-5){63}%% single bond at 5(62->63)
+ }%
+ \else\if\@tmpb A%alpha single bond
+ \yl@xdiff=33\relax
+ \yl@ydiff=76\relax
+ \putratom{373}{-402}{\@memberb}%
+ \dotorline(343,-221)(3,-5){63}/(343,-221)(406,-326)%
+ \else\if\@tmpb U%undefined single bond
+ \yl@xdiff=33\relax
+ \yl@ydiff=76\relax
+ \putratom{373}{-402}{\@memberb}%
+ {%
+ \WaveBonds%
+ \Put@Line(343,-221)(3,-5){63}% % single wave bond at 5
+ }%
+ \else\if\@tmpb F%fused bond
+ {\let\@tmpb=\@tmpc\@clipfusetrue
+ \Put@Direct(303,-171){\setatombondb}%
+ }%
+ \else\if\@tmpb G%fused bond
+ {\let\@tmpb=\@tmpc\@clipfusetrue
+ \Put@Direct(303,-171){\setatombondG}%
+ }%
+ \else%
+ \yl@xdiff=33\relax
+ \yl@ydiff=76\relax
+ \putratom{373}{-402}{\@memberb}%
+ \Put@Line(343,-221)(3,-5){63}% % single bond at 5(62->63)
+ \fi\fi\fi\fi%
+ \fi\fi\fi
+ \else%no clipping
+ \if\@tmpb S%single bond
+ \ifx\@tmpc\empty%
+ \yl@xdiff=9\relax
+ \yl@ydiff=91\relax
+ \putratom{363}{-382}{\@memberb}%
+ \Put@Line(303,-171)(3,-5){72}% % single bond at 5
+ \else\if\@tmpc B%(B) beta
+ \yl@xdiff=-20\relax
+ \yl@ydiff=58\relax
+ \putratom{443}{-301}{\@memberb}% % right type
+ {%
+ \thicklines%
+ \Put@Line(303,-171)(5,-3){120}% % single bond at 5
+ }%
+ \else\if\@tmpc A%(A) alpha
+ \yl@xdiff=30\relax
+ \yl@ydiff=81\relax
+ \putratom{273}{-402}{\@memberb}% % right type
+ \dotorline(303,-171)(0,-1){140}/(303,-171)(303,-311)%2002/5/30
+ \else\if\@tmpc u%(u) up --- (B) beta
+ \yl@xdiff=30\relax
+ \yl@ydiff=81\relax
+ \putratom{273}{-402}{\@memberb}% % right type
+ {%
+ \thicklines%
+ \Put@Line(303,-171)(0,-1){140}% % single bond at 5
+ }%
+ \else\if\@tmpc d%(d) down --- (A) alpha
+ \yl@xdiff=-20\relax
+ \yl@ydiff=58\relax
+ \putratom{443}{-301}{\@memberb}% % right type
+ \dotorline(303,-171)(5,-3){120}/(303,-171)(423,-243)%
+ \else\if\@tmpc b%(b) beta
+ \yl@xdiff=-20\relax
+ \yl@ydiff=58\relax
+ \putratom{443}{-301}{\@memberb}% % right type
+ \Put@Line(303,-171)(5,-3){120}% % single bond at 5
+ \else\if\@tmpc a%(a) alpha
+ \yl@xdiff=30\relax
+ \yl@ydiff=81\relax
+ \putratom{273}{-402}{\@memberb}% % right type
+ \Put@Line(303,-171)(0,-1){140}% % single bond at 5
+ \else\if\@tmpc V%(V) beta undefined
+ \yl@xdiff=-20\relax
+ \yl@ydiff=58\relax
+ \putratom{443}{-301}{\@memberb}% % right type
+ {%
+ \WaveBonds%
+ \Put@Line(303,-171)(5,-3){120}% % single bond at 5
+ }%
+ \else\if\@tmpc U%(U) alpha undefined
+ \yl@xdiff=30\relax
+ \yl@ydiff=81\relax
+ \putratom{273}{-402}{\@memberb}% % right type
+ {%
+ \WaveBonds%
+ \Put@Line(303,-171)(0,-1){140}% % single bond at 5
+ }%
+ \fi\fi\fi\fi\fi%
+ \fi\fi\fi\fi
+ \else\if\@tmpb D%double bond
+ \yl@xdiff=3\relax
+ \yl@ydiff=91\relax
+ \putratom{363}{-382}{\@memberb}%
+ \Put@Line(310,-168)(3,-5){72}% % double bond at 5
+ \Put@Line(284,-174)(3,-5){72}% % double bond at 5
+ \else\if\@tmpb B%beta single bond
+ \yl@xdiff=9\relax
+ \yl@ydiff=91\relax
+ \putratom{363}{-382}{\@memberb}%
+ {%
+ \thicklines%
+ \Put@Line(303,-171)(3,-5){72}% % single bond at 5
+ }%
+ \else\if\@tmpb A%alpha single bond
+ \yl@xdiff=9\relax
+ \yl@ydiff=91\relax
+ \putratom{363}{-382}{\@memberb}%
+ \dotorline(303,-171)(3,-5){72}/(303,-171)(375,-291)%
+ \else\if\@tmpb U%undefined single bond
+ \yl@xdiff=9\relax
+ \yl@ydiff=91\relax
+ \putratom{363}{-382}{\@memberb}%
+ {%
+ \WaveBonds%
+ \Put@Line(303,-171)(3,-5){72}% % single wave bond at 5
+ }%
+ \else\if\@tmpb F%fused bond
+ {\let\@tmpb=\@tmpc\@clipfusefalse
+ \Put@Direct(303,-171){\setatombondb}%
+ }%
+ \else\if\@tmpb G%fused bond
+ {\let\@tmpb=\@tmpc\@clipfusefalse
+ \Put@Direct(303,-171){\setatombondG}%
+ }%
+ \else%
+ \yl@xdiff=9\relax
+ \yl@ydiff=91\relax
+ \putratom{363}{-382}{\@memberb}%
+ \Put@Line(303,-171)(3,-5){72}% % single bond at 5
+ \fi\fi\fi\fi%
+ \fi\fi\fi
+ \fi}% end of \@hsubste
+\def\@hsubstf{%
+ \if@fclip %clipping
+ \if\@tmpb S%single bond
+ \ifx\@tmpc\empty%
+ \yl@xdiff=53\relax
+ \yl@ydiff=76\relax
+ \putlratom{-37}{-402}{\@memberb}%
+ \Put@Line(79,-221)(-3,-5){63}% % single bond at 6 (62=>63)
+ \else\if\@tmpc B%(B) beta
+ \yl@xdiff=-10\relax
+ \yl@ydiff=40\relax
+ \putlatom{-31}{-301}{\@memberb}% % right type
+ {%
+ \thicklines%
+ \Put@Line(59,-201)(-5,-3){100}% % single bond at 6
+ }%
+ \else\if\@tmpc A%(A) alpha
+ \yl@xdiff=30\relax
+ \yl@ydiff=81\relax
+ \putlratom{73}{-402}{\@memberb}% % left-right type
+ \dotorline(103,-221)(0,-1){100}/(103,-221)(103,-321)%
+ \else\if\@tmpc u%(u) up --- (B) beta
+ \yl@xdiff=30\relax
+ \yl@ydiff=81\relax
+ \putlratom{73}{-402}{\@memberb}% % left-right type
+ {%
+ \thicklines%
+ \Put@Line(103,-221)(0,-1){100}% % single bond at 6
+ }%
+ \else\if\@tmpc d%(d) down --- (A) alpha
+ \yl@xdiff=-10\relax
+ \yl@ydiff=40\relax
+ \putlatom{-31}{-301}{\@memberb}% % right type
+ \dotorline(59,-201)(-5,-3){100}/(59,-201)(-41,-261)%
+ \else\if\@tmpc b%(b) beta
+ \yl@xdiff=-10\relax
+ \yl@ydiff=40\relax
+ \putlatom{-31}{-301}{\@memberb}% % right type
+ \Put@Line(59,-201)(-5,-3){100}% % single bond at 6
+ \else\if\@tmpc a%(a) alpha
+ \yl@xdiff=30\relax
+ \yl@ydiff=81\relax
+ \putratom{73}{-402}{\@memberb}% % right type
+ \Put@Line(103,-221)(0,-1){100}% % single bond at 6
+ \else\if\@tmpc V%(V) beta undefined
+ \yl@xdiff=-10\relax
+ \yl@ydiff=40\relax
+ \putlatom{-31}{-301}{\@memberb}% % right type
+ {%
+ \WaveBonds%
+ \Put@Line(59,-201)(-5,-3){100}% % single bond at 6
+ }%
+ \else\if\@tmpc U%(U) alpha undefined
+ \yl@xdiff=30\relax
+ \yl@ydiff=81\relax
+ \putratom{73}{-402}{\@memberb}% % right type
+ {%
+ \WaveBonds%
+ \Put@Line(103,-221)(0,-1){100}% % single bond at 6
+ }%
+ \fi\fi\fi\fi\fi
+ \fi\fi\fi\fi
+ \else\if\@tmpb D%double bond
+ \yl@xdiff=59\relax
+ \yl@ydiff=82\relax
+ \putlratom{-37}{-402}{\@memberb}%
+ \Put@Line(78,-208)(-3,-5){63}% % double bond at 6 (62->63)
+ \Put@Line(106,-219)(-3,-5){63}% % double bond at 6 (62->63)
+ \else\if\@tmpb B%beta single bond
+ \yl@xdiff=53\relax
+ \yl@ydiff=76\relax
+ \putlratom{-37}{-402}{\@memberb}%
+ {%
+ \thicklines%
+ \Put@Line(79,-221)(-3,-5){63}% % single bond at 6 (62=>63)
+ }%
+ \else\if\@tmpb A%alpha single bond
+ \yl@xdiff=53\relax
+ \yl@ydiff=76\relax
+ \putlratom{-37}{-402}{\@memberb}%
+ \dotorline(79,-221)(-3,-5){63}/(79,-221)(16,-326)%
+ \else\if\@tmpb U%undefined single bond
+ \yl@xdiff=53\relax
+ \yl@ydiff=76\relax
+ \putlratom{-37}{-402}{\@memberb}%
+ {%
+ \WaveBonds%
+ \Put@Line(79,-221)(-3,-5){63}% % single wave bond at 6
+ }%
+ \else\if\@tmpb F%fused bond
+ {\let\@tmpb=\@tmpc\@clipfusetrue
+ \Put@Direct(103,-171){\setatombondE}%
+ }%
+ \else\if\@tmpb G%fused bond
+ {\let\@tmpb=\@tmpc\@clipfusetrue
+ \Put@Direct(103,-171){\setatombondh}%
+ }%
+ \else%
+ \yl@xdiff=53\relax
+ \yl@ydiff=76\relax
+ \putlratom{-37}{-402}{\@memberb}%
+ \Put@Line(79,-221)(-3,-5){63}% % single bond at 6(62->63)
+ \fi\fi\fi\fi%
+ \fi\fi\fi
+ \else%%no clipping
+ \if\@tmpb S%single bond
+ \ifx\@tmpc\empty%
+ \yl@xdiff=63\relax
+ \yl@ydiff=91\relax
+ \putlratom{-27}{-382}{\@memberb}%
+ \Put@Line(108,-171)(-3,-5){72}% % single bond at 6
+ \else\if\@tmpc B%beta single bond%1998/10/11 by S. Fujita
+ \yl@xdiff=8\relax
+ \yl@ydiff=58\relax
+ \putlatom{-31}{-301}{\@memberb}% % right type
+ {%
+ \thicklines%
+ \Put@Line(103,-171)(-5,-3){120}% % single bond at 6
+ }%
+ \else\if\@tmpc A%(A) alpha
+ \yl@xdiff=30\relax
+ \yl@ydiff=91\relax
+ \putlratom{73}{-402}{\@memberb}% % left-right type
+ \dotorline(103,-171)(0,-1){140}/(103,-171)(103,-311)%
+ \else\if\@tmpc u%(u) up --- (B) beta
+ \yl@xdiff=30\relax
+ \yl@ydiff=91\relax
+ \putlratom{73}{-402}{\@memberb}% % left-right type
+ {%
+ \thicklines%
+ \Put@Line(103,-171)(0,-1){140}% % single bond at 6
+ }%
+ \else\if\@tmpc d%(d) down --- (A) alpha
+ \yl@xdiff=8\relax
+ \yl@ydiff=58\relax
+ \putlatom{-31}{-301}{\@memberb}% % right type
+ \dotorline(103,-171)(-5,-3){120}/(103,-171)(-17,-243)%
+ \else\if\@tmpc b%(b) beta
+ \yl@xdiff=8\relax
+ \yl@ydiff=58\relax
+ \putlatom{-31}{-301}{\@memberb}% % right type
+ \Put@Line(103,-171)(-5,-3){120}% % single bond at 6
+ \else\if\@tmpc a%(a) alpha
+ \yl@xdiff=30\relax
+ \yl@ydiff=91\relax
+ \putlratom{73}{-402}{\@memberb}% % right-left type
+ \Put@Line(103,-171)(0,-1){140}% % single bond at 6
+ \else\if\@tmpc V%(V) beta undefined
+ \yl@xdiff=8\relax
+ \yl@ydiff=58\relax
+ \putlatom{-31}{-301}{\@memberb}% % right type
+ {%
+ \WaveBonds%
+ \Put@Line(103,-171)(-5,-3){120}% % single bond at 6
+ }%
+ \else\if\@tmpc U%(U) alpha undefined
+ \yl@xdiff=30\relax
+ \yl@ydiff=91\relax
+ \putlratom{73}{-402}{\@memberb}% % right-left type
+ {%
+ \WaveBonds%
+ \Put@Line(103,-171)(0,-1){140}% % single bond at 6
+ }%
+ \fi\fi\fi\fi\fi%
+ \fi\fi\fi\fi
+ \else\if\@tmpb D%double bond
+ \yl@xdiff=65\relax
+ \yl@ydiff=91\relax
+ \putlratom{-27}{-382}{\@memberb}%
+ \Put@Line(96,-168)(-3,-5){72}% % double bond at 6
+ \Put@Line(121,-174)(-3,-5){72}% % double bond at 6
+ \else\if\@tmpb B%beta single bond
+ \yl@xdiff=59\relax
+ \yl@ydiff=91\relax
+ \putlratom{-27}{-382}{\@memberb}%
+ \Put@Line(108,-171)(-3,-5){72}% % single bond at 6
+ {%
+ \thicklines%
+ \Put@Line(108,-171)(-3,-5){72}% % single bond at 6
+ }%
+ \else\if\@tmpb A%alpha single bond
+ \yl@xdiff=59\relax
+ \yl@ydiff=91\relax
+ \putlratom{-27}{-382}{\@memberb}%
+ \dotorline(108,-171)(-3,-5){72}/(103,-171)(31,-291)%
+ \else\if\@tmpb U%undefined single bond
+ \yl@xdiff=59\relax
+ \yl@ydiff=91\relax
+ \putlratom{-27}{-382}{\@memberb}%
+ {%
+ \WaveBonds%
+ \Put@Line(108,-171)(-3,-5){72}% % single wave bond at 6
+ }%
+ \else\if\@tmpb F%fused bond
+ {\let\@tmpb=\@tmpc\@clipfusefalse
+ \Put@Direct(103,-171){\setatombondE}%
+ }%
+ \else\if\@tmpb G%fused bond
+ {\let\@tmpb=\@tmpc\@clipfusefalse
+ \Put@Direct(103,-171){\setatombondh}%
+ }%
+ \else%
+ \yl@xdiff=59\relax
+ \yl@ydiff=91\relax
+ \putlratom{-27}{-382}{\@memberb}%
+ \Put@Line(108,-171)(-3,-5){72}% % single bond at 6
+ \fi\fi\fi\fi%
+ \fi\fi\fi
+ \fi}% end of \@hsubstf
+\def\setsixringh#1#2#3#4#5{%
+\@forsemicol\member:=#1\do{%
+\ifx\member\empty\else%
+\expandafter\@m@mb@r\member;\relax%
+\expandafter\threech@r\@membera{}{}%
+\ifx\@memberb\@yl\else
+\ifnum#5 < 0\relax%
+\@tmpaa=-\@tmpa\relax \advance\@tmpaa by#2\relax%
+\else\@tmpaa=\@tmpa\relax \advance\@tmpaa by#2\relax \fi
+\ifnum\@tmpaa >#3\relax%
+\ifnum\@tmpaa <#4\relax%
+\ifcase\@tmpaa%0 omit
+\or{\setbscolor\@hsubsta\addbscolor{}{}}% subst. on 1%2010/10/01
+\or{\setbscolor\@hsubstb\addbscolor{}{}}% subst. on 2%2010/10/01
+\or{\setbscolor\@hsubstc\addbscolor{}{}}% subst. on 3%2010/10/01
+\or{\setbscolor\@hsubstd\addbscolor{}{}}% subst. on 4%2010/10/01
+\or{\setbscolor\@hsubste\addbscolor{}{}}% subst. on 5%2010/10/01
+\or{\setbscolor\@hsubstf\addbscolor{}{}}% subst. on 6%2010/10/01
+\fi%end of ifcase
+\fi\fi\fi\fi}}% %end of setsixringh
+\newcount\x@ryl
+\newcount\y@ryl
+\def\ryl{\@ifnextchar({\@ryl}{\@ryl()}}
+\def\@ryl(#1)#2{%
+\iniatom\iniflag%initialize
+\@reset@ylsw%
+\def\centeraaa{}%
+\x@ryl=0\y@ryl=0
+\@forsemicol\member:=#1\do{%
+\if@ylsw%
+\XyMTeXWarning{Duplicated items in the first augument of \string\ryl}%
+\else%
+\ifx\member\empty\else%
+\expandafter\@m@mb@r\member;\relax%
+\expandafter\twoch@r\@membera{}%
+\settowidth{\dimen0}{\@memberb}%
+\x@ryl=\dimen0%%%dimension => counter
+\divide\x@ryl\unitlength
+\advance\x@ryl by-70
+\y@ryl=0
+\ifcase\@tmpa%
+\def\centeraaa{\@memberb}\@ylswtrue
+\advance\y@ryl by50
+\or%1
+\def\centeraaa{\@memberb}\@ylswtrue
+\advance\x@ryl by30
+\advance\y@ryl by50
+\or%2
+\def\centeraaa{\@memberb}\@ylswtrue
+\advance\x@ryl by40
+\advance\y@ryl by40
+\or%3
+\def\centeraaa{\@memberb}\@ylswtrue
+\advance\x@ryl by50
+\advance\y@ryl by30
+\or%4
+\def\centeraaa{\@memberb}\@ylswtrue
+\advance\x@ryl by50
+\advance\y@ryl by0
+\or%5
+\def\centeraaa{\@memberb}\@ylswtrue
+\advance\x@ryl by50
+\advance\y@ryl by-30
+\or%6
+\def\centeraaa{\@memberb}\@ylswtrue
+\advance\x@ryl by50
+\advance\y@ryl by-50
+\or%7
+\def\centeraaa{\@memberb}\@ylswtrue
+\advance\x@ryl by30
+\advance\y@ryl by-50
+\or%8
+\def\centeraaa{\@memberb}\@ylswtrue
+\advance\y@ryl by-50
+\fi
+\fi\fi}%
+ \yl@shiftii=\x@ryl
+ \yl@shifti=-\y@ryl
+ \advance\yl@shiftii\yl@xdiff
+ \advance\yl@shifti\yl@ydiff
+ \begin{sfpicture}(0,0)(-\yl@shiftii,-\yl@shifti)%
+\ifx\centeraaa\empty\else%
+ \@clipfusetrue
+ \putlatom{40}{-30}{\centeraaa}% % left type
+\fi%
+\@forsemicol\member:=#2\do{%
+\ifx\member\empty\else%
+\expandafter\@m@mb@r\member;\relax%
+\expandafter\threech@r\@membera{}{}%
+\let\local@tmpa=\@tmpa%global to local 2002/5/30 by SF
+\ifcase\local@tmpa%
+{\setbscolor\setatombonda\addbscolor{}{}}%2010/10/01%\setatombonda% 0 (upward) (0,1)
+\or{\setbscolor\setatombondF\addbscolor{}{}}%2010/10/01%\or\setatombondF%1 (3,5)
+\or{\setbscolor\setatombondA\addbscolor{}{}}%2010/10/01%\or\setatombondA%2 (1,1)
+\or{\setbscolor\setatombondf\addbscolor{}{}}%2010/10/01%\or\setatombondf%3 (5,3)
+\or{\setbscolor\setatombondb\addbscolor{}{}}%2010/10/01%\or\setatombondb%4 (1,0)
+\or{\setbscolor\setatombonde\addbscolor{}{}}%2010/10/01%\or\setatombonde%5 (5,-3)
+\or{\setbscolor\setatombondB\addbscolor{}{}}%2010/10/01%\or\setatombondB%6 (1,-1)
+\or{\setbscolor\setatombondE\addbscolor{}{}}%2010/10/01%\or\setatombondE%7 (3,-5)
+\or{\setbscolor\setatombondc\addbscolor{}{}}%2010/10/01%\or\setatombondc%8 (0,-1)
+\fi%end of ifcase
+\fi
+}\end{sfpicture}}% %end of \ryl macro
+\def\setatombondF{%% (3,5)
+ \if@clipfuse%
+ \if\@tmpb B%beta single bond
+ \yl@xdiff=10\relax
+ \yl@ydiff=-10\relax
+ {%
+ \thicklines%
+ \Put@Line(30,50)(3,5){60}% % single bond at 1
+ }%
+ \else\if\@tmpb A%alpha single bond
+ \yl@xdiff=10\relax
+ \yl@ydiff=-10\relax
+ \dotorline(30,50)(3,5){60}/(30,50)(90,150)%
+ \else\if\@tmpb U%unspecified single bond
+ \yl@xdiff=10\relax
+ \yl@ydiff=-10\relax
+ {%
+ \WaveBonds%
+ \Put@Line(30,50)(3,5){60}% % single bond at 1
+ }%
+ \else\if\@tmpb S%beta single bond
+ \yl@xdiff=10\relax
+ \yl@ydiff=-10\relax
+ \Put@Line(30,50)(3,5){60}% % single bond at 1
+ \else\if\@tmpb D%double bond
+ \yl@xdiff=10\relax
+ \yl@ydiff=-10\relax
+ \Put@Line(40,44)(3,5){60}% % single bond at 1
+ \Put@Line(20,56)(3,5){60}% % single bond at 1
+ \else\if\@tmpb T%triple bond
+ \yl@xdiff=10\relax
+ \yl@ydiff=-10\relax
+ \Put@Line(45,41)(3,5){60}% % single bond at 1
+ \Put@Line(30,50)(3,5){60}% % single bond at 1
+ \Put@Line(15,59)(3,5){60}% % single bond at 1
+ \else\ifx\@tmpb\empty%beta single bond
+ \yl@xdiff=10\relax
+ \yl@ydiff=-10\relax
+ \Put@Line(30,50)(3,5){60}% % single bond at 1
+ \fi\fi\fi\fi\fi\fi\fi%
+ \putratom{80}{160}{\@memberb}% % right type
+ \else%no clipping
+ \if\@tmpb B%beta single bond
+ \yl@xdiff=10\relax
+ \yl@ydiff=-10\relax
+ {%
+ \thicklines%
+ \Put@Line(0,0)(3,5){90}% % single bond at 1
+ }%
+ \else\if\@tmpb A%alpha single bond
+ \yl@xdiff=10\relax
+ \yl@ydiff=-10\relax
+ \dotorline(0,0)(3,5){90}/(0,0)(90,150)%
+ \else\if\@tmpb U%unspecified single bond
+ \yl@xdiff=10\relax
+ \yl@ydiff=-10\relax
+ {%
+ \WaveBonds%
+ \Put@Line(0,0)(3,5){90}% % single bond at 1
+ }%
+ \else\if\@tmpb S%beta single bond
+ \yl@xdiff=10\relax
+ \yl@ydiff=-10\relax
+ \Put@Line(0,0)(3,5){90}% % single bond at 1
+ \else\if\@tmpb D%beta single bond
+ \yl@xdiff=10\relax
+ \yl@ydiff=-10\relax
+ \Put@Line(10,-6)(3,5){90}% % single bond at 1
+ \Put@Line(-10,6)(3,5){90}% % single bond at 1
+ \else\if\@tmpb T%beta single bond
+ \yl@xdiff=10\relax
+ \yl@ydiff=-10\relax
+ \Put@Line(15,-9)(3,5){90}% % single bond at 1
+ \Put@Line(0,0)(3,5){90}% % single bond at 1
+ \Put@Line(-15,9)(3,5){90}% % single bond at 1
+ \else\ifx\@tmpb\empty%beta single bond
+ \yl@xdiff=10\relax
+ \yl@ydiff=-10\relax
+ \Put@Line(0,0)(3,5){90}% % single bond at 1
+ \fi\fi\fi\fi\fi\fi\fi%
+ \putratom{80}{160}{\@memberb}% % right type
+ \fi%
+}% end of \setatombondF
+\def\setatombondE{%% (3,-5)
+ \if@clipfuse%
+ \yl@xdiff=10\relax
+ \yl@ydiff=90\relax
+ \if\@tmpb B%beta single bond
+ {%
+ \thicklines%
+ \Put@Line(30,-50)(3,-5){60}% % single bond at 1
+ }%
+ \else\if\@tmpb A%alpha single bond
+ \dotorline(30,-50)(3,-5){60}/(30,-50)(90,-150)%
+ \else\if\@tmpb U%unspecified single bond
+ {%
+ \WaveBonds%
+ \Put@Line(30,-50)(3,-5){60}% % single bond at 1
+ }%
+ \else\if\@tmpb S%beta single bond
+ \Put@Line(30,-50)(3,-5){60}% % single bond at 1
+ \else\if\@tmpb D%double bond
+ \Put@Line(40,-44)(3,-5){60}% % single bond at 1
+ \Put@Line(20,-56)(3,-5){60}% % single bond at 1
+ \else\if\@tmpb T%triple bond
+ \Put@Line(45,-41)(3,-5){60}% % single bond at 1
+ \Put@Line(30,-50)(3,-5){60}% % single bond at 1
+ \Put@Line(15,-59)(3,-5){60}% % single bond at 1
+ \else\ifx\@tmpb\empty%beta single bond
+ \Put@Line(30,-50)(3,-5){60}% % single bond at 1
+ \fi\fi\fi\fi\fi\fi\fi%
+ \putratom{80}{-240}{\@memberb}% % right type
+ \else%no clipping
+ \yl@xdiff=10\relax
+ \yl@ydiff=90\relax
+ \if\@tmpb B%beta single bond
+ {%
+ \thicklines%
+ \Put@Line(0,0)(3,-5){90}% % single bond at 1
+ }%
+ \else\if\@tmpb A%alpha single bond
+ \dotorline(0,0)(3,-5){90}/(0,0)(90,-150)%
+ \else\if\@tmpb U%unspecified single bond
+ {%
+ \WaveBonds%
+ \Put@Line(0,0)(3,-5){90}% % single bond at 1
+ }%
+ \else\if\@tmpb S%beta single bond
+ \Put@Line(0,0)(3,-5){90}% % single bond at 1
+ \else\if\@tmpb D%beta single bond
+ \Put@Line(10,6)(3,-5){90}% % single bond at 1
+ \Put@Line(-10,-6)(3,-5){90}% % single bond at 1
+ \else\if\@tmpb T%beta single bond
+ \Put@Line(15,9)(3,-5){90}% % single bond at 1
+ \Put@Line(0,0)(3,-5){90}% % single bond at 1
+ \Put@Line(-15,-9)(3,-5){90}% % single bond at 1
+ \else\ifx\@tmpb\empty%beta single bond
+ \Put@Line(0,0)(3,-5){90}% % single bond at 1
+ \fi\fi\fi\fi\fi\fi\fi%
+ \putratom{80}{-240}{\@memberb}% % right type
+ \fi%
+}% end of \setatombondE
+\def\setatombondA{%% (1,1)
+ \yl@xdiff=0\relax
+ \yl@ydiff=0\relax
+ \if@clipfuse%
+ \if\@tmpb B%beta single bond
+ {%
+ \thicklines%
+ \Put@Line(40,40)(1,1){100}% % single bond at 1
+ }%
+ \else\if\@tmpb A%alpha single bond
+ \dotorline(40,40)(1,1){100}/(40,40)(140,140)%
+ \else\if\@tmpb U%unspecified single bond
+ {%
+ \WaveBonds%
+ \Put@Line(40,40)(1,1){100}% % single bond at 1
+ }%
+ \else\if\@tmpb S%beta single bond
+ \Put@Line(40,40)(1,1){100}% % single bond at 1
+ \else\if\@tmpb D%double bond
+ \Put@Line(46,36)(1,1){100}% % single bond at 1
+ \Put@Line(36,46)(1,1){100}% % single bond at 1
+ \else\if\@tmpb T%triple bond
+ \Put@Line(50,30)(1,1){100}% % single bond at 1
+ \Put@Line(40,40)(1,1){100}% % single bond at 1
+ \Put@Line(30,50)(1,1){100}% % single bond at 1
+ \else\ifx\@tmpb\empty%beta single bond
+ \Put@Line(40,40)(1,1){100}% % single bond at 1
+ \fi\fi\fi\fi\fi\fi\fi%
+ \putratom{140}{140}{\@memberb}% % right type
+ \else%no clipping
+ \if\@tmpb B%beta single bond
+ {%
+ \thicklines%
+ \Put@Line(0,0)(1,1){120}% % single bond at 1
+ }%
+ \else\if\@tmpb A%alpha single bond
+ \dotorline(0,0)(1,1){120}/(0,0)(120,120)%
+ \else\if\@tmpb U%unspecified single bond
+ {%
+ \WaveBonds%
+ \Put@Line(0,0)(1,1){120}% % single bond at 1
+ }%
+ \else\if\@tmpb S%beta single bond
+ \Put@Line(0,0)(1,1){120}% % single bond at 1
+ \else\if\@tmpb D%beta single bond
+ \Put@Line(6,-6)(1,1){120}% % single bond at 1
+ \Put@Line(-6,6)(1,1){120}% % single bond at 1
+ \else\if\@tmpb T%beta single bond
+ \Put@Line(10,-10)(1,1){120}% % single bond at 1
+ \Put@Line(0,0)(1,1){120}% % single bond at 1
+ \Put@Line(-10,10)(1,1){120}% % single bond at 1
+ \else\ifx\@tmpb\empty%beta single bond
+ \Put@Line(0,0)(1,1){120}% % single bond at 1
+ \fi\fi\fi\fi\fi\fi\fi%
+ \putratom{120}{120}{\@memberb}% % right type
+ \fi%
+}% end of \setatombondA
+\def\setatombondB{%% (1,-1)
+ \if@clipfuse%
+ \yl@xdiff=0\relax
+ \yl@ydiff=60\relax
+ \if\@tmpb B%beta single bond
+ {%
+ \thicklines%
+ \Put@Line(40,-40)(1,-1){100}% % single bond at 1
+ }%
+ \else\if\@tmpb A%alpha single bond
+ \dotorline(40,-40)(1,-1){100}/(40,-40)(140,-140)%
+ \else\if\@tmpb U%unspecified single bond
+ {%
+ \WaveBonds%
+ \Put@Line(40,-40)(1,-1){100}% % single bond at 1
+ }%
+ \else\if\@tmpb S%beta single bond
+ \Put@Line(40,-40)(1,-1){100}% % single bond at 1
+ \else\if\@tmpb D%double bond
+ \Put@Line(46,-36)(1,-1){100}% % single bond at 1
+ \Put@Line(36,-46)(1,-1){100}% % single bond at 1
+ \else\if\@tmpb T%triple bond
+ \Put@Line(50,-30)(1,-1){100}% % single bond at 1
+ \Put@Line(40,-40)(1,-1){100}% % single bond at 1
+ \Put@Line(30,-50)(1,-1){100}% % single bond at 1
+ \else\ifx\@tmpb\empty%beta single bond
+ \Put@Line(40,-40)(1,-1){100}% % single bond at 1
+ \fi\fi\fi\fi\fi\fi\fi%
+ \putratom{140}{-200}{\@memberb}% % right type
+ \else%no clipping
+ \yl@xdiff=0\relax
+ \yl@ydiff=60\relax
+ \if\@tmpb B%beta single bond
+ {%
+ \thicklines%
+ \Put@Line(0,0)(1,-1){120}% % single bond at 1
+ }%
+ \else\if\@tmpb A%alpha single bond
+ \dotorline(0,0)(1,-1){120}/(0,0)(120,-120)%
+ \else\if\@tmpb U%unspecified single bond
+ {%
+ \WaveBonds%
+ \Put@Line(0,0)(1,-1){120}% % single bond at 1
+ }%
+ \else\if\@tmpb S%beta single bond
+ \Put@Line(0,0)(1,-1){120}% % single bond at 1
+ \else\if\@tmpb D%beta single bond
+ \Put@Line(6,6)(1,-1){120}% % single bond at 1
+ \Put@Line(-6,-6)(1,-1){120}% % single bond at 1
+ \else\if\@tmpb T%beta single bond
+ \Put@Line(10,10)(1,-1){120}% % single bond at 1
+ \Put@Line(0,0)(1,-1){120}% % single bond at 1
+ \Put@Line(-10,-10)(1,-1){120}% % single bond at 1
+ \else\ifx\@tmpb\empty%beta single bond
+ \Put@Line(0,0)(1,-1){120}% % single bond at 1
+ \fi\fi\fi\fi\fi\fi\fi%
+ \putratom{120}{-180}{\@memberb}% % right type
+ \fi%
+}% end of \setatombondB
+\def\lyl{\@ifnextchar({\@lyl}{\@lyl()}}
+\def\@lyl(#1)#2{%
+\iniatom\iniflag%initialize
+\@reset@ylsw%
+\def\centeraaa{}%
+\x@ryl=0\y@ryl=0
+\@forsemicol\member:=#1\do{%
+\if@ylsw%
+\XyMTeXWarning{Duplicated items in the first augument of \string\ryl}%
+\else%
+\ifx\member\empty\else%
+\expandafter\@m@mb@r\member;\relax%
+\expandafter\twoch@r\@membera{}%
+\settowidth{\dimen0}{\@memberb}%
+\x@ryl=\dimen0%%%dimension => counter
+\divide\x@ryl\unitlength
+\advance\x@ryl by-80
+\y@ryl=0
+\ifcase\@tmpa%
+\def\centeraaa{\@memberb}\@ylswtrue
+\advance\y@ryl by50
+\or%1
+\def\centeraaa{\@memberb}\@ylswtrue
+\advance\x@ryl by30
+\advance\y@ryl by50
+\or%2
+\def\centeraaa{\@memberb}\@ylswtrue
+\advance\x@ryl by40
+\advance\y@ryl by40
+\or%3
+\def\centeraaa{\@memberb}\@ylswtrue
+\advance\x@ryl by50
+\advance\y@ryl by30
+\or%4
+\def\centeraaa{\@memberb}\@ylswtrue
+\advance\x@ryl by50
+\advance\y@ryl by0
+\or%5
+\def\centeraaa{\@memberb}\@ylswtrue
+\advance\x@ryl by50
+\advance\y@ryl by-30
+\or%6
+\def\centeraaa{\@memberb}\@ylswtrue
+\advance\x@ryl by50
+\advance\y@ryl by-50
+\or%7
+\def\centeraaa{\@memberb}\@ylswtrue
+\advance\x@ryl by30
+\advance\y@ryl by-50
+\or%8
+\def\centeraaa{\@memberb}\@ylswtrue
+\advance\y@ryl by-50
+\fi
+\fi\fi}%
+ \yl@shiftii=-\x@ryl
+ \yl@shifti=-\y@ryl
+ \advance\yl@shiftii\yl@xdiff
+ \advance\yl@shifti\yl@ydiff
+ \begin{sfpicture}(0,0)(-\yl@shiftii,-\yl@shifti)%
+\ifx\centeraaa\empty\else%
+ \@clipfusetrue
+ \putratom{-40}{-30}{\centeraaa}% % right type
+\fi%
+\@forsemicol\member:=#2\do{%
+\ifx\member\empty\else%
+\expandafter\@m@mb@r\member;\relax%
+\expandafter\threech@r\@membera{}{}%
+\let\local@tmpa=\@tmpa%global to local 2002/5/30 by SF
+\ifcase\local@tmpa%
+{\setbscolor\setatombonda\addbscolor{}{}}%2010/10/01%\setatombonda% 0 (upward) (0,1)
+\or{\setbscolor\setatombondD\addbscolor{}{}}%2010/10/01%\or\setatombondD%1 (-3,5)
+\or{\setbscolor\setatombondH\addbscolor{}{}}%2010/10/01%\or\setatombondH%2 (-1,1)
+\or{\setbscolor\setatombondd\addbscolor{}{}}%2010/10/01%\or\setatombondd%3 (-5,3)
+\or{\setbscolor\setatombondh\addbscolor{}{}}%2010/10/01%\or\setatombondh%4 (-1,0)
+\or{\setbscolor\setatombondg\addbscolor{}{}}%2010/10/01%\or\setatombondg%5 (-5,-3)
+\or{\setbscolor\setatombondC\addbscolor{}{}}%2010/10/01%\or\setatombondC%6 (-1,-1)
+\or{\setbscolor\setatombondG\addbscolor{}{}}%2010/10/01%\or\setatombondG%7 (-3,-5)
+\or{\setbscolor\setatombondc\addbscolor{}{}}%2010/10/01%\or\setatombondc%8 (0,-1)
+\fi%end of ifcase
+\fi
+}\end{sfpicture}}% %end of \lyl macro
+\def\setatombondD{%% (-3,5)
+ \if@clipfuse%
+ \if\@tmpb B%beta single bond
+ \yl@xdiff=10\relax
+ \yl@ydiff=-10\relax
+ {%
+ \thicklines%
+ \Put@Line(-30,50)(-3,5){60}% % single bond at 1
+ }%
+ \else\if\@tmpb A%alpha single bond
+ \yl@xdiff=10\relax
+ \yl@ydiff=-10\relax
+ \dotorline(-30,50)(-3,5){60}/(-30,50)(-90,150)%
+ \else\if\@tmpb U%unspecified single bond
+ \yl@xdiff=10\relax
+ \yl@ydiff=-10\relax
+ {%
+ \WaveBonds%
+ \Put@Line(-30,50)(-3,5){60}% % single bond at 1
+ }%
+ \else\if\@tmpb S%beta single bond
+ \yl@xdiff=10\relax
+ \yl@ydiff=-10\relax
+ \Put@Line(-30,50)(-3,5){60}% % single bond at 1
+ \else\if\@tmpb D%double bond
+ \yl@xdiff=10\relax
+ \yl@ydiff=-10\relax
+ \Put@Line(-40,44)(-3,5){60}% % single bond at 1
+ \Put@Line(-20,56)(-3,5){60}% % single bond at 1
+ \else\if\@tmpb T%triple bond
+ \yl@xdiff=10\relax
+ \yl@ydiff=-10\relax
+ \Put@Line(-45,41)(-3,5){60}% % single bond at 1
+ \Put@Line(-30,50)(-3,5){60}% % single bond at 1
+ \Put@Line(-15,59)(-3,5){60}% % single bond at 1
+ \else\ifx\@tmpb\empty%beta single bond
+ \yl@xdiff=10\relax
+ \yl@ydiff=-10\relax
+ \Put@Line(-30,50)(-3,5){60}% % single bond at 1
+ \fi\fi\fi\fi\fi\fi\fi%
+ \putlatom{-100}{160}{\@memberb}% % left type
+ \else%no clipping
+ \if\@tmpb B%beta single bond
+ \yl@xdiff=10\relax
+ \yl@ydiff=-10\relax
+ {%
+ \thicklines%
+ \Put@Line(0,0)(-3,5){90}% % single bond at 1
+ }%
+ \else\if\@tmpb A%alpha single bond
+ \yl@xdiff=10\relax
+ \yl@ydiff=-10\relax
+ \dotorline(0,0)(-3,5){90}/(0,0)(-90,150)%
+ \else\if\@tmpb U%unspecified single bond
+ \yl@xdiff=10\relax
+ \yl@ydiff=-10\relax
+ {%
+ \WaveBonds%
+ \Put@Line(0,0)(-3,5){90}% % single bond at 1
+ }%
+ \else\if\@tmpb S%beta single bond
+ \yl@xdiff=10\relax
+ \yl@ydiff=-10\relax
+ \Put@Line(0,0)(-3,5){90}% % single bond at 1
+ \else\if\@tmpb D%beta single bond
+ \yl@xdiff=10\relax
+ \yl@ydiff=-10\relax
+ \Put@Line(-10,-6)(-3,5){90}% % single bond at 1
+ \Put@Line(10,6)(-3,5){90}% % single bond at 1
+ \else\if\@tmpb T%beta single bond
+ \yl@xdiff=10\relax
+ \yl@ydiff=-10\relax
+ \Put@Line(-15,-9)(-3,5){90}% % single bond at 1
+ \Put@Line(0,0)(-3,5){90}% % single bond at 1
+ \Put@Line(15,9)(-3,5){90}% % single bond at 1
+ \else\ifx\@tmpb\empty%beta single bond
+ \yl@xdiff=10\relax
+ \yl@ydiff=-10\relax
+ \Put@Line(0,0)(-3,5){90}% % single bond at 1
+ \fi\fi\fi\fi\fi\fi\fi%
+ \putlatom{-100}{160}{\@memberb}% % left type
+ \fi%
+}% end of \setatombondD
+\def\setatombondG{%% (-3,-5)
+ \if@clipfuse%
+ \yl@xdiff=-10\relax
+ \yl@ydiff=90\relax
+ \if\@tmpb B%beta single bond
+ {%
+ \thicklines%
+ \Put@Line(-30,-50)(-3,-5){60}% % single bond at 1
+ }%
+ \else\if\@tmpb A%alpha single bond
+ \dotorline(-30,-50)(-3,-5){60}/(-30,-50)(-90,-150)%
+ \else\if\@tmpb U%unspecified single bond
+ {%
+ \WaveBonds%
+ \Put@Line(-30,-50)(-3,-5){60}% % single bond at 1
+ }%
+ \else\if\@tmpb S%beta single bond
+ \Put@Line(-30,-50)(-3,-5){60}% % single bond at 1
+ \else\if\@tmpb D%double bond
+ \Put@Line(-40,-44)(-3,-5){60}% % single bond at 1
+ \Put@Line(-20,-56)(-3,-5){60}% % single bond at 1
+ \else\if\@tmpb T%triple bond
+ \Put@Line(-45,-41)(-3,-5){60}% % single bond at 1
+ \Put@Line(-30,-50)(-3,-5){60}% % single bond at 1
+ \Put@Line(-15,-59)(-3,-5){60}% % single bond at 1
+ \else\ifx\@tmpb\empty%beta single bond
+ \Put@Line(-30,-50)(-3,-5){60}% % single bond at 1
+ \fi\fi\fi\fi\fi\fi\fi%
+ \putlatom{-80}{-240}{\@memberb}% % left type
+ \else%no clipping
+ \yl@xdiff=-10\relax
+ \yl@ydiff=90\relax
+ \if\@tmpb B%beta single bond
+ {%
+ \thicklines%
+ \Put@Line(0,0)(-3,-5){90}% % single bond at 1
+ }%
+ \else\if\@tmpb A%alpha single bond
+ \dotorline(0,0)(-3,-5){90}/(0,0)(-90,-150)%
+ \else\if\@tmpb U%unspecified single bond
+ {%
+ \WaveBonds%
+ \Put@Line(0,0)(-3,-5){90}% % single bond at 1
+ }%
+ \else\if\@tmpb S%beta single bond
+ \Put@Line(0,0)(-3,-5){90}% % single bond at 1
+ \else\if\@tmpb D%beta single bond
+ \Put@Line(-10,6)(-3,-5){90}% % single bond at 1
+ \Put@Line(10,-6)(-3,-5){90}% % single bond at 1
+ \else\if\@tmpb T%beta single bond
+ \Put@Line(-15,9)(-3,-5){90}% % single bond at 1
+ \Put@Line(0,0)(-3,-5){90}% % single bond at 1
+ \Put@Line(15,-9)(-3,-5){90}% % single bond at 1
+ \else\ifx\@tmpb\empty%beta single bond
+ \Put@Line(0,0)(-3,-5){90}% % single bond at 1
+ \fi\fi\fi\fi\fi\fi\fi%
+ \putlatom{-80}{-240}{\@memberb}% % left type
+ \fi%
+}% end of \setatombondG
+\def\setatombondH{%% (-1,1)
+ \yl@xdiff=0\relax
+ \yl@ydiff=0\relax
+ \if@clipfuse%
+ \if\@tmpb B%beta single bond
+ {%
+ \thicklines%
+ \Put@Line(-40,40)(-1,1){100}% % single bond at 1
+ }%
+ \else\if\@tmpb A%alpha single bond
+ \dotorline(-40,40)(-1,1){100}/(-40,40)(-140,140)%
+ \else\if\@tmpb U%unspecified single bond
+ {%
+ \WaveBonds%
+ \Put@Line(-40,40)(-1,1){100}% % single bond at 1
+ }%
+ \else\if\@tmpb S%beta single bond
+ \Put@Line(-40,40)(-1,1){100}% % single bond at 1
+ \else\if\@tmpb D%double bond
+ \Put@Line(-46,36)(-1,1){100}% % single bond at 1
+ \Put@Line(-36,46)(-1,1){100}% % single bond at 1
+ \else\if\@tmpb T%triple bond
+ \Put@Line(-50,30)(-1,1){100}% % single bond at 1
+ \Put@Line(-40,40)(-1,1){100}% % single bond at 1
+ \Put@Line(-30,50)(-1,1){100}% % single bond at 1
+ \else\ifx\@tmpb\empty%beta single bond
+ \Put@Line(-40,40)(-1,1){100}% % single bond at 1
+ \fi\fi\fi\fi\fi\fi\fi%
+ \putlatom{-140}{140}{\@memberb}% % left type
+ \else%no clipping
+ \if\@tmpb B%beta single bond
+ {%
+ \thicklines%
+ \Put@Line(0,0)(-1,1){120}% % single bond at 1
+ }%
+ \else\if\@tmpb A%alpha single bond
+ \dotorline(0,0)(-1,1){120}/(0,0)(-120,120)%
+ \else\if\@tmpb U%unspecified single bond
+ {%
+ \WaveBonds%
+ \Put@Line(0,0)(-1,1){120}% % single bond at 1
+ }%
+ \else\if\@tmpb S%beta single bond
+ \Put@Line(0,0)(-1,1){120}% % single bond at 1
+ \else\if\@tmpb D%beta single bond
+ \Put@Line(-6,-6)(-1,1){120}% % single bond at 1
+ \Put@Line(6,6)(-1,1){120}% % single bond at 1
+ \else\if\@tmpb T%beta single bond
+ \Put@Line(-10,-10)(-1,1){120}% % single bond at 1
+ \Put@Line(0,0)(-1,1){120}% % single bond at 1
+ \Put@Line(10,10)(-1,1){120}% % single bond at 1
+ \else\ifx\@tmpb\empty%beta single bond
+ \Put@Line(0,0)(-1,1){120}% % single bond at 1
+ \fi\fi\fi\fi\fi\fi\fi%
+ \putlatom{-120}{120}{\@memberb}% % left type
+ \fi%
+}% end of \setatombondH
+\def\setatombondC{%% (-1,-1)
+ \if@clipfuse%
+ \yl@xdiff=0\relax
+ \yl@ydiff=60\relax
+ \if\@tmpb B%beta single bond
+ {%
+ \thicklines%
+ \Put@Line(-40,-40)(-1,-1){100}% % single bond at 1
+ }%
+ \else\if\@tmpb A%alpha single bond
+ \dotorline(-40,-40)(-1,-1){100}/(-40,-40)(-140,-140)%
+ \else\if\@tmpb U%unspecified single bond
+ {%
+ \WaveBonds%
+ \Put@Line(-40,-40)(-1,-1){100}% % single bond at 1
+ }%
+ \else\if\@tmpb S%beta single bond
+ \Put@Line(-40,-40)(-1,-1){100}% % single bond at 1
+ \else\if\@tmpb D%double bond
+ \Put@Line(-46,-36)(-1,-1){100}% % single bond at 1
+ \Put@Line(-36,-46)(-1,-1){100}% % single bond at 1
+ \else\if\@tmpb T%triple bond
+ \Put@Line(-50,-30)(-1,-1){100}% % single bond at 1
+ \Put@Line(-40,-40)(-1,-1){100}% % single bond at 1
+ \Put@Line(-30,-50)(-1,-1){100}% % single bond at 1
+ \else\ifx\@tmpb\empty%beta single bond
+ \Put@Line(-40,-40)(-1,-1){100}% % single bond at 1
+ \fi\fi\fi\fi\fi\fi\fi%
+ \putlatom{-140}{-200}{\@memberb}% % left type
+ \else%no clipping
+ \yl@xdiff=0\relax
+ \yl@ydiff=60\relax
+ \if\@tmpb B%beta single bond
+ {%
+ \thicklines%
+ \Put@Line(0,0)(-1,-1){120}% % single bond at 1
+ }%
+ \else\if\@tmpb A%alpha single bond
+ \dotorline(0,0)(-1,-1){120}/(0,0)(-120,-120)%
+ \else\if\@tmpb U%unspecified single bond
+ {%
+ \WaveBonds%
+ \Put@Line(0,0)(-1,-1){120}% % single bond at 1
+ }%
+ \else\if\@tmpb S%beta single bond
+ \Put@Line(0,0)(-1,-1){120}% % single bond at 1
+ \else\if\@tmpb D%beta single bond
+ \Put@Line(-6,6)(-1,-1){120}% % single bond at 1
+ \Put@Line(6,-6)(-1,-1){120}% % single bond at 1
+ \else\if\@tmpb T%beta single bond
+ \Put@Line(-10,10)(-1,-1){120}% % single bond at 1
+ \Put@Line(0,0)(-1,-1){120}% % single bond at 1
+ \Put@Line(10,-10)(-1,-1){120}% % single bond at 1
+ \else\ifx\@tmpb\empty%beta single bond
+ \Put@Line(0,0)(-1,-1){120}% % single bond at 1
+ \fi\fi\fi\fi\fi\fi\fi%
+ \putlatom{-120}{-180}{\@memberb}% % left type
+ \fi%
+}% end of \setatombondC
+\def\ayl{\@ifnextchar({\@ayl@}{\@ayl@(10,40)}}
+\def\@ayl@(#1,#2)#3{\begingroup\yl@xdiff=0 \yl@ydiff=0%
+\kern#1\unitlength\raise#2\unitlength\hbox to0pt{#3\hss}%
+\endgroup}
+\def\upnobond#1#2{%
+\hbox{\hbox to0.72em{\hss#1\hss}\kern-0.72em\raise2.2ex\hbox{#2}}}
+\def\downnobond#1#2{%
+\hbox{\hbox to0.72em{\hss#1\hss}\kern-0.72em\lower2.2ex\hbox{#2}}}
+\def\BiFunc(#1,#2)#3#4#5{%
+\SlopetoXY(0,0)(#1,#2){#3}%
+\begin{picture}(\@tempcntXa,\@tempcntYa)(0,0)%
+\Put@Line(0,0)(#1,#2){#3}%
+\put(0,0){#4}%
+\put(\@tempcntXa,\@tempcntYa){#5}%
+\end{picture}}
+\def\test@vertix#1{%
+ \def\tempG{#1}\relax%%%added 2006/9/6
+ \if\tempG g\relax
+ \expandafter\def\csname #1#1#1A\endcsname{@}%
+ \if\@tmpb h\relax
+ \expandafter\def\csname #1#1#1A\endcsname{@}%
+ \else\if\@tmpb s\relax
+ \expandafter\def\csname #1#1#1A\endcsname{}%
+ \fi\fi
+ \else
+ \expandafter\def\csname #1#1#1\endcsname{@}%
+ \if\@tmpb h\relax
+ \expandafter\def\csname #1#1#1\endcsname{@}%
+ \else\if\@tmpb s\relax
+ \expandafter\def\csname #1#1#1\endcsname{}%
+ \fi\fi
+ \fi
+}
+\def\test@vertix@sixv#1#2#3#4#5#6#7{%
+\@forsemicol\member:=#1\do{%
+\ifx\member\empty \relax\else%
+\expandafter\@m@mb@r\member;\relax%
+\expandafter\twoCH@R\@membera//%
+\ifcase\@tmpa%
+ \or \test@vertix{#2}%
+ \or \test@vertix{#3}%
+ \or \test@vertix{#4}%
+ \or
+ \if\@tmpb a\relax%
+ \def\iii{@}%
+ \else
+ \test@vertix{#5}%
+ \fi
+ \or \test@vertix{#6}%
+ \or \test@vertix{#7}%
+\fi\fi}}% end of \test@vertix@sixv
+%% \changes{v2.00}{1996/11/14}{@ in place of a net value}
+\def\set@hetatom@sixv#1#2#3#4#5{%
+\@forsemicol\member:=#1\do{%
+\ifx\member\empty \relax\else%
+\expandafter\@m@mb@r\member;\relax%
+\expandafter\twoch@r\@membera{}\relax%
+\ifnum#5 < 0\relax%
+\@tmpaa=-\@tmpa\relax \advance\@tmpaa by#2\relax%
+\else\@tmpaa=\@tmpa\relax \advance\@tmpaa by#2\relax \fi
+\ifnum\@tmpaa >#3\relax%
+\ifnum\@tmpaa <#4\relax%
+\ifcase\@tmpaa \relax%
+\or%position 1
+ \if\@tmpb h\relax
+ \@acliptrue%
+ \putratom{0}{356}{\@memberb}% % right type
+ \else\if\@tmpb s\relax
+ \@aclipfalse%
+ \putratom{0}{406}{\@memberb}% % right type
+ \else\if\@tmpb a\relax%omit fused position
+ \else\relax
+ \@acliptrue%
+ \putratom{-31}{356}{\@memberb}% % right type
+ \fi\fi\fi
+\or%position 2
+ \if\@tmpb h\relax
+ \@bcliptrue%
+ \putratom{135}{280}{\@memberb}% % right type
+ \else\if\@tmpb s\relax
+ \@bclipfalse%
+ \putratom{175}{303}{\@memberb}% % right type
+ \else\if\@tmpb a\relax%omit fused position
+ \else\relax
+ \@bcliptrue%
+ \putratom{135}{280}{\@memberb}% % right type
+ \fi\fi\fi
+\or%position 3
+ \if\@tmpb h\relax
+ \@ccliptrue%
+ \putratom{135}{95}{\@memberb}% % right type
+ \else\if\@tmpb s\relax
+ \@cclipfalse%
+ \putratom{175}{103}{\@memberb}% % right type
+ \else\if\@tmpb a\relax%omit fused position
+ \else\relax
+ \@ccliptrue%
+ \putratom{135}{65}{\@memberb}% % right type
+ \fi\fi\fi
+\or%position 4
+ \if\@tmpb h\relax
+ \@cliptrue%
+ \putratom{0}{50}{\@memberb}% % right type
+ \else\if\@tmpb s\relax
+ \@clipfalse%
+ \putratom{0}{0}{\@memberb}% % right type
+ \else\if\@tmpb a\relax%omit fused position
+ \else\relax
+ \@cliptrue%
+ \putratom{-31}{-10}{\@memberb}% % right type
+ \fi\fi\fi
+\or%position 5
+ \if\@tmpb h\relax
+ \@ecliptrue%
+ \putlatom{-135}{95}{\@memberb}% % right type
+ \else\if\@tmpb s\relax
+ \@eclipfalse%
+ \putlatom{-175}{103}{\@memberb}% % right type
+ \else\if\@tmpb a\relax%omit fused position
+ \else\relax
+ \@ecliptrue%
+ \putlatom{-135}{65}{\@memberb}% % left type
+ \fi\fi\fi
+\or%position 6
+ \if\@tmpb h\relax
+ \@fcliptrue%
+ \putlatom{-135}{280}{\@memberb}% % right type
+ \else\if\@tmpb s\relax
+ \@fclipfalse%
+ \putlatom{-175}{303}{\@memberb}% % right type
+ \else\if\@tmpb a\relax%omit fused position
+ \else\relax
+ \@fcliptrue%
+ \putlatom{-135}{280}{\@memberb}% % left type
+ \fi\fi\fi
+\fi% end of ifcase
+\fi\fi\fi}}% end of the macro \set@hetatom@sixv
+\def\set@hetatom@sixh#1#2#3#4#5{%
+\@forsemicol\member:=#1\do{%
+\ifx\member\empty\else%
+\expandafter\@m@mb@r\member;\relax%
+\expandafter\twoCH@R\@membera//%
+\ifnum#5 < 0\relax%
+\@tmpaa=-\@tmpa\relax \advance\@tmpaa by#2\relax%
+\else\@tmpaa=\@tmpa\relax \advance\@tmpaa by#2\relax \fi
+\ifnum\@tmpaa >#3\relax%
+\ifnum\@tmpaa <#4\relax%
+\ifcase\@tmpaa%
+\or%position 1
+ \if\@tmpb h\relax
+ \@acliptrue%
+ \putlatom{60}{0}{\@memberb}% % left type
+ \else\if\@tmpb s\relax
+ \@aclipfalse%
+ \putlatom{0}{0}{\@memberb}% % left type
+ \else\if\@tmpb a\relax%omit fused position
+ \else
+ \@acliptrue%
+ \putlatom{60}{-36}{\@memberb}% % left type
+ \fi\fi\fi
+\or%position 2
+ \if\@tmpb h\relax
+ \@bcliptrue%
+ \putlatom{135}{141}{\@memberb}% % left type
+ \else\if\@tmpb s\relax
+ \@bclipfalse%
+ \putlatom{103}{171}{\@memberb}% % left type
+ \else\if\@tmpb a\relax%omit fused position
+ \else
+ \@bcliptrue%
+ \putlatom{135}{141}{\@memberb}% % left type
+ \fi\fi\fi
+\or%position 3
+ \if\@tmpb h\relax
+ \@ccliptrue%
+ \putratom{273}{141}{\@memberb}% % right type
+ \else\if\@tmpb s\relax
+ \@cclipfalse%
+ \putratom{303}{171}{\@memberb}% % right type
+ \else\if\@tmpb a\relax%omit fused position
+ \else
+ \@ccliptrue%
+ \putratom{273}{141}{\@memberb}% % right type
+ \fi\fi\fi
+\or%position 4
+ \if\@tmpb h\relax
+ \@cliptrue%
+ \putratom{346}{0}{\@memberb}% % right type
+ \else\if\@tmpb s\relax
+ \@clipfalse%
+ \putratom{406}{0}{\@memberb}% % right type
+ \else\if\@tmpb a\relax%omit fused position
+ \else
+ \@cliptrue%
+ \putratom{346}{-36}{\@memberb}% % right type
+ \fi\fi\fi
+\or%position 5
+ \if\@tmpb h\relax
+ \@ecliptrue%
+ \putratom{283}{-131}{\@memberb}% % right type
+ \else\if\@tmpb s\relax
+ \@eclipfalse%
+ \putratom{303}{-171}{\@memberb}% % right type
+ \else\if\@tmpb a\relax%omit fused position
+ \else
+ \@ecliptrue%
+ \putratom{273}{-211}{\@memberb}% % right type
+ \fi\fi\fi
+\or%position 6
+ \if\@tmpb h\relax
+ \@fcliptrue%
+ \putlatom{125}{-131}{\@memberb}% % left type
+ \else\if\@tmpb s\relax
+ \@fclipfalse%
+ \putlatom{103}{-171}{\@memberb}% % left type
+ \else\if\@tmpb a\relax%omit fused position
+ \else
+ \@fcliptrue%
+ \putlatom{135}{-211}{\@memberb}% % left type
+ \fi\fi\fi
+\fi% end of ifcase
+\fi\fi\fi}}% end of the macro \set@hetatom@sixh
+\def\test@vertix@decav#1#2#3#4#5#6#7{%
+\@forsemicol\member:=#1\do{%
+\ifx\member\empty\relax\else%
+\expandafter\@m@mb@r\member;\relax%
+\expandafter\twoch@r\@membera{}%
+\ifcase\@tmpa \relax%
+ \or\or\or\or\or\or
+ \or \test@vertix{#2}%
+ \or
+ \if\@tmpb a\relax%
+ \def\jjj{@}%
+ \else
+ \test@vertix{#3}%
+ \fi
+ \or \test@vertix{#4}%
+ \or \test@vertix{#5}%
+\fi\fi}}
+\def\set@vrtx@fuse#1{%
+\@forsemicol\member:=#1\do{%
+\ifx\member\empty\else%
+\expandafter\@m@mb@r\member;\relax%
+\expandafter\twoch@r\@membera{}%
+\ifcase\@tmpa%
+ \or
+ \or
+ \or
+ \or%%%%4
+ \if\@tmpb a\relax%
+ \@icliptrue%2001/06/20 by S. Fujita
+ \putlatom{207}{65}{\@memberb}% % left type
+ \else\relax
+ \fi
+ \or%5
+ \or%6
+ \or%7
+ \or%
+ \if\@tmpb a\relax%
+ \@jcliptrue%2001/06/20 by S. Fujita
+ \putlatom{207}{280}{\@memberb}% % left type
+ \else\relax
+ \fi
+\or%9 (= 4a)
+ \@icliptrue%2001/06/20 by S. Fujita
+ \putlatom{207}{65}{\@memberb}% % left type
+\or%10 (= 8a)
+ \@jcliptrue%2001/06/20 by S. Fujita
+ \putlatom{207}{280}{\@memberb}% % left type
+\fi\fi}%
+}% end of the macro \set@vrtx@fuse
+\def\set@vrtx@fuseh#1{%
+\@forsemicol\member:=#1\do{%
+\ifx\member\empty\else%
+\expandafter\@m@mb@r\member;\relax%
+\expandafter\twoCH@R\@membera//%
+\ifcase\@tmpa%
+ \or
+ \or
+ \or
+ \or%%%%4
+ \if\@tmpb a\relax%
+ \@icliptrue%%2001/06/20 by S. Fujita
+ \putratom{273}{-211}{\@memberb}% % right type
+ \else\relax
+ \fi
+ \or%5
+ \or%6
+ \or%7
+ \or%
+ \if\@tmpb a\relax%
+ \@jcliptrue%2001/06/20 by S. Fujita%
+ \putlatom{135}{-211}{\@memberb}% % left type
+ \else\relax
+ \fi
+\or%9 (= 4a)
+ \ifx\@tmpb\empty\relax
+ \@icliptrue%%2001/06/20 by S. Fujita
+ \putratom{273}{-211}{\@memberb}% % right type
+ \else
+ \XyMTeXWarning{Forbidden spiro ring for the 4a position}%
+ \fi
+\or%10 (= 8a)
+ \ifx\@tmpb\empty\relax
+ \@jcliptrue%%2001/06/20 by S. Fujita
+ \putlatom{135}{-211}{\@memberb}% % left type
+ \else
+ \XyMTeXWarning{Forbidden spiro ring for the 8a position}%
+ \fi
+\fi\fi}%
+}% end of the macro \set@vrtx@fuseh
+\def\set@fusionadd@sixv{%
+ \if\@@tmpa 1\relax%
+ \putratom{-38}{282}{\@@tmpb}% % right type
+ \else\if\@@tmpa 2\relax%
+ \putratom{60}{253}{\@@tmpb}% % right type
+ \else\if\@@tmpa 3\relax%
+ \putratom{60}{120}{\@@tmpb}% % right type
+ \else\if\@@tmpa 4\relax%
+ \putratom{-38}{88}{\@@tmpb}% % right type
+ \else\if\@@tmpa 6\relax%
+ \putratom{-90}{253}{\@@tmpb}% % right type
+ \else\if\@@tmpa 5\relax%
+ \putratom{-90}{120}{\@@tmpb}% % right type
+ \else
+ \set@fusion@sixv
+ \fi\fi\fi\fi\fi\fi%
+}%
+\def\set@fusion@sixv{%
+\if\@@tmpa d\relax%
+ \putlratom{0}{0}{\@@tmpb}% % bond fused
+ \FuseWarning{171}{-103}%
+ {\fuseAx}{\fuseAy}{\fuseBx}{\fuseBy}{d, h, or other}%
+ \else\if\@@tmpa D\relax%
+ \putlratom{-171}{103}{\@@tmpb}% % bond fused
+ \FuseWarning{-171}{103}%
+ {\fuseAx}{\fuseAy}{\fuseBx}{\fuseBy}{D, H, or other}%
+ \else\if\@@tmpa e\relax%
+ \putlratom{-171}{103}{\@@tmpb}% % bond fused
+ \FuseWarning{0}{-200}%
+ {\fuseAx}{\fuseAy}{\fuseBx}{\fuseBy}{e, k, or other}%
+ \else\if\@@tmpa E\relax%
+ \putlratom{-171}{303}{\@@tmpb}% % bond fused
+ \FuseWarning{0}{200}%
+ {\fuseAx}{\fuseAy}{\fuseBx}{\fuseBy}{E, K, or other}%
+ \else\if\@@tmpa f\relax%
+ \putlratom{-171}{303}{\@@tmpb}% % bond fused
+ \FuseWarning{-171}{-103}%
+ {\fuseAx}{\fuseAy}{\fuseBx}{\fuseBy}{f, j, or other}%
+ \else\if\@@tmpa F\relax%
+ \putlratom{0}{406}{\@@tmpb}% % bond fused
+ \FuseWarning{171}{103}%
+ {\fuseAx}{\fuseAy}{\fuseBx}{\fuseBy}{F, J, or other}%
+ \else\if\@@tmpa a\relax%
+ \putlratom{0}{406}{\@@tmpb}% % bond fused
+ \FuseWarning{-171}{103}%
+ {\fuseAx}{\fuseAy}{\fuseBx}{\fuseBy}{a, i, or other}%
+ \else\if\@@tmpa A\relax%
+ \putlratom{171}{303}{\@@tmpb}% % bond fused
+ \FuseWarning{171}{-103}%
+ {\fuseAx}{\fuseAy}{\fuseBx}{\fuseBy}{A, I, or other}%
+ \else\if\@@tmpa b\relax%
+ \putlratom{171}{303}{\@@tmpb}% % bond fused
+ \FuseWarning{0}{200}%
+ {\fuseAx}{\fuseAy}{\fuseBx}{\fuseBy}{b, k, or other}%
+ \else\if\@@tmpa B\relax%
+ \putlratom{171}{103}{\@@tmpb}% % bond fused
+ \FuseWarning{0}{-200}%
+ {\fuseAx}{\fuseAy}{\fuseBx}{\fuseBy}{B, K, or other}%
+ \else\if\@@tmpa c\relax%
+ \putlratom{171}{103}{\@@tmpb}% % bond fused
+ \FuseWarning{171}{103}%
+ {\fuseAx}{\fuseAy}{\fuseBx}{\fuseBy}{c, e, or other}%
+ \else\if\@@tmpa C\relax%
+ \putlratom{0}{0}{\@@tmpb}% % bond fused
+ \FuseWarning{-171}{-103}%
+ {\fuseAx}{\fuseAy}{\fuseBx}{\fuseBy}{C, E, or other}%
+ \fi\fi\fi\fi\fi\fi\fi\fi\fi\fi\fi\fi%
+}% end of the macro \set@fusion@sixv
+\def\set@fusionadd@sixvi{%
+ \if\@@tmpa 4\relax%
+ \putratom{-38}{282}{\@@tmpb}% % right type
+ \else\if\@@tmpa 3\relax%
+ \putratom{60}{253}{\@@tmpb}% % right type
+ \else\if\@@tmpa 2\relax%
+ \putratom{60}{120}{\@@tmpb}% % right type
+ \else\if\@@tmpa 1\relax%
+ \putratom{-38}{88}{\@@tmpb}% % right type
+ \else\if\@@tmpa 5\relax%
+ \putratom{-90}{253}{\@@tmpb}% % right type
+ \else\if\@@tmpa 6\relax%
+ \putratom{-90}{120}{\@@tmpb}% % right type
+ \else
+ \set@fusion@sixvi
+ \fi\fi\fi\fi\fi\fi%
+}% end of the macro \set@fusionadd@sixvi
+\def\set@fusion@sixvi{%
+ \if\@@tmpa a\relax%
+ \putlratom{0}{0}{\@@tmpb}% % right type
+ \FuseWarning{-171}{-103}%
+ {\fuseAx}{\fuseAy}{\fuseBx}{\fuseBy}{a or other}%
+ \else\if\@@tmpa A\relax%
+ \putlratom{171}{103}{\@@tmpb}% % right type
+ \FuseWarning{171}{103}%
+ {\fuseAx}{\fuseAy}{\fuseBx}{\fuseBy}{A or other}%
+ \else\if\@@tmpa b\relax%
+ \putlratom{171}{103}{\@@tmpb}% % right type
+ \FuseWarning{0}{-200}%
+ {\fuseAx}{\fuseAy}{\fuseBx}{\fuseBy}{b or other}%
+ \else\if\@@tmpa B\relax%
+ \putlratom{171}{303}{\@@tmpb}% % right type
+ \FuseWarning{0}{200}%
+ {\fuseAx}{\fuseAy}{\fuseBx}{\fuseBy}{B or other}%
+ \else\if\@@tmpa c\relax%
+ \putlratom{171}{303}{\@@tmpb}% % right type
+ \FuseWarning{171}{-103}%
+ {\fuseAx}{\fuseAy}{\fuseBx}{\fuseBy}{c or other}%
+ \else\if\@@tmpa C\relax%
+ \putlratom{0}{406}{\@@tmpb}% % right type
+ \FuseWarning{-171}{103}%
+ {\fuseAx}{\fuseAy}{\fuseBx}{\fuseBy}{C or other}%
+ \else\if\@@tmpa d\relax%
+ \putlratom{0}{406}{\@@tmpb}% % right type
+ \FuseWarning{171}{103}%
+ {\fuseAx}{\fuseAy}{\fuseBx}{\fuseBy}{d or other}%
+ \else\if\@@tmpa D\relax%
+ \putlratom{-171}{303}{\@@tmpb}% % right type
+ \FuseWarning{-171}{-103}%
+ {\fuseAx}{\fuseAy}{\fuseBx}{\fuseBy}{D or other}%
+ \else\if\@@tmpa e\relax%
+ \putlratom{-171}{303}{\@@tmpb}% % right type
+ \FuseWarning{0}{200}%
+ {\fuseAx}{\fuseAy}{\fuseBx}{\fuseBy}{e or other}%
+ \else\if\@@tmpa E\relax%
+ \putlratom{-171}{103}{\@@tmpb}% % right type
+ \FuseWarning{0}{-200}%
+ {\fuseAx}{\fuseAy}{\fuseBx}{\fuseBy}{E or other}%
+ \else\if\@@tmpa f\relax%
+ \putlratom{-171}{103}{\@@tmpb}% % right type
+ \FuseWarning{171}{-103}%
+ {\fuseAx}{\fuseAy}{\fuseBx}{\fuseBy}{f or other}%
+ \else\if\@@tmpa F\relax%
+ \putlratom{0}{0}{\@@tmpb}% % right type
+ \FuseWarning{-171}{103}%
+ {\fuseAx}{\fuseAy}{\fuseBx}{\fuseBy}{F or other}%
+ \fi\fi\fi\fi\fi\fi\fi\fi\fi\fi\fi\fi%
+}% end of the marcro \set@fusion@sixvi
+\def\set@fusionadd@sixh{%
+ \if\@@tmpa 4\relax%
+ \putratom{272}{-18}{\@@tmpb}% % right type
+ \else\if\@@tmpa 1\relax%
+ \putratom{68}{-18}{\@@tmpb}% % right type
+ \else\if\@@tmpa 3\relax%
+ \putratom{233}{60}{\@@tmpb}% % right type
+ \else\if\@@tmpa 2\relax%
+ \putratom{120}{60}{\@@tmpb}% % right type
+ \else\if\@@tmpa 5\relax%
+ \putratom{233}{-110}{\@@tmpb}% % right type
+ \else\if\@@tmpa 6\relax%
+ \putratom{120}{-110}{\@@tmpb}% % right type
+ \else
+ \set@fusion@sixh
+ \fi\fi\fi\fi\fi\fi%
+}%
+\def\set@fusion@sixh{%
+\if\@@tmpa d\relax%
+ \putlratom{406}{0}{\@@tmpb}% % bond fused
+ \FuseWarning{103}{171}%
+ {\fuseAx}{\fuseAy}{\fuseBx}{\fuseBy}{d, h, or other}%
+ \else\if\@@tmpa D\relax%
+ \putlratom{303}{-171}{\@@tmpb}% % bond fused
+ \FuseWarning{-103}{-171}%
+ {\fuseAx}{\fuseAy}{\fuseBx}{\fuseBy}{D, H, or other}%
+ \else\if\@@tmpa e\relax%
+ \putlratom{303}{-171}{\@@tmpb}% % bond fused
+ \FuseWarning{200}{0}%
+ {\fuseAx}{\fuseAy}{\fuseBx}{\fuseBy}{e, k, or other}%
+ \else\if\@@tmpa E\relax%
+ \putlratom{103}{-171}{\@@tmpb}% % bond fused
+ \FuseWarning{-200}{0}%
+ {\fuseAx}{\fuseAy}{\fuseBx}{\fuseBy}{E, K, or other}%
+ \else\if\@@tmpa f\relax%
+ \putlratom{103}{-171}{\@@tmpb}% % bond fused
+ \FuseWarning{103}{-171}%
+ {\fuseAx}{\fuseAy}{\fuseBx}{\fuseBy}{f, j, or other}%
+ \else\if\@@tmpa F\relax%
+ \putlratom{0}{0}{\@@tmpb}% % bond fused
+ \FuseWarning{-103}{171}%
+ {\fuseAx}{\fuseAy}{\fuseBx}{\fuseBy}{F, J, or other}%
+ \else\if\@@tmpa a\relax%
+ \putlratom{0}{0}{\@@tmpb}% % bond fused
+ \FuseWarning{-103}{-171}%
+ {\fuseAx}{\fuseAy}{\fuseBx}{\fuseBy}{a, i, or other}%
+ \else\if\@@tmpa A\relax%
+ \putlratom{103}{171}{\@@tmpb}% % bond fused
+ \FuseWarning{103}{171}%
+ {\fuseAx}{\fuseAy}{\fuseBx}{\fuseBy}{A, I, or other}%
+ \else\if\@@tmpa b\relax%
+ \putlratom{103}{171}{\@@tmpb}% % bond fused
+ \FuseWarning{-200}{0}%
+ {\fuseAx}{\fuseAy}{\fuseBx}{\fuseBy}{b, k, or other}%
+ \else\if\@@tmpa B\relax%
+ \putlratom{303}{171}{\@@tmpb}% % bond fused
+ \FuseWarning{200}{0}%
+ {\fuseAx}{\fuseAy}{\fuseBx}{\fuseBy}{B, K, or other}%
+ \else\if\@@tmpa c\relax%
+ \putlratom{303}{171}{\@@tmpb}% % bond fused
+ \FuseWarning{-103}{171}%
+ {\fuseAx}{\fuseAy}{\fuseBx}{\fuseBy}{c, e, or other}%
+ \else\if\@@tmpa C\relax%
+ \putlratom{406}{0}{\@@tmpb}% % bond fused
+ \FuseWarning{103}{-171}%
+ {\fuseAx}{\fuseAy}{\fuseBx}{\fuseBy}{C, E, or other}%
+ \fi\fi\fi\fi\fi\fi\fi\fi\fi\fi\fi\fi%
+}% end of the macro \set@fusion@sixh
+\def\set@fusionadd@sixhi{%
+ \if\@@tmpa 1\relax%
+ \putratom{272}{-18}{\@@tmpb}% % right type
+ \else\if\@@tmpa 4\relax%
+ \putratom{68}{-18}{\@@tmpb}% % right type
+ \else\if\@@tmpa 2\relax%
+ \putratom{233}{60}{\@@tmpb}% % right type
+ \else\if\@@tmpa 3\relax%
+ \putratom{120}{60}{\@@tmpb}% % right type
+ \else\if\@@tmpa 6\relax%
+ \putratom{233}{-110}{\@@tmpb}% % right type
+ \else\if\@@tmpa 5\relax%
+ \putratom{120}{-110}{\@@tmpb}% % right type
+ \else
+ \set@fusion@sixhi
+ \fi\fi\fi\fi\fi\fi%
+}%
+\def\set@fusion@sixhi{%
+\if\@@tmpa F\relax%
+ \putlratom{406}{0}{\@@tmpb}% % bond fused
+ \FuseWarning{103}{171}%
+ {\fuseAx}{\fuseAy}{\fuseBx}{\fuseBy}{F, J, or other}%
+ \else\if\@@tmpa f\relax%
+ \putlratom{303}{-171}{\@@tmpb}% % bond fused
+ \FuseWarning{-103}{-171}%
+ {\fuseAx}{\fuseAy}{\fuseBx}{\fuseBy}{f, j, or other}%
+ \else\if\@@tmpa E\relax%
+ \putlratom{303}{-171}{\@@tmpb}% % bond fused
+ \FuseWarning{200}{0}%
+ {\fuseAx}{\fuseAy}{\fuseBx}{\fuseBy}{E, K, or other}%
+ \else\if\@@tmpa e\relax%
+ \putlratom{103}{-171}{\@@tmpb}% % bond fused
+ \FuseWarning{-200}{0}%
+ {\fuseAx}{\fuseAy}{\fuseBx}{\fuseBy}{e, k, or other}%
+ \else\if\@@tmpa D\relax%
+ \putlratom{103}{-171}{\@@tmpb}% % bond fused
+ \FuseWarning{103}{-171}%
+ {\fuseAx}{\fuseAy}{\fuseBx}{\fuseBy}{D, H, or other}%
+ \else\if\@@tmpa d\relax%
+ \putlratom{0}{0}{\@@tmpb}% % bond fused
+ \FuseWarning{-103}{171}%
+ {\fuseAx}{\fuseAy}{\fuseBx}{\fuseBy}{d, h, or other}%
+ \else\if\@@tmpa C\relax%
+ \putlratom{0}{0}{\@@tmpb}% % bond fused
+ \FuseWarning{-103}{-171}%
+ {\fuseAx}{\fuseAy}{\fuseBx}{\fuseBy}{C, E, or other}%
+ \else\if\@@tmpa c\relax%
+ \putlratom{103}{171}{\@@tmpb}% % bond fused
+ \FuseWarning{103}{171}%
+ {\fuseAx}{\fuseAy}{\fuseBx}{\fuseBy}{c, e, or other}%
+ \else\if\@@tmpa B\relax%
+ \putlratom{103}{171}{\@@tmpb}% % bond fused
+ \FuseWarning{-200}{0}%
+ {\fuseAx}{\fuseAy}{\fuseBx}{\fuseBy}{B, K, or other}%
+ \else\if\@@tmpa b\relax%
+ \putlratom{303}{171}{\@@tmpb}% % bond fused
+ \FuseWarning{200}{0}%
+ {\fuseAx}{\fuseAy}{\fuseBx}{\fuseBy}{b, k, or other}%
+ \else\if\@@tmpa A\relax%
+ \putlratom{303}{171}{\@@tmpb}% % bond fused
+ \FuseWarning{-103}{171}%
+ {\fuseAx}{\fuseAy}{\fuseBx}{\fuseBy}{A, I, or other}%
+ \else\if\@@tmpa a\relax%
+ \putlratom{406}{0}{\@@tmpb}% % bond fused
+ \FuseWarning{103}{-171}%
+ {\fuseAx}{\fuseAy}{\fuseBx}{\fuseBy}{a, i, or other}%
+ \fi\fi\fi\fi\fi\fi\fi\fi\fi\fi\fi\fi%
+}% end of the macro \set@fusion@sixhi
+\def\UnfavorableFusion#1{\if@smallringsw\else
+\XyMTeXWarning{Unfavorable Fusion for bond `#1'}\fi}
+\def\ForbiddenFusion#1{\if@smallringsw\else
+\XyMTeXWarning{Forbidden Fusion for bond `#1'}\fi}
+\def\set@fusion@decav{%
+ \let\@@tmpa=\@tmpa
+ \let\@@tmpb=\@tmpb
+ \if\@tmpa a%
+ \let\@@tmpa=\@tmpa
+ \Put@Direct(342,0){\set@fusionadd@sixv}%
+ \else\if\@tmpa A%
+ \let\@@tmpa=\@tmpa
+ \Put@Direct(342,0){\set@fusionadd@sixv}%
+ \else\if\@tmpa b%
+ \let\@@tmpa=\@tmpa
+ \Put@Direct(342,0){\set@fusionadd@sixv}%
+ \else\if\@tmpa B%
+ \let\@@tmpa=\@tmpa
+ \Put@Direct(342,0){\set@fusionadd@sixv}%
+ \else\if\@tmpa c%
+ \let\@@tmpa=\@tmpa
+ \Put@Direct(342,0){\set@fusionadd@sixv}%
+ \else\if\@tmpa C%
+ \let\@@tmpa=\@tmpa
+ \Put@Direct(342,0){\set@fusionadd@sixv}%
+ \else\if\@tmpa d%
+ \let\@@tmpa=\@tmpa
+ \Put@Direct(342,0){\set@fusionadd@sixv}%
+ \UnfavorableFusion{d}%
+ \else\if\@tmpa D%
+ \let\@@tmpa=\@tmpa
+ \Put@Direct(342,0){\set@fusionadd@sixv}%
+ \UnfavorableFusion{D}%
+ \else\if\@tmpa e%
+ \edef\@@tmpa{c}%
+ \Put@Direct(0,0){\set@fusionadd@sixv}%
+ \UnfavorableFusion{e}%
+ \else\if\@tmpa E%
+ \edef\@@tmpa{C}%
+ \Put@Direct(0,0){\set@fusionadd@sixv}%
+ \UnfavorableFusion{E}%
+ \else\if\@tmpa f%
+ \edef\@@tmpa{d}%
+ \Put@Direct(0,0){\set@fusionadd@sixv}%
+ \else\if\@tmpa F%
+ \edef\@@tmpa{D}%
+ \Put@Direct(0,0){\set@fusionadd@sixv}%
+ \else\if\@tmpa g%
+ \edef\@@tmpa{e}%
+ \Put@Direct(0,0){\set@fusionadd@sixv}%
+ \else\if\@tmpa G%
+ \edef\@@tmpa{E}%
+ \Put@Direct(0,0){\set@fusionadd@sixv}%
+ \else\if\@tmpa h%
+ \edef\@@tmpa{f}%
+ \Put@Direct(0,0){\set@fusionadd@sixv}%
+ \else\if\@tmpa H%
+ \edef\@@tmpa{F}%
+ \Put@Direct(0,0){\set@fusionadd@sixv}%
+ \else\if\@tmpa i%
+ \edef\@@tmpa{a}%
+ \Put@Direct(0,0){\set@fusionadd@sixv}%
+ \UnfavorableFusion{i}%
+ \else\if\@tmpa I%
+ \edef\@@tmpa{A}%
+ \Put@Direct(0,0){\set@fusionadd@sixv}%
+ \UnfavorableFusion{I}%
+ \else\if\@tmpa j%
+ \edef\@@tmpa{f}%
+ \Put@Direct(342,0){\set@fusionadd@sixv}%
+ \UnfavorableFusion{j}%
+ \else\if\@tmpa J%
+ \edef\@@tmpa{F}%
+ \Put@Direct(342,0){\set@fusionadd@sixv}%
+ \UnfavorableFusion{J}%
+ \else\if\@tmpa k%
+ \edef\@@tmpa{e}%
+ \Put@Direct(342,0){\set@fusionadd@sixv}%
+ \ForbiddenFusion{k}%
+ \else\if\@tmpa K%
+ \edef\@@tmpa{E}%
+ \Put@Direct(342,0){\set@fusionadd@sixv}%
+ \ForbiddenFusion{K}%
+ \fi\fi\fi\fi\fi\fi\fi\fi\fi\fi\fi\fi%
+ \fi\fi\fi\fi\fi\fi\fi\fi\fi\fi%
+}% end of the macro \set@fusion@decav
+\def\set@fusion@decavb{%
+ \let\@@tmpa=\@tmpa
+ \let\@@tmpb=\@tmpb
+ \if\@tmpa a%
+ \edef\@@tmpa{b}%
+ \Put@Direct(0,0){\set@fusionadd@sixv}%
+ \else\if\@tmpa A%
+ \edef\@@tmpa{B}%
+ \Put@Direct(0,0){\set@fusionadd@sixv}%
+ \else\if\@tmpa b%
+ \edef\@@tmpa{c}%
+ \Put@Direct(0,0){\set@fusionadd@sixv}%
+ \else\if\@tmpa B%
+ \edef\@@tmpa{C}%
+ \Put@Direct(0,0){\set@fusionadd@sixv}%
+ \else\if\@tmpa c%
+ \edef\@@tmpa{d}%
+ \Put@Direct(0,0){\set@fusionadd@sixv}%
+ \else\if\@tmpa C%
+ \edef\@@tmpa{D}%
+ \Put@Direct(0,0){\set@fusionadd@sixv}%
+ \else\if\@tmpa d%
+ \edef\@@tmpa{e}%
+ \Put@Direct(0,0){\set@fusionadd@sixv}%
+ \UnfavorableFusion{d}%
+ \else\if\@tmpa D%
+ \edef\@@tmpa{E}%
+ \Put@Direct(0,0){\set@fusionadd@sixv}%
+ \UnfavorableFusion{D}%
+ \else\if\@tmpa e%
+ \edef\@@tmpa{d}%
+ \Put@Direct(-171,303){\set@fusionadd@sixv}%
+ \UnfavorableFusion{e}%
+ \else\if\@tmpa E%
+ \edef\@@tmpa{D}%
+ \Put@Direct(-171,303){\set@fusionadd@sixv}%
+ \UnfavorableFusion{E}%
+ \else\if\@tmpa f%
+ \edef\@@tmpa{e}%
+ \Put@Direct(-171,303){\set@fusionadd@sixv}%
+ \else\if\@tmpa F%
+ \edef\@@tmpa{E}%
+ \Put@Direct(-171,303){\set@fusionadd@sixv}%
+ \else\if\@tmpa g%
+ \edef\@@tmpa{f}%
+ \Put@Direct(-171,303){\set@fusionadd@sixv}%
+ \else\if\@tmpa G%
+ \edef\@@tmpa{F}%
+ \Put@Direct(-171,303){\set@fusionadd@sixv}%
+ \else\if\@tmpa h%
+ \edef\@@tmpa{a}%
+ \Put@Direct(-171,303){\set@fusionadd@sixv}%
+ \else\if\@tmpa H%
+ \edef\@@tmpa{A}%
+ \Put@Direct(-171,303){\set@fusionadd@sixv}%
+ \else\if\@tmpa i%
+ \edef\@@tmpa{b}%
+ \Put@Direct(-171,303){\set@fusionadd@sixv}%
+ \UnfavorableFusion{i}%
+ \else\if\@tmpa I%
+ \edef\@@tmpa{B}%
+ \Put@Direct(-171,303){\set@fusionadd@sixv}%
+ \UnfavorableFusion{I}%
+ \else\if\@tmpa j%
+ \edef\@@tmpa{a}%
+ \Put@Direct(0,0){\set@fusionadd@sixv}%
+ \UnfavorableFusion{j}%
+ \else\if\@tmpa J%
+ \edef\@@tmpa{A}%
+ \Put@Direct(0,0){\set@fusionadd@sixv}%
+ \UnfavorableFusion{J}%
+ \else\if\@tmpa k%
+ \edef\@@tmpa{c}%
+ \Put@Direct(-171,303){\set@fusionadd@sixv}%
+ \ForbiddenFusion{k}%
+ \else\if\@tmpa K%
+ \edef\@@tmpa{C}%
+ \Put@Direct(-171,303){\set@fusionadd@sixv}%
+ \ForbiddenFusion{K}%
+ \fi\fi\fi\fi\fi\fi\fi\fi\fi\fi\fi\fi%
+ \fi\fi\fi\fi\fi\fi\fi\fi\fi\fi%
+}% end of the macro \set@fusion@decavb
+\def\set@fusion@decavt{%
+ \let\@@tmpa=\@tmpa
+ \let\@@tmpb=\@tmpb
+ \if\@tmpa a%
+ \edef\@@tmpa{f}%
+ \Put@Direct(171,303){\set@fusionadd@sixv}%
+ \else\if\@tmpa A%
+ \edef\@@tmpa{F}%
+ \Put@Direct(171,303){\set@fusionadd@sixv}%
+ \else\if\@tmpa b%
+ \edef\@@tmpa{a}%
+ \Put@Direct(171,303){\set@fusionadd@sixv}%
+ \else\if\@tmpa B%
+ \edef\@@tmpa{A}%
+ \Put@Direct(171,303){\set@fusionadd@sixv}%
+ \else\if\@tmpa c%
+ \edef\@@tmpa{b}%
+ \Put@Direct(171,303){\set@fusionadd@sixv}%
+ \else\if\@tmpa C%
+ \edef\@@tmpa{B}%
+ \Put@Direct(171,303){\set@fusionadd@sixv}%
+ \else\if\@tmpa d%
+ \edef\@@tmpa{c}%
+ \Put@Direct(171,303){\set@fusionadd@sixv}%
+ \UnfavorableFusion{d}%
+ \else\if\@tmpa D%
+ \edef\@@tmpa{C}%
+ \Put@Direct(171,303){\set@fusionadd@sixv}%
+ \UnfavorableFusion{D}%
+ \else\if\@tmpa e%
+ \edef\@@tmpa{b}%
+ \Put@Direct(0,0){\set@fusionadd@sixv}%
+ \UnfavorableFusion{e}%
+ \else\if\@tmpa E%
+ \edef\@@tmpa{B}%
+ \Put@Direct(0,0){\set@fusionadd@sixv}%
+ \UnfavorableFusion{E}%
+ \else\if\@tmpa f%
+ \edef\@@tmpa{c}%
+ \Put@Direct(0,0){\set@fusionadd@sixv}%
+ \else\if\@tmpa F%
+ \edef\@@tmpa{C}%
+ \Put@Direct(0,0){\set@fusionadd@sixv}%
+ \else\if\@tmpa g%
+ \edef\@@tmpa{d}%
+ \Put@Direct(0,0){\set@fusionadd@sixv}%
+ \else\if\@tmpa G%
+ \edef\@@tmpa{D}%
+ \Put@Direct(0,0){\set@fusionadd@sixv}%
+ \else\if\@tmpa h%
+ \edef\@@tmpa{e}%
+ \Put@Direct(0,0){\set@fusionadd@sixv}%
+ \else\if\@tmpa H%
+ \edef\@@tmpa{E}%
+ \Put@Direct(0,0){\set@fusionadd@sixv}%
+ \else\if\@tmpa i%
+ \edef\@@tmpa{f}%
+ \Put@Direct(0,0){\set@fusionadd@sixv}%
+ \UnfavorableFusion{i}%
+ \else\if\@tmpa I%
+ \edef\@@tmpa{F}%
+ \Put@Direct(0,0){\set@fusionadd@sixv}%
+ \UnfavorableFusion{I}%
+ \else\if\@tmpa j%
+ \edef\@@tmpa{e}%
+ \Put@Direct(171,303){\set@fusionadd@sixv}%
+ \UnfavorableFusion{j}%
+ \else\if\@tmpa J%
+ \edef\@@tmpa{E}%
+ \Put@Direct(171,303){\set@fusionadd@sixv}%
+ \UnfavorableFusion{J}%
+ \else\if\@tmpa k%
+ \edef\@@tmpa{d}%
+ \Put@Direct(171,303){\set@fusionadd@sixv}%
+ \ForbiddenFusion{k}%
+ \else\if\@tmpa K%
+ \edef\@@tmpa{D}%
+ \Put@Direct(171,303){\set@fusionadd@sixv}%
+ \ForbiddenFusion{K}%
+ \fi\fi\fi\fi\fi\fi\fi\fi\fi\fi\fi\fi%
+ \fi\fi\fi\fi\fi\fi\fi\fi\fi\fi%
+}% end of \set@fusion@decavt
+\def\set@fusion@decah{%
+ \let\@@tmpa=\@tmpa
+ \let\@@tmpb=\@tmpb
+ \if\@tmpa a%
+ \let\@@tmpa=\@tmpa
+ \Put@Direct(0,0){\set@fusionadd@sixh}%
+ \else\if\@tmpa A%
+ \let\@@tmpa=\@tmpa
+ \Put@Direct(0,0){\set@fusionadd@sixh}%
+ \else\if\@tmpa b%
+ \let\@@tmpa=\@tmpa
+ \Put@Direct(0,0){\set@fusionadd@sixh}%
+ \else\if\@tmpa B%
+ \let\@@tmpa=\@tmpa
+ \Put@Direct(0,0){\set@fusionadd@sixh}%
+ \else\if\@tmpa c%
+ \let\@@tmpa=\@tmpa
+ \Put@Direct(0,0){\set@fusionadd@sixh}%
+ \else\if\@tmpa C%
+ \let\@@tmpa=\@tmpa
+ \Put@Direct(0,0){\set@fusionadd@sixh}%
+ \else\if\@tmpa d%
+ \let\@@tmpa=\@tmpa
+ \Put@Direct(0,0){\set@fusionadd@sixh}%
+ \UnfavorableFusion{d}%
+ \else\if\@tmpa D%
+ \let\@@tmpa=\@tmpa
+ \Put@Direct(0,0){\set@fusionadd@sixh}%
+ \UnfavorableFusion{D}%
+ \else\if\@tmpa e%
+ \edef\@@tmpa{c}%
+ \Put@Direct(0,-342){\set@fusionadd@sixh}%
+ \UnfavorableFusion{e}%
+ \else\if\@tmpa E%
+ \edef\@@tmpa{C}%
+ \Put@Direct(0,-342){\set@fusionadd@sixh}%
+ \UnfavorableFusion{E}%
+ \else\if\@tmpa f%
+ \edef\@@tmpa{d}%
+ \Put@Direct(0,-342){\set@fusionadd@sixh}%
+ \else\if\@tmpa F%
+ \edef\@@tmpa{D}%
+ \Put@Direct(0,-342){\set@fusionadd@sixh}%
+ \else\if\@tmpa g%
+ \edef\@@tmpa{e}%
+ \Put@Direct(0,-342){\set@fusionadd@sixh}%
+ \else\if\@tmpa G%
+ \edef\@@tmpa{E}%
+ \Put@Direct(0,-342){\set@fusionadd@sixh}%
+ \else\if\@tmpa h%
+ \edef\@@tmpa{f}%
+ \Put@Direct(0,-342){\set@fusionadd@sixh}%
+ \else\if\@tmpa H%
+ \edef\@@tmpa{F}%
+ \Put@Direct(0,-342){\set@fusionadd@sixh}%
+ \else\if\@tmpa i%
+ \edef\@@tmpa{a}%
+ \Put@Direct(0,-342){\set@fusionadd@sixh}%
+ \UnfavorableFusion{i}%
+ \else\if\@tmpa I%
+ \edef\@@tmpa{A}%
+ \Put@Direct(0,-342){\set@fusionadd@sixh}%
+ \UnfavorableFusion{I}%
+ \else\if\@tmpa j%
+ \edef\@@tmpa{f}%
+ \Put@Direct(0,0){\set@fusionadd@sixh}%
+ \UnfavorableFusion{j}%
+ \else\if\@tmpa J%
+ \edef\@@tmpa{F}%
+ \Put@Direct(0,0){\set@fusionadd@sixh}%
+ \UnfavorableFusion{J}%
+ \else\if\@tmpa k%
+ \edef\@@tmpa{e}%
+ \Put@Direct(0,0){\set@fusionadd@sixh}%
+ \ForbiddenFusion{k}%
+ \else\if\@tmpa K%
+ \edef\@@tmpa{E}%
+ \Put@Direct(0,0){\set@fusionadd@sixh}%
+ \ForbiddenFusion{K}%
+ \fi\fi\fi\fi\fi\fi\fi\fi\fi\fi\fi\fi%
+ \fi\fi\fi\fi\fi\fi\fi\fi\fi\fi%
+}% end of the macro \set@fusion@decah
+\def\set@fusion@hanthrav{%
+ \let\@@tmpa=\@tmpa
+ \let\@@tmpb=\@tmpb
+ \if\@tmpa a%
+ \let\@@tmpa=\@tmpa
+ \Put@Direct(684,0){\set@fusionadd@sixv}%
+ \else\if\@tmpa A%
+ \let\@@tmpa=\@tmpa
+ \Put@Direct(684,0){\set@fusionadd@sixv}%
+ \else\if\@tmpa b%
+ \let\@@tmpa=\@tmpa
+ \Put@Direct(684,0){\set@fusionadd@sixv}%
+ \else\if\@tmpa B%
+ \let\@@tmpa=\@tmpa
+ \Put@Direct(684,0){\set@fusionadd@sixv}%
+ \else\if\@tmpa c%
+ \let\@@tmpa=\@tmpa
+ \Put@Direct(684,0){\set@fusionadd@sixv}%
+ \else\if\@tmpa C%
+ \let\@@tmpa=\@tmpa
+ \Put@Direct(684,0){\set@fusionadd@sixv}%
+ \else\if\@tmpa d%
+ \let\@@tmpa=\@tmpa
+ \Put@Direct(684,0){\set@fusionadd@sixv}%
+ \UnfavorableFusion{d}%
+ \else\if\@tmpa D%
+ \let\@@tmpa=\@tmpa
+ \Put@Direct(684,0){\set@fusionadd@sixv}%
+ \UnfavorableFusion{D}%
+ \else\if\@tmpa e%
+ \edef\@@tmpa{c}%
+ \Put@Direct(342,0){\set@fusionadd@sixv}%
+ \UnfavorableFusion{e}%
+ \else\if\@tmpa E%
+ \edef\@@tmpa{C}%
+ \Put@Direct(342,0){\set@fusionadd@sixv}%
+ \UnfavorableFusion{E}%
+ \else\if\@tmpa f%
+ \edef\@@tmpa{d}%
+ \Put@Direct(342,0){\set@fusionadd@sixv}%
+ \UnfavorableFusion{f}%
+ \else\if\@tmpa F%
+ \edef\@@tmpa{D}%
+ \Put@Direct(342,0){\set@fusionadd@sixv}%
+ \UnfavorableFusion{F}%
+ \else\if\@tmpa g%
+ \edef\@@tmpa{c}%
+ \Put@Direct(0,0){\set@fusionadd@sixv}%
+ \UnfavorableFusion{g}%
+ \else\if\@tmpa G%
+ \edef\@@tmpa{C}%
+ \Put@Direct(0,0){\set@fusionadd@sixv}%
+ \UnfavorableFusion{G}%
+ \else\if\@tmpa h%
+ \edef\@@tmpa{d}%
+ \Put@Direct(0,0){\set@fusionadd@sixv}%
+ \else\if\@tmpa H%
+ \edef\@@tmpa{D}%
+ \Put@Direct(0,0){\set@fusionadd@sixv}%
+ \else\if\@tmpa i%
+ \edef\@@tmpa{e}%
+ \Put@Direct(0,0){\set@fusionadd@sixv}%
+ \else\if\@tmpa I%
+ \edef\@@tmpa{E}%
+ \Put@Direct(0,0){\set@fusionadd@sixv}%
+ \else\if\@tmpa j%
+ \edef\@@tmpa{f}%
+ \Put@Direct(0,0){\set@fusionadd@sixv}%
+ \else\if\@tmpa J%
+ \edef\@@tmpa{F}%
+ \Put@Direct(0,0){\set@fusionadd@sixv}%
+ \else\if\@tmpa k%
+ \edef\@@tmpa{a}%
+ \Put@Direct(0,0){\set@fusionadd@sixv}%
+ \UnfavorableFusion{k}%
+ \else\if\@tmpa K%
+ \edef\@@tmpa{A}%
+ \Put@Direct(0,0){\set@fusionadd@sixv}%
+ \UnfavorableFusion{K}%
+ \else\if\@tmpa l%
+ \edef\@@tmpa{f}%
+ \Put@Direct(342,0){\set@fusionadd@sixv}%
+ \UnfavorableFusion{l}%
+ \else\if\@tmpa L%
+ \edef\@@tmpa{F}%
+ \Put@Direct(342,0){\set@fusionadd@sixv}%
+ \UnfavorableFusion{L}%
+ \else\if\@tmpa m%
+ \edef\@@tmpa{a}%
+ \Put@Direct(342,0){\set@fusionadd@sixv}%
+ \UnfavorableFusion{m}%
+ \else\if\@tmpa M%
+ \edef\@@tmpa{A}%
+ \Put@Direct(342,0){\set@fusionadd@sixv}%
+ \UnfavorableFusion{M}%
+ \else\if\@tmpa n%
+ \edef\@@tmpa{f}%
+ \Put@Direct(684,0){\set@fusionadd@sixv}%
+ \UnfavorableFusion{n}%
+ \else\if\@tmpa N%
+ \edef\@@tmpa{F}%
+ \Put@Direct(684,0){\set@fusionadd@sixv}%
+ \UnfavorableFusion{N}%
+ \else\if\@tmpa o%
+ \edef\@@tmpa{e}%
+ \Put@Direct(684,0){\set@fusionadd@sixv}%
+ \ForbiddenFusion{o}%
+ \else\if\@tmpa O%
+ \edef\@@tmpa{E}%
+ \Put@Direct(684,0){\set@fusionadd@sixv}%
+ \ForbiddenFusion{O}%
+ \else\if\@tmpa p%
+ \edef\@@tmpa{e}%
+ \Put@Direct(342,0){\set@fusionadd@sixv}%
+ \ForbiddenFusion{p}%
+ \else\if\@tmpa P%
+ \edef\@@tmpa{E}%
+ \Put@Direct(342,0){\set@fusionadd@sixv}%
+ \ForbiddenFusion{P}%
+ \fi\fi\fi\fi\fi\fi\fi\fi\fi\fi%
+ \fi\fi\fi\fi\fi\fi\fi\fi\fi\fi\fi\fi%
+ \fi\fi\fi\fi\fi\fi\fi\fi\fi\fi%
+}% end of the macro \set@fusion@hanthrav
+\def\set@fusion@hphenanv{%
+ \let\@@tmpa=\@tmpa
+ \let\@@tmpb=\@tmpb
+ \if\@tmpa a%
+ \edef\@@tmpa{b}%
+ \Put@Direct(513,303){\set@fusionadd@sixv}%
+ \else\if\@tmpa A%
+ \edef\@@tmpa{B}%
+ \Put@Direct(513,303){\set@fusionadd@sixv}%
+ \else\if\@tmpa b%
+ \edef\@@tmpa{a}%
+ \Put@Direct(513,303){\set@fusionadd@sixv}%
+ \else\if\@tmpa B%
+ \edef\@@tmpa{A}%
+ \Put@Direct(513,303){\set@fusionadd@sixv}%
+ \else\if\@tmpa c%
+ \edef\@@tmpa{f}%
+ \Put@Direct(513,303){\set@fusionadd@sixv}%
+ \else\if\@tmpa C%
+ \edef\@@tmpa{F}%
+ \Put@Direct(513,303){\set@fusionadd@sixv}%
+ \else\if\@tmpa d%
+ \edef\@@tmpa{e}%
+ \Put@Direct(513,303){\set@fusionadd@sixv}%
+ \UnfavorableFusion{d}%
+ \else\if\@tmpa D%
+ \edef\@@tmpa{E}%
+ \Put@Direct(513,303){\set@fusionadd@sixv}%
+ \UnfavorableFusion{D}%
+ \else\if\@tmpa e%
+ \edef\@@tmpa{f}%
+ \Put@Direct(342,0){\set@fusionadd@sixv}%
+ \UnfavorableFusion{e}%
+ \else\if\@tmpa E%
+ \edef\@@tmpa{F}%
+ \Put@Direct(342,0){\set@fusionadd@sixv}%
+ \UnfavorableFusion{E}%
+ \else\if\@tmpa f%
+ \edef\@@tmpa{a}%
+ \Put@Direct(0,0){\set@fusionadd@sixv}%
+ \UnfavorableFusion{f}%
+ \else\if\@tmpa F%
+ \edef\@@tmpa{A}%
+ \Put@Direct(0,0){\set@fusionadd@sixv}%
+ \UnfavorableFusion{F}%
+ \else\if\@tmpa g%
+ \edef\@@tmpa{f}%
+ \Put@Direct(0,0){\set@fusionadd@sixv}%
+ \else\if\@tmpa G%
+ \edef\@@tmpa{F}%
+ \Put@Direct(0,0){\set@fusionadd@sixv}%
+ \else\if\@tmpa h%
+ \edef\@@tmpa{e}%
+ \Put@Direct(0,0){\set@fusionadd@sixv}%
+ \else\if\@tmpa H%
+ \edef\@@tmpa{E}%
+ \Put@Direct(0,0){\set@fusionadd@sixv}%
+ \else\if\@tmpa i%
+ \edef\@@tmpa{d}%
+ \Put@Direct(0,0){\set@fusionadd@sixv}%
+ \else\if\@tmpa I%
+ \edef\@@tmpa{D}%
+ \Put@Direct(0,0){\set@fusionadd@sixv}%
+ \else\if\@tmpa j%
+ \edef\@@tmpa{c}%
+ \Put@Direct(0,0){\set@fusionadd@sixv}%
+ \UnfavorableFusion{j}%
+ \else\if\@tmpa J%
+ \edef\@@tmpa{C}%
+ \Put@Direct(0,0){\set@fusionadd@sixv}%
+ \UnfavorableFusion{J}%
+ \else\if\@tmpa k%
+ \edef\@@tmpa{d}%
+ \Put@Direct(342,0){\set@fusionadd@sixv}%
+ \UnfavorableFusion{k}%
+ \else\if\@tmpa K%
+ \edef\@@tmpa{D}%
+ \Put@Direct(342,0){\set@fusionadd@sixv}%
+ \UnfavorableFusion{K}%
+ \else\if\@tmpa l%
+ \edef\@@tmpa{c}%
+ \Put@Direct(342,0){\set@fusionadd@sixv}%
+ \else\if\@tmpa L%
+ \edef\@@tmpa{C}%
+ \Put@Direct(342,0){\set@fusionadd@sixv}%
+ \else\if\@tmpa m%
+ \edef\@@tmpa{b}%
+ \Put@Direct(342,0){\set@fusionadd@sixv}%
+ \UnfavorableFusion{m}%
+ \else\if\@tmpa M%
+ \edef\@@tmpa{B}%
+ \Put@Direct(342,0){\set@fusionadd@sixv}%
+ \UnfavorableFusion{M}%
+ \else\if\@tmpa n%
+ \edef\@@tmpa{c}%
+ \Put@Direct(513,303){\set@fusionadd@sixv}%
+ \UnfavorableFusion{n}%
+ \else\if\@tmpa N%
+ \edef\@@tmpa{C}%
+ \Put@Direct(513,303){\set@fusionadd@sixv}%
+ \UnfavorableFusion{N}%
+ \else\if\@tmpa o%
+ \edef\@@tmpa{d}%
+ \Put@Direct(513,303){\set@fusionadd@sixv}%
+ \ForbiddenFusion{o}%
+ \else\if\@tmpa O%
+ \edef\@@tmpa{D}%
+ \Put@Direct(513,303){\set@fusionadd@sixv}%
+ \ForbiddenFusion{O}%
+ \else\if\@tmpa p%
+ \edef\@@tmpa{e}%
+ \Put@Direct(342,0){\set@fusionadd@sixv}%
+ \ForbiddenFusion{p}%
+ \else\if\@tmpa P%
+ \edef\@@tmpa{E}%
+ \Put@Direct(342,0){\set@fusionadd@sixv}%
+ \ForbiddenFusion{P}%
+ \fi\fi\fi\fi\fi\fi\fi\fi\fi\fi%
+ \fi\fi\fi\fi\fi\fi\fi\fi\fi\fi\fi\fi%
+ \fi\fi\fi\fi\fi\fi\fi\fi\fi\fi%
+}% end of the macro \set@fusion@hphananv
+\def\set@fusionadd@fivev{%
+ \if\@@tmpa 1\relax%
+ \putratom{-38}{88}{\@@tmpb}% % right type
+ \else\if\@@tmpa 2\relax%
+ \putratom{60}{120}{\@@tmpb}% % right type
+ \else\if\@@tmpa 3\relax%
+ \putratom{60}{233}{\@@tmpb}% % right type
+ \else\if\@@tmpa 4\relax%
+ \putratom{-60}{233}{\@@tmpb}% % right type
+ \else\if\@@tmpa 5\relax%
+ \putratom{-60}{120}{\@@tmpb}% % right type
+ \else\if\@@tmpa 0\relax%
+ \putratom{-38}{150}{\@@tmpb}% % right type
+ \else
+ \set@fusion@fivev
+ \fi\fi\fi\fi\fi\fi%
+}% end of the macro \set@fusionadd@fivev
+\newif\iffusesw \fuseswfalse
+\def\set@fusion@fivev{%
+ \if\@@tmpa a\relax%
+ \putlratom{0}{0}{\@@tmpb}% % right type
+ \FuseWarning{-171}{-103}%
+ {\fuseAx}{\fuseAy}{\fuseBx}{\fuseBy}{a}%
+ \else\if\@@tmpa A\relax%
+ \putlratom{171}{103}{\@@tmpb}% % right type
+ \FuseWarning{171}{103}%
+ {\fuseAx}{\fuseAy}{\fuseBx}{\fuseBy}{A}%
+ \else\if\@@tmpa b\relax%
+ \putlratom{171}{103}{\@@tmpb}% % right type
+ \FuseWarning{0}{-200}%
+ {\fuseAx}{\fuseAy}{\fuseBx}{\fuseBy}{b}%
+ \else\if\@@tmpa B\relax%
+ \putlratom{171}{303}{\@@tmpb}% % right type
+ \FuseWarning{0}{200}%
+ {\fuseAx}{\fuseAy}{\fuseBx}{\fuseBy}{B}%
+ \else\if\@@tmpa c\relax
+ \iffusesw
+ \putlratom{171}{103}{\@@tmpb}% % right type
+ \else
+ \XyMTeXWarning{Not-used fusion at bond `c'}%
+ \fi
+ \else\if\@@tmpa C\relax%
+ \iffusesw
+ \putlratom{-171}{103}{\@@tmpb}% % right type
+ \else
+ \XyMTeXWarning{Not-used fusion at bond `C'}%
+ \fi
+ \else\if\@@tmpa d\relax%
+ \putlratom{-171}{303}{\@@tmpb}% % right type
+ \FuseWarning{0}{200}%
+ {\fuseAx}{\fuseAy}{\fuseBx}{\fuseBy}{d}%
+ \else\if\@@tmpa D\relax%
+ \putlratom{-171}{103}{\@@tmpb}% % right type
+ \FuseWarning{0}{-200}%
+ {\fuseAx}{\fuseAy}{\fuseBx}{\fuseBy}{D}%
+ \else\if\@@tmpa e\relax%
+ \putlratom{-171}{103}{\@@tmpb}% % right type
+ \FuseWarning{171}{-103}%
+ {\fuseAx}{\fuseAy}{\fuseBx}{\fuseBy}{e}%
+ \else\if\@@tmpa E\relax%
+ \putlratom{0}{0}{\@@tmpb}% % right type
+ \FuseWarning{-171}{103}%
+ {\fuseAx}{\fuseAy}{\fuseBx}{\fuseBy}{E}%
+ \fi\fi\fi\fi\fi\fi\fi\fi\fi\fi%
+}% end of the marcro \set@fusion@fivev
+\def\set@fusionadd@fivevi{%
+ \if\@@tmpa 1\relax%
+ \putratom{-38}{282}{\@@tmpb}% % right type
+ \else\if\@@tmpa 2\relax%
+ \putratom{60}{233}{\@@tmpb}% % right type
+ \else\if\@@tmpa 3\relax%
+ \putratom{60}{120}{\@@tmpb}% % right type
+ \else\if\@@tmpa 4\relax%
+ \putratom{-60}{120}{\@@tmpb}% % right type
+ \else\if\@@tmpa 5\relax%
+ \putratom{-60}{233}{\@@tmpb}% % right type
+ \else\if\@@tmpa 0\relax%
+ \putratom{-38}{213}{\@@tmpb}% % right type
+ \else
+ \set@fusion@fivevi
+ \fi\fi\fi\fi\fi\fi%
+}% end of the macro \set@fusionadd@fivevi
+\def\set@fusion@fivevi{%
+\if\@@tmpa d\relax%
+ \putlratom{-171}{103}{\@@tmpb}% % bond fused
+ \FuseWarning{0}{-200}%
+ {\fuseAx}{\fuseAy}{\fuseBx}{\fuseBy}{d, k, or other}%
+ \else\if\@@tmpa D\relax%
+ \putlratom{-171}{303}{\@@tmpb}% % bond fused
+ \FuseWarning{0}{200}%
+ {\fuseAx}{\fuseAy}{\fuseBx}{\fuseBy}{D, K, or other}%
+ \else\if\@@tmpa e\relax%
+ \putlratom{-171}{303}{\@@tmpb}% % bond fused
+ \FuseWarning{-171}{-103}%
+ {\fuseAx}{\fuseAy}{\fuseBx}{\fuseBy}{e, j, or other}%
+ \else\if\@@tmpa E\relax%
+ \putlratom{0}{406}{\@@tmpb}% % bond fused
+ \FuseWarning{171}{103}%
+ {\fuseAx}{\fuseAy}{\fuseBx}{\fuseBy}{E, J, or other}%
+ \else\if\@@tmpa a\relax%
+ \putlratom{0}{406}{\@@tmpb}% % bond fused
+ \FuseWarning{-171}{103}%
+ {\fuseAx}{\fuseAy}{\fuseBx}{\fuseBy}{a, i, or other}%
+ \else\if\@@tmpa A\relax%
+ \putlratom{171}{303}{\@@tmpb}% % bond fused
+ \FuseWarning{171}{-103}%
+ {\fuseAx}{\fuseAy}{\fuseBx}{\fuseBy}{A, I, or other}%
+ \else\if\@@tmpa b\relax%
+ \putlratom{171}{303}{\@@tmpb}% % bond fused
+ \FuseWarning{0}{200}%
+ {\fuseAx}{\fuseAy}{\fuseBx}{\fuseBy}{b, k, or other}%
+ \else\if\@@tmpa B\relax%
+ \putlratom{171}{103}{\@@tmpb}% % bond fused
+ \FuseWarning{0}{-200}%
+ {\fuseAx}{\fuseAy}{\fuseBx}{\fuseBy}{B, K, or other}%
+ \else\if\@@tmpa c\relax
+ \iffusesw
+ \putlratom{171}{103}{\@@tmpb}% % right type
+ \else
+ \XyMTeXWarning{Not-used fusion at bond `c'}%
+ \fi
+ \else\if\@@tmpa C\relax%
+ \iffusesw
+ \putlratom{-171}{103}{\@@tmpb}% % right type
+ \else
+ \XyMTeXWarning{Not-used fusion at bond `C'}%
+ \fi
+ \fi\fi\fi\fi\fi\fi\fi\fi\fi\fi%
+}% end of the macro \set@fusion@fivevi
+\def\set@fusionadd@fiveh{%
+ \if\@@tmpa 1\relax%
+ \putratom{272}{-18}{\@@tmpb}% % right type
+ \else\if\@@tmpa 2\relax%
+ \putratom{233}{60}{\@@tmpb}% % right type
+ \else\if\@@tmpa 3\relax%
+ \putratom{120}{60}{\@@tmpb}% % right type
+ \else\if\@@tmpa 5\relax%
+ \putratom{233}{-110}{\@@tmpb}% % right type
+ \else\if\@@tmpa 4\relax%
+ \putratom{120}{-110}{\@@tmpb}% % right type
+ \else\if\@@tmpa 0\relax%
+ \putratom{196}{-30}{\@@tmpb}% % right type
+ \else
+ \set@fusion@fiveh
+ \fi\fi\fi\fi\fi\fi%
+}%
+\def\set@fusion@fiveh{%
+\if\@@tmpa E\relax%
+ \putlratom{406}{0}{\@@tmpb}% % bond fused
+ \FuseWarning{103}{171}%
+ {\fuseAx}{\fuseAy}{\fuseBx}{\fuseBy}{E, J, or other}%
+ \else\if\@@tmpa e\relax%
+ \putlratom{303}{-171}{\@@tmpb}% % bond fused
+ \FuseWarning{-103}{-171}%
+ {\fuseAx}{\fuseAy}{\fuseBx}{\fuseBy}{e, j, or other}%
+ \else\if\@@tmpa D\relax%
+ \putlratom{303}{-171}{\@@tmpb}% % bond fused
+ \FuseWarning{200}{0}%
+ {\fuseAx}{\fuseAy}{\fuseBx}{\fuseBy}{D, K, or other}%
+ \else\if\@@tmpa d\relax%
+ \putlratom{103}{-171}{\@@tmpb}% % bond fused
+ \FuseWarning{-200}{0}%
+ {\fuseAx}{\fuseAy}{\fuseBx}{\fuseBy}{d, k, or other}%
+ \else\if\@@tmpa c\relax
+ \iffusesw
+ \putlratom{303}{171}{\@@tmpb}% % right type
+ \else
+ \XyMTeXWarning{Not-used fusion at bond `c'}%
+ \fi
+ \else\if\@@tmpa C\relax%
+ \iffusesw
+ \putlratom{303}{-171}{\@@tmpb}% % right type
+ \else
+ \XyMTeXWarning{Not-used fusion at bond `C'}%
+ \fi
+ \else\if\@@tmpa B\relax%
+ \putlratom{103}{171}{\@@tmpb}% % bond fused
+ \FuseWarning{-200}{0}%
+ {\fuseAx}{\fuseAy}{\fuseBx}{\fuseBy}{B, K, or other}%
+ \else\if\@@tmpa b\relax%
+ \putlratom{303}{171}{\@@tmpb}% % bond fused
+ \FuseWarning{200}{0}%
+ {\fuseAx}{\fuseAy}{\fuseBx}{\fuseBy}{b, k, or other}%
+ \else\if\@@tmpa A\relax%
+ \putlratom{303}{171}{\@@tmpb}% % bond fused
+ \FuseWarning{-103}{171}%
+ {\fuseAx}{\fuseAy}{\fuseBx}{\fuseBy}{A, I, or other}%
+ \else\if\@@tmpa a\relax%
+ \putlratom{406}{0}{\@@tmpb}% % bond fused
+ \FuseWarning{103}{-171}%
+ {\fuseAx}{\fuseAy}{\fuseBx}{\fuseBy}{a, i, or other}%
+ \fi\fi\fi\fi\fi\fi\fi\fi\fi\fi%
+}% end of the macro \set@fusion@fiveh
+\def\set@fusionadd@fivehi{%
+ \if\@@tmpa 1\relax%
+ \putratom{-38}{282}{\@@tmpb}% % right type
+ \else\if\@@tmpa 2\relax%
+ \putratom{60}{233}{\@@tmpb}% % right type
+ \else\if\@@tmpa 3\relax%
+ \putratom{60}{120}{\@@tmpb}% % right type
+ \else\if\@@tmpa 4\relax%
+ \putratom{-60}{120}{\@@tmpb}% % right type
+ \else\if\@@tmpa 5\relax%
+ \putratom{-60}{233}{\@@tmpb}% % right type
+ \else\if\@@tmpa 0\relax%
+ \putratom{140}{-30}{\@@tmpb}% % right type
+ \else
+ \set@fusion@fivehi
+ \fi\fi\fi\fi\fi\fi%
+}%
+\def\set@fusion@fivehi{%
+\if\@@tmpa d\relax%
+ \putlratom{303}{-171}{\@@tmpb}% % bond fused
+ \FuseWarning{200}{0}%
+ {\fuseAx}{\fuseAy}{\fuseBx}{\fuseBy}{d, k, or other}%
+ \else\if\@@tmpa D\relax%
+ \putlratom{103}{-171}{\@@tmpb}% % bond fused
+ \FuseWarning{-200}{0}%
+ {\fuseAx}{\fuseAy}{\fuseBx}{\fuseBy}{D, K, or other}%
+ \else\if\@@tmpa e\relax%
+ \putlratom{103}{-171}{\@@tmpb}% % bond fused
+ \FuseWarning{103}{-171}%
+ {\fuseAx}{\fuseAy}{\fuseBx}{\fuseBy}{e, j, or other}%
+ \else\if\@@tmpa E\relax%
+ \putlratom{0}{0}{\@@tmpb}% % bond fused
+ \FuseWarning{-103}{171}%
+ {\fuseAx}{\fuseAy}{\fuseBx}{\fuseBy}{E, J, or other}%
+ \else\if\@@tmpa a\relax%
+ \putlratom{0}{0}{\@@tmpb}% % bond fused
+ \FuseWarning{-103}{-171}%
+ {\fuseAx}{\fuseAy}{\fuseBx}{\fuseBy}{a, i, or other}%
+ \else\if\@@tmpa A\relax%
+ \putlratom{103}{171}{\@@tmpb}% % bond fused
+ \FuseWarning{103}{171}%
+ {\fuseAx}{\fuseAy}{\fuseBx}{\fuseBy}{A, I, or other}%
+ \else\if\@@tmpa b\relax%
+ \putlratom{103}{171}{\@@tmpb}% % bond fused
+ \FuseWarning{-200}{0}%
+ {\fuseAx}{\fuseAy}{\fuseBx}{\fuseBy}{b, k, or other}%
+ \else\if\@@tmpa B\relax%
+ \putlratom{303}{171}{\@@tmpb}% % bond fused
+ \FuseWarning{200}{0}%
+ {\fuseAx}{\fuseAy}{\fuseBx}{\fuseBy}{B, K, or other}%
+ \else\if\@@tmpa c\relax
+ \iffusesw
+ \putlratom{303}{171}{\@@tmpb}% % right type
+ \else
+ \XyMTeXWarning{Not-used fusion at bond `c'}%
+ \fi
+ \else\if\@@tmpa C\relax%
+ \iffusesw
+ \putlratom{303}{-171}{\@@tmpb}% % right type
+ \else
+ \XyMTeXWarning{Not-used fusion at bond `C'}%
+ \fi
+ \fi\fi\fi\fi\fi\fi\fi\fi\fi\fi%
+}% end of the macro \set@fusion@sixhi
+\def\set@fusion@nonav{%
+ \let\@@tmpa=\@tmpa
+ \let\@@tmpb=\@tmpb
+ \if\@tmpa a%
+ \let\@@tmpa=\@tmpa
+ \Put@Direct(342,0){\set@fusionadd@sixvi}%
+ \else\if\@tmpa A%
+ \let\@@tmpa=\@tmpa
+ \Put@Direct(342,0){\set@fusionadd@sixvi}%
+ \else\if\@tmpa b%
+ \let\@@tmpa=\@tmpa
+ \Put@Direct(342,0){\set@fusionadd@sixvi}%
+ \else\if\@tmpa B%
+ \let\@@tmpa=\@tmpa
+ \Put@Direct(342,0){\set@fusionadd@sixvi}%
+ \else\if\@tmpa c\relax
+ \XyMTeXWarning{Not-used fusion at bond `c'}%
+ \else\if\@tmpa C\relax%
+ \XyMTeXWarning{Not-used fusion at bond `C'}%
+ \else\if\@tmpa d%
+ \edef\@@tmpa{c}%
+ \Put@Direct(0,0){\set@fusionadd@sixvi}%
+ \UnfavorableFusion{d}%
+ \else\if\@tmpa D%
+ \edef\@@tmpa{C}%
+ \Put@Direct(0,0){\set@fusionadd@sixvi}%
+ \UnfavorableFusion{D}%
+ \else\if\@tmpa e%
+ \edef\@@tmpa{d}%
+ \Put@Direct(0,0){\set@fusionadd@sixvi}%
+ \else\if\@tmpa E%
+ \edef\@@tmpa{D}%
+ \Put@Direct(0,0){\set@fusionadd@sixvi}%
+ \else\if\@tmpa f%
+ \edef\@@tmpa{e}%
+ \Put@Direct(0,0){\set@fusionadd@sixvi}%
+ \else\if\@tmpa F%
+ \edef\@@tmpa{E}%
+ \Put@Direct(0,0){\set@fusionadd@sixvi}%
+ \else\if\@tmpa g%
+ \edef\@@tmpa{f}%
+ \Put@Direct(0,0){\set@fusionadd@sixvi}%
+ \else\if\@tmpa G%
+ \edef\@@tmpa{F}%
+ \Put@Direct(0,0){\set@fusionadd@sixvi}%
+ \else\if\@tmpa h%
+ \edef\@@tmpa{a}%
+ \Put@Direct(0,0){\set@fusionadd@sixvi}%
+ \UnfavorableFusion{h}%
+ \else\if\@tmpa H%
+ \edef\@@tmpa{A}%
+ \Put@Direct(0,0){\set@fusionadd@sixvi}%
+ \UnfavorableFusion{H}%
+ \else\if\@tmpa i%
+ \edef\@@tmpa{f}%
+ \Put@Direct(342,0){\set@fusionadd@sixvi}%
+ \UnfavorableFusion{i}%
+ \else\if\@tmpa I%
+ \edef\@@tmpa{F}%
+ \Put@Direct(342,0){\set@fusionadd@sixvi}%
+ \UnfavorableFusion{I}%
+ \else\if\@tmpa j%
+ \edef\@@tmpa{e}%
+ \Put@Direct(342,0){\set@fusionadd@sixvi}%
+ \ForbiddenFusion{j}%
+ \else\if\@tmpa J%
+ \edef\@@tmpa{E}%
+ \Put@Direct(342,0){\set@fusionadd@sixvi}%
+ \ForbiddenFusion{J}%
+ \fi\fi\fi\fi\fi\fi\fi\fi\fi\fi%
+ \fi\fi\fi\fi\fi\fi\fi\fi\fi\fi%
+}% end of the macro \set@fusion@nonav
+\def\set@fusion@nonavi{%
+ \let\@@tmpa=\@tmpa
+ \let\@@tmpb=\@tmpb
+ \if\@tmpa a%
+ \let\@@tmpa=\@tmpa
+ \Put@Direct(342,0){\set@fusionadd@sixv}%
+ \else\if\@tmpa A%
+ \let\@@tmpa=\@tmpa
+ \Put@Direct(342,0){\set@fusionadd@sixv}%
+ \else\if\@tmpa b%
+ \let\@@tmpa=\@tmpa
+ \Put@Direct(342,0){\set@fusionadd@sixv}%
+ \else\if\@tmpa B%
+ \let\@@tmpa=\@tmpa
+ \Put@Direct(342,0){\set@fusionadd@sixv}%
+ \else\if\@tmpa c\relax
+ \XyMTeXWarning{Not-used fusion at bond `c'}%
+ \else\if\@tmpa C\relax%
+ \XyMTeXWarning{Not-used fusion at bond `C'}%
+ \else\if\@tmpa d%
+ \edef\@@tmpa{c}%
+ \Put@Direct(0,0){\set@fusionadd@sixv}%
+ \UnfavorableFusion{d}%
+ \else\if\@tmpa D%
+ \edef\@@tmpa{C}%
+ \Put@Direct(0,0){\set@fusionadd@sixv}%
+ \UnfavorableFusion{D}%
+ \else\if\@tmpa e%
+ \edef\@@tmpa{d}%
+ \Put@Direct(0,0){\set@fusionadd@sixv}%
+ \else\if\@tmpa E%
+ \edef\@@tmpa{D}%
+ \Put@Direct(0,0){\set@fusionadd@sixv}%
+ \else\if\@tmpa f%
+ \edef\@@tmpa{e}%
+ \Put@Direct(0,0){\set@fusionadd@sixv}%
+ \else\if\@tmpa F%
+ \edef\@@tmpa{E}%
+ \Put@Direct(0,0){\set@fusionadd@sixv}%
+ \else\if\@tmpa g%
+ \edef\@@tmpa{f}%
+ \Put@Direct(0,0){\set@fusionadd@sixv}%
+ \else\if\@tmpa G%
+ \edef\@@tmpa{F}%
+ \Put@Direct(0,0){\set@fusionadd@sixv}%
+ \else\if\@tmpa h%
+ \edef\@@tmpa{a}%
+ \Put@Direct(0,0){\set@fusionadd@sixv}%
+ \UnfavorableFusion{h}%
+ \else\if\@tmpa H%
+ \edef\@@tmpa{A}%
+ \Put@Direct(0,0){\set@fusionadd@sixv}%
+ \UnfavorableFusion{H}%
+ \else\if\@tmpa i%
+ \edef\@@tmpa{f}%
+ \Put@Direct(342,0){\set@fusionadd@sixv}%
+ \UnfavorableFusion{i}%
+ \else\if\@tmpa I%
+ \edef\@@tmpa{F}%
+ \Put@Direct(342,0){\set@fusionadd@sixv}%
+ \UnfavorableFusion{I}%
+ \else\if\@tmpa j%
+ \edef\@@tmpa{e}%
+ \Put@Direct(342,0){\set@fusionadd@sixv}%
+ \ForbiddenFusion{j}%
+ \else\if\@tmpa J%
+ \edef\@@tmpa{E}%
+ \Put@Direct(342,0){\set@fusionadd@sixv}%
+ \ForbiddenFusion{J}%
+ \fi\fi\fi\fi\fi\fi\fi\fi\fi\fi%
+ \fi\fi\fi\fi\fi\fi\fi\fi\fi\fi%
+}% end of the macro \set@fusion@nonavi
+\def\set@fusion@nonah{%
+ \let\@@tmpa=\@tmpa
+ \let\@@tmpb=\@tmpb
+ \if\@tmpa a%
+ \let\@@tmpa=\@tmpa
+ \Put@Direct(0,0){\set@fusionadd@sixhi}%
+ \else\if\@tmpa A%
+ \let\@@tmpa=\@tmpa
+ \Put@Direct(0,0){\set@fusionadd@sixhi}%
+ \else\if\@tmpa b%
+ \let\@@tmpa=\@tmpa
+ \Put@Direct(0,0){\set@fusionadd@sixhi}%
+ \else\if\@tmpa B%
+ \let\@@tmpa=\@tmpa
+ \Put@Direct(0,0){\set@fusionadd@sixhi}%
+ \else\if\@tmpa c\relax
+ \XyMTeXWarning{Not-used fusion at bond `c'}%
+ \else\if\@tmpa C\relax%
+ \XyMTeXWarning{Not-used fusion at bond `C'}%
+ \else\if\@tmpa d%
+ \edef\@@tmpa{c}%
+ \Put@Direct(0,-342){\set@fusionadd@sixhi}%
+ \UnfavorableFusion{d}%
+ \else\if\@tmpa D%
+ \edef\@@tmpa{C}%
+ \Put@Direct(0,-342){\set@fusionadd@sixhi}%
+ \UnfavorableFusion{D}%
+ \else\if\@tmpa e%
+ \edef\@@tmpa{d}%
+ \Put@Direct(0,-342){\set@fusionadd@sixhi}%
+ \else\if\@tmpa E%
+ \edef\@@tmpa{D}%
+ \Put@Direct(0,-342){\set@fusionadd@sixhi}%
+ \else\if\@tmpa f%
+ \edef\@@tmpa{e}%
+ \Put@Direct(0,-342){\set@fusionadd@sixhi}%
+ \else\if\@tmpa F%
+ \edef\@@tmpa{E}%
+ \Put@Direct(0,-342){\set@fusionadd@sixhi}%
+ \else\if\@tmpa g%
+ \edef\@@tmpa{f}%
+ \Put@Direct(0,-342){\set@fusionadd@sixhi}%
+ \else\if\@tmpa G%
+ \edef\@@tmpa{F}%
+ \Put@Direct(0,-342){\set@fusionadd@sixhi}%
+ \else\if\@tmpa h%
+ \edef\@@tmpa{a}%
+ \Put@Direct(0,-342){\set@fusionadd@sixhi}%
+ \UnfavorableFusion{h}%
+ \else\if\@tmpa H%
+ \edef\@@tmpa{A}%
+ \Put@Direct(0,-342){\set@fusionadd@sixhi}%
+ \UnfavorableFusion{H}%
+ \else\if\@tmpa i%
+ \edef\@@tmpa{f}%
+ \Put@Direct(0,0){\set@fusionadd@sixhi}%
+ \UnfavorableFusion{i}%
+ \else\if\@tmpa I%
+ \edef\@@tmpa{F}%
+ \Put@Direct(0,0){\set@fusionadd@sixhi}%
+ \UnfavorableFusion{I}%
+ \else\if\@tmpa j%
+ \edef\@@tmpa{e}%
+ \Put@Direct(0,0){\set@fusionadd@sixhi}%
+ \ForbiddenFusion{j}%
+ \else\if\@tmpa J%
+ \edef\@@tmpa{E}%
+ \Put@Direct(0,0){\set@fusionadd@sixhi}%
+ \ForbiddenFusion{J}%
+ \fi\fi\fi\fi\fi\fi\fi\fi\fi\fi%
+ \fi\fi\fi\fi\fi\fi\fi\fi\fi\fi%
+}% end of the macro \set@fusion@nonah
+\def\set@fusion@nonahi{%
+ \let\@@tmpa=\@tmpa
+ \let\@@tmpb=\@tmpb
+ \if\@tmpa a%
+ \let\@@tmpa=\@tmpa
+ \Put@Direct(0,0){\set@fusionadd@sixh}%
+ \else\if\@tmpa A%
+ \let\@@tmpa=\@tmpa
+ \Put@Direct(0,0){\set@fusionadd@sixh}%
+ \else\if\@tmpa b%
+ \let\@@tmpa=\@tmpa
+ \Put@Direct(0,0){\set@fusionadd@sixh}%
+ \else\if\@tmpa B%
+ \let\@@tmpa=\@tmpa
+ \Put@Direct(0,0){\set@fusionadd@sixh}%
+ \else\if\@tmpa c\relax
+ \XyMTeXWarning{Not-used fusion at bond `c'}%
+ \else\if\@tmpa C\relax%
+ \XyMTeXWarning{Not-used fusion at bond `C'}%
+ \else\if\@tmpa d%
+ \edef\@@tmpa{c}%
+ \Put@Direct(0,-342){\set@fusionadd@sixh}%
+ \UnfavorableFusion{d}%
+ \else\if\@tmpa D%
+ \edef\@@tmpa{C}%
+ \Put@Direct(0,-342){\set@fusionadd@sixh}%
+ \UnfavorableFusion{D}%
+ \else\if\@tmpa e%
+ \edef\@@tmpa{d}%
+ \Put@Direct(0,-342){\set@fusionadd@sixh}%
+ \else\if\@tmpa E%
+ \edef\@@tmpa{D}%
+ \Put@Direct(0,-342){\set@fusionadd@sixh}%
+ \else\if\@tmpa f%
+ \edef\@@tmpa{e}%
+ \Put@Direct(0,-342){\set@fusionadd@sixh}%
+ \else\if\@tmpa F%
+ \edef\@@tmpa{E}%
+ \Put@Direct(0,-342){\set@fusionadd@sixh}%
+ \else\if\@tmpa g%
+ \edef\@@tmpa{f}%
+ \Put@Direct(0,-342){\set@fusionadd@sixh}%
+ \else\if\@tmpa G%
+ \edef\@@tmpa{F}%
+ \Put@Direct(0,-342){\set@fusionadd@sixh}%
+ \else\if\@tmpa h%
+ \edef\@@tmpa{a}%
+ \Put@Direct(0,-342){\set@fusionadd@sixh}%
+ \UnfavorableFusion{h}%
+ \else\if\@tmpa H%
+ \edef\@@tmpa{A}%
+ \Put@Direct(0,-342){\set@fusionadd@sixh}%
+ \UnfavorableFusion{H}%
+ \else\if\@tmpa i%
+ \edef\@@tmpa{f}%
+ \Put@Direct(0,0){\set@fusionadd@sixh}%
+ \UnfavorableFusion{i}%
+ \else\if\@tmpa I%
+ \edef\@@tmpa{F}%
+ \Put@Direct(0,0){\set@fusionadd@sixh}%
+ \UnfavorableFusion{I}%
+ \else\if\@tmpa j%
+ \edef\@@tmpa{e}%
+ \Put@Direct(0,0){\set@fusionadd@sixh}%
+ \ForbiddenFusion{j}%
+ \else\if\@tmpa J%
+ \edef\@@tmpa{E}%
+ \Put@Direct(0,0){\set@fusionadd@sixh}%
+ \ForbiddenFusion{J}%
+ \fi\fi\fi\fi\fi\fi\fi\fi\fi\fi%
+ \fi\fi\fi\fi\fi\fi\fi\fi\fi\fi%
+}% end of the macro \set@fusion@nonahi
+\def\SetTwoAtoms#1{\setbox0=\hbox{#1}%
+{\white \rule{\wd0}{\ht0}}\kern-\wd0{#1}}
+\def\SetTwoAtomx#1{{\setbox0=\hbox{#1}%
+\@tempdimd=\wd0 \advance\@tempdimd by8\unitlength%
+\@tempdime=\ht0 \advance\@tempdime by8\unitlength%
+\kern-4\unitlength{\white \rule[-4\unitlength]{\@tempdimd}{\@tempdime}}%
+\kern-\@tempdimd{#1}}}
+\originalpicture%initial setting
+\endinput
+%%
+%% End of file `chemstr.sty'.