diff options
Diffstat (limited to 'Master/texmf-dist/dvips/pst-func/pst-func.pro')
-rw-r--r-- | Master/texmf-dist/dvips/pst-func/pst-func.pro | 17 |
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? |