diff options
author | Karl Berry <karl@freefriends.org> | 2010-01-04 23:11:17 +0000 |
---|---|---|
committer | Karl Berry <karl@freefriends.org> | 2010-01-04 23:11:17 +0000 |
commit | 8f1f9f3a91cb32dba7d54d3fda4f0f8831d153d4 (patch) | |
tree | a6874019ffe7e0f77eacdcc929fabd79f8e91a8d /Master/texmf-dist/tex/generic/pst-func | |
parent | 7fb3ea723158a76babde0aab3cdba966693cfd10 (diff) |
pst-func 0.63 (4jan10)
git-svn-id: svn://tug.org/texlive/trunk@16597 c570f23f-e606-0410-a88d-b1316a301751
Diffstat (limited to 'Master/texmf-dist/tex/generic/pst-func')
-rw-r--r-- | Master/texmf-dist/tex/generic/pst-func/pst-func.tex | 27 |
1 files changed, 13 insertions, 14 deletions
diff --git a/Master/texmf-dist/tex/generic/pst-func/pst-func.tex b/Master/texmf-dist/tex/generic/pst-func/pst-func.tex index 88b322b1c7d..2d9f7397067 100644 --- a/Master/texmf-dist/tex/generic/pst-func/pst-func.tex +++ b/Master/texmf-dist/tex/generic/pst-func/pst-func.tex @@ -1,4 +1,4 @@ -%% $Id: pst-func.tex 137 2009-10-08 18:15:14Z herbert $ +%% $Id: pst-func.tex 244 2010-01-04 13:48:01Z herbert $ %% %% This is file `pst-func.tex', %% @@ -6,7 +6,7 @@ %% %% Package `pst-func.tex' %% -%% Herbert Voss <voss@pstricks.de> +%% Herbert Voss <hvoss@tug.org> %% %% This program can be redistributed and/or modified under the terms %% of the LaTeX Project Public License Distributed from CTAN archives @@ -28,9 +28,9 @@ \edef\PstAtCode{\the\catcode`\@} \catcode`\@=11\relax % interface to the `xkeyval' package \pst@addfams{pst-func} - -\def\fileversion{0.60} -\def\filedate{2009/10/08} +% +\def\fileversion{0.63} +\def\filedate{2010/01/04} \message{`PST-func' v\fileversion, \filedate\space (hv)} % \pstheader{pst-func.pro} @@ -229,14 +229,14 @@ /scx { \pst@number\psxunit mul } def /scy { \pst@number\psyunit mul } def tx@FuncDict begin - /Sigma 1 \psk@sigma div TwoPi sqrt div def + /C 1 \psk@sigma div TwoPi sqrt div def /SFunc {% x on Stack - Euler exch \psk@xShift\space sub dup mul 2 div Sigma dup mul div neg exp Sigma mul + Euler exch \psk@mue\space sub dup mul 2 div \psk@sigma\space dup mul div neg exp C mul } def end a scx 0 moveto \psk@plotpoints 1 sub { - a b \psk@Simpson % a b M on Styack + a b \psk@Simpson % a b M on Stack tx@FuncDict begin Simpson I end % y value on stack scy b scx exch lineto /b b dx add def @@ -731,8 +731,7 @@ % % For polar plots %\define@boolkey[psset]{pst-func}[PstAdd@]{polarplot}[true]{} -%\define@boolkey[psset]{pst-func}[PstAdd@]{algebraic}[true]{} -%\psset[pst-func]{polarplot=false,algebraic=false} +%\psset[pst-func]{polarplot=false} % \define@key[psset]{pst-func}{stepFactor}[0.67]{\pst@checknum{#1}\psk@stepFactor } \psset[pst-func]{stepFactor=0.67} @@ -821,8 +820,8 @@ \endgroup% \ignorespaces% } -\def\tx@BezierShowPoints{ tx@Dict begin /Points ED BezierShowPoints end } -\def\tx@BezierCurve{ tx@FuncDict begin BezierCurve Points end } +\def\txFunc@BezierCurve{ tx@FuncDict begin BezierCurve Points end } +\def\txFunc@BezierShowPoints{ tx@Dict begin /Points ED BezierShowPoints end } \def\pst@BezierType{2 } % the default % \def\psBezier#1{% % allowed order is 1 ... 9 @@ -838,8 +837,8 @@ \addto@pscode{% \psk@plotpoints % step for Bezier T=0,0+epsilon,0+i*epsilon,...,1 \pst@BezierType % type of the Bezier curve 2,3,4,... - \tx@BezierCurve - \ifshowpoints \tx@BezierShowPoints \else pop \fi + \txFunc@BezierCurve + \ifshowpoints \txFunc@BezierShowPoints \else pop \fi }% \end@OpenObj} % |