% locant.sty
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
\typeout{XyMTeX for Drawing Chemical Structural Formulas. Version 1.00}
\typeout{       -- Released December 1, 1993 by Shinsaku Fujita}
\typeout{}
\typeout{}
% Copyright (C) 1993 by Shinsaku Fujita, all rights reserved.
%
% This file is a part of the macro package ``XyMTeX'' which has been 
% designed for typesetting chemical structural formulas.
%
% This file is to be contained in the ``xymtex'' directory which is 
% an input directory for TeX. It is a LaTeX optional style file and 
% should be used only within LaTeX, because several macros of the file 
% are based on LaTeX commands. 
%
% For the review of XyMTeX, see
%  (1)  Shinsaku Fujita, ``Typesetting structural formulas with the text
%    formatter TeX/LaTeX'', Computers and Chemistry, in press.    
% The following book deals with an application of TeX/LaTeX to 
% preparation of manuscripts of chemical fields:
%  (2)  Shinsaku Fujita, ``LaTeX for Chemists and Biochemists'' 
%    Tokyo Kagaku Dozin, Tokyo (1993) [in Japanese].  
%
% Copying of this file is authorized only if either
%  (1) you make absolutely no changes to your copy, including name and 
%     directory name; or
%  (2) if you do make changes, 
%     (a) you name it something other than the names included in the 
%         ``xymtex'' directory and 
%     (b) you are requested to leave this notice intact.
% This restriction ensures that all standard styles are identical.
%
% Please report any bugs, comments, suggestions, etc. to:
%   Shinsaku Fujita, 
%   Ashigara Research Laboratories, Fuji Photo Film Co., Ltd., 
%   Minami-Ashigara, Kanagawa-ken, 250-01, Japan.
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
\def\j@urnalname{locant}
\def\versi@ndate{December 01, 1993}
\def\versi@nno{ver1.00}
\def\copyrighth@lder{SF} % Shinsaku Fujita
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
%\typeout{XyMTeX Macro File `\j@urnalname' (\versi@nno) <\versi@ndate>\space%
% [\copyrighth@lder]}
%
\def\bdloocant#1#2#3#4#5#6{%
\begin{picture}(800,880)(-\shiftii,-\shifti)
\putratom{90}{360}{#1}%
\putratom{200}{180}{#2}%
\putratom{90}{-20}{#3}%
\putlatom{-90}{360}{#6}%
\putlatom{-200}{180}{#5}%
\putlatom{-90}{-20}{#4}%
\end{picture}}%
\def\bdlocant{\bdloocant{a}{b}{c}{d}{e}{f}}
%
\def\sxloocant#1#2#3#4#5#6{%
\begin{picture}(800,880)(-\shiftii,-\shifti)%
\putratom{-10}{340}{\scriptsize #1}%
\putlatom{150}{260}{\scriptsize #2}%
\putlatom{150}{110}{\scriptsize #3}%
\putratom{-10}{40}{\scriptsize #4}%
\putratom{-150}{110}{\scriptsize #5}%
\putratom{-150}{260}{\scriptsize #6}%
\end{picture}}%
\def\sxlocant{\sxloocant{1}{2}{3}{4}{5}{6}}
%
\def\bdloocnth#1#2#3#4#5#6{%
\begin{picture}(880,800)(-\shifti,-\shiftii)%
\putlatom{10}{80}{#1}%
\putratom{180}{210}{#2}%
\putratom{380}{80}{#3}%
\putratom{380}{-120}{#4}%
\putratom{180}{-260}{#5}%
\putlatom{10}{-120}{#6}%
\end{picture}}%
\def\bdlocnth{\bdloocnth{a}{b}{c}{d}{e}{f}}
%
\def\sxloocnth#1#2#3#4#5#6{%
\begin{picture}(880,800)(-\shifti,-\shiftii)%
\putratom{40}{-20}{\scriptsize #1}%
\putratom{110}{100}{\scriptsize #2}%
\putlatom{290}{100}{\scriptsize #3}%
\putlatom{380}{-20}{\scriptsize #4}%
\putratom{110}{-140}{\scriptsize #6}%
\putlatom{290}{-140}{\scriptsize #5}%
\end{picture}}%
\def\sxlocnth{\sxloocnth{1}{2}{3}{4}{5}{6}}