From 0f5bd79518a904915f525ae67748373aa4822852 Mon Sep 17 00:00:00 2001 From: Karl Berry 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