summaryrefslogtreecommitdiff
path: root/macros/latex/contrib/xymtex/base/lowcycle.dtx
diff options
context:
space:
mode:
Diffstat (limited to 'macros/latex/contrib/xymtex/base/lowcycle.dtx')
-rw-r--r--macros/latex/contrib/xymtex/base/lowcycle.dtx892
1 files changed, 892 insertions, 0 deletions
diff --git a/macros/latex/contrib/xymtex/base/lowcycle.dtx b/macros/latex/contrib/xymtex/base/lowcycle.dtx
new file mode 100644
index 0000000000..3aac86549e
--- /dev/null
+++ b/macros/latex/contrib/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