%%
%% This is file `aliphat.sty',
%% generated with the docstrip utility.
%%
%% The original source files were:
%%
%% aliphat.dtx  (with options: `aliphat')
%% 
%% This is a generated file.
%% 
%% Copyright 1996, 1998 by Shinsaku Fujita
%% 
%% This file is part of the XyMTeX system.
%% =======================================
%% 
%% Version 1.01 Released on August 16, 1996
%% Version 1.02 Released on October 31, 1996
%% Version 2.00 Released on December 25, 1998
%% 
%% Copyright (C) 1996, 1998 by Shinsaku Fujita, all rights reserved.
%% This style file is created for drawing chemical structural formulas
%% This style file is to be contained in the ``xymtex'' directory which
%% is an input directory for TeX.
%% 
%% Copying of this file is authorized only if either
%% 
%%  (1) you make absolutely no changes to your copy, including name and
%%      directory name
%%  (2) if you do make changes,
%%      (a) you name it something other than the names included in the
%%          ``xymtex'' directory and
%%      (b) you acknowledge the original name.
%%  This restriction ensures that all standard styles are identical.
%% 
%% =======================================
%% 
%% This file contains several codes modified from latex.tex (LaTeX2.09)
%% and from latex.ltx (a LaTeX2e), the reused parts of which are subject to
%% Copyright 1994 the LaTeX3 project and the individual authors (For further
%% copyright information see the file legal.txt of the LaTeX2e standard
%% distribution, and any other copyright indicated in this file.)
%% 
%% File: aliphat.dtx
%% \CharacterTable
%%  {Upper-case    \A\B\C\D\E\F\G\H\I\J\K\L\M\N\O\P\Q\R\S\T\U\V\W\X\Y\Z
%%   Lower-case    \a\b\c\d\e\f\g\h\i\j\k\l\m\n\o\p\q\r\s\t\u\v\w\x\y\z
%%   Digits        \0\1\2\3\4\5\6\7\8\9
%%   Exclamation   \!     Double quote  \"     Hash (number) \#
%%   Dollar        \$     Percent       \%     Ampersand     \&
%%   Acute accent  \'     Left paren    \(     Right paren   \)
%%   Asterisk      \*     Plus          \+     Comma         \,
%%   Minus         \-     Point         \.     Solidus       \/
%%   Colon         \:     Semicolon     \;     Less than     \<
%%   Equals        \=     Greater than  \>     Question mark \?
%%   Commercial at \@     Left bracket  \[     Backslash     \\
%%   Right bracket \]     Circumflex    \^     Underscore    \_
%%   Grave accent  \`     Left brace    \{     Vertical bar  \|
%%   Right brace   \}     Tilde         \~}
\typeout{XyMTeX for Drawing Chemical Structural Formulas. Version 2.00}
\typeout{       -- Released December 25, 1998 by Shinsaku Fujita}
\def\j@urnalname{aliphat}
\def\versi@ndate{December 25, 1998}
\def\versi@nno{ver2.00}
\def\copyrighth@lder{SF} % Shinsaku Fujita
\typeout{XyMTeX Macro File `\j@urnalname' (\versi@nno) <\versi@ndate>%
\space[\copyrighth@lder]}
\@ifundefined{setsixringv}{\input chemstr.sty\relax}{}
\unitlength=0.1pt
\def\Northbond{%
\yl@xdiff=40
\yl@ydiff=-15
\begin{picture}(100,200)(0,0)
  \if\@tmpb D\relax%
    \multiput(-13,52)(26,0){2}{\line(0,1){100}}% double bond up
  \else\if\@tmpb T\relax%
    \multiput(-20,52)(20,0){3}{\line(0,1){100}}% triple bond up
  \else\if\@tmpb A%(A) alpha
    {\thicklines\put(-8,52){\line(0,1){100}}}% single bond (alpha)
  \else\if\@tmpb B%(B) beta
       \@ifundefined{dottedline}{\put(0,52){\line(0,1){100}}}%
         {{\thicklines \dottedline{20}(0,52)(0,152)}}%
  \else\if\@tmpb S%
       \put(0,52){\line(0,1){100}}%
  \else \put(0,52){\line(0,1){100}}%
  \fi\fi\fi\fi\fi%
  \putlratom{-40}{167}{\@memberb}%==1 upper substituent
\end{picture}}%
\def\Eastbond{%
\yl@xdiff=-10
\yl@ydiff=33
\begin{picture}(200,200)(0,0)
  \if\@tmpb D\relax%
     \multiput(50,-13)(0,26){2}{\line(1,0){140}}% double bond right
  \else\if\@tmpb T\relax%
     \multiput(50,-20)(0,20){3}{\line(1,0){140}}% double bond right
  \else\if\@tmpb A%(A) alpha
    {\thicklines\put(50,0){\line(1,0){140}}}% single bond (alpha)
  \else\if\@tmpb B%(B) beta
       \@ifundefined{dottedline}{\put(50,0){\line(1,0){140}}}%
         {{\thicklines \dottedline{20}(50,0)(203,0)}}%
  \else\if\@tmpb S%
       \put(50,0){\line(1,0){140}}%
    \else \put(50,0){\line(1,0){140}}%
  \fi\fi\fi\fi\fi%
  \putratom{200}{-33}{\@memberb}%==2 right substituent
\end{picture}}%
\def\Southbond{%
\yl@xdiff=40
\yl@ydiff=95
\begin{picture}(100,300)(0,0)
  \if\@tmpb D\relax%
     \multiput(-13,-48)(26,0){2}{\line(0,-1){100}}% double bond down
  \else\if\@tmpb T\relax%
     \multiput(-20,-48)(20,0){3}{\line(0,-1){100}}% double bond down
  \else\if\@tmpb A%(A) alpha
    {\thicklines\put(-8,-48){\line(0,-1){100}}}% single bond (alpha)
  \else\if\@tmpb B%(B) beta
       \@ifundefined{dottedline}{\put(0,-48){\line(0,-1){100}}}%
         {{\thicklines \dottedline{20}(0,-48)(0,-148)}}%
  \else\if\@tmpb S%
       \put(0,-48){\line(0,-1){100}}%
    \else \put(0,-48){\line(0,-1){100}}%
  \fi\fi\fi\fi\fi%
  \putlratom{-40}{-243}{\@memberb}%==3 down substituent
\end{picture}}%
\def\Westbond{%
\yl@xdiff=10
\yl@ydiff=33
\begin{picture}(100,300)(0,0)
  \if\@tmpb D\relax%
     \multiput(-190,-13)(0,26){2}{\line(1,0){140}}% double bond left
  \else\if\@tmpb T\relax%
     \multiput(-190,-20)(0,20){3}{\line(1,0){140}}% double bond left
  \else\if\@tmpb A%(A) alpha
    {\thicklines\put(-190,0){\line(1,0){140}}}% single bond (alpha)
  \else\if\@tmpb B%(B) beta
       \@ifundefined{dottedline}{\put(-190,0){\line(1,0){140}}}%
         {{\thicklines \dottedline{20}(-190,0)(-40,0)}}%
  \else\if\@tmpb S%
       \put(-190,0){\line(1,0){140}}%
  \else \put(-190,0){\line(1,0){140}}%
  \fi\fi\fi\fi\fi%
  \putlatom{-200}{-33}{\@memberb}%==4 left substituent
\end{picture}}%
\def\NEBond{%degree 120
\yl@xdiff=-9
\yl@ydiff=13
\begin{picture}(100,300)(0,0)
  \if\@tmpb D\relax%
    \put(33,48){\line(5,3){121}}%
    \put(47,26){\line(5,3){121}}%northeast double bond
  \else\if\@tmpb T\relax%
    \put(31,52){\line(5,3){121}}%
    \put(40,37){\line(5,3){121}}%
    \put(49,22){\line(5,3){121}}%northeast triple bond
  \else\if\@tmpb A%(A) alpha
    {\thicklines\put(40,47){\line(5,3){121}}}% single bond (alpha)
  \else\if\@tmpb B%(B) beta
       \@ifundefined{dottedline}{\put(40,47){\line(5,3){121}}}%
         {{\thicklines \dottedline{20}(40,47)(161,120)}}%
  \else\if\@tmpb S%
       \put(40,47){\line(5,3){121}}%
  \else \put(40,47){\line(5,3){121}}%
  \fi\fi\fi\fi\fi%
  \putratom{170}{107}{\@memberb}%==2 (northeast substituent)
\end{picture}}%
\def\NEbond{%degree 90
\yl@xdiff=-5
\yl@ydiff=10
\begin{picture}(100,300)(0,0)
  \if\@tmpb D\relax%
     \put(31,46){\line(1,1){100}}%
     \put(49,28){\line(1,1){100}}%northeast double bond
  \else\if\@tmpb T\relax%
     \put(27,50){\line(1,1){100}}%
     \put(40,37){\line(1,1){100}}%
     \put(53,24){\line(1,1){100}}%northeast triple bond
  \else\if\@tmpb A%(A) alpha
    {\thicklines\put(40,47){\line(1,1){100}}}% single bond (alpha)
  \else\if\@tmpb B%(B) beta
       \@ifundefined{dottedline}{\put(40,47){\line(1,1){100}}}%
         {{\thicklines \dottedline{20}(40,47)(140,147)}}%
  \else\if\@tmpb S%
       \put(40,47){\line(1,1){100}}%
  \else \put(40,47){\line(1,1){100}}%
  \fi\fi\fi\fi\fi%
  \putratom{145}{137}{\@memberb}%==2 (northeast substituent)
\end{picture}}%
\def\SEBond{%degree 120
\yl@xdiff=-9
\yl@ydiff=67
\begin{picture}(100,300)(0,0)
  \if\@tmpb D\relax%
    \put(33,-48){\line(5,-3){121}}%
    \put(47,-26){\line(5,-3){121}}%southeast double bond
  \else\if\@tmpb T\relax%
    \put(31,-52){\line(5,-3){121}}%
    \put(40,-37){\line(5,-3){121}}%
    \put(49,-22){\line(5,-3){121}}%southeast triple bond
  \else\if\@tmpb A%(A) alpha
    {\thicklines\put(40,-47){\line(5,-3){121}}}% single bond (alpha)
  \else\if\@tmpb B%(B) beta
       \@ifundefined{dottedline}{\put(40,-47){\line(5,-3){121}}}%
         {{\thicklines \dottedline{20}(40,-47)(161,-120)}}%
  \else\if\@tmpb S%
       \put(40,-47){\line(5,-3){121}}%
  \else \put(40,-47){\line(5,-3){121}}%
  \fi\fi\fi\fi\fi%
  \putratom{170}{-187}{\@memberb}%==2 (southeast substituent)
\end{picture}}%
\def\SEbond{%degree 90
\yl@xdiff=-5
\yl@ydiff=56
\begin{picture}(100,300)(0,0)
  \if\@tmpb D\relax%
     \put(31,-46){\line(1,-1){100}}%
     \put(49,-28){\line(1,-1){100}}%southeast double bond
  \else\if\@tmpb T\relax%
     \put(27,-50){\line(1,-1){100}}%
     \put(40,-37){\line(1,-1){100}}%
     \put(53,-24){\line(1,-1){100}}%southeast triple bond
  \else\if\@tmpb A%(A) alpha
    {\thicklines\put(53,-47){\line(1,-1){100}}}% single bond (alpha)
  \else\if\@tmpb B%(B) beta
       \@ifundefined{dottedline}{\put(40,-47){\line(1,-1){100}}}%
         {{\thicklines \dottedline{20}(40,-47)(140,-147)}}%
  \else\if\@tmpb S%
       \put(40,-47){\line(1,-1){100}}%
  \else \put(40,-47){\line(1,-1){100}}%
  \fi\fi\fi\fi\fi%
 \putratom{145}{-203}{\@memberb}%==3 (southeast substituent)
\end{picture}}%
\def\NWBond{%
\begin{picture}(100,300)(0,0)
\yl@xdiff=9
\yl@ydiff=13
  \if\@tmpb D\relax%
    \put(-59,48){\line(-5,3){121}}%
    \put(-73,26){\line(-5,3){121}}%northwest double bond
  \else\if\@tmpb T\relax%
    \put(-57,52){\line(-5,3){121}}%
    \put(-66,37){\line(-5,3){121}}%
    \put(-75,22){\line(-5,3){121}}%northwest triple bond
  \else\if\@tmpb A%(A) alpha
    {\thicklines\put(-66,47){\line(-5,3){121}}}% single bond (alpha)
  \else\if\@tmpb B%(B) beta
       \@ifundefined{dottedline}{\put(-66,47){\line(-5,3){121}}}%
         {{\thicklines \dottedline{20}(-66,47)(-187,120)}}%
  \else\if\@tmpb S%
       \put(-66,47){\line(-5,3){121}}%
  \else \put(-66,47){\line(-5,3){121}}%
  \fi\fi\fi\fi\fi%
  \putlatom{-196}{107}{\@memberb}%==2 (northwest substituent)
\end{picture}}%
\def\NWbond{%
\begin{picture}(100,300)(0,0)
\yl@xdiff=13
\yl@ydiff=10
  \if\@tmpb D\relax%
     \put(-41,46){\line(-1,1){100}}%
     \put(-59,28){\line(-1,1){100}}%northwest double bond
  \else\if\@tmpb T\relax%
     \put(-37,50){\line(-1,1){100}}%
     \put(-50,37){\line(-1,1){100}}%
     \put(-63,24){\line(-1,1){100}}%northwest triple bond
  \else\if\@tmpb A%(A) alpha
    {\thicklines\put(-50,47){\line(-1,1){100}}}% single bond (alpha)
  \else\if\@tmpb B%(B) beta
       \@ifundefined{dottedline}{\put(-50,47){\line(-1,1){100}}}%
         {{\thicklines \dottedline{20}(-50,47)(-137,147)}}%
  \else\if\@tmpb S%
       \put(-50,47){\line(-1,1){100}}%
  \else \put(-50,47){\line(-1,1){100}}%
  \fi\fi\fi\fi\fi%
  \putlatom{-163}{137}{\@memberb}%==2 (northwest substituent)
\end{picture}}%
\def\SWBond{%
\yl@xdiff=9
\yl@ydiff=67
\begin{picture}(100,300)(0,0)
  \if\@tmpb D\relax%
    \put(-59,-48){\line(-5,-3){121}}%
    \put(-73,-26){\line(-5,-3){121}}%southwest double bond
  \else\if\@tmpb T\relax%
    \put(-57,-52){\line(-5,-3){121}}%
    \put(-66,-37){\line(-5,-3){121}}%
    \put(-75,-22){\line(-5,-3){121}}%southwest triple bond
  \else\if\@tmpb A%(A) alpha
    {\thicklines\put(-66,-47){\line(-5,-3){121}}}% single bond (alpha)
  \else\if\@tmpb B%(B) beta
       \@ifundefined{dottedline}{\put(-66,-47){\line(-5,-3){121}}}%
         {{\thicklines \dottedline{20}(-66,-47)(-187,-120)}}%
  \else\if\@tmpb S%
       \put(-66,-47){\line(-5,-3){121}}%
  \else \put(-66,-47){\line(-5,-3){121}}%
  \fi\fi\fi\fi\fi%
  \putlatom{-196}{-187}{\@memberb}%==2 (southwest substituent)
\end{picture}}%
\def\SWbond{%
\yl@xdiff=13
\yl@ydiff=56
\begin{picture}(100,300)(0,0)
  \if\@tmpb D\relax%
     \put(-41,-46){\line(-1,-1){100}}%
     \put(-59,-28){\line(-1,-1){100}}%southwest double bond
  \else\if\@tmpb T\relax%
     \put(-37,-50){\line(-1,-1){100}}%
     \put(-50,-37){\line(-1,-1){100}}%
     \put(-63,-24){\line(-1,-1){100}}%southwest triple bond
  \else\if\@tmpb A%(A) alpha
    {\thicklines\put(-50,-47){\line(-1,-1){100}}}% single bond (alpha)
  \else\if\@tmpb B%(B) beta
       \@ifundefined{dottedline}{\put(-50,-47){\line(-1,-1){100}}}%
         {{\thicklines \dottedline{20}(-50,-47)(-137,-147)}}%
  \else\if\@tmpb S%
       \put(-50,-47){\line(-1,-1){100}}%
  \else \put(-50,-47){\line(-1,-1){100}}%
  \fi\fi\fi\fi\fi%
 \putlatom{-163}{-203}{\@memberb}%==3 (southwest substituent)
\end{picture}}%
\def\NEBOND{%degree 120
\yl@xdiff=-1
\yl@ydiff=-10
\begin{picture}(100,300)(0,0)
  \if\@tmpb D\relax%
    \put(48,33){\line(3,5){72}}%
    \put(26,47){\line(3,5){72}}%northeast double bond
  \else\if\@tmpb T\relax%
    \put(52,31){\line(3,5){72}}%
    \put(37,40){\line(3,5){72}}%
    \put(22,49){\line(3,5){72}}%northeast triple bond
  \else\if\@tmpb A%(A) alpha
    {\thicklines\put(40,47){\line(3,5){72}}}% single bond (alpha)
  \else\if\@tmpb B%(B) beta
       \@ifundefined{dottedline}{\put(47,40){\line(3,5){72}}}%
         {{\thicklines \dottedline{20}(47,40)(120,161)}}%
  \else\if\@tmpb S%
       \put(47,40){\line(3,5){72}}%
  \else \put(47,40){\line(3,5){72}}%
  \fi\fi\fi\fi\fi%
  \putratom{120}{170}{\@memberb}%==2 (northeast substituent)
\end{picture}}%
\def\SEBOND{%degree 120
\yl@xdiff=-1
\yl@ydiff=70
\begin{picture}(100,300)(0,0)
  \if\@tmpb D\relax%
    \put(48,-33){\line(3,-5){72}}%
    \put(26,-47){\line(3,-5){72}}%southeast double bond
  \else\if\@tmpb T\relax%
    \put(52,-31){\line(3,-5){72}}%
    \put(37,-40){\line(3,-5){72}}%
    \put(22,-49){\line(3,-5){72}}%southeast triple bond
  \else\if\@tmpb A%(A) alpha
    {\thicklines\put(47,-40){\line(3,-5){72}}}% single bond (alpha)
  \else\if\@tmpb B%(B) beta
       \@ifundefined{dottedline}{\put(47,-40){\line(3,-5){72}}}%
         {{\thicklines \dottedline{20}(47,-40)(120,-161)}}%
  \else\if\@tmpb S%
       \put(47,-40){\line(3,-5){72}}%
  \else \put(47,-40){\line(3,-5){72}}%
  \fi\fi\fi\fi\fi%
  \putratom{120}{-230}{\@memberb}%==2 (southeast substituent)
\end{picture}}%
\def\NWBOND{%
\yl@xdiff=1
\yl@ydiff=-10
\begin{picture}(100,300)(0,0)
  \if\@tmpb D\relax%
    \put(-48,33){\line(-3,5){72}}%
    \put(-26,47){\line(-3,5){72}}%northwest double bond
  \else\if\@tmpb T\relax%
    \put(-52,31){\line(-3,5){72}}%
    \put(-37,40){\line(-3,5){72}}%
    \put(-22,49){\line(-3,5){72}}%northwest triple bond
  \else\if\@tmpb A%(A) alpha
    {\thicklines\put(-40,47){\line(-3,5){72}}}% single bond (alpha)
  \else\if\@tmpb B%(B) beta
       \@ifundefined{dottedline}{\put(-47,40){\line(-3,5){72}}}%
         {{\thicklines \dottedline{20}(-47,40)(-120,161)}}%
  \else\if\@tmpb S%
       \put(-47,40){\line(-3,5){72}}%
  \else \put(-47,40){\line(-3,5){72}}%
  \fi\fi\fi\fi\fi%
  \putlatom{-120}{170}{\@memberb}%==2 (northwest substituent)
%%  \putlatom{-120}{170}{\@memberb}%==2 (northwest substituent)
\end{picture}}%
\def\SWBOND{%
\yl@xdiff=1
\yl@ydiff=70
\begin{picture}(100,300)(0,0)
  \if\@tmpb D\relax%
    \put(-48,-33){\line(-3,-5){72}}%
    \put(-26,-47){\line(-3,-5){72}}%southwest double bond
  \else\if\@tmpb T\relax%
    \put(-52,-31){\line(-3,-5){72}}%
    \put(-37,-40){\line(-3,-5){72}}%
    \put(-22,-49){\line(-3,-5){72}}%southwest triple bond
  \else\if\@tmpb A%(A) alpha
    {\thicklines\put(-47,-40){\line(-3,-5){72}}}% single bond (alpha)
  \else\if\@tmpb B%(B) beta
       \@ifundefined{dottedline}{\put(-47,-40){\line(-3,-5){72}}}%
         {{\thicklines \dottedline{20}(-47,-40)(-120,-161)}}%
  \else\if\@tmpb S%
       \put(-47,-40){\line(-3,-5){72}}%
  \else \put(-47,-40){\line(-3,-5){72}}%
  \fi\fi\fi\fi\fi%
  \putlatom{-120}{-230}{\@memberb}%==2 (southwest substituent)
\end{picture}}%
\def\tetrahedral{\@ifnextchar[{\@tetrahedral[r}{\@tetrahedral[r]}}
\def\@tetrahedral#1]#2{%
\@reset@ylsw%
\yltetrahedralposition{#2}%
\if@ylsw \ifx\@@ylii\empty
\def\@@ylii{0}\def\@@yli{0}\fi
\fi
\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{picture}(0,0)(-\yl@shiftii,-\yl@shifti)
 \reset@yl@xydiff%1999/1/6 by S. Fujita
\else
 \begin{picture}(600,600)(-300,-300)%
  \iforigpt \put(-300,-300){\circle*{50}}%
           \put(-\noshift,-\noshift){\circle{50}}%
   \typeout{command `tetrahedral' origin: %
    (\the\noshift,\the\noshift) ---> (300,300)}\fi%
\fi
\@tfor\member:=#1\do{%
   \expandafter\twoch@@r\member{}{}%
   \if\@@tmpa 0\relax {\putratom{47}{50}{\scriptsize\@@tmpb}}\fi}%
\@forsemicol\member:=#2\do{
\ifx\member\empty\else
\expandafter\@m@mb@r\member;\relax%
\expandafter\threech@r\@membera{}{}%
\ifx\@memberb\@yl\else
\ifcase\@tmpa
{\putlratom{-40}{-33}{\hbox to.72em{\hss\@memberb\hss}}}%central atom
\or\put(0,0){\Northbond}%
\or\put(0,0){\Westbond}%
\or\put(0,0){\Southbond}%
\or\put(0,0){\Eastbond}\fi%end of ifcase
\fi\fi}%
\end{picture}}%end of macro tetrahedral
\def\yltetrahedralposition#1{%
\@@ylswfalse%%%\@reset@ylsw
\@forsemicol\member:=#1\do{%
\if@@ylsw\else
\ifx\member\empty\else
\expandafter\@m@mb@r\member;\relax
\expandafter\threech@r\@membera{}{}\relax
\ifx\@memberb\@yl\relax\@@ylswtrue\else\@@ylswfalse\fi
\if@@ylsw
\ifcase\@tmpa
 \or \gdef\@ylii{0}\gdef\@yli{-52}\global\@ylswtrue%N subst. on 1
 \or \gdef\@ylii{52}\gdef\@yli{0}\global\@ylswtrue%W subst. on 1
 \or \gdef\@ylii{0}\gdef\@yli{52}\global\@ylswtrue%S subst. on 1
 \or \gdef\@ylii{-52}\gdef\@yli{0}\global\@ylswtrue%E subst. on 1
\fi%end of ifcase
\fi\fi\fi}}%

\def\divalenth#1#2{%
\@reset@ylsw%
\yldivalenthposition{#1}{#2}%
\if@ylsw \ifx\@@ylii\empty
\def\@@ylii{0}\def\@@yli{0}\fi
\fi
\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{picture}(0,0)(-\yl@shiftii,-\yl@shifti)
 \reset@yl@xydiff%1999/1/6 by S. Fujita
\else
 \begin{picture}(600,400)(-300,-200)%
  \iforigpt \put(-300,-200){\circle*{50}}%
           \put(-\noshift,-\noshift){\circle{50}}%
   \typeout{command `tetrahedral' origin: %
    (\the\noshift,\the\noshift) ---> (300,200)}\fi%
\fi
{\expandafter\@m@mb@r#1;\relax
   \putratom{-30}{-33}{\@memberb}}%
\@forsemicol\member:=#2\do{%
\ifx\member\empty\else
\expandafter\@m@mb@r\member;\relax%
\expandafter\threech@r\@membera{}{}%
\ifx\@memberb\@yl\else
\ifcase\@tmpa
\or\put(0,0){\Westbond}%
\or\put(\the\@tempcnta,0){\Eastbond}\fi%end of ifcase
\fi\fi}%
\end{picture}}%end of macro tetrahedral
\def\yldivalenthposition#1#2{%
{\expandafter\@m@mb@r#1;\relax
   \setbox0=\hbox{\@memberb}%
   \@tempcnta=\wd0
   \@tempcntb=\unitlength
   \divide\@tempcnta by\@tempcntb
   \global\advance\@tempcnta by-62%
   \@tempcntb=\@tempcnta \global\advance\@tempcntb by50\relax
   }%
\@@ylswfalse%
\@forsemicol\member:=#2\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
\ifcase\@tmpa
 \or \gdef\@ylii{50}\gdef\@yli{0}\global\@ylswtrue%W subst. on 1
 \or \edef\@ylii{-\the\@tempcntb}\gdef\@yli{0}\global\@ylswtrue%E subst. on 1
\fi%end of ifcase
\fi\fi\fi}}%
\def\rtrigonal{\@ifnextchar[{\@rtrigonal[r}{\@rtrigonal[r]}}
\def\@rtrigonal#1]#2{%
\@reset@ylsw%
\ylrtrigonalposition{#2}%
\if@ylsw \ifx\@@ylii\empty
\def\@@ylii{0}\def\@@yli{0}\fi
\fi
\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{picture}(0,0)(-\yl@shiftii,-\yl@shifti)
 \reset@yl@xydiff%1999/1/6 by S. Fujita
\else
\begin{picture}(600,600)(-300,-300)%
  \iforigpt \put(-300,-300){\circle*{50}}%
           \put(-\noshift,-\noshift){\circle{50}}%
   \typeout{command `rtrigonal' origin: %
    (\the\noshift,\the\noshift) ---> (300,300)}\fi%
\fi
\@tfor\member:=#1\do{%
   \expandafter\twoch@@r\member{}{}%
   \if\@@tmpa 0\relax {\putratom{-27}{50}{\scriptsize\@@tmpb}}\fi}%
\@forsemicol\member:=#2\do{%
\ifx\member\empty\else
\expandafter\@m@mb@r\member;\relax%
\expandafter\threech@r\@membera{}{}%
\ifx\@memberb\@yl\else
\ifcase\@tmpa {\putlratom{-40}{-33}{\@memberb}}%central atom
\or\put(0,0){\Westbond}%
\or\put(0,0){\SEbond}%
\or\put(0,0){\NEbond}%
\fi%end of ifcase
\fi\fi}%
\end{picture}}%end of macro rtrigonal
\def\ylrtrigonalposition#1{%
\@@ylswfalse%%%\@reset@ylsw
\@forsemicol\member:=#1\do{%
\if@@ylsw\else
\ifx\member\empty\else
\expandafter\@m@mb@r\member;\relax
\expandafter\threech@r\@membera{}{}\relax
\ifx\@memberb\@yl\relax\@@ylswtrue\else\@@ylswfalse\fi
\if@@ylsw
\ifcase\@tmpa
 \or \gdef\@ylii{52}\gdef\@yli{0}\global\@ylswtrue% W subst. on 1
 \or \gdef\@ylii{-40}\gdef\@yli{47}\global\@ylswtrue% SE subst. on 1
 \or \gdef\@ylii{-40}\gdef\@yli{-47}\global\@ylswtrue% NE subst. on 1
\fi%end of ifcase
\fi\fi\fi}}%
\def\Rtrigonal{\@ifnextchar[{\@Rtrigonal[r}{\@Rtrigonal[r]}}
\def\@Rtrigonal#1]#2{%
\@reset@ylsw%
\ylRtrigonalposition{#2}%
\if@ylsw \ifx\@@ylii\empty
\def\@@ylii{0}\def\@@yli{0}\fi
\fi
\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{picture}(0,0)(-\yl@shiftii,-\yl@shifti)
 \reset@yl@xydiff%1999/1/6 by S. Fujita
\else
\begin{picture}(600,600)(-300,-300)%
  \iforigpt \put(-300,-300){\circle*{50}}%
           \put(-\noshift,-\noshift){\circle{50}}%
   \typeout{command `Rtrigonal' origin: %
    (\the\noshift,\the\noshift) ---> (300,300)}\fi%
\fi
\@tfor\member:=#1\do{%
   \expandafter\twoch@@r\member{}{}%
   \if\@@tmpa 0\relax {\putratom{-27}{50}{\scriptsize\@@tmpb}}\fi}%
\@forsemicol\member:=#2\do{%
\ifx\member\empty\else
\expandafter\@m@mb@r\member;\relax%
\expandafter\threech@r\@membera{}{}%
\ifx\@memberb\@yl\else
\ifcase\@tmpa {\putlratom{-40}{-33}{\@memberb}}%central atom
\or\put(0,0){\Westbond}%
\or\put(0,0){\SEBOND}%
\or\put(0,0){\NEBOND}%
\fi%end of ifcase
\fi\fi}%
\end{picture}}%end of macro Rtrigonal
\def\ylRtrigonalposition#1{%
\@@ylswfalse%%%\@reset@ylsw
\@forsemicol\member:=#1\do{%
\if@@ylsw\else
\ifx\member\empty\else
\expandafter\@m@mb@r\member;\relax
\expandafter\threech@r\@membera{}{}\relax
\ifx\@memberb\@yl\relax\@@ylswtrue\else\@@ylswfalse\fi
\if@@ylsw
\ifcase\@tmpa
 \or \gdef\@ylii{52}\gdef\@yli{0}\global\@ylswtrue% W subst. on 1
 \or \gdef\@ylii{-47}\gdef\@yli{40}\global\@ylswtrue% SE subst. on 1
 \or \gdef\@ylii{-47}\gdef\@yli{-40}\global\@ylswtrue% NE subst. on 1
