From 0c16ddd29d43c785b867739f9b8fad8885ee548b Mon Sep 17 00:00:00 2001 From: Karl Berry Date: Tue, 19 Nov 2013 00:56:32 +0000 Subject: xymtex (now lppl, minus manuals without sources) git-svn-id: svn://tug.org/texlive/trunk@32182 c570f23f-e606-0410-a88d-b1316a301751 --- .../tex/latex/xymtex/xymtxps/chmst-ps.sty | 743 +++++++++++++++++++++ .../tex/latex/xymtex/xymtxps/xymtx-ps.sty | 452 +++++++++++++ 2 files changed, 1195 insertions(+) create mode 100644 Master/texmf-dist/tex/latex/xymtex/xymtxps/chmst-ps.sty create mode 100644 Master/texmf-dist/tex/latex/xymtex/xymtxps/xymtx-ps.sty (limited to 'Master/texmf-dist/tex/latex/xymtex/xymtxps') diff --git a/Master/texmf-dist/tex/latex/xymtex/xymtxps/chmst-ps.sty b/Master/texmf-dist/tex/latex/xymtex/xymtxps/chmst-ps.sty new file mode 100644 index 00000000000..f21a0b3c4f6 --- /dev/null +++ b/Master/texmf-dist/tex/latex/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/Master/texmf-dist/tex/latex/xymtex/xymtxps/xymtx-ps.sty b/Master/texmf-dist/tex/latex/xymtex/xymtxps/xymtx-ps.sty new file mode 100644 index 00000000000..a6a75c39421 --- /dev/null +++ b/Master/texmf-dist/tex/latex/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'. -- cgit v1.2.3