summaryrefslogtreecommitdiff
path: root/Master/texmf-dist/dvips/pst-func
diff options
context:
space:
mode:
authorKarl Berry <karl@freefriends.org>2014-02-02 21:54:34 +0000
committerKarl Berry <karl@freefriends.org>2014-02-02 21:54:34 +0000
commit02a4fc71679895429385a94acdbd1f9f37a23b13 (patch)
treeb837ad5edc38aafc0bc832178a015eb3e9c522c9 /Master/texmf-dist/dvips/pst-func
parent72e8e6ddb9402812e9f0bf1920bba7dd00bd2a36 (diff)
pst-func (2feb14)
git-svn-id: svn://tug.org/texlive/trunk@32849 c570f23f-e606-0410-a88d-b1316a301751
Diffstat (limited to 'Master/texmf-dist/dvips/pst-func')
-rw-r--r--Master/texmf-dist/dvips/pst-func/pst-func.pro20
1 files changed, 12 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 0ea724d8439..6bbdb70d79c 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 786 2013-06-03 07:28:54Z herbert $
+%% $Id: pst-func.pro 789 2013-06-10 13:50:35Z herbert $
%%
%% This is file `pst-func.pro',
%%
@@ -16,7 +16,7 @@
%% `pst-func' is a PSTricks package to plot special math functions
%%
%%
-%% version 0.14 / 2013-06-03 Herbert Voss
+%% version 0.15 / 2013-06-10 Herbert Voss
%
/tx@FuncDict 100 dict def
tx@FuncDict begin
@@ -77,16 +77,20 @@ tx@FuncDict begin
/BezierCurve { % on stack [ coors psk@plotpoints BezierType
% 10 dict begin
- /BezierType ED
- 1 exch div /epsilon ED
- ] /Points ED % yi xi ... y3 x3 y2 x2 y1 x1 y0 x0
+ /BezierType ED % 2,3,4,5,6,...
+ 1 exch div /epsilon ED % step for Bezier =1/plotpoints
+ ] % [ yi xi ... y3 x3 y2 x2 y1 x1 y0 x0]
+ ps@ReverseOrderOfPoints % [y0 x0 y1 x1 ... yi xi]
+ /Points ED % save Points array
epsilon GetBezierCoor % next Bezier point
Points 0 get Points 1 get % starting point
- ArrowA moveto
- epsilon dup 1 epsilon sub { /t ED t GetBezierCoor lineto } for
+ ArrowA lineto
+ epsilon epsilon 1 epsilon sub { % on stack is the loop variable
+ GetBezierCoor lineto
+ } for
1 epsilon sub GetBezierCoor
1 GetBezierCoor
- ArrowB lineto moveto
+ ArrowB lineto moveto
% end
} def