\fi%end of ifcase
\fi\fi\fi}}%
\def\ltrigonal{\@ifnextchar[{\@ltrigonal[r}{\@ltrigonal[r]}}
\def\@ltrigonal#1]#2{%
\@reset@ylsw%
\ylltrigonalposition{#2}%
\if@ylsw \ifx\@@ylii\empty
\def\@@ylii{0}\def\@@yli{0}\fi
\fi
\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{picture}(0,0)(-\yl@shiftii,-\yl@shifti)
 \reset@yl@xydiff%1999/1/6 by S. Fujita
\else
 \begin{picture}(600,600)(-300,-300)%
  \iforigpt \put(-300,-300){\circle*{50}}%
           \put(-\noshift,-\noshift){\circle{50}}%
   \typeout{command `ltrigonal' origin: %
    (\the\noshift,\the\noshift) ---> (300,300)}\fi%
\fi
\@tfor\member:=#1\do{%
   \expandafter\twoch@@r\member{}{}%
   \if\@@tmpa 0\relax {\putratom{-27}{50}{\scriptsize\@@tmpb}}\fi}%
\@forsemicol\member:=#2\do{%
\ifx\member\empty\else
\expandafter\@m@mb@r\member;\relax%
\expandafter\threech@r\@membera{}{}%
\ifx\@memberb\@yl\else
\ifcase\@tmpa
{\putlratom{-40}{-33}{\@memberb}}%central atom
\or\put(0,0){\Eastbond}%
\or\put(0,0){\NWbond}%
\or\put(0,0){\SWbond}%
\fi%end of ifcase
\fi\fi}%
\end{picture}}%end of macro ltrigonal
\def\ylltrigonalposition#1{%
\@@ylswfalse%%%\@reset@ylsw
\@forsemicol\member:=#1\do{%
\if@@ylsw\else
\ifx\member\empty\else
\expandafter\@m@mb@r\member;\relax
\expandafter\threech@r\@membera{}{}\relax
\ifx\@memberb\@yl\relax\@@ylswtrue\else\@@ylswfalse\fi
\if@@ylsw
\ifcase\@tmpa
 \or \gdef\@ylii{-52}\gdef\@yli{0}\global\@ylswtrue% W subst. on 1
 \or \gdef\@ylii{50}\gdef\@yli{-47}\global\@ylswtrue% NW subst. on 1
 \or \gdef\@ylii{50}\gdef\@yli{47}\global\@ylswtrue% SW subst. on 1
\fi%end of ifcase
\fi\fi\fi}}%
\def\Ltrigonal{\@ifnextchar[{\@Ltrigonal[r}{\@Ltrigonal[r]}}
\def\@Ltrigonal#1]#2{%
\@reset@ylsw%
\ylLtrigonalposition{#2}%
\if@ylsw \ifx\@@ylii\empty
\def\@@ylii{0}\def\@@yli{0}\fi
\fi
\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{picture}(0,0)(-\yl@shiftii,-\yl@shifti)
 \reset@yl@xydiff%1999/1/6 by S. Fujita
\else
 \begin{picture}(600,600)(-300,-300)%
  \iforigpt \put(-300,-300){\circle*{50}}%
           \put(-\noshift,-\noshift){\circle{50}}%
   \typeout{command `Ltrigonal' origin: %
    (\the\noshift,\the\noshift) ---> (300,300)}\fi%
\fi
\@tfor\member:=#1\do{%
   \expandafter\twoch@@r\member{}{}%
   \if\@@tmpa 0\relax {\putratom{-27}{50}{\scriptsize\@@tmpb}}\fi}%
\@forsemicol\member:=#2\do{%
\ifx\member\empty\else
\expandafter\@m@mb@r\member;\relax%
\expandafter\threech@r\@membera{}{}%
\ifx\@memberb\@yl\else
\ifcase\@tmpa
{\putlratom{-40}{-33}{\@memberb}}%central atom
\or\put(0,0){\Eastbond}%
\or\put(0,0){\NWBOND}%
\or\put(0,0){\SWBOND}%
\fi%end of ifcase
\fi\fi}%
\end{picture}}%end of macro Ltrigonal
\def\ylLtrigonalposition#1{%
\@@ylswfalse%%%\@reset@ylsw
\@forsemicol\member:=#1\do{%
\if@@ylsw\else
\ifx\member\empty\else
\expandafter\@m@mb@r\member;\relax
\expandafter\threech@r\@membera{}{}\relax
\ifx\@memberb\@yl\relax\@@ylswtrue\else\@@ylswfalse\fi
\if@@ylsw
\ifcase\@tmpa
 \or \gdef\@ylii{-52}\gdef\@yli{0}\global\@ylswtrue% W subst. on 1
 \or \gdef\@ylii{47}\gdef\@yli{-40}\global\@ylswtrue% NWB subst. on 1
 \or \gdef\@ylii{47}\gdef\@yli{40}\global\@ylswtrue% SWB subst. on 1
