From 0c16ddd29d43c785b867739f9b8fad8885ee548b Mon Sep 17 00:00:00 2001
From: Karl Berry <karl@freefriends.org>
Date: Tue, 19 Nov 2013 00:56:32 +0000
Subject: xymtex (now lppl, minus manuals without sources)

git-svn-id: svn://tug.org/texlive/trunk@32182 c570f23f-e606-0410-a88d-b1316a301751
---
 .../source/latex/xymtex/base/lowcycle.dtx          | 892 +++++++++++++++++++++
 1 file changed, 892 insertions(+)
 create mode 100644 Master/texmf-dist/source/latex/xymtex/base/lowcycle.dtx

(limited to 'Master/texmf-dist/source/latex/xymtex/base/lowcycle.dtx')

diff --git a/Master/texmf-dist/source/latex/xymtex/base/lowcycle.dtx b/Master/texmf-dist/source/latex/xymtex/base/lowcycle.dtx
new file mode 100644
index 00000000000..3aac86549ea
--- /dev/null
+++ b/Master/texmf-dist/source/latex/xymtex/base/lowcycle.dtx
@@ -0,0 +1,892 @@
+% \iffalse meta-comment
+%% File: lowcycle.dtx
+%
+%  Copyright 1993,1996,1998,2001,2002,2004,2010 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].  
+%
+% 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 lowcycle.dtx and lowcycle.ins
+% and the derived file lowcycle.sty.
+%
+% Please report any bugs, comments, suggestions, etc. to:
+%   Shinsaku Fujita, 
+%   Shonan Institute of Chemoinformatics and Mathematical Chemistry
+%   Kaneko 479-7 Ooimachi, Ashigara-Kami-Gun, Kanagawa 250-0019 Japan
+%  (old address)
+%   Ashigara Research Laboratories, Fuji Photo Film Co., Ltd., 
+%   Minami-Ashigara, Kanagawa-ken, 250-01, Japan.
+%  (old address)
+%   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
+% %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
+% \def\j@urnalname{lowcycle}
+% \def\versi@ndate{August 30, 2004}
+% \def\versi@nno{ver4.01}
+% \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}
+% \changes{v5.00}{2010/10/01}{the LaTeX Project Public License}
+% \fi
+%
+% \iffalse
+%<*driver>
+\NeedsTeXFormat{pLaTeX2e}
+% \fi
+\ProvidesFile{lowcycle.dtx}[2010/10/01 v5.00 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 \\ 
+Shonan Institute of Chemoinformatics and Mathematical Chemistry, \\
+Kaneko 479-7 Ooimachi, Ashigara-Kami-Gun, Kanagawa 250-0019 Japan
+% % (old address)
+% %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 5.00}
+\typeout{       -- Released October 01, 2010 by Shinsaku Fujita}
+% %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
+\def\j@urnalname{lowcycle}
+\def\versi@ndate{October 01, 2010}
+\def\versi@nno{ver5.00}
+\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
-- 
cgit v1.2.3

