CTAN sync 202107240301

6 files changed, 124 insertions, 16 deletions

diff --git a/graphics/pstricks/contrib/pst-arrow/Changes b/graphics/pstricks/contrib/pst-arrow/Changes
index c0ef09abf9..8a372eff9b 100644
--- a/graphics/pstricks/contrib/pst-arrow/Changes
+++ b/graphics/pstricks/contrib/pst-arrow/Changes
@@ -1,8 +1,9 @@
-%% $Id: Changes 330 2016-09-01 19:02:44Z herbert $
+%% $Id: Changes 134 2021-07-23 06:33:54Z herbert $
 %%
 pst-arrow.sty ----------- 
  v. 0.01 2016-09-09  initial version
 
 
 pst-arrow.tex ----------- (hv)
+ v. 0.02 2021-07-23  - added tipcolor option
  v. 0.01 2016-09-09  initial version
diff --git a/graphics/pstricks/contrib/pst-arrow/README b/graphics/pstricks/contrib/pst-arrow/README
index a56e1bfbab..83bfbe9146 100644
--- a/graphics/pstricks/contrib/pst-arrow/README
+++ b/graphics/pstricks/contrib/pst-arrow/README
@@ -7,10 +7,12 @@ pst-arrow-doc.tex: the included doc file
 Save the files pst-arrow.sty|tex in a directory, 
 which is part of your  local TeX tree. 
 Then do not forget to run texhash to update this tree.
-For more information  see the documentation of your LaTeX distribution 
-on installing packages into your local TeX system or read the 
-TeX Frequently Asked Questions:
-(http://www.tex.ac.uk/cgi-bin/texfaq2html?label=instpackages).
 
 
-# $Id: README 329 2016-09-01 19:01:53Z herbert $
+%% This program can be redistributed and/or modified under the terms
+%% of the LaTeX Project Public License Distributed from CTAN archives
+%% in directory macros/latex/base/lppl.txt.
+
+hvoss@tug.org
+
+# $Id: README 134 2021-07-23 06:33:54Z herbert $
diff --git a/graphics/pstricks/contrib/pst-arrow/doc/pst-arrow-doc.pdf b/graphics/pstricks/contrib/pst-arrow/doc/pst-arrow-doc.pdf
index 4abb2df2c9..6ea4f09fd8 100644
--- a/graphics/pstricks/contrib/pst-arrow/doc/pst-arrow-doc.pdf
+++ b/graphics/pstricks/contrib/pst-arrow/doc/pst-arrow-doc.pdf
diff --git a/graphics/pstricks/contrib/pst-arrow/doc/pst-arrow-doc.tex b/graphics/pstricks/contrib/pst-arrow/doc/pst-arrow-doc.tex
index bc5980c0f2..9547db542c 100644
--- a/graphics/pstricks/contrib/pst-arrow/doc/pst-arrow-doc.tex
+++ b/graphics/pstricks/contrib/pst-arrow/doc/pst-arrow-doc.tex
@@ -1,4 +1,4 @@
-%% $Id: pst-arrow-doc.tex 328 2016-09-01 19:00:31Z herbert $
+%% $Id: pst-arrow-doc.tex 134 2021-07-23 06:33:54Z herbert $
 \documentclass[11pt,english,BCOR10mm,DIV14,bibliography=totoc,parskip=false,smallheadings
     headexclude,footexclude,twoside]{pst-doc}
 \usepackage[utf8]{inputenc}
@@ -23,6 +23,7 @@
 \end{pspicture}
 }
 
+\addbibresource{\jobname.bib}
 \begin{document}
 
 \title{\texttt{pst-arrow}}
@@ -343,6 +344,44 @@ overpainted by the line.
 \end{LTXexample}
 
 
