From 0f5bd79518a904915f525ae67748373aa4822852 Mon Sep 17 00:00:00 2001
From: Karl Berry <karl@freefriends.org>
Date: Wed, 28 Jul 2021 20:46:14 +0000
Subject: pst-arrow (28jul21)

git-svn-id: svn://tug.org/texlive/trunk@60100 c570f23f-e606-0410-a88d-b1316a301751
---
 .../texmf-dist/tex/generic/pst-arrow/pst-arrow.tex | 49 +++++++++++++---------
 1 file changed, 29 insertions(+), 20 deletions(-)

(limited to 'Master/texmf-dist/tex/generic/pst-arrow/pst-arrow.tex')

diff --git a/Master/texmf-dist/tex/generic/pst-arrow/pst-arrow.tex b/Master/texmf-dist/tex/generic/pst-arrow/pst-arrow.tex
index f236aedfb6a..d5bd965bba9 100644
--- a/Master/texmf-dist/tex/generic/pst-arrow/pst-arrow.tex
+++ b/Master/texmf-dist/tex/generic/pst-arrow/pst-arrow.tex
@@ -1,4 +1,4 @@
-%% $Id: pst-arrow.tex 134 2021-07-23 06:33:54Z herbert $
+%% $Id: pst-arrow.tex 136 2021-07-28 09:39:03Z herbert $
 %%
 %% This is file `pst-arrow.tex',
 %%
@@ -22,17 +22,26 @@
 \ifx\PSTricksLoaded\endinput\else\input pstricks \fi
 \ifx\PSTXKeyLoaded\endinput\else \input pst-xkey \fi
 %
-\def\fileversion{0.02}
-\def\filedate{2021/07/21}
+\def\fileversion{0.03}
+\def\filedate{2021/07/28}
 \message{`pst-arrow' v\fileversion, \filedate\space (dr,hv)}
 %
 \edef\PstAtCode{\the\catcode`\@} \catcode`\@=11\relax
 \pst@addfams{pst-arrow}
 %
-\define@key[psset]{pst-arrow}{tipcolor}[black]{\pst@getcolor{#1}\psk@tipcolor}
-\psset[pst-arrow]{tipcolor=black}
+\define@key[psset]{pst-arrow}{tipcolor}[black]{\def\pst@tipcolor{#1}}
+\psset[pst-arrow]{tipcolor=}
 
+\def\ps@check@tipcolor{%
+  \expandafter\if\expandafter$\pst@tipcolor$
+    \pst@usecolor\pslinecolor
+  \else
+    \pst@usecolor\pst@tipcolor
+  \fi
+}
 %
+\def\tx@EndDot{ \ps@check@tipcolor\space EndDot }
+
 \def\psBigArrow{\pst@object{psBigArrow}}
 \def\psBigArrow@i(#1)(#2){%
   \addbefore@par{doublesep=1cm}
@@ -109,25 +118,25 @@
     x y L                % point #3
     { closepath gsave fill grestore } if    % if filled : close and fill
     \@nameuse{psls@\psarrowlinestyle}
-    \pst@usecolor\psk@tipcolor    
+    \ps@check@tipcolor
     stroke                % draw line
     0 t { y 2 mul } { 0 } ifelse moveto>    % if outside : twice longer line
 
 % VeeArrow : filled?   outside?   (total) angle   (projected) length   (arrow) line width
 
-\@namedef{psas@|}{\pst@usecolor\psk@tipcolor \psk@tbarsize \tx@Tbar}
+\@namedef{psas@|}{\ps@check@tipcolor \psk@tbarsize \tx@Tbar}
 
 \@namedef{psas@v}{%
-  \pst@usecolor\psk@tipcolor 
+    \ps@check@tipcolor
   false false \psk@veearrowangle \psk@veearrowlength \psk@veearrowlinewidth \tx@VeeArrow}
 \@namedef{psas@V}{%
-  \pst@usecolor\psk@tipcolor 
+    \ps@check@tipcolor
   false true \psk@veearrowangle \psk@veearrowlength \psk@veearrowlinewidth \tx@VeeArrow}
 \@namedef{psas@f}{%
-  \pst@usecolor\psk@tipcolor 
+    \ps@check@tipcolor
   true false \psk@filledveearrowangle \psk@filledveearrowlength \psk@filledveearrowlinewidth \tx@VeeArrow}
 \@namedef{psas@F}{%
-  \pst@usecolor\psk@tipcolor 
+    \ps@check@tipcolor
   true true \psk@filledveearrowangle \psk@filledveearrowlength \psk@filledveearrowlinewidth \tx@VeeArrow}
 
 % And An another arrowhead
@@ -149,13 +158,13 @@
     y neg y moveto            % point #1
     y y neg L                % point #2
     \@nameuse{psls@\psarrowlinestyle}
-    \pst@usecolor\psk@tipcolor
+    \ps@check@tipcolor
     stroke                % draw line
     0 0 moveto>                % origin
 
 
-\@namedef{psas@t}{ \pst@usecolor\psk@tipcolor\space false \psk@tickarrowlength \psk@tickarrowlinewidth \tx@TickArrow }
-\@namedef{psas@T}{ \pst@usecolor\psk@tipcolor\space true \psk@tickarrowlength \psk@tickarrowlinewidth \tx@TickArrow }
+\@namedef{psas@t}{ \ps@check@tipcolor\space false \psk@tickarrowlength \psk@tickarrowlinewidth \tx@TickArrow }
+\@namedef{psas@T}{ \ps@check@tipcolor\space true \psk@tickarrowlength \psk@tickarrowlinewidth \tx@TickArrow }
 
 \pst@def{ArrowD}< % the sides are drawn as curves (hv 20071211)
   CLW mul add dup 
@@ -175,7 +184,7 @@
   w h curveto % upper left of >
   w neg Inset neg rlineto % move to x=0 and inset
   gsave 
-  \pst@usecolor\psk@tipcolor 
+    \ps@check@tipcolor
   fill grestore >
 %
 \pst@def{ArrowT}< % like tikz
@@ -196,7 +205,7 @@
 %  CLW SLW
 %  1 0 0 setrgbcolor
   2 setlinejoin
-  \pst@usecolor\psk@tipcolor
+    \ps@check@tipcolor
   stroke
   0 0 moveto >
 %
@@ -223,7 +232,7 @@
     stroke 
     0 y moveto                % define current point
   } def
-  \pst@usecolor\psk@tipcolor
+    \ps@check@tipcolor
   \pst@number\pshooklength
   \pst@number\pshookwidth
   \tx@RHook 
@@ -237,7 +246,7 @@
     /a ED  
     w neg h abs moveto 0 0 L 
     gsave 
-    \pst@usecolor\psk@tipcolor    
+    \ps@check@tipcolor
     stroke grestore 
   } def
   0 \psk@arrowlength \psk@arrowsize \tx@Rhook 
@@ -254,14 +263,14 @@
     /a ED { 0 h T 1 -1 scale } if
     gsave
     \ifpsArrowFill\else\pst@number\pslinewidth \pst@arrowscale\space div SLW \fi
-    \pst@usecolor\psk@tipcolor    
+    \ps@check@tipcolor    
     w neg h moveto
     0 0 L w h L w neg a neg rlineto
     \ifpsArrowFill gsave 
        \tx@setStrokeTransparency
        fill  
        grestore \else gsave closepath 
-       \pst@usecolor\psk@tipcolor
+    \ps@check@tipcolor
        stroke grestore \fi
     grestore
     0 h a sub moveto
-- 
cgit v1.2.3

