summaryrefslogtreecommitdiff
path: root/macros/latex/contrib/xymtex/base/locant.dtx
diff options
context:
space:
mode:
Diffstat (limited to 'macros/latex/contrib/xymtex/base/locant.dtx')
-rw-r--r--macros/latex/contrib/xymtex/base/locant.dtx343
1 files changed, 343 insertions, 0 deletions
diff --git a/macros/latex/contrib/xymtex/base/locant.dtx b/macros/latex/contrib/xymtex/base/locant.dtx
new file mode 100644
index 0000000000..4f19a5c4c7
--- /dev/null
+++ b/macros/latex/contrib/xymtex/base/locant.dtx
@@ -0,0 +1,343 @@
+% \iffalse meta-comment
+%% File: locant.dtx
+%
+% Copyright 1993,1996,2001,2002, 2004, 2010 by Shinsaku Fujita
+%
+% This file is part of XyMTeX system.
+% -------------------------------------
+%
+% This file is a successor to:
+%
+% locant.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 locant.dtx and locant.ins
+% and the derived file locant.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{locant}
+% \def\versi@ndate{December 01, 1993}
+% \def\versi@nno{ver1.00}
+% \def\copyrighth@lder{SF} % Shinsaku Fujita
+% %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
+% \def\j@urnalname{locant}
+% \def\versi@ndate{August 16, 1996}
+% \def\versi@nno{ver1.01}
+% \def\copyrighth@lder{SF} % Shinsaku Fujita
+% %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
+% \def\j@urnalname{locant}
+% \def\versi@ndate{June 20, 2001}
+% \def\versi@nno{ver2.01}
+% \def\copyrighth@lder{SF} % Shinsaku Fujita
+% %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
+% \def\j@urnalname{locant}
+% \def\versi@ndate{April 30, 2002}
+% \def\versi@nno{ver3.00}
+% \def\copyrighth@lder{SF} % Shinsaku Fujita
+% %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
+% \def\j@urnalname{locant}
+% \def\versi@ndate{May 30, 2002}
+% \def\versi@nno{ver4.00}
+% \def\copyrighth@lder{SF} % Shinsaku Fujita
+% %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
+% \def\j@urnalname{locant}
+% \def\versi@ndate{August 30, 2004}
+% \def\versi@nno{ver4.01}
+% \def\copyrighth@lder{SF} % Shinsaku Fujita
+% %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
+%
+% \fi
+%
+% \CheckSum{136}
+%% \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{v2.01}{2001/06/20}{Size reduction and Clip information}
+% \changes{v3.00}{2002/04/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{locant.dtx}[2010/10/01 v5.00 XyMTeX{} package file]
+% \iffalse
+\documentclass{ltxdoc}
+\GetFileInfo{locant.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{Setting locant numbers by {\sffamily locant.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{locant.dtx}
+\end{document}
+%</driver>
+% \fi
+%
+% \section{Introduction}\label{locant:intro}
+%
+% \subsection{Options for {\sffamily docstrip}}
+%
+% \DeleteShortVerb{\|}
+% \begin{center}
+% \begin{tabular}{|l|l|}
+% \hline
+% \emph{option} & \emph{function}\\ \hline
+% locant & locant.sty \\
+% driver & driver for this dtx file \\
+% \hline
+% \end{tabular}
+% \end{center}
+% \MakeShortVerb{\|}
+%
+% \subsection{Version Information}
+%
+% \begin{macrocode}
+%<*locant>
+\typeout{XyMTeX for Drawing Chemical Structural Formulas. Version 5.00}
+\typeout{ -- Released October 01, 2010 by Shinsaku Fujita}
+% %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
+\def\j@urnalname{locant}
+\def\versi@ndate{October 01, 2010}
+\def\versi@nno{ver4.00}
+\def\copyrighth@lder{SF} % Shinsaku Fujita
+% %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
+\typeout{XyMTeX Macro File `\j@urnalname' (\versi@nno) <\versi@ndate>%
+\space[\copyrighth@lder]}
+% \end{macrocode}
+%
+% \section{Macros for designating locant numbers}
+%
+% \subsection{Font Size of Locant Numbers}
+% \changes{v2.01}{2001/06/20}{New command: \cs{locantnumsize}}
+%
+% To change the font size of locant numbers, we can use
+% |\locantnumsize|, into which a size command (|\scriptsize| etc.)
+% is introduced by using the |\let| command.
+% The default setting is |\scriptsize| as follows:
+%
+% \begin{macro}{\locantnumsize}
+% \begin{macrocode}
+\let\locantnumsize=\scriptsize
+% \end{macrocode}
+% \end{macro}
+%
+% \subsection{Bond indicators for vertical formulas}
+%
+% \begin{macro}{\dbloocant}
+% \begin{macro}{\dblocant}
+% The macro |\dbloocant| is used to designate six edges (inner double bonds)
+% of a six-membered ring. Any character can be asigned to the respective
+% bond.
+% The macro |\dblocant| provides a fixed set of aliphabetical charactors
+% on the six edges.
+% \changes{v2.01}{2001/06/20}{The domain of a picture environment
+% has been changed from (800,880) to (0,0).}
+% \begin{macrocode}
+\def\bdloocant#1#2#3#4#5#6{%
+%\begin{sfpicture}(800,880)(-\shiftii,-\shifti)
+\begin{sfpicture}(0,0)(-\shiftii,-\shifti)
+\putratom{90}{380}{\locantnumsize #1}%
+\putratom{200}{180}{\locantnumsize #2}%
+\putratom{90}{-20}{\locantnumsize #3}%
+\putlatom{-90}{380}{\locantnumsize #6}%
+\putlatom{-200}{180}{\locantnumsize #5}%
+\putlatom{-90}{-20}{\locantnumsize #4}%
+\end{sfpicture}}%
+\def\bdlocant{\bdloocant{a}{b}{c}{d}{e}{f}}
+% \end{macrocode}
+% \end{macro}
+% \end{macro}
+%
+% \subsection{Atom indicators for vertical formulas}
+% \begin{macro}{\sxloocant}
+% \begin{macro}{\sxlocant}
+% The macro |\sxloocant| is used to designate six vertices
+% of a six-membered ring. Any character can be asigned to the respective
+% bond.
+% The macro |\sxlocant| provides a fixed set of arabic numerals
+% on the six edges.
+% \changes{v2.01}{2001/06/20}{The domain of a picture environment
+% has been changed from (800,880) to (0,0).}
+% \begin{macrocode}
+\def\sxloocant#1#2#3#4#5#6{%
+%\begin{sfpicture}(800,880)(-\shiftii,-\shifti)%
+\begin{sfpicture}(0,0)(-\shiftii,-\shifti)%
+\putratom{-10}{340}{\locantnumsize #1}%
+\putlatom{150}{260}{\locantnumsize #2}%
+\putlatom{150}{110}{\locantnumsize #3}%
+\putratom{-10}{40}{\locantnumsize #4}%
+\putratom{-150}{110}{\locantnumsize #5}%
+\putratom{-150}{260}{\locantnumsize #6}%
+\end{sfpicture}}%
+\def\sxlocant{\sxloocant{1}{2}{3}{4}{5}{6}}
+% \end{macrocode}
+% \end{macro}
+% \end{macro}
+%
+% \subsection{Bond indicators for horizontal formulas}
+%
+% \begin{macro}{\dbloocanth}
+% \begin{macro}{\dblocanth}
+% The macro |\dbloocanth| is used to designate six edges (inner double bonds)
+% of a horizontal six-membered ring.
+% Any character can be asigned to the respective bond.
+% The macro |\dblocanth| provides a fixed set of aliphabetical charactors
+% on the six edges.
+% \changes{v2.01}{2001/06/20}{The domain of a picture environment
+% has been changed from (800,880) to (0,0).}
+% \begin{macrocode}
+\def\bdloocnth#1#2#3#4#5#6{%
+%\begin{sfpicture}(880,800)(-\shifti,-\shiftii)%
+\begin{sfpicture}(0,0)(-\shifti,-\shiftii)%
+\putlatom{10}{80}{\locantnumsize #1}%
+\putratom{180}{210}{\locantnumsize #2}%
+\putratom{380}{80}{\locantnumsize #3}%
+\putratom{380}{-120}{\locantnumsize #4}%
+\putratom{180}{-260}{\locantnumsize #5}%
+\putlatom{10}{-120}{\locantnumsize #6}%
+\end{sfpicture}}%
+\def\bdlocnth{\bdloocnth{a}{b}{c}{d}{e}{f}}
+% \end{macrocode}
+% \end{macro}
+% \end{macro}
+%
+% \subsection{Atom indicators for horizontal formulas}
+% \begin{macro}{\sxloocanth}
+% \begin{macro}{\sixsghlocant}
+% The macro |\sxloocanth| is used to designate six vertices
+% of a horizontal six-membered ring.
+% Any character can be asigned to the respective bond.
+% The macro |\sixsghlocant| provides a fixed set of arabic numerals
+% on the six edges.
+% \changes{v2.01}{2001/06/20}{The domain of a picture environment
+% has been changed from (800,880) to (0,0).}
+% \begin{macrocode}
+\def\sxloocnth#1#2#3#4#5#6{%
+%\begin{sfpicture}(880,800)(-\shifti,-\shiftii)%
+\begin{sfpicture}(0,0)(-\shifti,-\shiftii)%
+\putratom{40}{-20}{\locantnumsize #1}%
+\putratom{110}{100}{\locantnumsize #2}%
+\putlatom{290}{100}{\locantnumsize #3}%
+\putlatom{380}{-20}{\locantnumsize #4}%
+\putratom{110}{-140}{\locantnumsize #6}%
+\putlatom{290}{-140}{\locantnumsize #5}%
+\end{sfpicture}}%
+\def\sxlocnth{\sxloocnth{1}{2}{3}{4}{5}{6}}
+% \end{macrocode}
+% \end{macro}
+% \end{macro}
+%
+% \subsection{Locant Numbers for Cyclic Sugars}
+%
+% \changes{v2.01}{2001/06/20}{New command: \cs{sixsugarhlocant}}
+% \begin{macro}{\sixsugarhloocnt}
+% \begin{macro}{\sixsugarhlocant}
+% The macro |\sixsugarhloocnt| is used to designate six vertices
+% of a horizontal six-membered sugar ring.
+% Any character can be asigned to the respective bond.
+% The macro |\sixsugarhlocant| provides a fixed set of arabic numerals
+% on the six edges.
+% \begin{macrocode}
+\def\sixsugarhloocnt#1#2#3#4#5#6{%
+\begin{sfpicture}(0,0)(-\shifti,-\shiftii)%
+\putratom{40}{-20}{\locantnumsize #1}%
+\putratom{120}{125}{\locantnumsize #2}%
+\putlatom{400}{125}{\locantnumsize #3}%
+\putlatom{492}{-20}{\locantnumsize #4}%
+\putratom{120}{-160}{\locantnumsize #6}%
+\putlatom{400}{-160}{\locantnumsize #5}%
+\end{sfpicture}}%
+\def\sixsugarhlocant{\sixsugarhloocnt{4}{5}{6}{1}{2}{3}}
+%</locant>
+% \end{macrocode}
+% \end{macro}
+% \end{macro}
+%
+% \Finale
+%
+\endinput