+%--------------------------------------------------------------------------------------
+\subsection{\nxLkeyword{tipcolor} option}
+%--------------------------------------------------------------------------------------
+
+It is possible to change the color of the arrow tip by setting \Lkeyword{tipcolor}:
+
+
+\begin{center}
+  \bgroup
+  \psset{linecolor=green,linewidth=1pt,arrowscale=2}%
+  \begin{tabular}{lp{2.8cm}}%
+    Value & Example \\[2pt]\hline
+    \rlap{\texttt{\textbackslash psset\{tipcolor=red\}}}\\
+    \verb+\psline{->>}(0,1ex)(2.3,1ex)+  & \psline[tipcolor=red]{->>}(0,1ex)(2.3,1ex) \\
+    \verb+\psline[nArrowsA=3]{->>}(0,1ex)(2.3,1ex)+  & \psline[tipcolor=red,nArrowsA=3]{->>}(0,1ex)(2.3,1ex)\\
+    \verb+\psline[nArrowsA=5]{->>}(0,1ex)(2.3,1ex)+  & \psline[tipcolor=red,nArrowsA=5]{->>}(0,1ex)(2.3,1ex)\\
+    \verb+\psline{<<-}(0,1ex)(2.3,1ex)+  & \psline[tipcolor=red]{<<-}(0,1ex)(2.3,1ex)\\
+    \verb+\psline[nArrowsA=3]{<<-}(0,1ex)(2.3,1ex)+  & \psline[tipcolor=red,nArrowsA=3]{<<-}(0,1ex)(2.3,1ex)\\
+    \verb+\psline[nArrowsA=5]{<<-}(0,1ex)(2.3,1ex)+  & \psline[tipcolor=red,nArrowsA=5]{<<-}(0,1ex)(2.3,1ex)\\
+    \rlap{\texttt{\textbackslash psset\{tipcolor=blue\}}}\\
+    \verb+\psline{<<->>}(0,1ex)(2.3,1ex)+  & \psline[tipcolor=blue]{<<->>}(0,1ex)(2.3,1ex)\\
+    \verb+\psline[nArrowsA=3]{<<->>}(0,1ex)(2.3,1ex)+  & \psline[tipcolor=blue,nArrowsA=3]{<<->>}(0,1ex)(2.3,1ex)\\
+    \verb+\psline[nArrowsA=5]{<<->>}(0,1ex)(2.3,1ex)+  & \psline[tipcolor=blue,nArrowsA=5]{<<->>}(0,1ex)(2.3,1ex)\\
+    \verb+\psline{<<-|}(0,1ex)(2.3,1ex)+  & \psline[tipcolor=blue]{<<-|}(0,1ex)(2.3,1ex)\\
+    \verb+\psline[nArrowsA=3]{<<-<<}(0,1ex)(2.3,1ex)+  & \psline[tipcolor=blue,nArrowsA=3]{<<-<<}(0,1ex)(2.3,1ex)\\
+    \verb+\psline[nArrowsA=5]{<<-o}(0,1ex)(2.3,1ex)+  & \psline[tipcolor=blue,nArrowsA=5]{<<-o}(0,1ex)(2.3,1ex)\\
+    \verb+\psline[tipcolor=magenta,nArrowsA=3,nArrowsB=4]{<<-<<}(0,1ex)(2.3,1ex)+  & \psline[tipcolor=magenta,nArrowsA=3,nArrowsB=4]{<<-<<}(0,1ex)(2.3,1ex)\\
+    \verb+\psline[tipcolor=cyan,nArrowsA=3,nArrowsB=4]{>>->>}(0,1ex)(2.3,1ex)+  & \psline[tipcolor=cyan,nArrowsA=3,nArrowsB=4]{>>->>}(0,1ex)(2.3,1ex)\\
+    \verb+\psline[tipcolor=yellow,nArrowsA=1,nArrowsB=4]{>>->>}(0,1ex)(2.3,1ex)+  & \psline[tipcolor=yellow,nArrowsA=1,nArrowsB=4]{>>->>}(0,1ex)(2.3,1ex)\\\hline
+  \end{tabular}
+  \egroup
+\end{center}
+
+
+
+\clearpage
+
+
 \subsection{Big Arrows}
 
 \begin{LTXexample}[width=5cm]
@@ -842,8 +881,7 @@ taken into account by the scaling value.
 \bgroup
 \raggedright
 \nocite{*}
-\bibliographystyle{plain}
-\bibliography{\jobname}
+\printbibliography
 \egroup
 
 \printindex
