[pstricks] Geradenbüschel

[Herbert Voss]

Am 10.09.2010 17:59, schrieb Hendrik Maryns:

> Next problem: label the intersections of the fan lines with the two
> other lines.  How to find those intersections?

also possible macro \ABInterCD ...

\documentclass{scrartcl}
\usepackage{pst-eucl,pstricks-add}

\def\NodeLine(#1)(#2)#3{%
  \pnode(#1){#3-1}\pnode(#2){#3-2}
  \pcline(#3-1)(#3-2)}
\begin{document}

\begin{pspicture}(10,10)
  \rput(3,5){%
   \NodeLine(1;70)(4.5;250){A}
   \NodeLine(1;91)(4;271){B}
   \NodeLine(1;115)(4;295){C}
   \NodeLine(1;133)(4.3;313){D}%
  }
  \uput[10](3,5){C}
  \NodeLine(1,1)(6,2.5){a}
  \NodeLine(0.8,1.6)(5.1,3.7){b}
  \pstInterLL{A-1}{A-2}{a-1}{a-2}{Aa}\psdot(Aa)
  \pstInterLL{A-1}{A-2}{b-1}{b-2}{Ab}\psdot(Ab)
  \pstInterLL[PointName={}]{B-1}{B-2}{a-1}{a-2}{Ba}\psdot(Ba)
  \pstInterLL[PointName={}]{B-1}{B-2}{b-1}{b-2}{Bb}\psdot(Bb)
\end{pspicture}

\end{document}


Herbert