pst-func (14dec18)

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

1 files changed, 10 insertions, 8 deletions

diff --git a/Master/texmf-dist/dvips/pst-func/pst-func.pro b/Master/texmf-dist/dvips/pst-func/pst-func.pro
index d5c66b3829e..1eca86df516 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 918 2014-05-19 12:32:37Z herbert $
+%% $Id: pst-func.pro 861 2018-12-13 20:40:06Z herbert $
 %%
 %% This is file `pst-func.pro',
 %%
@@ -16,7 +16,7 @@
 %%   `pst-func' is a PSTricks package to plot special math functions
 %%
 %%
-%% version 0.16 / 2018-11-15  Herbert Voss
+%% version 0.17 / 2018-12-13  Herbert Voss
 %
 /tx@FuncDict 100 dict def
 tx@FuncDict begin
@@ -281,25 +281,27 @@ tx@FuncDict begin
   end
 } def
 %
-/Simpson { % on stack must be a b M   --- simple version ---
+/Simpson { % on stack must be a b M useXVal   --- simple version ---
 % /SFunc must be defined 
+  /useX ED  % for algebraic functions which uses f(x)
   /M ED /b ED /a ED
   /h b a sub M 2 mul div def
   /s1 0 def
   /s2 0 def
   1 1 M {
     /k exch def
-    /x k 2 mul 1 sub h mul a add def
-    /s1 s1 x SFunc add def
+    /xVal k 2 mul 1 sub h mul a add def
+    /s1 s1 xVal useX { /x exch def } if SFunc add def
   } for
   1 1 M 1 sub {
     /k exch def
-    /x k 2 mul h mul a add def
-    /s2 s2 x SFunc add def
+    /xVal k 2 mul h mul a add def
+    /s2 s2 xVal useX { /x exch def } if SFunc add def
   } for
-  /I a SFunc b SFunc add s1 4 mul add s2 2 mul add 3 div h mul def
+  /I a useX { /x exch def } if SFunc b useX { /x exch def } if SFunc add s1 4 mul add s2 2 mul add 3 div h mul def
 } def
 %
+%
 /LogGamma { 5 dict begin	% z on stack
   /z ED
   /sum 0 def