texlive[59402] Master/texmf-dist: pstricks (31may21)

[commits+karl at tug.org]

Revision: 59402
          http://tug.org/svn/texlive?view=revision&revision=59402
Author:   karl
Date:     2021-05-31 22:21:26 +0200 (Mon, 31 May 2021)
Log Message:
-----------
pstricks (31may21)

Modified Paths:
--------------
    trunk/Master/texmf-dist/dvips/pstricks/pstricks.pro
    trunk/Master/texmf-dist/tex/generic/pstricks/pstricks.tex

Modified: trunk/Master/texmf-dist/dvips/pstricks/pstricks.pro
===================================================================
--- trunk/Master/texmf-dist/dvips/pstricks/pstricks.pro	2021-05-30 23:48:42 UTC (rev 59401)
+++ trunk/Master/texmf-dist/dvips/pstricks/pstricks.pro	2021-05-31 20:21:26 UTC (rev 59402)
@@ -1,7 +1,7 @@
-% $Id: pstricks.pro 1055 2019-05-16 11:59:06Z herbert $
+% $Id: pstricks.pro 68 2021-04-08 06:41:14Z herbert $
 %
 %% PostScript prologue for pstricks.tex.
-%% Version 1.34, 2021/03/30
+%% Version 1.35, 2021/05/21
 %%
 %% This program can be redistributed and/or modified under the terms
 %% of the LaTeX Project Public License Distributed from CTAN archives
@@ -460,6 +460,28 @@
   gsave fill grestore 
 } def 
 %
+/ArrowT { % like tikz
+  CLW mul add dup 
+  2 div /w ED 
+  mul dup /h ED 
+  mul /Inset ED 
+  { 0 h T 1 -1 scale } if % changes the direction
+  w 2 mul /w exch def
+  w neg h moveto % lower left of >
+  w 9 div 4 mul neg h 3 div 2 mul
+  w 9 div neg       h 3 div  
+  0 0 curveto    % tip of >
+  w 9 div        h 3 div  
+  w 9 div 4 mul  h 3 div 2 mul
+  w h curveto % upper left of >
+%  w neg Inset neg rlineto % move to x=0 and inset
+%  CLW SLW
+%  1 0 0 setrgbcolor
+  2 setlinejoin
+  stroke
+  0 0 moveto
+} def 
+%
 /Tbar { 
   CLW mul add /z ED 
   z -2 div CLW 2 div moveto 

Modified: trunk/Master/texmf-dist/tex/generic/pstricks/pstricks.tex
===================================================================
--- trunk/Master/texmf-dist/tex/generic/pstricks/pstricks.tex	2021-05-30 23:48:42 UTC (rev 59401)
+++ trunk/Master/texmf-dist/tex/generic/pstricks/pstricks.tex	2021-05-31 20:21:26 UTC (rev 59402)
@@ -80,8 +80,8 @@
 \fi
 \let\pgfforeach\foreach
 %
-\def\fileversion{3.01a}
-\def\filedate{2021/03/30}
+\def\fileversion{3.02}
+\def\filedate{2021/05/31}
 \pst at addfams{pstricks}
 %
 %\define at boolkey[psset]{pstricks}[Pst@]{useURWfonts}[true]{}
@@ -1485,7 +1485,7 @@
 %
 \def\psk at arrowA{}
 \def\psk at arrowB{}
-\def\pst at arrowtable{,-,<->,<<->>,>-<,>>-<<,(-),[-],)-(,]-[,|>-<|,<D-D>,D>-<D,<D<D-D>D>} % hv --1.16
+\def\pst at arrowtable{,-,<->,<<->>,>-<,>>-<<,(-),[-],)-(,]-[,|>-<|,<D-D>,D>-<D,<D<D-D>D>,<T-T>} % hv --1.16
 \edef\pst at arrowtable{\pst at arrowtable,|<*->|*,|<->|}
 \begingroup
   \catcode`\<=13
@@ -1498,6 +1498,7 @@
 %
 \def\tx at Arrow{ \tx at setStrokeTransparency Arrow }% hv 2008-01-13
 \def\tx at ArrowD{ \tx at setStrokeTransparency ArrowD }% hv 2008-01-13
+\def\tx at ArrowT{ \tx at setStrokeTransparency ArrowT }% hv 2021-05-31
 %
 \@namedef{psas@<|}{ 
     \psk at tbarsize\space \tx at Tbar
@@ -1575,6 +1576,11 @@
   CP newpath moveto 0 a neg L stroke 0 h neg T
   true \psk at arrowinset \psk at arrowlength \psk at arrowsize \tx at ArrowD
 }
+\@namedef{psas at T>}{ false \psk at arrowinset \psk at arrowlength \psk at arrowsize \tx at ArrowT }%	hv 20210531
+\@namedef{psas@<T}{ %	hv 20071211
+  true \psk at arrowinset \psk at arrowlength \psk at arrowsize \tx at ArrowT
+}
+
 \define at key[psset]{pstricks}{tbarsize}[2pt 5]{%
   \pst at expandafter\pst at getdimnum{#1} 0 {} {}\@nil
   \edef\psk at tbarsize{\pst at number\pst at dimg \pst at tempg}}