From 0f69e2fd4a9928663f0cc64b8cac1f0d8baee9d6 Mon Sep 17 00:00:00 2001 From: Norbert Preining Date: Tue, 1 Jun 2021 03:00:58 +0000 Subject: CTAN sync 202106010300 --- graphics/pstricks/base/dvips/pstricks.pro | 26 ++++++++++++++++++++++++-- 1 file changed, 24 insertions(+), 2 deletions(-) (limited to 'graphics/pstricks/base/dvips') diff --git a/graphics/pstricks/base/dvips/pstricks.pro b/graphics/pstricks/base/dvips/pstricks.pro index 823fa1e8e7..a54aed45d2 100644 --- a/graphics/pstricks/base/dvips/pstricks.pro +++ b/graphics/pstricks/base/dvips/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