[pstricks] ->>> and ->>>> arrows ?

[Herbert Voss]

Etienne Riga wrote:
> Christophe Jorssen wrote:
> 
>>Hello,
>>
>>I'd like to have 3 and 4 arrows as defined in pstricks-add
> 
> for ->>
> 
>>I don't know how to modify the code
>>
>>Somebody has a clue ?
>>
> 
> 
> 
> \@namedef{psas@>>>}{%
>     false \psk at arrowinset \psk at arrowlength \psk at arrowsize
> \tx at Arrow
>     0 h a sub T

[ ... ]


should I add something like


\documentclass[a4paper]{article}
\usepackage{pstricks-add}
\makeatletter
% needs pst-xkey
\define at key[psset]{pstricks-add}{nArrows}{\def\psk at nArrows{#1}}
\psset{nArrows=1}
\@namedef{psas@>}{%
     \psk at nArrows\space 1 sub {
       false \psk at arrowinset \psk at arrowlength \psk at arrowsize \tx at Arrow
       0 h a sub T
     } repeat
     gsave
     newpath
     false \psk at arrowinset \psk at arrowlength \psk at arrowsize \tx at Arrow
     CP
     grestore
     moveto
}
\makeatother

\begin{document}

\psline[nArrows=4,arrowscale=3]{|->}(5,1)

\end{document}



to pstricks-add?

Herbert



-- 
http://TeXnik.de/
http://PSTricks.de/
ftp://ftp.dante.de/tex-archive/info/math/voss/Voss-Mathmode.pdf
http://www.dante.de/faq/de-tex-faq/
http://www.tex.ac.uk/cgi-bin/texfaq2html?introduction=yes