From 7ebd673c159df9ff99861be49e0d9cbcb684399b Mon Sep 17 00:00:00 2001 From: Karl Berry Date: Mon, 31 May 2021 20:21:26 +0000 Subject: pstricks (31may21) git-svn-id: svn://tug.org/texlive/trunk@59402 c570f23f-e606-0410-a88d-b1316a301751 --- Master/texmf-dist/dvips/pstricks/pstricks.pro | 26 ++++++++++++++++++++-- .../texmf-dist/tex/generic/pstricks/pstricks.tex | 12 +++++++--- 2 files changed, 33 insertions(+), 5 deletions(-) (limited to 'Master/texmf-dist') diff --git a/Master/texmf-dist/dvips/pstricks/pstricks.pro b/Master/texmf-dist/dvips/pstricks/pstricks.pro index 823fa1e8e7a..a54aed45d2b 100644 --- a/Master/texmf-dist/dvips/pstricks/pstricks.pro +++ b/Master/texmf-dist/dvips/pstricks/pstricks.pro @@ -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 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 diff --git a/Master/texmf-dist/tex/generic/pstricks/pstricks.tex b/Master/texmf-dist/tex/generic/pstricks/pstricks.tex index 57dbfd33dd6..52a58656555 100644 --- a/Master/texmf-dist/tex/generic/pstricks/pstricks.tex +++ b/Master/texmf-dist/tex/generic/pstricks/pstricks.tex @@ -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@addfams{pstricks} % %\define@boolkey[psset]{pstricks}[Pst@]{useURWfonts}[true]{} @@ -1485,7 +1485,7 @@ % \def\psk@arrowA{} \def\psk@arrowB{} -\def\pst@arrowtable{,-,<->,<<->>,>-<,>>-<<,(-),[-],)-(,]-[,|>-<|,,D>-D>} % hv --1.16 +\def\pst@arrowtable{,-,<->,<<->>,>-<,>>-<<,(-),[-],)-(,]-[,|>-<|,,D>-D>,} % hv --1.16 \edef\pst@arrowtable{\pst@arrowtable,|<*->|*,|<->|} \begingroup \catcode`\<=13 @@ -1498,6 +1498,7 @@ % \def\tx@Arrow{ \tx@setStrokeTransparency Arrow }% hv 2008-01-13 \def\tx@ArrowD{ \tx@setStrokeTransparency ArrowD }% hv 2008-01-13 +\def\tx@ArrowT{ \tx@setStrokeTransparency ArrowT }% hv 2021-05-31 % \@namedef{psas@<|}{ \psk@tbarsize\space \tx@Tbar @@ -1575,6 +1576,11 @@ CP newpath moveto 0 a neg L stroke 0 h neg T true \psk@arrowinset \psk@arrowlength \psk@arrowsize \tx@ArrowD } +\@namedef{psas@T>}{ false \psk@arrowinset \psk@arrowlength \psk@arrowsize \tx@ArrowT }% hv 20210531 +\@namedef{psas@