From 9067dbc55f799decd298be064b44fc8b11ee0a8d Mon Sep 17 00:00:00 2001 From: Karl Berry Date: Sat, 20 Aug 2011 21:32:32 +0000 Subject: pst-bspline 1.44 (20aug11) git-svn-id: svn://tug.org/texlive/trunk@23622 c570f23f-e606-0410-a88d-b1316a301751 --- Master/texmf-dist/tex/generic/pst-bspline/pst-bspline.tex | 14 +++++++------- 1 file changed, 7 insertions(+), 7 deletions(-) (limited to 'Master/texmf-dist/tex/generic/pst-bspline') 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 a16112455a1..88a84514d8c 100644 --- a/Master/texmf-dist/tex/generic/pst-bspline/pst-bspline.tex +++ b/Master/texmf-dist/tex/generic/pst-bspline/pst-bspline.tex @@ -9,7 +9,7 @@ \ifx\PSTnodeLoaded\endinput \else\input pst-node \fi \ifx\PSTXKeyLoaded\endinput \else\input pst-xkey \fi \def\fileversion{1.44} -\def\filedate{2011/07/29} +\def\filedate{2011/08/19} \message{`pst-bspline' v\fileversion, \filedate\space Bspline routines for pstricks (ms)} % @@ -439,7 +439,6 @@ \edef\bsp@nsegs{\the\bsp@numndx}%\show\bsp@nsegs% \advance\pst@cnta by \@ne\relax%=(plotpoints-1)*nsegs+1 \edef\@arraysize{\the\pst@cnta}% -% \show\@arraysize \pstVerb{ tx@Dict begin % /psxu \pst@number\psxunit\space def /psyu \pst@number\psyunit\space def % /unitratio \pst@number\psyunit \pst@number\psxunit div def % @@ -454,8 +453,8 @@ /theseg 0 def %\the\bsp@numndx\space 1 sub def % bsp@desc theseg get % the first segment /cnt 1 def % counter for arrays - dup dup dup 8 get psxu mul 4 1 roll 4 get psyu mul 3 1 roll % - 9 get exch 5 get %4 copy = = = = % initial x, y, x', y' + dup dup dup 8 get 4 1 roll 4 get 3 1 roll % + 9 get exch 5 get % initial x, y, x', y' unitratiosq mul neg #4Normal.X 0 3 -1 roll put #4Normal.Y 0 3 -1 roll put % 2 copy #4.Y 0 3 -1 roll put #4.X 0 3 -1 roll put % /priory ED /priorx ED % arrays now initialized @@ -463,8 +462,8 @@ bsp@desc theseg get aload pop /x3 ED /x2 ED /x1 ED /x0 ED % /y3 ED /y2 ED /y1 ED /y0 ED % /xT3 ED /xT2 ED /yT3 ED /yT2 ED % - /Func ( x3 t mul x2 add t mul x1 add t mul x0 add psxu mul % - y3 t mul y2 add t mul y1 add t mul y0 add psyu mul ) cvx def % + /Func ( x3 t mul x2 add t mul x1 add t mul x0 add % + y3 t mul y2 add t mul y1 add t mul y0 add ) cvx def % /FuncN ( yT2 t yT3 mul add t mul y1 add unitratiosq mul neg % xT2 t xT3 mul add t mul x1 add ) cvx def % /theseg theseg 1 add def % @@ -522,7 +521,8 @@ % \def\bspcurvenodes#1#2{% %#1= basename for points on curve, #2=basename for nodes -\multido{\iA=0+1}{\csname #1pointcount\endcsname}{% +\bsp@cntA=\csname #1pointcount\endcsname \advance\bsp@cntA \@ne % +\multido{\iA=0+1}{\bsp@cntA}{% \pnode(! #1.X \iA\space get #1.Y \iA\space get ){#2\iA}}% }% % -- cgit v1.2.3