summaryrefslogtreecommitdiff
path: root/Master/texmf-dist/dvips
diff options
context:
space:
mode:
Diffstat (limited to 'Master/texmf-dist/dvips')
-rw-r--r--Master/texmf-dist/dvips/pst-func/pst-func.pro12
1 files changed, 8 insertions, 4 deletions
diff --git a/Master/texmf-dist/dvips/pst-func/pst-func.pro b/Master/texmf-dist/dvips/pst-func/pst-func.pro
index 47d4727b604..f1f274dc54c 100644
--- a/Master/texmf-dist/dvips/pst-func/pst-func.pro
+++ b/Master/texmf-dist/dvips/pst-func/pst-func.pro
@@ -1,4 +1,4 @@
-%% $Id: pst-func.pro 273 2010-01-26 18:28:55Z herbert $
+%% $Id: pst-func.pro 355 2010-06-21 10:02:44Z herbert $
%%
%% This is file `pst-func.pro',
%%
@@ -16,7 +16,7 @@
%% `pst-func' is a PSTricks package to plot special math functions
%%
%%
-%% version 0.12 / 2010-01-04 Herbert Voss
+%% version 0.13 / 2010-06-21 Herbert Voss
%
/tx@FuncDict 100 dict def
tx@FuncDict begin
@@ -229,7 +229,8 @@ tx@FuncDict begin
Horner
} def
%
-/FindZeros { % dxN dxZ must be on top of the stack (x0..x1 the intervall)
+/FindZeros { % dxN dxZ must be on top of the stack (x0..x1 the intervall) => []
+ 12 dict begin
/dxZ exch def /dxN exch def
/pstZeros [] def
x0 dxZ x1 { % suche Nullstellen
@@ -246,8 +247,11 @@ tx@FuncDict begin
} repeat
pstZeros aload pop
newZero { xNull Laenge 1 add } { Laenge } ifelse } ifelse
- array astore /pstZeros exch def
+ array astore
+ /pstZeros exch def
} for
+ pstZeros % the end array is now on the stack
+ end
} def
%
/Simpson { % on stack must be a b M --- simple version ---