From 02a4fc71679895429385a94acdbd1f9f37a23b13 Mon Sep 17 00:00:00 2001 From: Karl Berry Date: Sun, 2 Feb 2014 21:54:34 +0000 Subject: pst-func (2feb14) git-svn-id: svn://tug.org/texlive/trunk@32849 c570f23f-e606-0410-a88d-b1316a301751 --- Master/texmf-dist/dvips/pst-func/pst-func.pro | 20 ++++++++++++-------- 1 file changed, 12 insertions(+), 8 deletions(-) (limited to 'Master/texmf-dist/dvips/pst-func') 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 -- cgit v1.2.3