summaryrefslogtreecommitdiff
path: root/macros/latex/contrib/xymtex/xymtxps
diff options
context:
space:
mode:
authorNorbert Preining <norbert@preining.info>2019-09-02 13:46:59 +0900
committerNorbert Preining <norbert@preining.info>2019-09-02 13:46:59 +0900
commite0c6872cf40896c7be36b11dcc744620f10adf1d (patch)
tree60335e10d2f4354b0674ec22d7b53f0f8abee672 /macros/latex/contrib/xymtex/xymtxps
Initial commit
Diffstat (limited to 'macros/latex/contrib/xymtex/xymtxps')
-rw-r--r--macros/latex/contrib/xymtex/xymtxps/chmst-ps.dtx1681
-rw-r--r--macros/latex/contrib/xymtex/xymtxps/chmst-ps.ins50
-rw-r--r--macros/latex/contrib/xymtex/xymtxps/chmst-ps.sty743
-rw-r--r--macros/latex/contrib/xymtex/xymtxps/xymtx-ps.drv87
-rw-r--r--macros/latex/contrib/xymtex/xymtxps/xymtx-ps.dtx899
-rw-r--r--macros/latex/contrib/xymtex/xymtxps/xymtx-ps.ins57
-rw-r--r--macros/latex/contrib/xymtex/xymtxps/xymtx-ps.sty452
7 files changed, 3969 insertions, 0 deletions
diff --git a/macros/latex/contrib/xymtex/xymtxps/chmst-ps.dtx b/macros/latex/contrib/xymtex/xymtxps/chmst-ps.dtx
new file mode 100644
index 0000000000..58ee50a903
--- /dev/null
+++ b/macros/latex/contrib/xymtex/xymtxps/chmst-ps.dtx
@@ -0,0 +1,1681 @@
+% \iffalse
+%
+% chmst-ps.dtx
+%
+% Copyright (C) 2002, 2004, 2010 by Shinsaku Fujita All rights reserved.
+%
+% ========================================
+%
+% Modified from the following previous package:
+%
+% chemist.dtx
+% Copyright (C) 1996, 1999, 2000 by Shinsaku Fujita All rights reserved.
+%
+% in order to utilize pstricks.
+%
+% This file is part of the ChemSci system
+% ========================================
+%
+% This style file is created for submitting a manuscript to
+% scientific journals. This style file is to be contained in the
+% ``chemist'' directory which is an input directory for TeX.
+%
+% For using this file, see
+% Shinsaku Fujita, ``LaTeX for Chemists and Biochemists''
+% Tokyo Kagaku Dojin, Tokyo (1993), Chapter 16.
+%
+% 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 chmst-ps.dtx and chmst-ps.ins
+% and the derived file chmst-ps.sty.
+%
+% Please report any bugs, comments, suggestions, etc. to:
+% Shinsaku Fujita,
+% Shonan Institute of Chemoinformatics and
+% Mathematical Chemistry
+% fujita-sicimc@nifmail.jp
+%
+%=======================================
+%
+% This file is a successor to:
+%
+% *********************************************************************
+% * chemist.sty <Sept 29 1991> by Shinsaku Fujita *
+% * counters and related matters for compounds. *
+% * ffboxit: November 2 1991 by S. Fujita *
+% * bslskipchange: November 6 1991 by S. Fujita (deleted) *
+% * chapinitial: 1991 November 7 by S. Fujita *
+% * variable arrows: 1992 May 24 by S. Fujita *
+% * reaction and scheme arrows (revised): 1992 May 24 by S. Fujita *
+% * changespace <=== bslskipchange: Dec 31 1992 by S. Fujita *
+% * (g)rshfboxit and (g)lshfboxit: January 3, 1993 by S. Fujita *
+% *********************************************************************
+% %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
+% Released on January 3, 1993
+% Copyright (C) 1993 by Shinsaku Fujita, all rights reserved.
+% This style file is created for making manuscripts of chemical fields.
+% This option style file is to be contained in the ``chemist'' directory
+% which is an input directory for TeX.
+%
+% %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
+% \def\j@urnalname{chemist}
+% \def\versi@ndate{January 03, 1993}
+% \def\versi@nno{ver1.00}
+% %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
+%
+% Version 1.01
+% --- added the end commands of the \verbatim environment and the
+% \verb command contained in LaTeX 2.09
+% --- \LaTeX, \BibTeX logos etc improved
+% \typeout{verbatim for LaTeX2.09 (and LaTeX2e) in chemist.sty}
+% \typeout{logos for LaTeX2.09 (and LaTeX2e) in chemist.sty}
+% \def\versi@ndate{April 20, 1996}
+% \def\j@urnalname{chemist}
+% \def\versi@ndate{April 20, 1996}
+% \def\versi@nno{ver1.01}
+% \def\copyrighth@lder{SF} % Shinsaku Fujita
+% %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
+% \def\j@urnalname{chemist} \def\journalID{chemist}
+% \def\versi@ndate{June 15, 1996}
+% \def\versi@nno{ver1.01a}
+% \def\copyrighth@lder{SF} % Shinsaku Fujita
+% \typeout{Package `\j@urnalname' (\versi@nno) <\versi@ndate>\space
+% [\copyrighth@lder]}
+% \typeout{chemist.sty ver1.01a (for LaTeX2e) 1996/06/15[SF]}
+% %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
+% \def\j@urnalname{chemist} \def\journalID{chemist}
+% \def\versi@ndate{March 16, 1999}
+% \def\versi@nno{ver2.00}
+% \def\copyrighth@lder{SF} % Shinsaku Fujita
+% %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
+% \def\j@urnalname{chemist} \def\journalID{chemist}
+% \def\versi@ndate{November 3, 2000}
+% \def\versi@nno{ver2.00a}
+% \def\copyrighth@lder{SF} % Shinsaku Fujita
+% %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
+% \def\j@urnalname{chmst-ps} \def\journalID{chmst-ps}
+% \def\versi@ndate{May 30, 2002}
+% \def\versi@nno{ver1.00}
+% \def\copyrighth@lder{SF} % Shinsaku Fujita
+% %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
+% \def\j@urnalname{chmst-ps} \def\journalID{chmst-ps}
+% \def\versi@ndate{August 30, 2004}
+% \def\versi@nno{ver1.01}
+% \def\copyrighth@lder{SF} % Shinsaku Fujita
+% %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
+% \def\j@urnalname{chmst-ps} \def\journalID{chmst-ps}
+% \def\versi@ndate{November 08, 2009}
+% \def\versi@nno{ver1.02}
+% \def\copyrighth@lder{SF} % Shinsaku Fujita
+% %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
+% \def\j@urnalname{chmst-ps} \def\journalID{chmst-ps}
+% \def\versi@ndate{November 26, 2009}
+% \def\versi@nno{ver1.03}
+% \def\copyrighth@lder{SF} % Shinsaku Fujita
+% %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
+%
+%
+% \fi
+% \CheckSum{1615}
+%% \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 \~}
+%
+% \iffalse
+%%
+%% `chmst-ps.dtx' ver1.00 (for LaTeX2e) 2002/05/30
+%% `chmst-ps.dtx' ver1.01 (for LaTeX2e) 2004/08/30
+%% `chmst-ps.dtx' ver1.02 (for LaTeX2e) 2009/11/08
+%% `chmst-ps.dtx' ver1.03 (for LaTeX2e) 2009/11/26
+%% `chmst-ps.dtx' ver5.00 (for LaTeX2e) 2010/10/01
+%% by Shinsaku Fujita
+%%
+%
+% \section{Initial declaration}
+%
+% \changes{v1.00}{2002/05/30}{First Version}
+% \changes{v1.01}{2004/08/30}{2nd Version}
+% \changes{v1.02}{2009/11/08}{3rd Version}
+% \changes{v1.03}{2009/11/26}{4th Version, harpoons}
+% \changes{v5.00}{2010/10/01}{For LaTeX Project Public License}
+%
+% \begin{macrocode}
+% \NeedsTeXFormat{LaTeX2e}
+% \end{macrocode}
+%
+% \begin{macrocode}
+% <chmstps>\ProvidesFile{chmst-ps.sty}
+%<driver>\ProvidesFile{chmst-ps.drv}
+%<driver> [2010/10/01 v5.00
+% <chmstps> ChemSci package ]
+%<driver> ChemSci package driver (English)
+% \end{macrocode}
+%
+%\setcounter{StandardModuleDepth}{1}
+%
+% \section{Driver file for this dtx file}
+%
+% \begin{macrocode}
+%<*driver>
+ ]
+\documentclass{ltxdoc}
+\GetFileInfo{chmst-ps.drv}
+\title{The chmst-ps Package \space\fileversion \\
+(Part of the XyMTeX/ChemSci package v5.00)}
+\author{Shinsaku Fujita \\
+Shonan Institute of Chemoinformatics and
+Mathematical Chemistry \\
+Ashigara-Kami-Gun, Kanagawa, 258-0019 Japan
+%% 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.
+}
+\date{\filedate}
+\begin{document}
+\maketitle
+\tableofcontents
+\DocInput{chmst-ps.dtx}
+\end{document}
+%</driver>
+% \end{macrocode}
+%
+% \fi
+%
+% \StopEventually{}
+%
+% \section{{\sc docstrip} options}
+%
+% This dtx file provides the {\sffamily chmst-ps} package
+% by docstrip processing.
+%
+% \DeleteShortVerb{\|}
+% \begin{center}
+% \begin{tabular}{|l|l|}
+% \hline
+% argument & package name \\
+% \hline
+% chmstps & chmst-ps.sty \\
+% driver & a documentation driver file \\
+% \hline
+% \end{tabular}
+% \end{center}
+% \MakeShortVerb{\|}
+%
+% \section{Version information}
+%
+% The old process for typing out version information remains active.
+% \begin{macrocode}
+%<chmstps>\def\j@urnalname{chmst-ps} \def\journalID{chmst-ps}
+\def\versi@ndate{October 01, 2010}
+\def\versi@nno{ver5.00}
+\def\copyrighth@lder{SF} % Shinsaku Fujita
+%<*chmstps>
+\typeout{Package `\j@urnalname' (\versi@nno) <\versi@ndate>\space
+[\copyrighth@lder]}
+\typeout{chmst-ps.sty ver5.00 (for LaTeX2e) 2010/10/01[SF]}
+%</chmstps>
+% \end{macrocode}
+%
+% \begin{macrocode}
+%<*chmstps>
+\@ifundefined{if@@@chemtimes}{\newif\if@@@chemtimes}{}
+\@ifundefined{if@@chemtimes}{\newif\if@@chemtimes}{}%from chemtimes
+\DeclareOption{chemtimes}{\@@@chemtimestrue}
+\@@@chemtimesfalse
+\ProcessOptions
+\if@@@chemtimes\if@@chemtimes\else
+ \PackageError{chmst-ps}
+ {The option ``chemtimes'' is not permitted}
+ {You should use this option after the chemtimes package is loaded.}
+\fi\fi
+\if@@@chemtimes
+\RequirePackage[chemtimes]{chemist}%
+\else
+\RequirePackage{chemist}%
+\fi
+\RequirePackage{xymtx-ps}%
+% \end{macrocode}
+%
+% \section{Cross-references of compounds}
+% (Deleted)
+% \section{Boxes for placing compounds}
+% (Deleted)
+% \section{Arrows}
+% \subsection{Arrows with variable length}
+% (Deleted)
+% \subsection{Reaction arrows with variable length}
+%
+% The {\sffamily chmst-ps} package defines arrows with variable length
+% for drawing chemical equations, where additional information
+% can be written on the upper and/or downward sides of each arrow.
+% \changes{v1.00}{2002/05/30}{First Version}
+%
+% Several elements for drawing horizontal reaction arrows within the scope of
+% pstricks package are defined first.
+%
+% \begin{macro}{\rArrow@Element}
+% \begin{macro}{\lArrow@Element}
+% \begin{macro}{\lrArrow@Element}
+% \begin{macro}{\eqArrow@Element}
+% \begin{macrocode}
+\newdimen\@tempdimX
+\newdimen\@tempdimY
+\def\rArrow@Element#1{\begingroup\hbox to#1{\hss%
+\begin{pspicture}(0,0)(#1,0.28em)%
+\psline[linewidth=0.4pt,arrowsize=2pt 2,%
+arrowlength=1.6,arrowinset=0.6]{->}(0pt,0.28em)(#1,0.28em)%
+\end{pspicture}\hss}\endgroup}
+\let\Arrow@Element=\rArrow@Element
+\def\lArrow@Element#1{\hbox to#1{\hss%
+\begin{pspicture}(0,0)(#1,0.28em)%
+\psline[linewidth=0.4pt,arrowsize=2pt 2,%
+arrowlength=1.6,arrowinset=0.6]{<-}(0pt,0.28em)(#1,0.28em)%
+\end{pspicture}\hss}}
+\def\lrArrow@Element#1{\hbox to#1{\hss%
+\begin{pspicture}(0,0)(#1,0.28em)%
+\psline[linewidth=0.4pt,arrowsize=2pt 2,%
+arrowlength=1.6,arrowinset=0.6]{<->}(0pt,0.28em)(#1,0.28em)%
+\end{pspicture}\hss}}
+\def\eqArrow@Element#1{\hbox to#1{\hss%
+\begin{pspicture}(0,0)(#1,0.43em)%
+\psline[linewidth=0.4pt,arrowsize=2pt 2,arrowlength=1.6,arrowinset=0.6]%
+{->}(0pt,0.43em)(#1,0.43em)%
+\psline[linewidth=0.4pt,arrowsize=2pt 2,arrowlength=1.6,arrowinset=0.6]%
+{<-}(0pt,0.13em)(#1,0.13em)%
+\end{pspicture}\hss}}
+% \end{macrocode}
+% \end{macro}
+% \end{macro}
+% \end{macro}
+% \end{macro}
+%
+% Several harpoons are created by means of the mechanism of the \textsf{PStricks}
+% package.
+% \changes{v1.03}{2009/11/26}{Harpoons added as PostScript procedures}
+%
+% \begin{macro}{\past@arrowtable}
+% Arow types (Hru, Hrd, Hlu, and Hld) are added to the existing arrow table
+% for a right upward harpoon, a right downward harpoon, a left upward harpoon,
+% and a left downward harpoon.
+% \begin{macrocode}
+\RequirePackage{pstricks}%
+\edef\past@arrowtable{\pst@arrowtable,Hru-Hru,Hrd-Hrd,Hlu-Hlu,Hld-Hld}
+% \end{macrocode}
+% \end{macro}
+%
+% \begin{macro}{\tx@HarpoonrUp}
+% \begin{macro}{\psas@Hru}
+% A right upward harpoon (arow type Hru) is typeset by \verb/\tx@HarpoonrUp/
+% (/HarpoonrUp as a PostScript name), where its arrowhead is typeset by an
+% internal macro name (\verb/\psas@Hru/). The PostScript commands (/CLW, /ED, and /L)
+% are defined in pstricks.pro.
+% \begin{macrocode}
+%rightharpoonup
+%\edef\past@arrowtable{\pst@arrowtable,Hru-Hru}
+\def\tx@HarpoonrUp{ \tx@setStrokeTransparency HarpoonrUp }%
+\@namedef{psas@Hru}{%
+ /HarpoonrUp{%PostScript Procedure
+ CLW mul add dup
+ 2 div /w ED
+ mul dup /h ED
+ mul /a ED
+ CLW 2 div /Hwd ED
+ h a sub /Hwh ED
+ 0 Hwh moveto
+ Hwd neg Hwh L
+ Hwd neg 0 L
+ 0 0 L
+ w h L
+ 0 Hwh L
+ gsave fill grestore
+}def
+\psk@arrowinset \psk@arrowlength \psk@arrowsize \tx@HarpoonrUp
+}
+% \end{macrocode}
+% \end{macro}
+% \end{macro}
+%
+% \begin{macro}{\tx@HarpoonrDown}
+% \begin{macro}{\psas@Hrd}
+% A right downward harpoon (arow type Hrd) is typeset by \verb/\tx@HarpoonrDown/
+% (/HarpoonrDown as a PostScript name), where its arrowhead is typeset by an
+% internal macro name (\verb/\psas@Hrd/).
+% \begin{macrocode}
+%rightharpoondown
+%\edef\past@arrowtable{\pst@arrowtable,Hrd-Hrd}
+\def\tx@HarpoonrDown{ \tx@setStrokeTransparency HarpoonrDown }%
+\@namedef{psas@Hrd}{%
+ /HarpoonrDown {%PostScript Procedure
+ CLW mul add dup
+ 2 div /w ED
+ mul dup /h ED
+ mul /a ED
+ CLW 2 div /Hwd ED
+ h a sub /Hwh ED
+ 0 Hwh moveto
+ Hwd Hwh L
+ Hwd 0 L
+ 0 0 L
+ w neg h L
+ 0 Hwh L
+ gsave fill grestore
+}def
+\psk@arrowinset \psk@arrowlength \psk@arrowsize \tx@HarpoonrDown
+}
+% \end{macrocode}
+% \end{macro}
+% \end{macro}
+%
+% \begin{macro}{\tx@HarpoonlUp}
+% \begin{macro}{\psas@Hlu}
+% A left upward harpoon (arow type Hlu) is typeset by \verb/\tx@HarpoonlUp/
+% (/HarpoonlUp as a PostScript name), where its arrowhead is typeset by an
+% internal macro name (\verb/\psas@Hlu/).
+% \begin{macrocode}
+%leftharpoonup
+%\edef\past@arrowtable{\pst@arrowtable,Hlu-Hlu}
+\def\tx@HarpoonlUp{ \tx@setStrokeTransparency HarpoonlUp }%
+\@namedef{psas@Hlu}{%
+ /HarpoonlUp {%PostScript Procedure
+ CLW mul add dup
+ 2 div /w ED
+ mul dup /h ED
+ mul /a ED
+ CLW 2 div /Hwd ED
+ h a sub /Hwh ED
+ 0 Hwh moveto
+ Hwd Hwh L
+ Hwd 0 L
+ 0 0 L
+ w neg h L
+ 0 Hwh L
+ gsave fill grestore
+}def
+\psk@arrowinset \psk@arrowlength \psk@arrowsize \tx@HarpoonlUp
+}
+% \end{macrocode}
+% \end{macro}
+% \end{macro}
+%
+% \begin{macro}{\tx@HarpoonlDown}
+% \begin{macro}{\psas@Hld}
+% A left downward harpoon (arow type Hld) is typeset by \verb/\tx@HarpoonlDown/
+% (/HarpoonlDown as a PostScript name), where its arrowhead is typeset by an
+% internal macro name (\verb/\psas@Hld/).
+% \begin{macrocode}
+%leftharpoondown
+%\edef\past@arrowtable{\pst@arrowtable,Hld-Hld}
+\def\tx@HarpoonlDown{ \tx@setStrokeTransparency HarpoonlDown }%
+\@namedef{psas@Hld}{%
+ /HarpoonlDown {%PostScript Procedure
+ CLW mul add dup
+ 2 div /w ED
+ mul dup /h ED
+ mul /a ED
+ CLW 2 div /Hwd ED
+ h a sub /Hwh ED
+ 0 Hwh moveto
+ Hwd neg Hwh L
+ Hwd neg 0 L
+ 0 0 L
+ w h L
+ 0 Hwh L
+ gsave fill grestore
+}def
+\psk@arrowinset \psk@arrowlength \psk@arrowsize \tx@HarpoonlDown
+}
+% \end{macrocode}
+% \end{macro}
+% \end{macro}
+%
+% \begin{macro}{\eqHarpoon@Element}
+% \changes{v1.03}{2009/11/26}{Harpoons added as PostScript procedures}
+% \begin{macrocode}
+\def\eqHarpoon@Element#1{\hbox to#1{\hss%
+\begin{pspicture}(0,0)(#1,0.43em)%
+\psline[linewidth=0.4pt,arrowsize=2pt 2,arrowlength=1.6,arrowinset=0.6]%
+{-Hru}(0pt,0.43em)(#1,0.43em)%
+\psline[linewidth=0.4pt,arrowsize=2pt 2,arrowlength=1.6,arrowinset=0.6]%
+{Hld-}(0pt,0.13em)(#1,0.13em)%
+\end{pspicture}\hss}}
+%
+%\def\eqHarpoon@Element#1{\hbox to#1{\hss%
+%\begin{pspicture}(0,0)(#1,0.43em)%
+%\psline[linewidth=0.8pt,arrowsize=2pt 2,arrowlength=1.6,arrowinset=0.6]%
+%{->}(0pt,0.43em)(#1,0.43em)%
+%\psline[linewidth=0.8pt,arrowsize=2pt 2,arrowlength=1.6,arrowinset=0.6]%
+%{<-}(0pt,0.13em)(#1,0.13em)%
+%\psline[linewidth=0.277em,linecolor=white]{-}(0pt,0.29em)(#1,0.29em)%
+%\end{pspicture}\hss}}
+% \end{macrocode}
+% \end{macro}
+%
+% Equilibirum arrows with uneven lengths are defined by using the \verb/\psline/ command
+% of the pstricks package.
+% \changes{v1.02}{2009/11/08}{2nd Version}
+%
+% \begin{macro}{\reqArrow@Element}
+% \begin{macro}{\leqArrow@Element}
+% \begin{macrocode}
+\def\reqArrow@Element#1{\begingroup%
+\dimen1=#1%
+\dimen0=\eqlbarrowstretch\dimen1%
+\dimen1=#1 \advance\dimen1 by-\dimen0 \divide\dimen1 by2\relax
+\dimen2=\dimen1 \advance\dimen2 by\dimen0
+\psline[linewidth=0.4pt,arrowsize=2pt 2,arrowlength=1.6,arrowinset=0.6]%
+{->}(0pt,0.43em)(#1,0.43em)%
+\psline[linewidth=0.4pt,arrowsize=2pt 2,arrowlength=1.6,arrowinset=0.6]%
+{<-}(\dimen1,0.13em)(\dimen2,0.13em)\endgroup}
+\def\leqArrow@Element#1{\begingroup%
+\dimen1=#1%
+\dimen0=\eqlbarrowstretch\dimen1%
+\dimen1=#1 \advance\dimen1 by-\dimen0 \divide\dimen1 by2\relax
+\dimen2=\dimen1 \advance\dimen2 by\dimen0
+\psline[linewidth=0.4pt,arrowsize=2pt 2,arrowlength=1.6,arrowinset=0.6]%
+{->}(\dimen1,0.43em)(\dimen2,0.43em)%
+\psline[linewidth=0.4pt,arrowsize=2pt 2,arrowlength=1.6,arrowinset=0.6]%
+{<-}(0pt,0.13em)(#1,0.13em)\endgroup}
+% \end{macrocode}
+% \end{macro}
+% \end{macro}
+%
+% \begin{macro}{\reqHarpoon@Element}
+% \begin{macro}{\leqHarpoon@Element}
+% \changes{v1.02}{2009/11/19}{Added}
+% \changes{v1.03}{2009/11/26}{Harpoons added as PostScript procedures}
+% \begin{macrocode}
+\def\reqHarpoon@Element#1{\begingroup%
+\dimen1=#1%
+\dimen0=\eqlbarrowstretch\dimen1%
+\dimen1=#1 \advance\dimen1 by-\dimen0 \divide\dimen1 by2\relax
+\dimen2=\dimen1 \advance\dimen2 by\dimen0
+\psline[linewidth=0.4pt,arrowsize=2pt 2,arrowlength=1.6,arrowinset=0.6]%
+{-Hru}(0pt,0.43em)(#1,0.43em)%
+\psline[linewidth=0.4pt,arrowsize=2pt 2,arrowlength=1.6,arrowinset=0.6]%
+{Hld-}(\dimen1,0.13em)(\dimen2,0.13em)%
+\endgroup}
+\def\leqHarpoon@Element#1{\begingroup%
+\dimen1=#1%
+\dimen0=\eqlbarrowstretch\dimen1%
+\dimen1=#1 \advance\dimen1 by-\dimen0 \divide\dimen1 by2\relax
+\dimen2=\dimen1 \advance\dimen2 by\dimen0
+\psline[linewidth=0.4pt,arrowsize=2pt 2,arrowlength=1.6,arrowinset=0.6]%
+{-Hru}(\dimen1,0.43em)(\dimen2,0.43em)%
+\psline[linewidth=0.4pt,arrowsize=2pt 2,arrowlength=1.6,arrowinset=0.6]%
+{Hld-}(0pt,0.13em)(#1,0.13em)%
+\endgroup}
+%
+%\def\reqHarpoon@Element#1{\begingroup%
+%\dimen1=#1%
+%\dimen0=\eqlbarrowstretch\dimen1%
+%\dimen1=#1 \advance\dimen1 by-\dimen0 \divide\dimen1 by2\relax
+%\dimen2=\dimen1 \advance\dimen2 by\dimen0
+%\psline[linewidth=0.8pt,arrowsize=2pt 2,arrowlength=1.6,arrowinset=0.6]%
+%{->}(0pt,0.43em)(#1,0.43em)%
+%\psline[linewidth=0.8pt,arrowsize=2pt 2,arrowlength=1.6,arrowinset=0.6]%
+%{<-}(\dimen1,0.13em)(\dimen2,0.13em)%
+%\psline[linewidth=0.277em,linecolor=white]{-}(0pt,0.29em)(#1,0.29em)%
+%\endgroup}
+%\def\leqHarpoon@Element#1{\begingroup%
+%\dimen1=#1%
+%\dimen0=\eqlbarrowstretch\dimen1%
+%\dimen1=#1 \advance\dimen1 by-\dimen0 \divide\dimen1 by2\relax
+%\dimen2=\dimen1 \advance\dimen2 by\dimen0
+%\psline[linewidth=0.8pt,arrowsize=2pt 2,arrowlength=1.6,arrowinset=0.6]%
+%\{->}(\dimen1,0.43em)(\dimen2,0.43em)%
+%\psline[linewidth=0.8pt,arrowsize=2pt 2,arrowlength=1.6,arrowinset=0.6]%
+%{<-}(0pt,0.13em)(#1,0.13em)%
+%\psline[linewidth=0.277em,linecolor=white]{-}(0pt,0.287em)(#1,0.287em)%
+%\endgroup}
+% \end{macrocode}
+% \end{macro}
+% \end{macro}
+%
+%
+% Each arrow element is used in the following common command for drawing
+% horizontal reaction arrows.
+% \changes{v1.02}{2009/11/08}{changed definition;
+% added \cs{reactarrowsep} and \cs{reactarrowseprate}}
+%
+% \begin{verbatim}
+% \reactarrowsep (dimension) for adjusting the two vertical spaces (default value 0pt)
+% \reactarrowseprate (string) for adjusting the lower vertical space (default 1.0)
+% \end{verbatim}
+%
+% \begin{macro}{\react@@rlarrow}
+% \begin{macrocode}
+\def\react@@rlarrow[#1]#2#3#4#5{\ensuremath{\mathrel{%
+\hskip#1\raisebox{#2}{\begingroup\@tempdimX=#3\relax%
+ \parbox{#3}{\centering
+ \baselineskip=.8\normalbaselineskip \ChemStrut{#4}\par%
+ \vskip-0.2\normalbaselineskip\vskip\reactarrowsep%
+ \begin{pspicture}(0,0)(\@tempdimX,0.6em)%
+% \Arrow@Element{\@tempdimX}%
+ \put(0,0){\Arrow@Element{\@tempdimX}}%
+ \end{pspicture}%
+ \par%
+ \vskip\reactarrowseprate\reactarrowsep%
+ \vskip-0.1\normalbaselineskip\ChemStrut{#5}}\endgroup}}}}
+%(old definition)
+%\def\react@@rlarrow[#1]#2#3#4#5{%
+%\hskip#1\raisebox{#2}{\begingroup\@tempdimX=#3\relax%
+% \begin{pspicture}(\@tempdimX,0)%
+% \rput[bl](0,0.86em){\hbox to\@tempdimX{\hss
+% \begin{tabular}{c}#4%
+% \end{tabular}\hss}}%
+% \Arrow@Element{\@tempdimX}%
+% \rput[tl](0,-0.3em){\hbox to\@tempdimX{\hss
+% \begin{tabular}{c}%
+% #5\end{tabular}\hss}}%
+% \end{pspicture}\endgroup}}
+% \end{macrocode}
+% \end{macro}
+%
+% \begin{macro}{\reactrarrow}
+% \begin{macro}{\reactlarrow}
+% \begin{macro}{\reactlrarrow}
+% \begin{macro}{\reactEqarrow}%2009/11/19 renamed from \verb/\reacteqarrow/
+% \begin{macro}{\reacteqarrow}%2009/11/19
+% \begin{macrocode}
+% ******************* 1991 Oct 4 S. Fujita
+% * reaction arrows * Revised 1992 May 24 S.Fujita%1999/02/02 SF
+% ******************* Redifined 2002 May 30 S. Fujita for pstricks
+% After Chapter 9 of ``LaTeX for (Bio)Chemists'' by Shinsaku Fujita
+%
+% #1 yoko #2 ue, #3 haba, #4 ya no ue, #5 ya no shita
+%
+\def\newreactrarrow{%
+\@ifnextchar[{\newreact@rarrow}{\newreact@rarrow[0pt]}}
+\def\newreact@rarrow[#1]#2#3#4#5{%
+\let\Arrow@Element=\rArrow@Element%
+\react@@rlarrow[#1]{#2}{#3}{#4}{#5}}
+\def\newreactlarrow{%
+\@ifnextchar[{\newreact@larrow}{\newreact@larrow[0pt]}}
+\def\newreact@larrow[#1]#2#3#4#5{%
+\let\Arrow@Element=\lArrow@Element%
+\react@@rlarrow[#1]{#2}{#3}{#4}{#5}}
+\def\newreactlrarrow{%
+\@ifnextchar[{\newreact@lrarrow}{\newreact@lrarrow[0pt]}}
+\def\newreact@lrarrow[#1]#2#3#4#5{%
+\let\Arrow@Element=\lrArrow@Element%
+\react@@rlarrow[#1]{#2}{#3}{#4}{#5}}
+%%%%2009/11/19
+\def\newreactEqarrow{%
+\@ifnextchar[{\newreact@Eqarrow}{\newreact@Eqarrow[0pt]}}
+\def\newreact@Eqarrow[#1]#2#3#4#5{%
+\let\Arrow@Element=\eqArrow@Element%
+\react@@rlarrow[#1]{#2}{#3}{#4}{#5}}
+\def\newreacteqarrow{%
+\@ifnextchar[{\newreact@eqarrow}{\newreact@eqarrow[0pt]}}
+\def\newreact@eqarrow[#1]#2#3#4#5{%
+\let\Arrow@Element=\eqHarpoon@Element%
+\react@@rlarrow[#1]{#2}{#3}{#4}{#5}}
+%%%%%2009/11/19
+%\let\reactrarrow=\newreactrarrow
+%\let\reactlarrow=\newreactlarrow
+%\let\reactlrarrow=\newreactlrarrow
+%\let\reactEqarrow=\newreactEqarrow
+%\let\reacteqarrow=\newreacteqarrow
+% \end{macrocode}
+% \end{macro}
+% \end{macro}
+% \end{macro}
+% \end{macro}
+% \end{macro}
+%
+% \begin{macro}{\reactREqarrow}%%renamed 2009/11/19
+% \begin{macro}{\reactLEqarrow}%%renamed 2009/11/19
+% \begin{macro}{\reactreqarrow}
+% \begin{macro}{\reactleqarrow}
+%
+% These commands have been added for the XyMTeX version 4.05.
+% The {\sffamily chemist} package additionally defines arrows with variable length
+% for drawing chemical equilibrium, where additional information
+% can be written on the upper and/or downward sides of each arrow.
+% The length of either one of arrows can be reduced by \verb/\eqlbarrowstretch/.
+%
+% \changes{v4.05}{2009/11/08}{added \cs{reactreqarrow} and \cs{reactleqarrow}}
+%
+% \begin{macrocode}
+\def\newreactREqarrow{%
+\@ifnextchar[{\newreact@REqarrow}{\newreact@REqarrow[0pt]}}
+\def\newreact@REqarrow[#1]#2#3#4#5{%
+\let\Arrow@Element=\reqArrow@Element
+\react@@rlarrow[#1]{#2}{#3}{#4}{#5}}
+\def\newreactLEqarrow{%
+\@ifnextchar[{\newreact@LEqarrow}{\newreact@LEqarrow[0pt]}}
+\def\newreact@LEqarrow[#1]#2#3#4#5{%
+\let\Arrow@Element=\leqArrow@Element
+\react@@rlarrow[#1]{#2}{#3}{#4}{#5}}
+%%%%%2009/11/19
+\def\newreactreqarrow{%
+\@ifnextchar[{\newreact@reqarrow}{\newreact@reqarrow[0pt]}}
+\def\newreact@reqarrow[#1]#2#3#4#5{%
+\let\Arrow@Element=\reqHarpoon@Element
+\react@@rlarrow[#1]{#2}{#3}{#4}{#5}}
+\def\newreactleqarrow{%
+\@ifnextchar[{\newreact@leqarrow}{\newreact@leqarrow[0pt]}}
+\def\newreact@leqarrow[#1]#2#3#4#5{%
+\let\Arrow@Element=\leqHarpoon@Element
+\react@@rlarrow[#1]{#2}{#3}{#4}{#5}}
+%%%%%2009/11/19
+%\let\reactREqarrow=\newreactREqarrow
+%\let\reactLEqarrow=\newreactLEqarrow
+%\let\reactreqarrow=\newreactreqarrow
+%\let\reactleqarrow=\newreactleqarrow
+% \end{macrocode}
+% \end{macro}
+% \end{macro}
+% \end{macro}
+% \end{macro}
+%
+% Several elements for drawing vertical reaction arrows within the scope of
+% pstricks package are defined first.
+%
+% \begin{macro}{\dArrow@Element}
+% \begin{macro}{\uArrow@Element}
+% \begin{macro}{\veqArrow@Element}
+% \begin{macro}{\duArrow@Element}
+% \begin{macrocode}
+\def\dArrow@Element#1{%
+\psline[linewidth=0.4pt,arrowsize=2pt 2,arrowlength=1.6,arrowinset=0.6]%
+{->}(0pt,#1)(0pt,0pt)}
+\def\uArrow@Element#1{%
+\psline[linewidth=0.4pt,arrowsize=2pt 2,arrowlength=1.6,arrowinset=0.6]%
+{<-}(0pt,#1)(0pt,0pt)}
+\def\veqArrow@Element#1{%
+\psline[linewidth=0.4pt,arrowsize=2pt 2,arrowlength=1.6,arrowinset=0.6]%
+{->}(-0.15em,#1)(-0.15em,0pt)%
+\psline[linewidth=0.4pt,arrowsize=2pt 2,arrowlength=1.6,arrowinset=0.6]%
+{<-}(0.15em,#1)(0.15em,0pt)}
+\def\duArrow@Element#1{%
+\psline[linewidth=0.4pt,arrowsize=2pt 2,arrowlength=1.6,arrowinset=0.6]%
+{<->}(0pt,#1)(0pt,0pt)}
+% \end{macrocode}
+% \end{macro}
+% \end{macro}
+% \end{macro}
+% \end{macro}
+%
+% \begin{macro}{\veqHarpoon@Element}
+% \changes{v1.02}{2009/11/19}{Added}
+% \changes{v1.03}{2009/11/26}{Harpoons added as PostScript procedures}
+% \begin{macrocode}
+\def\veqHarpoon@Element#1{%
+\psline[linewidth=0.4pt,arrowsize=2pt 2,arrowlength=1.6,arrowinset=0.6]%
+{-Hrd}(-0.15em,#1)(-0.15em,0pt)%
+\psline[linewidth=0.4pt,arrowsize=2pt 2,arrowlength=1.6,arrowinset=0.6]%
+{Hlu-}(0.15em,#1)(0.15em,0pt)%
+}
+%
+%\def\veqHarpoon@Element#1{%
+%\psline[linewidth=0.8pt,arrowsize=2pt 2,arrowlength=1.6,arrowinset=0.6]%
+%{->}(-0.15em,#1)(-0.15em,0pt)%
+%\psline[linewidth=0.8pt,arrowsize=2pt 2,arrowlength=1.6,arrowinset=0.6]%
+%{<-}(0.15em,#1)(0.15em,0pt)%
+%\psline[linewidth=0.28em,linecolor=white]{-}(0pt,0em)(0,#1)%
+%}
+% \end{macrocode}
+% \end{macro}
+%
+% Each arrow element is used in the following common command for drawing
+% vertical reaction arrows.
+%
+% \begin{macro}{\react@@duarrow}
+% \begin{macrocode}
+\def\react@@duarrow[#1]#2#3#4#5{\hskip#1\raisebox{#2}{%
+\@tempdimY=#3\def\arraystretch{0.8}%
+\begin{tabular}{l}#4\end{tabular}%
+{\tabcolsep=0pt\begin{tabular}{c}%
+\begin{pspicture}(0,0)(0,\@tempdimY)%
+\Arrow@Element{\@tempdimY}%
+\end{pspicture}\end{tabular}}%
+\begin{tabular}{l}#5\end{tabular}}}
+% \end{macrocode}
+% \end{macro}
+%
+% \begin{macro}{\reactdarrow}
+% \begin{macro}{\reactuarrow}
+% \begin{macro}{\reactduarrow}
+% \begin{macro}{\reactVEqarrow}%%renamed 2009/11/19
+% \begin{macro}{\reactveqarrow}%%renamed 2009/11/19
+% Vertical reaction arrows has been added.
+% \changes{v1.00}{2002/05/30}{First Version}
+% \begin{macrocode}
+\def\newreactdarrow{%
+\@ifnextchar[{\newreact@darrow}{\newreact@darrow[0pt]}}
+\def\newreact@darrow[#1]#2#3#4#5{%
+\let\Arrow@Element=\dArrow@Element
+\react@@duarrow[#1]{#2}{#3}{#4}{#5}}
+\def\newreactuarrow{%
+\@ifnextchar[{\newreact@uarrow}{\newreact@uarrow[0pt]}}
+\def\newreact@uarrow[#1]#2#3#4#5{%
+\let\Arrow@Element=\uArrow@Element
+\react@@duarrow[#1]{#2}{#3}{#4}{#5}}
+\def\newreactduarrow{%
+\@ifnextchar[{\newreact@duarrow}{\newreact@duarrow[0pt]}}
+\def\newreact@duarrow[#1]#2#3#4#5{%
+\let\Arrow@Element=\duArrow@Element
+\react@@duarrow[#1]{#2}{#3}{#4}{#5}}
+%%%%%2009/11/19
+\def\newreactVEqarrow{%
+\@ifnextchar[{\newreact@VEqarrow}{\newreact@VEqarrow[0pt]}}
+\def\newreact@VEqarrow[#1]#2#3#4#5{%
+\let\Arrow@Element=\veqArrow@Element
+\react@@duarrow[#1]{#2}{#3}{#4}{#5}}
+\def\newreactveqarrow{%
+\@ifnextchar[{\newreact@veqarrow}{\newreact@veqarrow[0pt]}}
+\def\newreact@veqarrow[#1]#2#3#4#5{%
+\let\Arrow@Element=\veqHarpoon@Element
+\react@@duarrow[#1]{#2}{#3}{#4}{#5}}
+%%%%%2009/11/19
+%\let\reactdarrow=\newreactdarrow
+%\let\reactuarrow=\newreactuarrow
+%\let\reactduarrow=\newreactduarrow
+%\let\reactVEqarrow=\newreactVEqarrow
+%\let\reactveqarrow=\newreactveqarrow
+% \end{macrocode}
+% \end{macro}
+% \end{macro}
+% \end{macro}
+% \end{macro}
+% \end{macro}
+%
+% Several elements for drawing down-sloped reaction arrows within the scope of
+% pstricks package are defined first.
+%
+% \begin{macro}{\seArrow@Element}
+% \begin{macrocode}
+\def\seArrow@Element#1{%
+\psline[linewidth=0.4pt,arrowsize=2pt 2,arrowlength=1.6,arrowinset=0.6]%
+{->}(0pt,#1)(#1,0pt)}
+\def\nwArrow@Element#1{%
+\psline[linewidth=0.4pt,arrowsize=2pt 2,arrowlength=1.6,arrowinset=0.6]%
+{<-}(0pt,#1)(#1,0pt)}
+% \end{macrocode}
+% \end{macro}
+%
+% Each arrow element is used in the following common command for drawing
+% down-sloped reaction arrows.
+%
+% \begin{macro}{\react@@decrarrow}
+% \begin{macrocode}
+\def\react@@decrarrow[#1]#2#3#4#5{\hskip#1\raisebox{#2}{%
+\@tempdimX=#3\divide\@tempdimX by2\relax
+\@tempdimY=#3\relax\def\arraystretch{0.8}%
+\begin{tabular}{l}#4\end{tabular}\kern1em%
+{\tabcolsep=0pt\begin{tabular}{c}
+\begin{pspicture}(\@tempdimX,0)(\@tempdimX,\@tempdimY)
+\Arrow@Element{\@tempdimY}%
+\end{pspicture}\end{tabular}}\kern1em%
+\begin{tabular}{l}#5\end{tabular}}}
+% \end{macrocode}
+% \end{macro}
+%
+% \begin{macro}{\reactsearrow}
+% \begin{macro}{\reactnwrarrow}
+% Further reaction arrows have been added.
+% \changes{v1.00}{2002/05/30}{First Version}
+% \begin{macrocode}
+\def\newreactsearrow{%
+\@ifnextchar[{\newreact@searrow}{\newreact@searrow[0pt]}}
+\def\newreact@searrow[#1]#2#3#4#5{%
+\let\Arrow@Element=\seArrow@Element
+\react@@decrarrow[#1]{#2}{#3}{#4}{#5}}
+\def\newreactnwarrow{%
+\@ifnextchar[{\newreact@nwarrow}{\newreact@nwarrow[0pt]}}
+\def\newreact@nwarrow[#1]#2#3#4#5{%
+\let\Arrow@Element=\nwArrow@Element
+\react@@decrarrow[#1]{#2}{#3}{#4}{#5}}
+%%%%%2009/11/19
+%\let\reactsearrow=\newreactsearrow
+%\let\reactnwarrow=\newreactnwarrow
+% \end{macrocode}
+% \end{macro}
+% \end{macro}
+%
+% Several elements for drawing up-sloped reaction arrows within the scope of
+% pstricks package are defined first.
+%
+% \begin{macro}{\neArrow@Element}
+% \begin{macrocode}
+\def\neArrow@Element#1{%
+\psline[linewidth=0.4pt,arrowsize=2pt 2,arrowlength=1.6,arrowinset=0.6]%
+{->}(0pt,0pt)(#1,#1)}
+\def\swArrow@Element#1{%
+\psline[linewidth=0.4pt,arrowsize=2pt 2,arrowlength=1.6,arrowinset=0.6]%
+{<-}(0pt,0pt)(#1,#1)}
+% \end{macrocode}
+% \end{macro}
+%
+% Each arrow element is used in the following common command for drawing
+% up-sloped reaction arrows.
+%
+% \begin{macro}{\react@@incrarrow}
+% \begin{macrocode}
+\def\react@@incrarrow[#1]#2#3#4#5{\hskip#1\raisebox{#2}{%
+\@tempdimX=#3 \divide\@tempdimX by2
+\@tempdimY=#3%
+\def\arraystretch{0.8}%
+\begin{tabular}{l}#4\end{tabular}\kern1em%
+{\tabcolsep=0pt
+\begin{tabular}{c}
+\begin{pspicture}(\@tempdimX,0)(\@tempdimX,\@tempdimY)
+\Arrow@Element{\@tempdimY}%
+\end{pspicture}%
+\end{tabular}}\kern1em%
+\begin{tabular}{l}#5\end{tabular}}}
+% \end{macrocode}
+% \end{macro}
+%
+% \begin{macro}{\reactnearrow}
+% \begin{macro}{\reactswarrow}
+% \begin{macrocode}
+\def\newreactnearrow{%
+\@ifnextchar[{\newreact@nearrow}{\newreact@nearrow[0pt]}}
+\def\newreact@nearrow[#1]#2#3#4#5{%
+\let\Arrow@Element=\neArrow@Element
+\react@@incrarrow[#1]{#2}{#3}{#4}{#5}}
+\def\newreactswarrow{%
+\@ifnextchar[{\newreact@swarrow}{\newreact@swarrow[0pt]}}
+\def\newreact@swarrow[#1]#2#3#4#5{%
+\let\Arrow@Element=\swArrow@Element
+\react@@incrarrow[#1]{#2}{#3}{#4}{#5}}
+%%%%%2009/11/19
+%\let\reactnearrow=\newreactnearrow
+%\let\reactswarrow=\newreactswarrow
+% \end{macrocode}
+% \end{macro}
+% \end{macro}
+%
+% Additional elements for drawing down- and up-sloped equilibrium arrows within the scope of
+% pstricks package are defined first.
+%
+% \begin{macro}{\deqArrow@Element}
+% \begin{macro}{\ueqArrow@Element}
+% \begin{macrocode}
+\def\deqArrow@Element#1{%
+\begingroup
+\@tempdima=#1 \advance\@tempdima by1.2pt
+\psline[linewidth=0.4pt,arrowsize=2pt 2,arrowlength=1.6,arrowinset=0.6]%
+{->}(1.2pt,\@tempdima)(\@tempdima,1.2pt)%
+\@tempdima=#1 \advance\@tempdima by-1.2pt
+\psline[linewidth=0.4pt,arrowsize=2pt 2,arrowlength=1.6,arrowinset=0.6]%
+{<-}(-1.2pt,\@tempdima)(\@tempdima,-1.2pt)\endgroup}
+\def\ueqArrow@Element#1{%
+\@tempdima=#1 \advance\@tempdima by-1.2pt
+\@tempdimb=#1 \advance\@tempdimb by1.2pt
+\psline[linewidth=0.4pt,arrowsize=2pt 2,arrowlength=1.6,arrowinset=0.6]%
+{->}(-1.2pt,1.2pt)(\@tempdima,\@tempdimb)%
+\psline[linewidth=0.4pt,arrowsize=2pt 2,arrowlength=1.6,arrowinset=0.6]%
+{<-}(1.2pt,-1.2pt)(\@tempdimb,\@tempdima)}
+% \end{macrocode}
+% \end{macro}
+% \end{macro}
+%
+% Additional elements for drawing down- and up-sloped equilibrium harpoons within the scope of
+% pstricks package are defined.
+% \changes{v1.02}{2009/11/19}{Added}
+%
+% \begin{macro}{\deqHarpoon@Element}
+% \begin{macro}{\ueqHarpoon@Element}
+% \changes{v1.03}{2009/11/26}{Harpoons added as PostScript procedures}
+% \begin{macrocode}
+\def\deqHarpoon@Element#1{%
+\begingroup
+\@tempdima=#1 \advance\@tempdima by1.2pt
+\psline[linewidth=0.4pt,arrowsize=2pt 2,arrowlength=1.6,arrowinset=0.6]%
+{-Hru}(1.2pt,\@tempdima)(\@tempdima,1.2pt)%
+\@tempdimb=#1 \advance\@tempdimb by-1.2pt
+\psline[linewidth=0.4pt,arrowsize=2pt 2,arrowlength=1.6,arrowinset=0.6]%
+{Hld-}(-1.2pt,\@tempdimb)(\@tempdimb,-1.2pt)%
+\endgroup}
+\def\ueqHarpoon@Element#1{%
+\begingroup
+\@tempdima=#1 \advance\@tempdima by-1.2pt
+\@tempdimb=#1 \advance\@tempdimb by1.2pt
+\psline[linewidth=0.4pt,arrowsize=2pt 2,arrowlength=1.6,arrowinset=0.6]%
+{-Hru}(-1.2pt,1.2pt)(\@tempdima,\@tempdimb)%
+\psline[linewidth=0.4pt,arrowsize=2pt 2,arrowlength=1.6,arrowinset=0.6]%
+{Hld-}(1.2pt,-1.2pt)(\@tempdimb,\@tempdima)%
+\endgroup}
+%
+%\def\deqHarpoon@Element#1{%
+%\begingroup
+%\@tempdima=#1 \advance\@tempdima by1.2pt
+%\psline[linewidth=0.8pt,arrowsize=2pt 2,arrowlength=1.6,arrowinset=0.6]%
+%{->}(1.2pt,\@tempdima)(\@tempdima,1.2pt)%
+%\@tempdimb=#1 \advance\@tempdimb by-1.2pt
+%\psline[linewidth=0.8pt,arrowsize=2pt 2,arrowlength=1.6,arrowinset=0.6]%
+%{<-}(-1.2pt,\@tempdimb)(\@tempdimb,-1.2pt)%
+%\psline[linewidth=0.28em,linecolor=white]{-}(0pt,#1)(#1,0pt)%
+%\endgroup}
+%\def\ueqHarpoon@Element#1{%
+%\begingroup
+%\@tempdima=#1 \advance\@tempdima by-1.2pt
+%\@tempdimb=#1 \advance\@tempdimb by1.2pt
+%\psline[linewidth=0.8pt,arrowsize=2pt 2,arrowlength=1.6,arrowinset=0.6]%
+%{->}(-1.2pt,1.2pt)(\@tempdima,\@tempdimb)%
+%\psline[linewidth=0.8pt,arrowsize=2pt 2,arrowlength=1.6,arrowinset=0.6]%
+%{<-}(1.2pt,-1.2pt)(\@tempdimb,\@tempdima)%
+%\psline[linewidth=0.28em,linecolor=white]{-}(0pt,0pt)(#1,#1)%
+%\endgroup}
+% \end{macrocode}
+% \end{macro}
+% \end{macro}
+%
+% \begin{macro}{\reactDEqarrow}
+% \begin{macro}{\reactUEqarrow}
+% \begin{macro}{\reactdeqarrow}
+% \begin{macro}{\reactueqarrow}
+% Further reaction arrows have been added.
+% \changes{v1.00}{2002/05/30}{First Version}
+% \begin{macrocode}
+\def\newreactDEqarrow{\@ifnextchar[%]
+{\newreact@DEqarrow}{\newreact@DEqarrow[0pt]}}
+\def\newreact@DEqarrow[#1]#2#3#4#5{%
+\let\Arrow@Element=\deqArrow@Element
+\react@@decrarrow[#1]{#2}{#3}{#4}{#5}}
+\def\newreactUEqarrow{\@ifnextchar[%]
+{\newreact@UEqarrow}{\newreact@UEqarrow[0pt]}}
+\def\newreact@UEqarrow[#1]#2#3#4#5{%
+\let\Arrow@Element=\ueqArrow@Element
+\react@@decrarrow[#1]{#2}{#3}{#4}{#5}}
+%%%%2009/11/19
+\def\newreactdeqarrow{\@ifnextchar[%]
+{\newreact@deqarrow}{\newreact@deqarrow[0pt]}}
+\def\newreact@deqarrow[#1]#2#3#4#5{%
+\let\Arrow@Element=\deqHarpoon@Element
+\react@@decrarrow[#1]{#2}{#3}{#4}{#5}}
+\def\newreactueqarrow{\@ifnextchar[%]
+{\newreact@ueqarrow}{\newreact@ueqarrow[0pt]}}
+\def\newreact@ueqarrow[#1]#2#3#4#5{%
+\let\Arrow@Element=\ueqHarpoon@Element
+\react@@decrarrow[#1]{#2}{#3}{#4}{#5}}
+%%%%2009/11/19
+%\let\reactDEqarrow=\newreactDEqarrow
+%\let\reactUEqarrow=\newreactUEqarrow
+%\let\reactdeqarrow=\newreactdeqarrow
+%\let\reactueqarrow=\newreactueqarrow
+% \end{macrocode}
+% \end{macro}
+% \end{macro}
+% \end{macro}
+% \end{macro}
+%
+% Additional elements for drawing down- and up-sloped double-headed arrows
+% within the scope of pstricks package are defined first.
+%
+% \begin{macro}{\ulrArrow@Element}
+% \begin{macro}{\dlrArrow@Element}
+% \begin{macrocode}
+\def\ulrArrow@Element#1{%
+\psline[linewidth=0.4pt,arrowsize=2pt 2,arrowlength=1.6,arrowinset=0.6]%
+{<->}(0pt,0pt)(#1,#1)}
+\def\dlrArrow@Element#1{%
+\psline[linewidth=0.4pt,arrowsize=2pt 2,arrowlength=1.6,arrowinset=0.6]%
+{<->}(0pt,#1)(#1,0pt)}
+% \end{macrocode}
+% \end{macro}
+% \end{macro}
+%
+% \begin{macro}{\reactulrarrow}
+% \begin{macro}{\reactdlrarrow}
+% \begin{macrocode}
+\def\newreactulrarrow{\@ifnextchar[%]
+{\newreact@ulrarrow}{\newreact@ulrarrow[0pt]}}
+\def\newreact@ulrarrow[#1]#2#3#4#5{%
+\let\Arrow@Element=\ulrArrow@Element
+\react@@incrarrow[#1]{#2}{#3}{#4}{#5}}
+\def\newreactdlrarrow{\@ifnextchar[%]
+{\newreact@dlrarrow}{\newreact@dlrarrow[0pt]}}
+\def\newreact@dlrarrow[#1]#2#3#4#5{
+\let\Arrow@Element=\dlrArrow@Element
+\react@@decrarrow[#1]{#2}{#3}{#4}{#5}}
+%%%%2009/11/19
+%\let\reactulrarrow=\newreactulrarrow
+%\let\reactdlrarrow=\newreactdlrarrow
+% \end{macrocode}
+% \end{macro}
+% \end{macro}
+%
+%
+% A new command \verb/\electronshiftAH/ is added to defining bent (curved) arrows
+% and harpoons.
+% \changes{v1.03}{2009/12/01}{Added}
+%
+% \begin{macro}{\electronshiftAH}
+% \begin{macrocode}
+\def\electronshiftAH#1(#2,#3)(#4,#5)(#6,#7){%
+\@ifnextchar(%
+{\electr@nshiftAH{#1}(#2,#3)(#4,#5)(#6,#7)}%
+{\electr@nshiftAH{#1}(#2,#3)(#4,#5)(#4,#5)(#6,#7)}}
+\def\electr@nshiftAH#1(#2,#3)(#4,#5)(#6,#7)(#8,#9){%
+\psbezier[unit=\unitlength,linewidth=0.4pt]{#1}%
+(#2,#3)(#4,#5)(#6,#7)(#8,#9)%
+}%
+%\def\electronshiftAH#1{%
+%\pscurve[unit=\unitlength,linewidth=0.4pt,arrowsize=2pt 2,%
+%arrowlength=1.6,arrowinset=0.6]{#1}}
+% \end{macrocode}
+% \end{macro}
+%
+% Several commmands for drawing curved harpoons are defined as follows:
+% \begin{macro}{\electronshiftHru}
+% \begin{macro}{\electronshiftHrd}
+% \begin{macro}{\electronshiftHlu}
+% \begin{macro}{\electronshiftHld}
+% \begin{macrocode}
+\def\electronshiftHru{\electronshiftAH{-Hru}}
+\def\electronshiftHrd{\electronshiftAH{-Hrd}}
+\def\electronshiftHlu{\electronshiftAH{Hlu-}}
+\def\electronshiftHld{\electronshiftAH{Hld-}}
+% \end{macrocode}
+% \end{macro}
+% \end{macro}
+% \end{macro}
+% \end{macro}
+%
+% Several commmands for drawing curved arrows are defined as follows:
+% \begin{macro}{\electronshiftArrowr}
+% \begin{macro}{\electronshiftArrowl}
+% \begin{macrocode}
+\def\electronshiftArrowr{\electronshiftAH{->}}
+\def\electronshiftArrowl{\electronshiftAH{<-}}
+% \end{macrocode}
+% \end{macro}
+% \end{macro}
+%
+% The {\sffamily chmst-ps} package defines double-line arrows with variable
+% length for drawing reaction schemes, where additional information
+% can be written on the upper and/or downward sides of each arrow.
+% \changes{v1.00}{2002/05/30}{First Version}
+%
+% Several elements for drawing horizontal scheme arrows within the scope of
+% pstricks package are defined first.
+%
+% \begin{macro}{\lSchemeArrow@Element}
+% \begin{macrocode}
+\def\lSchemeArrow@Element#1{\hbox to#1{\hss%
+\begin{pspicture}(0,0)(#1,0.28em)%
+\psline[linewidth=0.4pt,doubleline=true,doublesep=0.16em,%
+arrowsize=2pt 2,arrowlength=1.2,arrowinset=0.7]{<-}(0pt,0.28em)(#1,0.28em)%
+\end{pspicture}\hss}}
+\def\rSchemeArrow@Element#1{\hbox to#1{\hss%
+\begin{pspicture}(0,0)(#1,0.28em)%
+\psline[linewidth=0.4pt,doubleline=true,doublesep=0.16em,%
+arrowsize=2pt 2,arrowlength=1.2,arrowinset=0.7]{->}(0pt,0.28em)(#1,0.28em)%
+\end{pspicture}\hss}}
+\def\lrSchemeArrow@Element#1{\hbox to#1{\hss%
+\begin{pspicture}(0,0)(#1,0.28em)%
+\psline[linewidth=0.4pt,doubleline=true,doublesep=0.16em,%
+arrowsize=2pt 2,arrowlength=1.2,arrowinset=0.7]{<->}(0pt,0.28em)(#1,0.28em)%
+\end{pspicture}\hss}}
+% \end{macrocode}
+% \end{macro}
+%
+% \begin{macro}{\schemelarrow}
+% \begin{macro}{\schemerarrow}
+% \begin{macro}{\schemelrarrow}
+%
+% \begin{macrocode}
+% ********************************
+% * scheme arrows *
+% * 1991 OCT 4 S. Fujita *
+% * Revised 1992 May 24 S.Fujita * 1999/02/02 by S. Fujita
+% ******************************** Redefined 2002/05/30 by SF
+% After Chapter 9 of ``LaTeX for (Bio)Chemists'' by Shinsaku Fujita
+\def\newschemelarrow#1#2#3#4{%
+\let\Arrow@Element=\lSchemeArrow@Element
+\react@@rlarrow[0pt]{#1}{#2}{#3}{#4}}
+\def\newschemerarrow#1#2#3#4{%
+\let\Arrow@Element=\rSchemeArrow@Element
+\react@@rlarrow[0pt]{#1}{#2}{#3}{#4}}
+\def\newschemelrarrow#1#2#3#4{%
+\let\Arrow@Element=\lrSchemeArrow@Element
+\react@@rlarrow[0pt]{#1}{#2}{#3}{#4}}
+%%%%2009/11/19
+%\let\schemelarrow=\newschemelarrow
+%\let\schemerarrow=\newschemerarrow
+%\let\schemelrarrow=\newschemelrarrow
+% \end{macrocode}
+% \end{macro}
+% \end{macro}
+% \end{macro}
+%
+% \section{Redefinition of verbatim}
+% (Deleted)
+%
+% \section{Shadowed Boxes}
+% (Deleted)
+%
+% \section{Further boxes}
+% (Deleted)
+%
+% \section{Symbols for instant photography}
+% (Deleted)
+%
+% \section{Various arrows with fixed length}
+%
+% Because various arrows with a fixed length have been defined in the \textsf{chemist} package,
+% the corresponding codes for the \textsf{chmst-ps} package are described here.
+%
+% \changes{v1.02}{2009/11/19}{Added}
+%
+% \begin{macro}{\llongrightarrow}
+% \begin{macro}{\llongleftarrow}
+% \begin{macro}{\Equilibarrow}
+%
+% \begin{macrocode}
+\def\newllongrightarrow{\ensuremath{\mathrel{%
+\hbox to28pt{\hss\rArrow@Element{28pt}\hss}}}}
+\def\newllongleftarrow{\ensuremath{\mathrel{%
+\hbox to28pt{\hss\lArrow@Element{28pt}\hss}}}}
+\def\newllongleftrightarrow{\ensuremath{\mathrel{%
+\hbox to28pt{\hss\lrArrow@Element{28pt}\hss}}}}
+\def\newEquilibarrow{\ensuremath{\mathrel{%
+\hbox to28pt{\hss\eqArrow@Element{28pt}\hss}}}}
+%\let\llongrightarrow=\newllongrightarrow
+%\let\llongleftarrow=\newllongleftarrow
+%\let\llongleftrightarrow=\newllongleftrightarrow
+%\let\Equilibarrow=\newEquilibarrow
+% \end{macrocode}
+% \end{macro}
+% \end{macro}
+% \end{macro}
+%
+% \changes{v1.02}{2009/11/19}{Added}
+% \begin{macro}{\Llongrightarrow}
+% \begin{macro}{\Llongleftarrow}
+% \begin{macro}{\Llongleftrightarrow}
+%
+% \begin{macrocode}
+\def\newLlongrightarrow{\ensuremath{\mathrel{%
+\hbox to28pt{\hss\rSchemeArrow@Element{28pt}\hss}}}}
+\def\newLlongleftarrow{\ensuremath{\mathrel{%
+\hbox to28pt{\hss\lSchemeArrow@Element{28pt}\hss}}}}
+\def\newLlongleftrightarrow{\ensuremath{%
+\mathrel{\hbox to28pt{\hss\lrSchemeArrow@Element{28pt}\hss}}}}
+%\let\Llongrightarrow=\newLlongrightarrow
+%\let\Llongleftarrow=\newLlongleftarrow
+%\let\Llongleftrightarrow\newLlongleftrightarrow
+% \end{macrocode}
+% \end{macro}
+% \end{macro}
+% \end{macro}
+%
+% \changes{v1.02}{2009/11/19}{Added}
+% \begin{macro}{\lllongrightarrow}
+% \begin{macro}{\lllongleftarrow}
+% \begin{macro}{\lllongleftrightarrow}
+% \begin{macro}{\Equiliblongarrow}
+%
+% \begin{macrocode}
+\def\newlllongrightarrow{\ensuremath{\mathrel{%
+\hbox to35pt{\hss\rArrow@Element{35pt}\hss}}}}
+\def\newlllongleftarrow{\ensuremath{\mathrel{%
+\hbox to35pt{\hss\lArrow@Element{35pt}\hss}}}}
+\def\newlllongleftrightarrow{\ensuremath{\mathrel{%
+\hbox to35pt{\hss\lrArrow@Element{35pt}\hss}}}}
+\def\newEquiliblongarrow{\ensuremath{\mathrel{%
+\hbox to35pt{\hss\eqArrow@Element{35pt}\hss}}}}
+%\let\lllongrightarrow=\newlllongrightarrow
+%\let\lllongleftarrow=\newlllongleftarrow
+%\let\lllongleftrightarrow=\newlllongleftrightarrow
+%\let\Equiliblongarrow=\newEquiliblongarrow
+% \end{macrocode}
+% \end{macro}
+% \end{macro}
+% \end{macro}
+% \end{macro}
+%
+% \changes{v1.02}{2009/11/19}{Added}
+% \begin{macro}{\Lllongrightarrow}
+% \begin{macro}{\Lllongleftarrow}
+% \begin{macro}{\Lllongleftrightarrow}
+%
+% \begin{macrocode}
+\def\newLllongrightarrow{\ensuremath{\mathrel{%
+\hbox to35pt{\hss\rSchemeArrow@Element{35pt}\hss}}}}
+\def\newLllongleftarrow{\ensuremath{\mathrel{%
+\hbox to35pt{\hss\lSchemeArrow@Element{35pt}\hss}}}}
+\def\newLllongleftrightarrow{\ensuremath{%
+\mathrel{\hbox to35pt{\hss\lrSchemeArrow@Element{35pt}\hss}}}}
+%\let\Lllongrightarrow=\newLllongrightarrow
+%\let\Lllongleftarrow=\newLllongleftarrow
+%\let\Lllongleftrightarrow\newLllongleftrightarrow
+% \end{macrocode}
+% \end{macro}
+% \end{macro}
+% \end{macro}
+%
+%
+% Several elements for drawing horizontal harpoons within the scope of
+% pstricks package are defined first.
+% \changes{v1.02}{2009/11/19}{Added}
+%
+% \begin{macro}{\rightharpoonupElement}
+% \changes{v1.02}{2009/11/19}{Added}
+% \changes{v1.03}{2009/11/26}{Harpoons added as PostScript procedures}
+% \begin{macrocode}
+\def\rightharpoonupElement#1{%
+\lower0.2pt\hbox to#1{\hss%
+\begin{pspicture}(0,0)(#1,0.28em)
+\psline[linewidth=0.4pt,arrowsize=2pt 2,arrowlength=1.6,arrowinset=0.6]%
+{-Hru}(0pt,0.28em)(#1,0.28em)
+\end{pspicture}\hss}}
+%
+%\def\rightharpoonupElement#1{%
+%\lower0.2pt\hbox to#1{\hss%
+%\begin{pspicture}(0,0)(#1,0.28em)
+%\psline[linewidth=0.8pt,arrowsize=2pt 2,arrowlength=1.6,arrowinset=0.6]%
+%{->}(0pt,0.28em)(#1,0.28em)
+%\psline[linewidth=0.36em,linecolor=white]{-}(0pt,0.1em)(#1,0.1em)
+%\end{pspicture}\hss}}
+% \end{macrocode}
+% \end{macro}
+%
+% \begin{macro}{\rightharpoondownElement}
+% \changes{v1.02}{2009/11/19}{Added}
+% \changes{v1.03}{2009/11/26}{Harpoons added as PostScript procedures}
+% \begin{macrocode}
+\def\rightharpoondownElement#1{%
+\raise0.2pt\hbox to#1{\hss%
+\begin{pspicture}(0,0)(#1,0.28em)
+\psline[linewidth=0.4pt,arrowsize=2pt 2,arrowlength=1.6,arrowinset=0.6]%
+{-Hrd}(0pt,0.28em)(#1,0.28em)
+\end{pspicture}\hss}}
+%
+%\def\rightharpoondownElement#1{%
+%\raise0.2pt\hbox to#1{\hss%
+%\begin{pspicture}(0,0)(#1,0.28em)
+%\psline[linewidth=0.8pt,arrowsize=2pt 2,arrowlength=1.6,arrowinset=0.6]%
+%{->}(0pt,0.28em)(#1,0.28em)
+%\psline[linewidth=0.34em,linecolor=white]{-}(0pt,0.49em)(#1,0.49em)
+%\end{pspicture}\hss}}
+% \end{macrocode}
+% \end{macro}
+%
+% \begin{macro}{\leftharpoonupElement}
+% \changes{v1.02}{2009/11/19}{Added}
+% \changes{v1.03}{2009/11/26}{Harpoons added as PostScript procedures}
+% \begin{macrocode}
+\def\leftharpoonupElement#1{%
+\lower0.2pt\hbox to#1{\hss%
+\begin{pspicture}(0,0)(#1,0.28em)
+\psline[linewidth=0.4pt,arrowsize=2pt 2,arrowlength=1.6,arrowinset=0.6]%
+{Hlu-}(0pt,0.28em)(#1,0.28em)
+\end{pspicture}\hss}}
+%
+%\def\leftharpoonupElement#1{%
+%\lower0.2pt\hbox to#1{\hss%
+%\begin{pspicture}(0,0)(#1,0.28em)
+%\psline[linewidth=0.8pt,arrowsize=2pt 2,arrowlength=1.6,arrowinset=0.6]%
+%{<-}(0pt,0.28em)(#1,0.28em)
+%\psline[linewidth=0.36em,linecolor=white]{-}(0pt,0.1em)(#1,0.1em)
+%\end{pspicture}\hss}}
+% \end{macrocode}
+% \end{macro}
+%
+% \begin{macro}{\leftharpoondownElement}
+% \changes{v1.02}{2009/11/19}{Added}
+% \changes{v1.03}{2009/11/26}{Harpoons added as PostScript procedures}
+% \begin{macrocode}
+\def\leftharpoondownElement#1{%
+\lower0.2pt\hbox to#1{\hss%
+\begin{pspicture}(0,0)(#1,0.28em)
+\psline[linewidth=0.4pt,arrowsize=2pt 2,arrowlength=1.6,arrowinset=0.6]%
+{Hld-}(0pt,0.28em)(#1,0.28em)
+\end{pspicture}\hss}}
+%
+%\def\leftharpoondownElement#1{%
+%\lower0.2pt\hbox to#1{\hss%
+%\begin{pspicture}(0,0)(#1,0.28em)
+%\psline[linewidth=0.8pt,arrowsize=2pt 2,arrowlength=1.6,arrowinset=0.6]%
+%{<-}(0pt,0.28em)(#1,0.28em)
+%\psline[linewidth=0.34em,linecolor=white]{-}(0pt,0.49em)(#1,0.49em)
+%\end{pspicture}\hss}}
+% \end{macrocode}
+% \end{macro}
+%
+%
+% \changes{v1.02}{2009/11/19}{Added}
+% \begin{macro}{\llongrightharpoonup}
+% \begin{macro}{\llongrightharpoondown}
+% \begin{macro}{\llongleftharpoonup}
+% \begin{macro}{\llongleftharpoondown}
+% \begin{macrocode}
+\def\newllongrightharpoonup{\ensuremath{\mathrel{\rightharpoonupElement{28pt}}}}
+\def\newllongrightharpoondown{\ensuremath{\mathrel{\rightharpoondownElement{28pt}}}}
+\def\newllongleftharpoonup{\ensuremath{\mathrel{\leftharpoonupElement{28pt}}}}
+\def\newllongleftharpoondown{\ensuremath{\mathrel{\leftharpoondownElement{28pt}}}}
+%\let\llongrightharpoonup=\newllongrightharpoonup
+%\let\llongrightharpoondown=\newllongrightharpoondown
+%\let\llongleftharpoonup=\newllongleftharpoonup
+%\let\llongleftharpoondown=\newllongleftharpoondown
+% \end{macrocode}
+% \end{macro}
+% \end{macro}
+% \end{macro}
+% \end{macro}
+%
+% \changes{v1.02}{2009/11/19}{Added}
+% \begin{macro}{\lllongrightharpoonup}
+% \begin{macro}{\lllongrightharpoondown}
+% \begin{macro}{\lllongleftharpoonup}
+% \begin{macro}{\lllongleftharpoondown}
+% \begin{macrocode}
+\def\newlllongrightharpoonup{\ensuremath{\mathrel{\rightharpoonupElement{35pt}}}}
+\def\newlllongrightharpoondown{\ensuremath{\mathrel{\rightharpoondownElement{35pt}}}}
+\def\newlllongleftharpoonup{\ensuremath{\mathrel{\leftharpoonupElement{35pt}}}}
+\def\newlllongleftharpoondown{\ensuremath{\mathrel{\leftharpoondownElement{35pt}}}}
+%\let\lllongrightharpoonup=\newlllongrightharpoonup
+%\let\lllongrightharpoondown=\newlllongrightharpoondown
+%\let\lllongleftharpoonup=\newlllongleftharpoonup
+%\let\lllongleftharpoondown\newlllongleftharpoondown
+% \end{macrocode}
+% \end{macro}
+% \end{macro}
+% \end{macro}
+% \end{macro}
+%
+%
+% \changes{v1.02}{2009/11/19}{Added}
+% \begin{macro}{\equilibarrow}
+% \begin{macro}{\equiliblongarrow}
+% \begin{macrocode}
+\def\newequilibarrow{\ensuremath{\mathrel{%
+\hbox to28pt{\hss\eqHarpoon@Element{28pt}\hss}}}}
+\def\newequiliblongarrow{\ensuremath{\mathrel{%
+\hbox to35pt{\hss\eqHarpoon@Element{35pt}\hss}}}}
+%\let\equilibarrow=\newequilibarrow
+%\let\equiliblongarrow=\newequiliblongarrow
+% \end{macrocode}
+% \end{macro}
+% \end{macro}
+%
+%
+% \section{Chemical Corrections}
+% (Deleted)
+%
+%
+% \section{XyMcompd and XyMtab Environments}
+% (Deleted)
+%
+% \section{Useful commands}
+% (Deleted)
+%
+% \section{Double and triple bonds}
+% (Deleted)
+%
+% \section{Curved Arrows}
+%
+% To illustrate the mechanisms of organic reactions,
+% curved arrows are used to show an electron shift.
+% First, the macros for drawing them are
+% defined as follows.
+% \changes{v1.01}{2004/08/30}{Added at XyMTeX V4.01}
+%
+% \begin{macro}{\electronAHshift}
+% \changes{v5.00}{2010/10/01}{Redefined for compatibility to PDF mode}
+%
+% Arrows having a usual arrow head are defined as follows.
+% Keywords for differentiation are: r (right) and l (left),
+% which are contained in the middle of each command name.
+%
+% The |\pscurve| command of the \textsf{pstricks} package has been
+% replaced by |\psbezier|, where two control points are calculated
+% by means of |\calcontrolpoints| defined in the \textsf{chemist} package.
+%
+% \begin{macrocode}
+\def\electronAHshift{%
+\@ifnextchar[{\@electronAHshift}{\@electronAHshift[0]}}
+\def\@electronAHshift[#1](#2,#3)(#4,#5)#6{%
+\@tempcntXa=#2 \@tempcntYa=#3
+\@tempcntXb=#4 \@tempcntYb=#5
+\calcontrolpoints{#1}%defined in chemist package
+%\pscurve[unit=\unitlength,linewidth=0.4pt]{#6}%
+\psbezier[unit=\unitlength,linewidth=0.4pt]{#6}%
+(#2,#3)(\@cnttempa,\@cnttempb)(\@tempcntXc,\@tempcntYc)(#4,#5)%
+}
+% \end{macrocode}
+% \end{macro}
+%
+% \begin{macro}{\electronrshiftarrow}
+% \changes{v5.00}{2010/10/01}{Redefined using two control points}
+% \begin{macrocode}
+\def\electronrshiftarrow{%
+\@ifnextchar[{\@electronrshiftarrow}{\@electronrshiftarrow[0]}}
+\def\@electronrshiftarrow[#1](#2,#3)(#4,#5){%
+\ifnum#2<#4\relax
+\electronAHshift[#1](#2,#3)(#4,#5){->}%
+\else
+\ifcase#1\relax
+\electronAHshift[1](#2,#3)(#4,#5){->}%
+\or
+\electronAHshift[0](#2,#3)(#4,#5){->}%
+\fi\fi}
+% \end{macrocode}
+% \end{macro}
+%
+% \begin{macro}{\electronlshiftarrow}
+% \changes{v5.00}{2010/10/01}{Redefined using two control points}
+% \begin{macrocode}
+\def\electronlshiftarrow{%
+\@ifnextchar[{\@electronlshiftarrow}{\@electronlshiftarrow[0]}}
+\def\@electronlshiftarrow[#1](#2,#3)(#4,#5){%
+\ifnum#2<#4\relax
+\electronAHshift[#1](#2,#3)(#4,#5){<-}%
+\else
+\ifcase#1\relax
+\electronAHshift[1](#2,#3)(#4,#5){<-}%
+\or
+\electronAHshift[0](#2,#3)(#4,#5){<-}%
+\fi\fi}
+\def\futuresubst#1{\kern140\unitlength #1}
+% \end{macrocode}
+% \end{macro}
+%
+% \begin{macro}{\electronlshiftarrow}
+% \changes{v5.00}{2010/10/01}{Redefined using two control points}
+% \begin{macrocode}
+\def\electronlshiftarrow{%
+\@ifnextchar[{\@electronlshiftarrow}{\@electronlshiftarrow[0]}}
+\def\@electronlshiftarrow[#1](#2,#3)(#4,#5){%
+\ifnum#2<#4\relax
+\electronAHshift[#1](#2,#3)(#4,#5){<-}%
+\else
+\ifcase#1\relax
+\electronAHshift[1](#2,#3)(#4,#5){<-}%
+\or
+\electronAHshift[0](#2,#3)(#4,#5){<-}%
+\fi\fi}
+\def\futuresubst#1{\kern140\unitlength #1}
+% \end{macrocode}
+% \end{macro}
+%
+% Arrows having a harpoon-type head are defined as follows.
+% Keywords for differentiation are:
+% Hru (harpoon right upward), Hrd (harpoon right downward),
+% Hlu (harpoon left upward), and Hld (harpoon left downward).
+%
+% \begin{macro}{\electronHrushiftarrow}
+% \changes{v5.00}{2010/10/01}{Defined using two control points}
+% \begin{macrocode}
+\def\electronHrushiftarrow{%
+\@ifnextchar[{\@electronHrushiftarrow}{\@electronHrushiftarrow[0]}}
+\def\@electronHrushiftarrow[#1](#2,#3)(#4,#5){%
+\ifnum#2<#4\relax
+\electronAHshift[#1](#2,#3)(#4,#5){-Hru}%
+\else
+\ifcase#1\relax
+\electronAHshift[1](#2,#3)(#4,#5){-Hru}%
+\or
+\electronAHshift[0](#2,#3)(#4,#5){-Hru}%
+\fi\fi}
+% \end{macrocode}
+% \end{macro}
+%
+% \begin{macro}{\electronHrdshiftarrow}
+% \changes{v5.00}{2010/10/01}{Defined using two control points}
+% \begin{macrocode}
+\def\electronHrdshiftarrow{%
+\@ifnextchar[{\@electronHrdshiftarrow}{\@electronHrdshiftarrow[0]}}
+\def\@electronHrdshiftarrow[#1](#2,#3)(#4,#5){%
+\ifnum#2<#4\relax
+\electronAHshift[#1](#2,#3)(#4,#5){-Hrd}%
+\else
+\ifcase#1\relax
+\electronAHshift[1](#2,#3)(#4,#5){-Hrd}%
+\or
+\electronAHshift[0](#2,#3)(#4,#5){-Hrd}%
+\fi\fi}
+% \end{macrocode}
+% \end{macro}
+%
+% \begin{macro}{\electronHlushiftarrow}
+% \changes{v5.00}{2010/10/01}{Defined using two control points}
+% \begin{macrocode}
+%
+% \begin{macrocode}
+\def\electronHlushiftarrow{%
+\@ifnextchar[{\@electronHlushiftarrow}{\@electronHlushiftarrow[0]}}
+\def\@electronHlushiftarrow[#1](#2,#3)(#4,#5){%
+\ifnum#2<#4\relax
+\electronAHshift[#1](#2,#3)(#4,#5){Hlu-}%
+\else
+\ifcase#1\relax
+\electronAHshift[1](#2,#3)(#4,#5){Hlu-}%
+\or
+\electronAHshift[0](#2,#3)(#4,#5){Hlu-}%
+\fi\fi}
+% \end{macrocode}
+% \end{macro}
+%
+% \begin{macro}{\electronHrdshiftarrow}
+% \changes{v5.00}{2010/10/01}{Defined using two control points}
+% \begin{macrocode}
+%
+% \begin{macrocode}
+\def\electronHldshiftarrow{%
+\@ifnextchar[{\@electronHldshiftarrow}{\@electronHldshiftarrow[0]}}
+\def\@electronHldshiftarrow[#1](#2,#3)(#4,#5){%
+\ifnum#2<#4\relax
+\electronAHshift[#1](#2,#3)(#4,#5){Hld-}%
+\else
+\ifcase#1\relax
+\electronAHshift[1](#2,#3)(#4,#5){Hld-}%
+\or
+\electronAHshift[0](#2,#3)(#4,#5){Hld-}%
+\fi\fi}
+% \end{macrocode}
+% \end{macro}
+%
+%
+% \section{Initial Setting and Switch to PostScript Arrows}
+%
+% \begin{macro}{\chmstpssw}
+% \begin{macrocode}
+\def\chmstpssw{%setting of the chmst-ps package
+\let\reactrarrow=\newreactrarrow%
+\let\reactlarrow=\newreactlarrow
+\let\reactlrarrow=\newreactlrarrow
+\let\reactEqarrow=\newreactEqarrow
+\let\reacteqarrow=\newreacteqarrow
+%%%%
+\let\reactREqarrow=\newreactREqarrow%
+\let\reactLEqarrow=\newreactLEqarrow
+\let\reactreqarrow=\newreactreqarrow
+\let\reactleqarrow=\newreactleqarrow
+%%%%
+\let\reactdarrow=\newreactdarrow%
+\let\reactuarrow=\newreactuarrow
+\let\reactduarrow=\newreactduarrow
+\let\reactVEqarrow=\newreactVEqarrow
+\let\reactveqarrow=\newreactveqarrow
+%%%%
+\let\reactnearrow=\newreactnearrow%
+\let\reactswarrow=\newreactswarrow
+%%%%
+\let\reactsearrow=\newreactsearrow%
+\let\reactnwarrow=\newreactnwarrow
+%%%%
+\let\reactDEqarrow=\newreactDEqarrow%
+\let\reactUEqarrow=\newreactUEqarrow
+\let\reactdeqarrow=\newreactdeqarrow
+\let\reactueqarrow=\newreactueqarrow
+%%%%
+\let\reactulrarrow=\newreactulrarrow%
+\let\reactdlrarrow=\newreactdlrarrow
+%%%%
+\let\schemelarrow=\newschemelarrow%
+\let\schemerarrow=\newschemerarrow
+\let\schemelrarrow=\newschemelrarrow
+%%%%
+\let\llongrightarrow=\newllongrightarrow%
+\let\llongleftarrow=\newllongleftarrow
+\let\llongleftrightarrow=\newllongleftrightarrow
+\let\Equilibarrow=\newEquilibarrow
+%%%
+\let\Llongrightarrow=\newLlongrightarrow%
+\let\Llongleftarrow=\newLlongleftarrow
+\let\Llongleftrightarrow\newLlongleftrightarrow
+%%%
+\let\lllongrightarrow=\newlllongrightarrow%
+\let\lllongleftarrow=\newlllongleftarrow
+\let\lllongleftrightarrow=\newlllongleftrightarrow
+\let\Equiliblongarrow=\newEquiliblongarrow
+%%%
+\let\Lllongrightarrow=\newLllongrightarrow%
+\let\Lllongleftarrow=\newLllongleftarrow
+\let\Lllongleftrightarrow\newLllongleftrightarrow
+%%%
+\let\llongrightharpoonup=\newllongrightharpoonup%
+\let\llongrightharpoondown=\newllongrightharpoondown
+\let\llongleftharpoonup=\newllongleftharpoonup
+\let\llongleftharpoondown=\newllongleftharpoondown
+%%%
+\let\lllongrightharpoonup=\newlllongrightharpoonup%
+\let\lllongrightharpoondown=\newlllongrightharpoondown
+\let\lllongleftharpoonup=\newlllongleftharpoonup
+\let\lllongleftharpoondown\newlllongleftharpoondown
+%%%
+\let\equilibarrow=\newequilibarrow%
+\let\equiliblongarrow=\newequiliblongarrow
+%%%
+}
+\let\chmstpspdfsw=\chmstpssw%for compatibility to PDF mode
+% \end{macrocode}
+% \end{macro}
+%
+% \begin{macrocode}
+\chmstpssw%initial setting
+%</chmstps>
+% \end{macrocode}
+%
+% \Finale
+\endinput
diff --git a/macros/latex/contrib/xymtex/xymtxps/chmst-ps.ins b/macros/latex/contrib/xymtex/xymtxps/chmst-ps.ins
new file mode 100644
index 0000000000..5b3025d1b9
--- /dev/null
+++ b/macros/latex/contrib/xymtex/xymtxps/chmst-ps.ins
@@ -0,0 +1,50 @@
+\def\batchfile{chmst-ps.ins}
+\input docstrip.tex
+\preamble
+
+This is a generated file.
+
+Copyright 2002, 2004, 2009, 2010 by Shinsaku Fujita
+all rights reserved.
+This style file is created for drawing chemical structural formulas
+This style file is to be contained in the ``xymtex'' directory which
+is an input directory for TeX.
+
+This file is part of the XyMTeX system.
+=======================================
+Previous Versions:
+Version 1.00 Released on May 30, 2002
+Version 1.01 Released on August 30, 2004
+Version 1.02 Released on November 08, 2009
+Version 1.03 Released on November 26, 2009
+
+Present version (as chmst-ps.dtx etc.):
+Version 5.00 Released on October 01, 2010
+
+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 xymtx-ps.dtx and xymtx-ps.ins
+and the derived file xymtx-ps.sty.
+
+=======================================
+
+\endpreamble
+
+\keepsilent
+
+\generateFile{chmst-ps.drv}{t}{%
+ \from{chmst-ps.dtx}{driver}}
+
+\generateFile{chmst-ps.sty}{t}{%
+ \from{chmst-ps.dtx}{chmstps}}
+
+\endinput
diff --git a/macros/latex/contrib/xymtex/xymtxps/chmst-ps.sty b/macros/latex/contrib/xymtex/xymtxps/chmst-ps.sty
new file mode 100644
index 0000000000..f21a0b3c4f
--- /dev/null
+++ b/macros/latex/contrib/xymtex/xymtxps/chmst-ps.sty
@@ -0,0 +1,743 @@
+%%
+%% This is file `chmst-ps.sty',
+%% generated with the docstrip utility.
+%%
+%% The original source files were:
+%%
+%% chmst-ps.dtx (with options: `chmstps')
+%%
+%% This is a generated file.
+%%
+%% Copyright 2002, 2004, 2009, 2010 by Shinsaku Fujita
+%% all rights reserved.
+%% This style file is created for drawing chemical structural formulas
+%% This style file is to be contained in the ``xymtex'' directory which
+%% is an input directory for TeX.
+%%
+%% This file is part of the XyMTeX system.
+%% =======================================
+%% Previous Versions:
+%% Version 1.00 Released on May 30, 2002
+%% Version 1.01 Released on August 30, 2004
+%% Version 1.02 Released on November 08, 2009
+%% Version 1.03 Released on November 26, 2009
+%%
+%% Present version (as chmst-ps.dtx etc.):
+%% Version 5.00 Released on October 01, 2010
+%%
+%% 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 xymtx-ps.dtx and xymtx-ps.ins
+%% and the derived file xymtx-ps.sty.
+%%
+%% =======================================
+%%
+%% \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 \~}
+%%
+%% `chmst-ps.dtx' ver1.00 (for LaTeX2e) 2002/05/30
+%% `chmst-ps.dtx' ver1.01 (for LaTeX2e) 2004/08/30
+%% `chmst-ps.dtx' ver1.02 (for LaTeX2e) 2009/11/08
+%% `chmst-ps.dtx' ver1.03 (for LaTeX2e) 2009/11/26
+%% `chmst-ps.dtx' ver5.00 (for LaTeX2e) 2010/10/01
+%% by Shinsaku Fujita
+%%
+\def\j@urnalname{chmst-ps} \def\journalID{chmst-ps}
+\def\versi@ndate{October 01, 2010}
+\def\versi@nno{ver5.00}
+\def\copyrighth@lder{SF} % Shinsaku Fujita
+\typeout{Package `\j@urnalname' (\versi@nno) <\versi@ndate>\space
+[\copyrighth@lder]}
+\typeout{chmst-ps.sty ver5.00 (for LaTeX2e) 2010/10/01[SF]}
+\@ifundefined{if@@@chemtimes}{\newif\if@@@chemtimes}{}
+\@ifundefined{if@@chemtimes}{\newif\if@@chemtimes}{}%from chemtimes
+\DeclareOption{chemtimes}{\@@@chemtimestrue}
+\@@@chemtimesfalse
+\ProcessOptions
+\if@@@chemtimes\if@@chemtimes\else
+ \PackageError{chmst-ps}
+ {The option ``chemtimes'' is not permitted}
+ {You should use this option after the chemtimes package is loaded.}
+\fi\fi
+\if@@@chemtimes
+\RequirePackage[chemtimes]{chemist}%
+\else
+\RequirePackage{chemist}%
+\fi
+\RequirePackage{xymtx-ps}%
+\newdimen\@tempdimX
+\newdimen\@tempdimY
+\def\rArrow@Element#1{\begingroup\hbox to#1{\hss%
+\begin{pspicture}(0,0)(#1,0.28em)%
+\psline[linewidth=0.4pt,arrowsize=2pt 2,%
+arrowlength=1.6,arrowinset=0.6]{->}(0pt,0.28em)(#1,0.28em)%
+\end{pspicture}\hss}\endgroup}
+\let\Arrow@Element=\rArrow@Element
+\def\lArrow@Element#1{\hbox to#1{\hss%
+\begin{pspicture}(0,0)(#1,0.28em)%
+\psline[linewidth=0.4pt,arrowsize=2pt 2,%
+arrowlength=1.6,arrowinset=0.6]{<-}(0pt,0.28em)(#1,0.28em)%
+\end{pspicture}\hss}}
+\def\lrArrow@Element#1{\hbox to#1{\hss%
+\begin{pspicture}(0,0)(#1,0.28em)%
+\psline[linewidth=0.4pt,arrowsize=2pt 2,%
+arrowlength=1.6,arrowinset=0.6]{<->}(0pt,0.28em)(#1,0.28em)%
+\end{pspicture}\hss}}
+\def\eqArrow@Element#1{\hbox to#1{\hss%
+\begin{pspicture}(0,0)(#1,0.43em)%
+\psline[linewidth=0.4pt,arrowsize=2pt 2,arrowlength=1.6,arrowinset=0.6]%
+{->}(0pt,0.43em)(#1,0.43em)%
+\psline[linewidth=0.4pt,arrowsize=2pt 2,arrowlength=1.6,arrowinset=0.6]%
+{<-}(0pt,0.13em)(#1,0.13em)%
+\end{pspicture}\hss}}
+\RequirePackage{pstricks}%
+\edef\past@arrowtable{\pst@arrowtable,Hru-Hru,Hrd-Hrd,Hlu-Hlu,Hld-Hld}
+\def\tx@HarpoonrUp{ \tx@setStrokeTransparency HarpoonrUp }%
+\@namedef{psas@Hru}{%
+ /HarpoonrUp{%PostScript Procedure
+ CLW mul add dup
+ 2 div /w ED
+ mul dup /h ED
+ mul /a ED
+ CLW 2 div /Hwd ED
+ h a sub /Hwh ED
+ 0 Hwh moveto
+ Hwd neg Hwh L
+ Hwd neg 0 L
+ 0 0 L
+ w h L
+ 0 Hwh L
+ gsave fill grestore
+}def
+\psk@arrowinset \psk@arrowlength \psk@arrowsize \tx@HarpoonrUp
+}
+\def\tx@HarpoonrDown{ \tx@setStrokeTransparency HarpoonrDown }%
+\@namedef{psas@Hrd}{%
+ /HarpoonrDown {%PostScript Procedure
+ CLW mul add dup
+ 2 div /w ED
+ mul dup /h ED
+ mul /a ED
+ CLW 2 div /Hwd ED
+ h a sub /Hwh ED
+ 0 Hwh moveto
+ Hwd Hwh L
+ Hwd 0 L
+ 0 0 L
+ w neg h L
+ 0 Hwh L
+ gsave fill grestore
+}def
+\psk@arrowinset \psk@arrowlength \psk@arrowsize \tx@HarpoonrDown
+}
+\def\tx@HarpoonlUp{ \tx@setStrokeTransparency HarpoonlUp }%
+\@namedef{psas@Hlu}{%
+ /HarpoonlUp {%PostScript Procedure
+ CLW mul add dup
+ 2 div /w ED
+ mul dup /h ED
+ mul /a ED
+ CLW 2 div /Hwd ED
+ h a sub /Hwh ED
+ 0 Hwh moveto
+ Hwd Hwh L
+ Hwd 0 L
+ 0 0 L
+ w neg h L
+ 0 Hwh L
+ gsave fill grestore
+}def
+\psk@arrowinset \psk@arrowlength \psk@arrowsize \tx@HarpoonlUp
+}
+\def\tx@HarpoonlDown{ \tx@setStrokeTransparency HarpoonlDown }%
+\@namedef{psas@Hld}{%
+ /HarpoonlDown {%PostScript Procedure
+ CLW mul add dup
+ 2 div /w ED
+ mul dup /h ED
+ mul /a ED
+ CLW 2 div /Hwd ED
+ h a sub /Hwh ED
+ 0 Hwh moveto
+ Hwd neg Hwh L
+ Hwd neg 0 L
+ 0 0 L
+ w h L
+ 0 Hwh L
+ gsave fill grestore
+}def
+\psk@arrowinset \psk@arrowlength \psk@arrowsize \tx@HarpoonlDown
+}
+\def\eqHarpoon@Element#1{\hbox to#1{\hss%
+\begin{pspicture}(0,0)(#1,0.43em)%
+\psline[linewidth=0.4pt,arrowsize=2pt 2,arrowlength=1.6,arrowinset=0.6]%
+{-Hru}(0pt,0.43em)(#1,0.43em)%
+\psline[linewidth=0.4pt,arrowsize=2pt 2,arrowlength=1.6,arrowinset=0.6]%
+{Hld-}(0pt,0.13em)(#1,0.13em)%
+\end{pspicture}\hss}}
+\def\reqArrow@Element#1{\begingroup%
+\dimen1=#1%
+\dimen0=\eqlbarrowstretch\dimen1%
+\dimen1=#1 \advance\dimen1 by-\dimen0 \divide\dimen1 by2\relax
+\dimen2=\dimen1 \advance\dimen2 by\dimen0
+\psline[linewidth=0.4pt,arrowsize=2pt 2,arrowlength=1.6,arrowinset=0.6]%
+{->}(0pt,0.43em)(#1,0.43em)%
+\psline[linewidth=0.4pt,arrowsize=2pt 2,arrowlength=1.6,arrowinset=0.6]%
+{<-}(\dimen1,0.13em)(\dimen2,0.13em)\endgroup}
+\def\leqArrow@Element#1{\begingroup%
+\dimen1=#1%
+\dimen0=\eqlbarrowstretch\dimen1%
+\dimen1=#1 \advance\dimen1 by-\dimen0 \divide\dimen1 by2\relax
+\dimen2=\dimen1 \advance\dimen2 by\dimen0
+\psline[linewidth=0.4pt,arrowsize=2pt 2,arrowlength=1.6,arrowinset=0.6]%
+{->}(\dimen1,0.43em)(\dimen2,0.43em)%
+\psline[linewidth=0.4pt,arrowsize=2pt 2,arrowlength=1.6,arrowinset=0.6]%
+{<-}(0pt,0.13em)(#1,0.13em)\endgroup}
+\def\reqHarpoon@Element#1{\begingroup%
+\dimen1=#1%
+\dimen0=\eqlbarrowstretch\dimen1%
+\dimen1=#1 \advance\dimen1 by-\dimen0 \divide\dimen1 by2\relax
+\dimen2=\dimen1 \advance\dimen2 by\dimen0
+\psline[linewidth=0.4pt,arrowsize=2pt 2,arrowlength=1.6,arrowinset=0.6]%
+{-Hru}(0pt,0.43em)(#1,0.43em)%
+\psline[linewidth=0.4pt,arrowsize=2pt 2,arrowlength=1.6,arrowinset=0.6]%
+{Hld-}(\dimen1,0.13em)(\dimen2,0.13em)%
+\endgroup}
+\def\leqHarpoon@Element#1{\begingroup%
+\dimen1=#1%
+\dimen0=\eqlbarrowstretch\dimen1%
+\dimen1=#1 \advance\dimen1 by-\dimen0 \divide\dimen1 by2\relax
+\dimen2=\dimen1 \advance\dimen2 by\dimen0
+\psline[linewidth=0.4pt,arrowsize=2pt 2,arrowlength=1.6,arrowinset=0.6]%
+{-Hru}(\dimen1,0.43em)(\dimen2,0.43em)%
+\psline[linewidth=0.4pt,arrowsize=2pt 2,arrowlength=1.6,arrowinset=0.6]%
+{Hld-}(0pt,0.13em)(#1,0.13em)%
+\endgroup}
+\def\react@@rlarrow[#1]#2#3#4#5{\ensuremath{\mathrel{%
+\hskip#1\raisebox{#2}{\begingroup\@tempdimX=#3\relax%
+ \parbox{#3}{\centering
+ \baselineskip=.8\normalbaselineskip \ChemStrut{#4}\par%
+ \vskip-0.2\normalbaselineskip\vskip\reactarrowsep%
+ \begin{pspicture}(0,0)(\@tempdimX,0.6em)%
+ \put(0,0){\Arrow@Element{\@tempdimX}}%
+ \end{pspicture}%
+ \par%
+ \vskip\reactarrowseprate\reactarrowsep%
+ \vskip-0.1\normalbaselineskip\ChemStrut{#5}}\endgroup}}}}
+\def\newreactrarrow{%
+\@ifnextchar[{\newreact@rarrow}{\newreact@rarrow[0pt]}}
+\def\newreact@rarrow[#1]#2#3#4#5{%
+\let\Arrow@Element=\rArrow@Element%
+\react@@rlarrow[#1]{#2}{#3}{#4}{#5}}
+\def\newreactlarrow{%
+\@ifnextchar[{\newreact@larrow}{\newreact@larrow[0pt]}}
+\def\newreact@larrow[#1]#2#3#4#5{%
+\let\Arrow@Element=\lArrow@Element%
+\react@@rlarrow[#1]{#2}{#3}{#4}{#5}}
+\def\newreactlrarrow{%
+\@ifnextchar[{\newreact@lrarrow}{\newreact@lrarrow[0pt]}}
+\def\newreact@lrarrow[#1]#2#3#4#5{%
+\let\Arrow@Element=\lrArrow@Element%
+\react@@rlarrow[#1]{#2}{#3}{#4}{#5}}
+%%%%2009/11/19
+\def\newreactEqarrow{%
+\@ifnextchar[{\newreact@Eqarrow}{\newreact@Eqarrow[0pt]}}
+\def\newreact@Eqarrow[#1]#2#3#4#5{%
+\let\Arrow@Element=\eqArrow@Element%
+\react@@rlarrow[#1]{#2}{#3}{#4}{#5}}
+\def\newreacteqarrow{%
+\@ifnextchar[{\newreact@eqarrow}{\newreact@eqarrow[0pt]}}
+\def\newreact@eqarrow[#1]#2#3#4#5{%
+\let\Arrow@Element=\eqHarpoon@Element%
+\react@@rlarrow[#1]{#2}{#3}{#4}{#5}}
+%%%%%2009/11/19
+\def\newreactREqarrow{%
+\@ifnextchar[{\newreact@REqarrow}{\newreact@REqarrow[0pt]}}
+\def\newreact@REqarrow[#1]#2#3#4#5{%
+\let\Arrow@Element=\reqArrow@Element
+\react@@rlarrow[#1]{#2}{#3}{#4}{#5}}
+\def\newreactLEqarrow{%
+\@ifnextchar[{\newreact@LEqarrow}{\newreact@LEqarrow[0pt]}}
+\def\newreact@LEqarrow[#1]#2#3#4#5{%
+\let\Arrow@Element=\leqArrow@Element
+\react@@rlarrow[#1]{#2}{#3}{#4}{#5}}
+%%%%%2009/11/19
+\def\newreactreqarrow{%
+\@ifnextchar[{\newreact@reqarrow}{\newreact@reqarrow[0pt]}}
+\def\newreact@reqarrow[#1]#2#3#4#5{%
+\let\Arrow@Element=\reqHarpoon@Element
+\react@@rlarrow[#1]{#2}{#3}{#4}{#5}}
+\def\newreactleqarrow{%
+\@ifnextchar[{\newreact@leqarrow}{\newreact@leqarrow[0pt]}}
+\def\newreact@leqarrow[#1]#2#3#4#5{%
+\let\Arrow@Element=\leqHarpoon@Element
+\react@@rlarrow[#1]{#2}{#3}{#4}{#5}}
+%%%%%2009/11/19
+\def\dArrow@Element#1{%
+\psline[linewidth=0.4pt,arrowsize=2pt 2,arrowlength=1.6,arrowinset=0.6]%
+{->}(0pt,#1)(0pt,0pt)}
+\def\uArrow@Element#1{%
+\psline[linewidth=0.4pt,arrowsize=2pt 2,arrowlength=1.6,arrowinset=0.6]%
+{<-}(0pt,#1)(0pt,0pt)}
+\def\veqArrow@Element#1{%
+\psline[linewidth=0.4pt,arrowsize=2pt 2,arrowlength=1.6,arrowinset=0.6]%
+{->}(-0.15em,#1)(-0.15em,0pt)%
+\psline[linewidth=0.4pt,arrowsize=2pt 2,arrowlength=1.6,arrowinset=0.6]%
+{<-}(0.15em,#1)(0.15em,0pt)}
+\def\duArrow@Element#1{%
+\psline[linewidth=0.4pt,arrowsize=2pt 2,arrowlength=1.6,arrowinset=0.6]%
+{<->}(0pt,#1)(0pt,0pt)}
+\def\veqHarpoon@Element#1{%
+\psline[linewidth=0.4pt,arrowsize=2pt 2,arrowlength=1.6,arrowinset=0.6]%
+{-Hrd}(-0.15em,#1)(-0.15em,0pt)%
+\psline[linewidth=0.4pt,arrowsize=2pt 2,arrowlength=1.6,arrowinset=0.6]%
+{Hlu-}(0.15em,#1)(0.15em,0pt)%
+}
+\def\react@@duarrow[#1]#2#3#4#5{\hskip#1\raisebox{#2}{%
+\@tempdimY=#3\def\arraystretch{0.8}%
+\begin{tabular}{l}#4\end{tabular}%
+{\tabcolsep=0pt\begin{tabular}{c}%
+\begin{pspicture}(0,0)(0,\@tempdimY)%
+\Arrow@Element{\@tempdimY}%
+\end{pspicture}\end{tabular}}%
+\begin{tabular}{l}#5\end{tabular}}}
+\def\newreactdarrow{%
+\@ifnextchar[{\newreact@darrow}{\newreact@darrow[0pt]}}
+\def\newreact@darrow[#1]#2#3#4#5{%
+\let\Arrow@Element=\dArrow@Element
+\react@@duarrow[#1]{#2}{#3}{#4}{#5}}
+\def\newreactuarrow{%
+\@ifnextchar[{\newreact@uarrow}{\newreact@uarrow[0pt]}}
+\def\newreact@uarrow[#1]#2#3#4#5{%
+\let\Arrow@Element=\uArrow@Element
+\react@@duarrow[#1]{#2}{#3}{#4}{#5}}
+\def\newreactduarrow{%
+\@ifnextchar[{\newreact@duarrow}{\newreact@duarrow[0pt]}}
+\def\newreact@duarrow[#1]#2#3#4#5{%
+\let\Arrow@Element=\duArrow@Element
+\react@@duarrow[#1]{#2}{#3}{#4}{#5}}
+%%%%%2009/11/19
+\def\newreactVEqarrow{%
+\@ifnextchar[{\newreact@VEqarrow}{\newreact@VEqarrow[0pt]}}
+\def\newreact@VEqarrow[#1]#2#3#4#5{%
+\let\Arrow@Element=\veqArrow@Element
+\react@@duarrow[#1]{#2}{#3}{#4}{#5}}
+\def\newreactveqarrow{%
+\@ifnextchar[{\newreact@veqarrow}{\newreact@veqarrow[0pt]}}
+\def\newreact@veqarrow[#1]#2#3#4#5{%
+\let\Arrow@Element=\veqHarpoon@Element
+\react@@duarrow[#1]{#2}{#3}{#4}{#5}}
+%%%%%2009/11/19
+\def\seArrow@Element#1{%
+\psline[linewidth=0.4pt,arrowsize=2pt 2,arrowlength=1.6,arrowinset=0.6]%
+{->}(0pt,#1)(#1,0pt)}
+\def\nwArrow@Element#1{%
+\psline[linewidth=0.4pt,arrowsize=2pt 2,arrowlength=1.6,arrowinset=0.6]%
+{<-}(0pt,#1)(#1,0pt)}
+\def\react@@decrarrow[#1]#2#3#4#5{\hskip#1\raisebox{#2}{%
+\@tempdimX=#3\divide\@tempdimX by2\relax
+\@tempdimY=#3\relax\def\arraystretch{0.8}%
+\begin{tabular}{l}#4\end{tabular}\kern1em%
+{\tabcolsep=0pt\begin{tabular}{c}
+\begin{pspicture}(\@tempdimX,0)(\@tempdimX,\@tempdimY)
+\Arrow@Element{\@tempdimY}%
+\end{pspicture}\end{tabular}}\kern1em%
+\begin{tabular}{l}#5\end{tabular}}}
+\def\newreactsearrow{%
+\@ifnextchar[{\newreact@searrow}{\newreact@searrow[0pt]}}
+\def\newreact@searrow[#1]#2#3#4#5{%
+\let\Arrow@Element=\seArrow@Element
+\react@@decrarrow[#1]{#2}{#3}{#4}{#5}}
+\def\newreactnwarrow{%
+\@ifnextchar[{\newreact@nwarrow}{\newreact@nwarrow[0pt]}}
+\def\newreact@nwarrow[#1]#2#3#4#5{%
+\let\Arrow@Element=\nwArrow@Element
+\react@@decrarrow[#1]{#2}{#3}{#4}{#5}}
+%%%%%2009/11/19
+\def\neArrow@Element#1{%
+\psline[linewidth=0.4pt,arrowsize=2pt 2,arrowlength=1.6,arrowinset=0.6]%
+{->}(0pt,0pt)(#1,#1)}
+\def\swArrow@Element#1{%
+\psline[linewidth=0.4pt,arrowsize=2pt 2,arrowlength=1.6,arrowinset=0.6]%
+{<-}(0pt,0pt)(#1,#1)}
+\def\react@@incrarrow[#1]#2#3#4#5{\hskip#1\raisebox{#2}{%
+\@tempdimX=#3 \divide\@tempdimX by2
+\@tempdimY=#3%
+\def\arraystretch{0.8}%
+\begin{tabular}{l}#4\end{tabular}\kern1em%
+{\tabcolsep=0pt
+\begin{tabular}{c}
+\begin{pspicture}(\@tempdimX,0)(\@tempdimX,\@tempdimY)
+\Arrow@Element{\@tempdimY}%
+\end{pspicture}%
+\end{tabular}}\kern1em%
+\begin{tabular}{l}#5\end{tabular}}}
+\def\newreactnearrow{%
+\@ifnextchar[{\newreact@nearrow}{\newreact@nearrow[0pt]}}
+\def\newreact@nearrow[#1]#2#3#4#5{%
+\let\Arrow@Element=\neArrow@Element
+\react@@incrarrow[#1]{#2}{#3}{#4}{#5}}
+\def\newreactswarrow{%
+\@ifnextchar[{\newreact@swarrow}{\newreact@swarrow[0pt]}}
+\def\newreact@swarrow[#1]#2#3#4#5{%
+\let\Arrow@Element=\swArrow@Element
+\react@@incrarrow[#1]{#2}{#3}{#4}{#5}}
+%%%%%2009/11/19
+\def\deqArrow@Element#1{%
+\begingroup
+\@tempdima=#1 \advance\@tempdima by1.2pt
+\psline[linewidth=0.4pt,arrowsize=2pt 2,arrowlength=1.6,arrowinset=0.6]%
+{->}(1.2pt,\@tempdima)(\@tempdima,1.2pt)%
+\@tempdima=#1 \advance\@tempdima by-1.2pt
+\psline[linewidth=0.4pt,arrowsize=2pt 2,arrowlength=1.6,arrowinset=0.6]%
+{<-}(-1.2pt,\@tempdima)(\@tempdima,-1.2pt)\endgroup}
+\def\ueqArrow@Element#1{%
+\@tempdima=#1 \advance\@tempdima by-1.2pt
+\@tempdimb=#1 \advance\@tempdimb by1.2pt
+\psline[linewidth=0.4pt,arrowsize=2pt 2,arrowlength=1.6,arrowinset=0.6]%
+{->}(-1.2pt,1.2pt)(\@tempdima,\@tempdimb)%
+\psline[linewidth=0.4pt,arrowsize=2pt 2,arrowlength=1.6,arrowinset=0.6]%
+{<-}(1.2pt,-1.2pt)(\@tempdimb,\@tempdima)}
+\def\deqHarpoon@Element#1{%
+\begingroup
+\@tempdima=#1 \advance\@tempdima by1.2pt
+\psline[linewidth=0.4pt,arrowsize=2pt 2,arrowlength=1.6,arrowinset=0.6]%
+{-Hru}(1.2pt,\@tempdima)(\@tempdima,1.2pt)%
+\@tempdimb=#1 \advance\@tempdimb by-1.2pt
+\psline[linewidth=0.4pt,arrowsize=2pt 2,arrowlength=1.6,arrowinset=0.6]%
+{Hld-}(-1.2pt,\@tempdimb)(\@tempdimb,-1.2pt)%
+\endgroup}
+\def\ueqHarpoon@Element#1{%
+\begingroup
+\@tempdima=#1 \advance\@tempdima by-1.2pt
+\@tempdimb=#1 \advance\@tempdimb by1.2pt
+\psline[linewidth=0.4pt,arrowsize=2pt 2,arrowlength=1.6,arrowinset=0.6]%
+{-Hru}(-1.2pt,1.2pt)(\@tempdima,\@tempdimb)%
+\psline[linewidth=0.4pt,arrowsize=2pt 2,arrowlength=1.6,arrowinset=0.6]%
+{Hld-}(1.2pt,-1.2pt)(\@tempdimb,\@tempdima)%
+\endgroup}
+\def\newreactDEqarrow{\@ifnextchar[%]
+{\newreact@DEqarrow}{\newreact@DEqarrow[0pt]}}
+\def\newreact@DEqarrow[#1]#2#3#4#5{%
+\let\Arrow@Element=\deqArrow@Element
+\react@@decrarrow[#1]{#2}{#3}{#4}{#5}}
+\def\newreactUEqarrow{\@ifnextchar[%]
+{\newreact@UEqarrow}{\newreact@UEqarrow[0pt]}}
+\def\newreact@UEqarrow[#1]#2#3#4#5{%
+\let\Arrow@Element=\ueqArrow@Element
+\react@@decrarrow[#1]{#2}{#3}{#4}{#5}}
+%%%%2009/11/19
+\def\newreactdeqarrow{\@ifnextchar[%]
+{\newreact@deqarrow}{\newreact@deqarrow[0pt]}}
+\def\newreact@deqarrow[#1]#2#3#4#5{%
+\let\Arrow@Element=\deqHarpoon@Element
+\react@@decrarrow[#1]{#2}{#3}{#4}{#5}}
+\def\newreactueqarrow{\@ifnextchar[%]
+{\newreact@ueqarrow}{\newreact@ueqarrow[0pt]}}
+\def\newreact@ueqarrow[#1]#2#3#4#5{%
+\let\Arrow@Element=\ueqHarpoon@Element
+\react@@decrarrow[#1]{#2}{#3}{#4}{#5}}
+%%%%2009/11/19
+\def\ulrArrow@Element#1{%
+\psline[linewidth=0.4pt,arrowsize=2pt 2,arrowlength=1.6,arrowinset=0.6]%
+{<->}(0pt,0pt)(#1,#1)}
+\def\dlrArrow@Element#1{%
+\psline[linewidth=0.4pt,arrowsize=2pt 2,arrowlength=1.6,arrowinset=0.6]%
+{<->}(0pt,#1)(#1,0pt)}
+\def\newreactulrarrow{\@ifnextchar[%]
+{\newreact@ulrarrow}{\newreact@ulrarrow[0pt]}}
+\def\newreact@ulrarrow[#1]#2#3#4#5{%
+\let\Arrow@Element=\ulrArrow@Element
+\react@@incrarrow[#1]{#2}{#3}{#4}{#5}}
+\def\newreactdlrarrow{\@ifnextchar[%]
+{\newreact@dlrarrow}{\newreact@dlrarrow[0pt]}}
+\def\newreact@dlrarrow[#1]#2#3#4#5{
+\let\Arrow@Element=\dlrArrow@Element
+\react@@decrarrow[#1]{#2}{#3}{#4}{#5}}
+%%%%2009/11/19
+\def\electronshiftAH#1(#2,#3)(#4,#5)(#6,#7){%
+\@ifnextchar(%
+{\electr@nshiftAH{#1}(#2,#3)(#4,#5)(#6,#7)}%
+{\electr@nshiftAH{#1}(#2,#3)(#4,#5)(#4,#5)(#6,#7)}}
+\def\electr@nshiftAH#1(#2,#3)(#4,#5)(#6,#7)(#8,#9){%
+\psbezier[unit=\unitlength,linewidth=0.4pt]{#1}%
+(#2,#3)(#4,#5)(#6,#7)(#8,#9)%
+}%
+\def\electronshiftHru{\electronshiftAH{-Hru}}
+\def\electronshiftHrd{\electronshiftAH{-Hrd}}
+\def\electronshiftHlu{\electronshiftAH{Hlu-}}
+\def\electronshiftHld{\electronshiftAH{Hld-}}
+\def\electronshiftArrowr{\electronshiftAH{->}}
+\def\electronshiftArrowl{\electronshiftAH{<-}}
+\def\lSchemeArrow@Element#1{\hbox to#1{\hss%
+\begin{pspicture}(0,0)(#1,0.28em)%
+\psline[linewidth=0.4pt,doubleline=true,doublesep=0.16em,%
+arrowsize=2pt 2,arrowlength=1.2,arrowinset=0.7]{<-}(0pt,0.28em)(#1,0.28em)%
+\end{pspicture}\hss}}
+\def\rSchemeArrow@Element#1{\hbox to#1{\hss%
+\begin{pspicture}(0,0)(#1,0.28em)%
+\psline[linewidth=0.4pt,doubleline=true,doublesep=0.16em,%
+arrowsize=2pt 2,arrowlength=1.2,arrowinset=0.7]{->}(0pt,0.28em)(#1,0.28em)%
+\end{pspicture}\hss}}
+\def\lrSchemeArrow@Element#1{\hbox to#1{\hss%
+\begin{pspicture}(0,0)(#1,0.28em)%
+\psline[linewidth=0.4pt,doubleline=true,doublesep=0.16em,%
+arrowsize=2pt 2,arrowlength=1.2,arrowinset=0.7]{<->}(0pt,0.28em)(#1,0.28em)%
+\end{pspicture}\hss}}
+\def\newschemelarrow#1#2#3#4{%
+\let\Arrow@Element=\lSchemeArrow@Element
+\react@@rlarrow[0pt]{#1}{#2}{#3}{#4}}
+\def\newschemerarrow#1#2#3#4{%
+\let\Arrow@Element=\rSchemeArrow@Element
+\react@@rlarrow[0pt]{#1}{#2}{#3}{#4}}
+\def\newschemelrarrow#1#2#3#4{%
+\let\Arrow@Element=\lrSchemeArrow@Element
+\react@@rlarrow[0pt]{#1}{#2}{#3}{#4}}
+%%%%2009/11/19
+\def\newllongrightarrow{\ensuremath{\mathrel{%
+\hbox to28pt{\hss\rArrow@Element{28pt}\hss}}}}
+\def\newllongleftarrow{\ensuremath{\mathrel{%
+\hbox to28pt{\hss\lArrow@Element{28pt}\hss}}}}
+\def\newllongleftrightarrow{\ensuremath{\mathrel{%
+\hbox to28pt{\hss\lrArrow@Element{28pt}\hss}}}}
+\def\newEquilibarrow{\ensuremath{\mathrel{%
+\hbox to28pt{\hss\eqArrow@Element{28pt}\hss}}}}
+\def\newLlongrightarrow{\ensuremath{\mathrel{%
+\hbox to28pt{\hss\rSchemeArrow@Element{28pt}\hss}}}}
+\def\newLlongleftarrow{\ensuremath{\mathrel{%
+\hbox to28pt{\hss\lSchemeArrow@Element{28pt}\hss}}}}
+\def\newLlongleftrightarrow{\ensuremath{%
+\mathrel{\hbox to28pt{\hss\lrSchemeArrow@Element{28pt}\hss}}}}
+\def\newlllongrightarrow{\ensuremath{\mathrel{%
+\hbox to35pt{\hss\rArrow@Element{35pt}\hss}}}}
+\def\newlllongleftarrow{\ensuremath{\mathrel{%
+\hbox to35pt{\hss\lArrow@Element{35pt}\hss}}}}
+\def\newlllongleftrightarrow{\ensuremath{\mathrel{%
+\hbox to35pt{\hss\lrArrow@Element{35pt}\hss}}}}
+\def\newEquiliblongarrow{\ensuremath{\mathrel{%
+\hbox to35pt{\hss\eqArrow@Element{35pt}\hss}}}}
+\def\newLllongrightarrow{\ensuremath{\mathrel{%
+\hbox to35pt{\hss\rSchemeArrow@Element{35pt}\hss}}}}
+\def\newLllongleftarrow{\ensuremath{\mathrel{%
+\hbox to35pt{\hss\lSchemeArrow@Element{35pt}\hss}}}}
+\def\newLllongleftrightarrow{\ensuremath{%
+\mathrel{\hbox to35pt{\hss\lrSchemeArrow@Element{35pt}\hss}}}}
+\def\rightharpoonupElement#1{%
+\lower0.2pt\hbox to#1{\hss%
+\begin{pspicture}(0,0)(#1,0.28em)
+\psline[linewidth=0.4pt,arrowsize=2pt 2,arrowlength=1.6,arrowinset=0.6]%
+{-Hru}(0pt,0.28em)(#1,0.28em)
+\end{pspicture}\hss}}
+\def\rightharpoondownElement#1{%
+\raise0.2pt\hbox to#1{\hss%
+\begin{pspicture}(0,0)(#1,0.28em)
+\psline[linewidth=0.4pt,arrowsize=2pt 2,arrowlength=1.6,arrowinset=0.6]%
+{-Hrd}(0pt,0.28em)(#1,0.28em)
+\end{pspicture}\hss}}
+\def\leftharpoonupElement#1{%
+\lower0.2pt\hbox to#1{\hss%
+\begin{pspicture}(0,0)(#1,0.28em)
+\psline[linewidth=0.4pt,arrowsize=2pt 2,arrowlength=1.6,arrowinset=0.6]%
+{Hlu-}(0pt,0.28em)(#1,0.28em)
+\end{pspicture}\hss}}
+\def\leftharpoondownElement#1{%
+\lower0.2pt\hbox to#1{\hss%
+\begin{pspicture}(0,0)(#1,0.28em)
+\psline[linewidth=0.4pt,arrowsize=2pt 2,arrowlength=1.6,arrowinset=0.6]%
+{Hld-}(0pt,0.28em)(#1,0.28em)
+\end{pspicture}\hss}}
+\def\newllongrightharpoonup{\ensuremath{\mathrel{\rightharpoonupElement{28pt}}}}
+\def\newllongrightharpoondown{\ensuremath{\mathrel{\rightharpoondownElement{28pt}}}}
+\def\newllongleftharpoonup{\ensuremath{\mathrel{\leftharpoonupElement{28pt}}}}
+\def\newllongleftharpoondown{\ensuremath{\mathrel{\leftharpoondownElement{28pt}}}}
+\def\newlllongrightharpoonup{\ensuremath{\mathrel{\rightharpoonupElement{35pt}}}}
+\def\newlllongrightharpoondown{\ensuremath{\mathrel{\rightharpoondownElement{35pt}}}}
+\def\newlllongleftharpoonup{\ensuremath{\mathrel{\leftharpoonupElement{35pt}}}}
+\def\newlllongleftharpoondown{\ensuremath{\mathrel{\leftharpoondownElement{35pt}}}}
+\def\newequilibarrow{\ensuremath{\mathrel{%
+\hbox to28pt{\hss\eqHarpoon@Element{28pt}\hss}}}}
+\def\newequiliblongarrow{\ensuremath{\mathrel{%
+\hbox to35pt{\hss\eqHarpoon@Element{35pt}\hss}}}}
+\def\electronAHshift{%
+\@ifnextchar[{\@electronAHshift}{\@electronAHshift[0]}}
+\def\@electronAHshift[#1](#2,#3)(#4,#5)#6{%
+\@tempcntXa=#2 \@tempcntYa=#3
+\@tempcntXb=#4 \@tempcntYb=#5
+\calcontrolpoints{#1}%defined in chemist package
+\psbezier[unit=\unitlength,linewidth=0.4pt]{#6}%
+(#2,#3)(\@cnttempa,\@cnttempb)(\@tempcntXc,\@tempcntYc)(#4,#5)%
+}
+\def\electronrshiftarrow{%
+\@ifnextchar[{\@electronrshiftarrow}{\@electronrshiftarrow[0]}}
+\def\@electronrshiftarrow[#1](#2,#3)(#4,#5){%
+\ifnum#2<#4\relax
+\electronAHshift[#1](#2,#3)(#4,#5){->}%
+\else
+\ifcase#1\relax
+\electronAHshift[1](#2,#3)(#4,#5){->}%
+\or
+\electronAHshift[0](#2,#3)(#4,#5){->}%
+\fi\fi}
+\def\electronlshiftarrow{%
+\@ifnextchar[{\@electronlshiftarrow}{\@electronlshiftarrow[0]}}
+\def\@electronlshiftarrow[#1](#2,#3)(#4,#5){%
+\ifnum#2<#4\relax
+\electronAHshift[#1](#2,#3)(#4,#5){<-}%
+\else
+\ifcase#1\relax
+\electronAHshift[1](#2,#3)(#4,#5){<-}%
+\or
+\electronAHshift[0](#2,#3)(#4,#5){<-}%
+\fi\fi}
+\def\futuresubst#1{\kern140\unitlength #1}
+\def\electronlshiftarrow{%
+\@ifnextchar[{\@electronlshiftarrow}{\@electronlshiftarrow[0]}}
+\def\@electronlshiftarrow[#1](#2,#3)(#4,#5){%
+\ifnum#2<#4\relax
+\electronAHshift[#1](#2,#3)(#4,#5){<-}%
+\else
+\ifcase#1\relax
+\electronAHshift[1](#2,#3)(#4,#5){<-}%
+\or
+\electronAHshift[0](#2,#3)(#4,#5){<-}%
+\fi\fi}
+\def\futuresubst#1{\kern140\unitlength #1}
+\def\electronHrushiftarrow{%
+\@ifnextchar[{\@electronHrushiftarrow}{\@electronHrushiftarrow[0]}}
+\def\@electronHrushiftarrow[#1](#2,#3)(#4,#5){%
+\ifnum#2<#4\relax
+\electronAHshift[#1](#2,#3)(#4,#5){-Hru}%
+\else
+\ifcase#1\relax
+\electronAHshift[1](#2,#3)(#4,#5){-Hru}%
+\or
+\electronAHshift[0](#2,#3)(#4,#5){-Hru}%
+\fi\fi}
+\def\electronHrdshiftarrow{%
+\@ifnextchar[{\@electronHrdshiftarrow}{\@electronHrdshiftarrow[0]}}
+\def\@electronHrdshiftarrow[#1](#2,#3)(#4,#5){%
+\ifnum#2<#4\relax
+\electronAHshift[#1](#2,#3)(#4,#5){-Hrd}%
+\else
+\ifcase#1\relax
+\electronAHshift[1](#2,#3)(#4,#5){-Hrd}%
+\or
+\electronAHshift[0](#2,#3)(#4,#5){-Hrd}%
+\fi\fi}
+\def\electronHlushiftarrow{%
+\@ifnextchar[{\@electronHlushiftarrow}{\@electronHlushiftarrow[0]}}
+\def\@electronHlushiftarrow[#1](#2,#3)(#4,#5){%
+\ifnum#2<#4\relax
+\electronAHshift[#1](#2,#3)(#4,#5){Hlu-}%
+\else
+\ifcase#1\relax
+\electronAHshift[1](#2,#3)(#4,#5){Hlu-}%
+\or
+\electronAHshift[0](#2,#3)(#4,#5){Hlu-}%
+\fi\fi}
+\def\electronHldshiftarrow{%
+\@ifnextchar[{\@electronHldshiftarrow}{\@electronHldshiftarrow[0]}}
+\def\@electronHldshiftarrow[#1](#2,#3)(#4,#5){%
+\ifnum#2<#4\relax
+\electronAHshift[#1](#2,#3)(#4,#5){Hld-}%
+\else
+\ifcase#1\relax
+\electronAHshift[1](#2,#3)(#4,#5){Hld-}%
+\or
+\electronAHshift[0](#2,#3)(#4,#5){Hld-}%
+\fi\fi}
+\def\chmstpssw{%setting of the chmst-ps package
+\let\reactrarrow=\newreactrarrow%
+\let\reactlarrow=\newreactlarrow
+\let\reactlrarrow=\newreactlrarrow
+\let\reactEqarrow=\newreactEqarrow
+\let\reacteqarrow=\newreacteqarrow
+%%%%
+\let\reactREqarrow=\newreactREqarrow%
+\let\reactLEqarrow=\newreactLEqarrow
+\let\reactreqarrow=\newreactreqarrow
+\let\reactleqarrow=\newreactleqarrow
+%%%%
+\let\reactdarrow=\newreactdarrow%
+\let\reactuarrow=\newreactuarrow
+\let\reactduarrow=\newreactduarrow
+\let\reactVEqarrow=\newreactVEqarrow
+\let\reactveqarrow=\newreactveqarrow
+%%%%
+\let\reactnearrow=\newreactnearrow%
+\let\reactswarrow=\newreactswarrow
+%%%%
+\let\reactsearrow=\newreactsearrow%
+\let\reactnwarrow=\newreactnwarrow
+%%%%
+\let\reactDEqarrow=\newreactDEqarrow%
+\let\reactUEqarrow=\newreactUEqarrow
+\let\reactdeqarrow=\newreactdeqarrow
+\let\reactueqarrow=\newreactueqarrow
+%%%%
+\let\reactulrarrow=\newreactulrarrow%
+\let\reactdlrarrow=\newreactdlrarrow
+%%%%
+\let\schemelarrow=\newschemelarrow%
+\let\schemerarrow=\newschemerarrow
+\let\schemelrarrow=\newschemelrarrow
+%%%%
+\let\llongrightarrow=\newllongrightarrow%
+\let\llongleftarrow=\newllongleftarrow
+\let\llongleftrightarrow=\newllongleftrightarrow
+\let\Equilibarrow=\newEquilibarrow
+%%%
+\let\Llongrightarrow=\newLlongrightarrow%
+\let\Llongleftarrow=\newLlongleftarrow
+\let\Llongleftrightarrow\newLlongleftrightarrow
+%%%
+\let\lllongrightarrow=\newlllongrightarrow%
+\let\lllongleftarrow=\newlllongleftarrow
+\let\lllongleftrightarrow=\newlllongleftrightarrow
+\let\Equiliblongarrow=\newEquiliblongarrow
+%%%
+\let\Lllongrightarrow=\newLllongrightarrow%
+\let\Lllongleftarrow=\newLllongleftarrow
+\let\Lllongleftrightarrow\newLllongleftrightarrow
+%%%
+\let\llongrightharpoonup=\newllongrightharpoonup%
+\let\llongrightharpoondown=\newllongrightharpoondown
+\let\llongleftharpoonup=\newllongleftharpoonup
+\let\llongleftharpoondown=\newllongleftharpoondown
+%%%
+\let\lllongrightharpoonup=\newlllongrightharpoonup%
+\let\lllongrightharpoondown=\newlllongrightharpoondown
+\let\lllongleftharpoonup=\newlllongleftharpoonup
+\let\lllongleftharpoondown\newlllongleftharpoondown
+%%%
+\let\equilibarrow=\newequilibarrow%
+\let\equiliblongarrow=\newequiliblongarrow
+%%%
+}
+\let\chmstpspdfsw=\chmstpssw%for compatibility to PDF mode
+\chmstpssw%initial setting
+\endinput
+%%
+%% End of file `chmst-ps.sty'.
diff --git a/macros/latex/contrib/xymtex/xymtxps/xymtx-ps.drv b/macros/latex/contrib/xymtex/xymtxps/xymtx-ps.drv
new file mode 100644
index 0000000000..d139e363e1
--- /dev/null
+++ b/macros/latex/contrib/xymtex/xymtxps/xymtx-ps.drv
@@ -0,0 +1,87 @@
+%%
+%% This is file `xymtx-ps.drv',
+%% generated with the docstrip utility.
+%%
+%% The original source files were:
+%%
+%% xymtx-ps.dtx (with options: `driver')
+%%
+%% This is a generated file.
+%%
+%% Copyright 2002,2004,2005,2009,2010,2011,2013 by Shinsaku Fujita
+%% all rights reserved.
+%% This style file is created for drawing chemical structural formulas
+%% This style file is to be contained in the ``xymtex'' directory which
+%% is an input directory for TeX.
+%%
+%% This file is part of the XyMTeX system.
+%% =======================================
+%%
+%% Version 1.00 Released on April 30, 2002
+%% Version 4.01 Released on August 30, 2004 (adjust for XyMTeX version 4.01)
+%% Version 4.02 Released on December 20, 2004 (wedged bonds for stereochemistry)
+%% Version 4.03 Released on July 20, 2005 (wave line for stereochemistry)
+%% Version 4.03a Released on August 02, 2005 (Bug fix)
+%% Version 4.04a Released on June 15, 2009 (Bug fix)
+%% Version 4.05 Released on November 05, 2009 (Bug fix)
+%% Version 5.00 Released on October 01, 2010
+%% Version 5.01b Released on February 24, 2011
+%%
+%% Present version (as xymtx-ps.dtx etc.):
+%% Version 5.01 Released on May 27, 2013
+%%
+%% 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 xymtx-ps.dtx and xymtx-ps.ins
+%% and the derived file xymtx-ps.sty.
+%%
+%% =======================================
+%%
+%% File: xymtx-ps.dtx
+%% \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 \~}
+\NeedsTeXFormat{pLaTeX2e}
+\ProvidesFile{xymtx-ps.dtx}[2013/05/27 v5.01 xymtx-ps package file]
+\documentclass{ltxdoc}
+\GetFileInfo{xymtx-ps.dtx}
+\def\UPSILON{\char'7}
+\def\XyM{X\kern-.30em\smash{%
+\raise.50ex\hbox{\UPSILON}}\kern-.30em{M}}
+\def\XyMTeX{\XyM\kern-.1em\TeX}
+\title{Chemistry Conventions by {\sffamily xymtx-ps.sty}
+(\fileversion) of \XyMTeX{}}
+\author{Shinsaku Fujita \\
+Shonan Institute of Chemoinformatics Mathematical Chemistry, \\
+Kaneko 479-7 Ooimachi, Ashigara-Kami-Gun,
+Kanagawa-Ken, 258-0019 Japan
+}
+\date{\filedate}
+\begin{document}
+ \maketitle
+ \DocInput{xymtx-ps.dtx}
+\end{document}
+\endinput
+%%
+%% End of file `xymtx-ps.drv'.
diff --git a/macros/latex/contrib/xymtex/xymtxps/xymtx-ps.dtx b/macros/latex/contrib/xymtex/xymtxps/xymtx-ps.dtx
new file mode 100644
index 0000000000..10ab845f20
--- /dev/null
+++ b/macros/latex/contrib/xymtex/xymtxps/xymtx-ps.dtx
@@ -0,0 +1,899 @@
+% \iffalse meta-comment
+%% File: xymtx-ps.dtx
+%
+% Copyright 2002,2004,2005,2009,2013 by Shinsaku Fujita
+%
+% This file is part of XyMTeX system.
+% -------------------------------------
+%
+% This file is a successor to:
+%
+% xymtx-ps.sty
+% %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
+% \typeout{XyMTeX for Drawing Chemical Structural Formulas. Version 4.00}
+% \typeout{ -- Released May 30, 2002 by Shinsaku Fujita}
+% Copyright (C) 2002 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.
+%
+% The following book deals with an application of TeX/LaTeX to
+% preparation of manuscripts of chemical fields:
+% (1) Shinsaku Fujita, ``LaTeX for Chemists and Biochemists''
+% Tokyo Kagaku Dozin, Tokyo (1993) [in Japanese].
+% (2) Shinsaku Fujita, ``XyMTeX. Typesetting Chemical Structural
+% Formulas'' Addison-Wesley, New York (1997).
+%
+% 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,
+% Department of Chemistry and Materials Technology,
+% Kyoto Institute of Technology,
+% Matsugasaki, Sakyoku, Kyoto, 606-8585 Japan
+%
+% %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
+% \def\j@urnalname{xymtx-ps}
+% \def\versi@ndate{May 30, 2002}
+% \def\versi@nno{ver1.00}
+% \def\copyrighth@lder{SF} % Shinsaku Fujita
+% %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
+% \def\j@urnalname{xymtx-ps}
+% \def\versi@ndate{May 30, 2002}
+% \def\versi@nno{ver1.00}
+% \def\copyrighth@lder{SF} % Shinsaku Fujita
+% %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
+% \def\j@urnalname{xymtx-ps}
+% \def\versi@ndate{August 30, 2004}
+% \def\versi@nno{ver4.01}
+% \def\copyrighth@lder{SF} % Shinsaku Fujita
+% %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
+% \def\j@urnalname{xymtx-ps}
+% \def\versi@ndate{December 20, 2004}
+% \def\versi@nno{ver4.02}
+% \def\copyrighth@lder{SF} % Shinsaku Fujita
+% %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
+% \def\j@urnalname{xymtx-ps}
+% \def\versi@ndate{June 20, 2005}
+% \def\versi@nno{ver4.03}
+% \def\copyrighth@lder{SF} % Shinsaku Fujita
+% %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
+% \def\j@urnalname{xymtx-ps}
+% \def\versi@ndate{August 02, 2005}
+% \def\versi@nno{ver4.03a}
+% \def\copyrighth@lder{SF} % Shinsaku Fujita
+% %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
+% \def\j@urnalname{xymtx-ps}
+% \def\versi@ndate{June 15, 2009}
+% \def\versi@nno{ver4.04a}
+% \def\copyrighth@lder{SF} % Shinsaku Fujita
+% %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
+% \def\j@urnalname{xymtx-ps}
+% \def\versi@ndate{November 05, 2009}
+% \def\versi@nno{ver4.05}
+% \def\copyrighth@lder{SF} % Shinsaku Fujita
+% %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
+% \def\j@urnalname{xymtx-ps}
+% \def\versi@ndate{February 24, 2011}
+% \def\versi@nno{ver5.01b}
+% \def\copyrighth@lder{SF} % Shinsaku Fujita
+% %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
+% \def\j@urnalname{xymtx-ps}
+% \def\versi@ndate{May 27, 2013}
+% \def\versi@nno{ver5.01bb}
+% \def\copyrighth@lder{SF} % Shinsaku Fujita
+% %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
+% \def\j@urnalname{xymtx-ps}
+% \def\versi@ndate{June 21, 2013}
+% \def\versi@nno{ver5.01bbb}
+% \def\copyrighth@lder{SF} % Shinsaku Fujita
+% %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
+%
+% \fi
+%
+% \CheckSum{1000}
+%% \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.00}{2002/05/30}{first edition for LaTeX2e}
+% \changes{v4.01}{2004/08/30}{Adjust for XyMTeX version 4.01}
+% \changes{v4.02}{2004/12/20}{Wedged bonds for stereochemistry}
+% \changes{v4.03}{2005/06/20}{Wave bonds for stereochemistry}
+% \changes{v4.03a}{2005/08/02}{Bug fix for the compatibility with
+% \changes{v4.04a}{2009/06/15}{Bug fix for \cs{\Put@@@Direct}}
+% \changes{v4.05}{2009/11/05}{Bug fix for \cs{\Put@@@Direct}; pLaTeXe vs. LaTeXe}
+% \changes{v5.01b}{2011/02/24}{Coloring bonds and atoms}
+% \changes{v5.01bb}{2013/05/27}{\cs{WedgeAsSubstX} etc.}
+% \changes{v5.01bbb}{2013/06/21}{\cs{WavyAsSubst} etc.}
+% \changes{v5.01}{2013/08/16}{\cs{BackGroundBond} etc.}
+% \fi
+%
+% \iffalse
+%<*driver>
+\NeedsTeXFormat{pLaTeX2e}
+% \fi
+\ProvidesFile{xymtx-ps.dtx}[2013/08/16 v5.01 xymtx-ps package file]
+% \iffalse
+\documentclass{ltxdoc}
+\GetFileInfo{xymtx-ps.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{Chemistry Conventions by {\sffamily xymtx-ps.sty}
+(\fileversion) of \XyMTeX{}}
+\author{Shinsaku Fujita \\
+Shonan Institute of Chemoinformatics Mathematical Chemistry, \\
+Kaneko 479-7 Ooimachi, Ashigara-Kami-Gun,
+Kanagawa-Ken, 258-0019 Japan
+% Department of Chemistry and Materials Technology, \\
+% Kyoto Institute of Technology, \\
+% Matsugasaki, Sakyoku, Kyoto, 606-8585 Japan
+}
+\date{\filedate}
+%
+\begin{document}
+ \maketitle
+ \DocInput{xymtx-ps.dtx}
+\end{document}
+%</driver>
+% \fi
+%
+% \section{Introduction}\label{xymtx-ps:intro}
+%
+% \subsection{Options for {\sffamily docstrip}}
+%
+% \DeleteShortVerb{\|}
+% \begin{center}
+% \begin{tabular}{|l|l|}
+% \hline
+% \emph{option} & \emph{function}\\ \hline
+% xymtxps & xymtx-ps.sty \\
+% driver & driver for this dtx file \\
+% \hline
+% \end{tabular}
+% \end{center}
+% \MakeShortVerb{\|}
+%
+% \subsection{Version Information}
+%
+% \begin{macrocode}
+%<*xymtxps>
+% %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
+\def\j@urnalname{xymtx-ps}
+\def\versi@ndate{August 16, 2013}
+\def\versi@nno{ver5.01}
+\def\copyrighth@lder{SF} % Shinsaku Fujita
+% %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
+\typeout{XyMTeX Macro File `\j@urnalname' (\versi@nno) <\versi@ndate>%
+\space[\copyrighth@lder]}
+% \end{macrocode}
+%
+% \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 ccycle.sty} for the present case). Hence, the combination
+% of |\input| and |\@ifundefined| is used to crossload sty
+% files ({\sf chemstr.sty} for the present case) in place of the
+% |\RequirePackage| command of \LaTeXe{}.
+% The global setting of unit by |\psset| has caused imcompatibility
+% with the prosper package and so has been changed into a local setting.
+% \changes{v4.03a}{2005/08/02}{Bug fix for the compatibility with
+% the prosper package}
+%
+% \begin{macrocode}
+% *************************
+% * input of basic macros *
+% *************************
+\@ifundefined{setsixringv}{\input chemstr.sty\relax}{}
+\RequirePackage{chemstr}%added 2010/10/01
+\RequirePackage{pstricks}
+\RequirePackage{pst-coil}
+\unitlength=0.1pt
+%%\psset{xunit=\the\unitlength,yunit=\the\unitlength}%delete August 2, 2005
+% \end{macrocode}
+%
+% \begin{macrocode}
+\newif\if@thicklinesw \@thicklineswfalse
+\def\Thick@Lines{\@thicklineswtrue}%redefinition
+\def\Thin@Lines{\@thicklineswfalse}%redefinition
+\def\thickLineWidth{1.6pt}
+\def\thinLineWidth{0.4pt}
+% \end{macrocode}
+%
+% The macro |\Put@@@Line| can draw dashed bonds or wedged bonds for supporting
+% stereochemistry. Two switches are available as follows:
+%
+% \begin{macro}{changedashtowedge}
+% \begin{macro}{changewedgetodash}
+% \changes{v4.02}{2004/12/20}{Switch for wedged bonds}
+% \begin{macrocode}
+\newif\if@wedgesw \@wedgeswtrue
+\newif\if@hasheddashsw \@hasheddashswtrue
+\def\wedgehasheddash{\@wedgeswtrue\@hasheddashswtrue}
+\def\wedgehashedwedge{\@wedgeswtrue\@hasheddashswfalse}
+\def\dashhasheddash{\@wedgeswfalse\@hasheddashswtrue}
+\@ifundefined{ifmolfront}{\newif\ifmolfront \molfrontfalse}{}
+\@ifundefined{if@skbondlist}{\newif\if@skbondlist \@skbondlistfalse}{}
+% \end{macrocode}
+% \end{macro}
+% \end{macro}
+%
+% \begin{macro}{Put@@@Line}
+% \changes{v4.02}{2004/12/20}{Wedged bonds for stereochemistry}
+% \changes{v4.03}{2005/07/20}{Switch for wave bonds}
+% \changes{v5.01}{2011/02/24}{Coloring atoms and bonds}
+% \begin{macrocode}
+%\newcount\@tempcntXa \newcount\@tempcntYa \newcount\@tempcntz%deleted 2010/10/01
+%\newcount\@tempcntXb \newcount\@tempcntYb \newcount\@tempcntzz%deleted 2010/10/01
+%\newcount\@tempcntXc \newcount\@tempcntYc \newcount\@tempcntzzz%deleted 2010/10/01
+\long\gdef\Put@@@Line(#1,#2)(#3,#4)#5{%
+\begingroup
+\SlopetoXY(#1,#2)(#3,#4){#5}%%replaced (code from chemstr.sty)
+\if@thicklinesw
+\if@wedgesw
+\ifmolfront%bold dash bond for skeletal bond for pyranose etc.
+\psline[unit=\unitlength,%
+%linecolor=\psbondsubstcolor,%added 2011/02/24
+linewidth=\thickLineWidth](#1,#2)(\the\@tempcntXa,\the\@tempcntYa)%
+\else
+\if@skbondlist%bold dash bond skeletal bond for general cases
+\psline[unit=\unitlength,%
+%linecolor=\psbondsubstcolor,%added 2011/02/24
+linewidth=\thickLineWidth](#1,#2)(\the\@tempcntXa,\the\@tempcntYa)%
+\else%wedged bond
+\stereo@wedgedimension(#3,#4){10}%
+\pspolygon*[unit=\unitlength%
+%,linecolor=\psbondsubstcolor,%added 2011/02/24
+](#1,#2)%
+(\the\@tempcntXb,\the\@tempcntYb)(\the\@tempcntXc,\the\@tempcntYc)
+\fi\fi
+\else
+\psline[unit=\unitlength,%
+%linecolor=\psbondsubstcolor,%added 2011/02/24
+linewidth=\thickLineWidth](#1,#2)(\the\@tempcntXa,\the\@tempcntYa)%
+\fi
+\else
+\ifwavebond
+\pszigzag[unit=\unitlength,%
+%linecolor=\psbondsubstcolor,%added 2011/02/24
+coilheight=1,coilwidth=.13cm,linewidth=\thinLineWidth,linearc=5,%
+coilarm=0]{-}(\the\@tempcntXa,\the\@tempcntYa)(#1,#2)%
+\else
+\psline[unit=\unitlength,%
+%linecolor=\psbondsubstcolor,%added 2011/02/24
+linewidth=\thinLineWidth](#1,#2)(\the\@tempcntXa,\the\@tempcntYa)%
+\fi
+\fi
+\@tempcntXa=0\relax \@tempcntYa=0\relax
+\endgroup}%end of Put@@@Line
+% \end{macrocode}
+% \end{macro}
+%
+% The macro |\stereo@wedgedimension| calculates the coordinates of three positions
+% for drawing a wedged bond, which is drawn by the |\pspolygon| command of the PSTricks package.
+%
+% \begin{macro}{stereo@wedgedimension}
+% \changes{v4.02}{2004/12/20}{Wedged bonds for stereochemistry}
+% \begin{macrocode}
+\newif\if@wedgeadjust
+\def\stereo@wedgedimension(#1,#2)#3{%
+\@tempcntXb=0\relax
+\@tempcntYb=0\relax
+\@tempcntXc=0\relax
+\@tempcntYc=0\relax
+%%
+\@wedgeadjustfalse
+\ifnum#1<0 \@tempcntzz=-#1\else\@tempcntzz=#1\fi
+\ifnum#2<0 \@tempcntzzz=-#2\else\@tempcntzzz=#2\fi
+\ifnum#1=0\else
+\multiply\@tempcntzzz by10\relax \divide\@tempcntzzz by\@tempcntzz\fi%% (3/5)x10=6
+\ifnum\@tempcntzzz>7\relax\else\@wedgeadjusttrue\fi
+%%one point of wedge
+\ifnum#1=0\relax
+\@tempcntXb=#3 \advance\@tempcntXb by8\relax
+\@tempcntYb=0\relax
+\else
+\ifnum#2=0\relax
+\@tempcntXb=0\relax
+\@tempcntYb=#3 \advance\@tempcntYb by8\relax
+\else
+\@tempcntXb=#3\relax
+\@tempcntYb=-#3\relax
+\if@wedgeadjust
+\advance\@tempcntXb by8\relax
+\advance\@tempcntYb by-8\relax
+\fi
+\multiply\@tempcntXb by#2\relax\multiply\@tempcntXb by10\relax
+\divide\@tempcntXb by#1\relax\divide\@tempcntXb by10\relax\fi\fi
+\advance\@tempcntXb by\@tempcntXa\relax
+\advance\@tempcntYb by\@tempcntYa\relax
+%%other point of wedge
+\ifnum#1=0\relax
+\@tempcntXc=-#3 \advance\@tempcntXc by-8\relax
+\@tempcntYc=0\relax
+\else
+\ifnum#2=0\relax
+\@tempcntXc=0\relax
+\@tempcntYc=-#3 \advance\@tempcntYc by-8\relax
+\else
+\@tempcntXc=-#3\relax
+\@tempcntYc=#3\relax
+\if@wedgeadjust
+\advance\@tempcntXc by-6\relax
+\advance\@tempcntYc by6\relax
+\fi
+\multiply\@tempcntXc by#2\relax\multiply\@tempcntXc by10\relax
+\divide\@tempcntXc by#1\relax\divide\@tempcntXc by10\relax\fi\fi
+\advance\@tempcntXc by\@tempcntXa\relax
+\advance\@tempcntYc by\@tempcntYa\relax
+}%%end of \stereo@wedgedimension
+% \end{macrocode}
+% \end{macro}
+%
+% The optional argument [Bl] of |\Put@@@Direct| is corrected
+% to be [bl]. This effect appears in the use of tbook.cls etc.
+% \changes{v4.04a}{2009/06/15}{Bug fix for tategumi}
+% \changes{v4.05}{2009/11/05}{Bug fix for tategumi and yokogumi;
+% pLaTeXe vs. LaTeXe}
+% \changes{v5.01}{2011/02/24}{Coloring atoms and bonds}
+%
+% \begin{macro}{Put@@@Direct}
+% \begin{macrocode}
+% \def\Put@@@Direct(#1,#2)#3{\begingroup\psset{unit=\unitlength}%
+% \rput[Bl]{0}(#1,#2){#3}\endgroup}%2009/06/15 2009/11/05bugfix as follows
+\@ifundefined{iftdir}{\newif\iftdir \tdirfalse}{}%pLaTeXe vs. LaTeXe
+\def\Put@@@Direct(#1,#2)#3{\begingroup\psset{unit=\unitlength}%
+\iftdir
+\rput[bl]{0}(#1,#2){#3}\else\rput[Bl]{0}(#1,#2){#3}\fi
+\endgroup}
+\def\Put@@@oCircle(#1,#2)#3{%
+ \begingroup \@tempcntz=#3 \divide\@tempcntz by2\relax
+ \pscircle[linewidth=.4pt,unit=\unitlength](#1,#2){\@tempcntz}\endgroup}
+\def\Put@@@sCircle(#1,#2)#3{%
+ \begingroup \@tempcntz=#3 \divide\@tempcntz by2\relax
+ \pscircle[linewidth=2pt,unit=\unitlength](#1,#2){\@tempcntz}\endgroup}
+% \end{macrocode}
+% \end{macro}
+%
+% Dotted lines by the old macro |\d@@t@rline| are changed into hashed dash bonds
+% in the new macro |\d@@t@rline| (|\@wedgeswfalse|). If |\@wedgeswtrue| is
+% declared (default), the new macro draws a hashed wedged bonds.
+%
+% \begin{macro}{d@@t@rline}
+% \changes{v4.02}{2004/12/20}{Hashed wedged bonds for stereochemistry}
+% \begin{macrocode}
+\def\d@@t@rline(#1,#2)(#3,#4)#5/(#6,#7)(#8,#9){%
+\if@hasheddashsw
+ \@ifundefined{psline}{%
+ \XyMTeXWarning{A dottedline is replaced by a solid line.}%
+ \Put@Line(#1,#2)(#3,#4){#5}%
+ }{{\thicklines%
+ \hasheddashbond(#1,#2)(#3,#4){#5}/(#6,#7)(#8,#9)}}%
+\else
+\if@skbondlist%hashed dash bond skeletal bond for general cases
+ \@ifundefined{psline}{%
+ \XyMTeXWarning{A dottedline is replaced by a solid line.}%
+ \Put@Line(#1,#2)(#3,#4){#5}%
+ }{{\thicklines%
+ \hasheddashbond(#1,#2)(#3,#4){#5}/(#6,#7)(#8,#9)}}%
+\else
+ \hashedwedgebond(#1,#2)(#3,#4){#5}/(#6,#7)(#8,#9)%
+\fi\fi
+}%end of \d@@t@rline
+% \end{macrocode}
+% \end{macro}
+%
+% The inner macro |\hasheddashbond| works in the macro |\d@@t@rline| for
+% drawing a hased dash bond.
+%
+% \begin{macro}{hasheddashbond}
+% \changes{v4.02}{2004/12/20}{Hashed dash bonds for stereochemistry}
+% \changes{v5.01}{2011/02/24}{Coloring atoms and bonds}
+% \begin{macrocode}
+\def\hasheddashbond(#1,#2)(#3,#4)#5/(#6,#7)(#8,#9){%
+\begingroup
+\@tempcntzz=12\relax
+\@tempcntzzz=-30\relax%almost no shortening
+\bond@shorten(#1,#2)(#3,#4){#5}/(#6,#7)(#8,#9)%
+\ifdim\unitlength>0.08pt
+\psline[unit=\unitlength,%
+%linecolor=\psbondsubstcolor,%added 2011/02/24
+linewidth=\thickLineWidth,linestyle=dashed,dash=1pt 1.2pt]%
+(\the\@tempcntXb,\the\@tempcntYb)(\the\@tempcntXc,\the\@tempcntYc)%
+\else
+\psline[unit=\unitlength,%
+%linecolor=\psbondsubstcolor,%added 2011/02/24
+linewidth=\thickLineWidth,linestyle=dashed,dash=1pt 1.2pt]%
+(\the\@tempcntXb,\the\@tempcntYb)(\the\@tempcntXc,\the\@tempcntYc)%
+\fi
+\endgroup}
+% \end{macrocode}
+% \end{macro}
+%
+% The inner macro |\hashedwedgebond| works in the macro |\d@@t@rline| for
+% drawing a hashed wedged bond.
+%
+% \begin{macro}{hashedwedgebond}
+% \changes{v4.02}{2004/12/20}{Hashed wedged bonds for stereochemistry}
+% \changes{v5.01}{2011/02/24}{Coloring atoms and bonds}
+% \begin{macrocode}
+\def\hashedwedgebond(#1,#2)(#3,#4)#5/(#6,#7)(#8,#9){%
+\begingroup
+\@tempcntXa=#8\relax
+\@tempcntYa=#9\relax
+\stereo@wedgedimension(#3,#4){10}%
+\pspolygon*[unit=\unitlength%
+%,linecolor=\psbondsubstcolor%added 2011/02/24
+](#1,#2)(\the\@tempcntXb,\the\@tempcntYb)(\the\@tempcntXc,\the\@tempcntYc)%
+\@tempcntzz=5\relax
+\@tempcntzzz=-12\relax
+\bond@shorten(#1,#2)(#3,#4){#5}/(#6,#7)(#8,#9)%
+\ifdim\unitlength>0.08pt
+\psline[unit=\unitlength,%
+linewidth=3.8pt,linestyle=dashed,dash=0.8pt 1pt,linecolor=white]%
+(\the\@tempcntXb,\the\@tempcntYb)(\the\@tempcntXc,\the\@tempcntYc)%
+\else
+\psline[unit=\unitlength,%
+linewidth=3pt,linestyle=dashed,dash=0.6pt 0.8pt,linecolor=white]%
+(\the\@tempcntXb,\the\@tempcntYb)(\the\@tempcntXc,\the\@tempcntYc)%
+\fi
+\endgroup
+}%%end of \hashedwedgebond
+% \end{macrocode}
+% \end{macro}
+%
+% The inner macro |\bond@shorten| works in the macros |\hasheddashbond| and |\hashedwedgebond| for
+% shortening the resulting hashed bonds. This macro calculates the coordinates of the staring
+% point and the end point.
+%
+% \begin{macro}{bond@shorten}
+% \changes{v4.02}{2004/12/20}{Hashed forms for dash and wedged bonds}
+% \begin{macrocode}
+\def\bond@shorten(#1,#2)(#3,#4)#5/(#6,#7)(#8,#9){%
+\@tempcntXb=#8\relax
+\@tempcntYb=#9\relax
+\advance\@tempcntXb by-#6\relax \divide\@tempcntXb by\@tempcntzz\relax
+\advance\@tempcntYb by-#7\relax \divide\@tempcntYb by\@tempcntzz\relax
+\advance\@tempcntXb by#6\relax
+\advance\@tempcntYb by#7\relax
+\@tempcntXc=#8\relax
+\@tempcntYc=#9\relax
+\advance\@tempcntXc by-#6\relax \divide\@tempcntXc by\@tempcntzzz\relax
+\advance\@tempcntYc by-#7\relax \divide\@tempcntYc by\@tempcntzzz\relax
+\advance\@tempcntXc by#8\relax
+\advance\@tempcntYc by#9\relax
+}%%end of \bondshorten
+% \end{macrocode}
+% \end{macro}
+%
+% Skeletal bold bonds can be changed into wedges, where
+% |\WedgeAsSubst| is described in an ATOMLIST as a kind of
+% spiro substituent.
+%
+% \begin{macro}{WedgeAsSubst}
+% \changes{v4.02}{2004/12/20}{Wedged skeletal bonds}
+% \begin{macrocode}
+\def\WedgeAsSubstPS(#1,#2)(#3,#4)#5{%
+\begingroup
+\@thicklineswtrue \@wedgeswtrue
+\molfrontfalse \@skbondlistfalse
+\Put@@@Line(#1,#2)(#3,#4){#5}%
+\endgroup}
+\let\WedgeAsSubst=\WedgeAsSubstPS%for compatibility to PDF mode
+% \end{macrocode}
+% \end{macro}
+%
+% The macro |\stereo@wedgedimensionX| has a starting point,
+% an endpoint, and the width of a wedge as its arguments.
+% Compare this command with |\stereo@wedgedimension|, which has
+% a starting point, a slope, and the width of a wedge
+% as its arguments.
+%
+% \begin{macro}{stereo@wedgedimensionX}
+% \changes{v5.01}{2013/05/27}{dimension of wedge}
+% \begin{macrocode}
+\def\stereo@wedgedimensionX(#1,#2)(#3,#4){%
+\@ifnextchar[{\stereo@@wedgedimensionX(#1,#2)(#3,#4)}%
+{\stereo@@wedgedimensionX(#1,#2)(#3,#4)[10]}}
+\def\stereo@@wedgedimensionX(#1,#2)(#3,#4)[#5]{%
+\@tempcnta=-#1\relax
+\advance\@tempcnta by#3\relax
+%%\typeout{KKK:\the\@tempcnta}%
+\@tempcntb=-#2\relax
+\advance\@tempcntb by#4\relax
+%%%\typeout{LLL:\the\@tempcntb}%
+\stereo@wedgedimension(\the\@tempcnta,\the\@tempcntb){#5}%
+%%%\typeout{MMM; (\the\@tempcntXb,\the\@tempcntYb)(\the\@tempcntXc,\the\@tempcntYc)}
+\advance\@tempcntXb by#3\relax
+\advance\@tempcntYb by#4\relax
+\advance\@tempcntXc by#3\relax
+\advance\@tempcntYc by#4\relax}
+% \end{macrocode}
+% \end{macro}
+%
+% The macro |\WedgeAsSubstX| has a starting point,
+% an endpoint, and the width of a wedge as its arguments.
+% Compare this command with |\WedgeAsSubst|, which has
+% a starting point, a slope, and the width of a wedge
+% as its arguments.
+%
+% \begin{macro}{WedgeAsSubstX}
+% \changes{v5.01}{2013/05/27}{Wedged skeletal bonds}
+% \begin{macrocode}
+\def\WedgeAsSubstXPS(#1,#2)(#3,#4){%
+\@ifnextchar[{\Wedge@AsSubstXPS(#1,#2)(#3,#4)}%
+{\Wedge@AsSubstXPS(#1,#2)(#3,#4)[10]}}%
+\def\Wedge@AsSubstXPS(#1,#2)(#3,#4)[#5]{%
+\begingroup
+\stereo@wedgedimensionX(#1,#2)(#3,#4)[#5]%
+\pspolygon*[unit=\unitlength](#1,#2)%
+(\the\@tempcntXb,\the\@tempcntYb)(\the\@tempcntXc,\the\@tempcntYc)%
+\endgroup}
+\let\WedgeAsSubstX=\WedgeAsSubstXPS%for compatibility to PDF mode
+% \end{macrocode}
+% \end{macro}
+%
+% Skeletal hashed dash bonds can be changed into hashed wedges, where
+% |\HashWedgeAsSubst| is described in an ATOMLIST as a kind of
+% spiro substituent.
+%
+% \begin{macro}{HashWedgeAsSubst}
+% \changes{v4.02}{2004/12/20}{Hashed Wedged skeletal bonds}
+% \changes{v5.01}{2011/02/24}{Coloring atoms and bonds}
+% \begin{macrocode}
+\def\HashWedgeAsSubstPS(#1,#2)(#3,#4)#5{%
+\begingroup
+\@thicklineswtrue \@wedgeswtrue
+\molfrontfalse \@skbondlistfalse
+\Put@@@Line(#1,#2)(#3,#4){#5}%
+%%x-coordinate
+\@tempcntXa=0\relax
+\ifnum#3>0\relax \@tempcntXa=#5\relax
+\advance\@tempcntXa by-10\relax
+\else\ifnum#3<0\relax\@tempcntXa=-#5\relax\fi\fi
+\advance\@tempcntXa by#1\relax
+%%y-coordinate
+\@tempcntYa=#5\relax
+\advance\@tempcntYa by-10\relax
+\ifnum#3=0\relax\else
+\multiply\@tempcntYa by#4\relax\multiply\@tempcntYa by10\relax
+\divide\@tempcntYa by#3\relax\divide\@tempcntYa by10\relax\fi
+\ifnum\@tempcntYa<0\relax
+\ifnum#4>0\relax\@tempcntYa=-\@tempcntYa\fi
+\else
+\ifnum\@tempcntYa>0\relax
+\ifnum#4<0\relax\@tempcntYa=-\@tempcntYa\fi\fi
+\fi
+\advance\@tempcntYa by#2\relax
+\ifdim\unitlength>0.08pt
+\psline[unit=\unitlength,%
+linewidth=5pt,linestyle=dashed,dash=0.8pt 1pt,linecolor=white]%
+%%(\the\@tempcntXb,\the\@tempcntYb)(\the\@tempcntXc,\the\@tempcntYc)%
+(#1,#2)(\the\@tempcntXa,\the\@tempcntYa)%
+\else
+\psline[unit=\unitlength,%
+linewidth=3pt,linestyle=dashed,dash=0.6pt 0.8pt,linecolor=white]%
+%%(\the\@tempcntXb,\the\@tempcntYb)(\the\@tempcntXc,\the\@tempcntYc)%
+(#1,#2)(\the\@tempcntXa,\the\@tempcntYa)%
+\fi
+\endgroup
+}%%end of \HashWedgeAsSubstPS
+\let\HashWedgeAsSubst=\HashWedgeAsSubstPS%for compatibility to PDF mode
+% \end{macrocode}
+% \end{macro}
+%
+% The macro |\HashWedgeAsSubstX| has a starting point,
+% an endpoint, and the width of a wedge as its arguments.
+% Compare this command with |\HashWedgeAsSubst|, which has
+% a starting point, a slope, and the width of a wedge
+% as its arguments.
+%
+% \begin{macro}{HashWedgeAsSubstX}
+% \changes{v5.01}{2013/05/27}{Hashed Wedged skeletal bonds}
+% \begin{macrocode}
+\def\HashWedgeAsSubstXPS(#1,#2)(#3,#4){%
+\@ifnextchar[{
+\HashWedge@sSubstXPS(#1,#2)(#3,#4)}%
+{\HashWedge@sSubstXPS(#1,#2)(#3,#4)[10]}}
+\def\HashWedge@sSubstXPS(#1,#2)(#3,#4)[#5]{%
+\begingroup
+\Wedge@AsSubstXPS(#1,#2)(#3,#4)[#5]%
+\ifdim\unitlength>0.08pt
+\@tempdima=#5\unitlength \multiply\@tempdima by3\relax
+\advance\@tempdima by1pt%adjustment
+\psline[unit=\unitlength,%
+linewidth=\@tempdima,%
+linestyle=dashed,dash=0.8pt 1pt,linecolor=white]%
+(#1,#2)(#3,#4)%
+\else
+\@tempdima=#5\unitlength \multiply\@tempdima by3
+\psline[unit=\unitlength,%
+linewidth=\@tempdima,%
+linestyle=dashed,dash=0.6pt 0.8pt,linecolor=white]%
+(#1,#2)(#3,#4)%
+\fi
+\endgroup
+}%%end of \HashWedgeAsSubstXPS
+\let\HashWedgeAsSubstX=\HashWedgeAsSubstXPS%for compatibility to PDF mode
+% \end{macrocode}
+% \end{macro}
+%
+% Skeletal bold bonds can be changed into wavy bonds, where
+% |\WavyAsSubst| is described in an ATOMLIST as a kind of
+% spiro substituent.
+%
+% \begin{macro}{\WavyAsSubst}
+% \changes{v5.01}{2004/06/21}{For PDF mode: Wavy skeletal bonds}
+% \begin{macrocode}
+\def\WavyAsSubstPS(#1,#2)(#3,#4)#5{%
+\begingroup
+\wavebondtrue
+\Put@@@Line(#1,#2)(#3,#4){#5}%
+\endgroup}
+\let\WavyAsSubst=\WavyAsSubstPS%for compatibility to PDF mode
+% \end{macrocode}
+% \end{macro}
+%
+% The macro |\WavyAsSubstX| has a starting point,
+% an endpoint, and the width of a wedge as its arguments.
+% Compare this command with |\WavyAsSubst|, which has
+% a starting point, a slope, and the width of a wedge
+% as its arguments.
+%
+% \begin{macro}{WedgeAsSubstX}
+% \changes{v5.01}{2013/06/21}{For PDF mode: Checked OK}
+% \begin{macrocode}
+\def\WavyAsSubstXPS(#1,#2)(#3,#4){%
+\pszigzag[unit=\unitlength,%
+%linecolor=\psbondsubstcolor,%added 2011/02/24
+coilheight=1,coilwidth=.13cm,linewidth=\thinLineWidth,linearc=5,%
+coilarm=0]{-}(#3,#4)(#1,#2)%
+}
+\let\WavyAsSubstX=\WavyAsSubstXPS%for compatibility to PDF mode
+% \end{macrocode}
+% \end{macro}
+%
+% The macro |\PUT@@@bondLINE| is used to draw a bond line.
+% This macro relies on the pstricks package.
+%
+% \begin{macro}{\PUT@@@bondLINE}
+% \begin{macro}{\PutPSLine}
+% \changes{v5.00}{2010/10/01}{For compatibility to PDF mode: macro for
+% drawing a straight-line bond after adjusting its joint position}
+% \changes{v5.01}{2011/02/24}{Coloring atoms and bonds}
+% \begin{macrocode}
+\def\PUT@@@bondLINE(#1,#2)(#3,#4)#5{%
+\begingroup
+\psline[unit=\unitlength,%
+%linecolor=\psbondsubstcolor,%added 2011/02/24
+linewidth=#5](#1,#2)(#3,#4)%
+\endgroup
+}
+\let\PutPSLine=\PUT@@@bondLINE%for user's use
+\let\PutBondLine=\PUT@@@bondLINE%for compatibility to PDF
+% \end{macrocode}
+% \end{macro}
+% \end{macro}
+%
+% The macro |\PUT@@@dashedLINE| is used to draw a dashed bond line,
+% which usually links two non-adjacent atoms of a cyclic compound.
+% This macro relies on the pstrick package.
+%
+% \begin{macro}{\PUT@@@dashedLINE}
+% \begin{macro}{\PutPSdashed}
+% \begin{macro}{\PutDashedBond}
+% \changes{v5.00}{2010/10/01}{For PS mode}
+% \changes{v5.01}{2011/02/24}{Coloring atoms and bonds}
+% \begin{macrocode}
+\def\PUT@@@dashedLINE(#1,#2)(#3,#4)#5{%
+\begingroup
+\ifdim\unitlength>0.08pt
+\psline[unit=\unitlength,%
+%linecolor=\psbondsubstcolor,%added 2011/02/24
+linewidth=#5,linestyle=dashed,dash=1pt 1.2pt]%
+(#1,#2)(#3,#4)%
+\else
+\psline[unit=\unitlength,%
+%linecolor=\psbondsubstcolor,%added 2011/02/24
+linewidth=#5,linestyle=dashed,dash=0.8pt 1pt]%
+(#1,#2)(#3,#4)%
+\fi
+\endgroup
+}
+\let\PutPSdashed=\PUT@@@dashedLINE%for user's use
+\let\PutDashedBond=\PUT@@@dashedLINE%for compatibility to PDF mode
+% \end{macrocode}
+% \end{macro}
+% \end{macro}
+% \end{macro}
+%
+% The command \cs{downnobond} is redefined for pstricks.
+% \begin{macro}{\upnobond}
+% \begin{macro}{\downnobond}
+% \begin{macrocode}
+%\def\upnobond#1#2{%nochange
+%\hbox{\hbox to0.72em{\hss#1\hss}\kern-0.72em\raise2.2ex\hbox{#2}}}
+\def\downnobond#1#2{%
+\hbox{\smash{\hbox to0.72em{\hss#1\hss}\kern-0.72em\lower2.2ex\hbox{#2}}}}
+% \end{macrocode}
+% \end{macro}
+% \end{macro}
+%
+%
+% The macro |\putRoundArrowPS| throws its main task to its inner
+% macro |\putRound@rrowPS|, which treats an optional argument
+% for specifying the direction of an arrow head.
+% The macro |\putRoundArrow| is defined as a user command to
+% assure the compatibility to the PostScript mode.
+%
+% \begin{macro}{\putRoundArrowPS}
+% \begin{macro}{\putRound@rrowPS}
+% \begin{macro}{\putRoundArrow}
+% \changes{v5.00}{2010/10/01}{For PS mode}
+% \changes{v5.01}{2011/02/24}{Coloring atoms and bonds}
+% \begin{macrocode}
+\def\putRoundArrowPS{%
+\@ifnextchar[{\putRound@rrowPS}{\putRound@rrowPS[->]}}
+\def\putRound@rrowPS[#1]#2{%
+\pscurve[unit=\unitlength,%
+%linecolor=\psbondsubstcolor,%added 2011/02/24
+linewidth=0.4pt]{#1}#2}
+\let\putRoundArrow=\putRoundArrowPS%for the compatibility to PDF mode
+% \end{macrocode}
+% \end{macro}
+% \end{macro}
+% \end{macro}
+%
+% \begin{macro}{\red etc.}
+% \changes{v5.00}{2010/10/01}{Colors for PS mode}
+% \begin{macrocode}
+\def\red{\color{red}\psset{linecolor=red}}
+\def\blue{\color{blue}\psset{linecolor=blue}}
+\def\green{\color{green}\psset{linecolor=green}}
+\def\black{\color{black}\psset{linecolor=black}}
+\def\cyan{\color{cyan}\psset{linecolor=cyan}}
+\def\yellow{\color{yellow}\psset{linecolor=yellow}}
+\def\magenta{\color{magenta}\psset{linecolor=magenta}}
+\def\white{\color{white}\psset{linecolor=white}}
+% \end{macrocode}
+% \end{macro}
+%
+% \begin{macro}{\xymcolor}
+% \begin{macro}{\redx etc.}
+% These macros are defined to avoid \texttt{**Warning** color stack underflow}
+% during processing by the dvipdfmx converter.
+% \changes{v5.00}{2010/10/01}{Added: Colors for TeX/LaTeX mode}
+% \changes{v5.01}{2011/02/24}{Coloring atoms and bonds}
+% \begin{macrocode}
+\def\xymcolor#1#2{\mbox{\color{#1}\psset{linecolor=#1}#2}}
+%defined in the bondcolor packag
+%\def\redx#1{\xymcolor{red}{#1}}
+%\def\bluex#1{\xymcolor{blue}{#1}}
+%\def\greenx#1{\xymcolor{green}{#1}}
+%\def\blackx#1{\xymcolor{black}{#1}}
+%\def\cyanx#1{\xymcolor{cyan}{#1}}
+%\def\yellowx#1{\xymcolor{yellow}{#1}}
+%\def\magentax#1{\xymcolor{magenta}{#1}}
+%\def\whitex#1{\xymcolor{white}{#1}}
+% \end{macrocode}
+% \end{macro}
+% \end{macro}
+%
+% \begin{macro}{\Color@@@Line}
+% \changes{v5.00}{2010/10/01}{For coloring skeletal bond in PS mode}
+% \changes{v5.01}{2011/02/24}{Coloring atoms and bonds}
+% The last argument (\#7) specifies a line color.
+% This command is used in the definition of |\replaceSKbond|
+% of the \textsf{bondcolor} package by putting \verb/#7=white/.
+% \begin{macro}{\Color@Line}
+% \begin{macrocode}
+\def\Color@@@Line{%
+\@ifnextchar[{\C@lor@@@Line}{\C@lor@@@Line[0.4pt]}}
+\def\C@lor@@@Line[#1](#2,#3)(#4,#5)#6#7{%
+\begingroup
+\SlopetoXY(#2,#3)(#4,#5){#6}%common to \Put@@@Line command
+\psline[unit=\unitlength,%
+linewidth=#1,linecolor=#7]
+(#2,#3)(\the\@tempcntXa,\the\@tempcntYa)%
+\@tempcntXa=0\relax \@tempcntYa=0\relax
+\endgroup}%end of \Color@@@Line
+\let\Color@Line=\Color@@@Line%for compatibility to PDF mode
+% \end{macrocode}
+% \end{macro}
+% \end{macro}
+%
+% \begin{macro}{\BackGroundColor}
+% \changes{v5.01}{2013/08/16}{For coloring skeletal bond in PS mode}
+% This macro is redefined for the PostSript mode.
+% \begin{macrocode}
+\def\BackGroundColor{%
+\definecolor{TempColor}{cmyk}{0,0,0,0}%
+\psset{linecolor=TempColor}}
+% \end{macrocode}
+% \end{macro}
+%
+% The command |\changeunitlength| is redefined for using pstricks.
+% \begin{macro}{\changeunitlength}
+% \begin{macrocode}
+\newif\ifsizereduction\sizereductionfalse
+\def\@@changeunitlength#1{\unitlength=#1\relax
+%%\psset{unit=\unitlength}%delete August 02, 2005
+\ifdim\unitlength<0.1pt \sizereductiontrue
+\ifdim\unitlength<0.062pt \let\substfontsize=\tiny \else
+\ifdim\unitlength<0.072pt \let\substfontsize=\scriptsize \else
+\ifdim\unitlength<0.082pt \let\substfontsize=\footnotesize
+\fi\fi\fi
+\else \let\substfontsize=\normalsize\fi}
+% \end{macrocode}
+% \end{macro}
+%
+% \begin{macro}{setxymtxps}
+% \changes{v4.02}{2004/12/20}{Added: a switch for wedged bonds}
+% \begin{macrocode}
+\def\setxymtxps{%
+\@ifnextchar[{\@setxymtxps}{\@setxymtxps[0.1pt]}}
+\def\@setxymtxps[#1]{%
+\PSmodetrue
+\let\sfpicture=\picture
+\let\endsfpicture=\endpicture
+\let\thicklines=\Thick@Lines
+\let\thinlines=\Thin@Lines
+\let\Put@Line=\Put@@@Line
+\let\Color@Line=\Color@@@Line%for compatibility to PDF mode
+\let\Put@Direct=\Put@@@Direct
+\let\Put@oCircle=\Put@@@oCircle
+\let\Put@sCircle=\Put@@@sCircle
+\let\dotorline=\d@@t@rline
+\let\WedgeAsSubst=\WedgeAsSubstPS%for compatibility to PDF mode
+\let\HashWedgeAsSubst=\HashWedgeAsSubstPS%for compatibility to PDF mode
+\let\PutBondLine=\PUT@@@bondLINE%for compatibility to PDF
+\let\PutDashedBond=\PUT@@@dashedLINE%for compatibility to PDF mode
+\let\putRoundArrow=\putRoundArrowPS%for the compatibility to PDF mode
+\let\changeunitlength=\@@changeunitlength
+\changeunitlength{#1}%
+\wedgehasheddash%
+}
+\setxymtxps
+%</xymtxps>
+% \end{macrocode}
+% \end{macro}
+%
+% \Finale
+%
+\endinput
diff --git a/macros/latex/contrib/xymtex/xymtxps/xymtx-ps.ins b/macros/latex/contrib/xymtex/xymtxps/xymtx-ps.ins
new file mode 100644
index 0000000000..1a958d572c
--- /dev/null
+++ b/macros/latex/contrib/xymtex/xymtxps/xymtx-ps.ins
@@ -0,0 +1,57 @@
+\def\batchfile{xymtx-ps.ins}
+\input docstrip.tex
+\preamble
+
+This is a generated file.
+
+Copyright 2002,2004,2005,2009,2010,2011,2013 by Shinsaku Fujita
+all rights reserved.
+This style file is created for drawing chemical structural formulas
+This style file is to be contained in the ``xymtex'' directory which
+is an input directory for TeX.
+
+This file is part of the XyMTeX system.
+=======================================
+
+Version 1.00 Released on April 30, 2002
+Version 4.01 Released on August 30, 2004 (adjust for XyMTeX version 4.01)
+Version 4.02 Released on December 20, 2004 (wedged bonds for stereochemistry)
+Version 4.03 Released on July 20, 2005 (wave line for stereochemistry)
+Version 4.03a Released on August 02, 2005 (Bug fix)
+Version 4.04a Released on June 15, 2009 (Bug fix)
+Version 4.05 Released on November 05, 2009 (Bug fix)
+Version 5.00 Released on October 01, 2010
+Version 5.01b Released on February 24, 2011
+Version 5.01bb Released on May 27, 2013
+Version 5.01bbb Released on June 21, 2013
+
+Present version (as xymtx-ps.dtx etc.):
+Version 5.01 Released on August 16, 2013
+
+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 xymtx-ps.dtx and xymtx-ps.ins
+and the derived file xymtx-ps.sty.
+
+=======================================
+
+\endpreamble
+
+\keepsilent
+
+\generateFile{xymtx-ps.drv}{t}{%
+ \from{xymtx-ps.dtx}{driver}}
+
+\generateFile{xymtx-ps.sty}{t}{%
+ \from{xymtx-ps.dtx}{xymtxps}}
+
+\endinput
diff --git a/macros/latex/contrib/xymtex/xymtxps/xymtx-ps.sty b/macros/latex/contrib/xymtex/xymtxps/xymtx-ps.sty
new file mode 100644
index 0000000000..a6a75c3942
--- /dev/null
+++ b/macros/latex/contrib/xymtex/xymtxps/xymtx-ps.sty
@@ -0,0 +1,452 @@
+%%
+%% This is file `xymtx-ps.sty',
+%% generated with the docstrip utility.
+%%
+%% The original source files were:
+%%
+%% xymtx-ps.dtx (with options: `xymtxps')
+%%
+%% This is a generated file.
+%%
+%% Copyright 2002,2004,2005,2009,2010,2011,2013 by Shinsaku Fujita
+%% all rights reserved.
+%% This style file is created for drawing chemical structural formulas
+%% This style file is to be contained in the ``xymtex'' directory which
+%% is an input directory for TeX.
+%%
+%% This file is part of the XyMTeX system.
+%% =======================================
+%%
+%% Version 1.00 Released on April 30, 2002
+%% Version 4.01 Released on August 30, 2004 (adjust for XyMTeX version 4.01)
+%% Version 4.02 Released on December 20, 2004 (wedged bonds for stereochemistry)
+%% Version 4.03 Released on July 20, 2005 (wave line for stereochemistry)
+%% Version 4.03a Released on August 02, 2005 (Bug fix)
+%% Version 4.04a Released on June 15, 2009 (Bug fix)
+%% Version 4.05 Released on November 05, 2009 (Bug fix)
+%% Version 5.00 Released on October 01, 2010
+%% Version 5.01b Released on February 24, 2011
+%% Version 5.01bb Released on May 27, 2013
+%% Version 5.01bbb Released on June 21, 2013
+%%
+%% Present version (as xymtx-ps.dtx etc.):
+%% Version 5.01 Released on August 16, 2013
+%%
+%% 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 xymtx-ps.dtx and xymtx-ps.ins
+%% and the derived file xymtx-ps.sty.
+%%
+%% =======================================
+%%
+%% File: xymtx-ps.dtx
+%% \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 \~}
+\def\j@urnalname{xymtx-ps}
+\def\versi@ndate{August 16, 2013}
+\def\versi@nno{ver5.01}
+\def\copyrighth@lder{SF} % Shinsaku Fujita
+\typeout{XyMTeX Macro File `\j@urnalname' (\versi@nno) <\versi@ndate>%
+\space[\copyrighth@lder]}
+\@ifundefined{setsixringv}{\input chemstr.sty\relax}{}
+\RequirePackage{chemstr}%added 2010/10/01
+\RequirePackage{pstricks}
+\RequirePackage{pst-coil}
+\unitlength=0.1pt
+%%\psset{xunit=\the\unitlength,yunit=\the\unitlength}%delete August 2, 2005
+\newif\if@thicklinesw \@thicklineswfalse
+\def\Thick@Lines{\@thicklineswtrue}%redefinition
+\def\Thin@Lines{\@thicklineswfalse}%redefinition
+\def\thickLineWidth{1.6pt}
+\def\thinLineWidth{0.4pt}
+\newif\if@wedgesw \@wedgeswtrue
+\newif\if@hasheddashsw \@hasheddashswtrue
+\def\wedgehasheddash{\@wedgeswtrue\@hasheddashswtrue}
+\def\wedgehashedwedge{\@wedgeswtrue\@hasheddashswfalse}
+\def\dashhasheddash{\@wedgeswfalse\@hasheddashswtrue}
+\@ifundefined{ifmolfront}{\newif\ifmolfront \molfrontfalse}{}
+\@ifundefined{if@skbondlist}{\newif\if@skbondlist \@skbondlistfalse}{}
+\long\gdef\Put@@@Line(#1,#2)(#3,#4)#5{%
+\begingroup
+\SlopetoXY(#1,#2)(#3,#4){#5}%%replaced (code from chemstr.sty)
+\if@thicklinesw
+\if@wedgesw
+\ifmolfront%bold dash bond for skeletal bond for pyranose etc.
+\psline[unit=\unitlength,%
+linewidth=\thickLineWidth](#1,#2)(\the\@tempcntXa,\the\@tempcntYa)%
+\else
+\if@skbondlist%bold dash bond skeletal bond for general cases
+\psline[unit=\unitlength,%
+linewidth=\thickLineWidth](#1,#2)(\the\@tempcntXa,\the\@tempcntYa)%
+\else%wedged bond
+\stereo@wedgedimension(#3,#4){10}%
+\pspolygon*[unit=\unitlength%
+](#1,#2)%
+(\the\@tempcntXb,\the\@tempcntYb)(\the\@tempcntXc,\the\@tempcntYc)
+\fi\fi
+\else
+\psline[unit=\unitlength,%
+linewidth=\thickLineWidth](#1,#2)(\the\@tempcntXa,\the\@tempcntYa)%
+\fi
+\else
+\ifwavebond
+\pszigzag[unit=\unitlength,%
+coilheight=1,coilwidth=.13cm,linewidth=\thinLineWidth,linearc=5,%
+coilarm=0]{-}(\the\@tempcntXa,\the\@tempcntYa)(#1,#2)%
+\else
+\psline[unit=\unitlength,%
+linewidth=\thinLineWidth](#1,#2)(\the\@tempcntXa,\the\@tempcntYa)%
+\fi
+\fi
+\@tempcntXa=0\relax \@tempcntYa=0\relax
+\endgroup}%end of Put@@@Line
+\newif\if@wedgeadjust
+\def\stereo@wedgedimension(#1,#2)#3{%
+\@tempcntXb=0\relax
+\@tempcntYb=0\relax
+\@tempcntXc=0\relax
+\@tempcntYc=0\relax
+%%
+\@wedgeadjustfalse
+\ifnum#1<0 \@tempcntzz=-#1\else\@tempcntzz=#1\fi
+\ifnum#2<0 \@tempcntzzz=-#2\else\@tempcntzzz=#2\fi
+\ifnum#1=0\else
+\multiply\@tempcntzzz by10\relax \divide\@tempcntzzz by\@tempcntzz\fi%% (3/5)x10=6
+\ifnum\@tempcntzzz>7\relax\else\@wedgeadjusttrue\fi
+%%one point of wedge
+\ifnum#1=0\relax
+\@tempcntXb=#3 \advance\@tempcntXb by8\relax
+\@tempcntYb=0\relax
+\else
+\ifnum#2=0\relax
+\@tempcntXb=0\relax
+\@tempcntYb=#3 \advance\@tempcntYb by8\relax
+\else
+\@tempcntXb=#3\relax
+\@tempcntYb=-#3\relax
+\if@wedgeadjust
+\advance\@tempcntXb by8\relax
+\advance\@tempcntYb by-8\relax
+\fi
+\multiply\@tempcntXb by#2\relax\multiply\@tempcntXb by10\relax
+\divide\@tempcntXb by#1\relax\divide\@tempcntXb by10\relax\fi\fi
+\advance\@tempcntXb by\@tempcntXa\relax
+\advance\@tempcntYb by\@tempcntYa\relax
+%%other point of wedge
+\ifnum#1=0\relax
+\@tempcntXc=-#3 \advance\@tempcntXc by-8\relax
+\@tempcntYc=0\relax
+\else
+\ifnum#2=0\relax
+\@tempcntXc=0\relax
+\@tempcntYc=-#3 \advance\@tempcntYc by-8\relax
+\else
+\@tempcntXc=-#3\relax
+\@tempcntYc=#3\relax
+\if@wedgeadjust
+\advance\@tempcntXc by-6\relax
+\advance\@tempcntYc by6\relax
+\fi
+\multiply\@tempcntXc by#2\relax\multiply\@tempcntXc by10\relax
+\divide\@tempcntXc by#1\relax\divide\@tempcntXc by10\relax\fi\fi
+\advance\@tempcntXc by\@tempcntXa\relax
+\advance\@tempcntYc by\@tempcntYa\relax
+}%%end of \stereo@wedgedimension
+\@ifundefined{iftdir}{\newif\iftdir \tdirfalse}{}%pLaTeXe vs. LaTeXe
+\def\Put@@@Direct(#1,#2)#3{\begingroup\psset{unit=\unitlength}%
+\iftdir
+\rput[bl]{0}(#1,#2){#3}\else\rput[Bl]{0}(#1,#2){#3}\fi
+\endgroup}
+\def\Put@@@oCircle(#1,#2)#3{%
+ \begingroup \@tempcntz=#3 \divide\@tempcntz by2\relax
+ \pscircle[linewidth=.4pt,unit=\unitlength](#1,#2){\@tempcntz}\endgroup}
+\def\Put@@@sCircle(#1,#2)#3{%
+ \begingroup \@tempcntz=#3 \divide\@tempcntz by2\relax
+ \pscircle[linewidth=2pt,unit=\unitlength](#1,#2){\@tempcntz}\endgroup}
+\def\d@@t@rline(#1,#2)(#3,#4)#5/(#6,#7)(#8,#9){%
+\if@hasheddashsw
+ \@ifundefined{psline}{%
+ \XyMTeXWarning{A dottedline is replaced by a solid line.}%
+ \Put@Line(#1,#2)(#3,#4){#5}%
+ }{{\thicklines%
+ \hasheddashbond(#1,#2)(#3,#4){#5}/(#6,#7)(#8,#9)}}%
+\else
+\if@skbondlist%hashed dash bond skeletal bond for general cases
+ \@ifundefined{psline}{%
+ \XyMTeXWarning{A dottedline is replaced by a solid line.}%
+ \Put@Line(#1,#2)(#3,#4){#5}%
+ }{{\thicklines%
+ \hasheddashbond(#1,#2)(#3,#4){#5}/(#6,#7)(#8,#9)}}%
+\else
+ \hashedwedgebond(#1,#2)(#3,#4){#5}/(#6,#7)(#8,#9)%
+\fi\fi
+}%end of \d@@t@rline
+\def\hasheddashbond(#1,#2)(#3,#4)#5/(#6,#7)(#8,#9){%
+\begingroup
+\@tempcntzz=12\relax
+\@tempcntzzz=-30\relax%almost no shortening
+\bond@shorten(#1,#2)(#3,#4){#5}/(#6,#7)(#8,#9)%
+\ifdim\unitlength>0.08pt
+\psline[unit=\unitlength,%
+linewidth=\thickLineWidth,linestyle=dashed,dash=1pt 1.2pt]%
+(\the\@tempcntXb,\the\@tempcntYb)(\the\@tempcntXc,\the\@tempcntYc)%
+\else
+\psline[unit=\unitlength,%
+linewidth=\thickLineWidth,linestyle=dashed,dash=1pt 1.2pt]%
+(\the\@tempcntXb,\the\@tempcntYb)(\the\@tempcntXc,\the\@tempcntYc)%
+\fi
+\endgroup}
+\def\hashedwedgebond(#1,#2)(#3,#4)#5/(#6,#7)(#8,#9){%
+\begingroup
+\@tempcntXa=#8\relax
+\@tempcntYa=#9\relax
+\stereo@wedgedimension(#3,#4){10}%
+\pspolygon*[unit=\unitlength%
+](#1,#2)(\the\@tempcntXb,\the\@tempcntYb)(\the\@tempcntXc,\the\@tempcntYc)%
+\@tempcntzz=5\relax
+\@tempcntzzz=-12\relax
+\bond@shorten(#1,#2)(#3,#4){#5}/(#6,#7)(#8,#9)%
+\ifdim\unitlength>0.08pt
+\psline[unit=\unitlength,%
+linewidth=3.8pt,linestyle=dashed,dash=0.8pt 1pt,linecolor=white]%
+(\the\@tempcntXb,\the\@tempcntYb)(\the\@tempcntXc,\the\@tempcntYc)%
+\else
+\psline[unit=\unitlength,%
+linewidth=3pt,linestyle=dashed,dash=0.6pt 0.8pt,linecolor=white]%
+(\the\@tempcntXb,\the\@tempcntYb)(\the\@tempcntXc,\the\@tempcntYc)%
+\fi
+\endgroup
+}%%end of \hashedwedgebond
+\def\bond@shorten(#1,#2)(#3,#4)#5/(#6,#7)(#8,#9){%
+\@tempcntXb=#8\relax
+\@tempcntYb=#9\relax
+\advance\@tempcntXb by-#6\relax \divide\@tempcntXb by\@tempcntzz\relax
+\advance\@tempcntYb by-#7\relax \divide\@tempcntYb by\@tempcntzz\relax
+\advance\@tempcntXb by#6\relax
+\advance\@tempcntYb by#7\relax
+\@tempcntXc=#8\relax
+\@tempcntYc=#9\relax
+\advance\@tempcntXc by-#6\relax \divide\@tempcntXc by\@tempcntzzz\relax
+\advance\@tempcntYc by-#7\relax \divide\@tempcntYc by\@tempcntzzz\relax
+\advance\@tempcntXc by#8\relax
+\advance\@tempcntYc by#9\relax
+}%%end of \bondshorten
+\def\WedgeAsSubstPS(#1,#2)(#3,#4)#5{%
+\begingroup
+\@thicklineswtrue \@wedgeswtrue
+\molfrontfalse \@skbondlistfalse
+\Put@@@Line(#1,#2)(#3,#4){#5}%
+\endgroup}
+\let\WedgeAsSubst=\WedgeAsSubstPS%for compatibility to PDF mode
+\def\stereo@wedgedimensionX(#1,#2)(#3,#4){%
+\@ifnextchar[{\stereo@@wedgedimensionX(#1,#2)(#3,#4)}%
+{\stereo@@wedgedimensionX(#1,#2)(#3,#4)[10]}}
+\def\stereo@@wedgedimensionX(#1,#2)(#3,#4)[#5]{%
+\@tempcnta=-#1\relax
+\advance\@tempcnta by#3\relax
+%%\typeout{KKK:\the\@tempcnta}%
+\@tempcntb=-#2\relax
+\advance\@tempcntb by#4\relax
+%%%\typeout{LLL:\the\@tempcntb}%
+\stereo@wedgedimension(\the\@tempcnta,\the\@tempcntb){#5}%
+%%%\typeout{MMM; (\the\@tempcntXb,\the\@tempcntYb)(\the\@tempcntXc,\the\@tempcntYc)}
+\advance\@tempcntXb by#3\relax
+\advance\@tempcntYb by#4\relax
+\advance\@tempcntXc by#3\relax
+\advance\@tempcntYc by#4\relax}
+\def\WedgeAsSubstXPS(#1,#2)(#3,#4){%
+\@ifnextchar[{\Wedge@AsSubstXPS(#1,#2)(#3,#4)}%
+{\Wedge@AsSubstXPS(#1,#2)(#3,#4)[10]}}%
+\def\Wedge@AsSubstXPS(#1,#2)(#3,#4)[#5]{%
+\begingroup
+\stereo@wedgedimensionX(#1,#2)(#3,#4)[#5]%
+\pspolygon*[unit=\unitlength](#1,#2)%
+(\the\@tempcntXb,\the\@tempcntYb)(\the\@tempcntXc,\the\@tempcntYc)%
+\endgroup}
+\let\WedgeAsSubstX=\WedgeAsSubstXPS%for compatibility to PDF mode
+\def\HashWedgeAsSubstPS(#1,#2)(#3,#4)#5{%
+\begingroup
+\@thicklineswtrue \@wedgeswtrue
+\molfrontfalse \@skbondlistfalse
+\Put@@@Line(#1,#2)(#3,#4){#5}%
+%%x-coordinate
+\@tempcntXa=0\relax
+\ifnum#3>0\relax \@tempcntXa=#5\relax
+\advance\@tempcntXa by-10\relax
+\else\ifnum#3<0\relax\@tempcntXa=-#5\relax\fi\fi
+\advance\@tempcntXa by#1\relax
+%%y-coordinate
+\@tempcntYa=#5\relax
+\advance\@tempcntYa by-10\relax
+\ifnum#3=0\relax\else
+\multiply\@tempcntYa by#4\relax\multiply\@tempcntYa by10\relax
+\divide\@tempcntYa by#3\relax\divide\@tempcntYa by10\relax\fi
+\ifnum\@tempcntYa<0\relax
+\ifnum#4>0\relax\@tempcntYa=-\@tempcntYa\fi
+\else
+\ifnum\@tempcntYa>0\relax
+\ifnum#4<0\relax\@tempcntYa=-\@tempcntYa\fi\fi
+\fi
+\advance\@tempcntYa by#2\relax
+\ifdim\unitlength>0.08pt
+\psline[unit=\unitlength,%
+linewidth=5pt,linestyle=dashed,dash=0.8pt 1pt,linecolor=white]%
+%%(\the\@tempcntXb,\the\@tempcntYb)(\the\@tempcntXc,\the\@tempcntYc)%
+(#1,#2)(\the\@tempcntXa,\the\@tempcntYa)%
+\else
+\psline[unit=\unitlength,%
+linewidth=3pt,linestyle=dashed,dash=0.6pt 0.8pt,linecolor=white]%
+%%(\the\@tempcntXb,\the\@tempcntYb)(\the\@tempcntXc,\the\@tempcntYc)%
+(#1,#2)(\the\@tempcntXa,\the\@tempcntYa)%
+\fi
+\endgroup
+}%%end of \HashWedgeAsSubstPS
+\let\HashWedgeAsSubst=\HashWedgeAsSubstPS%for compatibility to PDF mode
+\def\HashWedgeAsSubstXPS(#1,#2)(#3,#4){%
+\@ifnextchar[{
+\HashWedge@sSubstXPS(#1,#2)(#3,#4)}%
+{\HashWedge@sSubstXPS(#1,#2)(#3,#4)[10]}}
+\def\HashWedge@sSubstXPS(#1,#2)(#3,#4)[#5]{%
+\begingroup
+\Wedge@AsSubstXPS(#1,#2)(#3,#4)[#5]%
+\ifdim\unitlength>0.08pt
+\@tempdima=#5\unitlength \multiply\@tempdima by3\relax
+\advance\@tempdima by1pt%adjustment
+\psline[unit=\unitlength,%
+linewidth=\@tempdima,%
+linestyle=dashed,dash=0.8pt 1pt,linecolor=white]%
+(#1,#2)(#3,#4)%
+\else
+\@tempdima=#5\unitlength \multiply\@tempdima by3
+\psline[unit=\unitlength,%
+linewidth=\@tempdima,%
+linestyle=dashed,dash=0.6pt 0.8pt,linecolor=white]%
+(#1,#2)(#3,#4)%
+\fi
+\endgroup
+}%%end of \HashWedgeAsSubstXPS
+\let\HashWedgeAsSubstX=\HashWedgeAsSubstXPS%for compatibility to PDF mode
+\def\WavyAsSubstPS(#1,#2)(#3,#4)#5{%
+\begingroup
+\wavebondtrue
+\Put@@@Line(#1,#2)(#3,#4){#5}%
+\endgroup}
+\let\WavyAsSubst=\WavyAsSubstPS%for compatibility to PDF mode
+\def\WavyAsSubstXPS(#1,#2)(#3,#4){%
+\pszigzag[unit=\unitlength,%
+coilheight=1,coilwidth=.13cm,linewidth=\thinLineWidth,linearc=5,%
+coilarm=0]{-}(#3,#4)(#1,#2)%
+}
+\let\WavyAsSubstX=\WavyAsSubstXPS%for compatibility to PDF mode
+\def\PUT@@@bondLINE(#1,#2)(#3,#4)#5{%
+\begingroup
+\psline[unit=\unitlength,%
+linewidth=#5](#1,#2)(#3,#4)%
+\endgroup
+}
+\let\PutPSLine=\PUT@@@bondLINE%for user's use
+\let\PutBondLine=\PUT@@@bondLINE%for compatibility to PDF
+\def\PUT@@@dashedLINE(#1,#2)(#3,#4)#5{%
+\begingroup
+\ifdim\unitlength>0.08pt
+\psline[unit=\unitlength,%
+linewidth=#5,linestyle=dashed,dash=1pt 1.2pt]%
+(#1,#2)(#3,#4)%
+\else
+\psline[unit=\unitlength,%
+linewidth=#5,linestyle=dashed,dash=0.8pt 1pt]%
+(#1,#2)(#3,#4)%
+\fi
+\endgroup
+}
+\let\PutPSdashed=\PUT@@@dashedLINE%for user's use
+\let\PutDashedBond=\PUT@@@dashedLINE%for compatibility to PDF mode
+\def\downnobond#1#2{%
+\hbox{\smash{\hbox to0.72em{\hss#1\hss}\kern-0.72em\lower2.2ex\hbox{#2}}}}
+\def\putRoundArrowPS{%
+\@ifnextchar[{\putRound@rrowPS}{\putRound@rrowPS[->]}}
+\def\putRound@rrowPS[#1]#2{%
+\pscurve[unit=\unitlength,%
+linewidth=0.4pt]{#1}#2}
+\let\putRoundArrow=\putRoundArrowPS%for the compatibility to PDF mode
+\def\red{\color{red}\psset{linecolor=red}}
+\def\blue{\color{blue}\psset{linecolor=blue}}
+\def\green{\color{green}\psset{linecolor=green}}
+\def\black{\color{black}\psset{linecolor=black}}
+\def\cyan{\color{cyan}\psset{linecolor=cyan}}
+\def\yellow{\color{yellow}\psset{linecolor=yellow}}
+\def\magenta{\color{magenta}\psset{linecolor=magenta}}
+\def\white{\color{white}\psset{linecolor=white}}
+\def\xymcolor#1#2{\mbox{\color{#1}\psset{linecolor=#1}#2}}
+\def\Color@@@Line{%
+\@ifnextchar[{\C@lor@@@Line}{\C@lor@@@Line[0.4pt]}}
+\def\C@lor@@@Line[#1](#2,#3)(#4,#5)#6#7{%
+\begingroup
+\SlopetoXY(#2,#3)(#4,#5){#6}%common to \Put@@@Line command
+\psline[unit=\unitlength,%
+linewidth=#1,linecolor=#7]
+(#2,#3)(\the\@tempcntXa,\the\@tempcntYa)%
+\@tempcntXa=0\relax \@tempcntYa=0\relax
+\endgroup}%end of \Color@@@Line
+\let\Color@Line=\Color@@@Line%for compatibility to PDF mode
+\def\BackGroundColor{%
+\definecolor{TempColor}{cmyk}{0,0,0,0}%
+\psset{linecolor=TempColor}}
+\newif\ifsizereduction\sizereductionfalse
+\def\@@changeunitlength#1{\unitlength=#1\relax
+%%\psset{unit=\unitlength}%delete August 02, 2005
+\ifdim\unitlength<0.1pt \sizereductiontrue
+\ifdim\unitlength<0.062pt \let\substfontsize=\tiny \else
+\ifdim\unitlength<0.072pt \let\substfontsize=\scriptsize \else
+\ifdim\unitlength<0.082pt \let\substfontsize=\footnotesize
+\fi\fi\fi
+\else \let\substfontsize=\normalsize\fi}
+\def\setxymtxps{%
+\@ifnextchar[{\@setxymtxps}{\@setxymtxps[0.1pt]}}
+\def\@setxymtxps[#1]{%
+\PSmodetrue
+\let\sfpicture=\picture
+\let\endsfpicture=\endpicture
+\let\thicklines=\Thick@Lines
+\let\thinlines=\Thin@Lines
+\let\Put@Line=\Put@@@Line
+\let\Color@Line=\Color@@@Line%for compatibility to PDF mode
+\let\Put@Direct=\Put@@@Direct
+\let\Put@oCircle=\Put@@@oCircle
+\let\Put@sCircle=\Put@@@sCircle
+\let\dotorline=\d@@t@rline
+\let\WedgeAsSubst=\WedgeAsSubstPS%for compatibility to PDF mode
+\let\HashWedgeAsSubst=\HashWedgeAsSubstPS%for compatibility to PDF mode
+\let\PutBondLine=\PUT@@@bondLINE%for compatibility to PDF
+\let\PutDashedBond=\PUT@@@dashedLINE%for compatibility to PDF mode
+\let\putRoundArrow=\putRoundArrowPS%for the compatibility to PDF mode
+\let\changeunitlength=\@@changeunitlength
+\changeunitlength{#1}%
+\wedgehasheddash%
+}
+\setxymtxps
+\endinput
+%%
+%% End of file `xymtx-ps.sty'.