From 3d0cb91a86809c8becca994b9f708c9cc8eb7fdc Mon Sep 17 00:00:00 2001 From: Karl Berry Date: Tue, 14 Sep 2010 23:42:04 +0000 Subject: pst-bspline update (4sep10) git-svn-id: svn://tug.org/texlive/trunk@19733 c570f23f-e606-0410-a88d-b1316a301751 --- .../tex/generic/pst-bspline/pst-bspline.tex | 32 +++++++++++++--------- 1 file changed, 19 insertions(+), 13 deletions(-) (limited to 'Master/texmf-dist/tex/generic/pst-bspline/pst-bspline.tex') diff --git a/Master/texmf-dist/tex/generic/pst-bspline/pst-bspline.tex b/Master/texmf-dist/tex/generic/pst-bspline/pst-bspline.tex index 633a463f474..ded6c31d4f4 100644 --- a/Master/texmf-dist/tex/generic/pst-bspline/pst-bspline.tex +++ b/Master/texmf-dist/tex/generic/pst-bspline/pst-bspline.tex @@ -1,15 +1,22 @@ %% BEGIN pst-bspline.tex %% Author: Michael Sharpe (msharpe at ucsd.edu) -\def\fileversion{1.2} -\def\filedate{2010/06/12} %% %\message{ v\fileversion, \filedate} \csname PSTBsplineLoaded\endcsname \let\PSTBsplineLoaded\endinput -\ProvidesFile{pst-bspline.tex}[\filedate\space v\fileversion\space Bspline routines for pstricks] -\ifx\PSTnodesLoaded\endinput\else\input pst-node.tex \fi\relax -\edef\TheAtCode{\the\catcode`\@}\catcode`\@=11 + +\ifx\PSTricksLoaded\endinput \else\input pstricks.tex\fi +\ifx\PSTnodeLoaded\endinput \else\input pst-node.tex\fi +\ifx\PSTXKeyLoaded\endinput \else\input pst-xkey \fi +\def\fileversion{1.3} +\def\filedate{2010/09/04} + +\message{`pst-bspline' v\fileversion, \filedate\space Bspline routines for pstricks (ms)} % +\edef\TheAtCode{\the\catcode`\@} \catcode`\@=11\relax +\pst@addfams{pst-bspline} +\SpecialCoor + %\newcount\pst@args%used in several macros--now defined in pst-node.tex \def\PST@root{} \newcount\bsp@args @@ -31,9 +38,8 @@ \bsp@seqfalse% }% % showframe key and its default are global -\newif\ifshowframe% -\def\psset@showframe#1{\@nameuse{showframe#1}}% -\psset@showframe{false}% +\define@boolkey[psset]{pst-bspline}[Pst@]{showframe}[true]{} +\psset[pst-bspline]{showframe=false}% % %Bspline drawing macros \def\psBsplineNodes{\def\pst@par{}\pst@object{psBsplineNodes}}% @@ -93,7 +99,7 @@ % Define the left and right bezier control points in each interval. These are % denoted (root+) R0, L1, R1, L2, R2, etc \multido{\ia=0+1,\ib=1+1}{\bsp@args}{% -\ifshowframe% +\ifPst@showframe% \ncline[linestyle=dashed,linecolor=gray,arrows=*-*]{\bsp@root\ia}{\bsp@root\ib}% \fi% \nodexn{.667(\bsp@root\ia)+.333(\bsp@root\ib)}{\bsp@root R\ia}% @@ -102,11 +108,11 @@ %Finally, define the bezier endpoints for each interval \advance\bsp@args by \m@ne% \mmultido{\ia=0+1}{\bsp@args}{% -\ifshowframe% +\ifPst@showframe% \ncline[linestyle=solid,linecolor=red]{\bsp@root L\ia}{\bsp@root R\ia}% \fi% \midAB(\bsp@root L\ia)(\bsp@root R\ia){\bsp@root S\ia}% -\ifshowframe% +\ifPst@showframe% \psdot[linecolor=red](\bsp@root S\ia)% \fi% }% @@ -143,9 +149,9 @@ \advance\bsp@cntB by \@ne% \psbezier[arrows=-\bsp@arrowB,showpoints=false](\bsp@root S\the\bsp@cntA)% (\bsp@root R\the\bsp@cntA)(\bsp@root L\the\bsp@cntB)(\bsp@root S\the\bsp@cntB)% - \ifshowframe \psdot[linecolor=red](\bsp@root L\the\bsp@cntB) \fi% + \ifPst@showframe \psdot[linecolor=red](\bsp@root L\the\bsp@cntB) \fi% \fi% end \ifbsp@closed -\ifshowframe% +\ifPst@showframe% \psdot[linecolor=red](\bsp@root R0)% \psdot[linecolor=red](\bsp@root L\the\bsp@args)% \fi% -- cgit v1.2.3