From fa15421ac0e309a735fac98e1e6ca4432c0d031e Mon Sep 17 00:00:00 2001 From: Karl Berry Date: Sat, 29 Jun 2013 15:38:25 +0000 Subject: pst-func (3jun13) git-svn-id: svn://tug.org/texlive/trunk@31038 c570f23f-e606-0410-a88d-b1316a301751 --- Master/texmf-dist/dvips/pst-func/pst-func.pro | 17 ++++++++--------- 1 file changed, 8 insertions(+), 9 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 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? -- cgit v1.2.3