Hi
I notice this dicussion and since I am experimenting with Dr_Genius (a Gnome interactive geometry program) I decided to draw Desargues' theorem. Here is the result as a LaTex code using the package pstricks.
Feel free to use the picture or reject it.
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
% Desargues' theorem %
% Picture by Dr_Genius %
% with some minor edits by %
% Dr_Absentius. %
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
\documentclass{minimal}
\usepackage{pstricks,pst-poly,pst-node,pstcol}
\begin{document}
\begin{pspicture*}(1,0)(18.333333,17.966667)
%\psgrid
\definecolor{darkgreen}{rgb}{.5, .9, .1}
\definecolor{brown}{rgb}{.8, .5, .6}
\psset{dotscale=2.0, linewidth=0.02}
\psframe(1,0)(18.333333,17.966667)
\rput(5.641427,3.866667){\textbf{O}}
\rput(10,5.1){\textbf{A}}
\rput(8.3,5.4){\textbf{B}}
\rput(7.6,7.2){\textbf{C}}
\rput(13,6.3){\textbf{X}}
\rput(13.1,10.2){\textbf{Y}}
\rput(11.2,11.7){\textbf{Z}}
\psdots[dotscale=1.5,dotstyle=*,linecolor=black](5.841427,3.566667)
\psdots[dotscale=1.5,dotstyle=*,linecolor=black](10.674760,11.600000)
\psdots[dotscale=1.5,dotstyle=*,linecolor=black](12.741426,10.733334)
\psdots[dotscale=1.5,dotstyle=*,linecolor=black](12.474760,6.600000)
\psline[linecolor=black](14.505326,17.966667)(3.585203,-0.183333)
\psline[linecolor=black](18.333333,16.541353)(2.230962,-0.183333)
\psline[linecolor=black](0.000000,0.895461)(18.333333,9.279047)
\psdots[dotscale=1.5,dotstyle=*,linecolor=black](8.112468,7.341295)
\psdots[dotscale=1.5,dotstyle=*,linecolor=black](8.021843,5.831350)
\psdots[dotscale=1.5,dotstyle=*,linecolor=black](10.090683,5.509794)
\psline[linestyle=dashed,linecolor=darkgreen](0.000000,14.852101)(16.239867,-0.183333)
\psline[linestyle=dashed,linecolor=blue](8.750193,17.966667)(7.660847,-0.183333)
\psline[linestyle=dashed,linecolor=brown](0.000000,7.078170)(18.333333,4.228655)
\psline[linestyle=dashed,linecolor=blue](0.000000,16.076513)(18.333333,8.388340)
\psline[linestyle=dashed,linecolor=darkgreen](8.382760,17.966667)(14.916760,-0.183333)
\psline[linestyle=dashed,linecolor=brown](13.208093,17.966667)(12.037125,-0.183333)
\psline[linecolor=darkgreen](8.112468,7.341295)(10.090683,5.509794)
\psline[linecolor=brown](10.090683,5.509794)(8.021843,5.831350)
\psline[linecolor=blue](8.112468,7.341295)(8.021843,5.831350)
\psline[linecolor=blue](10.674760,11.600000)(12.741426,10.733334)
\psline[linecolor=brown](12.741426,10.733334)(12.474760,6.600000)
\psline[linecolor=darkgreen](12.474760,6.600000)(10.674760,11.600000)
\psdots[dotscale=1.5,dotstyle=*,linecolor=black](8.021843,5.831350)
\psdots[dotscale=1.5,dotstyle=*,linecolor=red](8.424704,12.543572)
\psdots[dotscale=1.5,dotstyle=*,linecolor=red](14.255304,1.654043)
\psdots[dotscale=1.5,dotstyle=*,linecolor=red](12.381453,5.153744)
\psline[linecolor=red](5.521007,17.966667)(15.239094,-0.183333)
\end{pspicture*}
\end{document}
|
|
![[parent]](http://images.planetmath.org:8080/images/uparrow.png)