pstfunc (19jan12)

git-svn-id: svn://tug.org/texlive/trunk@25154 c570f23f-e606-0410-a88d-b1316a301751

1 files changed, 18 insertions, 4 deletions

diff --git a/Master/texmf-dist/tex/generic/pst-func/pst-func.tex b/Master/texmf-dist/tex/generic/pst-func/pst-func.tex
index 63763aab9fd..61a731c32bc 100644
--- a/Master/texmf-dist/tex/generic/pst-func/pst-func.tex
+++ b/Master/texmf-dist/tex/generic/pst-func/pst-func.tex
@@ -1,4 +1,4 @@
-%% $Id: pst-func.tex 621 2012-01-01 15:26:33Z herbert $
+%% $Id: pst-func.tex 625 2012-01-15 20:56:13Z herbert $
 %%
 %% This is file `pst-func.tex',
 %%
@@ -19,7 +19,7 @@
 %%
 \csname PSTfuncLoaded\endcsname
 \let\PSTfuncLoaded\endinput
-% Requires PSTricks, pst-node, pst-xkey
+% Requires some PSTricks packages 
 \ifx\PSTricksLoaded\endinput\else   \input pstricks.tex\fi
 \ifx\PSTnodesLoaded\endinput\else   \input pst-plot.tex\fi
 \ifx\PSTmathLoaded\endinput \else   \input pst-math.tex\fi
@@ -30,8 +30,8 @@
 % interface to the `xkeyval' package
 \pst@addfams{pst-func}
 %
-\def\fileversion{0.75}
-\def\filedate{2012/01/01}
+\def\fileversion{0.76}
+\def\filedate{2012/01/13}
 \message{`PST-func' v\fileversion, \filedate\space (hv)}
 %
 \pstheader{pst-func.pro}
@@ -1009,6 +1009,20 @@
       } for
       \ifPst@saveData Pst@data (]\string\n) writestring \fi
     } for
+%% the same for the other way round without saving the data
+    /VZ true def % suppose that F(x,y)>=0
+    /x xMin def /y yMin def Func 0.0 lt { /VZ false def } if % erster Wert
+    yMin dy \psk@stepFactor\space mul yMax {
+      /y exch def
+      \ifPst@saveData Pst@data ([\string\n) writestring \fi
+      xMin dx \psk@stepFactor\space mul xMax {
+	/x exch def
+	Func 0 lt 
+	    { VZ { x y setpixel /VZ false def} if }
+	    { VZ {}{ x y setpixel /VZ true def } ifelse } ifelse
+      } for
+      \ifPst@saveData Pst@data (]\string\n) writestring \fi
+    } for
 %
 \iffalse
     /x xMin def /y yMin def Func 0.0 lt { /VZ false def } if % erster Wert