\fi%end of ifcase
\fi\fi\fi}}%
\def\utrigonal{\@ifnextchar[{\@utrigonal[r}{\@utrigonal[r]}}
\def\@utrigonal#1]#2{%
\@reset@ylsw%
\ylutrigonalposition{#2}%
\if@ylsw \ifx\@@ylii\empty
\def\@@ylii{0}\def\@@yli{0}\fi
\fi
\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{picture}(0,0)(-\yl@shiftii,-\yl@shifti)
 \reset@yl@xydiff%1999/1/6 by S. Fujita
\else
 \begin{picture}(600,600)(-300,-300)%
  \iforigpt \put(-300,-300){\circle*{50}}%
           \put(-\noshift,-\noshift){\circle{50}}%
   \typeout{command `utrigonal' origin: %
    (\the\noshift,\the\noshift) ---> (300,300)}\fi%
\fi
\@tfor\member:=#1\do{%
   \expandafter\twoch@@r\member{}{}%
   \if\@@tmpa 0\relax {\putratom{-27}{50}{\scriptsize\@@tmpb}}\fi}%
\@forsemicol\member:=#2\do{%
\ifx\member\empty\else
\expandafter\@m@mb@r\member;\relax%
\expandafter\threech@r\@membera{}{}%
\ifx\@memberb\@yl\else
\ifcase\@tmpa
{\putlratom{-40}{-33}{\@memberb}}%central atom
\or\put(0,0){\Southbond}%
\or\put(0,0){\NEbond}%
\or\put(0,0){\NWbond}%
\fi%end of ifcase
\fi\fi}%
\end{picture}}%end of macro utrigonal
\def\ylutrigonalposition#1{%
\@@ylswfalse%%%\@reset@ylsw
\@forsemicol\member:=#1\do{%
\if@@ylsw\else
\ifx\member\empty\else
\expandafter\@m@mb@r\member;\relax
\expandafter\threech@r\@membera{}{}\relax
\ifx\@memberb\@yl\relax\@@ylswtrue\else\@@ylswfalse\fi
\if@@ylsw
\ifcase\@tmpa
 \or \gdef\@ylii{0}\gdef\@yli{52}\global\@ylswtrue%S subst. on 1
 \or \gdef\@ylii{-40}\gdef\@yli{-47}\global\@ylswtrue% NE subst. on 1
 \or \gdef\@ylii{50}\gdef\@yli{-47}\global\@ylswtrue% NW subst. on 1
\fi%end of ifcase
\fi\fi\fi}}%
\def\Utrigonal{\@ifnextchar[{\@Utrigonal[r}{\@Utrigonal[r]}}
\def\@Utrigonal#1]#2{%
\@reset@ylsw%
\ylUtrigonalposition{#2}%
\if@ylsw \ifx\@@ylii\empty
\def\@@ylii{0}\def\@@yli{0}\fi
\fi
\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{picture}(0,0)(-\yl@shiftii,-\yl@shifti)
 \reset@yl@xydiff%1999/1/6 by S. Fujita
\else
 \begin{picture}(600,600)(-300,-300)%
  \iforigpt \put(-300,-300){\circle*{50}}%
           \put(-\noshift,-\noshift){\circle{50}}%
   \typeout{command `Utrigonal' origin: %
    (\the\noshift,\the\noshift) ---> (300,300)}\fi%
\fi
\@tfor\member:=#1\do{%
   \expandafter\twoch@@r\member{}{}%
   \if\@@tmpa 0\relax {\putratom{-27}{50}{\scriptsize\@@tmpb}}\fi}%
\@forsemicol\member:=#2\do{%
\ifx\member\empty\else
\expandafter\@m@mb@r\member;\relax%
\expandafter\threech@r\@membera{}{}%
\ifx\@memberb\@yl\else
\ifcase\@tmpa
{\putlratom{-40}{-33}{\@memberb}}%central atom
\or\put(0,0){\Southbond}%
\or\put(0,0){\NEBond}%
\or\put(0,0){\NWBond}%
\fi%end of ifcase
\fi\fi}%
\end{picture}}%end of macro Utrigonal
\def\ylUtrigonalposition#1{%
\@@ylswfalse%%%\@reset@ylsw
\@forsemicol\member:=#1\do{%
\if@@ylsw\else
\ifx\member\empty\else
\expandafter\@m@mb@r\member;\relax
\expandafter\threech@r\@membera{}{}\relax
\ifx\@memberb\@yl\relax\@@ylswtrue\else\@@ylswfalse\fi
\if@@ylsw
\ifcase\@tmpa
 \or \gdef\@ylii{0}\gdef\@yli{52}\global\@ylswtrue%S subst. on 1
 \or \gdef\@ylii{-40}\gdef\@yli{-47}\global\@ylswtrue% NEB subst. on 1
 \or \gdef\@ylii{66}\gdef\@yli{-47}\global\@ylswtrue% NWB subst. on 1
