texlive[49790] Master/texmf-dist: pstricks (22jan19)

commits+karl at tug.org commits+karl at tug.org
Tue Jan 22 23:18:58 CET 2019 

Revision: 49790
          http://tug.org/svn/texlive?view=revision&revision=49790
Author:   karl
Date:     2019-01-22 23:18:58 +0100 (Tue, 22 Jan 2019)
Log Message:
-----------
pstricks (22jan19)

Modified Paths:
--------------
    trunk/Master/texmf-dist/doc/generic/pstricks/README
    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.def
    trunk/Master/texmf-dist/tex/generic/pstricks/pstricks.tex

Modified: trunk/Master/texmf-dist/doc/generic/pstricks/README
===================================================================
--- trunk/Master/texmf-dist/doc/generic/pstricks/README	2019-01-22 22:18:43 UTC (rev 49789)
+++ trunk/Master/texmf-dist/doc/generic/pstricks/README	2019-01-22 22:18:58 UTC (rev 49790)
@@ -5,10 +5,9 @@
 Either version 1.3 or, at your option, any later version.
 
 -----------------------------------------------------------------------
-PSTricks is the original work of Timothy van Zandt <tvz at econ.insead.fr>
+PSTricks is the original work of Timothy van Zandt
 
-PSTricks 97 is edited by Denis Girou <Denis.Girou at idris.fr>
-and Sebastian Rahtz <sebastian.rahtz at computing-services.oxford.ac.uk>
+PSTricks 97 is edited by Denis Girou and Sebastian Rahtz 
 
 PSTricks 2004 is edited by Herbert Voss <hvoss at tug.org>
 and Rolf Niepraschk <Rolf.Niepraschk at ptb.de>

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-22 22:18:43 UTC (rev 49789)
+++ trunk/Master/texmf-dist/doc/generic/pstricks/pst-news19.tex	2019-01-22 22:18:58 UTC (rev 49790)
@@ -1,4 +1,4 @@
-%% $Id: pst-news19.tex 900 2019-01-10 11:11:13Z herbert $
+%% $Id: pst-news19.tex 905 2019-01-13 13:15:30Z herbert $
 \documentclass[11pt,english,BCOR=10mm,DIV=12,bibliography=totoc,parskip=false,headings=small,
     headinclude=false,footinclude=false,twoside]{pst-doc}
 \listfiles
@@ -64,15 +64,16 @@
 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$}
+\Lcs{psLine}\OptArgs\OptArg{\Largr{$x_0,y_0$}}\Largr{$x_1,y_1$}\\
+\Lcs{psLineSegments}\OptArgs\Largr{$x_0,y_0$}\Largr{$x_1,y_1$}\ldots\Largr{$x_{n-1},y_{n-1}$}\Largr{$x_n,y_n$}
 \end{BDef}
 
-If $P_0$ is missing, then $(0,0)$ as first point is assumed.
+If $P_0$ is missing for \Lcs{psLine} then $(0,0)$ as first point is assumed. \Lcs{psLineSegments} expects always
+pairwise coordinates.
 
 
-
 \begin{LTXexample}[width=7cm]
-\psset{unit=2.5cm}
+\psset{unit=2cm}
 \begin{pspicture}(-1,-1)(1,1)
 \degrees[12]
  \pscircle{1}
@@ -89,6 +90,17 @@
 \end{pspicture}
 \end{LTXexample}
 
+
+\begin{LTXexample}[width=4cm]
+\psset{unit=0.5cm}
+\begin{pspicture}(6,6)
+\psLineSegments[linecolor=blue]{->}(0,0)(0,1)(0,2)(0,3)(0,4)(1,4)%
+     (3,4)(4,4)(4,3)(4,1)(4,0)(2,0)
+\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.def
===================================================================
--- trunk/Master/texmf-dist/tex/generic/pstricks/pstricks-tex.def	2019-01-22 22:18:43 UTC (rev 49789)
+++ trunk/Master/texmf-dist/tex/generic/pstricks/pstricks-tex.def	2019-01-22 22:18:58 UTC (rev 49790)
@@ -1,4 +1,4 @@
-%% $Id: pstricks-tex.def 704 2018-01-06 09:50:33Z herbert $
+%% $Id: pstricks-tex.def 909 2019-01-14 16:06:51Z herbert $
 %% pstricks-tex.def
 %% Copyright 2017-  Herbert Voss
 %
