summaryrefslogtreecommitdiff
path: root/Master/texmf-dist/tex/latex/xymtex/aliphat.sty
diff options
context:
space:
mode:
Diffstat (limited to 'Master/texmf-dist/tex/latex/xymtex/aliphat.sty')
-rw-r--r--Master/texmf-dist/tex/latex/xymtex/aliphat.sty1464
1 files changed, 0 insertions, 1464 deletions
diff --git a/Master/texmf-dist/tex/latex/xymtex/aliphat.sty b/Master/texmf-dist/tex/latex/xymtex/aliphat.sty
deleted file mode 100644
index 7ba5a100403..00000000000
--- a/Master/texmf-dist/tex/latex/xymtex/aliphat.sty
+++ /dev/null
@@ -1,1464 +0,0 @@
-%%
-%% 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'.