\fi%end of ifcase
\fi\fi\fi}}%
\def\dtrigonal{\@ifnextchar[{\@dtrigonal[r}{\@dtrigonal[r]}}
\def\@dtrigonal#1]#2{%
\@reset@ylsw%
\yldtrigonalposition{#2}%
\if@ylsw \ifx\@@ylii\empty
\def\@@ylii{0}\def\@@yli{0}\fi
\fi
\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{picture}(0,0)(-\yl@shiftii,-\yl@shifti)
 \reset@yl@xydiff%1999/1/6 by S. Fujita
\else
 \begin{picture}(600,600)(-300,-300)
  \iforigpt \put(-300,-300){\circle*{50}}%
           \put(-\noshift,-\noshift){\circle{50}}%
   \typeout{command `dtrigonal' origin: %
    (\the\noshift,\the\noshift) ---> (300,300)}\fi%
\fi
\@tfor\member:=#1\do{%
   \expandafter\twoch@@r\member{}{}%
   \if\@@tmpa 0\relax {\putratom{37}{50}{\scriptsize\@@tmpb}}\fi}%
\@forsemicol\member:=#2\do{%
\ifx\member\empty\else
\expandafter\@m@mb@r\member;\relax%
\expandafter\threech@r\@membera{}{}%
\ifx\@memberb\@yl\else
\ifcase\@tmpa
{\putlratom{-40}{-33}{\@memberb}}%central atom
\or\put(0,0){\Northbond}%
\or\put(0,0){\SEbond}%
\or\put(0,0){\SWbond}%
\fi%end of ifcase
\fi\fi}%
\end{picture}}%end of macro dtrigonal
\def\yldtrigonalposition#1{%
\@@ylswfalse%%%\@reset@ylsw
\@forsemicol\member:=#1\do{%
\if@@ylsw\else
\ifx\member\empty\else
\expandafter\@m@mb@r\member;\relax
\expandafter\threech@r\@membera{}{}\relax
\ifx\@memberb\@yl\relax\@@ylswtrue\else\@@ylswfalse\fi
\if@@ylsw
\ifcase\@tmpa
 \or \gdef\@ylii{0}\gdef\@yli{-52}\global\@ylswtrue%N subst. on 1
 \or \gdef\@ylii{-40}\gdef\@yli{47}\global\@ylswtrue% SE subst. on 1
 \or \gdef\@ylii{50}\gdef\@yli{47}\global\@ylswtrue% SW subst. on 1
\fi%end of ifcase
\fi\fi\fi}}%
\def\Dtrigonal{\@ifnextchar[{\@Dtrigonal[r}{\@Dtrigonal[r]}}
\def\@Dtrigonal#1]#2{%
\@reset@ylsw%
\ylDtrigonalposition{#2}%
\if@ylsw \ifx\@@ylii\empty
\def\@@ylii{0}\def\@@yli{0}\fi
\fi
\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{picture}(0,0)(-\yl@shiftii,-\yl@shifti)
 \reset@yl@xydiff%1999/1/6 by S. Fujita
\else
 \begin{picture}(600,600)(-300,-300)
  \iforigpt \put(-300,-300){\circle*{50}}%
           \put(-\noshift,-\noshift){\circle{50}}%
   \typeout{command `Dtrigonal' origin: %
    (\the\noshift,\the\noshift) ---> (300,300)}\fi%
\fi
\@tfor\member:=#1\do{%
   \expandafter\twoch@@r\member{}{}%
   \if\@@tmpa 0\relax {\putratom{37}{50}{\scriptsize\@@tmpb}}\fi}%
\@forsemicol\member:=#2\do{%
\ifx\member\empty\else
\expandafter\@m@mb@r\member;\relax%
\expandafter\threech@r\@membera{}{}%
\ifx\@memberb\@yl\else
\ifcase\@tmpa
{\putlratom{-40}{-33}{\@memberb}}%central atom
\or\put(0,0){\Northbond}%
\or\put(0,0){\SEBond}%
\or\put(0,0){\SWBond}%
\fi%end of ifcase
\fi\fi}%
\end{picture}}%end of macro Dtrigonal
\def\ylDtrigonalposition#1{%
\@@ylswfalse%%%\@reset@ylsw
\@forsemicol\member:=#1\do{%
\if@@ylsw\else
\ifx\member\empty\else
\expandafter\@m@mb@r\member;\relax
\expandafter\threech@r\@membera{}{}\relax
\ifx\@memberb\@yl\relax\@@ylswtrue\else\@@ylswfalse\fi
\if@@ylsw
\ifcase\@tmpa
 \or \gdef\@ylii{0}\gdef\@yli{-52}\global\@ylswtrue%N subst. on 1
 \or \gdef\@ylii{-40}\gdef\@yli{47}\global\@ylswtrue% SEB subst. on 1
 \or \gdef\@ylii{66}\gdef\@yli{47}\global\@ylswtrue% SWB subst. on 1
