pst-func 0.69 (21jun10)

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

1 files changed, 8 insertions, 6 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 efd6897f09b..d508a247ee6 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 285 2010-02-11 09:40:27Z herbert $
+%% $Id: pst-func.tex 355 2010-06-21 10:02:44Z herbert $
 %%
 %% This is file `pst-func.tex',
 %%
@@ -30,8 +30,8 @@
 % interface to the `xkeyval' package
 \pst@addfams{pst-func}
 %
-\def\fileversion{0.68}
-\def\filedate{2010/02/11}
+\def\fileversion{0.69}
+\def\filedate{2010/06/21}
 \message{`PST-func' v\fileversion, \filedate\space (hv)}
 %
 \pstheader{pst-func.pro}
@@ -112,12 +112,14 @@
     /x0 #1 def /x1 #2 def
     /dx x1 x0 sub \psk@plotpoints\space div def
     /Derivation \psk@Derivation\space def
+    /x x0 def
     \ifPst@markZeros 
+      5 dict begin % hold all local!
       gsave
       \pst@number\psk@zeroLineWidth SLW
       \pst@usecolor\psk@zeroLineColor
-      \psk@epsZero\space \psk@dZero\space FindZeros 
-      pstZeros aload length {
+      \psk@epsZero\space \psk@dZero\space FindZeros
+        aload length {  % zero array is on stack
         /xZero exch def
         xZero \pst@number\psxunit mul /xPixel exch def
         \psk@dotsize
@@ -131,8 +133,8 @@
         } if
       } repeat
       grestore
+      end
     \fi
-    /x x0 def
     /xy {
       x \psk@xShift\space sub coeff Derivation FuncValue \pst@number\psyunit mul 
       x \pst@number\psxunit mul exch