@@ -65,7 +65,7 @@
     \ifx\@tempc\@sptoken \let\@tempd\@xifnch
     \else\ifx\@tempc\@tempe \let\@tempd\@tempa \else \let\@tempd\@tempb \fi
     \fi
-    \@tempd%
+    \@tempd
   }%
   \begingroup
   \def\:{\global\let\@sptoken= } \:

Modified: trunk/Master/texmf-dist/tex/generic/pstricks/pstricks.tex
===================================================================
--- trunk/Master/texmf-dist/tex/generic/pstricks/pstricks.tex	2019-01-22 22:18:43 UTC (rev 49789)
+++ trunk/Master/texmf-dist/tex/generic/pstricks/pstricks.tex	2019-01-22 22:18:58 UTC (rev 49790)
@@ -1,4 +1,4 @@
-%% $Id: pstricks.tex 895 2019-01-07 17:56:36Z herbert $
+%% $Id: pstricks.tex 917 2019-01-22 16:27:48Z herbert $
 %% pstricks.tex
 %% COPYRIGHT 1993, 1994, 1999 by Timothy Van Zandt
 %% COPYRIGHT 2000-2003 by Denis Girou.
@@ -70,8 +70,9 @@
   \XKV at tempa
 }
 %
-\def\ProvidesPackageRCS{\@ifnextchar[\ProvidesPackageRCS at i{\ProvidesPackageRCS at i[] }}%$
-\def\ProvidesPackageRCS at i[#1]#2{}
+\def\ProvidesPackageRCS#1{\typeout{Loading #1}}%
+%\@ifnextchar[\ProvidesPackageRCS at i{\ProvidesPackageRCS at i[] }}%$
+%\def\ProvidesPackageRCS at i[#1]#2{}
 
 \ifx\pgfkeysloaded\endinput\else 
   \input pgfutil-common.tex
@@ -80,8 +81,8 @@
 \fi
 \let\pgfforeach\foreach
 %
-\def\fileversion{2.94}
-\def\filedate{2019/01/07}
+\def\fileversion{2.95}
+\def\filedate{2019/01/22}
 \pst at addfams{pstricks}
 %
 %\define at boolkey[psset]{pstricks}[Pst@]{useURWfonts}[true]{}
@@ -2518,8 +2519,8 @@
     \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
+  \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
@@ -2530,9 +2531,33 @@
       { pop pop pop pop pop } ifelse
     }%
   \end at OpenObj
+  \ignorespaces
 }
-
-%
+\def\psLineSegments{\leavevmode\pst at killglue\pst at object{psLineSegments}}
+\def\psLineSegments at i{\pst at getarrows{\psLineSegments at ii}}
+\def\psLineSegments at ii(#1)(#2){%
+  \begingroup
+  \use at keep@par
+  \solid at star
+  \ifpsdoubleline\pst at setdoublesep\fi
+  \init at pscode
+  \let\pst at linetype\pst at arrowtype
+  \pst at addarrowdef
+  \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
+  \ignorespaces
+  \@ifnextchar(\psLineSegments at ii{}%
+}%
 \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%
@@ -3753,6 +3778,7 @@
 \def\pscircle at do(#1)#2{%
   \if at star{\use at par\qdisk(#1){#2}}%   	qdisk does not allow
   \else%				to use opacity option
+    \addbefore at par{dimen=middle}%
     \begin at ClosedObj
     \pst@@getcoor{#1}%
     \pssetlength\pst at dimc{#2}%
@@ -3774,6 +3800,7 @@
 %
 \def\pscircleOA{\def\pst at par{}\pst at object{pscircleOA}}%	hv 2008-04-14
 \def\pscircleOA at i(#1)(#2){%
+  \addbefore at par{dimen=middle}%
   \begin at ClosedObj
   \pst at getcoor{#1}\pst at tempA
   \pst@@getcoor{#2}%

More information about the tex-live-commits mailing list