\fi%end of ifcase
\fi\fi\fi}}%
\def\ethylene{\@ifnextchar[{\@ethylene}{\@ethylene[]}}
\def\@ethylene[#1]#2#3{%
\@reset@ylsw%
\ylethylenepositiona{#3}%
\if@ylsw \ifx\@@ylii\empty
\def\@@ylii{0}\def\@@yli{0}\fi
\else
\ylethylenepositionb{#3}%
\fi
\if@ylsw \ifx\@@ylii\empty
\def\@@ylii{-230}\def\@@yli{0}\fi
\fi
\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{picture}(0,0)(-\yl@shiftii,-\yl@shifti)
 \reset@yl@xydiff%1999/1/6 by S. Fujita
\else
\begin{picture}(800,600)(-300,-300)
  \iforigpt \put(-300,-300){\circle*{50}}%
           \put(-\noshift,-\noshift){\circle{50}}%
   \typeout{command `ethylene' origin: %
    (\the\noshift,\the\noshift) ---> (300,300)}\fi%
\fi
{\def\aaa{#1}\ifx\aaa\empty%
 \multiput(42,-13)(0,25){2}{\line(1,0){140}}\fi% double bond
}%
\@tfor\member:=#1\do{%
 \expandafter\twoch@@r\member{}{}%
   \if\@@tmpa 1\relax {\putratom{-27}{60}{\scriptsize\@@tmpb}}%
   \else\if\@@tmpa 2\relax {\putratom{203}{60}{\scriptsize\@@tmpb}}%
   \else\if\@@tmpa d\relax%
       {\multiput(42,-13)(0,25){2}{\line(1,0){140}}}% double bond
   \else\if\@@tmpa t\relax%
     {\multiput(42,-20)(0,20){3}{\line(1,0){140}}}% triple bond right
   \fi\fi\fi\fi}%
{\def\aaa{#2}%
\ifx\aaa\empty%
\putratom{-40}{-33}{C}%central atom
\putratom{190}{-33}{C}%central atom
\else%
\@forsemicol\member:=#2\do{%
\ifx\member\empty\else
\expandafter\@m@mb@r\member;\relax%
\expandafter\threech@r\@membera{}{}%
\ifcase\@tmpa%
\or\putratom{-40}{-33}{\@memberb}%central atom
\or\putratom{190}{-33}{\@memberb}%central atom
\fi\fi}%end of ifcase
\fi%
}%
\@forsemicol\member:=#3\do{%
\ifx\member\empty\else
\expandafter\@m@mb@r\member;\relax%
\expandafter\threech@r\@membera{}{}%
\ifx\@memberb\@yl\else
\ifcase\@tmpa%
\or\put(0,0){\NWbond}%
\or\put(0,0){\SWbond}%
\or\put(230,0){\SEbond}%
\or\put(230,0){\NEbond}%
\fi%end of ifcase
\fi\fi}%
\end{picture}}%end of macro ethylene
\let\ethyleneh=\ethylene
\def\ylethylenepositiona#1{%
\@@ylswfalse%%%\@reset@ylsw
\@forsemicol\member:=#1\do{%
\if@@ylsw\else
\ifx\member\empty\else
\expandafter\@m@mb@r\member;\relax
\expandafter\threech@r\@membera{}{}\relax
\ifx\@memberb\@yl\relax\@@ylswtrue\else\@@ylswfalse\fi
\if@@ylsw
\ifcase\@tmpa
 \or \gdef\@ylii{50}\gdef\@yli{-47}\global\@ylswtrue% NW subst. on 1
 \or \gdef\@ylii{50}\gdef\@yli{47}\global\@ylswtrue% SW subst. on 1
\fi%end of ifcase
\fi\fi\fi}}%
\def\ylethylenepositionb#1{%
\@@ylswfalse%%%\@reset@ylsw
\@forsemicol\member:=#1\do{%
\if@@ylsw\else
\ifx\member\empty\else
\expandafter\@m@mb@r\member;\relax
\expandafter\threech@r\@membera{}{}\relax
\ifx\@memberb\@yl\relax\@@ylswtrue\else\@@ylswfalse\fi
\if@@ylsw
\ifcase\@tmpa
 \or%omit
 \or%omit
 \or \gdef\@ylii{-40}\gdef\@yli{47}\global\@ylswtrue% SE subst. on 1
 \or \gdef\@ylii{-40}\gdef\@yli{-47}\global\@ylswtrue% NE subst. on 1
\fi%end of ifcase
\fi\fi\fi}}%
\def\Ethylene{\@ifnextchar[{\@ethylene}{\@ethylene[]}}
\def\@ethylene[#1]#2#3{%
\@reset@ylsw%
\ylethylenepositiona{#3}%
\if@ylsw \ifx\@@ylii\empty
\def\@@ylii{0}\def\@@yli{0}\fi
\else
\ylethylenepositionb{#3}%
\fi
\if@ylsw \ifx\@@ylii\empty
\def\@@ylii{-230}\def\@@yli{0}\fi
\fi
\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{picture}(0,0)(-\yl@shiftii,-\yl@shifti)
 \reset@yl@xydiff%1999/1/6 by S. Fujita
\else
\begin{picture}(800,600)(-300,-300)
  \iforigpt \put(-300,-300){\circle*{50}}%
           \put(-\noshift,-\noshift){\circle{50}}%
   \typeout{command `ethylene' origin: %
    (\the\noshift,\the\noshift) ---> (300,300)}\fi%
\fi
{\def\aaa{#1}\ifx\aaa\empty%
 \multiput(42,-13)(0,25){2}{\line(1,0){140}}\fi% double bond
}%
\@tfor\member:=#1\do{%
 \expandafter\twoch@@r\member{}{}%
   \if\@@tmpa 1\relax {\putratom{-27}{60}{\scriptsize\@@tmpb}}%
   \else\if\@@tmpa 2\relax {\putratom{203}{60}{\scriptsize\@@tmpb}}%
   \else\if\@@tmpa d\relax%
       {\multiput(42,-13)(0,25){2}{\line(1,0){140}}}% double bond
   \else\if\@@tmpa t\relax%
     {\multiput(42,-20)(0,20){3}{\line(1,0){140}}}% triple bond right
   \fi\fi\fi\fi}%
{\def\aaa{#2}%
\ifx\aaa\empty%
\putratom{-40}{-33}{C}%central atom
\putratom{190}{-33}{C}%central atom
\else%
\@forsemicol\member:=#2\do{%
\ifx\member\empty\else
\expandafter\@m@mb@r\member;\relax%
\expandafter\threech@r\@membera{}{}%
\ifcase\@tmpa%
\or\putratom{-40}{-33}{\@memberb}%central atom
\or\putratom{190}{-33}{\@memberb}%central atom
\fi\fi}%end of ifcase
\fi%
}%
\@forsemicol\member:=#3\do{%
\ifx\member\empty\else
\expandafter\@m@mb@r\member;\relax%
\expandafter\threech@r\@membera{}{}%
\ifx\@memberb\@yl\else
\ifcase\@tmpa%
\or\put(0,0){\NWBOND}%
\or\put(0,0){\SWBOND}%
\or\put(230,0){\SEBOND}%
\or\put(230,0){\NEBOND}%
\fi%end of ifcase
\fi\fi}%
\end{picture}}%end of macro Ethylene
\let\Ethyleneh=\Ethylene
\def\ethylenev{\@ifnextchar[{\@ethylenev}{\@ethylenev[]}}
\def\@ethylenev[#1]#2#3{%
\@reset@ylsw%
\ylethylenevpositiona{#3}%
\if@ylsw \ifx\@@ylii\empty
\def\@@ylii{0}\def\@@yli{0}\fi
\else
\ylethylenevpositionb{#3}%
\fi
\if@ylsw \ifx\@@ylii\empty
\def\@@ylii{0}\def\@@yli{-230}\fi
\fi
\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{picture}(0,0)(-\yl@shiftii,-\yl@shifti)
 \reset@yl@xydiff%1999/1/6 by S. Fujita
\else
\begin{picture}(600,800)(-300,-300)
  \iforigpt \put(-300,-300){\circle*{50}}%
           \put(-\noshift,-\noshift){\circle{50}}%
   \typeout{command `ethylenev' origin: %
    (\the\noshift,\the\noshift) ---> (300,300)}\fi%
\fi
\def\aaa{#1}\ifx\aaa\empty%
    \put(-20,47){\line(0,1){140}}% vertical
    \put(6,47){\line(0,1){140}}\fi%  double bond
\@tfor\member:=#1\do{%
 \expandafter\twoch@@r\member{}{}%
   \if\@@tmpa 1\relax \putratom{37}{0}{\scriptsize\@@tmpb}
   \else\if\@@tmpa 2\relax \putratom{37}{216}{\scriptsize\@@tmpb}
   \else\if\@@tmpa d\relax%
      \put(-13,47){\line(0,1){140}}% vertical
      \put(13,47){\line(0,1){140}}%  double bond
   \else\if\@@tmpa t\relax%
      \put(-20,47){\line(0,1){140}}% vertical
      \put(-0,47){\line(0,1){140}}%   triple bond
      \put(20,47){\line(0,1){140}}%
   \fi\fi\fi\fi}%
\def\aaa{#2}%
\ifx\aaa\empty%
\putratom{-40}{-33}{C}%central atom
\putratom{-40}{197}{C}%central atom
\else%
\@forsemicol\member:=#2\do{%
\ifx\member\empty\else
\expandafter\@m@mb@r\member;\relax%
\expandafter\threech@r\@membera{}{}%
\ifcase\@tmpa%
\or\putratom{-40}{-33}{\@memberb}%central atom
\or\putratom{-40}{197}{\@memberb}%central atom
\fi\fi}%end of ifcase
\fi%
\@forsemicol\member:=#3\do{%
\ifx\member\empty\else
\expandafter\@m@mb@r\member;\relax%
\expandafter\threech@r\@membera{}{}%
\ifx\@memberb\@yl\else
\ifcase\@tmpa%
\or\put(0,0){\SWbond}%
\or\put(0,0){\SEbond}%
\or\put(0,230){\NEbond}%
\or\put(0,230){\NWbond}%
\fi%end of ifcase
\fi\fi}%
\end{picture}}%end of macro ethylenev
\def\ylethylenevpositiona#1{%
\@@ylswfalse%%%\@reset@ylsw
\@forsemicol\member:=#1\do{%
\if@@ylsw\else
\ifx\member\empty\else
\expandafter\@m@mb@r\member;\relax
\expandafter\threech@r\@membera{}{}\relax
\ifx\@memberb\@yl\relax\@@ylswtrue\else\@@ylswfalse\fi
\if@@ylsw
\ifcase\@tmpa
 \or \gdef\@ylii{50}\gdef\@yli{47}\global\@ylswtrue% SW subst. on 1
 \or \gdef\@ylii{-40}\gdef\@yli{47}\global\@ylswtrue% SE subst. on 1
\fi%end of ifcase
\fi\fi\fi}}%
\def\ylethylenevpositionb#1{%
\@@ylswfalse%%%\@reset@ylsw
\@forsemicol\member:=#1\do{%
\if@@ylsw\else
\ifx\member\empty\else
\expandafter\@m@mb@r\member;\relax
\expandafter\threech@r\@membera{}{}\relax
\ifx\@memberb\@yl\relax\@@ylswtrue\else\@@ylswfalse\fi
\if@@ylsw
\ifcase\@tmpa
 \or%omit
 \or%omit
 \or \gdef\@ylii{-40}\gdef\@yli{-47}\global\@ylswtrue% NE subst. on 1
 \or \gdef\@ylii{50}\gdef\@yli{-47}\global\@ylswtrue% NW subst. on 1
\fi%end of ifcase
\fi\fi\fi}}%
\def\Ethylenev{\@ifnextchar[{\@Ethylenev}{\@Ethylenev[]}}
\def\@Ethylenev[#1]#2#3{%
\@reset@ylsw%
\ylethylenevpositiona{#3}%
\if@ylsw \ifx\@@ylii\empty
\def\@@ylii{0}\def\@@yli{0}\fi
\else
\ylethylenevpositionb{#3}%
\fi
\if@ylsw \ifx\@@ylii\empty
\def\@@ylii{0}\def\@@yli{-230}\fi
\fi
\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{picture}(0,0)(-\yl@shiftii,-\yl@shifti)
 \reset@yl@xydiff%1999/1/6 by S. Fujita
\else
\begin{picture}(600,800)(-300,-300)
  \iforigpt \put(-300,-300){\circle*{50}}%
           \put(-\noshift,-\noshift){\circle{50}}%
   \typeout{command `Ethylenev' origin: %
    (\the\noshift,\the\noshift) ---> (300,300)}\fi%
\fi
\def\aaa{#1}\ifx\aaa\empty%
    \put(-20,47){\line(0,1){140}}% vertical
    \put(6,47){\line(0,1){140}}\fi%  double bond
\@tfor\member:=#1\do{%
 \expandafter\twoch@@r\member{}{}%
   \if\@@tmpa 1\relax \putratom{37}{0}{\scriptsize\@@tmpb}
   \else\if\@@tmpa 2\relax \putratom{37}{216}{\scriptsize\@@tmpb}
   \else\if\@@tmpa d\relax%
      \put(-13,47){\line(0,1){140}}% vertical
      \put(13,47){\line(0,1){140}}%   double bond
   \else\if\@@tmpa t\relax%
      \put(-20,47){\line(0,1){140}}% vertical
      \put(-0,47){\line(0,1){140}}%   triple bond
      \put(20,47){\line(0,1){140}}%
   \fi\fi\fi\fi}%
\def\aaa{#2}%
\ifx\aaa\empty%
\putratom{-40}{-33}{C}%central atom
\putratom{-40}{197}{C}%central atom
\else%
\@forsemicol\member:=#2\do{%
\ifx\member\empty\else
\expandafter\@m@mb@r\member;\relax%
\expandafter\threech@r\@membera{}{}%
\ifcase\@tmpa%
\or\putratom{-40}{-33}{\@memberb}%central atom
\or\putratom{-40}{197}{\@memberb}%central atom
\fi\fi}%end of ifcase
\fi%
\@forsemicol\member:=#3\do{%
\ifx\member\empty\else
\expandafter\@m@mb@r\member;\relax%
\expandafter\threech@r\@membera{}{}%
\ifx\@memberb\@yl\else
\ifcase\@tmpa%
\or\put(0,0){\SWBond}%
\or\put(0,0){\SEBond}%
\or\put(0,230){\NEBond}%
\or\put(0,230){\NWBond}%
\fi%end of ifcase
\fi\fi}%
\end{picture}}%end of macro Ethylenev
\def\square{\@ifnextchar[{\@square[r}{\@square[r]}}
\def\@square#1]#2{%
\@reset@ylsw%
\ylsquareposition{#2}%
\if@ylsw \ifx\@@ylii\empty
\def\@@ylii{0}\def\@@yli{0}\fi
\fi
\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{picture}(0,0)(-\yl@shiftii,-\yl@shifti)
 \reset@yl@xydiff%1999/1/6 by S. Fujita
\else
 \begin{picture}(600,600)(-300,-300)
  \iforigpt \put(-300,-300){\circle*{50}}%
           \put(-\noshift,-\noshift){\circle{50}}%
   \typeout{command `square' origin: %
    (\the\noshift,\the\noshift) ---> (300,300)}\fi%
\fi
\@tfor\member:=#1\do{%
   \expandafter\twoch@@r\member{}{}%
   \if\@@tmpa 0\relax {\putratom{37}{0}{\scriptsize\@@tmpb}}\fi}%
\@forsemicol\member:=#2\do{%
\ifx\member\empty\else
\expandafter\@m@mb@r\member;\relax%
\expandafter\threech@r\@membera{}{}%
\ifx\@memberb\@yl\else
\ifcase\@tmpa {\putlratom{-40}{-33}{\@memberb}}%central atom
\or\put(0,0){\NEbond}%
\or\put(0,0){\SEbond}%
\or\put(0,0){\SWbond}%
\or\put(0,0){\NWbond}%
\fi%end of ifcase
\fi\fi}%
\end{picture}}%end of macro square
\def\ylsquareposition#1{%
\@@ylswfalse%%%\@reset@ylsw
\@forsemicol\member:=#1\do{%
\if@@ylsw\else
\ifx\member\empty\else
\expandafter\@m@mb@r\member;\relax
\expandafter\threech@r\@membera{}{}\relax
\ifx\@memberb\@yl\relax\@@ylswtrue\else\@@ylswfalse\fi
\if@@ylsw
\ifcase\@tmpa
 \or \gdef\@ylii{-40}\gdef\@yli{-47}\global\@ylswtrue% NE subst. on 1
 \or \gdef\@ylii{-40}\gdef\@yli{47}\global\@ylswtrue% SE subst. on 1
 \or \gdef\@ylii{50}\gdef\@yli{47}\global\@ylswtrue% SW subst. on 1
 \or \gdef\@ylii{50}\gdef\@yli{-47}\global\@ylswtrue% NW subst. on 1
\fi%end of ifcase
\fi\fi\fi}}%
\def\tetrastereo{\@ifnextchar[{\@tetrastereo[r}{\@tetrastereo[r]}}
\def\@tetrastereo#1]#2{%
\begin{picture}(600,600)(-300,-300)
  \iforigpt \put(-300,-300){\circle*{50}}%
           \put(-\noshift,-\noshift){\circle{50}}%
   \typeout{command `tetrastero' origin: %
    (\the\noshift,\the\noshift) ---> (300,300)}\fi%
\put(0,0){\circle{200}}%
\@tfor\member:=#1\do{%
   \expandafter\twoch@@r\member{}{}%
   \if\@@tmpa 0\relax \putratom{87}{90}{\scriptsize\@@tmpb}\fi}%
\@forsemicol\member:=#2\do{%
\ifx\member\empty\else
\expandafter\@m@mb@r\member;\relax%
\expandafter\threech@r\@membera{}{}%
\ifcase\@tmpa \putlratom{-40}{-33}{\@memberb}%central atom
\or%
   \put(0,100){\line(0,1){70}}% behind
   \putlratom{-30}{180}{\@memberb}%   and up
\or%
  {\thicklines%
   \put(-60,10){\line(-5,2){140}}%   in front
   \putlatom{-205}{30}{\@memberb}}%  and left
\or%
   \put(0,-100){\line(0,-1){90}}%     behind and
   \putlratom{-30}{-260}{\@memberb}% down
\or%
  {\thicklines%
   \put(60,10){\line(5,2){140}}%     in front
   \putratom{210}{30}{\@memberb}}%   and right
\fi\fi}%end of ifcase
\end{picture}}%end of macro tetrastereo
\def\dtetrastereo{\@ifnextchar[{\@dtetrastereo[r}{\@dtetrastereo[r]}}
\def\@dtetrastereo#1]#2{%
\begin{picture}(600,600)(-300,-300)
  \iforigpt \put(-300,-300){\circle*{50}}%
           \put(-\noshift,-\noshift){\circle{50}}%
   \typeout{command `dtetrastero' origin: %
    (\the\noshift,\the\noshift) ---> (300,300)}\fi%
\put(0,0){\circle{200}}%
\@tfor\member:=#1\do{%
   \expandafter\twoch@@r\member{}{}%
   \if\@@tmpa 0\relax \putratom{87}{90}{\scriptsize\@@tmpb}\fi}%
\@forsemicol\member:=#2\do{%
\ifx\member\empty\else
\expandafter\@m@mb@r\member;\relax%
\expandafter\threech@r\@membera{}{}%
\ifcase\@tmpa \putlratom{-40}{-33}{\@memberb}%central atom
\or%
   \put(0,100){\line(0,1){70}}% behind
   \putlratom{-30}{180}{\@memberb}%   and up
\or%
   \put(-94,-10){\line(-5,-2){108}}%   in back
   \putlatom{-205}{-110}{\@memberb}%  and left
\or%
  {\thicklines%
   \put(0,-50){\line(0,-1){150}}%     behind and
   \putlratom{-30}{-260}{\@memberb}}% down
\or%
   \put(94,-10){\line(5,-2){108}}%     in back
   \putratom{210}{-110}{\@memberb}%   and right
\fi\fi}%end of ifcase
\end{picture}}%end of macro dtetrastereo
\def\ethanestereo{\@ifnextchar[{\@ethanestereo}{\@ethanestereo[]}}
\def\@ethanestereo[#1]#2#3{%
\begin{picture}(600,800)(-300,-300)
  \iforigpt \put(-300,-300){\circle*{50}}%
           \put(-\noshift,-\noshift){\circle{50}}%
   \typeout{command `ethanestereo' origin: %
    (\the\noshift,\the\noshift) ---> (300,300)}\fi%
\put(0,0){\circle{200}}%
\put(0,270){\circle{200}}%
\put(0,100){\line(0,1){70}}% central bond
\@tfor\member:=#1\do{%
 \expandafter\twoch@@r\member{}{}%
   \if\@@tmpa 1\relax \putratom{87}{90}{\scriptsize\@@tmpb}
   \else\if\@@tmpa 2\relax \putratom{87}{360}{\scriptsize\@@tmpb}
   \fi\fi}%
\def\aaa{#2}%
\ifx\aaa\empty\else%
\@forsemicol\member:=#2\do{%
\ifx\member\empty\else
\expandafter\@m@mb@r\member;\relax%
\expandafter\threech@r\@membera{}{}%
\ifcase\@tmpa%
\or\putratom{-40}{-33}{\@memberb}%central atom
\or\putratom{-40}{237}{\@memberb}%central atom
\fi\fi}%end of ifcase
\fi%
\@forsemicol\member:=#3\do{%
\ifx\member\empty\else
\expandafter\@m@mb@r\member;\relax%
\expandafter\threech@r\@membera{}{}%
\ifcase\@tmpa \putlratom{-40}{-33}{\@memberb}%central atom
\or%
   \put(-94,-10){\line(-5,-2){108}}%   in back
   \putlatom{-205}{-110}{\@memberb}%  and left
\or%
  {\thicklines%
   \put(0,-50){\line(0,-1){150}}%     behind and
   \putlratom{-30}{-260}{\@memberb}}% down
\or%
   \put(94,-10){\line(5,-2){108}}%     in back
   \putratom{210}{-110}{\@memberb}%   and right
\or%
  {\thicklines%
   \put(60,280){\line(5,2){140}}%     in front
   \putratom{210}{300}{\@memberb}}%   and right
\or%
   \put(0,370){\line(0,1){70}}% behind
   \putlratom{-30}{450}{\@memberb}%   and up
\or%
  {\thicklines%
   \put(-60,280){\line(-5,2){140}}%   in front
   \putlatom{-205}{300}{\@memberb}}%  and left
\fi\fi}%end of ifcase
\end{picture}}%end of macro ethanestereo
\endinput
%%
%% End of file `aliphat.sty'.
