texlive[60100] Master/texmf-dist: pst-arrow (28jul21)
commits+karl at tug.org
commits+karl at tug.org
Wed Jul 28 22:46:14 CEST 2021
Revision: 60100
http://tug.org/svn/texlive?view=revision&revision=60100
Author: karl
Date: 2021-07-28 22:46:14 +0200 (Wed, 28 Jul 2021)
Log Message:
-----------
pst-arrow (28jul21)
Modified Paths:
--------------
trunk/Master/texmf-dist/doc/generic/pst-arrow/Changes
trunk/Master/texmf-dist/doc/generic/pst-arrow/README
trunk/Master/texmf-dist/doc/generic/pst-arrow/pst-arrow-doc.pdf
trunk/Master/texmf-dist/doc/generic/pst-arrow/pst-arrow-doc.tex
trunk/Master/texmf-dist/tex/generic/pst-arrow/pst-arrow.tex
trunk/Master/texmf-dist/tex/latex/pst-arrow/pst-arrow.sty
Modified: trunk/Master/texmf-dist/doc/generic/pst-arrow/Changes
===================================================================
--- trunk/Master/texmf-dist/doc/generic/pst-arrow/Changes 2021-07-28 20:46:00 UTC (rev 60099)
+++ trunk/Master/texmf-dist/doc/generic/pst-arrow/Changes 2021-07-28 20:46:14 UTC (rev 60100)
@@ -1,4 +1,4 @@
-%% $Id: Changes 134 2021-07-23 06:33:54Z herbert $
+%% $Id: Changes 136 2021-07-28 09:39:03Z herbert $
%%
pst-arrow.sty -----------
v. 0.01 2016-09-09 initial version
@@ -5,5 +5,7 @@
pst-arrow.tex ----------- (hv)
+ v. 0.03 2021-07-28 - fix introduced bug for linecolor which schould not
+ be affected by tipcolor
v. 0.02 2021-07-23 - added tipcolor option
v. 0.01 2016-09-09 initial version
Modified: trunk/Master/texmf-dist/doc/generic/pst-arrow/README
===================================================================
--- trunk/Master/texmf-dist/doc/generic/pst-arrow/README 2021-07-28 20:46:00 UTC (rev 60099)
+++ trunk/Master/texmf-dist/doc/generic/pst-arrow/README 2021-07-28 20:46:14 UTC (rev 60100)
@@ -15,4 +15,4 @@
hvoss at tug.org
-# $Id: README 134 2021-07-23 06:33:54Z herbert $
+# $Id: README 136 2021-07-28 09:39:03Z herbert $
Modified: trunk/Master/texmf-dist/doc/generic/pst-arrow/pst-arrow-doc.pdf
===================================================================
(Binary files differ)
Modified: trunk/Master/texmf-dist/doc/generic/pst-arrow/pst-arrow-doc.tex
===================================================================
--- trunk/Master/texmf-dist/doc/generic/pst-arrow/pst-arrow-doc.tex 2021-07-28 20:46:00 UTC (rev 60099)
+++ trunk/Master/texmf-dist/doc/generic/pst-arrow/pst-arrow-doc.tex 2021-07-28 20:46:14 UTC (rev 60100)
@@ -1,4 +1,4 @@
-%% $Id: pst-arrow-doc.tex 134 2021-07-23 06:33:54Z herbert $
+%% $Id: pst-arrow-doc.tex 136 2021-07-28 09:39:03Z herbert $
\documentclass[11pt,english,BCOR10mm,DIV14,bibliography=totoc,parskip=false,smallheadings
headexclude,footexclude,twoside]{pst-doc}
\usepackage[utf8]{inputenc}
@@ -353,7 +353,7 @@
\begin{center}
\bgroup
- \psset{linecolor=green,linewidth=1pt,arrowscale=2}%
+ \psset{linecolor=black,linewidth=1pt,arrowscale=2}%
\begin{tabular}{lp{2.8cm}}%
Value & Example \\[2pt]\hline
\rlap{\texttt{\textbackslash psset\{tipcolor=red\}}}\\
Modified: trunk/Master/texmf-dist/tex/generic/pst-arrow/pst-arrow.tex
===================================================================
--- trunk/Master/texmf-dist/tex/generic/pst-arrow/pst-arrow.tex 2021-07-28 20:46:00 UTC (rev 60099)
+++ trunk/Master/texmf-dist/tex/generic/pst-arrow/pst-arrow.tex 2021-07-28 20:46:14 UTC (rev 60100)
@@ -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 at addfams{pst-arrow}
%
-\define at key[psset]{pst-arrow}{tipcolor}[black]{\pst at getcolor{#1}\psk at tipcolor}
-\psset[pst-arrow]{tipcolor=black}
+\define at key[psset]{pst-arrow}{tipcolor}[black]{\def\pst at tipcolor{#1}}
+\psset[pst-arrow]{tipcolor=}
+\def\ps at check@tipcolor{%
+ \expandafter\if\expandafter$\pst at tipcolor$
+ \pst at usecolor\pslinecolor
+ \else
+ \pst at usecolor\pst at tipcolor
+ \fi
+}
%
+\def\tx at EndDot{ \ps at check@tipcolor\space EndDot }
+
\def\psBigArrow{\pst at object{psBigArrow}}
\def\psBigArrow at i(#1)(#2){%
\addbefore at 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 at usecolor\psk at tipcolor
+ \ps at 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 at usecolor\psk at tipcolor \psk at tbarsize \tx at Tbar}
+\@namedef{psas@|}{\ps at check@tipcolor \psk at tbarsize \tx at Tbar}
\@namedef{psas at v}{%
- \pst at usecolor\psk at tipcolor
+ \ps at check@tipcolor
false false \psk at veearrowangle \psk at veearrowlength \psk at veearrowlinewidth \tx at VeeArrow}
\@namedef{psas at V}{%
- \pst at usecolor\psk at tipcolor
+ \ps at check@tipcolor
false true \psk at veearrowangle \psk at veearrowlength \psk at veearrowlinewidth \tx at VeeArrow}
\@namedef{psas at f}{%
- \pst at usecolor\psk at tipcolor
+ \ps at check@tipcolor
true false \psk at filledveearrowangle \psk at filledveearrowlength \psk at filledveearrowlinewidth \tx at VeeArrow}
\@namedef{psas at F}{%
- \pst at usecolor\psk at tipcolor
+ \ps at check@tipcolor
true true \psk at filledveearrowangle \psk at filledveearrowlength \psk at filledveearrowlinewidth \tx at 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 at usecolor\psk at tipcolor
+ \ps at check@tipcolor
stroke % draw line
0 0 moveto> % origin
-\@namedef{psas at t}{ \pst at usecolor\psk at tipcolor\space false \psk at tickarrowlength \psk at tickarrowlinewidth \tx at TickArrow }
-\@namedef{psas at T}{ \pst at usecolor\psk at tipcolor\space true \psk at tickarrowlength \psk at tickarrowlinewidth \tx at TickArrow }
+\@namedef{psas at t}{ \ps at check@tipcolor\space false \psk at tickarrowlength \psk at tickarrowlinewidth \tx at TickArrow }
+\@namedef{psas at T}{ \ps at check@tipcolor\space true \psk at tickarrowlength \psk at tickarrowlinewidth \tx at TickArrow }
\pst at 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 at usecolor\psk at tipcolor
+ \ps at check@tipcolor
fill grestore >
%
\pst at def{ArrowT}< % like tikz
@@ -196,7 +205,7 @@
% CLW SLW
% 1 0 0 setrgbcolor
2 setlinejoin
- \pst at usecolor\psk at tipcolor
+ \ps at check@tipcolor
stroke
0 0 moveto >
%
@@ -223,7 +232,7 @@
stroke
0 y moveto % define current point
} def
- \pst at usecolor\psk at tipcolor
+ \ps at check@tipcolor
\pst at number\pshooklength
\pst at number\pshookwidth
\tx at RHook
@@ -237,7 +246,7 @@
/a ED
w neg h abs moveto 0 0 L
gsave
- \pst at usecolor\psk at tipcolor
+ \ps at check@tipcolor
stroke grestore
} def
0 \psk at arrowlength \psk at arrowsize \tx at Rhook
@@ -254,7 +263,7 @@
/a ED { 0 h T 1 -1 scale } if
gsave
\ifpsArrowFill\else\pst at number\pslinewidth \pst at arrowscale\space div SLW \fi
- \pst at usecolor\psk at tipcolor
+ \ps at check@tipcolor
w neg h moveto
0 0 L w h L w neg a neg rlineto
\ifpsArrowFill gsave
@@ -261,7 +270,7 @@
\tx at setStrokeTransparency
fill
grestore \else gsave closepath
- \pst at usecolor\psk at tipcolor
+ \ps at check@tipcolor
stroke grestore \fi
grestore
0 h a sub moveto
Modified: trunk/Master/texmf-dist/tex/latex/pst-arrow/pst-arrow.sty
===================================================================
--- trunk/Master/texmf-dist/tex/latex/pst-arrow/pst-arrow.sty 2021-07-28 20:46:00 UTC (rev 60099)
+++ trunk/Master/texmf-dist/tex/latex/pst-arrow/pst-arrow.sty 2021-07-28 20:46:14 UTC (rev 60100)
@@ -1,4 +1,4 @@
-%% $Id: pst-arrow.sty 134 2021-07-23 06:33:54Z herbert $
+%% $Id: pst-arrow.sty 136 2021-07-28 09:39:03Z herbert $
%
%% This program can be redistributed and/or modified under the terms
%% of the LaTeX Project Public License Distributed from CTAN archives
More information about the tex-live-commits
mailing list.