pst-func (3jun13)

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

1 files changed, 8 insertions, 9 deletions

diff --git a/Master/texmf-dist/dvips/pst-func/pst-func.pro b/Master/texmf-dist/dvips/pst-func/pst-func.pro
index c190e16fb78..0ea724d8439 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 391 2010-10-02 16:43:32Z herbert $
+%% $Id: pst-func.pro 786 2013-06-03 07:28:54Z herbert $
 %%
 %% This is file `pst-func.pro',
 %%
@@ -16,7 +16,7 @@
 %%   `pst-func' is a PSTricks package to plot special math functions
 %%
 %%
-%% version 0.13 / 2010-06-21  Herbert Voss
+%% version 0.14 / 2013-06-03  Herbert Voss
 %
 /tx@FuncDict 100 dict def
 tx@FuncDict begin
@@ -74,7 +74,7 @@ tx@FuncDict begin
     } for					% x y on stack
   end
 } def
-%
+
 /BezierCurve { % on stack [ coors psk@plotpoints BezierType
 %  10 dict begin
   /BezierType ED
@@ -83,14 +83,13 @@ tx@FuncDict begin
   epsilon GetBezierCoor 		% next Bezier point
   Points 0 get Points 1 get 		% starting point
   ArrowA moveto 
-  epsilon epsilon 1 {
-    /t ED
-    t GetBezierCoor
-    t 0.9999 lt { lineto }{ 1 epsilon sub GetBezierCoor 4 2 roll ArrowB pop pop pop pop } ifelse 
-  } for 
+  epsilon dup 1 epsilon sub { /t ED t GetBezierCoor lineto } for 
+  1 epsilon sub GetBezierCoor  
+  1 GetBezierCoor  
+  ArrowB lineto moveto 
 %  end
 } def
-%
+
 /Bernstein { % on stack tStart tEnd plotpoints i n
   12 dict begin				% hold all local
   /envelope ED				% plot envelope?