summaryrefslogtreecommitdiff
path: root/Master/texmf-dist/tex/generic/pstricks
diff options
context:
space:
mode:
authorKarl Berry <karl@freefriends.org>2008-07-02 18:05:35 +0000
committerKarl Berry <karl@freefriends.org>2008-07-02 18:05:35 +0000
commit19f58e5098cf443de58d21c46f277ff489457c4b (patch)
tree0b004bdf085fe1c098de0f03a219ec92bd6d1654 /Master/texmf-dist/tex/generic/pstricks
parent0877203879f5740a1fe1f5ca82680de5e1200be4 (diff)
pstricks update (1jul08)
git-svn-id: svn://tug.org/texlive/trunk@9169 c570f23f-e606-0410-a88d-b1316a301751
Diffstat (limited to 'Master/texmf-dist/tex/generic/pstricks')
-rw-r--r--Master/texmf-dist/tex/generic/pstricks/latex/pst-all.sty31
-rw-r--r--Master/texmf-dist/tex/generic/pstricks/latex/pst-key.sty6
-rw-r--r--Master/texmf-dist/tex/generic/pstricks/latex/pst-node.sty10
-rw-r--r--Master/texmf-dist/tex/generic/pstricks/latex/pst-plot.sty6
-rw-r--r--Master/texmf-dist/tex/generic/pstricks/latex/pst-tree.sty6
-rw-r--r--Master/texmf-dist/tex/generic/pstricks/latex/pstcol.sty24
-rw-r--r--Master/texmf-dist/tex/generic/pstricks/latex/pstricks.sty215
-rw-r--r--Master/texmf-dist/tex/generic/pstricks/pst-node.tex470
-rw-r--r--Master/texmf-dist/tex/generic/pstricks/pst-plot.tex109
-rw-r--r--Master/texmf-dist/tex/generic/pstricks/pstricks.tex85
10 files changed, 646 insertions, 316 deletions
diff --git a/Master/texmf-dist/tex/generic/pstricks/latex/pst-all.sty b/Master/texmf-dist/tex/generic/pstricks/latex/pst-all.sty
new file mode 100644
index 00000000000..8ac0ada25bf
--- /dev/null
+++ b/Master/texmf-dist/tex/generic/pstricks/latex/pst-all.sty
@@ -0,0 +1,31 @@
+%%
+%% This is file `pst-all.sty'
+%%
+%% IMPORTANT NOTICE:
+%%
+%% Copyright (C) 1997 Timothy Van Zandt
+%% Copyright (C) 2004-2008 Herbert Voss <voss@perce.de>
+%% Rolf Niepraschk <Rolf.Niepraschk@ptb.de>
+%%
+%% This package may be distributed under the terms of the LaTeX Project
+%% Public License, as described in lppl.txt in the base LaTeX distribution.
+%% Either version 1.0 or, at your option, any later version.
+%%
+\ProvidesPackage{pst-all}[2008/01/01 the main pstricks tools]
+\RequirePackage{pstricks} % important
+% this loads the xcolor package and pstricks in the right order
+% and does some modification to the color handling. Look at the
+% doc for the options.
+%
+\RequirePackage{pst-node}
+\RequirePackage{pst-tree}
+\RequirePackage{pst-plot}
+\RequirePackage{pst-grad}
+\RequirePackage{pst-coil}
+\RequirePackage{pst-text}
+\RequirePackage{pst-3d}
+\RequirePackage{pst-eps}
+\RequirePackage[tiling]{pst-fill}
+\RequirePackage{pstricks-add}
+\RequirePackage{multido}
+\endinput
diff --git a/Master/texmf-dist/tex/generic/pstricks/latex/pst-key.sty b/Master/texmf-dist/tex/generic/pstricks/latex/pst-key.sty
new file mode 100644
index 00000000000..74db6c70a9a
--- /dev/null
+++ b/Master/texmf-dist/tex/generic/pstricks/latex/pst-key.sty
@@ -0,0 +1,6 @@
+\RequirePackage{pstricks}
+\ProvidesPackage{pst-key}[2004/07/15 package wrapper for pst-key.tex]
+\input{pst-key.tex}
+\ProvidesFile{pst-key.tex}
+ [1998/07/23 v1.11 key=value parser (DPC)]
+\endinput
diff --git a/Master/texmf-dist/tex/generic/pstricks/latex/pst-node.sty b/Master/texmf-dist/tex/generic/pstricks/latex/pst-node.sty
new file mode 100644
index 00000000000..e930966dc41
--- /dev/null
+++ b/Master/texmf-dist/tex/generic/pstricks/latex/pst-node.sty
@@ -0,0 +1,10 @@
+\RequirePackage{pstricks}
+\ProvidesPackage{pst-node}[2006/01/01 package wrapper for pst-node.tex]
+\input{pst-node.tex}
+\ProvidesFile{pst-node.tex}
+ [\filedate\space \fileversion\space `pst-node' (tvz)]
+\IfFileExists{pst-node.pro}{%
+ \ProvidesFile{pst-node.pro}
+ [2008/01/01 v. 1.00, PostScript prologue file (hv)]
+ \@addtofilelist{pst-node.pro}}{}%
+\endinput
diff --git a/Master/texmf-dist/tex/generic/pstricks/latex/pst-plot.sty b/Master/texmf-dist/tex/generic/pstricks/latex/pst-plot.sty
new file mode 100644
index 00000000000..598b46de429
--- /dev/null
+++ b/Master/texmf-dist/tex/generic/pstricks/latex/pst-plot.sty
@@ -0,0 +1,6 @@
+\RequirePackage{pstricks}
+\ProvidesPackage{pst-plot}[2004/07/15 package wrapper for pst-plot.tex]
+\input{pst-plot.tex}
+\ProvidesFile{pst-plot.tex}
+ [\filedate\space \fileversion\space `pst-plot' (tvz)]
+\endinput
diff --git a/Master/texmf-dist/tex/generic/pstricks/latex/pst-tree.sty b/Master/texmf-dist/tex/generic/pstricks/latex/pst-tree.sty
new file mode 100644
index 00000000000..73682620386
--- /dev/null
+++ b/Master/texmf-dist/tex/generic/pstricks/latex/pst-tree.sty
@@ -0,0 +1,6 @@
+\RequirePackage{pstricks}
+\ProvidesPackage{pst-tree}[2004/07/15 package wrapper for pst-tree.tex]
+\input{pst-tree.tex}
+\ProvidesFile{pst-tree.tex}
+ [\filedate\space \fileversion\space `pst-tree' (tvz)]
+\endinput
diff --git a/Master/texmf-dist/tex/generic/pstricks/latex/pstcol.sty b/Master/texmf-dist/tex/generic/pstricks/latex/pstcol.sty
new file mode 100644
index 00000000000..29c4affd9f9
--- /dev/null
+++ b/Master/texmf-dist/tex/generic/pstricks/latex/pstcol.sty
@@ -0,0 +1,24 @@
+%%
+%% pstcol.sty Copyright (C) 1994--1996 1999 David Carlisle
+%% 2004--2007 Herbert Voss <voss@perce.de>
+%% Rolf Niepraschk <Rolf.Niepraschk@ptb.de>
+%%
+\NeedsTeXFormat{LaTeX2e}
+\ProvidesPackage{pstcol}
+ [2007/04/11 v1.3 LaTeX wrapper for `PSTricks' (RN,HV)]
+
+\DeclareOption*{\PassOptionsToPackage\CurrentOption{color}}
+\ProcessOptions\relax
+
+\PackageWarningNoLine{pstcol}{%
+ ************************************ \MessageBreak
+ The package `pstcol' is obsolet! \MessageBreak
+ You should use `pstricks' directly: \MessageBreak
+ \@spaces\string\usepackage{pstricks}\MessageBreak
+ ************************************}
+
+\PassOptionsToPackage{noxcolor}{pstricks}
+\RequirePackage{pstricks}
+
+\endinput
+%%
diff --git a/Master/texmf-dist/tex/generic/pstricks/latex/pstricks.sty b/Master/texmf-dist/tex/generic/pstricks/latex/pstricks.sty
new file mode 100644
index 00000000000..2b7a1a875f9
--- /dev/null
+++ b/Master/texmf-dist/tex/generic/pstricks/latex/pstricks.sty
@@ -0,0 +1,215 @@
+%%
+%% This is file `pstricks.sty'.
+%%
+%% IMPORTANT NOTICE:
+%%
+%% pstricks.sty Copyright (C) 1997 Timothy Van Zandt
+%% pstcol.sty Copyright (C) 1994-1996 1999 David Carlisle
+%% pstricks.sty Copyright (C) 2004-2008 Herbert Voss <voss@perce.de>
+%% Rolf Niepraschk <Rolf.Niepraschk@ptb.de>
+%%
+%% This package may be distributed under the terms of the LaTeX Project
+%% Public License, as described in lppl.txt in the base LaTeX distribution.
+%% Either version 1.0 or, at your option, any later version.
+%%
+
+\NeedsTeXFormat{LaTeX2e}
+
+\ProvidesPackage{pstricks}
+ [2008/01/24 v0.37 LaTeX wrapper for `PSTricks' (RN,HV)]
+%
+\def\documentclass{
+ \edef\@tempa{\jobname.tex }%
+ \edef\@tempb{\@filef@und}%
+ \@onelevel@sanitize\@tempa
+ \@onelevel@sanitize\@tempb
+ \ifx\@tempa\@tempb
+ \@latex@error
+ {`\jobname.tex' is a forbidden name for your document,\MessageBreak
+ it is already a name of a package}%
+ {Choose another name for your document}\@gobble
+ \else
+ \@twoclasseserror
+ \fi
+}
+%
+%------------------------------------ PLAIN --------------------------------
+\DeclareOption{plain}{%
+ \input{pstricks.tex}
+ \ProvidesFile{pstricks.tex}
+ [\filedate\space v\fileversion\space `PSTricks' (tvz)]
+ \endinput
+}
+\DeclareOption*{\OptionNotUsed}
+
+\ProcessOptions\relax
+
+\@ifundefined{PSTricksLoaded}
+{%
+ \let\saved@scalebox\scalebox
+ \input{pstricks.tex}
+ \ProvidesFile{pstricks.tex}
+ [\filedate\space v\fileversion\space `PSTricks' (tvz)]
+ \IfFileExists{pstricks.pro}{%
+ \ProvidesFile{pstricks.pro}
+ [2008/01/01 v. 1.05, PostScript prologue file (hv)]
+ \@addtofilelist{pstricks.pro}}{}%
+ \IfFileExists{pst-dots.pro}{%
+ \ProvidesFile{pst-dots.pro}
+ [2006/12/19 v. 2.02, PostScript prologue file (hv)]
+ \@addtofilelist{pst-dots.pro}}{}%
+ \IfFileExists{pst-algparser.pro}{%
+ \ProvidesFile{pst-algparser.pro}
+ [2008/01/01 v. 0.01, PostScript prologue file (hv)]
+ \@addtofilelist{pst-algparser.pro}}{}%
+ {%
+ \let\psscalebox=\scalebox
+ \let\psscaleboxto=\scaleboxto
+ }{}
+ \let\scalebox\saved@scalebox
+}{}
+
+\IfFileExists{xcolor.sty}{%
+ \def\pst@ColorPackage{xcolor}
+ \PassOptionsToPackage{override}{xcolor}
+}{\def\pst@ColorPackage{color}}%
+
+%------------------------------------ DIA --------------------------------
+\newif\ifpst@DIA\pst@DIAfalse
+\DeclareOption{DIA}{\pst@DIAtrue}
+\DeclareOption{noxcolor}{\def\pst@ColorPackage{color}}
+\DeclareOption{vtex}{%
+ \pst@def{setTransparency}< >
+ \pst@def{setStrokeTransparency}< >
+ \pst@def{setBlendmode}< >%
+}
+%---------------------------------DISTILLER --------------------------------
+\DeclareOption{distiller}{%
+ \pst@def{setTransparency}<
+ [ /ca \psk@opacityalpha
+ /CA \psk@opacityalpha /SetTransparency pdfmark >
+ \pst@def{setStrokeTransparency}<
+ [ /ca \psk@strokeopacityalpha
+ /CA \psk@strokeopacityalpha /SetTransparency pdfmark >
+ \pst@def{setBlendmode}<
+ [ /BM\ifcase\psk@blendmode%
+ /Normal \or % 0
+ /Multiply \or % 1
+ /Screen \or % 2
+ /Overlay \or % 3
+ /Darken \or % 4
+ /Lighten \or % 5
+ /ColorDodge \or % 6
+ /ColorBurn \or % 7
+ /HardLight \or % 8
+ /SoftLight \or % 9
+ /Difference \or % 10
+ /Exclusion \or % 11
+ /Hue \or % 12
+ /Color \or % 13
+ /Saturation \or % 14
+ /Luminosity % 15
+ \else /Normal \fi
+ /ca \psk@shapealpha /CA \psk@opacityalpha /SetTransparency pdfmark >%
+}
+%---------------------------------COLOR --------------------------------
+\DeclareOption*{%
+ \PassOptionsToPackage\CurrentOption{\pst@ColorPackage}}
+\ProcessOptions\relax
+
+\RequirePackage{\pst@ColorPackage}
+
+\@ifpackageloaded{xcolor}{%
+ \@ifpackagelater{xcolor}{2004/05/02}%
+ {%
+ \let\pst@getcolor\XC@getcolor
+ \let\pst@usecolor\XC@usecolor
+ }
+ {%
+ \PackageError{pstricks}{%
+ *************************************************\MessageBreak
+ * Your Version of `xcolor.sty' is too old!\MessageBreak
+ * You need the version from 2004/05/02 or newer\MessageBreak
+ * or use: \string\usepackage[noxcolor]{pstricks}\MessageBreak
+ *************************************************}{}%
+ }%
+}{%
+ \def\pst@getcolor#1#2{%
+ \@ifundefined{\string\color@#1}%
+ {\@pstrickserr{Color `#1' not defined}\@eha}%
+ {\edef#2{#1}}}%
+ \def\pst@usecolor#1{\expandafter\expandafter\expandafter\c@lor@to@ps%
+ \csname\string\color@#1\endcsname\@@\space}%
+ \definecolor{darkgray}{gray}{.25}
+ \definecolor{gray}{gray}{.5}
+ \definecolor{lightgray}{gray}{.75}
+}%
+%
+\definecolor{gradbegin}{rgb}{0,1,1}
+\definecolor{gradend}{rgb}{0,.1,.95}
+%
+\@ifundefined{xglobal}%
+ {\def\xglobal#1#2#3#4% UK 2005-11-17
+ {#1{#2}{#3}{#4}%
+ \expandafter\global\expandafter\let\csname\string\color@#2%
+ \expandafter\endcsname\csname\string\color@#2\endcsname}}{}%
+%
+\def\newgray#1{%
+ \expandafter\gdef\csname #1\endcsname{\color{#1}}% HV 2004-03-31
+ \xglobal\definecolor{#1}{gray}}%
+%
+\def\newrgbcolor#1#2{%
+ \expandafter\gdef\csname #1\endcsname{\color{#1}}% HV 2004-03-31
+ \edef\@tempa{\noexpand\newrgbcolorx{#1}#2\noexpand\@@}\@tempa}%
+\def\newrgbcolorx#1#2 #3 #4\@@{%
+ \xglobal\definecolor{#1}{rgb}{#2,#3,#4}}
+%
+\def\newcmykcolor#1#2{%
+ \expandafter\gdef\csname #1\endcsname{\color{#1}}% HV 2004-03-31
+ \edef\@tempa{\noexpand\newcmykcolorx{#1}#2\noexpand\@@}\@tempa}
+\def\newcmykcolorx#1#2 #3 #4 #5\@@{%
+ \xglobal\definecolor{#1}{cmyk}{#2,#3,#4,#5}}
+%
+\def\newhsbcolor#1#2{%
+ \expandafter\gdef\csname #1\endcsname{\color{#1}}% HV 2004-03-31
+ \edef\@tempa{\noexpand\newhsbcolorx{#1}#2\noexpand\@@}\@tempa}
+\def\newhsbcolorx#1#2 #3 #4\@@{%
+ \xglobal\definecolor{#1}{hsb}{#2,#3,#4}}
+%
+\definecolor{black}{gray}{0}
+\definecolor{darkgray}{gray}{.25}
+\definecolor{gray}{gray}{.5}
+\definecolor{lightgray}{gray}{.75}
+\definecolor{white}{gray}{1}
+\definecolor{red}{rgb}{1,0,0}
+\definecolor{green}{rgb}{0,1,0}
+\definecolor{blue}{rgb}{0,0,1}
+%\definecolor{yellow}{rgb}{1,1,0}
+%\definecolor{cyan}{rgb}{0,1,1}
+%\definecolor{magenta}{rgb}{1,0,1}
+\definecolor{yellow}{cmyk}{0,0,1,0}
+\definecolor{cyan}{cmyk}{1,0,0,0}
+\definecolor{magenta}{cmyk}{0,1,0,0}
+%
+\renewcommand*\black{\color{black}}
+\renewcommand*\darkgray{\color{darkgray}}
+\renewcommand*\gray{\color{gray}}
+\renewcommand*\lightgray{\color{lightgray}}
+\renewcommand*\white{\color{white}}
+\renewcommand*\blue{\color{blue}}
+\renewcommand*\red{\color{red}}
+\renewcommand*\green{\color{green}}
+\renewcommand*\yellow{\color{yellow}}
+\renewcommand*\magenta{\color{magenta}}
+\renewcommand*\cyan{\color{cyan}}
+%
+\AtBeginDocument{%
+ \psset{fillcolor=white}% hv 0.33
+ \let\pst@endcolor=\relax%
+% \let\pst@color=\relax%
+% LaTeX used `\color@endgroup' instead. RN 2004-05-06
+}
+%
+\endinput
+%%
+%% End of file `pstricks.sty'.
diff --git a/Master/texmf-dist/tex/generic/pstricks/pst-node.tex b/Master/texmf-dist/tex/generic/pstricks/pst-node.tex
index 30fc49962e6..36d61daba0e 100644
--- a/Master/texmf-dist/tex/generic/pstricks/pst-node.tex
+++ b/Master/texmf-dist/tex/generic/pstricks/pst-node.tex
@@ -4,10 +4,11 @@
%% See the betadoc documentation for usage.
%% This uses the header file `pst-node.pro'.
%%
-\def\fileversion{97 patch 11}
-\def\filedate{2000/11/09}
+\def\fileversion{1.00}
+\def\filedate{2007/10/16}
%%
%% COPYRIGHT 1993, 1994, 1999 by Timothy Van Zandt, tvz@nwu.edu.
+%% COPYRIGHT by Herbert Voss, hvoss@tug.org.
%%
%% This program can be redistributed and/or modified under the terms
%% of the LaTeX Project Public License Distributed from CTAN
@@ -19,23 +20,26 @@
\ifx\PSTricksLoaded\endinput\else\input pstricks.tex \fi\relax
\edef\TheAtCode{\the\catcode`\@}
\catcode`\@=11
+%
\pstheader{pst-node.pro}
+%
\def\pst@nodedict{tx@NodeDict begin }
\def\pst@zapspace#1 #2{%
#1%
\ifx#2\@empty\else\expandafter\pst@zapspace\fi
#2}
-\def\pst@getnode#1#2{%
-\pst@expandafter\pst@@getnode{#1},,\@nil#2}
+%
+\def\pst@getnode#1#2{\pst@expandafter\pst@@getnode{#1},,\@nil#2}
\def\pst@@getnode#1,#2,#3\@nil#4{%
-\ifx\@empty#3\@empty
-\edef#4{/N@\pst@zapspace#1 \@empty\space}%
-\else
-\pst@cntg=#1\relax
-\pst@cnth=#2\relax
-\edef#4{/N@M-\ifnum\psmatrixcnt=\z@ 1\else\the\psmatrixcnt\fi
--\the\pst@cntg-\the\pst@cnth\space}%
-\fi}
+ \ifx\@empty#3\@empty
+ \edef#4{/N@\pst@zapspace#1 \@empty\space}%
+ \else
+ \pst@cntg=#1\relax
+ \pst@cnth=#2\relax
+ \edef#4{/N@M-\ifnum\psmatrixcnt=\z@ 1\else\the\psmatrixcnt\fi
+ -\the\pst@cntg-\the\pst@cnth\space}%
+ \fi}
+%
\def\tx@NewNode{NewNode }
\def\pst@newnode#1#2#3#4{%
% DG/SR modification begin - Nov. 9, 2000 - Patch 11
@@ -44,14 +48,15 @@
\leavevmode
\pst@getnode{#1}\pst@thenode
\pst@Verb{%
-\pst@nodedict
-{#3}
-\ifx\psk@name\relax false \else \psk@name true \fi
-\pst@thenode
-#2
-{#4}
-\tx@NewNode
-end}%
+ \pst@nodedict
+ {#3}
+ \ifx\psk@name\relax false \else \psk@name true \fi
+ \pst@thenode
+ #2
+ {#4}
+ \tx@NewNode
+ end }%
+%
\global\let\psk@name\relax
\pstree@nodehook
\global\let\pstree@nodehook\relax}
@@ -100,20 +105,21 @@ end}%
\def\Cnode{\pst@object{Cnode}}
\def\Cnode@i{\@ifnextchar({\Cnode@ii}{\Cnode@ii(0,0)}}
\def\Cnode@ii(#1)#2{\cnode@ii(#1){\psk@radius}{#2}}%
+%
\def\cnodeput{\pst@object{cnodeput}}
\def\cnodeput@i{\@ifnextchar({\cnodeput@iii}{\cnodeput@ii}}
\def\cnodeput@ii#1{%
-\addto@par{rot={#1}}%
-\@ifnextchar({\cnodeput@iii}{\cnodeput@iii(\z@,\z@)}}
+ \addto@par{rot={#1}}%
+ \@ifnextchar({\cnodeput@iii}{\cnodeput@iii(\z@,\z@)}}
\def\cnodeput@iii(#1)#2{%
-\pst@killglue
-\@fixedradiusfalse
-\def\pst@nodehook{\cnodeput@iv{#2}}%
-\pst@makebox{\cput@v{#1}}}
+ \pst@killglue
+ \@fixedradiusfalse
+ \def\pst@nodehook{\cnodeput@iv{#2}}%
+ \pst@makebox{\cput@v{#1}}}
\def\cnodeput@iv#1{%
-\pst@newnode{#1}{11}{\pscirclebox@iv \pst@number\pslinewidth add}%
-{\tx@InitCnode}%
-\global\let\pst@nodehook\relax}
+ \pst@newnode{#1}{11}{\pscirclebox@iv \pst@number\pslinewidth add}{\tx@InitCnode}%
+ \global\let\pst@nodehook\relax}
+%
\def\Cnodeput{\pst@object{Cnodeput}}
\def\Cnodeput@i{\@ifnextchar({\Cnodeput@iii}{\Cnodeput@ii}}
\def\Cnodeput@ii#1{%
@@ -133,18 +139,18 @@ end}%
\def\circlenode{\pst@object{circlenode}}
\def\circlenode@i#1{\pst@makebox{\circlenode@ii{#1}}}
\def\circlenode@ii#1{%
-\begingroup
-\pst@useboxpar
-\setbox\pst@hbox=\hbox{%
-\cnodeput@iv{#1}%
-\pscirclebox@iii
-\box\pst@hbox}%
-\ifnodealign \psboxseptrue \fi
-\ifpsboxsep \pscirclebox@sep \fi
-\leavevmode
-\ifnodealign\pst@nodealign\fi
-\box\pst@hbox
-\endgroup}
+ \begingroup
+ \pst@useboxpar
+ \setbox\pst@hbox=\hbox{%
+ \cnodeput@iv{#1}%
+ \pscirclebox@iii
+ \box\pst@hbox}%
+ \ifnodealign \psboxseptrue \fi
+ \ifpsboxsep \pscirclebox@sep \fi
+ \leavevmode
+ \ifnodealign\pst@nodealign\fi
+ \box\pst@hbox
+ \endgroup}
\def\Circlenode{\pst@object{Circlenode}}
\def\Circlenode@i#1{\pst@makebox{\Circlenode@ii{#1}}}
\def\Circlenode@ii#1{%
@@ -466,48 +472,47 @@ x2 add /x2 ED
\def\tx@GetEdgeB{GetEdgeB }
\def\tx@GetArmA{GetArmA }
\def\tx@GetArmB{GetArmB }
+%
\def\check@arrow#1#2{%
-\check@@arrow#2-\@nil
-\if@pst
-\addto@par{arrows=#2}%
-\def\next{#1}%
-\else
-\def\next{#1{#2}}%
-\fi
-\next}
+ \check@@arrow#2-\@nil
+ \if@pst\addto@par{arrows=#2}\def\next{#1}%
+ \else\def\next{#1{#2}}\fi
+ \next}
\def\check@@arrow#1-#2\@nil{%
\ifx\@nil#2\@nil\@pstfalse\else\@psttrue\fi}
+%
\def\tx@InitNC{InitNC }
\def\nc@object#1#2#3#4#5{%
-\csname begin@#1Obj\endcsname
-\showpointsfalse
-\pst@getnode{#2}\pst@tempa
-\pst@getnode{#3}\pst@tempb
-\gdef\npos@default{#4 }%
-\addto@pscode{%
-/NCLW CLW def
-\pst@nodedict
-\psk@offsetA
-\psk@offsetB neg
-\psk@nodesepA
-\psk@nodesepB
-\psk@nodeseptypeA
-\psk@nodeseptypeB
-\pst@tempa
-\pst@tempb
-\tx@InitNC { #5 } if
-end}%
-\def\use@pscode{%
-\pst@Verb{gsave \tx@STV newpath \pst@code\space grestore}%
-\gdef\pst@code{}}%
-\csname end@#1Obj\endcsname
-\pst@shortput}
+ \csname begin@#1Obj\endcsname
+ \showpointsfalse
+ \pst@getnode{#2}\pst@tempa
+ \pst@getnode{#3}\pst@tempb
+ \gdef\npos@default{#4 }%
+ \addto@pscode{%
+ /NCLW CLW def
+ \pst@nodedict
+ \psk@offsetA
+ \psk@offsetB neg
+ \psk@nodesepA
+ \psk@nodesepB
+ \psk@nodeseptypeA
+ \psk@nodeseptypeB
+ \pst@tempa
+ \pst@tempb
+ \tx@InitNC { #5 } if
+ end }%
+ \def\use@pscode{%
+ \pst@Verb{gsave \tx@STV newpath \pst@code\space grestore}%
+ \gdef\pst@code{}}%
+ \csname end@#1Obj\endcsname
+ \pst@shortput}
+%
\def\npos@default{.5 }
\def\pc@object#1{%
\@ifnextchar({\pc@@object#1}{\pst@getarrows{\pc@@object#1}}}
\def\pc@@object#1(#2)(#3){%
-\pnode(#2){@@A}\pnode(#3){@@B}%
-#1{@@A}{@@B}}
+ \pnode(#2){@@A}\pnode(#3){@@B}%
+ #1{@@A}{@@B}}
\def\tx@LPutLine{LPutLine }
\def\tx@LPutLines{LPutLines }
\def\tx@BezierMidpoint{BezierMidpoint }
@@ -522,11 +527,14 @@ end}%
\def\tx@HPutCurve{HPutCurve }
\def\tx@NCCoor{NCCoor }
\def\tx@NCLine{NCLine }
+%
\def\ncline{\pst@object{ncline}}
\def\ncline@i{\check@arrow{\ncline@ii}}
\def\ncline@ii#1#2{\nc@object{Open}{#1}{#2}{.5}{\tx@NCLine}}
+%
\def\pcline{\pst@object{pcline}}
\def\pcline@i{\pc@object\ncline@ii}
+%
\def\ncLine{\pst@object{ncLine}}
\def\ncLine@i{\check@arrow{\ncLine@ii}}
\def\ncLine@ii#1#2{\nc@object{Open}{#1}{#2}{.5}%
@@ -534,6 +542,7 @@ end}%
%{\tx@NCLine /LPutPos { xB xA yB yA \tx@LPutLine } def}}
{\tx@NCLine /LPutPos { xB yB xA yA \tx@LPutLine } def}}
% DG/SR modification end
+%
\def\tx@NCLines{NCLines }
\def\nclines{\pst@object{nclines}}
\def\nclines@i{\check@arrow\nclines@ii}
@@ -553,34 +562,41 @@ mark \pst@coors \tx@NCLines}%
\def\nccurve{\pst@object{nccurve}}
\def\nccurve@i{\check@arrow{\nccurve@ii}}
\def\nccurve@ii#1#2{\nc@object{Open}{#1}{#2}{.5}{%
-/AngleA \psk@angleA\space def /AngleB \psk@angleB\space def
-\psk@ncurvB\space \psk@ncurvA\space
-\tx@NCCurve}}
+ /AngleA \psk@angleA\space def /AngleB \psk@angleB\space def
+ \psk@ncurvB\space \psk@ncurvA\space
+ \tx@NCCurve}}
\def\pccurve{\pst@object{pccurve}}
\def\pccurve@i{\pc@object\nccurve@ii}
+%
\def\ncarc{\pst@object{ncarc}}
\def\ncarc@i{\check@arrow{\ncarc@ii}}
\def\ncarc@ii#1#2{\nc@object{Open}{#1}{#2}{.5}{%
-yB yA sub xB xA sub \tx@Atan dup
-\psk@arcangleA\space add /AngleA ED
-\psk@arcangleB\space sub 180 add /AngleB ED
-\psk@ncurvB\space \psk@ncurvA\space
-\tx@NCCurve}}
+ yB yA sub xB xA sub \tx@Atan dup
+ \psk@arcangleA\space add /AngleA ED
+ \psk@arcangleB\space sub 180 add /AngleB ED
+ \psk@ncurvB\space \psk@ncurvA\space
+ \tx@NCCurve}}
\def\pcarc{\pst@object{pcarc}}
\def\pcarc@i{\pc@object\ncarc@ii}
+%
\def\tx@NCAngles{NCAngles }
+\newif\ifPst@pcRef% border or center as reference point (hv)
+\def\psset@pcRef#1{\@nameuse{Pst@pcRef#1}}
+\psset@pcRef{false}
\def\ncangles{\pst@object{ncangles}}
\def\ncangles@i{\check@arrow{\ncangles@ii}}
\def\ncangles@ii#1#2{%
-\nc@object{Open}{#1}{#2}{1.5}{\ncangles@iii \tx@NCAngles}}
+ \nc@object{Open}{#1}{#2}{1.5}{\ncangles@iii \tx@NCAngles}}
\def\ncangles@iii{%
-tx@Dict begin \psline@iii pop end
-/AngleA \psk@angleA def
-/AngleB \psk@angleB def
-/ArmA \psk@armA def
-/ArmB \psk@armB def
-/ArmTypeA \psk@armtypeA def
-/ArmTypeB \psk@armtypeB def }
+ tx@Dict begin \psline@iii pop end
+ /AngleA \psk@angleA def
+ /AngleB \psk@angleB def
+ /ArmA \psk@armA \ifPst@pcRef
+ GetEdgeA yA yA1 sub dup mul xA xA1 sub dup mul add sqrt sub \fi def
+ /ArmB \psk@armB def
+ /ArmTypeA \psk@armtypeA def
+ /ArmTypeB \psk@armtypeB def }
+%
\def\pcangles{\pst@object{pcangles}}
\def\pcangles@i{\pc@object\ncangles@ii}
\def\tx@NCAngle{NCAngle }
@@ -688,25 +704,25 @@ tx@Dict begin \psline@iii pop end
\def\ncput{\pst@object{ncput}}
\def\ncput@i{\pst@killglue\pst@makebox{\ncput@ii}}
\def\ncput@ii{%
-\begingroup
-\use@par
-\if@star\pst@starbox\fi
-\pst@makesmall\pst@hbox
-\pst@rotate\psk@nrot\pst@hbox
-\ncput@iii
-\endgroup
-\pst@shortput}
+ \begingroup
+ \use@par
+ \if@star\pst@starbox\fi
+ \pst@makesmall\pst@hbox
+ \pst@rotate\psk@nrot\pst@hbox
+ \ncput@iii
+ \endgroup
+ \pst@shortput}
\def\ncput@iii{%
-\leavevmode
-\hbox{%
-\pst@Verb{%
-\pst@nodedict
-/t \psk@npos def
-\tx@LPut
-end
-\tx@PutBegin}%
-\box\pst@hbox
-\pst@Verb{\tx@PutEnd}}}
+ \leavevmode
+ \hbox{%
+ \pst@Verb{%
+ \pst@nodedict
+ /t \psk@npos def
+ \tx@LPut
+ end
+ \tx@PutBegin}%
+ \box\pst@hbox
+ \pst@Verb{\tx@PutEnd}}}
\def\naput{\pst@object{naput}}
\def\naput@i{\pst@killglue\pst@makebox{\naput@ii{NAngle 90 add}}}
\def\naput@ii#1{%
@@ -724,22 +740,22 @@ end
\def\nbput{\pst@object{nbput}}
\def\nbput@i{\pst@killglue\pst@makebox{\naput@ii{NAngle 90 sub}}}
\def\psset@tpos#1{%
-\pst@checknum{#1}\psk@tpos
-\ifdim\psk@tpos \p@<\z@
-\def\psk@tpos{.5}%
+ \pst@checknum{#1}\psk@tpos
+ \ifdim\psk@tpos \p@<\z@
+ \def\psk@tpos{.5}%
% DG/SR modification begin - Sep. 23, 1998 - Patch 7
%\@pstrickserr{Bad `tpos' value: `#1'. Must be 0<tpos<1}\@epha
-\@pstrickserr{Bad `tpos' value: `#1'. Must be 0<tpos<1}\@ehpa
+ \@pstrickserr{Bad `tpos' value: `#1'. Must be 0<tpos<1}\@ehpa
% DG/SR modification end
-\else
-\ifdim\psk@tpos \p@>\p@
-\def\psk@tpos{.5}%
+ \else
+ \ifdim\psk@tpos \p@>\p@
+ \def\psk@tpos{.5}%
% DG/SR modification begin - Sep. 23, 1998 - Patch 7
%\@pstrickserr{Bad `tpos' value: `#1'. Must be 0<tpos<1}\@epha
-\@pstrickserr{Bad `tpos' value: `#1'. Must be 0<tpos<1}\@ehpa
+ \@pstrickserr{Bad `tpos' value: `#1'. Must be 0<tpos<1}\@ehpa%
% DG/SR modification end
-\fi
-\fi}
+ \fi%
+ \fi}
\psset@tpos{.5}
\def\tvput{\pst@object{tvput}}
\def\tvput@i{\pst@makebox{\psput@tput{H}{1}}}
@@ -756,41 +772,43 @@ end
\def\tx@HPutAdjust{HPutAdjust }
\def\tx@VPutAdjust{VPutAdjust }
\def\psput@tput#1#2{%
-\begingroup
-\use@par
-\pst@tputmakesmall
-\leavevmode
-\hbox{%
-\pst@Verb{%
-\pst@nodedict
-/t \psk@tpos \pst@tposflip def
-tx@NodeDict /HPutPos known
-{ #1PutPos }
-{ CP /Y ED /X ED /NAngle 0 def /NCLW 0 def }
-ifelse
-/Sin NAngle sin def
-/Cos NAngle cos def
-/s \pst@number\pslabelsep NCLW add def
-/l \pst@number\pst@dima def
-/r \pst@number\pst@dimb def
-/h \pst@number\pst@dimc def
-/d \pst@number\pst@dimd def
+ \begingroup
+ \use@par
+ \pst@tputmakesmall
+ \leavevmode
+ \hbox{%
+ \pst@Verb{%
+ \pst@nodedict
+ /t \psk@tpos \pst@tposflip def
+ tx@NodeDict /HPutPos known
+ { #1PutPos }
+ { CP /Y ED /X ED /NAngle 0 def /NCLW 0 def }
+ ifelse
+ /Sin NAngle sin def
+ /Cos NAngle cos def
+ /s \pst@number\pslabelsep NCLW add def
+ /l \pst@number\pst@dima def
+ /r \pst@number\pst@dimb def
+ /h \pst@number\pst@dimc def
+ /d \pst@number\pst@dimd def
% DG/SR modification begin - Sep. 26, 1997 - Patch 4
%\ifnum1=0#2\else
-\ifnum1=0#2 \else
+ \ifnum1=0#2 \else
% DG/SR modification end
-/flag #2 def
-\csname tx@#1PutAdjust\endcsname
-\fi
-\tx@LPutCoor
-end
-\tx@PutBegin}%
-\box\pst@hbox
-\pst@Verb{\tx@PutEnd}}%
-\endgroup
-\pst@shortput}
+ /flag #2 def
+ \csname tx@#1PutAdjust\endcsname
+ \fi
+ \tx@LPutCoor
+ end
+ \tx@PutBegin}%
+ \box\pst@hbox
+ \pst@Verb{\tx@PutEnd}}%
+ \endgroup
+ \pst@shortput}
+%
\def\pst@tposflip{}
\def\pst@tputmakesmall{%
+%
\pst@dima=\wd\pst@hbox
\divide\pst@dima 2
\pst@dimg=\psk@href\pst@dimg
@@ -914,14 +932,13 @@ end
\def\Bput{\def\pst@par{}\pst@ifstar{\@ifnextchar[{\Bput@i}{\nbput@i}}}
\def\Bput@i[#1]{\addto@par{labelsep=#1}\nbput@i}
\def\node@coor#1;#2\@nil{%
-\pst@getnode{#1}\pst@tempg
-\edef\pst@coor{%
-\pst@nodedict
-tx@NodeDict \pst@tempg known
-{ \pst@tempg load \tx@GetCenter }
-{ 0 0 }
-ifelse
-end }}
+ \pst@getnode{#1}\pst@tempg
+ \edef\pst@coor{%
+ \pst@nodedict
+ tx@NodeDict \pst@tempg known
+ \pslbrace \pst@tempg load \tx@GetCenter \psrbrace
+ \pslbrace 0 0 \psrbrace ifelse
+ end }}
\def\Node@coor[#1]#2;#3\@nil{%
\begingroup
\psset{#1}%
@@ -978,95 +995,89 @@ end }}%
%\let\mscount\@multicnt
\ifx\mscount\@undefined\let\mscount\@multicnt\fi
% DG/SR modification end
-\def\psmatrix{%
- \begingroup
-{\ifnum0=`}\fi % Don't want to expand any &.
-\@ifnextchar[{\psmatrix@i}{\ifnum0=`{\fi}{}\psmatrix@ii}}
+\def\psmatrix{\begingroup{\ifnum0=`}\fi % Don't want to expand any &.
+ \@ifnextchar[{\psmatrix@i}{\ifnum0=`{\fi}{}\psmatrix@ii}}
\def\psmatrix@i[#1]{%
-\ifnum0=`{\fi}{}%
-\psset{#1}%
-\psmatrix@ii}
+ \ifnum0=`{\fi}{}%
+ \psset{#1}%
+ \psmatrix@ii}
\def\psmatrix@ii{%
-\KillGlue
-\edef\psm@beginmath{%
-\ifmmode$\m@th\ifinner\textstyle\else\displaystyle\fi\fi}%
-\edef\psm@endmath{\ifmmode$\fi}%
-\let\\\psm@cr
-\advance\psmatrixcnt 1
-\def\psm@thenode{M-\the\psmatrixcnt-\the\psrow-\the\pscol}%
-\tabskip\z@
-\psrow1
-\pscol\z@
-\psset@shortput{tablr}%
-\leavevmode
-\vbox\bgroup\halign\bgroup&%
-\begingroup
-\global\advance\pscol 1
-\csname psrowhook\romannumeral\psrow\endcsname
-\csname pscolhook\romannumeral\pscol\endcsname
-\psm@beginnode##\psm@endnode\endgroup
-\cr}
+ \KillGlue
+ \edef\psm@beginmath{%
+ \ifmmode$\m@th\ifinner\textstyle\else\displaystyle\fi\fi}%
+ \edef\psm@endmath{\ifmmode$\fi}%
+ \let\\\psm@cr
+ \advance\psmatrixcnt 1
+ \def\psm@thenode{M-\the\psmatrixcnt-\the\psrow-\the\pscol}%
+ \tabskip\z@
+ \psrow1
+ \pscol\z@
+ \psset@shortput{tablr}%
+ \leavevmode
+ \vbox\bgroup\halign\bgroup&%
+ \begingroup
+ \global\advance\pscol 1
+ \csname psrowhook\romannumeral\psrow\endcsname
+ \csname pscolhook\romannumeral\pscol\endcsname
+ \psm@beginnode##\psm@endnode\endgroup
+ \cr}
+%
\def\endpsmatrix{%
-\crcr\egroup\unskip\egroup
-\endgroup}
-\def\psm@cr{{\ifnum0=`}\fi\@ifnextchar[{\psm@@cr}{\psm@@@cr{}}}
+ \crcr\egroup\unskip\egroup
+ \endgroup}
+%
+% hv 2007-10-16 fix bug with \\[name=...]
+%\def\psm@cr{{\ifnum0=`}\fi\@ifnextchar[{\psm@@cr}{\psm@@@cr{}}}
+\def\psm@cr{{\ifnum0=`}\fi\ps@ifnextchar[{\psm@@cr}{\psm@@@cr{}}}
+%
\def\psm@@cr[#1]{\psm@@@cr{\vskip#1\relax}}
\def\psm@@@cr#1{%
-\ifnum0=`{\fi}{}\cr
-\noalign{%
-\global\advance\psrow 1
-\global\pscol\z@
-\vskip\psrowsep
-#1}}
+ \ifnum0=`{\fi}{}\cr
+ \noalign{%
+ \global\advance\psrow 1
+ \global\pscol\z@
+ \vskip\psrowsep
+ #1}}
\def\psm@beginnode{%
-\@ifnextchar\psm@endnode
-{\let\psm@endnode@i\relax\setbox\pst@hbox=\hbox{}}%
-{\pst@object{psm@beginnode}}}
+ \@ifnextchar\psm@endnode
+ {\let\psm@endnode@i\relax\setbox\pst@hbox=\hbox{}}%
+ {\pst@object{psm@beginnode}}}
\def\psm@beginnode@i{%
-\setbox\pst@hbox=\hbox\bgroup
-\psm@beginmath
-\begingroup
-\ignorespaces}
+ \setbox\pst@hbox=\hbox\bgroup
+ \psm@beginmath
+ \begingroup
+ \ignorespaces}
\def\psm@endnode@i{%
-\unskip
-\endgroup
-\psm@endmath
-\egroup
-\use@par
-\@psttrue}
+ \unskip
+ \endgroup
+ \psm@endmath
+ \egroup
+ \use@par
+ \@psttrue}
\def\psm@endnode{%
-\@pstfalse
-\psm@endnode@i
-\ifnum\pscol>1 \hskip\pscolsep \fi
-\psk@mnodesize
-\hfil
-\nodealigntrue
-\if@pst
-\csname mnode@\psk@mnode\endcsname
-\else
-\csname mnode@\psk@emnode\endcsname
-\fi
-\psk@mcol
-\psk@@mnodesize}
+ \@pstfalse
+ \psm@endnode@i
+ \ifnum\pscol>1 \hskip\pscolsep \fi
+ \psk@mnodesize
+ \hfil
+ \nodealigntrue
+ \if@pst\csname mnode@\psk@mnode\endcsname
+ \else\csname mnode@\psk@emnode\endcsname\fi
+ \psk@mcol
+ \psk@@mnodesize}
% DG/SR modification begin - Sep. 3, 1999 - Patch 10 - From Michael Sharpe
%\def\psspan#1{\mscount#1\relax\loop\ifnum\mscount>\@ne \sp@n\repeat}
\def\psspan#1{\global\mscount#1\relax\pstloop\ifnum\mscount>\@ne\sp@n\repeat}
\def\pstloop#1\repeat{\gdef\pstiterate{#1\relax\expandafter\pstiterate\fi}%
-\pstiterate
-\let\pstiterate\relax}
+ \pstiterate
+ \let\pstiterate\relax}
% DG/SR modification end
\def\psset@name#1{\pst@getnode{#1}\psk@name}
\let\psk@name\relax
\def\psset@mcol#1{%
-\ifx r#1\relax
-\let\psk@mcol\relax
-\else
-\ifx l#1\relax
-\let\psk@mcol\hfill
-\else
-\let\psk@mcol\hfil
-\fi
-\fi}
+ \ifx r#1\relax\let\psk@mcol\relax\else
+ \ifx l#1\relax\let\psk@mcol\hfill\else
+ \let\psk@mcol\hfil\fi\fi}
\psset@mcol{c}
\def\psset@mnodesize#1{%
\pssetlength\pst@dimg{#1}%
@@ -1086,6 +1097,9 @@ end }}%
\def\mnode@C{{\nodealigntrue\cnode@ii(\z@,\z@){\psk@radius}{\psm@thenode}}}
\def\mnode@f{{\nodealigntrue\fnode@ii(\z@,\z@){\psm@thenode}}}
\def\mnode@circle{\circlenode@ii{\psm@thenode}}
+% hv modification begin - Aug. 16, 2007
+\def\mnode@Circle{\Circlenode@ii{\psm@thenode}}
+% hv modification end - Aug. 16, 2007
\def\mnode@p{\pnode(\z@,\z@){\psm@thenode}}
% DG/SR modification begin - Jul. 22, 1997 - Patch 1
\def\mnode@dot{\dotnode@ii(\z@,\z@){\psm@thenode}}
diff --git a/Master/texmf-dist/tex/generic/pstricks/pst-plot.tex b/Master/texmf-dist/tex/generic/pstricks/pst-plot.tex
index 4ce191dde77..d2fff22ed98 100644
--- a/Master/texmf-dist/tex/generic/pstricks/pst-plot.tex
+++ b/Master/texmf-dist/tex/generic/pstricks/pst-plot.tex
@@ -24,8 +24,8 @@
\expandafter\next
\fi
-\def\fileversion{1.00}
-\def\filedate{2007/06/26}
+\def\fileversion{1.01}
+\def\filedate{2008/01/26}
\message{ v\fileversion, \filedate}
@@ -66,6 +66,7 @@ D\space##1%
\fi*%
\let(,\let),\let{,\let},\let ,\let^^M,\let_\@empty*% End def
\endgroup
+%
\begingroup
\catcode`\,=13
\catcode`\_=13
@@ -75,14 +76,15 @@ D\space##1%
\let#1\pst@tempg
\global\let\pst@tempg\relax
\ignorespaces}
+%
\gdef\readdata@{%
\read1 to \pst@tempa
\expandafter\readdata@@\pst@tempa_\@nil
\ifeof1\else\expandafter\readdata@\fi}
-\gdef\pst@@readfile#1#2\@nil{\addto@pscode{,#1#2}}%
-\gdef\readdata@@#1#2\@nil{\xdef\pst@tempg{\pst@tempg,#1#2}}%
+ \gdef\pst@@readfile#1#2\@nil{\addto@pscode{,#1#2}}%
+ \gdef\readdata@@#1#2\@nil{\xdef\pst@tempg{\pst@tempg,#1#2}}%
\endgroup
-
+%
\def\readdata#1#2{%
\openin1=#2
\begingroup
@@ -97,6 +99,7 @@ D\space##1%
\fi
\endgroup
\let#1\pst@tempg
+% \ifnum\Pst@Debug>0 \typeout{==DEBUG== pst-plot:readdata:\string\pst@tempg: \pst@tempg}\fi% hv 2008-02-28
\global\let\pst@tempg\relax
\ignorespaces}
@@ -298,23 +301,19 @@ n 0 eq not
\@nameuse{beginqp@\psplotstyle}%
/Do { \@nameuse{doqp@\psplotstyle}} def
} def}%
- #1%
- \addto@pscode{D}%
+ #1% % this is \pst@readfile{#1} for fileplot
+ \addto@pscode{ D }%
\@nameuse{endqp@\psplotstyle}}
\def\fileplot{\def\pst@par{}\pst@object{fileplot}}
\def\fileplot@i#1{%
- \pst@killglue
- \begingroup
- \use@par
- \@pstfalse
+ \pst@killglue%
+ \begingroup%
+ \use@par%
+ \@pstfalse%
\@nameuse{testqp@\psplotstyle}%
- \if@pst
- \dataplot@ii{\pst@readfile{#1}}%
- \else
- \listplot@ii{\pst@altreadfile{#1}}%
- \fi
- \endgroup
+ \if@pst\dataplot@ii{\pst@readfile{#1}}\else\listplot@ii{\pst@altreadfile{#1}}\fi%
+ \endgroup%
\ignorespaces}
\pst@def{ScalePoints}<%
@@ -539,32 +538,38 @@ n 0 eq not
% Now the ticks and labels. Start by checking for "\multido".
% !!Need to fix this so that does nothing when there are 0 ticks.!!
\begingroup
- \ifdim\pst@dimb=\z@\else\showoriginfalse\fi
- \ifnum\psk@dx=\z@
- \pst@dimg=\psk@Dx\psxunit
- \edef\psk@dx{\number\pst@dimg}%
- \fi
- \ifnum\psk@ticks<\tw@
- \ifnum\psk@tickstyle>\z@\else
- \advance\pslabelsep\psk@ticksize\p@
- \fi
- \fi
- \pst@hlabels\pst@dimc\psk@arrowB
- \pst@hlabels\pst@dima\psk@arrowA
+ \ifdim\pst@dimb=\z@\else\showoriginfalse\fi
+ \ifnum\psk@dx=\z@
+ \pst@dimg=\psk@Dx\psxunit
+ \psDEBUG[psaxes@iv]{\textbackslash pst@dimg=\the\pst@dimg}% v.1.01
+ \ifdim\pst@dimg<\p@ \pst@cnta=\psk@Dx \edef\psk@Dx{-\the\pst@cnta} % v.1.01
+ \ifnum\Pst@Debug>0 \typeout{==DEBUG== pst-plot(psaxes@iv): Dx -> -Dx (was negative)}\fi % v.1.01
+ \fi % v.1.01
+ \edef\psk@dx{\number\pst@dimg}%
+ \psDEBUG[psaxes@iv]{\textbackslash psk@dx=\psk@dx}% v.1.01
+ \fi
+ \ifnum\psk@ticks<\tw@
+ \ifnum\psk@tickstyle>\z@ \else\advance\pslabelsep\psk@ticksize\p@\fi
+ \fi
+ \pst@hlabels\pst@dimc\psk@arrowB
+ \pst@hlabels\pst@dima\psk@arrowA
\endgroup
\begingroup
- \ifdim\pst@dima=\z@\else\showoriginfalse\fi
- \ifnum\psk@dy=\z@
- \pst@dimg=\psk@Dy\psyunit
- \edef\psk@dy{\number\pst@dimg}%
- \fi
- \ifodd\psk@ticks\else
- \ifnum\psk@tickstyle>\z@\else
- \advance\pslabelsep\psk@ticksize\p@
- \fi
- \fi
- \pst@vlabels\pst@dimd\psk@arrowB
- \pst@vlabels\pst@dimb\psk@arrowA
+ \ifdim\pst@dima=\z@\else\showoriginfalse\fi
+ \ifnum\psk@dy=\z@
+ \pst@dimg=\psk@Dy\psyunit
+ \psDEBUG[psaxes@iv]{\textbackslash pst@dimg=\the\pst@dimg}% v.1.01
+ \ifdim\pst@dimg<\p@ \pst@cnta=\psk@Dy \edef\psk@Dy{-\the\pst@cnta} % v.1.01
+ \psDEBUG[psaxes@iv]{Dy -> -Dy (was negative)}% v.1.01
+ \fi % v.1.01
+ \edef\psk@dy{\number\pst@dimg}%
+ \psDEBUG[psaxes@iv]{\textbackslash psk@dy=\psk@dy}% v.1.01
+ \fi
+ \ifodd\psk@ticks\else
+ \ifnum\psk@tickstyle>\z@ \else\advance\pslabelsep\psk@ticksize\p@\fi
+ \fi
+ \pst@vlabels\pst@dimd\psk@arrowB
+ \pst@vlabels\pst@dimb\psk@arrowA
\endgroup
% Now close "\pst@hbox" (which is 0-dimensional), and put it at the origin.
\egroup
@@ -620,9 +625,7 @@ n 0 eq not
% The origin is never the only label.
\def\pst@hlabels#1#2{%
\ifdim#1=\z@\else
- \ifx#2\empty\else
- \advance#1\ifdim#1>\z@-\fi7\pslinewidth
- \fi
+ \ifx#2\empty\else\advance#1\ifdim#1>\z@-\fi7\pslinewidth\fi
\pst@cnta=#1\relax % Distance (in sp) to end.
\divide\pst@cnta\psk@dx\relax % Number of ticks/labels
\ifnum\pst@cnta=\z@\else
@@ -632,22 +635,22 @@ n 0 eq not
\fi
\ifnum\psk@labels<\tw@ \pst@@hlabels\fi
\showoriginfalse
- \fi
- \fi}
+ \fi
+\fi}
% Knows \pst@dimb and \pst@cnta
\def\pst@@hlabels{%
\vbox to\z@{%
\ifdim\pst@dimd>\z@\vskip\pslabelsep\else\vss\fi
- \ifnum\pst@cnta<\z@
- \pst@dimb=-\pst@dimb
- \fi
+ \ifnum\pst@cnta<\z@ \pst@dimb=-\pst@dimb\fi
\hbox to\z@{%
\ifshoworigin\hbox to \z@{\hss\pshlabel{\psk@Ox}\hss}\fi
\mmultido
- {\n=\psk@Ox+\psk@Dx}%
+ {\nA=\psk@Ox+\psk@Dx}%
{\pst@cnta}%
- {\hskip\pst@dimb\hbox to \z@{\hss\pshlabel{\n}\hss}}%
+ {\hskip\pst@dimb\hbox to \z@{%
+ \hss\ifdim\nA pt=\z@ \pshlabel{0}\else\pshlabel{\nA}\fi
+ \hss}}% prevent "-0"
\hss}%
\ifdim\pst@dimd>\z@\vss\else\vskip\pslabelsep\fi}}%
@@ -684,11 +687,11 @@ n 0 eq not
\ifdim\pst@dimc>\z@\hskip\pslabelsep\else\hss\fi}\vss}%
\fi
\mmultido
- {\n=\psk@Oy+\psk@Dy}%
+ {\nA=\psk@Oy+\psk@Dy}%
{\pst@cnta}%
{\vbox to\pst@dima{\vss}\vbox to \z@{\vss\hbox to\z@{%
\ifdim\pst@dimc>\z@\hss\else\hskip\pslabelsep\fi
- \psvlabel{\n}%
+ \ifdim\nA pt=\z@ \psvlabel{0}\else\psvlabel{\nA}\fi% prevent -0, doesn't work with \ifnum
\ifdim\pst@dimc>\z@\hskip\pslabelsep\else\hss\fi}\vss}}%
\vss}}
diff --git a/Master/texmf-dist/tex/generic/pstricks/pstricks.tex b/Master/texmf-dist/tex/generic/pstricks/pstricks.tex
index 09d4be2988c..83cf7585a81 100644
--- a/Master/texmf-dist/tex/generic/pstricks/pstricks.tex
+++ b/Master/texmf-dist/tex/generic/pstricks/pstricks.tex
@@ -20,44 +20,44 @@
% See the PSTricks User's Guide for description.
% This uses the header file `pstricks.pro'.
%
-\def\fileversion{1.24}
-\def\filedate{2008/06/17}
+\def\fileversion{1.25}
+\def\filedate{2008/06/26}
%
\csname PSTricksLoaded\endcsname
\let\PSTricksLoaded\endinput
\edef\PstAtCode{\the\catcode`\@}
\catcode`\@=11\relax
-\expandafter\ifx\csname @latexerr\endcsname\relax
-\long\def\@ifundefined#1#2#3{\expandafter\ifx\csname
- #1\endcsname\relax#2\else#3\fi}
-\def\@namedef#1{\expandafter\def\csname #1\endcsname}
-\def\@nameuse#1{\csname #1\endcsname}
-%
-\def\@eha{%
- Your command was ignored.^^J
- Type \space I <command> <return> \space to replace
- it with another command,^^J
- or \space <return> \space to continue without it.}
-\def\@spaces{\space\space\space\space}
-\def\typeout#1{\immediate\write\@unused{#1}}
-\alloc@7\write\chardef\sixt@@n\@unused
-\def\@empty{}
-\def\@gobble#1{}
-\def\@nnil{\@nil}
-%
-\def\@ifnextchar#1#2#3{%
- \let\@tempe#1\def\@tempa{#2}\def\@tempb{#3}\futurelet\@tempc\@ifnch}
-%
-\def\@ifnch{%
- \ifx\@tempc\@sptoken \let\@tempd\@xifnch
- \else\ifx\@tempc\@tempe \let\@tempd\@tempa \else \let\@tempd\@tempb \fi
- \fi
- \@tempd}
-%
-\begingroup
-\def\:{\global\let\@sptoken= } \:
-\def\:{\@xifnch} \expandafter\gdef\: {\futurelet\@tempc\@ifnch}
-\endgroup
+\expandafter\ifx\csname @latexerr\endcsname\relax% do we have LaTeX?
+ \def\typeout#1{\immediate\write\@unused{#1}}
+ \alloc@7\write\chardef\sixt@@n\@unused
+ \typeout{we are running tex and have to define some LaTeX commands ...}
+ \long\def\@ifundefined#1#2#3{\expandafter\ifx\csname
+ #1\endcsname\relax#2\else#3\fi}
+ \def\@namedef#1{\expandafter\def\csname #1\endcsname}
+ \def\@nameuse#1{\csname #1\endcsname}
+ \def\@eha{%
+ Your command was ignored.^^J
+ Type \space I <command> <return> \space to replace
+ it with another command,^^J
+ or \space <return> \space to continue without it.}
+ \def\@spaces{\space\space\space\space}
+ \def\@empty{}
+ \def\@gobble#1{}
+ \def\@nnil{\@nil}
+%
+ \def\@ifnextchar#1#2#3{%
+ \let\@tempe#1\def\@tempa{#2}\def\@tempb{#3}\futurelet\@tempc\@ifnch}
+%
+ \def\@ifnch{%
+ \ifx\@tempc\@sptoken \let\@tempd\@xifnch
+ \else\ifx\@tempc\@tempe \let\@tempd\@tempa \else \let\@tempd\@tempb \fi
+ \fi
+ \@tempd%
+ }
+ \begingroup
+ \def\:{\global\let\@sptoken= } \:
+ \def\:{\@xifnch} \expandafter\gdef\: {\futurelet\@tempc\@ifnch}
+ \endgroup
\fi
%
% hv 2007-10-16 to fix the bug in pst-node with \\[name=...]
@@ -460,7 +460,7 @@
% v 1.05 begin
\def\psset@PstDebug#1{\pst@getint{#1}{\Pst@Debug}}% hv 2004-06-22
\psset{PstDebug=0}
-\def\psDEBUG{\@ifnextchar[\psDEBUG@i{\ps@DEBUG@i[PSTricks]}}
+\def\psDEBUG{\@ifnextchar[\psDEBUG@i{\psDEBUG@i[PSTricks]}}
\def\psDEBUG@i[#1]#2{\ifnum\Pst@Debug>0 \expandafter\typeout{<#1>: #2}\fi}
% end
\def\pst@getlength#1#2{%
@@ -810,6 +810,9 @@
% /HardLight 4
\psset@blendmode{0}
%
+\def\tx@LineFill{LineFill }
+\def\tx@PenroseFill{PenroseFill }
+%
\def\psfs@none{}
\def\psfs@solid{\pst@fill{\pst@usecolor\psfillcolor \tx@setTransparency fill }}
\def\psfs@eofill{\pst@fill{\pst@usecolor\psfillcolor \tx@setTransparency eofill}}
@@ -847,7 +850,19 @@
\@namedef{psfs@hlines*}{\psfs@solid \psfs@hlines}
\def\psfs@crosshatch{\psfs@vlines \psfs@hlines}
\@namedef{psfs@crosshatch*}{\psfs@solid \psfs@vlines \psfs@hlines}
-\def\tx@LineFill{LineFill }
+%
+\def\psset@psscale#1{\pst@checknum{#1}\psk@psscale}
+\psset@psscale{1}
+%
+\def\pst@penroseFill{%
+ gsave % restore in PenroseFill
+ \pst@number\pslinewidth SLW
+ \pst@usecolor\pshatchcolor
+ \psk@psscale
+ \tx@PenroseFill }
+\def\psfs@penrose{\pst@fill\pst@penroseFill}
+\@namedef{psfs@penrose*}{\psfs@solid \psfs@penrose}
+%
\def\psset@fillstyle#1{%
\edef\pst@tempg{#1}\def\pst@temph{none}%
\ifx\pst@tempg\pst@temph