[pstricks] pslineto with problems

[Herbert Voss]

Goebel, Juergen, OPES26 schrieb:
> But please have a look at the result: The length of consecutive arrows
> when using pslineto and pscustom is a bit to short (currentpoint may
> be not at the 'real' end of the arrow).
>   
this should work

Herbert

\documentclass{minimal}
\usepackage{pstricks}
\SpecialCoor
\def\pslineto(#1){\coor(#1)%
  \code{CP 4 2 roll ArrowB clear}\coor(#1)
  \code{rlineto CP translate 0 0 moveto}}
\begin{document}
\begin{pspicture}(0,0)(10,10)
     \multirput(-0.2,0)(0.5,0.3){10}{\psline[arrows=->](0,0)(0.5,0.3)}
     \pscustom{%
        \arrows{->}\moveto(0,0)% initialize
        \pslineto(0.5831;31)
        \pslineto(0.5831;31)
        \pslineto(0.5831;31)
        \pslineto(0.5831;31)
        \pslineto(0.5831;31)
        \pslineto(0.5831;31)
        \pslineto(0.5831;31)
        \pslineto(0.5831;31)
        \pslineto(0.5831;31)
        \pslineto(0.5831;31)
     }
     \rput(0.2,0){%
        \pscustom{%
        \arrows{->}\moveto(0,0)% initialize
           \pslineto(0.5,0.3)
           \pslineto(0.5,0.3)
           \pslineto(0.5,0.3)
           \pslineto(0.5,0.3)
           \pslineto(0.5,0.3)
           \pslineto(0.5,0.3)
           \pslineto(0.5,0.3)
           \pslineto(0.5,0.3)
           \pslineto(0.5,0.3)
           \pslineto(0.5,0.3)
        }
     }
\end{pspicture}
\end{document}