diff options
Diffstat (limited to 'macros/latex/contrib/xymtex/base/ccycle.sty')
-rw-r--r-- | macros/latex/contrib/xymtex/base/ccycle.sty | 2007 |
1 files changed, 2007 insertions, 0 deletions
diff --git a/macros/latex/contrib/xymtex/base/ccycle.sty b/macros/latex/contrib/xymtex/base/ccycle.sty new file mode 100644 index 0000000000..54ead8ab35 --- /dev/null +++ b/macros/latex/contrib/xymtex/base/ccycle.sty @@ -0,0 +1,2007 @@ +%% +%% 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,2001,2002, 2004, 2009, 2010, 2013 by Shinsaku Fujita +%% all rights reserved. +%% This style file is created for drawing chemical structural formulas +%% This style file is to be contained in the ``xymtex'' directory which +%% is an input directory for TeX. +%% +%% This file is part of the XyMTeX system. +%% ======================================= +%% +%% Old Versions: +%% Version 1.01 Released on August 16, 1996 +%% Version 1.02 Released on October 31, 1996 +%% Version 2.00 Released on December 25, 1998 +%% Version 2.01 Released on June 20, 2001 (private version) +%% Version 3.00 Released on April 30, 2002 +%% Version 4.00 Released on May 30, 2002 (private version) +%% Version 4.01 Released on August 30, 2004 +%% Version 4.02 Released on December 20, 2004 +%% Version 4.04 Released on June 15, 2009 +%% Version 5.00 Released on October 01, 2010 +%% Version 5.01b Released on April 01, 2013 +%% Version 5.01bb Released on June 26, 2013 +%% +%% The Present Version: +%% Version 5.01 Released on July 23, 2013 +%% +%% This work may be distributed and/or modified under the +%% conditions of the LaTeX Project Public License, either version 1.3 +%% of this license or (at your option) any later version. +%% The latest version of this license is in +%% http://www.latex-project.org/lppl.txt +%% and version 1.3 or later is part of all distributions of LaTeX +%% version 2005/12/01 or later. +%% +%% This work has the LPPL maintenance status `maintained'. +%% The Current Maintainer of this work is Shinsaku Fujita. +%% +%% This work consists of the files ccycle.dtx and ccycle.ins +%% and the derived file ccycle.sty. +%% +%% ======================================= +%% +%% 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 5.01} +\typeout{ -- Released July 23, 2013 by Shinsaku Fujita} +\def\j@urnalname{ccycle} +\def\versi@ndate{July 23, 2013} +\def\versi@nno{ver5.01} +\def\copyrighth@lder{SF} % Shinsaku Fujita +\typeout{XyMTeX Macro File `\j@urnalname' (\versi@nno) <\versi@ndate>% +\space[\copyrighth@lder]} +\@ifundefined{setsixringv}{\input chemstr.sty\relax}{} +\unitlength=0.1pt +\@ifundefined{ifmolfront}{\newif\ifmolfront \molfrontfalse}{} +\def\@chaira{% + \if\@tmpb S%single bond + \ifx\@tmpc\empty% + \yl@xdiff=10 + \yl@ydiff=10 + \Put@Line(0,0)(-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@Line(0,0)(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@Line(0,0)(-5,-3){144}% single bond at 1 equatorial + \putlatom{-160}{-130}{\@memberb}% left type + \fi\fi\fi% + \else\if\@tmpb U%(U) alpha undefined + \yl@xdiff=10 + \yl@ydiff=10 + \putlatom{-130}{110}{\@memberb}% left type + {% + \WaveBonds% + \Put@Line(0,0)(-1,1){120}% single bond at 1 + }% + \else \if\@tmpb D%double bond + \yl@xdiff=10 + \yl@ydiff=10 + \Put@Line(-10,-10)(-1,1){120}% double bond at 1 + \Put@Line(10,10)(-1,1){120}% double bond at 1 + \putlatom{-130}{110}{\@memberb}% left type + \else% + \yl@xdiff=10 + \yl@ydiff=10 + \Put@Line(0,0)(-1,1){120}% single bond at 1 + \putlatom{-130}{110}{\@memberb}% left type + \fi\fi\fi}% +\def\@chairb{% + \if\@tmpb S%single bond + \ifx\@tmpc\empty% + \yl@xdiff=10 + \yl@ydiff=70 + \Put@Line(170,-226)(-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@Line(170,-226)(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@Line(170,-226)(-5,3){144}% single bond at 2 equatorial + \putlatom{10}{-174}{\@memberb}% left type + \fi\fi\fi% + \else\if\@tmpb U%(U) alpha undefined + \yl@xdiff=10 + \yl@ydiff=70 + \putlatom{40}{-416}{\@memberb}% left type + {% + \WaveBonds% + \Put@Line(170,-226)(-1,-1){120}% single bond at 2 + }% + \else \if\@tmpb D%double bond + \yl@xdiff=10 + \yl@ydiff=70 + \Put@Line(160,-216)(-1,-1){120}% double bond at 2 + \Put@Line(180,-236)(-1,-1){120}% double bond at 2 + \putlatom{40}{-416}{\@memberb}% left type + \else% + \yl@xdiff=10 + \yl@ydiff=70 + \Put@Line(170,-226)(-1,-1){120}% single bond at 2 + \putlatom{40}{-416}{\@memberb}% left type + \fi\fi\fi}% +\def\@chairc{% + \if\@tmpb S%single bond + \ifx\@tmpc\empty% + \yl@xdiff=-10 + \yl@ydiff=24 + \Put@Line(573,-91)(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@Line(573,-91)(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@Line(573,-91)(5,-3){144}% single bond at 3 equatorial + \putlatom{753}{-260}{\@memberb}% left type + \fi\fi\fi% + \else\if\@tmpb U%(U) alpha undefined + \yl@xdiff=-10 + \yl@ydiff=24 + \putratom{753}{21}{\@memberb}% right type + {% + \WaveBonds% + \Put@Line(573,-91)(5,4){170}% single bond at 3 + }% + \else \if\@tmpb D%double bond + \yl@xdiff=0 + \yl@ydiff=0 + \Put@Line(563,-83)(5,4){170}% double bond at 3 + \Put@Line(583,-99)(5,4){170}% double bond at 3 + \putratom{733}{41}{\@memberb}% right type + \else% + \yl@xdiff=-10 + \yl@ydiff=24 + \Put@Line(573,-91)(5,4){170}% single bond at 3 + \putratom{753}{21}{\@memberb}% right type + \fi\fi\fi}% +\def\@chaird{% + \if\@tmpb S%single bond + \ifx\@tmpc\empty% + \yl@xdiff=10 + \yl@ydiff=70 + \Put@Line(843,-181)(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@Line(843,-181)(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@Line(843,-181)(5,3){144}% single bond at 4 equatorial + \putratom{1003}{-111}{\@memberb}% right type + \fi\fi\fi% + \else\if\@tmpb U%(U) alpha undefined + \yl@xdiff=10 + \yl@ydiff=70 + \putratom{953}{-371}{\@memberb}% right type + {% + \WaveBonds% + \Put@Line(843,-181)(1,-1){120}% single bond at 4 + }% + \else \if\@tmpb D%double bond + \yl@xdiff=10 + \yl@ydiff=70 + \Put@Line(833,-191)(1,-1){120}% double bond at 4 + \Put@Line(853,-171)(1,-1){120}% double bond at 4 + \putratom{953}{-371}{\@memberb}% right type + \else% + \yl@xdiff=10 + \yl@ydiff=70 + \Put@Line(843,-181)(1,-1){120}% single bond at 4 + \putratom{953}{-371}{\@memberb}% right type + \fi\fi\fi}% +\def\@chaire{% + \if\@tmpb S%single bond + \ifx\@tmpc\empty% + \yl@xdiff=-10 + \yl@ydiff=10 + \Put@Line(673,46)(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@Line(673,46)(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@Line(673,46)(5,-3){144}% single bond at 5 equatorial + \putratom{823}{-103}{\@memberb}% right type + \fi\fi\fi% + \else\if\@tmpb U%(U) alpha undefined + \yl@xdiff=-10 + \yl@ydiff=10 + \putratom{803}{158}{\@memberb}% right type + {% + \WaveBonds% + \Put@Line(673,46)(1,1){120}% single bond at 5 + }% + \else \if\@tmpb D%double bond + \yl@xdiff=-10 + \yl@ydiff=10 + \Put@Line(663,53)(1,1){120}% double bond at 5 + \Put@Line(683,38)(1,1){120}% double bond at 5 + \putratom{803}{158}{\@memberb}% right type + \else% + \yl@xdiff=-10 + \yl@ydiff=24 + \Put@Line(673,46)(5,4){170}% single bond at 5 + \putratom{853}{158}{\@memberb}% right type + \fi\fi\fi}% +\def\@chairf{% + \if\@tmpb S%single bond + \ifx\@tmpc\empty% + \yl@xdiff=0 + \yl@ydiff=54 + \Put@Line(270,-90)(-5,-4){170}% single bond at 6 + \putlatom{100}{-280}{\@memberb}% left type + \else\if\@tmpc a%(a) axial + \yl@xdiff=32 + \yl@ydiff=92 + \Put@Line(270,-90)(0,-1){168}% single bond at 6 axial + \putlratom{238}{-350}{\@memberb}% left type + \else\if\@tmpc e%(e) beta + \yl@xdiff=26 + \yl@ydiff=-14 + \Put@Line(270,-90)(-5,3){144}% single bond at 6 equatorial + \putratom{100}{18}{\@memberb}% left type + \fi\fi\fi% + \else\if\@tmpb U%(U) alpha undefined + \yl@xdiff=0 + \yl@ydiff=54 + \putlatom{100}{-280}{\@memberb}% left type + {% + \WaveBonds% + \Put@Line(270,-90)(-5,-4){170}% single bond at 6 + }% + \else \if\@tmpb D%double bond + \yl@xdiff=0 + \yl@ydiff=54 + \Put@Line(260,-80)(-5,-4){170}% double bond at 2 + \Put@Line(280,-100)(-5,-4){170}% double bond at 2 + \putlatom{100}{-280}{\@memberb}% left or right type + \else% + \yl@xdiff=0 + \yl@ydiff=54 + \Put@Line(270,-90)(-5,-4){170}% single bond at 2 + \putlatom{100}{-280}{\@memberb}% left type + \fi\fi\fi}% +\def\chair{\@ifnextchar[{\@chair}{\@chair[r]}} +\def\@chair[#1]#2{% +\@reset@ylsw% +\ylchairposition{#2}% +\def\@@ylii{0}\def\@@yli{0}% +\begin{ShiftPicEnvB}(0,0)(-\yl@shiftii,-\yl@shifti)/% +(1600,800)(-400,-500){chair}% +(400,500)%2002/4/30 by S. Fujita + {\thicklines% + \molfronttrue% + \Put@Line(0,0)(3,-4){170}% % bond 1 to 2 + \Put@Line(170,-226)(3,1){403}% % 2 to 3 + \Put@Line(573,-91)(3,-1){270}% % 3 to 4 + }% + \thinlines% + \Put@Line(843,-181)(-3,4){170}% % 4 to 5 + \Put@Line(673,46)(-3,-1){403}% % 5 to 6 + \Put@Line(0,0)(3,-1){270}% % 1 to 6 +\@tfor\member:=#1\do{% +\if\member r%no endcyclic bonds +\else \if\member a% + \Put@Line(76,-42)(3,-4){110}% % double bond 1 to 2 +\else \if\member b% + \Put@Line(200,-186)(3,1){343}% % 2 to 3 +\else \if\member c% + \Put@Line(603,-70)(3,-1){190}% % 3 to 4 +\else \if\member d% + \Put@Line(780,-141)(-3,4){110}% % 4 to 5 +\else \if\member e% + \Put@Line(661,6)(-3,-1){343}% % 5 to 6 +\else \if\member f% + \Put@Line(75,-50)(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\setBScolor{\@chaira}% subst. on 1 + \or\setBScolor{\@chairb}% subst. on 2 + \or\setBScolor{\@chairc}% subst. on 3 + \or\setBScolor{\@chaird}% subst. on 4 + \or\setBScolor{\@chaire}% subst. on 5 + \or\setBScolor{\@chairf}% subst. on 6 +\fi%end of ifcase +\fi\fi% +}% +\end{ShiftPicEnvB}% +}% %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@Line(0,0)(-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@Line(0,0)(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@Line(0,0)(-5,3){144}% single bond at 1 equatorial + \putlatom{-160}{50}{\@memberb}% left type + \fi\fi\fi% + \else\if\@tmpb U%(U) alpha undefined + \yl@xdiff=10\relax + \yl@ydiff=90\relax + \putlatom{-130}{-210}{\@memberb}% % left type + {% + \WaveBonds% + \Put@Line(0,0)(-1,-1){120}% % single bond at 1 + }% + \else \if\@tmpb D%double bond + \yl@xdiff=10 + \yl@ydiff=90 + \Put@Line(-10,10)(-1,-1){120}% double bond at 1 + \Put@Line(10,-10)(-1,-1){120}% double bond at 1 + \putlatom{-130}{-210}{\@memberb}% left type + \else% + \yl@xdiff=10 + \yl@ydiff=90 + \Put@Line(0,0)(-1,-1){120}% single bond at 1 + \putlatom{-130}{-210}{\@memberb}% left type + \fi\fi\fi}% +\def\@chairif{% + \if\@tmpb S%single bond + \ifx\@tmpc\empty% + \yl@xdiff=10 + \yl@ydiff=30 + \Put@Line(170,226)(-1,1){120}% single bond at 6 + \putratom{40}{316}{\@memberb}% right type + \else\if\@tmpc a%(a) axial + \yl@xdiff=32 + \yl@ydiff=-12 + \Put@Line(170,226)(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@Line(170,226)(-5,-3){144}% single bond at 6 equatorial + \putlatom{10}{94}{\@memberb}% left type + \fi\fi\fi% + \else\if\@tmpb U%(U) alpha undefined + \yl@xdiff=10\relax + \yl@ydiff=30\relax + \putratom{40}{316}{\@memberb}% right type + {% + \WaveBonds% + \Put@Line(170,226)(-1,1){120}% single bond at 6 + }% + \else \if\@tmpb D%double bond + \yl@xdiff=10 + \yl@ydiff=30 + \Put@Line(160,216)(-1,1){120}% double bond at 6 + \Put@Line(180,236)(-1,1){120}% double bond at 6 + \putlatom{40}{316}{\@memberb}% left type + \else% + \yl@xdiff=10 + \yl@ydiff=30 + \Put@Line(170,226)(-1,1){120}% single bond at 6 + \putlatom{40}{316}{\@memberb}% left type + \fi\fi\fi}% +\def\@chairie{% + \if\@tmpb S%single bond + \ifx\@tmpc\empty% + \yl@xdiff=-10 + \yl@ydiff=76 + \Put@Line(573,91)(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@Line(573,91)(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@Line(573,91)(5,3){144}% single bond at 5 equatorial + \putlatom{753}{180}{\@memberb}% left type + \fi\fi\fi% + \else\if\@tmpb U%(U) alpha undefined + \yl@xdiff=-10 + \yl@ydiff=76 + \putratom{753}{-101}{\@memberb}% right type + {% + \WaveBonds% + \Put@Line(573,91)(5,-4){170}% single bond at 5 + }% + \else \if\@tmpb D%double bond + \yl@xdiff=-10 + \yl@ydiff=96 + \Put@Line(563,83)(5,-4){170}% double bond at 5 + \Put@Line(583,99)(5,-4){170}% double bond at 5 + \putratom{733}{-141}{\@memberb}% right type + \else% + \yl@xdiff=-10 + \yl@ydiff=76 + \Put@Line(573,91)(5,-4){170}% single bond at 5 + \putratom{753}{-121}{\@memberb}% right type + \fi\fi\fi}% +\def\@chairid{% + \if\@tmpb S%single bond + \ifx\@tmpc\empty% + \yl@xdiff=10 + \yl@ydiff=30 + \Put@Line(843,181)(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@Line(843,181)(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@Line(843,181)(5,-3){144}% single bond at 4 equatorial + \putratom{1003}{31}{\@memberb}% right type + \fi\fi\fi% + \else\if\@tmpb U%(U) alpha undefined + \yl@xdiff=10 + \yl@ydiff=30 + \putratom{953}{271}{\@memberb}% right type + {% + \WaveBonds% + \Put@Line(843,181)(1,1){120}% single bond at 4 + }% + \else \if\@tmpb D%double bond + \yl@xdiff=10 + \yl@ydiff=30 + \Put@Line(833,191)(1,1){120}% double bond at 4 + \Put@Line(853,171)(1,1){120}% double bond at 4 + \putratom{953}{271}{\@memberb}% right type + \else% + \yl@xdiff=10 + \yl@ydiff=30 + \Put@Line(843,181)(1,1){120}% single bond at 4 + \putratom{953}{271}{\@memberb}% right type + \fi\fi\fi}% +\def\@chairic{% + \if\@tmpb S%single bond + \ifx\@tmpc\empty% + \yl@xdiff=-10 + \yl@ydiff=92 + \Put@Line(673,-46)(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@Line(673,-46)(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@Line(673,-46)(5,3){144}% single bond at 3 equatorial + \putratom{823}{23}{\@memberb}% right type + \fi\fi\fi% + \else\if\@tmpb U%(U) alpha undefined + \yl@xdiff=-10 + \yl@ydiff=92 + \putratom{803}{-258}{\@memberb}% right type + {% + \WaveBonds% + \Put@Line(673,-46)(1,-1){120}% single bond at 3 + }% + \else \if\@tmpb D%double bond + \yl@xdiff=-5 + \yl@ydiff=96 + \Put@Line(663,-53)(1,-1){120}% double bond at 3 + \Put@Line(683,-38)(1,-1){120}% double bond at 3 + \putratom{803}{-258}{\@memberb}% right type + \else% + \yl@xdiff=-10 + \yl@ydiff=76 + \Put@Line(673,-46)(5,-4){170}% single bond at 3 + \putratom{853}{-258}{\@memberb}% right type + \fi\fi\fi}% +\def\@chairib{% + \if\@tmpb S%single bond + \ifx\@tmpc\empty% + \yl@xdiff=0 + \yl@ydiff=46 + \Put@Line(270,90)(-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@Line(270,90)(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@Line(270,90)(-5,-3){144}% single bond at 2 equatorial + \putratom{100}{-98}{\@memberb}% left type + \fi\fi\fi% + \else\if\@tmpb U%(U) alpha undefined + \yl@xdiff=0 + \yl@ydiff=46 + \putlatom{100}{180}{\@memberb}% left type + {% + \WaveBonds% + \Put@Line(270,90)(-5,4){170}% single bond at 2 + }% + \else \if\@tmpb D%double bond + \yl@xdiff=0 + \yl@ydiff=26 + \Put@Line(260,80)(-5,4){170}% double bond at 2 + \Put@Line(280,100)(-5,4){170}% double bond at 2 + \putlatom{100}{200}{\@memberb}% left or right type + \else% + \yl@xdiff=0 + \yl@ydiff=26 + \Put@Line(270,90)(-5,4){170}% single bond at 2 + \putlatom{100}{200}{\@memberb}% left type + \fi\fi\fi}% +\def\chairi{\@ifnextchar[{\@chairi}{\@chairi[r]}} +\def\@chairi[#1]#2{% +\@reset@ylsw% +\ylchairiposition{#2}% +\def\@@ylii{0}\def\@@yli{0}% +\begin{ShiftPicEnvB}(0,0)(-\yl@shiftii,-\yl@shifti)/% +(1600,800)(-400,-319){chairi}% +(400,319)%2002/4/30 by S. Fujita + \thinlines% + \Put@Line(0,0)(3,4){170}% % bond 1 to 6 + \Put@Line(170,226)(3,-1){403}% % 6 to 5 + \Put@Line(573,91)(3,1){270}% % 5 to 4 + {\thicklines% + \molfronttrue% + \Put@Line(843,181)(-3,-4){170}% % 4 to 3 + \Put@Line(673,-46)(-3,1){403}% % 3 to 2 + \Put@Line(0,0)(3,1){270}% % 1 to 2 + }% + \thinlines% +\@tfor\member:=#1\do{% +\if\member r%no endcyclic bonds +\else \if\member c%%%a% + \Put@Line(767,139)(-3,-4){110}% % double bond 3 to 4 +\else \if\member b%%%d%%%b% + \Put@Line(640,-5)(-3,1){343}% % 4 to 5 +\else \if\member a%%%e%%%%c% + \Put@Line(240,111)(-3,-1){190}% % 5 to 6 +\else \if\member f%%%d% + \Put@Line(63,40)(3,4){110}% % 6 to 7 +\else \if\member e%%%l% + \Put@Line(182,187)(3,-1){343}% % 7 to 10 +\else \if\member d%%%k%%%f% + \Put@Line(768,131)(-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\setBScolor{\@chairia}% subst. on 1 + \or\setBScolor{\@chairib}% subst. on 2 + \or\setBScolor{\@chairic}% subst. on 3 + \or\setBScolor{\@chairid}% subst. on 4 + \or\setBScolor{\@chairie}% subst. on 5 + \or\setBScolor{\@chairif}% subst. on 6 +\fi %end of ifcase +\fi\fi% +}\end{ShiftPicEnvB}}% %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}% +\begin{ShiftPicEnv}(0,0)(-\yl@shiftii,-\yl@shifti)/% +(800,880)(-400,-240){bicychepv}% +(400,240)%2002/4/30 by S. Fujita + \Put@Line(0,406)(-5,-3){171}% %bond 1-6 + \Put@Line(0,406)(5,-3){171}% %bond 1-2 + \Put@Line(0,0)(-5,3){171}% %bond 4-5 + \Put@Line(0,0)(5,3){171}% %bond 4-3 + \Put@Line(171,103)(0,1){200}% %bond 3-2 + \Put@Line(-171,103)(0,1){200}% %bond 5-6 +{\thicklines% + \molfronttrue% + \Put@Line(0,0)(1,4){51}% %bond 4-7 + \Put@Line(0,406)(1,-4){51}}% %bond 1-7 +\@tfor\member:=#1\do{% +\if\member r%no endcyclic double bonds +\else \if\member a% + \Put@Line(6,364)(5,-3){126}% %double bond 1-2 +\else \if\member b% + \Put@Line(138,129)(0,1){148}% %double bond 3-2 +\else \if\member c% + \Put@Line(6,42)(5,3){126}% %double bond 4-3 +\else \if\member d% + \Put@Line(-6,42)(-5,3){126}% %double bond 4-5 +\else \if\member e% + \Put@Line(-138,129)(0,1){148}% %double bond 5-6 +\else \if\member f% + \Put@Line(-6,364)(-5,-3){126}% %double bond 1-6 +\else \if\member 7% + {\thicklines% + \Put@Line(51,204)(-1,0){70}% %7,7-dimethyl + \Put@Line(51,204)(1,0){70}}% +\else \if\member A%aromatic circle + \Put@oCircle(0,203){240}% %circle +\fi\fi\fi\fi\fi\fi\fi\fi\fi}% +\setsixringv{#2}{0}{0}{7}{0}% +\end{ShiftPicEnv}% +}% %end of \bicychepv macro +\def\bicycheph{\@ifnextchar[{\@bicycheph}{\@bicycheph[r]}} +\def\@bicycheph[#1]#2{% +\@reset@ylsw% +\ylpositionh{#2}{0}{0}{7}{0}% +\begin{ShiftPicEnv}(0,0)(-\yl@shiftii,-\yl@shifti)/% +(880,800)(-240,-400){bicycheph}% +(240,400)%2002/4/30 by S. Fujita + \Put@Line(0,0)(3,5){103}% %bond 1-2 + \Put@Line(0,0)(3,-5){103}% %bond 1-6 + \Put@Line(406,0)(-3,5){103}% %bond 4-3 + \Put@Line(406,0)(-3,-5){103}% %bond 4-3 + \Put@Line(103,171)(1,0){200}% %bond 2-3 + \Put@Line(103,-171)(1,0){200}% %bond 6-5 +{\thicklines% + \molfronttrue% + \Put@Line(0,0)(4,1){203}% %bond 4-7 + \Put@Line(406,0)(-4,1){203}}% %bond 1-7 +\@tfor\member:=#1\do{% +\if\member r%no endcyclic double bonds +\else \if\member a% + \Put@Line(42,6)(3,5){78}% %double bond 1-2 +\else \if\member b% + \Put@Line(129,138)(1,0){148}% %double bond 2-3 +\else \if\member c% + \Put@Line(364,6)(-3,5){78}% %double bond 4-3 +\else \if\member d% + \Put@Line(364,-6)(-3,-5){78}% %double bond 4-5 +\else \if\member e% + \Put@Line(129,-138)(1,0){148}% %double bond 6-5 +\else \if\member f% + \Put@Line(42,-6)(3,-5){78}% %double bond 1-6 +\else \if\member 7% + {\thicklines% + \Put@Line(204,51)(0,-1){70}% %7,7-dimethyl + \Put@Line(204,51)(0,1){70}}% +\else \if\member A%aromatic circle + \Put@oCircle(203,0){240}% %circle +\fi\fi\fi\fi\fi\fi\fi\fi\fi}% +\setsixringh{#2}{0}{0}{7}{0}% +\end{ShiftPicEnv}% +}% %end of \bicycheph macro +\def\@borna{% + \if\@tmpb S%single bond + \ifx\@tmpc\empty% + \yl@xdiff=8 + \yl@ydiff=3 + \Put@Line(318,247)(2,5){40}% % single bond 1 + \putratom{350}{360}{\@memberb}% % right type + \else\if\@tmpc a%(a) alpha + \yl@xdiff=8 + \yl@ydiff=3 + \Put@Line(318,247)(2,5){40}% % single bond 1 + \putratom{350}{360}{\@memberb}% % right type + \else\if\@tmpc b%(b) beta + \yl@xdiff=8 + \yl@ydiff=3 + \Put@Line(318,247)(2,5){40}% % single bond 1 + \putratom{350}{360}{\@memberb}% % right type + \fi\fi\fi% + \else\if\@tmpb U%(U) alpha undefined + \yl@xdiff=8\relax + \yl@ydiff=3\relax + {% + \WaveBonds% + \Put@Line(318,247)(2,5){40}% % wavy bond at 1 + }% + \putratom{350}{360}{\@memberb}% % right type + \else\if\@tmpb A%(A) alpha + \yl@xdiff=8\relax + \yl@ydiff=3\relax + \dotorline(318,247)(2,5){40}/(318,247)(358,347)% + \putratom{350}{360}{\@memberb}% % right type + \else\if\@tmpb B%(B) beta + \yl@xdiff=8\relax + \yl@ydiff=3\relax + {% + \thicklines% + \Put@Line(318,247)(2,5){40}% % wavy bond at 1 + }% + \putratom{350}{360}{\@memberb}% % right type + \else% + \yl@xdiff=8 + \yl@ydiff=3 + \Put@Line(318,247)(2,5){40}% % single bond 1 + \putratom{350}{360}{\@memberb}% % right type + \fi\fi\fi\fi + }% +\def\@bornb{% + \begin{sfpicture}(200,200)(0,0) + \if\@tmpb S%single bond + \ifx\@tmpc\empty% + \yl@xdiff=-10 + \yl@ydiff=20 + \Put@Line(0,0)(5,2){160}% + \putratom{170}{44}{\@memberb}% % left type + \else\if\@tmpc B%(B) beta%bug fix 2013/06/26 + \yl@xdiff=0 + \yl@ydiff=-5 + {% + \thicklines% + \Put@Line(0,0)(4,3){140}% % endo (a) + }% + \putratom{140}{115}{\@memberb}% % right type + \else\if\@tmpc A%(A) alpha%bug fix 2013/06/26 + \yl@xdiff=10 + \yl@ydiff=30 + \dotorline(0,0)(5,-2){140}/(0,0)(140,-56)% + \putratom{150}{-86}{\@memberb}% % right type + \else\if\@tmpc a%(a) alpha + \yl@xdiff=10 + \yl@ydiff=30 + \Put@Line(0,0)(5,-2){140}% % endo (a) + \putratom{150}{-86}{\@memberb}% % right type + \else\if\@tmpc b%(b) beta + \yl@xdiff=0 + \yl@ydiff=-10 + \Put@Line(0,0)(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@Line(-10,-15)(5,2){160}% + \Put@Line(-5,15)(5,2){160}% + \putratom{170}{44}{\@memberb}% % right type + \else \if\@tmpb B%beta single bond%bug fix 2013/06/26 + \yl@xdiff=-10 + \yl@ydiff=20 + {% + \thicklines% + \Put@Line(0,0)(5,2){160}% + }% + \putratom{170}{44}{\@memberb}% % right type + \else \if\@tmpb A%alpha single bond%bug fix 2013/06/26 + \yl@xdiff=-10 + \yl@ydiff=20 + \dotorline(0,0)(5,2){160}/(0,0)(160,64)% + \putratom{170}{44}{\@memberb}% % right type + \else\if\@tmpb U%(U) alpha undefined + \yl@xdiff=-10\relax + \yl@ydiff=20\relax + {% + \WaveBonds% + \Put@Line(0,0)(5,2){160}% % wavy bond at 2 + }% + \putratom{170}{44}{\@memberb}% % left type + \else% + \yl@xdiff=-10 + \yl@ydiff=20 + \Put@Line(0,0)(5,2){160}% + \putratom{170}{44}{\@memberb}% % right type + \fi\fi\fi\fi\fi\end{sfpicture}}% +\def\@bornc{% + \begin{sfpicture}(200,200)(0,0) + \if\@tmpb S%single bond + \ifx\@tmpc\empty% + \yl@xdiff=-10 + \yl@ydiff=30 + \Put@Line(0,0)(5,-2){140}% + \putratom{150}{-86}{\@memberb}% % right type + \else\if\@tmpc B%(B) beta%bug fix 2013/06/26 + \yl@xdiff=-10 + \yl@ydiff=30 + {% + \thicklines% + \Put@Line(0,0)(5,2){140}% % endo (a) + }% + \putratom{150}{26}{\@memberb}% % right type + \else\if\@tmpc A%(A) alpha%bug fix 2013/06/26 + \yl@xdiff=0 + \yl@ydiff=40 + \dotorline(0,0)(4,-3){140}/(0,0)(140,-105)%% exo (b) + \putratom{140}{-145}{\@memberb}% % right type + \else\if\@tmpc a%(a) alpha + \yl@xdiff=0 + \yl@ydiff=40 + \Put@Line(0,0)(4,-3){140}% % endo (a) + \putratom{140}{-145}{\@memberb}% % right type + \else\if\@tmpc b%(b) beta + \yl@xdiff=-10 + \yl@ydiff=30 + \Put@Line(0,0)(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@Line(10,15)(5,-2){160}% + \Put@Line(5,-15)(5,-2){160}% + \putratom{170}{-124}{\@memberb}% % right type + \else \if\@tmpb B%beta single bond%bug fix 2013/06/26 + \yl@xdiff=-10 + \yl@ydiff=30 + {% + \thicklines% + \Put@Line(0,0)(5,-2){140}% % endo (a) + }% + \putratom{150}{-86}{\@memberb}% % right type + \else \if\@tmpb A%alpha single bond%bug fix 2013/06/26 + \yl@xdiff=-10 + \yl@ydiff=30 + \dotorline(0,0)(5,-2){140}/(0,0)(140,-56)% exo (b) + \putratom{150}{-86}{\@memberb}% % right type + \else\if\@tmpb U%(U) alpha undefined + \yl@xdiff=-10\relax + \yl@ydiff=20\relax + {% + \WaveBonds% + \Put@Line(0,0)(5,2){160}% % wavy bond at 3 + }% + \putratom{170}{44}{\@memberb}% % left type + \else% + \yl@xdiff=-10 + \yl@ydiff=20 + \Put@Line(0,0)(5,2){160}% + \putratom{170}{44}{\@memberb}% % right type + \fi\fi\fi\fi\fi% +\end{sfpicture}}% +\def\@bornd{% + \if\@tmpb S%single bond + \ifx\@tmpc\empty% + \yl@xdiff=30 + \yl@ydiff=87 + \Put@Line(237,47)(-2,-5){40}% % single bond 4 + \putlratom{167}{-150}{\@memberb}% % left & right type + \else\if\@tmpc a%(a) alpha + \yl@xdiff=30 + \yl@ydiff=87 + \Put@Line(237,47)(-2,-5){40}% % single bond 4 + \putlratom{167}{-150}{\@memberb}% % left & right type + \else\if\@tmpc b%(b) beta + \yl@xdiff=30 + \yl@ydiff=87 + \Put@Line(237,47)(-2,-5){40}% % single bond 4 + \putlratom{167}{-150}{\@memberb}% % left & right type + \fi\fi\fi% + \else\if\@tmpb U%(U) alpha, beta undefined + \yl@xdiff=30\relax + \yl@ydiff=87\relax + {% + \WaveBonds% + \Put@Line(237,47)(-2,-5){40}% % single bond 4 + }% + \putlratom{167}{-150}{\@memberb}% % left & right type + \else\if\@tmpb A%(A) alpha + \yl@xdiff=30\relax + \yl@ydiff=87\relax + \dotorline(237,47)(-2,-5){40}/(237,47)(197,-53)% + \putlratom{167}{-150}{\@memberb}% % left & right type + \else\if\@tmpb B%(B) beta + \yl@xdiff=30\relax + \yl@ydiff=87\relax + {% + \thicklines% + \Put@Line(237,47)(-2,-5){40}% % single bond 4 + }% + \putlratom{167}{-150}{\@memberb}% % left & right type + \else% + \yl@xdiff=30 + \yl@ydiff=87 + \Put@Line(237,47)(-2,-5){40}% % single bond 4 + \putlratom{167}{-150}{\@memberb}% % left & right type + \fi\fi\fi\fi% + }% +\def\@borne{% + \begin{sfpicture}(200,200)(0,0) + \if\@tmpb S%single bond + \ifx\@tmpc\empty% + \yl@xdiff=10 + \yl@ydiff=30 + \Put@Line(0,0)(-5,-2){140}% + \putlatom{-150}{-86}{\@memberb}% % left type + \else\if\@tmpc B%(B) beta%bug fix 2013/06/26 + \yl@xdiff=10 + \yl@ydiff=30 + {% + \thicklines% + \Put@Line(0,0)(-5,2){140}% % endo (a) + }% + \putlatom{-150}{26}{\@memberb}% % left type + \else\if\@tmpc A%(A) alpha%bug fix 2013/06/26 + \yl@xdiff=0 + \yl@ydiff=40 + \dotorline(0,0)(-4,-3){140}/(0,0)(-140,-105)%% exo (b) + \putlatom{-140}{-145}{\@memberb}% % left type + \else\if\@tmpc a%(a) alpha + \yl@xdiff=0 + \yl@ydiff=30 + \Put@Line(0,0)(-4,-3){140}% % endo (a) + \putlatom{-140}{-145}{\@memberb}% % left type + \else\if\@tmpc b%(b) beta + \yl@xdiff=10 + \yl@ydiff=30 + \Put@Line(0,0)(-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@Line(-10,15)(-5,-2){160}% + \Put@Line(-5,-15)(-5,-2){160}% + \putlatom{-170}{-124}{\@memberb}% % left type + \else \if\@tmpb B%beta single bond%bug fix 2013/06/26 + \yl@xdiff=10 + \yl@ydiff=30 + {% + \thicklines% + \Put@Line(0,0)(-5,-2){140}% % endo (a) + }% + \putlatom{-150}{-86}{\@memberb}% % left type + \else \if\@tmpb A%alpha single bond%bug fix 2013/06/26 + \yl@xdiff=10 + \yl@ydiff=30 + \dotorline(0,0)(-5,-2){140}/(0,0)(-140,-56)%% exo (b) + \putlatom{-150}{-86}{\@memberb}% % left type + \else\if\@tmpb U%(U) alpha undefined + \yl@xdiff=10\relax + \yl@ydiff=20\relax + {% + \WaveBonds% + \Put@Line(0,0)(-5,2){160}% wavy bond at 5 + }% + \putlatom{-170}{44}{\@memberb}% % left type + \else% + \yl@xdiff=10 + \yl@ydiff=20 + \Put@Line(0,0)(-5,2){160}% + \putlatom{-170}{44}{\@memberb}% % left type + \fi\fi\fi\fi\fi% +\end{sfpicture}}% +\def\@bornf{% + \begin{sfpicture}(200,200)(0,0) + \if\@tmpb S%single bond + \ifx\@tmpc\empty% + \yl@xdiff=10 + \yl@ydiff=30 + \Put@Line(0,0)(-5,2){160}% + \putlatom{-170}{44}{\@memberb}% % left type + \else\if\@tmpc B%(B) beta%bug fix 2013/06/26 + \yl@xdiff=10 + \yl@ydiff=-10 + {% + \thicklines% + \Put@Line(0,0)(-4,3){140}% % endo (a) + }% + \putlatom{-140}{115}{\@memberb}% % left type + \else\if\@tmpc A%(A) alpha%bug fix 2013/06/26 + \yl@xdiff=0 + \yl@ydiff=30 + \dotorline(0,0)(-5,-2){140}/(0,0)(-140,-56)%% exo (b) + \putlatom{-150}{-86}{\@memberb}% % left type + \else\if\@tmpc a%(a) alpha + \yl@xdiff=10 + \yl@ydiff=30 + \Put@Line(0,0)(-5,-2){140}% % endo (a) + \putlatom{-150}{-86}{\@memberb}% % left type + \else\if\@tmpc b%(b) beta + \yl@xdiff=0 + \yl@ydiff=-10 + \Put@Line(0,0)(-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@Line(10,-15)(-5,2){160}% + \Put@Line(5,15)(-5,2){160}% + \putlatom{-170}{44}{\@memberb}% % left type + \else \if\@tmpb B%beta single bond%bug fix 2013/06/26 + \yl@xdiff=10 + \yl@ydiff=30 + {% + \thicklines% + \Put@Line(0,0)(-5,2){160}% + }% + \putlatom{-170}{44}{\@memberb}% % left type + \else \if\@tmpb A%alpha single bond%bug fix 2013/06/26 + \yl@xdiff=10 + \yl@ydiff=30 + \dotorline(0,0)(-5,2){160}/(0,0)(-160,64)% + \putlatom{-170}{44}{\@memberb}% % left type + \else\if\@tmpb U%(U) alpha undefined + \yl@xdiff=10\relax + \yl@ydiff=20\relax + {% + \WaveBonds% + \Put@Line(0,0)(-5,2){160}% wavy bond at 6 + }% + \putlatom{-170}{44}{\@memberb}% % left type + \else% + \yl@xdiff=10 + \yl@ydiff=20 + \Put@Line(0,0)(-5,2){160}% + \putlatom{-170}{44}{\@memberb}% % left type + \fi\fi\fi\fi\fi\end{sfpicture}}% +\def\@borng{% + \begin{sfpicture}(200,200)(0,0) + \if\@tmpb S%single bond + \ifx\@tmpc\empty% + \yl@xdiff=40 + \yl@ydiff=-20 + \Put@Line(0,0)(0,1){160}% + \putlratom{-40}{180}{\@memberb}% % left & right type + \else\if\@tmpc a%(a) left + \yl@xdiff=0 + \yl@ydiff=-10 + \Put@Line(0,0)(-4,3){140}% % left (a) + \putlatom{-140}{115}{\@memberb}% % left type + \else\if\@tmpc b%(b) right + \yl@xdiff=0 + \yl@ydiff=-10 + \Put@Line(0,0)(4,3){140}% % right (b) + \putratom{140}{115}{\@memberb}% % right type + \else\if\@tmpc U%(U) alpha undefined + \yl@xdiff=0\relax + \yl@ydiff=-10\relax + {% + \WaveBonds% + \Put@Line(0,0)(-4,3){140}% % left (U) + }% + \putlatom{-140}{115}{\@memberb}% % left type + \else\if\@tmpc V%(V) beta undefined + \yl@xdiff=0\relax + \yl@ydiff=-10\relax + {% + \WaveBonds% + \Put@Line(0,0)(4,3){140}% % right (V) + }% + \putratom{140}{115}{\@memberb}% % right type + \else\if\@tmpc A%(A) alpha + \yl@xdiff=0\relax + \yl@ydiff=-10\relax + \dotorline(0,0)(-4,3){140}/(0,0)(-140,105)% + \putlatom{-140}{115}{\@memberb}% % left type + \else\if\@tmpc B%(B) beta + \yl@xdiff=0\relax + \yl@ydiff=-10\relax + {% + \thicklines% + \Put@Line(0,0)(4,3){140}% % + }% + \putratom{140}{115}{\@memberb}% % right type + \else\if\@tmpc u%(u) beta alternative + \yl@xdiff=0\relax + \yl@ydiff=-10\relax + {% + \thicklines% + \Put@Line(0,0)(-4,3){140}% % + }% + \putlatom{-140}{115}{\@memberb}% % left type + \else\if\@tmpc d%(d) alpha alternative + \yl@xdiff=0\relax + \yl@ydiff=-10\relax + \dotorline(0,0)(4,3){140}/(0,0)(140,105)% + \putratom{140}{115}{\@memberb}% % right type + \fi\fi\fi\fi\fi\fi\fi\fi\fi + %\fi\fi% + \else \if\@tmpb D%double bond + \yl@xdiff=40 + \yl@ydiff=-20 + \Put@Line(-10,0)(0,1){160}% + \Put@Line(10,0)(0,1){160}% + \putlratom{-40}{180}{\@memberb}% % left & right type + \else% + \yl@xdiff=40 + \yl@ydiff=-20 + \Put@Line(0,0)(0,1){160}% + \putlratom{-40}{180}{\@memberb}% % left & right type + \fi\fi\end{sfpicture}}% +\def\BackGroundColor{\color{white}}%default color for background 2013/07/23 +\newif\iffrontthicktothin \frontthicktothinfalse%default front thickline2013/06/24 +\def\bornane{\@ifnextchar[{\@bornane}{\@bornane[r]}} +\def\@bornane[#1]#2{% +\@reset@ylsw% +\ylbornaneposition{#2}% +\def\@@ylii{0}\def\@@yli{0}% +\begin{ShiftPicEnvB}(0,0)(-\yl@shiftii,-\yl@shifti)/% +(1000,1000)(-200,-240){bornane}% +(200,240)%2002/4/30 by S. Fujita + \thinlines% + \Put@Line(462,-43)(2,5){80}% % bond 3 to 2 (b) + \Put@Line(543,157)(-5,2){225}% % bond 2 to 1 (a) + \Put@Line(318,247)(-5,-1){237}% % bond 1 to 6 (f) + \Put@Line(80,200)(-2,-5){80}% % bond 6 to 5 (e) + \Put@Line(318,247)(-2,5){80}% % back part of bridge (g) + {\iffrontthicktothin\thinlines\else\thicklines\fi%2013/06/24 + \molfronttrue + \Put@Line(0,0)(5,1){237}% % bond 5 to 4 (d) + \Put@Line(237,47)(5,-2){225}% % bond 4 to 3 (c) + {\def\thinLineWidth{5pt}\BackGroundColor% front-to-back crossing2013/06/24-07/23 + \thinlines% % + \Put@Line(237,200)(0,1){80}}% % front-to-back crossing2013/06/24-07/23 + \Put@Line(237,47)(0,1){400}% % front part of bridge (h) + }% +\@tfor\member:=#1\do{% +\if\member r%no endcyclic bonds +\else \if\member a%%%% + \Put@Line(513,127)(-5,2){180}% % bond 2 to 1 +\else \if\member b%%%% + \Put@Line(446,-3)(2,5){60}% % bond 3 to 2 +\else \if\member c%%%% + \Put@Line(267,77)(5,-2){180}% % bond 4 to 3 +\else \if\member d%%%% + \Put@Line(40,42)(5,1){180}% % double bond 5 to 4 +\else \if\member e%%% + \Put@Line(100,180)(-2,-5){60}% % bond 6 to 5 +\else \if\member f% + \Put@Line(288,207)(-5,-1){180}% % bond 1 to 6 +\else \if\member g% + \Put@Line(288,260)(-2,5){40}% % back part of bridge (g) +\else \if\member h% + \Put@Line(257,77)(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\setBScolor{\@borna}% subst. on 1 + \or\setBScolor{\Put@Direct(543,157){\@bornb}}% subst. on 2 + \or\setBScolor{\Put@Direct(462,-43){\@bornc}}% subst. on 3 + \or\setBScolor{\@bornd}% subst. on 4 + \or\setBScolor{\Put@Direct(0,0){\@borne}}% subst. on 5 + \or\setBScolor{\Put@Direct(80,200){\@bornf}}% subst. on 6 + \or\setBScolor{\Put@Direct(237,440){\@borng}}% subst. on 7 +\fi%end of ifcase +\fi\fi% +}% +\end{ShiftPicEnvB}% +\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@Direct(-360,720){\hbox to0pt{\hss \@memberb}}% %atom 1 + \if\@tmpb a% + \Put@Line(-240,660)(-4,3){108}% %bond 1 + \else \ifx\@tmpb\empty% + \Put@Line(-240,660)(-4,3){108}% %bond 1 + \fi\fi}% +\def\@adamaneb{% + \if\@tmpb a% + \yl@xdiff=6 + \yl@ydiff=-16 + \Put@Line(0,780)(1,4){26}% %bond 2-ax + \Put@Direct(20,900){\hbox to0pt{\@memberb \hss}}% %atom 2-ax + \else \if\@tmpb b% + \yl@xdiff=-6 + \yl@ydiff=-16 + \Put@Line(0,780)(-1,4){26}% %bond 2-eq + \Put@Direct(-20,900){\hbox to0pt{\hss \@memberb}}% %atom 2-eq + \else \ifx\@tmpb\empty% + \yl@xdiff=42 + \yl@ydiff=-22 + \Put@Direct(-42,910){\hbox to0pt{\hss \@memberb}}% %atom 2 + \Put@Line(0,780)(0,1){108}% %bond 2 + \else \if\@tmpb D% + \yl@xdiff=42 + \yl@ydiff=-22 + \putlratom{-42}{910}{\@memberb}% %atom 2 + \Put@Line(-12,780)(0,1){108}% %double bond 2 + \Put@Line(12,780)(0,1){108}% %double bond 2 + \fi\fi\fi\fi} +\def\@adamanec{% + \yl@xdiff=-12 + \yl@ydiff=21 + \Put@Direct(360,720){\hbox to0pt{\@memberb \hss}}% %atom 3 + \if\@tmpb a%1998/10/24 by SF + \Put@Line(240,660)(4,3){108}% %bond 3 + \else \ifx\@tmpb\empty% + \Put@Line(240,660)(4,3){108}% %bond 3 + \fi\fi} +\def\@adamaned{% + \if\@tmpb a% + \yl@xdiff=-17 + \yl@ydiff=33 + \Put@Line(300,420)(4,-3){103}% %bond 4-ax + \Put@Direct(420,310){\hbox to0pt{\@memberb \hss}}% %atom 4-ax + \else \if\@tmpb b% + \yl@xdiff=26 + \yl@ydiff=-26 + \Put@Line(300,420)(1,4){26}% %bond 4-eq + \Put@Direct(300,540){\hbox to0pt{\@memberb \hss}}% %atom 4-eq + \else \ifx\@tmpb\empty% + \yl@xdiff=-17 + \yl@ydiff=33 + \Put@Line(300,420)(4,-3){103}% %bond 4 + \Put@Direct(420,310){\hbox to0pt{\@memberb \hss}}% %atom 4 + \else \if\@tmpb D% + \yl@xdiff=-17 + \yl@ydiff=33 + \Put@Line(296,432)(5,-3){103}% %double bond 4 + \Put@Line(292,408)(5,-3){103}% %double bond 4 + \Put@Direct(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@Line(60,240)(1,-5){30}% %bond 5 + \Put@Direct(70,-20){\hbox to0pt{\@memberb \hss}}% %atom 5 + \else \ifx\@tmpb\empty% + \Put@Line(60,240)(1,-5){30}% %bond 5 + \Put@Direct(70,-20){\hbox to0pt{\@memberb \hss}}% %atom 5 + \fi\fi} +\def\@adamanef{% + \if\@tmpb a% + \yl@xdiff=33 + \yl@ydiff=103 + \Put@Line(0,0)(4,-3){103}% %bond 6-ax + \Put@Direct(70,-180){\hbox to0pt{\@memberb \hss}}% %atom 6-ax + \else \if\@tmpb b% + \yl@xdiff=-33 + \yl@ydiff=103 + \Put@Line(0,0)(-4,-3){103}% %bond 6-eq + \Put@Direct(-70,-180){\hbox to0pt{\hss \@memberb}}% %atom 6-eq + \else \ifx\@tmpb\empty% + \yl@xdiff=22 + \yl@ydiff=94 + \Put@Line(0,0)(0,-1){108}% %bond 6 + \Put@Direct(-22,-202){\hbox to0pt{\hss \@memberb}}% %atom 6 + \else \if\@tmpb D% + \yl@xdiff=42 + \yl@ydiff=94 + \Put@Line(-12,0)(0,-1){108}% %double bond 6 + \Put@Line(12,0)(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@Line(-60,240)(-1,-5){30}% %bond 7 + \Put@Direct(-70,-20){\hbox to0pt{\hss \@memberb}}% %atom 7 + \else \ifx\@tmpb\empty% + \Put@Line(-60,240)(-1,-5){30}% %bond 7 + \Put@Direct(-70,-20){\hbox to0pt{\hss \@memberb}}% %atom 7-eq + \fi\fi} +\def\@adamaneh{% + \if\@tmpb a% + \yl@xdiff=17 + \yl@ydiff=33 + \Put@Line(-300,420)(-4,-3){103}% %bond 8-ax + \Put@Direct(-420,310){\hbox to0pt{\hss \@memberb}}% %atom 8-ax + \else \if\@tmpb b% + \yl@xdiff=-26 + \yl@ydiff=-16 + \Put@Line(-300,420)(-1,4){26}% %bond 8-eq + \Put@Direct(-300,540){\hbox to0pt{\hss \@memberb}}% %atom 8-eq + \else \ifx\@tmpb\empty% + \yl@xdiff=17 + \yl@ydiff=33 + \Put@Line(-300,420)(-4,-3){103}% %bond 8 + \Put@Direct(-420,310){\hbox to0pt{\hss \@memberb}}% %atom 8 + \else \if\@tmpb D% + \yl@xdiff=17 + \yl@ydiff=50 + \Put@Line(-300,432)(-5,-3){103}% %double bond 8 + \Put@Line(-303,408)(-5,-3){103}% %double bond 8 + \Put@Direct(-420,310){\hbox to0pt{\hss \@memberb}}% %atom 8 + \fi\fi\fi\fi} +\def\@adamanei{% + \if\@tmpb a% + \yl@xdiff=-43 + \yl@ydiff=93 + \Put@Line(-180,420)(-4,-3){103}% %bond 9-ax + \Put@Direct(-240,250){\hbox to0pt{\hss \@memberb}}% %atom 9-ax + \else \if\@tmpb b% + \yl@xdiff=26 + \yl@ydiff=-16 + \Put@Line(-180,420)(1,4){26}% %bond 9-eq + \Put@Direct(-180,540){\hbox to0pt{\@memberb \hss}}% %atom 9-eq + \else \ifx\@tmpb\empty% + \yl@xdiff=17 + \yl@ydiff=93 + \Put@Line(-180,420)(-4,-3){103}% %bond 9 + \Put@Direct(-300,250){\hbox to0pt{\hss \@memberb}}% %atom 9 + \else \if\@tmpb D% + \yl@xdiff=17 + \yl@ydiff=113 + \Put@Line(-183,432)(-5,-3){103}% %double bond 9 + \Put@Line(-180,408)(-5,-3){103}% %double bond 9 + \Put@Direct(-300,250){\hbox to0pt{\hss \@memberb}}% %atom 9 + \fi\fi\fi\fi} +\def\@adamanej{% + \if\@tmpb a% + \yl@xdiff=43 + \yl@ydiff=92 + \Put@Line(180,420)(4,-3){103}% %bond 10-ax + \Put@Direct(240,250){\hbox to0pt{\@memberb \hss}}% %atom 10-ax + \else \if\@tmpb b% + \yl@xdiff=-26 + \yl@ydiff=-16 + \Put@Line(180,420)(-1,4){26}% %bond 10-eq + \Put@Direct(180,540){\hbox to0pt{\hss \@memberb}}% %atom 10-eq + \else \ifx\@tmpb\empty% + \yl@xdiff=43 + \yl@ydiff=92 + \Put@Line(180,420)(4,-3){103}% %bond 10 + \Put@Direct(240,250){\hbox to0pt{\@memberb \hss}}% %atom 10 + \else \if\@tmpb D% + \yl@xdiff=3 + \yl@ydiff=112 + \Put@Line(176,432)(5,-3){103}% %double bond 10 + \Put@Line(172,408)(5,-3){103}% %double bond 10 + \Put@Direct(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}% +\begin{ShiftPicEnvB}(0,0)(-\yl@shiftii,-\yl@shifti)/% +(1100,1300)(-550,-300){adamantane}% +(550,300)%2002/4/30 by S. Fujita + \Put@Line(0,0)(-1,4){60}% %bond 6-7 + \Put@Line(0,780)(2,-1){240}% %bond 2-3 + \Put@Line(0,780)(-2,-1){240}% %bond 2-1 + \Put@Line(-60,240)(-4,3){240}% %bond 7-8 + \Put@Line(-300,420)(1,4){60}% %bond 8-1 + \Put@Line(240,660)(-1,-4){60}% %bond 3-10 + \Put@Line(-60,240)(4,3){240}% %bond 10-7 +{\iffrontthicktothin\thinlines\else\thicklines\fi%2013/06/24 + \molfronttrue%added for v4.02 (2004/12/20) + \Put@Line(300,420)(-1,4){60}% %bond 4-3 + \Put@Line(-240,660)(1,-4){60}% %bond 1-9 + \Put@Line(0,0)(1,4){60}% %bond 6-5 + \Put@Line(60,240)(4,3){240}% %bond 5-4 + {\def\thinLineWidth{5pt}\BackGroundColor% % front-to-back crossing2013/06/24-07/23 + \thinlines% % + \Put@Line(40,255)(-4,3){80}}% % front-to-back crossing2013/06/24-07/23 + \Put@Line(60,240)(-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\setBScolor{\@adamanea}% subst. on 1 +\or\setBScolor{\@adamaneb}% subst. on 2 +\or\setBScolor{\@adamanec}% subst. on 3 +\or\setBScolor{\@adamaned}% subst. on 4 +\or\setBScolor{\@adamanee}% subst. on 5 +\or\setBScolor{\@adamanef}% subst. on 6 +\or\setBScolor{\@adamaneg}% subst. on 7 +\or\setBScolor{\@adamaneh}% subst. on 8 +\or\setBScolor{\@adamanei}% subst. on 9 +\or\setBScolor{\@adamanej}% subst. on 10 +\fi%the end of ifcase +\fi\fi}% +\end{ShiftPicEnvB}% +}% %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}% +\begin{ShiftPicEnvB}(0,0)(-\yl@shiftii,-\yl@shifti)/% +(1600,1400)(-400,-319){hadamantane}% +(400,319)%2002/4/30 by S. Fujita + \thinlines% + \Put@Line(0,0)(3,4){170}% % bond 6 to 7 + \Put@Line(170,226)(3,-1){403}% % 7 to 10 + \Put@Line(573,91)(3,1){270}% % 10 to 3 + \Put@Line(170,226)(0,1){360}% % 7 to 8 + \Put@Line(170,586)(3,1){270}% % 8 to 1 + \Put@Line(843,181)(0,1){360}% % 3 to 2 + \Put@Line(843,541)(-3,1){403}% % 2 to 1 + {\iffrontthicktothin\thinlines\else\thicklines\fi%2013/06/24 + \molfronttrue + \Put@Line(843,181)(-3,-4){170}% % 3 to 4 + \Put@Line(673,-46)(-3,1){403}% % 4 to 5 + \Put@Line(0,0)(3,1){270}% % 6 to 5 + {\def\thinLineWidth{5pt}\BackGroundColor% front-to-back crossing2013/06/24-07/23 + \thinlines% % + \Put@Line(270,150)(0,1){80}}% % front-to-back crossing2013/06/24-07/23 + \Put@Line(270,90)(0,1){360}% % 5 to 9 + \Put@Line(270,450)(3,4){170}% % 9 to 1 + }% + \thinlines% +\@tfor\member:=#1\do{% +\if\member r%no endocyclic bonds +\else \if\member a% + \Put@Line(450,636)(3,-1){373}% % double bond 1 to 2 +\else \if\member b% + \Put@Line(803,206)(0,1){320}% % 3 to 2 +\else \if\member c%%%a% + \Put@Line(767,139)(-3,-4){110}% % 3 to 4 +\else \if\member d%%%b% + \Put@Line(640,-5)(-3,1){343}% % 4 to 5 +\else \if\member e%%%%c% + \Put@Line(240,111)(-3,-1){190}% % 5 to 6 +\else \if\member f%%%d% + \Put@Line(63,40)(3,4){110}% % 6 to 7 +\else \if\member g% + \Put@Line(200,246)(0,1){320}% % 7 to 8 +\else \if\member h% + \Put@Line(400,626)(-3,-1){190}% % 8 to 1 +\else \if\member i% + \Put@Line(450,636)(-3,-4){150}% % 9 to 1 +\else \if\member j% + \Put@Line(300,110)(0,1){320}% % 5 to 9 +\else \if\member k%%%f% + \Put@Line(768,131)(-3,-1){170}% % 3 to 10 +\else \if\member l% + \Put@Line(182,187)(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\setBScolor{\Put@Direct(440,676){\@chairiI}}% %subst. on 1%%%9 + \or\setBScolor{\Put@Direct(843,541){\@chairiII}}% %subst. on 2%%10 + \or\setBScolor{\@chairiIII}% %subst. on 3%%%4 + \or\setBScolor{\@chairiIV}% %subst. on 4%%%3 + \or\setBScolor{\@chairiV}% %subst. on 5%%%2 + \or + \setBScolor{\@chairiVI}% %subst. on 6%%%1 + \or\setBScolor{\@chairiVII}% %subst. on 7%%%6 + \or\setBScolor{\Put@Direct(170,586){\@chairiVIII}}%subst. on 8%%%8 + \or\setBScolor{\Put@Direct(270,450){\@chairiIX}}% %subst. on 9%%%7 + \or\setBScolor{\@chairiX}% %subst. on 10%%5 +\fi %end of ifcase +\fi\fi% +}% +\end{ShiftPicEnvB}% +}% %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@Line(0,0)(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@Line(0,0)(-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@Line(0,0)(-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@Line(0,0)(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@Line(0,0)(-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@Line(-10,10)(-1,-1){120}% double bond at 6 + \Put@Line(10,-10)(-1,-1){120}% double bond at 6 + \else% + \yl@xdiff=10 + \yl@ydiff=90 + \putlatom{-130}{-210}{\@memberb}% left type + \Put@Line(0,0)(-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@Line(170,226)(-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@Line(170,226)(-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@Line(170,226)(-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@Line(170,226)(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@Line(170,226)(-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@Line(160,216)(-1,1){120}% double bond at 7 + \Put@Line(180,236)(-1,1){120}% double bond at 7 + \else% + \yl@xdiff=10 + \yl@ydiff=30 + \putlatom{40}{316}{\@memberb}% left type + \Put@Line(170,226)(-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@Line(573,91)(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@Line(573,91)(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@Line(573,91)(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@Line(573,91)(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@Line(573,91)(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@Line(563,83)(5,-4){170}% double bond at 5 + \Put@Line(583,99)(5,-4){170}% double bond at 5 + \else% + \yl@xdiff=-10 + \yl@ydiff=76 + \Put@Line(573,91)(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@Line(843,181)(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@Line(843,181)(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@Line(843,181)(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@Line(843,181)(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@Line(843,181)(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@Line(833,191)(1,1){120}% double bond at 3 + \Put@Line(853,171)(1,1){120}% double bond at 3 + \else% + \yl@xdiff=10 + \yl@ydiff=30 + \Put@Line(843,181)(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@Line(673,-46)(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@Line(673,-46)(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@Line(673,-46)(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@Line(673,-46)(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@Line(673,-46)(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@Line(663,-53)(1,-1){120}% double bond at 4 + \Put@Line(683,-38)(1,-1){120}% double bond at 4 + \else% + \yl@xdiff=-10 + \yl@ydiff=76 + \Put@Line(673,-46)(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@Line(270,90)(-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@Line(270,90)(-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@Line(270,90)(-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@Line(270,90)(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@Line(270,90)(-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@Line(260,80)(-5,4){170}% double bond at 5 + \Put@Line(280,100)(-5,4){170}% double bond at 5 + \else% + \yl@xdiff=0 + \yl@ydiff=26 + \putlatom{100}{200}{\@memberb}% left type + \Put@Line(270,90)(-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@Line(0,0)(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@Line(0,0)(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@Line(0,0)(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@Line(0,0)(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@Line(0,0)(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@Line(0,0)(0,1){168}% single bond at 1 axial + \putlratom{-42}{178}{\@memberb}% left & right type + \else% + \yl@xdiff=42 + \yl@ydiff=-10 + \Put@Line(0,0)(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@Line(0,0)(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@Line(0,0)(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@Line(0,0)(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@Line(0,0)(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@Line(0,0)(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@Line(-10,10)(1,1){120}% double bond at 1 + \Put@Line(10,-10)(1,1){120}% double bond at 1 + \else% + \yl@xdiff=-10 + \yl@ydiff=-10 + \putratom{130}{130}{\@memberb}% left type + \Put@Line(0,0)(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@Line(0,0)(-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@Line(0,0)(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@Line(0,0)(-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@Line(0,0)(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@Line(0,0)(-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@Line(10,10)(-5,3){144}% single bond at 1 equatorial + \Put@Line(0,-10)(-5,3){144}% single bond at 1 equatorial + \else% + \yl@xdiff=4 + \yl@ydiff=36 + \Put@Line(0,0)(-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@Line(0,0)(-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@Line(0,0)(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@Line(0,0)(-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@Line(0,0)(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@Line(0,0)(-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@Line(10,10)(-5,3){144}% single bond at 1 equatorial + \Put@Line(0,-10)(-5,3){144}% single bond at 1 equatorial + \else% + \yl@xdiff=4 + \yl@ydiff=36 + \Put@Line(0,0)(-5,3){144}% single bond at 1 equatorial + \putlatom{-140}{50}{\@memberb}% left type + \fi\fi\fi\fi}% +\endinput +%% +%% End of file `ccycle.sty'. |