diff options
| author | Karl Berry <karl@freefriends.org> | 2014-02-02 21:54:34 +0000 |
|---|---|---|
| committer | Karl Berry <karl@freefriends.org> | 2014-02-02 21:54:34 +0000 |
| commit | 02a4fc71679895429385a94acdbd1f9f37a23b13 (patch) | |
| tree | b837ad5edc38aafc0bc832178a015eb3e9c522c9 /Master/texmf-dist/dvips | |
| parent | 72e8e6ddb9402812e9f0bf1920bba7dd00bd2a36 (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')
| -rw-r--r-- | Master/texmf-dist/dvips/pst-func/pst-func.pro | 20 |
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 |