[pstricks] Automate a line drawing routine

[Herbert Voss]

Michael Sharpe schrieb:

> The problem happens only when you have too lines that are parallel and  
> horizontal.
> 
> Try this: I get a PostScript error due to division by 0:

Michael,
I know that. But this was not the problem in my first example.

> Now try this modification of your \psIntersectionPoint code, which  
> implements what I wrote earlier:
> 
> \makeatletter
> \def\mypsIntersectionPoint(#1)(#2)(#3)(#4)#5{%

yes, this one makes sense ...

Herbert

>