summaryrefslogtreecommitdiff
path: root/Master/texmf-dist/tex/latex/xymtex/ccycle.sty
diff options
context:
space:
mode:
Diffstat (limited to 'Master/texmf-dist/tex/latex/xymtex/ccycle.sty')
-rw-r--r--Master/texmf-dist/tex/latex/xymtex/ccycle.sty1854
1 files changed, 0 insertions, 1854 deletions
diff --git a/Master/texmf-dist/tex/latex/xymtex/ccycle.sty b/Master/texmf-dist/tex/latex/xymtex/ccycle.sty
deleted file mode 100644
index a0ce11a5c5c..00000000000
--- a/Master/texmf-dist/tex/latex/xymtex/ccycle.sty
+++ /dev/null
@@ -1,1854 +0,0 @@
-%%
-%% This is file `ccycle.sty',
-%% generated with the docstrip utility.
-%%
-%% The original source files were:
-%%
-%% ccycle.dtx (with options: `ccycle')
-%%
-%% 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: ccycle.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{ccycle}
-\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\@chaira{%
- \if\@tmpb S%single bond
- \ifx\@tmpc\empty%
- \yl@xdiff=10
- \yl@ydiff=10
- \put(0,0){\line(-1,1){120}}% single bond at 1
- \putlatom{-130}{110}{\@memberb}% left type
- \else\if\@tmpc a%(a) axial
- \yl@xdiff=42
- \yl@ydiff=-12
- \put(0,0){\line(0,1){168}}% single bond at 1 axial
- \putlratom{-42}{180}{\@memberb}% left & right type
- \else\if\@tmpc e%(e) beta
- \yl@xdiff=16
- \yl@ydiff=44
- \put(0,0){\line(-5,-3){144}}% single bond at 1 equatorial
- \putlatom{-160}{-130}{\@memberb}% left type
- \fi\fi\fi%
- \else \if\@tmpb D%double bond
- \yl@xdiff=10
- \yl@ydiff=10
- \put(-10,-10){\line(-1,1){120}}% double bond at 1
- \put(10,10){\line(-1,1){120}}% double bond at 1
- \putlatom{-130}{110}{\@memberb}% left type
- \else%
- \yl@xdiff=10
- \yl@ydiff=10
- \put(0,0){\line(-1,1){120}}% single bond at 1
- \putlatom{-130}{110}{\@memberb}% left type
- \fi\fi}%
-\def\@chairb{%
- \if\@tmpb S%single bond
- \ifx\@tmpc\empty%
- \yl@xdiff=10
- \yl@ydiff=70
- \put(170,-226){\line(-1,-1){120}}% single bond at 2
- \putlatom{40}{-416}{\@memberb}% left type
- \else\if\@tmpc a%(a) axial
- \yl@xdiff=32
- \yl@ydiff=92
- \put(170,-226){\line(0,-1){168}}% single bond at 2 axial
- \putlratom{138}{-486}{\@memberb}% left & right type
- \else\if\@tmpc e%(e) beta
- \yl@xdiff=16
- \yl@ydiff=34
- \put(170,-226){\line(-5,3){144}}% single bond at 2 equatorial
- \putlatom{10}{-174}{\@memberb}% left type
- \fi\fi\fi%
- \else \if\@tmpb D%double bond
- \yl@xdiff=10
- \yl@ydiff=70
- \put(160,-216){\line(-1,-1){120}}% double bond at 2
- \put(180,-236){\line(-1,-1){120}}% double bond at 2
- \putlatom{40}{-416}{\@memberb}% left type
- \else%
- \yl@xdiff=10
- \yl@ydiff=70
- \put(170,-226){\line(-1,-1){120}}% single bond at 2
- \putlatom{40}{-416}{\@memberb}% left type
- \fi\fi}%
-\def\@chairc{%
- \if\@tmpb S%single bond
- \ifx\@tmpc\empty%
- \yl@xdiff=-10
- \yl@ydiff=24
- \put(573,-91){\line(5,4){170}}% single bond at 3
- \putratom{753}{21}{\@memberb}% right type
- \else\if\@tmpc a%(a) axial
- \yl@xdiff=40
- \yl@ydiff=-24
- \put(573,-91){\line(0,1){168}}% single bond at 3 axial
- \putlratom{533}{101}{\@memberb}% left type
- \else\if\@tmpc e%(e) beta
- \yl@xdiff=-36
- \yl@ydiff=83
- \put(573,-91){\line(5,-3){144}}% single bond at 3 equatorial
- \putlatom{753}{-260}{\@memberb}% left type
- \fi\fi\fi%
- \else \if\@tmpb D%double bond
- \yl@xdiff=0
- \yl@ydiff=0
- \put(563,-83){\line(5,4){170}}% double bond at 3
- \put(583,-99){\line(5,4){170}}% double bond at 3
- \putratom{733}{41}{\@memberb}% right type
- \else%
- \yl@xdiff=-10
- \yl@ydiff=24
- \put(573,-91){\line(5,4){170}}% single bond at 3
- \putratom{753}{21}{\@memberb}% right type
- \fi\fi}%
-\def\@chaird{%
- \if\@tmpb S%single bond
- \ifx\@tmpc\empty%
- \yl@xdiff=10
- \yl@ydiff=70
- \put(843,-181){\line(1,-1){120}}% single bond at 4
- \putratom{953}{-371}{\@memberb}% right type
- \else\if\@tmpc a%(a) axial
- \yl@xdiff=42
- \yl@ydiff=91
- \put(843,-181){\line(0,-1){168}}% single bond at 4 axial
- \putlratom{801}{-440}{\@memberb}% left & right type
- \else\if\@tmpc e%(e) beta
- \yl@xdiff=-16
- \yl@ydiff=16
- \put(843,-181){\line(5,3){144}}% single bond at 4 equatorial
- \putratom{1003}{-111}{\@memberb}% right type
- \fi\fi\fi%
- \else \if\@tmpb D%double bond
- \yl@xdiff=10
- \yl@ydiff=70
- \put(833,-191){\line(1,-1){120}}% double bond at 4
- \put(853,-171){\line(1,-1){120}}% double bond at 4
- \putratom{953}{-371}{\@memberb}% right type
- \else%
- \yl@xdiff=10
- \yl@ydiff=70
- \put(843,-181){\line(1,-1){120}}% single bond at 4
- \putratom{953}{-371}{\@memberb}% right type
- \fi\fi}%
-\def\@chaire{%
- \if\@tmpb S%single bond
- \ifx\@tmpc\empty%
- \yl@xdiff=-10
- \yl@ydiff=10
- \put(673,46){\line(1,1){120}}% single bond at 5
- \putratom{803}{158}{\@memberb}% right type
- \else\if\@tmpc a%(a) axial
- \yl@xdiff=40
- \yl@ydiff=-24
- \put(673,46){\line(0,1){168}}% single bond at 5 axial
- \putlratom{633}{238}{\@memberb}% left & right type
- \else\if\@tmpc e%(e) beta
- \yl@xdiff=-6
- \yl@ydiff=63
- \put(673,46){\line(5,-3){144}}% single bond at 5 equatorial
- \putratom{823}{-103}{\@memberb}% right type
- \fi\fi\fi%
- \else \if\@tmpb D%double bond
- \yl@xdiff=-10
- \yl@ydiff=10
- \put(663,53){\line(1,1){120}}% double bond at 5
- \put(683,38){\line(1,1){120}}% double bond at 5
- \putratom{803}{158}{\@memberb}% right type
- \else%
- \yl@xdiff=-10
- \yl@ydiff=24
- \put(673,46){\line(5,4){170}}% single bond at 5
- \putratom{853}{158}{\@memberb}% right type
- \fi\fi}%
-\def\@chairf{%
- \if\@tmpb S%single bond
- \ifx\@tmpc\empty%
- \yl@xdiff=0
- \yl@ydiff=54
- \put(270,-90){\line(-5,-4){170}}% single bond at 2
- \putlatom{100}{-280}{\@memberb}% left type
- \else\if\@tmpc a%(a) axial
- \yl@xdiff=32
- \yl@ydiff=92
- \put(270,-90){\line(0,-1){168}}% single bond at 2 axial
- \putlratom{238}{-350}{\@memberb}% left type
- \else\if\@tmpc e%(e) beta
- \yl@xdiff=26
- \yl@ydiff=-14
- \put(270,-90){\line(-5,3){144}}% single bond at 2 equatorial
- \putratom{100}{18}{\@memberb}% left type
- \fi\fi\fi%
- \else \if\@tmpb D%double bond
- \yl@xdiff=0
- \yl@ydiff=54
- \put(260,-80){\line(-5,-4){170}}% double bond at 2
- \put(280,-100){\line(-5,-4){170}}% double bond at 2
- \putlatom{100}{-280}{\@memberb}% left or right type
- \else%
- \yl@xdiff=0
- \yl@ydiff=54
- \put(270,-90){\line(-5,-4){170}}% single bond at 2
- \putlatom{100}{-280}{\@memberb}% left type
- \fi\fi}%
-\def\chair{\@ifnextchar[{\@chair}{\@chair[r]}}
-\def\@chair[#1]#2{%
-\@reset@ylsw%
-\ylchairposition{#2}%
-\def\@@ylii{0}\def\@@yli{0}%
-\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)
-\else
- \begin{picture}(1600,800)(-400,-500)
- \iforigpt \put(-400,-500){\circle*{50}}%
- \put(0,0){\circle{50}}%
- \typeout{command `chair' origin: (0,0) ---> (400,500)}
- \fi%
-\fi
- \thicklines%
- \put(0,0){\line(3,-4){170}}% % bond 1 to 2
- \put(170,-226){\line(3,1){403}}% % 2 to 3
- \put(573,-91){\line(3,-1){270}}% % 3 to 4
- \thinlines%
- \put(843,-181){\line(-3,4){170}}% % 4 to 5
- \put(673,46){\line(-3,-1){403}}% % 5 to 6
- \put(0,0){\line(3,-1){270}}% % 1 to 6
-\@tfor\member:=#1\do{%
-\if\member r%no endcyclic bonds
-\else \if\member a%
- \put(76,-42){\line(3,-4){110}}% % double bond 1 to 2
-\else \if\member b%
- \put(200,-186){\line(3,1){343}}% % 2 to 3
-\else \if\member c%
- \put(603,-70){\line(3,-1){190}}% % 3 to 4
-\else \if\member d%
- \put(780,-141){\line(-3,4){110}}% % 4 to 5
-\else \if\member e%
- \put(661,6){\line(-3,-1){343}}% % 5 to 6
-\else \if\member f%
- \put(75,-50){\line(3,-1){170}}% % 1 to 6
-\fi\fi\fi\fi\fi\fi\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%0 omit
- \or\@chaira% subst. on 1
- \or\@chairb% subst. on 2
- \or\@chairc% subst. on 3
- \or\@chaird% subst. on 4
- \or\@chaire% subst. on 5
- \or\@chairf% subst. on 6
-\fi%end of ifcase
-\fi\fi%
-}\end{picture}}% %end of \chair macro
-\def\ylchairposition#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%0 omit
- \or\gdef\@ylii{0}\gdef\@yli{0}\global\@ylswtrue% subst. on 1
- \or\gdef\@ylii{-170}\gdef\@yli{226}\global\@ylswtrue% subst. on 2
- \or\gdef\@ylii{-573}\gdef\@yli{91}\global\@ylswtrue% subst. on 3
- \or\gdef\@ylii{-843}\gdef\@yli{181}\global\@ylswtrue% subst. on 4
- \or\gdef\@ylii{-673}\gdef\@yli{-46}\global\@ylswtrue% subst. on 5
- \or\gdef\@ylii{-270}\gdef\@yli{90}\global\@ylswtrue% subst. on 6
-\fi%end of ifcase
-\fi\fi\fi}}%
-\def\@chairia{%
- \if\@tmpb S%single bond
- \ifx\@tmpc\empty%
- \yl@xdiff=10
- \yl@ydiff=90
- \put(0,0){\line(-1,-1){120}}% single bond at 1
- \putlatom{-130}{-210}{\@memberb}% left type
- \else\if\@tmpc a%(a) axial
- \yl@xdiff=42
- \yl@ydiff=92
- \put(0,0){\line(0,-1){168}}% single bond at 1 axial
- \putlratom{-42}{-260}{\@memberb}% left & right type
- \else\if\@tmpc e%(e) beta
- \yl@xdiff=16
- \yl@ydiff=36
- \put(0,0){\line(-5,3){144}}% single bond at 1 equatorial
- \putlatom{-160}{50}{\@memberb}% left type
- \fi\fi\fi%
- \else \if\@tmpb D%double bond
- \yl@xdiff=10
- \yl@ydiff=90
- \put(-10,10){\line(-1,-1){120}}% double bond at 1
- \put(10,-10){\line(-1,-1){120}}% double bond at 1
- \putlatom{-130}{-210}{\@memberb}% left type
- \else%
- \yl@xdiff=10
- \yl@ydiff=90
- \put(0,0){\line(-1,-1){120}}% single bond at 1
- \putlatom{-130}{-210}{\@memberb}% left type
- \fi\fi}%
-\def\@chairif{%
- \if\@tmpb S%single bond
- \ifx\@tmpc\empty%
- \yl@xdiff=10
- \yl@ydiff=30
- \put(170,226){\line(-1,1){120}}% single bond at 6
- \putratom{40}{316}{\@memberb}% left type
- \else\if\@tmpc a%(a) axial
- \yl@xdiff=32
- \yl@ydiff=-12
- \put(170,226){\line(0,1){168}}% single bond at 6 axial
- \putlratom{138}{406}{\@memberb}% left & right type
- \else\if\@tmpc e%(e) beta
- \yl@xdiff=16
- \yl@ydiff=46
- \put(170,226){\line(-5,-3){144}}% single bond at 6 equatorial
- \putlatom{10}{94}{\@memberb}% left type
- \fi\fi\fi%
- \else \if\@tmpb D%double bond
- \yl@xdiff=10
- \yl@ydiff=30
- \put(160,216){\line(-1,1){120}}% double bond at 6
- \put(180,236){\line(-1,1){120}}% double bond at 6
- \putlatom{40}{316}{\@memberb}% left type
- \else%
- \yl@xdiff=10
- \yl@ydiff=30
- \put(170,226){\line(-1,1){120}}% single bond at 6
- \putlatom{40}{316}{\@memberb}% left type
- \fi\fi}%
-\def\@chairie{%
- \if\@tmpb S%single bond
- \ifx\@tmpc\empty%
- \yl@xdiff=-10
- \yl@ydiff=76
- \put(573,91){\line(5,-4){170}}% single bond at 5
- \putratom{753}{-101}{\@memberb}% right type
- \else\if\@tmpc a%(a) axial
- \yl@xdiff=40
- \yl@ydiff=104
- \put(573,91){\line(0,-1){168}}% single bond at 5 axial
- \putlratom{533}{-181}{\@memberb}% left type
- \else\if\@tmpc e%(e) beta
- \yl@xdiff=-36
- \yl@ydiff=3
- \put(573,91){\line(5,3){144}}% single bond at 5 equatorial
- \putlatom{753}{180}{\@memberb}% left type
- \fi\fi\fi%
- \else \if\@tmpb D%double bond
- \yl@xdiff=-10
- \yl@ydiff=96
- \put(563,83){\line(5,-4){170}}% double bond at 5
- \put(583,99){\line(5,-4){170}}% double bond at 5
- \putratom{733}{-141}{\@memberb}% right type
- \else%
- \yl@xdiff=-10
- \yl@ydiff=76
- \put(573,91){\line(5,-4){170}}% single bond at 5
- \putratom{753}{-121}{\@memberb}% right type
- \fi\fi}%
-\def\@chairid{%
- \if\@tmpb S%single bond
- \ifx\@tmpc\empty%
- \yl@xdiff=10
- \yl@ydiff=30
- \put(843,181){\line(1,1){120}}% single bond at 4
- \putratom{953}{271}{\@memberb}% right type
- \else\if\@tmpc a%(a) axial
- \yl@xdiff=42
- \yl@ydiff=-11
- \put(843,181){\line(0,1){168}}% single bond at 4 axial
- \putlratom{801}{360}{\@memberb}% left & right type
- \else\if\@tmpc e%(e) beta
- \yl@xdiff=-16
- \yl@ydiff=64
- \put(843,181){\line(5,-3){144}}% single bond at 4 equatorial
- \putratom{1003}{31}{\@memberb}% right type
- \fi\fi\fi%
- \else \if\@tmpb D%double bond
- \yl@xdiff=10
- \yl@ydiff=30
- \put(833,191){\line(1,1){120}}% double bond at 4
- \put(853,171){\line(1,1){120}}% double bond at 4
- \putratom{953}{271}{\@memberb}% right type
- \else%
- \yl@xdiff=10
- \yl@ydiff=30
- \put(843,181){\line(1,1){120}}% single bond at 4
- \putratom{953}{271}{\@memberb}% right type
- \fi\fi}%
-\def\@chairic{%
- \if\@tmpb S%single bond
- \ifx\@tmpc\empty%
- \yl@xdiff=-10
- \yl@ydiff=92
- \put(673,-46){\line(1,-1){120}}% single bond at 3
- \putratom{803}{-258}{\@memberb}% right type
- \else\if\@tmpc a%(a) axial
- \yl@xdiff=40
- \yl@ydiff=110
- \put(673,-46){\line(0,-1){168}}% single bond at 3 axial
- \putlratom{633}{-318}{\@memberb}% left & right type
- \else\if\@tmpc e%(e) beta
- \yl@xdiff=-6
- \yl@ydiff=17
- \put(673,-46){\line(5,3){144}}% single bond at 3 equatorial
- \putratom{823}{23}{\@memberb}% right type
- \fi\fi\fi%
- \else \if\@tmpb D%double bond
- \yl@xdiff=-5
- \yl@ydiff=96
- \put(663,-53){\line(1,-1){120}}% double bond at 3
- \put(683,-38){\line(1,-1){120}}% double bond at 3
- \putratom{803}{-258}{\@memberb}% right type
- \else%
- \yl@xdiff=-10
- \yl@ydiff=76
- \put(673,-46){\line(5,-4){170}}% single bond at 3
- \putratom{853}{-258}{\@memberb}% right type
- \fi\fi}%
-\def\@chairib{%
- \if\@tmpb S%single bond
- \ifx\@tmpc\empty%
- \yl@xdiff=0
- \yl@ydiff=46
- \put(270,90){\line(-5,4){170}}% single bond at 2
- \putlatom{100}{180}{\@memberb}% left type
- \else\if\@tmpc a%(a) axial
- \yl@xdiff=32
- \yl@ydiff=-12
- \put(270,90){\line(0,1){168}}% single bond at 2 axial
- \putlratom{238}{270}{\@memberb}% left type
- \else\if\@tmpc e%(e) beta
- \yl@xdiff=26
- \yl@ydiff=94
- \put(270,90){\line(-5,-3){144}}% single bond at 2 equatorial
- \putratom{100}{-98}{\@memberb}% left type
- \fi\fi\fi%
- \else \if\@tmpb D%double bond
- \yl@xdiff=0
- \yl@ydiff=26
- \put(260,80){\line(-5,4){170}}% double bond at 2
- \put(280,100){\line(-5,4){170}}% double bond at 2
- \putlatom{100}{200}{\@memberb}% left or right type
- \else%
- \yl@xdiff=0
- \yl@ydiff=26
- \put(270,90){\line(-5,4){170}}% single bond at 2
- \putlatom{100}{200}{\@memberb}% left type
- \fi\fi}%
-\def\chairi{\@ifnextchar[{\@chairi}{\@chairi[r]}}
-\def\@chairi[#1]#2{%
-\@reset@ylsw%
-\ylchairiposition{#2}%
-\def\@@ylii{0}\def\@@yli{0}%
-\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)
-\else
- \begin{picture}(1600,800)(-400,-319)
- \iforigpt \put(-400,-319){\circle*{50}}%
- \put(0,0){\circle{50}}%
- \typeout{command `chairi' origin: (0,0) ---> (400,319)}
- \fi%
-\fi
- \thinlines%
- \put(0,0){\line(3,4){170}}% % bond 1 to 6
- \put(170,226){\line(3,-1){403}}% % 6 to 5
- \put(573,91){\line(3,1){270}}% % 5 to 4
- \thicklines%
- \put(843,181){\line(-3,-4){170}}% % 4 to 3
- \put(673,-46){\line(-3,1){403}}% % 3 to 2
- \put(0,0){\line(3,1){270}}% % 1 to 2
- \thinlines%
-\@tfor\member:=#1\do{%
-\if\member r%no endcyclic bonds
-\else \if\member c%%%a%
- \put(767,139){\line(-3,-4){110}}% % double bond 3 to 4
-\else \if\member b%%%d%%%b%
- \put(640,-5){\line(-3,1){343}}% % 4 to 5
-\else \if\member a%%%e%%%%c%
- \put(240,111){\line(-3,-1){190}}% % 5 to 6
-\else \if\member f%%%d%
- \put(63,40){\line(3,4){110}}% % 6 to 7
-\else \if\member e%%%l%
- \put(182,187){\line(3,-1){343}}% % 7 to 10
-\else \if\member d%%%k%%%f%
- \put(768,131){\line(-3,-1){170}}% % 10 to 3
-\fi\fi\fi\fi\fi\fi\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%0 omit
- \or \@chairia% subst. on 1
- \or \@chairib% subst. on 2
- \or \@chairic% subst. on 3
- \or \@chairid% subst. on 4
- \or \@chairie% subst. on 5
- \or \@chairif% subst. on 6
-\fi %end of ifcase
-\fi\fi%
-}\end{picture}}% %end of \chairi macro
-\def\ylchairiposition#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%0 omit
- \or\gdef\@ylii{0}\gdef\@yli{0}\global\@ylswtrue% subst. on 1
- \or\gdef\@ylii{-270}\gdef\@yli{-90}\global\@ylswtrue% subst. on 2
- \or\gdef\@ylii{-673}\gdef\@yli{46}\global\@ylswtrue% subst. on 3
- \or\gdef\@ylii{-843}\gdef\@yli{-181}\global\@ylswtrue% subst. on 4
- \or\gdef\@ylii{-573}\gdef\@yli{-91}\global\@ylswtrue% subst. on 5
- \or\gdef\@ylii{-170}\gdef\@yli{-226}\global\@ylswtrue% subst. on 6
-\fi%end of ifcase
-\fi\fi\fi}}%
-\def\bicychepv{\@ifnextchar[{\@bicychepv}{\@bicychepv[r]}}
-\def\@bicychepv[#1]#2{%
-\@reset@ylsw%
-\ylposition{#2}{0}{0}{7}{0}%
-\if@ylsw
- \yl@shiftii=\@ylii
- \yl@shifti=\@yli
- \advance\yl@shiftii\yl@xdiff
- \advance\yl@shifti\yl@ydiff
- \begin{picture}(0,0)(-\yl@shiftii,-\yl@shifti)
-\else
- \begin{picture}(800,880)(-400,-240)
- \iforigpt \put(-400,-240){\circle*{50}}%
- \put(0,0){\circle{50}}%
- \typeout{command `bicychepv' origin: (0,0) ---> (400,240)}
-\fi
- \fi%
- \put(0,406){\line(-5,-3){171}}% %bond 1-6
- \put(0,406){\line(5,-3){171}}% %bond 1-2
- \put(0,0){\line(-5,3){171}}% %bond 4-5
- \put(0,0){\line(5,3){171}}% %bond 4-3
- \put(171,103){\line(0,1){200}}% %bond 3-2
- \put(-171,103){\line(0,1){200}}% %bond 5-6
-{\thicklines%
- \put(0,0){\line(1,4){51}}% %bond 4-7
- \put(0,406){\line(1,-4){51}}}% %bond 1-7
-\@tfor\member:=#1\do{%
-\if\member r%no endcyclic double bonds
-\else \if\member a%
- \put(6,364){\line(5,-3){126}}% %double bond 1-2
-\else \if\member b%
- \put(138,129){\line(0,1){148}}% %double bond 3-2
-\else \if\member c%
- \put(6,42){\line(5,3){126}}% %double bond 4-3
-\else \if\member d%
- \put(-6,42){\line(-5,3){126}}% %double bond 4-5
-\else \if\member e%
- \put(-138,129){\line(0,1){148}}% %double bond 5-6
-\else \if\member f%
- \put(-6,364){\line(-5,-3){126}}% %double bond 1-6
-\else \if\member 7%
- {\thicklines%
- \put(51,204){\line(-1,0){70}}% %7,7-dimethyl
- \put(51,204){\line(1,0){70}}}%
-\else \if\member A%aromatic circle
- \put(0,203){\circle{240}}% %circle
-\fi\fi\fi\fi\fi\fi\fi\fi\fi}%
-\setsixringv{#2}{0}{0}{7}{0}
-\end{picture}} %end of \bicychepv macro
-\def\bicycheph{\@ifnextchar[{\@bicycheph}{\@bicycheph[r]}}
-\def\@bicycheph[#1]#2{%
-\@reset@ylsw%
-\ylpositionh{#2}{0}{0}{7}{0}%
-\if@ylsw
- \yl@shiftii=\@ylii
- \yl@shifti=\@yli
- \advance\yl@shiftii\yl@xdiff
- \advance\yl@shifti\yl@ydiff
- \begin{picture}(0,0)(-\yl@shiftii,-\yl@shifti)
-\else
- \begin{picture}(880,800)(-240,-400)
- \iforigpt \put(-240,-400){\circle*{50}}%
- \put(0,0){\circle{50}}%
- \typeout{command `bicycheph' origin: (0,0) ---> (240,400)}
- \fi%
-\fi
- \put(0,0){\line(3,5){103}} %bond 1-2
- \put(0,0){\line(3,-5){103}} %bond 1-6
- \put(406,0){\line(-3,5){103}} %bond 4-3
- \put(406,0){\line(-3,-5){103}} %bond 4-3
- \put(103,171){\line(1,0){200}} %bond 2-3
- \put(103,-171){\line(1,0){200}} %bond 6-5
-{\thicklines%
- \put(0,0){\line(4,1){203}}% %bond 4-7
- \put(406,0){\line(-4,1){203}}}% %bond 1-7
-\@tfor\member:=#1\do{%
-\if\member r%no endcyclic double bonds
-\else \if\member a%
- \put(42,6){\line(3,5){78}} %double bond 1-2
-\else \if\member b%
- \put(129,138){\line(1,0){148}} %double bond 2-3
-\else \if\member c%
- \put(364,6){\line(-3,5){78}} %double bond 4-3
-\else \if\member d%
- \put(364,-6){\line(-3,-5){78}} %double bond 4-5
-\else \if\member e%
- \put(129,-138){\line(1,0){148}} %double bond 6-5
-\else \if\member f%
- \put(42,-6){\line(3,-5){78}} %double bond 1-6
-\else \if\member 7%
- {\thicklines%
- \put(204,51){\line(0,-1){70}}% %7,7-dimethyl
- \put(204,51){\line(0,1){70}}}%
-\else \if\member A%aromatic circle
- \put(203,0){\circle{240}} %circle
-\fi\fi\fi\fi\fi\fi\fi\fi\fi}
-\setsixringh{#2}{0}{0}{7}{0}
-\end{picture}} %end of \bicycheph macro
-\def\@borna{%
- \if\@tmpb S%single bond
- \ifx\@tmpc\empty%
- \yl@xdiff=8
- \yl@ydiff=3
- \put(318,247){\line(2,5){40}}% % single bond 1
- \putratom{350}{350}{\@memberb}% % right type
- \else\if\@tmpc a%(a) alpha
- \yl@xdiff=8
- \yl@ydiff=3
- \put(318,247){\line(2,5){40}}% % single bond 1
- \putratom{350}{350}{\@memberb}% % right type
- \else\if\@tmpc b%(b) beta
- \yl@xdiff=8
- \yl@ydiff=3
- \put(318,247){\line(2,5){40}}% % single bond 1
- \putratom{350}{350}{\@memberb}% % right type
- \fi\fi\fi%
- \else%
- \yl@xdiff=8
- \yl@ydiff=3
- \put(318,247){\line(2,5){40}}% % single bond 1
- \putratom{350}{350}{\@memberb} % right type
- \fi}%
-\def\@bornb{%
- \begin{picture}(200,200)(0,0)
- \if\@tmpb S%single bond
- \ifx\@tmpc\empty%
- \yl@xdiff=-10
- \yl@ydiff=20
- \put(0,0){\line(5,2){160}}%
- \putratom{170}{44}{\@memberb}% % left type
- \else\if\@tmpc A%(A) alpha
- \yl@xdiff=0
- \yl@ydiff=-5
- \putratom{140}{115}{\@memberb}% % right type
- {%
- \thicklines%
- \put(0,0){\line(4,3){140}}% % endo (a)
- }%
- \else\if\@tmpc B%(B) beta
- \yl@xdiff=10
- \yl@ydiff=30
- \putratom{150}{-86}{\@memberb}% % right type
- \@ifundefined{dottedline}{%
- \put(0,0){\line(5,-2){140}}% % exo (b)
- }{{\thicklines%
- \dottedline{20}(0,0)(140,-56)}}%
- \else\if\@tmpc a%(a) alpha
- \yl@xdiff=10
- \yl@ydiff=30
- \put(0,0){\line(5,-2){140}}% % endo (a)
- \putratom{150}{-86}{\@memberb}% % right type
- \else\if\@tmpc b%(b) beta
- \yl@xdiff=0
- \yl@ydiff=-10
- \put(0,0){\line(4,3){140}}% % exo (b)
- \putratom{140}{115}{\@memberb}% % right type
- \fi\fi\fi\fi\fi%
- \else \if\@tmpb D%double bond
- \yl@xdiff=-10
- \yl@ydiff=20
- \put(-10,-15){\line(5,2){160}}%
- \put(-5,15){\line(5,2){160}}%
- \putratom{170}{44}{\@memberb}% % right type
- \else \if\@tmpb A%alpha single bond
- \yl@xdiff=-10
- \yl@ydiff=20
- \putratom{170}{44}{\@memberb}% % right type
- {%
- \thicklines%
- \put(0,0){\line(5,2){160}}%
- }%
- \else \if\@tmpb B%beta single bond
- \yl@xdiff=-10
- \yl@ydiff=20
- \putratom{170}{44}{\@memberb}% % right type
- \@ifundefined{dottedline}{%
- \put(0,0){\line(5,2){160}}%
- }{{\thicklines%
- \dottedline{20}(0,0)(160,64)}}%
- \else%
- \yl@xdiff=-10
- \yl@ydiff=20
- \put(0,0){\line(5,2){160}}%
- \putratom{170}{44}{\@memberb}% % right type
- \fi\fi\fi\fi\end{picture}}%
-\def\@bornc{%
- \begin{picture}(200,200)(0,0)
- \if\@tmpb S%single bond
- \ifx\@tmpc\empty%
- \yl@xdiff=-10
- \yl@ydiff=30
- \put(0,0){\line(5,-2){140}}%
- \putratom{150}{-86}{\@memberb}% % right type
- \else\if\@tmpc A%(A) alpha
- \yl@xdiff=-10
- \yl@ydiff=30
- \putratom{150}{26}{\@memberb}% % right type
- {%
- \thicklines%
- \put(0,0){\line(5,2){140}}% % endo (a)
- }%
- \else\if\@tmpc B%(B) beta
- \yl@xdiff=0
- \yl@ydiff=40
- \putratom{140}{-145}{\@memberb}% % right type
- \@ifundefined{dottedline}{%
- \put(0,0){\line(4,-3){140}}% % exo (b)
- }{{\thicklines%
- \dottedline{20}(0,0)(140,-105)}}%
- \else\if\@tmpc a%(a) alpha
- \yl@xdiff=0
- \yl@ydiff=40
- \put(0,0){\line(4,-3){140}}% % endo (a)
- \putratom{140}{-145}{\@memberb}% % right type
- \else\if\@tmpc b%(b) beta
- \yl@xdiff=-10
- \yl@ydiff=30
- \put(0,0){\line(5,2){140}}% % exo (b)
- \putratom{150}{26}{\@memberb}% % right type
- \fi\fi\fi\fi\fi
- \else \if\@tmpb D%double bond
- \yl@xdiff=10
- \yl@ydiff=50
- \put(10,15){\line(5,-2){160}}%
- \put(5,-15){\line(5,-2){160}}%
- \putratom{170}{-124}{\@memberb}% % right type
- \else \if\@tmpb A%alpha single bond
- \yl@xdiff=-10
- \yl@ydiff=30
- \putratom{150}{-86}{\@memberb}% % right type
- {%
- \thicklines%
- \put(0,0){\line(5,-2){140}}% % endo (a)
- }%
- \else \if\@tmpb B%beta single bond
- \yl@xdiff=-10
- \yl@ydiff=30
- \putratom{150}{-86}{\@memberb}% % right type
- \@ifundefined{dottedline}{%
- \put(0,0){\line(5,-2){140}}% % exo (b)
- }{{\thicklines%
- \dottedline{20}(0,0)(140,-56)}}%
- \else%
- \yl@xdiff=-10
- \yl@ydiff=20
- \put(0,0){\line(5,2){160}}%
- \putratom{170}{44}{\@memberb}% % right type
- \fi\fi\fi\fi%
-\end{picture}}%
-\def\@bornd{%
- \if\@tmpb S%single bond
- \ifx\@tmpc\empty%
- \yl@xdiff=30
- \yl@ydiff=87
- \put(237,47){\line(-2,-5){40}}% % single bond 4
- \putlratom{167}{-140}{\@memberb}% % left & right type
- \else\if\@tmpc a%(a) alpha
- \yl@xdiff=30
- \yl@ydiff=87
- \put(237,47){\line(-2,-5){40}}% % single bond 4
- \putlratom{167}{-140}{\@memberb}% % left & right type
- \else\if\@tmpc b%(b) beta
- \yl@xdiff=30
- \yl@ydiff=87
- \put(237,47){\line(-2,-5){40}}% % single bond 4
- \putlratom{167}{-140}{\@memberb}% % left & right type
- \fi\fi\fi%
- \else%
- \yl@xdiff=30
- \yl@ydiff=87
- \put(237,47){\line(-2,-5){40}}% % single bond 4
- \putlratom{167}{-140}{\@memberb}% % left & right type
- \fi}%
-\def\@borne{%
- \begin{picture}(200,200)(0,0)
- \if\@tmpb S%single bond
- \ifx\@tmpc\empty%
- \yl@xdiff=10
- \yl@ydiff=30
- \put(0,0){\line(-5,-2){140}}%
- \putlatom{-150}{-86}{\@memberb}% % left type
- \else\if\@tmpc A%(A) alpha
- \yl@xdiff=10
- \yl@ydiff=30
- \putlatom{-150}{26}{\@memberb}% % left type
- {%
- \thicklines%
- \put(0,0){\line(-5,2){140}}% % endo (a)
- }%
- \else\if\@tmpc B%(B) beta
- \yl@xdiff=0
- \yl@ydiff=40
- \putlatom{-140}{-145}{\@memberb}% % left type
- \@ifundefined{dottedline}{%
- \put(0,0){\line(-4,-3){140}}% % exo (b)
- }{{\thicklines%
- \dottedline{20}(0,0)(-140,-105)}}%
- \else\if\@tmpc a%(a) alpha
- \yl@xdiff=0
- \yl@ydiff=30
- \put(0,0){\line(-4,-3){140}}% % endo (a)
- \putlatom{-140}{-145}{\@memberb}% % left type
- \else\if\@tmpc b%(b) beta
- \yl@xdiff=10
- \yl@ydiff=30
- \put(0,0){\line(-5,2){140}}% % exo (b)
- \putlatom{-150}{26}{\@memberb}% % left type
- \fi\fi\fi\fi\fi
- \else \if\@tmpb D%double bond
- \yl@xdiff=0
- \yl@ydiff=64
- \put(-10,15){\line(-5,-2){160}}%
- \put(-5,-15){\line(-5,-2){160}}%
- \putlatom{-170}{-124}{\@memberb}% % left type
- \else \if\@tmpb A%alpha single bond
- \yl@xdiff=10
- \yl@ydiff=30
- \putlatom{-150}{-86}{\@memberb}% % left type
- {%
- \thicklines%
- \put(0,0){\line(-5,-2){140}}% % endo (a)
- }%
- \else \if\@tmpb B%beta single bond
- \yl@xdiff=10
- \yl@ydiff=30
- \putlatom{-150}{-86}{\@memberb}% % left type
- \@ifundefined{dottedline}{%
- \put(0,0){\line(-5,-2){140}}% % exo (b)
- }{{\thicklines%
- \dottedline{20}(0,0)(-140,-56)}}%
- \else%
- \yl@xdiff=10
- \yl@ydiff=20
- \put(0,0){\line(-5,2){160}}%
- \putlatom{-170}{44}{\@memberb}% % left type
- \fi\fi\fi\fi%
-\end{picture}}%
-\def\@bornf{%
- \begin{picture}(200,200)(0,0)
- \if\@tmpb S%single bond
- \ifx\@tmpc\empty%
- \yl@xdiff=10
- \yl@ydiff=30
- \put(0,0){\line(-5,2){160}}%
- \putlatom{-170}{44}{\@memberb}% % left type
- \else\if\@tmpc A%(A) alpha
- \yl@xdiff=10
- \yl@ydiff=-10
- \putlatom{-140}{115}{\@memberb}% % left type
- {%
- \thicklines%
- \put(0,0){\line(-4,3){140}}% % endo (a)
- }%
- \else\if\@tmpc B%(B) beta
- \yl@xdiff=0
- \yl@ydiff=30
- \putlatom{-150}{-86}{\@memberb}% % left type
- \@ifundefined{dottedline}{%
- \put(0,0){\line(-5,-2){140}}% % exo (b)
- }{{\thicklines%
- \dottedline{20}(0,0)(-140,-56)}}%
- \else\if\@tmpc a%(a) alpha
- \yl@xdiff=10
- \yl@ydiff=30
- \put(0,0){\line(-5,-2){140}}% % endo (a)
- \putlatom{-150}{-86}{\@memberb}% % left type
- \else\if\@tmpc b%(b) beta
- \yl@xdiff=0
- \yl@ydiff=-10
- \put(0,0){\line(-4,3){140}}% % exo (b)
- \putlatom{-140}{115}{\@memberb}% % left type
- \fi\fi\fi\fi\fi%
- \else \if\@tmpb D%double bond
- \yl@xdiff=0
- \yl@ydiff=20
- \put(10,-15){\line(-5,2){160}}%
- \put(5,15){\line(-5,2){160}}%
- \putlatom{-170}{44}{\@memberb}% % left type
- \else \if\@tmpb A%alpha single bond
- \yl@xdiff=10
- \yl@ydiff=30
- \putlatom{-170}{44}{\@memberb}% % left type
- {%
- \thicklines%
- \put(0,0){\line(-5,2){160}}%
- }%
- \else \if\@tmpb B%beta single bond
- \yl@xdiff=10
- \yl@ydiff=30
- \putlatom{-170}{44}{\@memberb}% % left type
- \@ifundefined{dottedline}{%
- \put(0,0){\line(-5,2){160}}%
- }{{\thicklines%
- \dottedline{20}(0,0)(-160,64)}}%
- \else%
- \yl@xdiff=10
- \yl@ydiff=20
- \put(0,0){\line(-5,2){160}}%
- \putlatom{-170}{44}{\@memberb}% % left type
- \fi\fi\fi\fi\end{picture}}%
-\def\@borng{%
- \begin{picture}(200,200)(0,0)
- \if\@tmpb S%single bond
- \ifx\@tmpc\empty%
- \yl@xdiff=40
- \yl@ydiff=-20
- \put(0,0){\line(0,1){160}}%
- \putlratom{-40}{180}{\@memberb}% % left & right type
- \else\if\@tmpc a%(a) left
- \yl@xdiff=0
- \yl@ydiff=-10
- \put(0,0){\line(-4,3){140}}% % left (a)
- \putlatom{-140}{115}{\@memberb}% % left type
- \else\if\@tmpc b%(b) right
- \yl@xdiff=0
- \yl@ydiff=-10
- \put(0,0){\line(4,3){140}}% % right (b)
- \putratom{140}{115}{\@memberb}% % right type
- \fi\fi\fi%\fi\fi%
- \else \if\@tmpb D%double bond
- \yl@xdiff=40
- \yl@ydiff=-20
- \put(-10,0){\line(0,1){160}}%
- \put(10,0){\line(0,1){160}}%
- \putlratom{-40}{180}{\@memberb}% % left & right type
- \else%
- \yl@xdiff=40
- \yl@ydiff=-20
- \put(0,0){\line(0,1){160}}%
- \putlratom{-40}{180}{\@memberb}% % left & right type
- \fi\fi\end{picture}}%
-
-\def\bornane{\@ifnextchar[{\@bornane}{\@bornane[r]}}
-\def\@bornane[#1]#2{%
-\@reset@ylsw%
-\ylbornaneposition{#2}%
-\def\@@ylii{0}\def\@@yli{0}%
-\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)
-\else
- \begin{picture}(1000,1000)(-200,-240)%changed by SF 1998/09/26
- \iforigpt \put(-200,-240){\circle*{50}}%
- \put(0,0){\circle{50}}%
- \typeout{command `bornane' origin: (0,0) ---> (200,240)}
- \fi%
-\fi
- \thicklines%
- \put(0,0){\line(5,1){237}}% % bond 5 to 4 (d)
- \put(237,47){\line(5,-2){225}}% % bond 4 to 3 (c)
- \put(237,47){\line(0,1){400}}% % front part of bridge (h)
- \thinlines%
- \put(462,-43){\line(2,5){80}}% % bond 3 to 2 (b)
- \put(543,157){\line(-5,2){225}}% % bond 2 to 1 (a)
- \put(318,247){\line(-5,-1){237}}% % bond 1 to 6 (f)
- \put(80,200){\line(-2,-5){80}}% % bond 6 to 5 (e)
- \put(318,247){\line(-2,5){80}}% % back part of bridge (g)
-\@tfor\member:=#1\do{%
-\if\member r%no endcyclic bonds
-\else \if\member a%%%%
- \put(513,127){\line(-5,2){180}}% % bond 2 to 1
-\else \if\member b%%%%
- \put(446,-3){\line(2,5){60}}% % bond 3 to 2
-\else \if\member c%%%%
- \put(267,77){\line(5,-2){180}}% % bond 4 to 3
-\else \if\member d%%%%
- \put(40,42){\line(5,1){180}}% % double bond 5 to 4
-\else \if\member e%%%
- \put(100,180){\line(-2,-5){60}}% % bond 6 to 5
-\else \if\member f%
- \put(288,207){\line(-5,-1){180}}% % bond 1 to 6
-\else \if\member g%
- \put(288,260){\line(-2,5){40}}% % back part of bridge (g)
-\else \if\member h%
- \put(257,77){\line(0,1){290}}% % front part of bridge (h)
-\fi\fi\fi\fi\fi\fi\fi\fi\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%0 omit
- \or \@borna% subst. on 1
- \or \put(543,157){\@bornb}% subst. on 2
- \or \put(462,-43){\@bornc}% subst. on 3
- \or \@bornd% subst. on 4
- \or \put(0,0){\@borne}% subst. on 5
- \or \put(80,200){\@bornf}% subst. on 6
- \or \put(237,440){\@borng}% subst. on 7
-\fi%end of ifcase
-\fi\fi%
-}\end{picture}\iniatom\iniflag} %end of \bornane macro
-\def\ylbornaneposition#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%0 omit
- \or\gdef\@ylii{-318}\gdef\@yli{-247}\global\@ylswtrue% subst. on 1
- \or\gdef\@ylii{-543}\gdef\@yli{-157}\global\@ylswtrue% subst. on 2
- \or\gdef\@ylii{-462}\gdef\@yli{43}\global\@ylswtrue% subst. on 3
- \or\gdef\@ylii{-237}\gdef\@yli{-47}\global\@ylswtrue% subst. on 4
- \or\gdef\@ylii{0}\gdef\@yli{0}\global\@ylswtrue% subst. on 5
- \or\gdef\@ylii{-80}\gdef\@yli{-200}\global\@ylswtrue% subst. on 6
- \or\gdef\@ylii{-237}\gdef\@yli{-440}\global\@ylswtrue% subst. on 7
-\fi%end of ifcase
-\fi\fi\fi}}%
-\def\@adamanea{%
- \yl@xdiff=12
- \yl@ydiff=21
- \put(-360,720){\hbox to0pt{\hss \@memberb}}% %atom 1
- \if\@tmpb a%
- \put(-240,660){\line(-4,3){108}}% %bond 1
- \else \ifx\@tmpb\empty%
- \put(-240,660){\line(-4,3){108}}% %bond 1
- \fi\fi}%
-\def\@adamaneb{%
- \if\@tmpb a%
- \yl@xdiff=6
- \yl@ydiff=-16
- \put(0,780){\line(1,4){26}}% %bond 2-ax
- \put(20,900){\hbox to0pt{\@memberb \hss}}% %atom 2-ax
- \else \if\@tmpb b%
- \yl@xdiff=-6
- \yl@ydiff=-16
- \put(0,780){\line(-1,4){26}}% %bond 2-eq
- \put(-20,900){\hbox to0pt{\hss \@memberb}}% %atom 2-eq
- \else \ifx\@tmpb\empty%
- \yl@xdiff=42
- \yl@ydiff=-22
- \put(-42,910){\hbox to0pt{\hss \@memberb}}% %atom 2
- \put(0,780){\line(0,1){108}}% %bond 2
- \else \if\@tmpb D%
- \yl@xdiff=42
- \yl@ydiff=-22
- \putlratom{-42}{910}{\@memberb}% %atom 2
- \put(-12,780){\line(0,1){108}}% %double bond 2
- \put(12,780){\line(0,1){108}}% %double bond 2
- \fi\fi\fi\fi}
-\def\@adamanec{%
- \yl@xdiff=-12
- \yl@ydiff=21
- \put(360,720){\hbox to0pt{\@memberb \hss}}% %atom 3
- \if\@tmpb a%1998/10/24 by SF
- \put(240,660){\line(4,3){108}}% %bond 3
- \else \ifx\@tmpb\empty%
- \put(240,660){\line(4,3){108}}% %bond 3
- \fi\fi}
-\def\@adamaned{%
- \if\@tmpb a%
- \yl@xdiff=-17
- \yl@ydiff=33
- \put(300,420){\line(4,-3){103}}% %bond 4-ax
- \put(420,310){\hbox to0pt{\@memberb \hss}}% %atom 4-ax
- \else \if\@tmpb b%
- \yl@xdiff=26
- \yl@ydiff=-26
- \put(300,420){\line(1,4){26}}% %bond 4-eq
- \put(300,540){\hbox to0pt{\@memberb \hss}}% %atom 4-eq
- \else \ifx\@tmpb\empty%
- \yl@xdiff=-17
- \yl@ydiff=33
- \put(300,420){\line(4,-3){103}}% %bond 4
- \put(420,310){\hbox to0pt{\@memberb \hss}}% %atom 4
- \else \if\@tmpb D%
- \yl@xdiff=-17
- \yl@ydiff=33
- \put(296,432){\line(5,-3){103}}% %double bond 4
- \put(292,408){\line(5,-3){103}}% %double bond 4
- \put(420,310){\hbox to0pt{\@memberb \hss}}% %atom 4
- \fi\fi\fi\fi}
-\def\@adamanee{%
- \yl@xdiff=20
- \yl@ydiff=110
- \if\@tmpb a%1998/10/24 by SF
- \put(60,240){\line(1,-5){30}}% %bond 5
- \put(70,-20){\hbox to0pt{\@memberb \hss}}% %atom 5
- \else \ifx\@tmpb\empty%
- \put(60,240){\line(1,-5){30}}% %bond 5
- \put(70,-20){\hbox to0pt{\@memberb \hss}}% %atom 5
- \fi\fi}
-\def\@adamanef{%
- \if\@tmpb a%
- \yl@xdiff=33
- \yl@ydiff=103
- \put(0,0){\line(4,-3){103}}% %bond 6-ax
- \put(70,-180){\hbox to0pt{\@memberb \hss}}% %atom 6-ax
- \else \if\@tmpb b%
- \yl@xdiff=-33
- \yl@ydiff=103
- \put(0,0){\line(-4,-3){103}}% %bond 6-eq
- \put(-70,-180){\hbox to0pt{\hss \@memberb}}% %atom 6-eq
- \else \ifx\@tmpb\empty%
- \yl@xdiff=22
- \yl@ydiff=94
- \put(0,0){\line(0,-1){108}}% %bond 6
- \put(-22,-202){\hbox to0pt{\hss \@memberb}}% %atom 6
- \else \if\@tmpb D%
- \yl@xdiff=42
- \yl@ydiff=94
- \put(-12,0){\line(0,-1){108}}% %double bond 6
- \put(12,0){\line(0,-1){108}}% %double bond 6
- \putlratom{-42}{-202}{\@memberb}% %atom 6
- \fi\fi\fi\fi}
-\def\@adamaneg{%
- \yl@xdiff=-20
- \yl@ydiff=110
- \if\@tmpb a%1998/10/24 by SF
- \put(-60,240){\line(-1,-5){30}}% %bond 7
- \put(-70,-20){\hbox to0pt{\hss \@memberb}}% %atom 7
- \else \ifx\@tmpb\empty%
- \put(-60,240){\line(-1,-5){30}}% %bond 7
- \put(-70,-20){\hbox to0pt{\hss \@memberb}}% %atom 7-eq
- \fi\fi}
-\def\@adamaneh{%
- \if\@tmpb a%
- \yl@xdiff=17
- \yl@ydiff=33
- \put(-300,420){\line(-4,-3){103}}% %bond 8-ax
- \put(-420,310){\hbox to0pt{\hss \@memberb}}% %atom 8-ax
- \else \if\@tmpb b%
- \yl@xdiff=-26
- \yl@ydiff=-16
- \put(-300,420){\line(-1,4){26}}% %bond 8-eq
- \put(-300,540){\hbox to0pt{\hss \@memberb}}% %atom 8-eq
- \else \ifx\@tmpb\empty%
- \yl@xdiff=17
- \yl@ydiff=33
- \put(-300,420){\line(-4,-3){103}}% %bond 8
- \put(-420,310){\hbox to0pt{\hss \@memberb}}% %atom 8
- \else \if\@tmpb D%
- \yl@xdiff=17
- \yl@ydiff=50
- \put(-300,432){\line(-5,-3){103}}% %double bond 8
- \put(-303,408){\line(-5,-3){103}}% %double bond 8
- \put(-420,310){\hbox to0pt{\hss \@memberb}}% %atom 8
- \fi\fi\fi\fi}
-\def\@adamanei{%
- \if\@tmpb a%
- \yl@xdiff=-43
- \yl@ydiff=93
- \put(-180,420){\line(-4,-3){103}}% %bond 9-ax
- \put(-240,250){\hbox to0pt{\hss \@memberb}}% %atom 9-ax
- \else \if\@tmpb b%
- \yl@xdiff=26
- \yl@ydiff=-16
- \put(-180,420){\line(1,4){26}}% %bond 9-eq
- \put(-180,540){\hbox to0pt{\@memberb \hss}}% %atom 9-eq
- \else \ifx\@tmpb\empty%
- \yl@xdiff=17
- \yl@ydiff=93
- \put(-180,420){\line(-4,-3){103}}% %bond 9
- \put(-300,250){\hbox to0pt{\hss \@memberb}}% %atom 9
- \else \if\@tmpb D%
- \yl@xdiff=17
- \yl@ydiff=113
- \put(-183,432){\line(-5,-3){103}}% %double bond 9
- \put(-180,408){\line(-5,-3){103}}% %double bond 9
- \put(-300,250){\hbox to0pt{\hss \@memberb}}% %atom 9
- \fi\fi\fi\fi}
-\def\@adamanej{%
- \if\@tmpb a%
- \yl@xdiff=43
- \yl@ydiff=92
- \put(180,420){\line(4,-3){103}}% %bond 10-ax
- \put(240,250){\hbox to0pt{\@memberb \hss}}% %atom 10-ax
- \else \if\@tmpb b%
- \yl@xdiff=-26
- \yl@ydiff=-16
- \put(180,420){\line(-1,4){26}}% %bond 10-eq
- \put(180,540){\hbox to0pt{\hss \@memberb}}% %atom 10-eq
- \else \ifx\@tmpb\empty%
- \yl@xdiff=43
- \yl@ydiff=92
- \put(180,420){\line(4,-3){103}}% %bond 10
- \put(240,250){\hbox to0pt{\@memberb \hss}}% %atom 10
- \else \if\@tmpb D%
- \yl@xdiff=3
- \yl@ydiff=112
- \put(176,432){\line(5,-3){103}}% %double bond 10
- \put(172,408){\line(5,-3){103}}% %double bond 10
- \put(280,250){\hbox to0pt{\@memberb \hss}}% %atom 10
- \fi\fi\fi\fi}
-\def\adamantane{\@ifnextchar[{\@mantane}{\@damantane[Z]}}
-\def\@damantane[#1]#2{%
-\@reset@ylsw%
-\yladamanposition{#2}%
-\def\@@ylii{0}\def\@@yli{0}%
-\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)
-\else
- \begin{picture}(1100,1300)(-550,-300)
- \iforigpt \put(-550,-300){\circle*{50}}%
- \put(0,0){\circle{50}}%
- \typeout{command `adamantane' origin: (0,0) ---> (550,300)}
- \fi%
-\fi
- \put(0,0){\line(-1,4){60}}% %bond 6-7
- \put(0,780){\line(2,-1){240}}% %bond 2-3
- \put(0,780){\line(-2,-1){240}}% %bond 2-1
- \put(-60,240){\line(-4,3){240}}% %bond 7-8
- \put(-300,420){\line(1,4){60}}% %bond 8-1
- \put(240,660){\line(-1,-4){60}}% %bond 3-10
- \put(-60,240){\line(4,3){240}}% %bond 10-7
-{\thicklines%
- \put(300,420){\line(-1,4){60}}% %bond 4-3
- \put(-240,660){\line(1,-4){60}}% %bond 1-9
- \put(0,0){\line(1,4){60}}% %bond 6-5
- \put(60,240){\line(4,3){240}}% %bond 5-4
- \put(60,240){\line(-4,3){240}}% %bond 5-9
-}%
-\@forsemicol\member:=#2\do{%
-\ifx\member\empty\else
-\expandafter\@m@mb@r\member;\relax%
-\expandafter\threech@r\@membera{}{}\relax%
-\ifx\@memberb\@yl\else
-\ifcase\@tmpa%0 omit
-\or\@adamanea% subst. on 1
-\or\@adamaneb% subst. on 2
-\or\@adamanec% subst. on 3
-\or\@adamaned% subst. on 4
-\or\@adamanee% subst. on 5
-\or\@adamanef% subst. on 6
-\or\@adamaneg% subst. on 7
-\or\@adamaneh% subst. on 8
-\or\@adamanei% subst. on 9
-\or\@adamanej% subst. on 10
-\fi%the end of ifcase
-\fi\fi}%
-\end{picture}} %end of \adamantane macro%
-\def\yladamanposition#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%0 omit
- \or\gdef\@ylii{240}\gdef\@yli{-660}\global\@ylswtrue% subst. on 1
- \or\gdef\@ylii{0}\gdef\@yli{-780}\global\@ylswtrue% subst. on 2
- \or\gdef\@ylii{-240}\gdef\@yli{-660}\global\@ylswtrue% subst. on 3
- \or\gdef\@ylii{-300}\gdef\@yli{-420}\global\@ylswtrue% subst. on 4
- \or\gdef\@ylii{-60}\gdef\@yli{-240}\global\@ylswtrue% subst. on 5
- \or\gdef\@ylii{0}\gdef\@yli{0}\global\@ylswtrue% subst. on 6
- \or\gdef\@ylii{60}\gdef\@yli{-240}\global\@ylswtrue% subst. on 7
- \or\gdef\@ylii{300}\gdef\@yli{-420}\global\@ylswtrue% subst. on 8
- \or\gdef\@ylii{180}\gdef\@yli{-420}\global\@ylswtrue% subst. on 9
- \or\gdef\@ylii{-180}\gdef\@yli{-420}\global\@ylswtrue% subst. on 10
-\fi%end of ifcase
-\fi\fi\fi}}%
-\def\hadamantane{\@ifnextchar[{\@hadamantane}{\@hadamantane[H]}}
-\def\@hadamantane[#1]#2{%
-\@reset@ylsw%
-\ylhadamanposition{#2}%
-\def\@@ylii{0}\def\@@yli{0}%
-\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)
-\else
- \begin{picture}(1600,1400)(-400,-319)
- \iforigpt \put(-400,-319){\circle*{50}}%
- \put(0,0){\circle{50}}%
- \typeout{command `hadamantane' origin: (0,0) ---> (400,319)}
- \fi%
-\fi
- \thinlines%
- \put(0,0){\line(3,4){170}}% % bond 6 to 7
- \put(170,226){\line(3,-1){403}}% % 7 to 10
- \put(573,91){\line(3,1){270}}% % 10 to 3
- \put(170,226){\line(0,1){360}}% % 7 to 8
- \put(170,586){\line(3,1){270}}% % 8 to 1
- \put(843,181){\line(0,1){360}}% % 3 to 2
- \put(843,541){\line(-3,1){403}}% % 2 to 1
- \thicklines%
- \put(843,181){\line(-3,-4){170}}% % 3 to 4
- \put(673,-46){\line(-3,1){403}}% % 4 to 5
- \put(0,0){\line(3,1){270}}% % 6 to 5
- \put(270,90){\line(0,1){360}}% % 5 to 9
- \put(270,450){\line(3,4){170}}% % 9 to 1
- \thinlines%
-\@tfor\member:=#1\do{%
-\if\member r%no endocyclic bonds
-\else \if\member a%
- \put(450,636){\line(3,-1){373}}% % double bond 1 to 2
-\else \if\member b%
- \put(803,206){\line(0,1){320}}% % 3 to 2
-\else \if\member c%%%a%
- \put(767,139){\line(-3,-4){110}}% % 3 to 4
-\else \if\member d%%%b%
- \put(640,-5){\line(-3,1){343}}% % 4 to 5
-\else \if\member e%%%%c%
- \put(240,111){\line(-3,-1){190}}% % 5 to 6
-\else \if\member f%%%d%
- \put(63,40){\line(3,4){110}}% % 6 to 7
-\else \if\member g%
- \put(200,246){\line(0,1){320}}% % 7 to 8
-\else \if\member h%
- \put(400,626){\line(-3,-1){190}}% % 8 to 1
-\else \if\member i%
- \put(450,636){\line(-3,-4){150}}% % 9 to 1
-\else \if\member j%
- \put(300,110){\line(0,1){320}}% % 5 to 9
-\else \if\member k%%%f%
- \put(768,131){\line(-3,-1){170}}% % 3 to 10
-\else \if\member l%
- \put(182,187){\line(3,-1){343}}% % 7 to 10
-\fi\fi\fi\fi\fi\fi%
-\fi\fi\fi\fi\fi\fi\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% %0 omit
- \or \put(440,676){\@chairiI}% %subst. on 1%%%9
- \or \put(843,541){\@chairiII}% %subst. on 2%%10
- \or \@chairiIII% %subst. on 3%%%4
- \or \@chairiIV% %subst. on 4%%%3
- \or \@chairiV% %subst. on 5%%%2
- \or \@chairiVI% %subst. on 6%%%1
- \or \@chairiVII% %subst. on 7%%%6
- \or \put(170,586){\@chairiVIII}%subst. on 8%%%8
- \or \put(270,450){\@chairiIX}% %subst. on 9%%%7
- \or \@chairiX% %subst. on 10%%5
-\fi %end of ifcase
-\fi\fi%
-}\end{picture}}% %end of \hadamantane macro
-\def\ylhadamanposition#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%0 omit
- \or\gdef\@ylii{-440}\gdef\@yli{-676}\global\@ylswtrue% subst. on 1
- \or\gdef\@ylii{-843}\gdef\@yli{-541}\global\@ylswtrue% subst. on 2
- \or\gdef\@ylii{-843}\gdef\@yli{-181}\global\@ylswtrue% subst. on 3
- \or\gdef\@ylii{-673}\gdef\@yli{46}\global\@ylswtrue% subst. on 4
- \or\gdef\@ylii{-270}\gdef\@yli{-90}\global\@ylswtrue% subst. on 5
- \or\gdef\@ylii{0}\gdef\@yli{0}\global\@ylswtrue% subst. on 6
- \or\gdef\@ylii{-170}\gdef\@yli{-226}\global\@ylswtrue% subst. on 7
- \or\gdef\@ylii{-170}\gdef\@yli{-586}\global\@ylswtrue% subst. on 8
- \or\gdef\@ylii{-270}\gdef\@yli{-450}\global\@ylswtrue% subst. on 9
- \or\gdef\@ylii{-573}\gdef\@yli{-91}\global\@ylswtrue% subst. on 10
-\fi%end of ifcase
-\fi\fi\fi}}%
-\def\@chairiVI{%
- \if\@tmpb a%single bond
- \yl@xdiff=42
- \yl@ydiff=92
- \put(0,0){\line(0,-1){168}}% single bond at 6 axial
- \putlratom{-42}{-260}{\@memberb}% left & right type
- \else\if\@tmpb b%single bond
- \yl@xdiff=16
- \yl@ydiff=36
- \put(0,0){\line(-5,3){144}}% single bond at 6 equatorial
- \putlatom{-160}{50}{\@memberb}% left type
- \else\if\@tmpb S%single bond
- \ifx\@tmpc\empty%
- \yl@xdiff=10
- \yl@ydiff=90
- \put(0,0){\line(-1,-1){120}}% single bond at 6
- \putlatom{-130}{-210}{\@memberb}% left type
- \else\if\@tmpc a%(a) axial
- \yl@xdiff=42
- \yl@ydiff=92
- \put(0,0){\line(0,-1){168}}% single bond at 6 axial
- \putlratom{-42}{-260}{\@memberb}% left & right type
- \else\if\@tmpc e%(e) beta
- \yl@xdiff=16
- \yl@ydiff=36
- \put(0,0){\line(-5,3){144}}% single bond at 6 equatorial
- \putlatom{-160}{50}{\@memberb}% left type
- \fi\fi\fi%
- \else \if\@tmpb D%double bond
- \yl@xdiff=10
- \yl@ydiff=90
- \putlatom{-130}{-210}{\@memberb}% left type
- \put(-10,10){\line(-1,-1){120}}% double bond at 6
- \put(10,-10){\line(-1,-1){120}}% double bond at 6
- \else%
- \yl@xdiff=10
- \yl@ydiff=90
- \putlatom{-130}{-210}{\@memberb}% left type
- \put(0,0){\line(-1,-1){120}}% single bond at 6
- \fi\fi\fi\fi}%
-\def\@chairiVII{%
- \if\@tmpb a%single bond
- \yl@xdiff=26
- \yl@ydiff=46
- \put(170,226){\line(-5,-3){144}}% single bond at 7 equatorial
- \putlatom{10}{94}{\@memberb}% left type
- \else\ifx\@tmpb\empty%single bond
- \yl@xdiff=26
- \yl@ydiff=46
- \put(170,226){\line(-5,-3){144}}% single bond at 7 equatorial
- \putlatom{10}{94}{\@memberb}% left type
- \else\if\@tmpb S%single bond
- \ifx\@tmpc\empty%
- \yl@xdiff=10
- \yl@ydiff=30
- \put(170,226){\line(-1,1){120}}% single bond at 7
- \putratom{40}{316}{\@memberb}% left type
- \else\if\@tmpc a%(a) axial
- \yl@xdiff=32
- \yl@ydiff=12
- \put(170,226){\line(0,1){168}}% single bond at 7 axial
- \putlratom{138}{406}{\@memberb}% left & right type
- \else\if\@tmpc e%(e) beta
- \yl@xdiff=26
- \yl@ydiff=46
- \put(170,226){\line(-5,-3){144}}% single bond at 7 equatorial
- \putlatom{10}{94}{\@memberb}% left type
- \fi\fi\fi%
- \else \if\@tmpb D%double bond
- \yl@xdiff=10
- \yl@ydiff=30
- \putlatom{40}{316}{\@memberb}% left type
- \put(160,216){\line(-1,1){120}}% double bond at 7
- \put(180,236){\line(-1,1){120}}% double bond at 7
- \else%
- \yl@xdiff=10
- \yl@ydiff=30
- \putlatom{40}{316}{\@memberb}% left type
- \put(170,226){\line(-1,1){120}}% single bond at 7
- \fi\fi\fi\fi}%
-\def\@chairiX{%
- \if\@tmpb a%single bond
- \yl@xdiff=40
- \yl@ydiff=104
- \put(573,91){\line(0,-1){168}}% single bond at 5 axial
- \putlratom{533}{-181}{\@memberb}% left type
- \else\if\@tmpb b%single bond
- \yl@xdiff=-36
- \yl@ydiff=3
- \put(573,91){\line(5,3){144}}% single bond at 5 equatorial
- \putlatom{753}{180}{\@memberb}% left type
- \else\if\@tmpb S%single bond
- \ifx\@tmpc\empty%
- \yl@xdiff=-10
- \yl@ydiff=56
- \put(573,91){\line(5,-4){170}}% single bond at 5
- \putratom{753}{-101}{\@memberb}% right type
- \else\if\@tmpc a%(a) axial
- \yl@xdiff=40
- \yl@ydiff=104
- \put(573,91){\line(0,-1){168}}% single bond at 5 axial
- \putlratom{533}{-181}{\@memberb}% left type
- \else\if\@tmpc e%(e) beta
- \yl@xdiff=-36
- \yl@ydiff=3
- \put(573,91){\line(5,3){144}}% single bond at 5 equatorial
- \putlatom{753}{180}{\@memberb}% left type
- \fi\fi\fi%
- \else \if\@tmpb D%double bond
- \yl@xdiff=10
- \yl@ydiff=86
- \putratom{733}{-141}{\@memberb}% right type
- \put(563,83){\line(5,-4){170}}% double bond at 5
- \put(583,99){\line(5,-4){170}}% double bond at 5
- \else%
- \yl@xdiff=-10
- \yl@ydiff=76
- \put(573,91){\line(5,-4){170}}% single bond at 5
- \putratom{753}{-121}{\@memberb}% right type
- \fi\fi\fi\fi}%
-\def\@chairiIII{%
- \if\@tmpb a%single bond
- \yl@xdiff=-16
- \yl@ydiff=64
- \put(843,181){\line(5,-3){144}}% single bond at 3 equatorial
- \putratom{1003}{31}{\@memberb}% right type
- \else\ifx\@tmpb\empty%single bond
- \yl@xdiff=-16
- \yl@ydiff=64
- \put(843,181){\line(5,-3){144}}% single bond at 3 equatorial
- \putratom{1003}{31}{\@memberb}% right type
- \else\if\@tmpb S%single bond
- \ifx\@tmpc\empty%
- \yl@xdiff=10
- \yl@ydiff=30
- \put(843,181){\line(1,1){120}}% single bond at 3
- \putratom{953}{271}{\@memberb}% right type
- \else\if\@tmpc a%(a) axial
- \yl@xdiff=42
- \yl@ydiff=11
- \put(843,181){\line(0,1){168}}% single bond at 3 axial
- \putlratom{801}{360}{\@memberb}% left & right type
- \else\if\@tmpc e%(e) beta
- \yl@xdiff=-16
- \yl@ydiff=64
- \put(843,181){\line(5,-3){144}}% single bond at 3 equatorial
- \putratom{1003}{31}{\@memberb}% right type
- \fi\fi\fi%
- \else \if\@tmpb D%double bond
- \yl@xdiff=0
- \yl@ydiff=30
- \putratom{953}{271}{\@memberb}% right type
- \put(833,191){\line(1,1){120}}% double bond at 3
- \put(853,171){\line(1,1){120}}% double bond at 3
- \else%
- \yl@xdiff=10
- \yl@ydiff=30
- \put(843,181){\line(1,1){120}}% single bond at 3
- \putratom{953}{271}{\@memberb}% right type
- \fi\fi\fi\fi}%
-\def\@chairiIV{%
- \if\@tmpb a%single bond
- \yl@xdiff=40
- \yl@ydiff=104
- \put(673,-46){\line(0,-1){168}}% single bond at 4 axial
- \putlratom{633}{-318}{\@memberb}% left & right type
- \else\if\@tmpb b%single bond
- \yl@xdiff=-6
- \yl@ydiff=17
- \put(673,-46){\line(5,3){144}}% single bond at 4 equatorial
- \putratom{823}{23}{\@memberb}% right type
- \else\if\@tmpb S%single bond
- \ifx\@tmpc\empty%
- \yl@xdiff=-10
- \yl@ydiff=92
- \put(673,-46){\line(1,-1){120}}% single bond at 4
- \putratom{803}{-258}{\@memberb}% right type
- \else\if\@tmpc a%(a) axial
- \yl@xdiff=40
- \yl@ydiff=104
- \put(673,-46){\line(0,-1){168}}% single bond at 4 axial
- \putlratom{633}{-318}{\@memberb}% left & right type
- \else\if\@tmpc e%(e) beta
- \yl@xdiff=-6
- \yl@ydiff=17
- \put(673,-46){\line(5,3){144}}% single bond at 4 equatorial
- \putratom{823}{23}{\@memberb}% right type
- \fi\fi\fi%
- \else \if\@tmpb D%double bond
- \yl@xdiff=-10
- \yl@ydiff=92
- \putratom{803}{-258}{\@memberb}% right type
- \put(663,-53){\line(1,-1){120}}% double bond at 4
- \put(683,-38){\line(1,-1){120}}% double bond at 4
- \else%
- \yl@xdiff=-10
- \yl@ydiff=76
- \put(673,-46){\line(5,-4){170}}% single bond at 4
- \putratom{853}{-258}{\@memberb}% right type
- \fi\fi\fi\fi}%
-\def\@chairiV{%
- \if\@tmpb a%single bond
- \yl@xdiff=26
- \yl@ydiff=102
- \put(270,90){\line(-5,-3){144}}% single bond at 5 equatorial
- \putratom{100}{-98}{\@memberb}% left type
- \else\ifx\@tmpb\empty%single bond
- \yl@xdiff=26
- \yl@ydiff=102
- \put(270,90){\line(-5,-3){144}}% single bond at 5 equatorial
- \putratom{100}{-98}{\@memberb}% left type
- \else\if\@tmpb S%single bond
- \ifx\@tmpc\empty%
- \yl@xdiff=0
- \yl@ydiff=46
- \put(270,90){\line(-5,4){170}}% single bond at 5
- \putlatom{100}{180}{\@memberb}% left type
- \else\if\@tmpc a%(a) axial
- \yl@xdiff=32
- \yl@ydiff=12
- \put(270,90){\line(0,1){168}}% single bond at 5 axial
- \putlratom{238}{270}{\@memberb}% left type
- \else\if\@tmpc e%(e) beta
- \yl@xdiff=36
- \yl@ydiff=102
- \put(270,90){\line(-5,-3){144}}% single bond at 5 equatorial
- \putratom{100}{-98}{\@memberb}% left type
- \fi\fi\fi%
- \else \if\@tmpb D%double bond
- \yl@xdiff=0
- \yl@ydiff=36
- \putlatom{100}{200}{\@memberb}% left or right type
- \put(260,80){\line(-5,4){170}}% double bond at 5
- \put(280,100){\line(-5,4){170}}% double bond at 5
- \else%
- \yl@xdiff=0
- \yl@ydiff=26
- \putlatom{100}{200}{\@memberb}% left type
- \put(270,90){\line(-5,4){170}}% single bond at 5
- \fi\fi\fi\fi}%
-\def\@chairiI{%
- \if\@tmpb a%single bond
- \yl@xdiff=42
- \yl@ydiff=-10
- \put(0,0){\line(0,1){168}}% single bond at 1 axial
- \putlratom{-42}{178}{\@memberb}% left & right type
- \else\ifx\@tmpb\empty%
- \yl@xdiff=42
- \yl@ydiff=-10
- \put(0,0){\line(0,1){168}}% single bond at 1 axial
- \putlratom{-42}{178}{\@memberb}% left & right type
- \else\if\@tmpb S%single bond
- \ifx\@tmpc\empty%
- \yl@xdiff=42
- \yl@ydiff=-10
- \put(0,0){\line(0,1){168}}% single bond at 1 axial
- \putlratom{-42}{178}{\@memberb}% left & right type
- \else\if\@tmpc a%(a) axial
- \yl@xdiff=42
- \yl@ydiff=-10
- \put(0,0){\line(0,1){168}}% single bond at 1 axial
- \putlratom{-42}{178}{\@memberb}% left & right type
- \else\if\@tmpc e%(e) beta
- \yl@xdiff=42
- \yl@ydiff=-10
- \put(0,0){\line(0,1){168}}% single bond at 1 axial
- \putlratom{-42}{178}{\@memberb}% left & right type
- \fi\fi\fi%
- \else \if\@tmpb D%double bond
- \yl@xdiff=42
- \yl@ydiff=-10
- \put(0,0){\line(0,1){168}}% single bond at 1 axial
- \putlratom{-42}{178}{\@memberb}% left & right type
- \else%
- \yl@xdiff=42
- \yl@ydiff=-10
- \put(0,0){\line(0,1){168}}% single bond at 1 axial
- \putlratom{-42}{178}{\@memberb}% left & right type
- \fi\fi\fi\fi}%
-\def\@chairiII{%
- \if\@tmpb a%single bond
- \yl@xdiff=-10
- \yl@ydiff=13
- \put(0,0){\line(3,1){190}}% single bond at 6 equatorial
- \putratom{200}{50}{\@memberb}% right type
- \else\if\@tmpb b%single bond
- \yl@xdiff=-10
- \yl@ydiff=0
- \put(0,0){\line(3,4){120}}% % bond 1 to 6
- \putratom{130}{160}{\@memberb}% left type
- \else\if\@tmpb S%single bond
- \ifx\@tmpc\empty%
- \yl@xdiff=-10
- \yl@ydiff=-10
- \put(0,0){\line(1,1){120}}% single bond at 1
- \putratom{130}{130}{\@memberb}% left type
- \else\if\@tmpc a%(a) axial
- \yl@xdiff=-10
- \yl@ydiff=0
- \put(0,0){\line(3,4){120}}% % bond 1 to 6
- \putratom{130}{160}{\@memberb}% left type
- \else\if\@tmpc e%(e) beta
- \yl@xdiff=-10
- \yl@ydiff=13
- \put(0,0){\line(3,1){190}}% single bond at 6 equatorial
- \putratom{200}{50}{\@memberb}% right type
- \fi\fi\fi%
- \else \if\@tmpb D%double bond
- \yl@xdiff=-10
- \yl@ydiff=-10
- \putratom{130}{130}{\@memberb}% left type
- \put(-10,10){\line(1,1){120}}% double bond at 1
- \put(10,-10){\line(1,1){120}}% double bond at 1
- \else%
- \yl@xdiff=-10
- \yl@ydiff=-10
- \putratom{130}{130}{\@memberb}% left type
- \put(0,0){\line(1,1){120}}% single bond at 1
- \fi\fi\fi\fi}%
-\def\@chairiVIII{%
- \if\@tmpb a%single bond
- \yl@xdiff=16
- \yl@ydiff=36
- \put(0,0){\line(-5,3){144}}% single bond at 1 equatorial
- \putlatom{-160}{50}{\@memberb}% left type
- \else\if\@tmpb b%single bond
- \yl@xdiff=-10
- \yl@ydiff=0
- \put(0,0){\line(3,4){120}}% % bond 1 to 6
- \putratom{130}{160}{\@memberb}% left type
- \else\if\@tmpb S%single bond
- \ifx\@tmpc\empty%
- \yl@xdiff=4
- \yl@ydiff=36
- \put(0,0){\line(-5,3){144}}% single bond at 1 equatorial
- \putlatom{-140}{50}{\@memberb}% left type
- \else\if\@tmpc e% right-hand
- \yl@xdiff=-10
- \yl@ydiff=0
- \put(0,0){\line(3,4){120}}% % bond 1 to 6
- \putratom{130}{160}{\@memberb}% left type
- \else\if\@tmpc a% left-hand
- \yl@xdiff=16
- \yl@ydiff=36
- \put(0,0){\line(-5,3){144}}% single bond at 1 equatorial
- \putlatom{-160}{50}{\@memberb}% left type
- \fi\fi\fi%
- \else \if\@tmpb D%double bond
- \yl@xdiff=4
- \yl@ydiff=26
- \putlatom{-140}{60}{\@memberb}% left type
- \put(10,10){\line(-5,3){144}}% single bond at 1 equatorial
- \put(0,-10){\line(-5,3){144}}% single bond at 1 equatorial
- \else%
- \yl@xdiff=4
- \yl@ydiff=36
- \put(0,0){\line(-5,3){144}}% single bond at 1 equatorial
- \putlatom{-140}{50}{\@memberb}% left type
- \fi\fi\fi\fi}%
-\def\@chairiIX{%
- \if\@tmpb a%single bond
- \yl@xdiff=16
- \yl@ydiff=36
- \put(0,0){\line(-5,3){144}}% single bond at 1 equatorial
- \putlatom{-160}{50}{\@memberb}% left type
- \else\if\@tmpb b%single bond
- \yl@xdiff=-16
- \yl@ydiff=36
- \put(0,0){\line(5,3){144}}% single bond at 6 equatorial
- \putratom{160}{50}{\@memberb}% left type
- \else\if\@tmpb S%single bond
- \ifx\@tmpc\empty%
- \yl@xdiff=4
- \yl@ydiff=36
- \put(0,0){\line(-5,3){144}}% single bond at 1 equatorial
- \putlatom{-140}{50}{\@memberb}% left type
- \else\if\@tmpc e% right-hand
- \yl@xdiff=-16
- \yl@ydiff=36
- \put(0,0){\line(5,3){144}}% single bond at 6 equatorial
- \putratom{160}{50}{\@memberb}% left type
- \else\if\@tmpc a% left-hand
- \yl@xdiff=16
- \yl@ydiff=36
- \put(0,0){\line(-5,3){144}}% single bond at 1 equatorial
- \putlatom{-160}{50}{\@memberb}% left type
- \fi\fi\fi%
- \else \if\@tmpb D%double bond
- \yl@xdiff=4
- \yl@ydiff=36
- \putlatom{-140}{50}{\@memberb}% left type
- \put(10,10){\line(-5,3){144}}% single bond at 1 equatorial
- \put(0,-10){\line(-5,3){144}}% single bond at 1 equatorial
- \else%
- \yl@xdiff=4
- \yl@ydiff=36
- \put(0,0){\line(-5,3){144}}% single bond at 1 equatorial
- \putlatom{-140}{50}{\@memberb}% left type
- \fi\fi\fi\fi}%
-\endinput
-%%
-%% End of file `ccycle.sty'.