summaryrefslogtreecommitdiff
path: root/Master/texmf-dist/tex/latex/xymtex/xymtxpdf
diff options
context:
space:
mode:
authorKarl Berry <karl@freefriends.org>2013-11-19 00:56:32 +0000
committerKarl Berry <karl@freefriends.org>2013-11-19 00:56:32 +0000
commit0c16ddd29d43c785b867739f9b8fad8885ee548b (patch)
tree7402f2695ae367f7c96dba3224b4f1158900f077 /Master/texmf-dist/tex/latex/xymtex/xymtxpdf
parent717e7ac16b923e6683f358eab146a2a96a46d7e4 (diff)
xymtex (now lppl, minus manuals without sources)
git-svn-id: svn://tug.org/texlive/trunk@32182 c570f23f-e606-0410-a88d-b1316a301751
Diffstat (limited to 'Master/texmf-dist/tex/latex/xymtex/xymtxpdf')
-rw-r--r--Master/texmf-dist/tex/latex/xymtex/xymtxpdf/chmst-pdf.sty691
-rw-r--r--Master/texmf-dist/tex/latex/xymtex/xymtxpdf/xymtx-pdf.sty687
2 files changed, 1378 insertions, 0 deletions
diff --git a/Master/texmf-dist/tex/latex/xymtex/xymtxpdf/chmst-pdf.sty b/Master/texmf-dist/tex/latex/xymtex/xymtxpdf/chmst-pdf.sty
new file mode 100644
index 00000000000..09ba298642b
--- /dev/null
+++ b/Master/texmf-dist/tex/latex/xymtex/xymtxpdf/chmst-pdf.sty
@@ -0,0 +1,691 @@
+%%
+%% This is file `chmst-pdf.sty',
+%% generated with the docstrip utility.
+%%
+%% The original source files were:
+%%
+%% chmst-pdf.dtx (with options: `chmstpdf')
+%%
+%% This is a generated file.
+%%
+%% Copyright 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.
+%% =======================================
+%% Present version (as chmst-pdf.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-pdf} \def\journalID{chmst-pdf}
+\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-pdf.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-pdf}
+ {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-pdf}%
+\newdimen\@tempdimX
+\newdimen\@tempdimY
+\def\rArrow@Element#1{\begingroup\hbox to#1{\hss%
+\tikz[baseline=(X.base)]{%
+\draw[>=stealth,->,line width=0.4pt]%
+(0pt,0pt) coordinate (X) (0pt,0.28em) -- (#1,0.28em);}%
+\hss}\endgroup}
+\let\Arrow@Element=\rArrow@Element
+\def\lArrow@Element#1{\begingroup\hbox to#1{\hss%
+\tikz[baseline=(X.base)]{%
+\draw[stealth-,line width=0.4pt]%
+(0pt,0pt) coordinate (X) (0pt,0.28em) -- (#1,0.28em);}%
+\hss}\endgroup}
+\def\lrArrow@Element#1{\begingroup\hbox to#1{\hss%
+\tikz[baseline=(X.base)]{%
+\draw[stealth-stealth,line width=0.4pt]%
+(0pt,0pt) coordinate (X) (0pt,0.28em) -- (#1,0.28em);}%
+\hss}\endgroup}
+\def\eqArrow@Element#1{\begingroup\hbox to#1{\hss%
+\tikz[baseline=(X.base)]{%
+\draw[-stealth,line width=0.4pt]%
+(0pt,0.43em) -- (#1,0.43em);
+\draw[stealth-,line width=0.4pt]%
+(0pt,0pt) coordinate (X)
+(0pt,0.13em) -- (#1,0.13em);}%
+\hss}\endgroup}
+\def\eqHarpoon@Element#1{\begingroup\hbox to#1{\hss%
+\tikz[baseline=(X.base)]{%
+\draw[-left to,line width=0.4pt]%
+(0pt,0.43em) -- (#1,0.43em);
+\draw[left to-,line width=0.4pt]%
+(0pt,0pt) coordinate (X)
+(0pt,0.13em) -- (#1,0.13em);}%
+\hss}\endgroup}
+\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
+\tikz[baseline=(X.base)]{%
+\draw[-stealth,line width=0.4pt]%
+(0pt,0.43em) -- (#1,0.43em);
+\draw[stealth-,line width=0.4pt]%
+(0pt,0pt) coordinate (X)
+(\the\dimen1,0.13em) -- (\the\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
+\tikz[baseline=(X.base)]{%
+\draw[-stealth,line width=0.4pt]%
+(\the\dimen1,0.43em) -- (\the\dimen2,0.43em);
+\draw[stealth-,line width=0.4pt]%
+(0pt,0pt) coordinate (X) (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
+\tikz[baseline=(X.base)]{%
+\draw[-left to,line width=0.4pt]%
+(0pt,0.43em) -- (#1,0.43em);
+\draw[left to-,line width=0.4pt]%
+(0pt,0pt) coordinate (X)
+(\the\dimen1,0.13em) -- (\the\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
+\tikz[baseline=(X.base)]{%
+\draw[-left to,line width=0.4pt]%
+(\the\dimen1,0.43em) -- (\the\dimen2,0.43em);
+\draw[left to-,line width=0.4pt]%
+(0pt,0pt) coordinate (X) (0pt,0.13em) -- (#1,0.13em);
+}%
+\endgroup}
+\newdimen\@tempdimX
+\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%
+ \noindent
+ \Arrow@Element{\the\@tempdimX}
+ \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{%
+\tikz[baseline=(X.base)]{%
+\draw[-stealth,line width=0.4pt]%
+(0pt,#1) coordinate (X) -- (0pt,0pt);}}
+\def\uArrow@Element#1{%
+\tikz[baseline=(X.base)]{%
+\draw[stealth-,line width=0.4pt]%
+(0pt,#1) coordinate (X) -- (0pt,0pt);}}
+\def\veqArrow@Element#1{%
+\tikz[baseline=(X.base)]{%
+\draw[-stealth,line width=0.4pt]%
+(0pt,0pt) coordinate (X)
+(-0.15em,#1) -- (-0.15em,0pt);
+\draw[stealth-,line width=0.4pt]%
+(0.15em,#1) -- (0.15em,0pt);}}
+\def\duArrow@Element#1{%
+\tikz[baseline=(X.base)]{%
+\draw[stealth-stealth,line width=0.4pt]%
+(0pt,#1) coordinate (X) -- (0pt,0pt);}}
+\def\veqHarpoon@Element#1{%
+\tikz[baseline=(X.base)]{%
+\draw[-left to,line width=0.4pt]%
+(0pt,0pt) coordinate (X)
+(-0.15em,#1) -- (-0.15em,0pt);
+\draw[left to-,line width=0.4pt]%
+(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}%
+\Arrow@Element{\the\@tempdimY}%
+\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{%
+\tikz[baseline=(X.base)]{%
+\draw[-stealth,line width=0.4pt]%
+(0pt,#1) coordinate (X) -- (#1,0pt);}}
+\def\nwArrow@Element#1{%
+\tikz[baseline=(X.base)]{%
+\draw[stealth-,line width=0.4pt]%
+(0pt,#1) coordinate (X) -- (#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}
+\Arrow@Element{\the\@tempdimY}%
+\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{%
+\tikz[baseline=(X.base)]{%
+\draw[-stealth,line width=0.4pt]%
+(0pt,0pt) coordinate (X) -- (#1,#1);}}
+\def\swArrow@Element#1{%
+\tikz[baseline=(X.base)]{%
+\draw[stealth-,line width=0.4pt]%
+(0pt,0pt) coordinate (X) -- (#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}
+\Arrow@Element{\the\@tempdimY}%
+\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
+\@tempdimb=#1 \advance\@tempdimb by-1.2pt
+\tikz[baseline=(X.base)]{%
+\draw[-stealth,line width=0.4pt]%
+(1.2pt,\the\@tempdima) coordinate (X) -- (\the\@tempdima,1.2pt);%
+\draw[stealth-,line width=0.4pt]%
+(-1.2pt,\the\@tempdimb) -- (\the\@tempdimb,-1.2pt);}
+\endgroup}
+\def\ueqArrow@Element#1{%
+\begingroup
+\@tempdima=#1 \advance\@tempdima by-1.2pt
+\@tempdimb=#1 \advance\@tempdimb by1.2pt
+\tikz[baseline=(X.base)]{%
+\draw[-stealth,line width=0.4pt]%
+(-1.2pt,1.2pt) coordinate (X) -- (\the\@tempdima,\the\@tempdimb);%
+\draw[stealth-,line width=0.4pt]%
+(1.2pt,-1.2pt) -- (\the\@tempdimb,\the\@tempdima);}
+\endgroup}
+\def\deqHarpoon@Element#1{%
+\begingroup
+\@tempdima=#1 \advance\@tempdima by1.2pt
+\@tempdimb=#1 \advance\@tempdimb by-1.2pt
+\tikz[baseline=(X.base)]{%
+\draw[-left to,line width=0.4pt]%
+(1.2pt,\the\@tempdima) coordinate (X) -- (\the\@tempdima,1.2pt);%
+\draw[left to-,line width=0.4pt]%
+(-1.2pt,\the\@tempdimb) -- (\the\@tempdimb,-1.2pt);}
+\endgroup}
+\def\ueqHarpoon@Element#1{%
+\begingroup
+\@tempdima=#1 \advance\@tempdima by-1.2pt
+\@tempdimb=#1 \advance\@tempdimb by1.2pt
+\tikz[baseline=(X.base)]{%
+\draw[-left to,line width=0.4pt]%
+(-1.2pt,1.2pt) coordinate (X) -- (\the\@tempdima,\the\@tempdimb);%
+\draw[left to-,line width=0.4pt]%
+(1.2pt,-1.2pt) -- (\the\@tempdimb,\the\@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{%
+\tikz[baseline=(X.base)]{%
+\draw[stealth-stealth,line width=0.4pt]%
+(0pt,0pt) coordinate (X) -- (#1,#1);}}
+\def\dlrArrow@Element#1{%
+\tikz[baseline=(X.base)]{%
+\draw[stealth-stealth,line width=0.4pt]%
+(0pt,#1) coordinate (X) -- (#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){%
+\tikznodimension{%
+\draw [#1,line width=0.4pt]%%(0pt,0pt) coordinate (X)
+(#2\unitlength,#3\unitlength) ..
+controls (#4\unitlength,#5\unitlength)
+and (#6\unitlength,#7\unitlength) ..
+(#8\unitlength,#9\unitlength);}%
+}%
+\def\electronshiftHru{\electronshiftAH{-left to}}
+\def\electronshiftHrd{\electronshiftAH{-right to}}
+\def\electronshiftHlu{\electronshiftAH{right to-}}
+\def\electronshiftHld{\electronshiftAH{left to-}}
+\def\electronshiftArrowr{\electronshiftAH{-stealth}}
+\def\electronshiftArrowl{\electronshiftAH{stealth-}}
+\def\lSchemeArrow@Element#1{\hbox to#1{\hss%
+\tikz[baseline=(X.base)]{%
+\draw[stealth-,double distance=0.16em,line width=0.4pt]%
+(0pt,0.28em) coordinate (X) -- (#1,0.28em);}%
+\hss}}
+\def\rSchemeArrow@Element#1{\hbox to#1{\hss%
+\tikz[baseline=(X.base)]{%
+\draw[-stealth,double distance=0.16em,line width=0.4pt]%
+(0pt,0.28em) coordinate (X) -- (#1,0.28em);}%
+\hss}}
+\def\lrSchemeArrow@Element#1{\hbox to#1{\hss%
+\tikz[baseline=(X.base)]{%
+\draw[stealth-stealth,double distance=0.16em,line width=0.4pt]%
+(0pt,0.28em) coordinate (X) -- (#1,0.28em);}%
+\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{%
+\leavevmode
+\lower0.2pt\hbox to#1{\hss%
+\tikz[baseline=(X.base)]{%
+\draw[-left to,line width=0.4pt]%
+(0pt,0pt) coordinate (X)
+(0pt,0.28em) -- (#1,0.28em);}%
+\hss}}
+\def\rightharpoondownElement#1{%
+\leavevmode
+\raise0.2pt\hbox to#1{\hss%
+\tikz[baseline=(X.base)]{%
+\draw[-right to,line width=0.4pt]%
+(0pt,0pt) coordinate (X)
+(0pt,0.28em) -- (#1,0.28em);}%
+\hss}}
+\def\leftharpoonupElement#1{%
+\leavevmode
+\lower0.2pt\hbox to#1{\hss%
+\tikz[baseline=(X.base)]{%
+\draw[right to-,line width=0.4pt]%
+(0pt,0pt) coordinate (X)
+(0pt,0.28em) -- (#1,0.28em);}%
+\hss}}
+\def\leftharpoondownElement#1{%
+\leavevmode
+\lower0.2pt\hbox to#1{\hss%
+\tikz[baseline=(X.base)]{%
+\draw[left to-,line width=0.4pt]%
+(0pt,0pt) coordinate (X)
+(0pt,0.28em) -- (#1,0.28em);}%
+\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
+\tikznodimension{%
+\draw [#6,line width=0.4pt]%%%% (0pt,0pt) coordinate (X)
+(#2\unitlength,#3\unitlength) ..
+controls (\@cnttempa\unitlength,\@cnttempb\unitlength) and
+(\@tempcntXc\unitlength,\@tempcntYc\unitlength) ..
+(#4\unitlength,#5\unitlength);}%
+}
+\def\electronrshiftarrow{%
+\@ifnextchar[{\@electronrshiftarrow}{\@electronrshiftarrow[0]}}
+\def\@electronrshiftarrow[#1](#2,#3)(#4,#5){%
+\ifnum#2<#4\relax
+\electronAHshift[#1](#2,#3)(#4,#5){-stealth}%
+\else
+\ifcase#1\relax
+\electronAHshift[1](#2,#3)(#4,#5){-stealth}%
+\or
+\electronAHshift[0](#2,#3)(#4,#5){-stealth}%
+\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){stealth-}%
+\else
+\ifcase#1\relax
+\electronAHshift[1](#2,#3)(#4,#5){stealth-}%
+\or
+\electronAHshift[0](#2,#3)(#4,#5){stealth-}%
+\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){-left to}%
+\else
+\ifcase#1\relax
+\electronAHshift[1](#2,#3)(#4,#5){-left to}%
+\or
+\electronAHshift[0](#2,#3)(#4,#5){-left to}%
+\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){-right to}%
+\else
+\ifcase#1\relax
+\electronAHshift[1](#2,#3)(#4,#5){-right to}%
+\or
+\electronAHshift[0](#2,#3)(#4,#5){-right to}%
+\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){right to-}%
+\else
+\ifcase#1\relax
+\electronAHshift[1](#2,#3)(#4,#5){right to-}%
+\or
+\electronAHshift[0](#2,#3)(#4,#5){right to-}%
+\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){left to-}%
+\else
+\ifcase#1\relax
+\electronAHshift[1](#2,#3)(#4,#5){left to-}%
+\or
+\electronAHshift[0](#2,#3)(#4,#5){left to-}%
+\fi\fi}
+\def\chmstpdfsw{%setting of the chmst-pdf 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=\chmstpdfsw%compatibility to postscript mode
+\chmstpdfsw%initial setting
+\endinput
+%%
+%% End of file `chmst-pdf.sty'.
diff --git a/Master/texmf-dist/tex/latex/xymtex/xymtxpdf/xymtx-pdf.sty b/Master/texmf-dist/tex/latex/xymtex/xymtxpdf/xymtx-pdf.sty
new file mode 100644
index 00000000000..1a69a7b538e
--- /dev/null
+++ b/Master/texmf-dist/tex/latex/xymtex/xymtxpdf/xymtx-pdf.sty
@@ -0,0 +1,687 @@
+%%
+%% This is file `xymtx-pdf.sty',
+%% generated with the docstrip utility.
+%%
+%% The original source files were:
+%%
+%% xymtx-pdf.dtx (with options: `xymtxpdf')
+%%
+%% This is a generated file.
+%%
+%% Copyright (C) 2002,2004,2005,2009,2010,2013 by Shinsaku Fujita
+%% all rights reserved.
+%%
+%% This file is part of the XyMTeX system.
+%% =======================================
+%% 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.
+%%
+%% Old versions (as xymtx-ps.dtx etc.):
+%% 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.00b Released on November 23, 2010
+%% Version 5.01b Released on March 10, 2013
+%% Version 5.01bb Released on May 27, 2013
+%%
+%% Present version (as xymtx-pdf.dtx etc.):
+%% Version 5.01 Released on June 21, 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-pdf.dtx and xymtx-pdf.ins
+%% and the derived file xymtx-pdf.sty.
+%%
+%% =======================================
+%%
+%% File: xymtx-pdf.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-pdf}
+\def\versi@ndate{June 21, 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{tikz}
+\RequirePackage{pgfcore}%%%added 2010/11/23 by S. Fujita
+\RequirePackage{xcolor}
+\usetikzlibrary{arrows,decorations.pathmorphing,backgrounds,fit,calc}
+\unitlength=0.1pt
+\def\white{\color{white}}
+\newif\if@thicklinesw \@thicklineswfalse
+\def\Thick@Lines{\@thicklineswtrue}%redefinition
+\def\Thin@Lines{\@thicklineswfalse}%redefinition
+\def\thickLineWidth{1.6pt}
+\def\thinLineWidth{0.4pt}
+\newcount\XyMTeXnuma
+\newcount\XyMTeXnumb
+\newcount\XyMTeXnumc
+\newcount\XyMTeXnumd
+\newcount\XyMTeXnume
+\newcount\XyMTeXnumf
+\newcount\XyMTeXnumg
+\newcount\XyMTeXnumh
+\newcount\XyMTeXnumi
+\newcount\XyMTeXcnta
+\newcount\XyMTeXcntb
+\newdimen\XyMTeXdima
+\newdimen\XyMTeXdimb
+\newdimen\XyMTeXdimc
+\newdimen\XyMTeXdimd
+\newdimen\XyMTeXdime
+\newbox\BondBox
+\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}{}
+\def\NumRound#1.#2#3\@nil{%shishagonyu
+\begingroup
+\XyMTeXcnta=0 \XyMTeXcntb=0
+\XyMTeXcnta=#1 %%\typeout{A:\the\XyMTeXcnta;}
+\XyMTeXcntb=#2 %%\typeout{B:\the\XyMTeXcntb;}
+\ifnum\XyMTeXcntb<5 \else
+\advance\XyMTeXcnta by1 %%\typeout{C:\the\XyMTeXcnta;}
+\fi\xdef\@UHalfScale{\the\XyMTeXcnta}\endgroup}
+{\catcode`\p=12 \catcode`\t=12
+\gdef\UHalfScaleGain#1pt{\gdef\@@UHalfScale{#1}}}
+\def\setUnitHalfScale#1{%
+\@tempdima=#1 \dimen0=0.1pt
+\@tempcnta=\@tempdima
+\@tempcntb=\dimen0
+\multiply\@tempcntb by10
+\divide\@tempcntb by65536%
+\divide\@tempdima by \@tempcntb
+\multiply\@tempdima by5 %%\typeout{D:\the\@tempdima}
+\expandafter\UHalfScaleGain\the\@tempdima%
+\expandafter\NumRound\@@UHalfScale\@nil
+}
+\def\PutSimpleBondBox(#1,#2)(#3,#4)#5{%for simple bonds
+\setbox\BondBox=\hbox{#5}%
+\XyMTeXdima=#1\unitlength
+\XyMTeXdimb=#3\unitlength
+\XyMTeXdimc=\thickLineWidth
+\divide\XyMTeXdimc by2%adjustment by the half of a line width
+\ifdim \XyMTeXdima>\XyMTeXdimb\relax
+\XyMTeXdimd=\XyMTeXdima
+\XyMTeXdime=\XyMTeXdimb
+\advance\XyMTeXdime by -\XyMTeXdimd
+\advance\XyMTeXdime by -\XyMTeXdimc
+\put(#1,#2){\kern\XyMTeXdime\box\BondBox}%
+\else
+\ifdim \XyMTeXdima=\XyMTeXdimb\relax
+\XyMTeXdimd=-\XyMTeXdimc
+%%%\put(#1,#2){\kern\XyMTeXdimd\raise\XyMTeXdimd\hbox{\box\BondBox}}%
+\put(#1,#2){\kern\XyMTeXdimd\box\BondBox}%
+\else
+\XyMTeXdimd=-\XyMTeXdimc
+\put(#1,#2){\kern\XyMTeXdimd\box\BondBox}%
+\fi\fi%
+}
+\def\tikznodimension#1{\tikz{%
+\pgfpathrectangle{\pgfpointorigin}{\pgfpointorigin}
+\pgfusepath{use as bounding box} % draws nothing
+#1}}
+\def\PUT@@@@bondLINE(#1,#2)(#3,#4)#5{%
+\begingroup
+\tikznodimension{%
+\draw[line width=#5]%
+(#1\unitlength,#2\unitlength) -- (#3\unitlength,#4\unitlength);}%
+\endgroup
+}
+\let\PutPDFLine=\PUT@@@@bondLINE%for user's use
+\let\PutBondLine=\PUT@@@@bondLINE%for user's use
+\def\PutBondBox(#1,#2)(#3,#4)#5{%for wedge and wavy bonds
+\setbox\BondBox=\hbox{#5}%
+\XyMTeXdima=#1\unitlength
+\XyMTeXdimb=#3\unitlength
+\XyMTeXdimc=4pt%
+\divide\XyMTeXdimc by2%adjustment by the half of a line width
+\if@vertbond
+\XyMTeXdimd=\wd\BondBox
+\divide\XyMTeXdimd by2\relax
+\put(#1,#2){\kern-1.2\XyMTeXdimd\box\BondBox}%%tentative factor 1.2
+\else
+\if@horizbond
+\ifdim \XyMTeXdima>\XyMTeXdimb\relax
+\XyMTeXdimd=\XyMTeXdima
+\XyMTeXdime=\XyMTeXdimb
+\advance\XyMTeXdime by -\XyMTeXdimd
+\put(#1,#2){\kern-5\unitlength\kern\XyMTeXdime\box\BondBox}%tentative factor 5 %%%
+\else
+\put(#1,#2){\kern-1.2\unitlength\box\BondBox}%tentative factor 1.2
+\fi
+\else
+%%
+\ifdim \XyMTeXdima>\XyMTeXdimb\relax
+\XyMTeXdime=-\wd\BondBox
+\put(#1,#2){\kern0.2\unitlength\kern\XyMTeXdime\box\BondBox}%tentative shift factor
+\else
+\ifdim \wd\BondBox<4.3pt\relax
+\XyMTeXdimd=\wd\BondBox
+\divide\XyMTeXdimd by2\relax
+\put(#1,#2){\kern-1.3\XyMTeXdimd\box\BondBox}%tentative shift factor 1.3
+\else
+\put(#1,#2){\kern-3\unitlength\box\BondBox}%tentative shift factor 3
+\fi\fi
+\fi\fi}
+\newif\if@vertbond \@vertbondfalse
+\newif\if@horizbond \@horizbondfalse
+\def\PUT@@@@wedgeLINE(#1,#2)(#3,#4)(#5,#6){%
+\begingroup
+\tikznodimension{%
+\filldraw%
+(#1\unitlength,#2\unitlength) -- (#3\unitlength,#4\unitlength)%
+-- (#5\unitlength,#6\unitlength) -- (#1\unitlength,#2\unitlength);}%
+\endgroup
+}
+\def\PUT@@@@wavyLINE(#1,#2)(#3,#4){%
+\begingroup
+\tikznodimension{%
+\draw[decorate,
+decoration={coil,aspect=0,segment length=2pt,amplitude=1pt}]%
+(#1\unitlength,#2\unitlength) coordinate (X) -- (#3\unitlength,#4\unitlength);}%
+\endgroup
+}
+\newcount\@tempcntXa \newcount\@tempcntYa \newcount\@tempcntz
+\newcount\@tempcntXb \newcount\@tempcntYb \newcount\@tempcntzz
+\newcount\@tempcntXc \newcount\@tempcntYc \newcount\@tempcntzzz
+\long\gdef\Put@@@@Line(#1,#2)(#3,#4)#5{%
+\begingroup
+%%x-coordinate
+\@tempcntXa=0\relax
+\ifnum#3>0\relax \@tempcntXa=#5\relax
+\else\ifnum#3<0\relax\@tempcntXa=-#5\relax\fi\fi
+\advance\@tempcntXa by#1\relax
+%%y-coordinate
+\@tempcntYa=#5\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
+\if@thicklinesw
+\if@wedgesw
+\ifmolfront%bold dash bond for skeletal bond for pyranose etc.
+\PUT@@@@bondLINE(#1,#2)(\the\@tempcntXa,\the\@tempcntYa){\thickLineWidth}%
+\else
+\if@skbondlist%bold dash bond skeletal bond for general cases
+\PUT@@@@bondLINE(#1,#2)(\the\@tempcntXa,\the\@tempcntYa){\thickLineWidth}%
+\else%wedged bond
+\ifnum#1=#3
+\@vertbondtrue\@horizbondfalse
+\else
+\ifnum#2=#4
+\@vertbondfalse\@horizbondtrue
+\else
+\@vertbondfalse\@horizbondfalse
+\fi\fi
+\stereo@wedgedimension(#3,#4){10}%
+\PUT@@@@wedgeLINE(#1,#2)(\the\@tempcntXb,\the\@tempcntYb)(\the\@tempcntXc,\the\@tempcntYc)%
+\fi\fi
+\else
+\PUT@@@@bondLINE(#1,#2)(\the\@tempcntXa,\the\@tempcntYa){\thickLineWidth}%
+\fi
+\else
+\ifwavebond
+\ifnum#1=#3
+\@vertbondtrue\@horizbondfalse
+\else
+\ifnum#2=#4
+\@vertbondfalse\@horizbondtrue
+\else
+\@vertbondfalse\@horizbondfalse
+\fi\fi
+\PUT@@@@wavyLINE(#1,#2)(\the\@tempcntXa,\the\@tempcntYa)%
+\else
+\PUT@@@@bondLINE(#1,#2)(\the\@tempcntXa,\the\@tempcntYa){\thinLineWidth}%
+\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
+\let\Put@@@@Direct=\put
+\def\Put@@@@oCircle(#1,#2)#3{\begingroup%
+ \@tempcntz=#3 \divide\@tempcntz by2\relax
+\setbox0=\hbox{%
+{\tikz[baseline=(X.base)]{%
+\draw[line width=0.4pt]%
+(#1\unitlength,#2\unitlength) coordinate (X) circle (\@tempcntz\unitlength);}}}%
+\put(#1,#2){\kern-0.5\wd0\hbox{\box0}}%
+\endgroup}
+\def\Put@@@@sCircle(#1,#2)#3{\begingroup%
+ \@tempcntz=#3 \divide\@tempcntz by2\relax
+\setbox0=\hbox{%
+{\tikz[baseline=(X.base)]{%
+\draw[line width=2pt]%
+(#1\unitlength,#2\unitlength) coordinate (X) circle (\@tempcntz\unitlength);}}}%
+\put(#1,#2){\kern-0.5\wd0\hbox{\box0}}%
+\endgroup}
+\def\d@@t@@rline(#1,#2)(#3,#4)#5/(#6,#7)(#8,#9){%
+\if@hasheddashsw
+ \@ifundefined{tikz}{%
+ \XyMTeXWarning{A dottedline is replaced by a solid line.}%
+ \Put@Line(#1,#2)(#3,#4){#5}%
+ }{{\thicklines%
+ \h@shedd@shbond(#1,#2)(#3,#4){#5}/(#6,#7)(#8,#9)}}%
+\else
+\if@skbondlist%hashed dash bond skeletal bond for general cases
+ \@ifundefined{tikz}{%
+ \XyMTeXWarning{A dottedline is replaced by a solid line.}%
+ \Put@Line(#1,#2)(#3,#4){#5}%
+ }{{\thicklines%
+ \h@shedd@shbond(#1,#2)(#3,#4){#5}/(#6,#7)(#8,#9)}}%
+\else
+ \h@shedw@dgebond(#1,#2)(#3,#4){#5}/(#6,#7)(#8,#9)%
+\fi\fi
+}%end of \d@@t@@rline
+\def\h@shedd@shbond(#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
+\tikznodimension{%
+\draw[dashed,line width=\thickLineWidth,dash pattern=on 1pt off 1.2pt]%
+(\@tempcntXb\unitlength,\@tempcntYb\unitlength) coordinate (X) --%
+(\@tempcntXc\unitlength,\@tempcntYc\unitlength);}%
+\else
+\tikznodimension{%
+\draw[dashed,line width=\thickLineWidth,dash pattern=on 0.8pt off 1pt]%
+(\@tempcntXb\unitlength,\@tempcntYb\unitlength) coordinate (X) --%
+(\@tempcntXc\unitlength,\@tempcntYc\unitlength);}%
+\fi
+\endgroup}
+\def\h@shedw@dgebond(#1,#2)(#3,#4)#5/(#6,#7)(#8,#9){%
+\begingroup
+\@tempcntXa=#8\relax
+\@tempcntYa=#9\relax
+\stereo@wedgedimension(#3,#4){10}%
+\XyMTeXnumf=\@tempcntXb
+\XyMTeXnumg=\@tempcntYb
+\XyMTeXnumh=\@tempcntXc
+\XyMTeXnumi=\@tempcntYc
+\@tempcntzz=5\relax
+\@tempcntzzz=-12\relax
+\bond@shorten(#1,#2)(#3,#4){#5}/(#6,#7)(#8,#9)%
+\tikznodimension{%
+\filldraw%
+(#1\unitlength,#2\unitlength) --%
+(\XyMTeXnumf\unitlength,\XyMTeXnumg\unitlength) --%
+(\XyMTeXnumh\unitlength,\XyMTeXnumi\unitlength) -- (#1\unitlength,#2\unitlength);%
+\draw[dashed,line width=4pt,dash pattern=on 1pt off 1.2pt,color=white]%
+(\@tempcntXb\unitlength,\@tempcntYb\unitlength) --%
+(\@tempcntXc\unitlength,\@tempcntYc\unitlength);}%
+\endgroup
+}%%end of \h@shedw@dgebond
+\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\WedgeAsSubstPDF(#1,#2)(#3,#4)#5{%
+\begingroup
+\@thicklineswtrue \@wedgeswtrue
+\molfrontfalse \@skbondlistfalse
+\Put@@@@Line(#1,#2)(#3,#4){#5}%
+\endgroup}
+\let\WedgeAsSubst=\WedgeAsSubstPDF%for compatibility to PS 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\WedgeAsSubstXPDF(#1,#2)(#3,#4){%
+\@ifnextchar[{\Wedge@AsSubstXPDF(#1,#2)(#3,#4)}%
+{\Wedge@AsSubstXPDF(#1,#2)(#3,#4)[10]}}
+\def\Wedge@AsSubstXPDF(#1,#2)(#3,#4)[#5]{%
+\begingroup
+\stereo@wedgedimensionX(#1,#2)(#3,#4)[#5]%
+\PUT@@@@wedgeLINE(#1,#2)(\the\@tempcntXb,\the\@tempcntYb)(\the\@tempcntXc,\the\@tempcntYc)%
+\endgroup}
+\let\WedgeAsSubstX=\WedgeAsSubstXPDF%for compatibility to PDF mode
+\def\NumR@und#1.#2#3\@nil{%shishagonyu
+\begingroup
+\XyMTeXcnta=0 \XyMTeXcntb=0\relax
+\XyMTeXcnta=#1 %%\typeout{A:\the\XyMTeXcnta;}
+\XyMTeXcntb=#2 %%\typeout{B:\the\XyMTeXcntb;}
+\ifnum\XyMTeXcnta>0\relax
+\ifnum\XyMTeXcntb<5 \else
+\advance\XyMTeXcnta by1 %%\typeout{C:\the\XyMTeXcnta;}
+\fi
+\else
+\ifnum\XyMTeXcntb<5 \else
+\advance\XyMTeXcnta by-1 %%\typeout{C:\the\XyMTeXcnta;}
+\fi\fi\xdef\@yzobun{\the\XyMTeXcnta}\endgroup}
+{\catcode`\p=12 \catcode`\t=12
+\gdef\zobunGain#1pt{\gdef\@zobun{#1}}}
+
+\def\zahyozobun(#1,#2)(#3,#4)#5{%
+\@tempdima=#5\unitlength
+\@tempdimb=#3\unitlength
+\@tempcnta=\@tempdima
+\ifdim\@tempdimb<0pt
+\@tempcntb=-\@tempdimb
+\else
+\@tempcntb=\@tempdimb
+\fi
+%%
+\ifdim\@tempdimb=0pt%bugfix 2013/02/06
+\else
+%%
+\multiply\@tempcntb by10\relax
+\divide\@tempcntb by65536%
+\divide\@tempdima by \@tempcntb
+\multiply\@tempdima by#4\relax
+\multiply\@tempdima by10 %%\typeout{D:\the\@tempdima}
+\expandafter\zobunGain\the\@tempdima%
+\expandafter\NumR@und\@zobun\@nil
+\fi%%%
+\ifnum#3<0
+\xdef\@xzobun{-#5}%
+\else
+\ifnum#3=0%bugfix 2013/02/06
+\xdef\@xzobun{#3}%
+\ifnum#4<0
+\xdef\@yzobun{-#5}%
+\else
+\xdef\@yzobun{#5}%
+\fi%bugfix 2013/02/06
+\else
+\xdef\@xzobun{#5}%
+\fi
+\fi
+}
+\def\bond@sh@rten(#1,#2)(#3,#4)#5{%%%%%%%/(#6,#7)(#8,#9){%
+\zahyozobun(#1,#2)(#3,#4){#5}%
+\@tempcntXb=\@xzobun\relax%%\typeout{SSS:\@xzobun}
+\@tempcntYb=\@yzobun\relax%%\typeout{TTT:\@yzobun}
+\divide\@tempcntXb by\@tempcntzz\relax
+\divide\@tempcntYb by\@tempcntzz\relax
+\advance\@tempcntXb by#1\relax
+\advance\@tempcntYb by#2\relax
+\@tempcntXc=\@xzobun\relax%%\typeout{KKKK:\@xzobun}
+\@tempcntYc=\@yzobun\relax%%\typeout{LLLL:\@yzobun}
+\divide\@tempcntXc by\@tempcntzzz\relax
+\divide\@tempcntYc by\@tempcntzzz\relax
+\advance\@tempcntXc by#1\relax
+\advance\@tempcntXc by\@xzobun\relax%%\typeout{AAAA:\the\@tempcntXc}
+\advance\@tempcntYc by#2\relax
+\advance\@tempcntYc by\@yzobun\relax%%\typeout{BBBB:\the\@tempcntYc}
+}%%end of \bondshorten
+
+\def\HashWedgeAsSubstPDF(#1,#2)(#3,#4)#5{%
+\begingroup
+\zahyozobun(#1,#2)(#3,#4){#5}%
+\@tempcntXa=\@xzobun\relax
+\advance\@tempcntXa by#1\relax
+\@tempcntYa=\@yzobun\relax
+\advance\@tempcntYa by#2\relax
+\stereo@wedgedimension(#3,#4){10}%
+\XyMTeXnumf=\@tempcntXb%%\typeout{CCCCF:\the\XyMTeXnumf}
+\XyMTeXnumg=\@tempcntYb%%\typeout{CCCCG:\the\XyMTeXnumg}
+\XyMTeXnumh=\@tempcntXc%%\typeout{CCCCH:\the\XyMTeXnumh}
+\XyMTeXnumi=\@tempcntYc%%\typeout{CCCCI:\the\XyMTeXnumi}
+\@tempcntzz=5\relax
+\@tempcntzzz=-12\relax
+\bond@sh@rten(#1,#2)(#3,#4){#5}%
+\tikznodimension{%
+\filldraw%
+(#1\unitlength,#2\unitlength) coordinate (X) --%
+(\XyMTeXnumf\unitlength,\XyMTeXnumg\unitlength) --%
+(\XyMTeXnumh\unitlength,\XyMTeXnumi\unitlength) -- (#1\unitlength,#2\unitlength);%
+\draw[dashed,line width=4pt,dash pattern=on 1pt off 1.2pt,color=white]%
+(\@tempcntXb\unitlength,\@tempcntYb\unitlength) --%
+(\@tempcntXc\unitlength,\@tempcntYc\unitlength);}%
+\endgroup
+}%%end of \HashWedgeAsSubstPDF
+\let\HashWedgeAsSubst=\HashWedgeAsSubstPDF%For compatibility to PS mode
+\def\HashWedgeAsSubstXPDF(#1,#2)(#3,#4){%
+\@ifnextchar[{\HashWedge@AsSubstXPDF(#1,#2)(#3,#4)}%
+{\HashWedge@AsSubstXPDF(#1,#2)(#3,#4)[10]}}
+\def\HashWedge@AsSubstXPDF(#1,#2)(#3,#4)[#5]{%
+\begingroup
+\WedgeAsSubstXPDF(#1,#2)(#3,#4)[#5]%
+\@tempdima=#5\unitlength \multiply\@tempdima by3\relax
+\advance\@tempdima by1pt%adjustment
+\tikznodimension{%
+\draw[dashed,line width=\@tempdima,
+dash pattern=on 1pt off 1.2pt,color=white]%
+(#1\unitlength,#2\unitlength) --%
+(#3\unitlength,#4\unitlength);}%
+\endgroup
+}%%end of \HashWedgeAsSubstXPDF
+\let\HashWedgeAsSubstX=\HashWedgeAsSubstXPDF%For compatibility to PDF mode
+\def\WavyAsSubstPDF(#1,#2)(#3,#4)#5{%
+\begingroup
+\wavebondtrue
+\Put@@@@Line(#1,#2)(#3,#4){#5}%
+\endgroup}
+\let\WavyAsSubst=\WavyAsSubstPDF%for compatibility to PS mode
+\let\WavyAsSubstXPDF=\PUT@@@@wavyLINE
+\let\WavyAsSubstX=\WavyAsSubstXPDF%for compatibility to PS mode
+\def\downnobond#1#2{%
+\hbox{\smash{\hbox to0.72em{\hss#1\hss}\kern-0.72em\lower2.2ex\hbox{#2}}}}
+\def\PUT@@@@dashedLINE(#1,#2)(#3,#4)#5{%
+\begingroup
+\ifdim\unitlength>0.08pt
+\tikznodimension{%
+\draw[dashed,line width=#5,dash pattern=on 1pt off 1.2pt]%
+(#1\unitlength,#2\unitlength) -- (#3\unitlength,#4\unitlength);}%
+\else
+\tikznodimension{%
+\draw[dashed,line width=#5,dash pattern=on 0.8pt off 1pt]%
+(#1\unitlength,#2\unitlength) -- (#3\unitlength,#4\unitlength);}%
+\fi
+\endgroup
+}
+\let\PutPDFdashed=\PUT@@@@dashedLINE%for user's use
+\let\PutDashedBond=\PUT@@@@dashedLINE%for compatibility to PS mode
+\newtoks\Temp@ArCords \Temp@ArCords={}
+\def\set@xy@PDFcoords(#1,#2){%
+\ifnum\@tempcnta=1\relax
+\Temp@ArCords={(#1\unitlength,#2\unitlength) }\else
+\expandafter\Temp@ArCords\expandafter{\the\Temp@ArCords -- %
+(#1\unitlength,#2\unitlength)}\fi}
+\def\RoundedCornersWidth{4pt}
+\def\setRoundArrPDF#1{%
+\ifnum\@tempcnta>5\relax
+\def\RoundedCornersWidth{4pt}%
+\else
+\def\RoundedCornersWidth{8pt}\fi
+\tikznodimension{%
+\draw[\RoundArrowHead,line width=0.4pt,%
+rounded corners=\RoundedCornersWidth]#1;}}%
+\def\putRoundArrowPDF{%
+\@ifnextchar[{\putRound@rrowPDF}{\putRound@rrowPDF[->]}}
+\def\putRound@rrowPDF[#1]#2{%
+\edef\RoundArrowHead{#1}%
+\Temp@ArCords={}\@tempcnta=\@ne\relax
+\@forendparenthesis\member:=#2\do{%
+\ifx\member\empty\else
+\expandafter\set@xy@PDFcoords\member)\fi
+\advance\@tempcnta\@ne}%
+\expandafter\setRoundArrPDF\expandafter{\the\Temp@ArCords}%
+}
+\let\putRoundArrow=\putRoundArrowPDF
+%%added 2010/08/17
+{\catcode`\p=12 \catcode`\t=12
+\gdef\UScaleGain#1pt{\gdef\@UScale{#1}}}
+\def\setUnitScale#1{%
+\@tempdima=#1 \dimen0=1cm
+\@tempcnta=\@tempdima
+\@tempcntb=\dimen0
+\divide\@tempcntb by65536%
+\divide\@tempdima by \@tempcntb
+\expandafter\UScaleGain\the\@tempdima}
+\setUnitScale{0.1pt}%standard setting
+%%%
+\newif\ifsizereduction\sizereductionfalse
+\def\@@@changeunitlength#1{\unitlength=#1\relax
+\setUnitScale{#1}%%% scale=\@UScale
+\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\red{\color{red}}
+\def\green{\color{green}}
+\def\blue{\color{blue}}
+\def\cyan{\color{cyan}}
+\def\magenta{\color{magenta}}
+\def\yellow{\color{yellow}}
+\def\black{\color{black}}
+\def\white{\color{white}}
+\def\xymcolor#1#2{\mbox{\color{#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}%%
+\@tempdime=\unitlength \multiply\@tempdime by#2\relax
+\@tempdimb=\unitlength \multiply\@tempdimb by#3\relax
+\@tempdimc=\unitlength \multiply\@tempdimc by\@tempcntXa\relax
+\@tempdimd=\unitlength \multiply\@tempdimd by\@tempcntYa\relax
+\tikznodimension{%
+\draw[line width=#1,color=#7]%
+(\@tempdime,\@tempdimb) --(\@tempdimc,\@tempdimd);}%
+\endgroup}%end of \Color@@@@Line
+\let\Color@Line=\Color@@@@Line%for PDF mode
+\def\setxymtxpdf{%
+\@ifnextchar[{\@setxymtxpdf}{\@setxymtxpdf[0.1pt]}}
+\def\@setxymtxpdf[#1]{%
+\PDFmodetrue
+\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 PDF mode
+\let\Put@Direct=\Put@@@@Direct
+\let\Put@oCircle=\Put@@@@oCircle
+\let\Put@sCircle=\Put@@@@sCircle
+\let\dotorline=\d@@t@@rline
+\let\WedgeAsSubst=\WedgeAsSubstPDF%for compatibility to PS mode
+\let\HashWedgeAsSubst=\HashWedgeAsSubstPDF%For compatibility to PS mode
+\let\WedgeAsSubstX=\WedgeAsSubstXPDF%for compatibility to PDF mode
+\let\HashWedgeAsSubstX=\HashWedgeAsSubstXPDF%For compatibility to PDF mode
+\let\PutBondLine=\PUT@@@@bondLINE%for user's use
+\let\PutDashedBond=\PUT@@@@dashedLINE%for compatibility to PS mode
+\let\putRoundArrow=\putRoundArrowPDF%for compatibility to PS mode
+\let\changeunitlength=\@@@changeunitlength
+\changeunitlength{#1}%
+\wedgehasheddash%
+}
+\setxymtxpdf
+\endinput
+%%
+%% End of file `xymtx-pdf.sty'.