summaryrefslogtreecommitdiff
path: root/macros/latex/contrib/xymtex/xymtxps/xymtx-ps.sty
diff options
context:
space:
mode:
Diffstat (limited to 'macros/latex/contrib/xymtex/xymtxps/xymtx-ps.sty')
-rw-r--r--macros/latex/contrib/xymtex/xymtxps/xymtx-ps.sty452
1 files changed, 452 insertions, 0 deletions
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'.