[pstricks] Geradenbüschel
Herbert Voss
Herbert.Voss at FU-Berlin.DE
Fri Sep 10 18:34:42 CEST 2010
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
More information about the PSTricks
mailing list