pst-func (30apr16)

git-svn-id: svn://tug.org/texlive/trunk@40824 c570f23f-e606-0410-a88d-b1316a301751

1 files changed, 14 insertions, 15 deletions

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 8559a83985b..579d344acf8 100644
--- a/Master/texmf-dist/tex/generic/pst-func/pst-func.tex
+++ b/Master/texmf-dist/tex/generic/pst-func/pst-func.tex
@@ -31,8 +31,8 @@
 % interface to the `xkeyval' package
 \pst@addfams{pst-func}
 %
-\def\fileversion{0.81}
-\def\filedate{2015/05/20}
+\def\fileversion{0.82}
+\def\filedate{2016/05/01}
 \message{`PST-func' v\fileversion, \filedate\space (hv)}
 %
 \pstheader{pst-func.pro}
@@ -1216,7 +1216,7 @@
       /ip ED		% dito
       1 1 #3 {		
         dup		
-        /iqSave ED	% sabve loop value
+        /iqSave ED	% save loop value
         /iq ED		% dito
         { 
           iq 0 le { exit } if
@@ -1230,7 +1230,8 @@
             \psk@dotsize
             \@nameuse{psds@\psk@dotstyle}
             \pst@usecolor\pslinecolor xVal 1 iqSave div \tx@ScreenCoor            
-            2 copy moveto Dot } if } if
+            2 copy pop 0 moveto lineto } if } if
+%            2 copy moveto Dot } if } if
         } if
       } for 
     } for
@@ -1272,7 +1273,7 @@
 \define@boolkey[psset]{pst-func}[Pst@]{onlyNode}[true]{}
 \define@boolkey[psset]{pst-func}[Pst@]{onlyYVal}[true]{}
 \define@boolkey[psset]{pst-func}[Pst@]{originV}[true]{}
-\define@key[psset]{pst-func}{PointName}[]{\def\psk@PointName{#1}}
+\define@key[psset]{pst-func}{PointName}[]{\def\psk@func@PointName{#1}}
 \define@key[psset]{pst-func}{ydecimals}[2]{\pst@getint{#1}\psk@ydecimals }
 \psset[pst-func]{originV=false,onlyNode=false,ydecimals=2,
   PrintCoord=false,onlyYVal=false,Newton=false,PointName=I,
@@ -1376,17 +1377,15 @@
   \fi
   \pst@usecolor\pslinecolor
   \ifPst@PrintCoord
-  moveto schrift (\psk@PointName) show
-  0 spdy 2 mul neg rmoveto TiefSchrift (\psk@postString) show
-  0 spdy 3 mul rmoveto symb (\string\050) show
-  0 spdy neg rmoveto schrift xM Wert
-  spdx 3 div spdy rmoveto symb (\string\174) show
-  spdx 3 div spdy neg rmoveto yM yWert 0 spdy rmoveto symb (\string\051) show
+    moveto schrift (\psk@func@PointName) show
+    0 spdy 2 mul neg rmoveto TiefSchrift (\psk@postString) show
+    0 spdy 3 mul rmoveto symb (\string\050) show
+    0 spdy neg rmoveto schrift xM Wert
+    spdx 3 div spdy rmoveto symb (\string\174) show
+    spdx 3 div spdy neg rmoveto yM yWert 0 spdy rmoveto symb (\string\051) show
   \else
-  \ifPst@onlyYVal
-  moveto schrift yM yWert \else
-  moveto schrift xM Wert
-  \fi\fi\fi}%
+    \ifPst@onlyYVal moveto schrift yM yWert \else  moveto schrift xM Wert \fi
+  \fi\fi}%
  \ifPst@markZeros \psdot(#5)\fi
 \endgroup\use@pscode\ignorespaces
 }%