% \iffalse meta-comment
%% File: lowcycle.dtx
%
%  Copyright 1993,1996,1998,2001,2002,2004 by Shinsaku Fujita
%
%  This file is part of XyMTeX system.
%  -------------------------------------
%
% This file is a successor to:
%
% lowcycle.sty
% %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
% \typeout{XyMTeX for Drawing Chemical Structural Formulas. Version 1.00}
% \typeout{       -- Released December 1, 1993 by Shinsaku Fujita}
% 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.
%
% New address:
%   Shinsaku Fujita, 
%   Department of Chemistry and Materials Technology, 
%   Kyoto Institute of Technology, \\
%   Matsugasaki, Sakyoku, Kyoto, 606 Japan
% %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
% \def\j@urnalname{lowcycle}
% \def\versi@ndate{December 01, 1993}
% \def\versi@nno{ver1.00}
% \def\copyrighth@lder{SF} % Shinsaku Fujita
% %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
% \def\j@urnalname{lowcycle}
% \def\versi@ndate{August 16, 1996}
% \def\versi@nno{ver1.01}
% \def\copyrighth@lder{SF} % Shinsaku Fujita
% %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
% \def\j@urnalname{lowcycle}
% \def\versi@ndate{October 31, 1998}
% \def\versi@nno{ver1.02}
% \def\copyrighth@lder{SF} % Shinsaku Fujita
% %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
% \def\j@urnalname{lowcycle}
% \def\versi@ndate{December 25, 1998}
% \def\versi@nno{ver2.00}
% \def\copyrighth@lder{SF} % Shinsaku Fujita
% %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
% \def\j@urnalname{lowcycle}
% \def\versi@ndate{June 20, 2001}
% \def\versi@nno{ver2.01}
% \def\copyrighth@lder{SF} % Shinsaku Fujita
% %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
% \def\j@urnalname{lowcycle}
% \def\versi@ndate{April 30, 2002}
% \def\versi@nno{ver3.00}
% \def\copyrighth@lder{SF} % Shinsaku Fujita
% %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
% \def\j@urnalname{lowcycle}
% \def\versi@ndate{May 30, 2002}
% \def\versi@nno{ver4.00}
% \def\copyrighth@lder{SF} % Shinsaku Fujita
% %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
%
% \fi
%
% \CheckSum{175}
%% \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         \~}
%
% \setcounter{StandardModuleDepth}{1}
%
% \StopEventually{}
% \MakeShortVerb{\|}
%
% \iffalse
% \changes{v1.01}{1996/06/26}{first edition for LaTeX2e}
% \changes{v1.02}{1998/10/31}{revised edition for LaTeX2e}
% \changes{v2.00}{1998/12/25}{enhanced edition for LaTeX2e}
% \changes{v2.01}{2001/6/20}{Size reduction and Clip information}
% \changes{v3.00}{2002/4/30}{sfpicture environment, etc.}
% \changes{v4.00}{2002/05/30}{PostScript output and ShiftPicEnv}
% \changes{v4.01}{2004/08/30}{Minor additions}
% \fi
%
% \iffalse
%<*driver>
\NeedsTeXFormat{pLaTeX2e}
% \fi
\ProvidesFile{lowcycle.dtx}[2004/08/30 v4.01 XyMTeX{} package file]
% \iffalse
\documentclass{ltxdoc}
\GetFileInfo{lowcycle.dtx}
%
% %%XyMTeX Logo: Definition 2%%%
\def\UPSILON{\char'7}
\def\XyM{X\kern-.30em\smash{%
\raise.50ex\hbox{\UPSILON}}\kern-.30em{M}}
\def\XyMTeX{\XyM\kern-.1em\TeX}
% %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
\title{Lower carbocyclic compounds by {\sffamily lowcycle.sty} 
(\fileversion) of \XyMTeX{}}
\author{Shinsaku Fujita \\ 
Department of Chemistry and Materials Technology, \\
Kyoto Institute of Technology, \\
Matsugasaki, Sakyoku, Kyoto, 606-8585 Japan
% % (old address)
% % Ashigara Research Laboratories, 
% % Fuji Photo Film Co., Ltd., \\ 
% % Minami-Ashigara, Kanagawa, 250-01 Japan
}
\date{\filedate}
%
\begin{document}
   \maketitle
   \DocInput{lowcycle.dtx}
\end{document}
%</driver>
% \fi
%
% \section{Introduction}\label{lowcycle:intro}
%
% \subsection{Options for {\sffamily docstrip}}
%
% \DeleteShortVerb{\|}
% \begin{center}
% \begin{tabular}{|l|l|}
% \hline
% \emph{option} & \emph{function}\\ \hline
% lowcycle & lowcycle.sty \\
% driver & driver for this dtx file \\
% \hline
% \end{tabular}
% \end{center}
% \MakeShortVerb{\|}
%
% \subsection{Version Information}
%
%    \begin{macrocode}
%<*lowcycle>
\typeout{XyMTeX for Drawing Chemical Structural Formulas. Version 4.01}
\typeout{       -- Released August 30, 2004 by Shinsaku Fujita}
% %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
\def\j@urnalname{lowcycle}
\def\versi@ndate{August 30, 2004}
\def\versi@nno{ver4.01}
\def\copyrighth@lder{SF} % Shinsaku Fujita
% %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
\typeout{XyMTeX Macro File `\j@urnalname' (\versi@nno) <\versi@ndate>%
\space[\copyrighth@lder]}
%    \end{macrocode}
%
% \section{List of commands for lowcycle.sty}
%
% \begin{verbatim}
% **********************************
% * lowcycle.sty: list of commands * 
% **********************************
%
%     \cyclopentanev                      \@cyclopentanev
%     \cyclopentanevi                     \@cyclopentanevi
%     \cyclopentaneh                      \@cyclopentaneh
%     \cyclopentanehi                     \@cyclopentanehi
%
%     \cyclobutane                        \@cyclobutane
%
%     \cyclopropane                       \@cyclopropane
%     \cyclopropanei                      \@cyclopropanei
%     \cyclopropaneh                      \@cyclopropaneh
%     \cyclopropanehi                     \@cyclopropanehi
%
%     \indanev                            \@indanev
%     \indanevi                           \@indanevi
%     \indaneh                            \@indaneh
%     \indanehi                           \@indanehi
% \end{verbatim}
%
% \section{Input of basic macros}
%
% To assure the compatibility to \LaTeX{}2.09 (the native mode), 
% the commands added by \LaTeXe{} have not been used in the resulting sty 
% files ({\sf lowcycle.sty} for the present case).  Hence, the combination 
% of |\input| and |\@ifundefined| is used to crossload sty 
% files ({\sf chemstr.sty} etc. for the present case) in place of the 
% |\RequirePackage| command of \LaTeXe{}. 
%
%    \begin{macrocode}
% *************************
% * 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
%    \end{macrocode}
%
% \section{Cyclopentane derivatives}
% \subsection{Vertical type}
%
% The macros |\cyclopentanev| and |\cyclopentanevi| have an 
% argument |SUBSLIST| as well as an optional argument |BONDLIST|.  
% The macro |\cyclopentanev| draws a five-membered ring with a 
% flat top bond, while the macro |\cyclopentanevi| draws an 
% inverse ring with a flat bottom bond. 
% \begin{verbatim}
% ******************************
% *  cyclopentane derivatives  *
% *  (vertical type & inverse) *
% ******************************
%
%   \cyclopentanev[BONDLIST]{SUBSLIST}
%   \cyclopentanevi[BONDLIST]{SUBSLIST}
% \end{verbatim}
%
% The |BONDLIST| argument contains one or more 
% characters selected from a to e, each of which indicates the presence of 
% an inner (endcyclic) double bond on the corresponding position. The 
% option `$n+$' ($n=1$--$5$) is used for designating a plus charge on 
% the $n$-carbon. 
% The option `$0+$'is used for designating a plus charge at the center 
% of the five-membered ring. 
% \begin{verbatim}
%     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-carbon atom (n = 1 to 5)
%           {0+}       :  plus at the center
% \end{verbatim}
%
% The |SUBSLIST| argument contains one or more substitution descriptors 
% which are separated from each other by a semicolon.  Each substitution 
% descriptor has a locant number with a bond modifier and a substituent, 
% where these are separated with a double equality symbol. 
% \begin{verbatim}
%
%     SUBSLIST: list of substituents
%
%       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
% \end{verbatim}
%
% Several examples are shown as follows.
% \begin{verbatim}
%       e.g. 
%        
%        \cyclopentanev{1==H;2==F}
%        \cyclopentanev[]{1==H;2==F}
%        \cyclopentanev[H]{1==H;2==F}
% \end{verbatim}
%
% \begin{macro}{\cyclopentanev}
% \begin{macro}{\cyclopentanevi}
%    \begin{macrocode}
\def\cyclopentanev{\@ifnextchar[{\@cyclopentanev[@}{\@cyclopentanev[]}}
\def\@cyclopentanev[#1]#2{%
\iforigpt \typeout{command `cyclopentanev' %
                  is based on `fiveheterov'.}\fi%
\fiveheterov[#1]{}{#2}}
%    \end{macrocode}
%
%    \begin{macrocode}
\def\cyclopentanevi{\@ifnextchar[{\@cyclopentanevi[@}{\@cyclopentanevi[]}}
\def\@cyclopentanevi[#1]#2{%
\iforigpt \typeout{command `cyclopentanevi' %
                   is based on `fiveheterovi'.}\fi%
\fiveheterovi[#1]{}{#2}}
%    \end{macrocode}
% \end{macro}
% \end{macro}
%
% \subsection{Horizontal type}
%
% The macros |\cyclopentaneh| and |\cyclopentanehi| have an 
% argument |SUBSLIST| as well as an optional argument |BONDLIST|.  
% The macro |\cyclopentaneh| draws a five-membered ring with a 
% vertical left bond, while the macro |\cyclopentanehi| draws an 
% inverse ring with a vertical right bond. 
% \begin{verbatim}
% ********************************
% *  cyclopentane derivatives    *
% *  (horizontal type & inverse) *
% ********************************
%
%   \cyclopentaneh[BONDLIST]{SUBSLIST}
%   \cyclopentanehi[BONDLIST]{SUBSLIST}
% \end{verbatim}
%
% The |BONDLIST| argument contains one or more 
% characters selected from a to e, each of which indicates the presence of 
% an inner (endcyclic) double bond on the corresponding position. The 
% option `$n+$' ($n=1$--$5$) is used for designating a plus charge on 
% the $n$-carbon. 
% The option `$0+$'is used for designating a plus charge at the center 
% of the five-membered ring. 
% \begin{verbatim}
%  
%     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-carbon atom (n = 1 to 5)
%           {0+}       :  plus at the center
% \end{verbatim}
%
% The |SUBSLIST| argument contains one or more substitution descriptors 
% which are separated from each other by a semicolon.  Each substitution 
% descriptor has a locant number with a bond modifier and a substituent, 
% where these are separated with a double equality symbol. 
% \begin{verbatim}
%
%     SUBSLIST: list of substituents
%
%       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
% \end{verbatim}
%
% Several examples are shown as follows.
% \begin{verbatim}
%
%       e.g. 
%        
%        \cyclopentaneh{1==H;2==F}
%        \cyclopentanehi[]{1==H;2==F}
%        \cyclopentanehi[H]{1==H;2==F}
%
% \end{verbatim}
%
% \begin{macro}{\cyclopentaneh}
% \begin{macro}{\cyclopentanehi}
%    \begin{macrocode}
\def\cyclopentaneh{\@ifnextchar[{\@cyclopentaneh[@}{\@cyclopentaneh[]}}
\def\@cyclopentaneh[#1]#2{%
\iforigpt \typeout{command `cyclophentaneh' %
                   is based on `fiveheteroh'.}\fi%
\fiveheteroh[#1]{}{#2}}
%    \end{macrocode}
%
%    \begin{macrocode}
\def\cyclopentanehi{%
  \@ifnextchar[{\@cyclopentanehi[@}{\@cyclopentanehi[]}}
\def\@cyclopentanehi[#1]#2{%
\iforigpt \typeout{command `cyclopentanehi' %
                   is based on `fiveheterohi'.}\fi%
\fiveheterohi[#1]{}{#2}}
%    \end{macrocode}
% \end{macro}
% \end{macro}
%
% \section{Indan derivatives}
% \subsection{Vertical type}
%
% The macros |\indanev| and |\indanevi| have an 
% argument |SUBSLIST| as well as an optional argument |BONDLIST|.  
% The macro |\indanev| draws a five-membered ring with a 
% flat top bond, while the macro |\indanevi| draws an 
% inverse ring with a flat bottom bond. 
% \begin{verbatim}
% ***********************************************************
% * indane derivatives (fused six- and five-membered rings) *
% *  (vertical type & inverse)                              *
% ***********************************************************
%
%   \indanev[BONDLIST]{SUBSLIST}
%   \indanevi[BONDLIST]{SUBSLIST}
% \end{verbatim}
%
% The |BONDLIST| argument contains one or more 
% characters selected from a to j, each of which indicates the presence of 
% an inner (endcyclic) double bond on the corresponding position. 
% The option `A' typesets a six-membered ring with an aromatic circle. 
% The option `$n+$' ($n=1$--$7$) is used for designating a plus charge on 
% the $n$-carbon. 
% \begin{verbatim}
%
%     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)
% \end{verbatim}
%
% The |SUBSLIST| argument contains one or more substitution descriptors 
% which are separated from each other by a semicolon.  Each substitution 
% descriptor has a locant number with a bond modifier and a substituent, 
% where these are separated with a double equality symbol. 
% \begin{verbatim}
%
%     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
% \end{verbatim}
%
% Several examples are shown as follows.
% \begin{verbatim}
%
%       e.g. 
%        
%        \indanev{1==Cl;2==F}
%        \indanev[c]{1==Cl;4==F;2==CH$_{3}$}
%        \indanev[eb]{1D==O;4SA==MeO;4SB==OMe;5==Cl;6==Cl}
%
% \end{verbatim}
%
% \begin{macro}{\indanev}
% \begin{macro}{\indanevi}
%    \begin{macrocode}
\def\indanev{\@ifnextchar[{\@indanev[@}{\@indanev[rb]}}
\def\@indanev[#1]#2{%
\iforigpt \typeout{command `indanev' %
               is based on `nonaheterov'.}\fi%
\nonaheterov[#1]{}{#2}}
%    \end{macrocode}
%
%    \begin{macrocode}
\def\indanevi{\@ifnextchar[{\@indanevi[@}{\@indanevi[rb]}}
\def\@indanevi[#1]#2{%
\iforigpt \typeout{command `indanevi' %
              is based on `nonaheterovi'.}\fi%
\nonaheterovi[#1]{}{#2}}
%    \end{macrocode}
% \end{macro}
% \end{macro}
%
% \subsection{Horizontal type}
%
% The macros |\indaneh| and |\indanehi| have an 
% argument |SUBSLIST| as well as an optional argument |BONDLIST|.  
% The macro |\indaneh| draws a five-membered ring with a 
% vertical left bond, while the macro |\indanehi| draws an 
% inverse ring with a vertical right bond. 
% \begin{verbatim}
% ***********************************************************
% * indane derivatives (fused six- and five-membered rings) *
% *  (horizontal type & inverse)                            *
% ***********************************************************
%
%   \indaneh[BONDLIST]{SUBSLIST}
%   \indanehi[BONDLIST]{SUBSLIST}
% \end{verbatim}
%
% The |BONDLIST| argument contains one or more 
% characters selected from a to j, each of which indicates the presence of 
% an inner (endcyclic) double bond on the corresponding position. 
% The option `A' typesets a six-membered ring with an aromatic circle. 
% The option `$n+$' ($n=1$--$7$) is used for designating a plus charge on 
% the $n$-carbon. 
% \begin{verbatim}
%
%     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)
% \end{verbatim}
%
% The |SUBSLIST| argument contains one or more substitution descriptors 
% which are separated from each other by a semicolon.  Each substitution 
% descriptor has a locant number with a bond modifier and a substituent, 
% where these are separated with a double equality symbol. 
% \begin{verbatim}
%
%     SUBSLIST: list of substituents
%
%       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
% \end{verbatim}
%
% Several examples are shown as follows.
% \begin{verbatim}
%       e.g. 
%        
%        \indaneh{1==Cl;2==F}
%        \indaneh[c]{1==Cl;4==F;2==CH$_{3}$}
%        \indaneh[eb]{1D==O;4SA==MeO;4SB==OMe;5==Cl;6==Cl}
% \end{verbatim}
%
% \begin{macro}{\indaneh}
% \begin{macro}{\indanehi}
%    \begin{macrocode}
\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}}
%    \end{macrocode}
% \end{macro}
% \end{macro}
%
%
% \section{Cyclobutane derivatives}
%
% The macros |\cyclobutane| has an 
% argument |SUBSLIST| as well as an optional argument |BONDLIST|.  
% This macro is based on the \verb/\fourhetero/ command for drawing 
% four-membered heterocycles. 
% \begin{verbatim}
% ***************************
% * cyclobutane derivatives *
% ***************************
% The following numbering is adopted in this macro. 
%
%          c
%     4  _____  3
%    d  |     |  b
%       |     |
%     1  -----  2<===== the original point
%          a
%
%   \cyclobutane[BONDLIST]{SUBSLIST}
% \end{verbatim}
%
% The |BONDLIST| argument contains one or more 
% characters selected from a to e, each of which indicates the presence of 
% an inner (endcyclic) double bond on the corresponding position. 
% The option `$n+$' ($n=1$--$4$) is used for designating a plus charge on 
% the $n$-carbon. 
% \begin{verbatim}
%  
%     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)
% \end{verbatim}
%
% The |SUBSLIST| argument contains one or more substitution descriptors 
% which are separated from each other by a semicolon.  Each substitution 
% descriptor has a locant number with a bond modifier and a substituent, 
% where these are separated with a double equality symbol. 
% \begin{verbatim}
%
%     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
% \end{verbatim}
%
% Several examples are shown as follows.
% \begin{verbatim}
%       e.g. 
%        
%        \cyclobutane{1==H;2==F}
%        \cyclobutane[c]{1==Cl;4==F;2==CH$_{3}$}
%        \cyclobutane[eb]{1D==O;4SA==MeO;4SB==OMe}
% \end{verbatim}
%
% \begin{macro}{\cyclobutane}
%    \begin{macrocode}
\def\cyclobutane{\@ifnextchar[{\@cyclobutane[@}{\@cyclobutane[]}}
\def\@cyclobutane[#1]#2{%
\iforigpt \typeout{command `cyclobutane' %
      is based on `fourhetero'.}\fi%
\fourhetero[#1]{}{#2}}
%    \end{macrocode}
% \end{macro}
%
% \section{Cyclopropane derivatives}
%
% The macros |\cyclopropane| has an 
% argument |SUBSLIST| as well as an optional argument |BONDLIST|.  
% This macro is based on the \verb/\threehetero/ command for drawing 
% three-membered heterocycles. 
% \begin{verbatim}
% ****************************
% * cyclopropane derivatives *
% *  (vertical type)         *
% ****************************
% The following numbering is adopted in this macro. 
%
%         b
%     3--------2
%    c `     / a
%        `1/ <===== the original point
%
%
%   \cyclopropane[BONDLIST]{SUBSLIST}
% \end{verbatim}
%
% The |BONDLIST| argument contains one or more 
% characters selected from a to c, each of which indicates the presence of 
% an inner (endcyclic) double bond on the corresponding position. 
% The option `A' is used for designating an aromatic character with a 
% circle. 
% The option `$n+$' ($n=1$--$3$) is used for designating a plus charge on 
% the $n$-carbon, while 
% the case $n=4$--$6$) indicates a plus charge outside the ring. 
% The option `0+' draws a plus symbol at the center of the ring. 
% \begin{verbatim}
%  
%     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
% \end{verbatim}
%
% The |SUBSLIST| argument contains one or more substitution descriptors 
% which are separated from each other by a semicolon.  Each substitution 
% descriptor has a locant number with a bond modifier and a substituent, 
% where these are separated with a double equality symbol. 
% \begin{verbatim}
%
%     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
% \end{verbatim}
%
% Several examples are shown as follows.
% \begin{verbatim}
%
%       e.g. 
%        
%        \cyclopropane{1==N}{1==Cl;2==F}
%
% \end{verbatim}
%
% \begin{macro}{\cyclopropane}
% \begin{macro}{\cyclopropanev}
%    \begin{macrocode}
\def\cyclopropane{\@ifnextchar[{\@cyclopropane[@}{\@cyclopropane[]}}
\def\@cyclopropane[#1]#2{%
\iforigpt \typeout{command `cyclopropane' %
      is based on `threehetero'.}\fi%
\threehetero[#1]{}{#2}}
\let\cyclopropanev=\cyclopropane
%    \end{macrocode}
% \end{macro}
% \end{macro}
%
% The macros |\cyclopropanei| has an 
% argument |SUBSLIST| as well as an optional argument |BONDLIST|.  
% This macro is based on the \verb/\threehetero/ command for drawing 
% three-membered heterocycles. 
% \begin{verbatim}
% ****************************
% * cyclopropane derivatives *
% *  (inverse vertical type) *
% ****************************
% The following numbering is adopted in this macro. 
%
%        /1` <===== the original point
%    c /    ` a
%     3--------2
%         b
%
%   \cyclopropanei[BONDLIST]{SUBSLIST}
% \end{verbatim}
%
% The |BONDLIST| argument contains one or more 
% characters selected from a to c, each of which indicates the presence of 
% an inner (endcyclic) double bond on the corresponding position. 
% The option `A' is used for designating an aromatic character with a 
% circle. 
% The option `$n+$' ($n=1$--$3$) is used for designating a plus charge on 
% the $n$-carbon, while 
% the case $n=4$--$6$) indicates a plus charge outside the ring. 
% The option `0+' draws a plus symbol at the center of the ring. 
% \begin{verbatim}
%  
%     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
% \end{verbatim}
%
% The |SUBSLIST| argument contains one or more substitution descriptors 
% which are separated from each other by a semicolon.  Each substitution 
% descriptor has a locant number with a bond modifier and a substituent, 
% where these are separated with a double equality symbol. 
% \begin{verbatim}
%
%     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
% \end{verbatim}
%
% Several examples are shown as follows.
% \begin{verbatim}
%
%       e.g. 
%        
%        \cyclopropanei{1==N}{1==Cl;2==F}
%
% \end{verbatim}
%   \changes{v1.02}{1998/10/20}{Newly added command}
%
% \begin{macro}{\cyclopropanei}
% \begin{macro}{\cyclopropenevi}
%    \begin{macrocode}
\def\cyclopropanei{\@ifnextchar[{\@cyclopropanei[@}{\@cyclopropanei[]}}
\def\@cyclopropanei[#1]#2{%
\iforigpt \typeout{command `cyclopropanei' %
      is based on `threeheteroi'.}\fi%
\threeheteroi[#1]{}{#2}}
\let\cyclopropanevi=\cyclopropanei
%    \end{macrocode}
% \end{macro}
% \end{macro}
%
% \begin{macro}{\cyclopropaneh}
%    \begin{macrocode}
\def\cyclopropaneh{\@ifnextchar[{\@cyclopropaneh[@}{\@cyclopropaneh[]}}
\def\@cyclopropaneh[#1]#2{%
\iforigpt \typeout{command `cyclopropaneh' %
      is based on `threeheteroh'.}\fi%
\threeheteroh[#1]{}{#2}}
%    \end{macrocode}
% \end{macro}
%
% \begin{macro}{\cyclopropanehi}
%    \begin{macrocode}
\def\cyclopropanehi{\@ifnextchar[{\@cyclopropanehi[@}{\@cyclopropanehi[]}}
\def\@cyclopropanehi[#1]#2{%
\iforigpt \typeout{command `cyclopropanehi' %
      is based on `threeheterohi'.}\fi%
\threeheterohi[#1]{}{#2}}
%</lowcycle>
%    \end{macrocode}
% \end{macro}
%
% \Finale
%
\endinput
