From 9067dbc55f799decd298be064b44fc8b11ee0a8d Mon Sep 17 00:00:00 2001
From: Karl Berry <karl@freefriends.org>
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