From 8328d8188fb85a8733a4f03c71b40f415ac51365 Mon Sep 17 00:00:00 2001 From: Karl Berry Date: Sat, 22 Mar 2008 23:29:41 +0000 Subject: pst-func 0.53 git-svn-id: svn://tug.org/texlive/trunk@7087 c570f23f-e606-0410-a88d-b1316a301751 --- .../texmf-dist/tex/generic/pst-func/pst-func.tex | 23 ++++++++++++++++++++-- 1 file changed, 21 insertions(+), 2 deletions(-) (limited to 'Master/texmf-dist/tex/generic') 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 28027667b8b..04f571e2014 100644 --- a/Master/texmf-dist/tex/generic/pst-func/pst-func.tex +++ b/Master/texmf-dist/tex/generic/pst-func/pst-func.tex @@ -29,7 +29,7 @@ \pst@addfams{pst-func} \def\fileversion{0.52} -\def\filedate{2008/03/02} +\def\filedate{2008/03/21} \message{`PST-func' v\fileversion, \filedate\space (hv)} % \pstheader{pst-func.pro} @@ -742,7 +742,26 @@ \endgroup% \ignorespaces% } - +\def\tx@BezierShowPoints{ tx@Dict begin /Points ED BezierShowPoints end } +\def\pst@BezierType{2 } % the default +% +\def\psBezier#1{% % allowed order is 1 ... 9 + \ifnum#1>0 \ifnum#1<10 \def\pst@BezierType{#1 }\fi\fi% + \pst@object{psBezier}} +\def\psBezier@i{% + \pst@getarrows{% + \addbefore@par{plotpoints=200}% + \begin@OpenObj + \pst@getcoors[\psBezier@ii% +}} +\def\psBezier@ii{% + \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@FuncDict begin BezierCurve Points end + \ifshowpoints \tx@BezierShowPoints \else pop \fi + }% + \end@OpenObj} % % \catcode`\@=\PstAtCode\relax -- cgit v1.2.3