[pstricks] Automate a line drawing routine

[Juergen Gilg]

Dear David,

couldn't solve the problem with 2 arrowhead at the end of the lines 
drawn, however the rest should work fine.
> Looking for ideas.
>   
\documentclass{article}
\usepackage{pstricks,pstricks-add}
\begin{document}
\pagestyle{empty}

\newcommand{\DaveArnold}[4]{%
\psset{unit=0.5}
\begin{pspicture}(-6,-6)(6,6)
\psgrid[gridcolor=lightgray,gridlabels=0pt,subgriddiv=1](0,0)(-5,-5)(5,5)
\psaxes[labels=none,ticks=none]{->}(0,0)(-5.5,-5.5)(5.5,5.5)
\Cnode[radius=0.1cm,fillstyle=solid,fillcolor=blue,linecolor=blue](#1,#2){A}
\Cnode[radius=0.1cm,fillstyle=solid,fillcolor=blue,linecolor=blue](#3,#4){B}
\psclip{\psframe[linestyle=none](-5,-5)(5,5)}
\ncline[nodesep=10cm,linecolor=blue]{<->}{A}{B}
\endpsclip
\uput[0](5.5,0){$x$}
\uput[90](0,5.5){$y$}
\end{pspicture}
\resetOptions
}

\DaveArnold{1}{2}{-3}{5}
%First Argument     x-Koordinate Point A
%Second Argument    y-Koordinate Point A
%Third Argument     x-Koordinate Point B
%Fourth Argument    y-Koordinate Point B

\DaveArnold{-1}{-2}{3}{3}

\DaveArnold{-5}{-5}{1}{2}

%NO PROBLEM to so produce vertical and horizontal lines as well.
\end{document} 


Regards,

Juergen
-------------- next part --------------
An HTML attachment was scrubbed...
URL: http://tug.org/pipermail/pstricks/attachments/20081229/1405a731/attachment.html