texlive[60024] Master/texmf-dist: pst-arrow (23jul21)

commits+karl at tug.org commits+karl at tug.org
Fri Jul 23 22:08:01 CEST 2021


Revision: 60024
          http://tug.org/svn/texlive?view=revision&revision=60024
Author:   karl
Date:     2021-07-23 22:08:01 +0200 (Fri, 23 Jul 2021)
Log Message:
-----------
pst-arrow (23jul21)

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-23 20:07:39 UTC (rev 60023)
+++ trunk/Master/texmf-dist/doc/generic/pst-arrow/Changes	2021-07-23 20:08:01 UTC (rev 60024)
@@ -1,4 +1,4 @@
-%% $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
@@ -5,4 +5,5 @@
 
 
 pst-arrow.tex ----------- (hv)
+ 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-23 20:07:39 UTC (rev 60023)
+++ trunk/Master/texmf-dist/doc/generic/pst-arrow/README	2021-07-23 20:08:01 UTC (rev 60024)
@@ -7,10 +7,12 @@
 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 at tug.org
+
+# $Id: README 134 2021-07-23 06:33:54Z 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-23 20:07:39 UTC (rev 60023)
+++ trunk/Master/texmf-dist/doc/generic/pst-arrow/pst-arrow-doc.tex	2021-07-23 20:08:01 UTC (rev 60024)
@@ -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 @@
 \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 @@
 \bgroup
 \raggedright
 \nocite{*}
-\bibliographystyle{plain}
-\bibliography{\jobname}
+\printbibliography
 \egroup
 
 \printindex

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-23 20:07:39 UTC (rev 60023)
+++ trunk/Master/texmf-dist/tex/generic/pst-arrow/pst-arrow.tex	2021-07-23 20:08:01 UTC (rev 60024)
@@ -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 at addfams{pst-arrow}
 %
+\define at key[psset]{pst-arrow}{tipcolor}[black]{\pst at getcolor{#1}\psk at tipcolor}
+\psset[pst-arrow]{tipcolor=black}
+
+%
 \def\psBigArrow{\pst at object{psBigArrow}}
 \def\psBigArrow at i(#1)(#2){%
   \addbefore at 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 at usecolor\psk at 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 at v}{%
+  \pst at usecolor\psk at 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 
   false true \psk at veearrowangle \psk at veearrowlength \psk at veearrowlinewidth \tx at VeeArrow}
 \@namedef{psas at f}{%
+  \pst at usecolor\psk at 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 
   true true \psk at filledveearrowangle \psk at filledveearrowlength \psk at filledveearrowlinewidth \tx at VeeArrow}
 
 % And An another arrowhead
@@ -138,12 +149,58 @@
     y neg y moveto            % point #1
     y y neg L                % point #2
     \@nameuse{psls@\psarrowlinestyle}
+    \pst at usecolor\psk at tipcolor
     stroke                % draw line
     0 0 moveto>                % origin
 
-\@namedef{psas at t}{ false \psk at tickarrowlength \psk at tickarrowlinewidth \tx at TickArrow }
-\@namedef{psas at T}{ true \psk at tickarrowlength \psk at tickarrowlinewidth \tx at TickArrow }
+
+\@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 }
+
+\pst at 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 at usecolor\psk at tipcolor 
+  fill grestore >
 %
+\pst at 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 at usecolor\psk at tipcolor
+  stroke
+  0 0 moveto >
+%
+%
 % HookLeft/RightArrow
 \newdimen\pshooklength
 \newdimen\pshookwidth
@@ -154,6 +211,7 @@
 \edef\pst at arrowtable{\pst at arrowtable,H-H,h-h} % add new arrow
 \def\tx at RHook{RHook }         % PostScript name
 \def\tx at Rhook{Rhook }         % PostScript name
+
 \@namedef{psas at H}{%
   /RHook {
     /x ED                     % hook width
@@ -165,6 +223,7 @@
     stroke 
     0 y moveto                % define current point
   } def
+  \pst at usecolor\psk at tipcolor
   \pst at number\pshooklength
   \pst at number\pshookwidth
   \tx at RHook 
@@ -178,6 +237,7 @@
     /a ED  
     w neg h abs moveto 0 0 L 
     gsave 
+    \pst at usecolor\psk at tipcolor    
     stroke grestore 
   } def
   0 \psk at arrowlength \psk at arrowsize \tx at Rhook 
@@ -194,12 +254,15 @@
     /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    
     w neg h moveto
     0 0 L w h L w neg a neg rlineto
     \ifpsArrowFill gsave 
        \tx at setStrokeTransparency
        fill  
-       grestore \else gsave closepath stroke grestore \fi
+       grestore \else gsave closepath 
+       \pst at usecolor\psk at 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-23 20:07:39 UTC (rev 60023)
+++ trunk/Master/texmf-dist/tex/latex/pst-arrow/pst-arrow.sty	2021-07-23 20:08:01 UTC (rev 60024)
@@ -1,5 +1,9 @@
-%% $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 
   pst-arrow.tex (hv)]



More information about the tex-live-commits mailing list.