% lowcycle.sty
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
\typeout{XyMTeX for Drawing Chemical Structural Formulas. Version 1.00}
\typeout{       -- Released December 1, 1993 by Shinsaku Fujita}
\typeout{}
\typeout{}
% Copyright (C) 1993 by Shinsaku Fujita, all rights reserved.
%
% This file is a part of the macro package ``XyMTeX'' which has been 
% designed for typesetting chemical structural formulas.
%
% This file is to be contained in the ``xymtex'' directory which is 
% an input directory for TeX. It is a LaTeX optional style file and 
% should be used only within LaTeX, because several macros of the file 
% are based on LaTeX commands. 
%
% For the review of XyMTeX, see
%  (1)  Shinsaku Fujita, ``Typesetting structural formulas with the text
%    formatter TeX/LaTeX'', Computers and Chemistry, in press.    
% The following book deals with an application of TeX/LaTeX to 
% preparation of manuscripts of chemical fields:
%  (2)  Shinsaku Fujita, ``LaTeX for Chemists and Biochemists'' 
%    Tokyo Kagaku Dozin, Tokyo (1993) [in Japanese].  
%
% Copying of this file is authorized only if either
%  (1) you make absolutely no changes to your copy, including name and 
%     directory name; or
%  (2) if you do make changes, 
%     (a) you name it something other than the names included in the 
%         ``xymtex'' directory and 
%     (b) you are requested to leave this notice intact.
% This restriction ensures that all standard styles are identical.
%
% Please report any bugs, comments, suggestions, etc. to:
%   Shinsaku Fujita, 
%   Ashigara Research Laboratories, Fuji Photo Film Co., Ltd., 
%   Minami-Ashigara, Kanagawa-ken, 250-01, Japan.
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
\def\j@urnalname{lowcycle}
\def\versi@ndate{December 01, 1993}
\def\versi@nno{ver1.00}
\def\copyrighth@lder{SF} % Shinsaku Fujita
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
%\typeout{XyMTeX Macro File `\j@urnalname' (\versi@nno) <\versi@ndate>\space%
% [\copyrighth@lder]}
%
% **********************************
% * lowcycle.sty: list of commands * 
% **********************************
%
%     \cyclopentanev                      \@cyclopentanev
%     \cyclopentanevi                     \@cyclopentanevi
%     \cyclopentaneh                      \@cyclopentaneh
%     \cyclopentanehi                     \@cyclopentanehi
%     \cyclobutane                        \@cyclobutane
%     \cyclopropane                       \@cyclopropane
%
%     \indanev                            \@indanev
%     \indanevi                           \@indanevi
%     \indaneh                            \@indaneh
%     \indanehi                           \@indanehi
%
% *************************
% * input of basic macros *
% *************************
\@ifundefined{setsixringv}{\input chemstr.sty\relax}{}
\@ifundefined{threehetero}{\input hetarom.sty\relax}{}
\@ifundefined{sixheteroh}{\input hetaromh.sty\relax}{}
\unitlength=0.1pt
%
% ******************************
% *  cyclopentane derivatives  *
% *  (vertical type & inverse) *
% ******************************
%
%   \cyclopentanev[BONDLIST]{SUBSLIST}
%   \cyclopentanevi[BONDLIST]{SUBSLIST}
%  
%     BONDLIST: list of inner double bonds 
%
%           none       :  mother nucleus (fully saturated form)
%           a          :  1,2-double bond
%           b          :  2,3-double bond
%           c          :  4,3-double bond
%           d          :  4,5-double bond
%           e          :  5,1-double bond
%           {n+}       :  plus at the n-nitrogen atom (n = 1 to 4)
%
%     SUBSLIST: list of substituents (max 6 substitution positions)
%
%       for n = 1 to 5 
%
%           nD         :  exocyclic double bond at n-atom
%           n or nS    :  exocyclic single bond at n-atom
%           nA         :  alpha single bond at n-atom
%           nB         :  beta single bond at n-atom
%           nSA        :  alpha single bond at n-atom (boldface)
%           nSB        :  beta single bond at n-atom (dotted line)
%           nSa        :  alpha (not specified) single bond at n-atom
%           nSb        :  beta (not specified) single bond at n-atom
%
%       e.g. 
%        
%        \cyclopentanev{1==H;2==F}
%        \cyclopentanev[]{1==H;2==F}
%        \cyclopentanev[H]{1==H;2==F}
%

\def\cyclopentanev{\@ifnextchar[{\@cyclopentanev}{\@cyclopentanev[]}}
\def\@cyclopentanev[#1]#2{%
\iforigpt \typeout{command `cyclopentanev' is based on `fiveheterov'.}\fi%
\fiveheterov[#1]{}{#2}}
\def\cyclopentanevi{\@ifnextchar[{\@cyclopentanevi}{\@cyclopentanevi[]}}
\def\@cyclopentanevi[#1]#2{%
\iforigpt \typeout{command `cyclopentanevi' is based on `fiveheterovi'.}\fi%
\fiveheterovi[#1]{}{#2}}
%
% ********************************
% *  cyclopentane derivatives    *
% *  (horizontal type & inverse) *
% ********************************
%
%   \cyclopentaneh[BONDLIST]{SUBSLIST}
%   \cyclopentanehi[BONDLIST]{SUBSLIST}
%  
%     BONDLIST: list of inner double bonds 
%
%           none       :  mother nucleus (fully saturated form)
%           a          :  1,2-double bond
%           b          :  2,3-double bond
%           c          :  4,3-double bond
%           d          :  4,5-double bond
%           e          :  5,1-double bond
%           {n+}       :  plus at the n-nitrogen atom (n = 1 to 4)
%
%     SUBSLIST: list of substituents (max 6 substitution positions)
%
%       for n = 1 to 5 
%
%           nD         :  exocyclic double bond at n-atom
%           n or nS    :  exocyclic single bond at n-atom
%           nA         :  alpha single bond at n-atom
%           nB         :  beta single bond at n-atom
%           nSA        :  alpha single bond at n-atom (boldface)
%           nSB        :  beta single bond at n-atom (dotted line)
%           nSa        :  alpha (not specified) single bond at n-atom
%           nSb        :  beta (not specified) single bond at n-atom
%
%       e.g. 
%        
%        \cyclopentaneh{1==H;2==F}
%        \cyclopentanehi[]{1==H;2==F}
%        \cyclopentanehi[H]{1==H;2==F}
%
\def\cyclopentaneh{\@ifnextchar[{\@cyclopentaneh}{\@cyclopentaneh[]}}
\def\@cyclopentaneh[#1]#2{%
\iforigpt \typeout{command `cyclophentaneh' is based on `fiveheteroh'.}\fi%
\fiveheteroh[#1]{}{#2}}
\def\cyclopentanehi{\@ifnextchar[{\@cyclopentanehi}{\@cyclopentanehi[]}}
\def\@cyclopentanehi[#1]#2{%
\iforigpt \typeout{command `cyclopentanehi' is based on `fiveheterohi'.}\fi%
\fiveheterohi[#1]{}{#2}}
%
% ***********************************************************
% * indane derivatives (fused six- and five-membered rings) *
% *  (vertical type & inverse)                              *
% ***********************************************************
%
%   \indanev[BONDLIST]{SUBSLIST}
%   \indanevi[BONDLIST]{SUBSLIST}
%
%     BONDLIST:  list of bonds 
%
%           none or r  :  aromatic six-membered ring
%           H or []    :  fully saturated form
%           a    :  1,2-double bond      b    :  2,3-double bond
%           c    :  3,3a-double bond     d    :  4,3a-double bond
%           e    :  4,5-double bond      f    :  5,6-double bond
%           g    :  6,7-double bond      h    :  7,7a-double bond
%           i    :  1,7a-double bond     j    :  3a,4a-double bond
%           A    :  aromatic circle
%           {n+}       :  plus at the n-nitrogen atom (n = 1 to 7)
%
%     SUBSLIST: list of substituents (max 7 substitution positions)
%
%       for n = 1 to 8
%
%           nD         :  exocyclic double bond at n-atom
%           n or nS    :  exocyclic single bond at n-atom
%           nA         :  alpha single bond at n-atom
%           nB         :  beta single bond at n-atom
%           nSA        :  alpha single bond at n-atom (boldface)
%           nSB        :  beta single bond at n-atom (dotted line)
%           nSa        :  alpha (not specified) single bond at n-atom
%           nSb        :  beta (not specified) single bond at n-atom
%
%       for 8 (3a position) and 9 (7a position)
%
%           nD         :  exocyclic double bond at n-atom
%           n or nS    :  exocyclic single bond at n-atom
%           nA         :  alpha single bond at n-atom
%           nB         :  beta single bond at n-atom
%
%       e.g. 
%        
%        \indanev{1==Cl;2==F}
%        \indanev[c]{1==Cl;4==F;2==CH$_{3}$}
%        \indanev[eb]{1D==O;4SA==MeO;4SB==OMe;5W==Cl;6==Cl}
%
\def\indanev{\@ifnextchar[{\@indanev}{\@indanev[rb]}}
\def\@indanev[#1]#2{%
\iforigpt \typeout{command `indanev' is based on `nonaheterov'.}\fi%
\nonaheterov[#1]{}{#2}}
\def\indanevi{\@ifnextchar[{\@indanevi}{\@indanevi[rb]}}
\def\@indanevi[#1]#2{%
\iforigpt \typeout{command `indanevi' is based on `nonaheterovi'.}\fi%
\nonaheterovi[#1]{}{#2}}
%
% ***********************************************************
% * indane derivatives (fused six- and five-membered rings) *
% *  (horizontal type & inverse)                            *
% ***********************************************************
%
%   \indaneh[BONDLIST]{SUBSLIST}
%   \indanehi[BONDLIST]{SUBSLIST}
%
%     BONDLIST:  list of bonds 
%
%           none or r  :  aromatic six-membered ring
%           H or []    :  fully saturated form
%           a    :  1,2-double bond      b    :  2,3-double bond
%           c    :  3,3a-double bond     d    :  4,3a-double bond
%           e    :  4,5-double bond      f    :  5,6-double bond
%           g    :  6,7-double bond      h    :  7,7a-double bond
%           i    :  1,7a-double bond     j    :  3a,4a-double bond
%           A    :  aromatic circle
%           {n+}       :  plus at the n-nitrogen atom (n = 1 to 7)
%
%     SUBSLIST: list of substituents (max 7 substitution positions)
%
%       for n = 1 to 8
%
%           nD         :  exocyclic double bond at n-atom
%           n or nS    :  exocyclic single bond at n-atom
%           nA         :  alpha single bond at n-atom
%           nB         :  beta single bond at n-atom
%           nSA        :  alpha single bond at n-atom (boldface)
%           nSB        :  beta single bond at n-atom (dotted line)
%           nSa        :  alpha (not specified) single bond at n-atom
%           nSb        :  beta (not specified) single bond at n-atom
%
%       for 8 (3a position) and 9 (7a position)
%
%           nD         :  exocyclic double bond at n-atom
%           n or nS    :  exocyclic single bond at n-atom
%           nA         :  alpha single bond at n-atom
%           nB         :  beta single bond at n-atom
%
%       e.g. 
%        
%        \indaneh{1==Cl;2==F}
%        \indaneh[c]{1==Cl;4==F;2==CH$_{3}$}
%        \indaneh[eb]{1D==O;4SA==MeO;4SB==OMe;5W==Cl;6==Cl}
%
\def\indaneh{\@ifnextchar[{\@indaneh}{\@indaneh[rb]}}
\def\@indaneh[#1]#2{%
\iforigpt \typeout{command `indaneh' is based on `nonaheteroh'.}\fi%
\nonaheteroh[#1]{}{#2}}
\def\indanehi{\@ifnextchar[{\@indanehi}{\@indanehi[rb]}}
\def\@indanehi[#1]#2{%
\iforigpt \typeout{command `indanehi' is based on `nonaheterohi'.}\fi%
\nonaheterohi[#1]{}{#2}}
%
% ***************************
% * cyclobutane derivatives *
% ***************************
% The following numbering is adopted in this macro. 
%
%          c
%     4  _____  3
%    d  |     |  b
%       |     |
%     1  -----  2<===== the original point
%          a
%
%   \cyclobutane[BONDLIST]{SUBSLIST}
%  
%     BONDLIST: list of inner double bonds 
%
%           a          :  1,2-double bond
%           b          :  2,3-double bond
%           c          :  4,3-double bond
%           e          :  4,1-double bond
%
%           {n+}       :  plus at the n-nitrogen atom (n = 1 to 4)
%
%     SUBSLIST: list of substituents (max 5 substitution positions)
%
%       for n = 1 to 4 
%
%           nD         :  exocyclic double bond at n-atom
%           n or nS    :  exocyclic single bond at n-atom
%           nA         :  alpha single bond at n-atom
%           nB         :  beta single bond at n-atom
%           nSA        :  alpha single bond at n-atom (boldface)
%           nSB        :  beta single bond at n-atom (dotted line)
%           nSa        :  alpha (not specified) single bond at n-atom
%           nSb        :  beta (not specified) single bond at n-atom
%
%       e.g. 
%        
%        \cyclobutane{1==H;2==F}
%        \cyclobutane[c]{1==Cl;4==F;2==CH$_{3}$}
%        \cyclobutane[eb]{1D==O;4SA==MeO;4SB==OMe}
%
\def\cyclobutane{\@ifnextchar[{\@cyclobutane}{\@cyclobutane[]}}
\def\@cyclobutane[#1]#2{%
\iforigpt \typeout{command `cyclobutane' is based on `fourhetero'.}\fi%
\fourhetero[#1]{}{#2}}
%
% ****************************
% * cyclopropane derivatives *
% *  (vertical type)         *
% ****************************
% The following numbering is adopted in this macro. 
%
%         b
%     3--------2
%    c `     / a
%        `1/ <===== the original point
%
%
%   \cyclopropane[BONDLIST]{SUBSLIST}
%  
%     BONDLIST = 
%
%           none       :  saturated 
%           a          :  1,2-double bond
%           b          :  2,3-double bond
%           c          :  3,1-double bond
%           A          :  aromatic circle 
%           {n+}       :  plus at the n-hetero atom (n = 1 to 3)
%                      :  n=4 -- outer plus at 1 position
%                      :  n=5 -- outer plus at 2 position
%                      :  n=6 -- outer plus at 3 position
%           {0+}       :  plus at the center of a cyclopropane ring
%
%     SUBSLIST: list of substituents (max 3 substitution positions)
%
%       for n = 1 to 3 
%
%           nD         :  exocyclic double bond at n-atom
%           n or nS    :  exocyclic single bond at n-atom
%           nA         :  alpha single bond at n-atom
%           nB         :  beta single bond at n-atom
%           nSA        :  alpha single bond at n-atom (boldface)
%           nSB        :  beta single bond at n-atom (dotted line)
%           nSa        :  alpha (not specified) single bond at n-atom
%           nSb        :  beta (not specified) single bond at n-atom
%
%       e.g. 
%        
%        \cyclopropane{1==N}{1==Cl;2==F}
%
\def\cyclopropane{\@ifnextchar[{\@cyclopropane}{\@cyclopropane[]}}
\def\@cyclopropane[#1]#2{%
\iforigpt \typeout{command `cyclopropane' is based on `threehetero'.}\fi%
\threehetero[#1]{}{#2}}