texlive[49659] Master/texmf-dist: pstricks (10jan19)

[commits+karl at tug.org]

Revision: 49659
          http://tug.org/svn/texlive?view=revision&revision=49659
Author:   karl
Date:     2019-01-10 23:17:50 +0100 (Thu, 10 Jan 2019)
Log Message:
-----------
pstricks (10jan19)

Modified Paths:
--------------
    trunk/Master/texmf-dist/doc/generic/pstricks/pst-news19.pdf
    trunk/Master/texmf-dist/doc/generic/pstricks/pst-news19.tex
    trunk/Master/texmf-dist/tex/generic/pstricks/pstricks.tex

Modified: trunk/Master/texmf-dist/doc/generic/pstricks/pst-news19.pdf
===================================================================
(Binary files differ)

Modified: trunk/Master/texmf-dist/doc/generic/pstricks/pst-news19.tex
===================================================================
--- trunk/Master/texmf-dist/doc/generic/pstricks/pst-news19.tex	2019-01-10 18:49:48 UTC (rev 49658)
+++ trunk/Master/texmf-dist/doc/generic/pstricks/pst-news19.tex	2019-01-10 22:17:50 UTC (rev 49659)
@@ -1,4 +1,4 @@
-%% $Id: pst-news17.tex 699 2017-12-31 10:27:45Z herbert $
+%% $Id: pst-news19.tex 900 2019-01-10 11:11:13Z herbert $
 \documentclass[11pt,english,BCOR=10mm,DIV=12,bibliography=totoc,parskip=false,headings=small,
     headinclude=false,footinclude=false,twoside]{pst-doc}
 \listfiles
@@ -52,10 +52,43 @@
 
 
 %--------------------------------------------------------------------------------------
-\section{\texttt{pstricks.tex} (v. 2.93 -- 2019/01/07)}
+\section{\texttt{pstricks.tex} (v. 2.94 -- 2019/01/07)}
 %--------------------------------------------------------------------------------------
 
+There is a new macro called \Lcs{psLine} (uppercase L!) which can have
+only one or two pairs of coordinates. Remember that \Lcs{psline} can have more.
+With \Lcs{psLine} and an defined arrow you'll get nothing for something
+like \verb|\psLine{->}{1,1)(1,1)|, whereas \Lcs{psline} will output the arrowtip!
+This behaviour of \Lcs{psLine} maybe helpful for animations where a speedvector
+or a vector
+is  shown with its components and one do not really knows the coordinates.
 
+\begin{BDef}
+\Lcs{psLine}\OptArgs\OptArg{\Largb{$x_0,y_0$}}\Largb{$x_1,y_1$}
+\end{BDef}
+
+If $P_0$ is missing, then $(0,0)$ as first point is assumed.
+
+
+
+\begin{LTXexample}[width=7cm]
+\psset{unit=2.5cm}
+\begin{pspicture}(-1,-1)(1,1)
+\degrees[12]
+ \pscircle{1}
+  \multido{\iA=0+1,\iB=3+1}{12}{%
+    \pnode(1;\iA){R}
+    \psLine[linecolor=gray,linestyle=dashed,
+       linewidth=0.4pt](R)
+    \psset{arrows=->,arrowscale=1.5,linewidth=1.5pt}
+    \rput(R){%
+      \psLine[linecolor=blue]({1;\iB}|0,0)
+      \psLine[linecolor=red](0,0|{1;\iB})
+      \psLine(1;\iB)}%
+}
+\end{pspicture}
+\end{LTXexample}
+
 \subsection{Error message}
 
 Using PSTricks with \Lprog{pdflatex} will work only when using package

Modified: trunk/Master/texmf-dist/tex/generic/pstricks/pstricks.tex
===================================================================
--- trunk/Master/texmf-dist/tex/generic/pstricks/pstricks.tex	2019-01-10 18:49:48 UTC (rev 49658)
+++ trunk/Master/texmf-dist/tex/generic/pstricks/pstricks.tex	2019-01-10 22:17:50 UTC (rev 49659)
@@ -1,8 +1,8 @@
-%% $Id: pstricks.tex 887 2018-12-29 13:17:59Z herbert $
+%% $Id: pstricks.tex 895 2019-01-07 17:56:36Z herbert $
 %% pstricks.tex
-%% COPYRIGHT 1993, 1994, 1999 by Timothy Van Zandt, tvz at nwu.edu.
+%% COPYRIGHT 1993, 1994, 1999 by Timothy Van Zandt
 %% COPYRIGHT 2000-2003 by Denis Girou.
-%% Copyright 2004-2019 Herbert Voss
+%% Copyright 2004-2019 Herbert Voss <hvoss at tug.org>
 %
 % This work may be distributed and/or modified under the
 % conditions of the LaTeX Project Public License, either version 1.3
@@ -2511,6 +2511,28 @@
   \ifshowpoints true \else false \fi
 }
 %
+\def\psLine{\pst at object{psLine}}
+\def\psLine at i{%
+  \pst at getarrows{%
+    \begin at OpenObj
+    \psLine at ii}}
+\def\psLine at ii(#1){\@ifnextchar({\psLine at iii(#1)}{\psLine at iii(0,0)(#1)}}%
+\def\psLine at iii(#1)(#2){%
+  \pst at getcoor{#1}\pst at tempA
+  \pst at getcoor{#2}\pst at tempB
+  \addto at pscode{
+    \ifPst at noCurrentPoint\else\pst at cp\fi 	  % current point?
+    [ % start for coordinate array
+    \pst at tempB 
+    \pst at tempA  % order vice versa
+    4 copy Pyth2 \psk at arrowlength ge 
+      { \psline at iii \tx at Line } 
+      { pop pop pop pop pop } ifelse
+    }%
+  \end at OpenObj
+}
+
+%
 \def\pst at isnum#1{\pst at isnum@i\zap at space#1 \@empty\@nil}%
 \def\pst at isnum@i#1\@nil{%
   \if!\ifnum9<1#1!\else_\fi%