diff --git a/graphics/pstricks/contrib/pst-arrow/latex/pst-arrow.sty b/graphics/pstricks/contrib/pst-arrow/latex/pst-arrow.sty
index 5082e6afdd..b5b34b705e 100644
--- a/graphics/pstricks/contrib/pst-arrow/latex/pst-arrow.sty
+++ b/graphics/pstricks/contrib/pst-arrow/latex/pst-arrow.sty
@@ -1,4 +1,8 @@
-%% $Id: pst-arrow.sty 328 2016-09-01 19:00:31Z herbert $
+%% $Id: pst-arrow.sty 134 2021-07-23 06:33:54Z herbert $
+%
+%% This program can be redistributed and/or modified under the terms
+%% of the LaTeX Project Public License Distributed from CTAN archives
+%% in directory macros/latex/base/lppl.txt.
 %
 \RequirePackage{pstricks}
 \ProvidesPackage{pst-arrow}[2016/09/01 v. 0.01 package wrapper for 
diff --git a/graphics/pstricks/contrib/pst-arrow/tex/pst-arrow.tex b/graphics/pstricks/contrib/pst-arrow/tex/pst-arrow.tex
index 7e14839b36..f236aedfb6 100644
--- a/graphics/pstricks/contrib/pst-arrow/tex/pst-arrow.tex
+++ b/graphics/pstricks/contrib/pst-arrow/tex/pst-arrow.tex
@@ -1,4 +1,4 @@
-%% $Id: pst-arrow.tex 328 2016-09-01 19:00:31Z herbert $
+%% $Id: pst-arrow.tex 134 2021-07-23 06:33:54Z herbert $
 %%
 %% This is file `pst-arrow.tex',
 %%
@@ -22,13 +22,17 @@
 \ifx\PSTricksLoaded\endinput\else\input pstricks \fi
 \ifx\PSTXKeyLoaded\endinput\else \input pst-xkey \fi
 %
-\def\fileversion{0.01}
-\def\filedate{2016/09/01}
+\def\fileversion{0.02}
+\def\filedate{2021/07/21}
 \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}
+
+%
 \def\psBigArrow{\pst@object{psBigArrow}}
 \def\psBigArrow@i(#1)(#2){%
   \addbefore@par{doublesep=1cm}
@@ -105,18 +109,25 @@
     x y L                % point #3
     { closepath gsave fill grestore } if    % if filled : close and fill
     \@nameuse{psls@\psarrowlinestyle}
+    \pst@usecolor\psk@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@v}{%
+  \pst@usecolor\psk@tipcolor 
   false false \psk@veearrowangle \psk@veearrowlength \psk@veearrowlinewidth \tx@VeeArrow}
 \@namedef{psas@V}{%
+  \pst@usecolor\psk@tipcolor 
   false true \psk@veearrowangle \psk@veearrowlength \psk@veearrowlinewidth \tx@VeeArrow}
 \@namedef{psas@f}{%
+  \pst@usecolor\psk@tipcolor 
   true false \psk@filledveearrowangle \psk@filledveearrowlength \psk@filledveearrowlinewidth \tx@VeeArrow}
 \@namedef{psas@F}{%
+  \pst@usecolor\psk@tipcolor 
   true true \psk@filledveearrowangle \psk@filledveearrowlength \psk@filledveearrowlinewidth \tx@VeeArrow}
 
 % And An another arrowhead
@@ -138,11 +149,57 @@
     y neg y moveto            % point #1
     y y neg L                % point #2
     \@nameuse{psls@\psarrowlinestyle}
+    \pst@usecolor\psk@tipcolor
     stroke                % draw line
     0 0 moveto>                % origin
 
-\@namedef{psas@t}{ false \psk@tickarrowlength \psk@tickarrowlinewidth \tx@TickArrow }
-\@namedef{psas@T}{ true \psk@tickarrowlength \psk@tickarrowlinewidth \tx@TickArrow }
+
+\@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 }
+
+\pst@def{ArrowD}< % the sides are drawn as curves (hv 20071211)
+  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
+% we use y=w/h^2 * x^2 as equation for the control points
+% for the coordinates the arrow is seen from top to bottom
+% the bottom (tip) is (0;0)
+  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
+  gsave 
+  \pst@usecolor\psk@tipcolor 
+  fill grestore >
+%
+\pst@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
+  \pst@usecolor\psk@tipcolor
+  stroke
+  0 0 moveto >
+%
 %
 % HookLeft/RightArrow
 \newdimen\pshooklength
@@ -154,6 +211,7 @@
 \edef\pst@arrowtable{\pst@arrowtable,H-H,h-h} % add new arrow
 \def\tx@RHook{RHook }         % PostScript name
 \def\tx@Rhook{Rhook }         % PostScript name
+
 \@namedef{psas@H}{%
   /RHook {
     /x ED                     % hook width
@@ -165,6 +223,7 @@
     stroke 
     0 y moveto                % define current point
   } def
+  \pst@usecolor\psk@tipcolor
   \pst@number\pshooklength
   \pst@number\pshookwidth
   \tx@RHook 
@@ -178,6 +237,7 @@
     /a ED  
     w neg h abs moveto 0 0 L 
     gsave 
+    \pst@usecolor\psk@tipcolor    
     stroke grestore 
   } def
   0 \psk@arrowlength \psk@arrowsize \tx@Rhook 
@@ -194,12 +254,15 @@
     /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    
     w neg h moveto
     0 0 L w h L w neg a neg rlineto
     \ifpsArrowFill gsave 
        \tx@setStrokeTransparency
        fill  
-       grestore \else gsave closepath stroke grestore \fi
+       grestore \else gsave closepath 
+       \pst@usecolor\psk@tipcolor
+       stroke grestore \fi
     grestore
     0 h a sub moveto
 }>