summaryrefslogtreecommitdiff
path: root/Master/texmf-dist/tex/generic/pst-bspline
diff options
context:
space:
mode:
authorKarl Berry <karl@freefriends.org>2011-08-20 21:32:32 +0000
committerKarl Berry <karl@freefriends.org>2011-08-20 21:32:32 +0000
commit9067dbc55f799decd298be064b44fc8b11ee0a8d (patch)
tree24f46d9d12558ce8d6e6519a4cd6b41edaa66025 /Master/texmf-dist/tex/generic/pst-bspline
parent7a9971d09aa889f7fc85a81301a6e8c52393287d (diff)
pst-bspline 1.44 (20aug11)
git-svn-id: svn://tug.org/texlive/trunk@23622 c570f23f-e606-0410-a88d-b1316a301751
Diffstat (limited to 'Master/texmf-dist/tex/generic/pst-bspline')
-rw-r--r--Master/texmf-dist/tex/generic/pst-bspline/pst-bspline.tex14
1 files changed, 7 insertions, 7 deletions
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}}%
}%
%