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 ++++++++++++++++++++++++-- 1 file changed, 24 insertions(+), 2 deletions(-) (limited to 'Master/texmf-dist/dvips') 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 -- cgit v1.2.3