summaryrefslogtreecommitdiff
path: root/Master/texmf-dist/doc/latex/pstricks-examples-en/28-03-1.ltx
diff options
context:
space:
mode:
Diffstat (limited to 'Master/texmf-dist/doc/latex/pstricks-examples-en/28-03-1.ltx')
-rw-r--r--Master/texmf-dist/doc/latex/pstricks-examples-en/28-03-1.ltx52
1 files changed, 52 insertions, 0 deletions
diff --git a/Master/texmf-dist/doc/latex/pstricks-examples-en/28-03-1.ltx b/Master/texmf-dist/doc/latex/pstricks-examples-en/28-03-1.ltx
new file mode 100644
index 00000000000..e562fd5f5a0
--- /dev/null
+++ b/Master/texmf-dist/doc/latex/pstricks-examples-en/28-03-1.ltx
@@ -0,0 +1,52 @@
+%%
+%% A DANTE-Edition example
+%%
+%%
+%% Copyright (C) 2011 Herbert Voss
+%%
+%% It may be distributed and/or modified under the conditions
+%% of the LaTeX Project Public License, either version 1.3
+%% of this license or (at your option) any later version.
+%%
+%% See http://www.latex-project.org/lppl.txt for details.
+%%
+%%
+%% ====
+% Show page(s) 1
+%%
+\documentclass[]{article}
+\pagestyle{empty}
+\setlength\textwidth{201.70511pt}
+\setlength\parindent{0pt}
+
+\usepackage[dvipsnames]{pstricks}
+\usepackage{pst-eucl}
+
+\begin{document}
+\begin{pspicture}(-4.5,-1.5)(4.5,4)% Dominique Rodriguez
+ \psset{PointSymbol=none}
+ \pstTriangle(-4,-1){A}(1,3.5){B}(4,-1){C}
+ { \psset{linestyle=none, PointSymbolB=none, PointNameB=none}
+ \pstMediatorAB{A}{B}{K}{KP}
+ \pstMediatorAB{C}{A}{J}{JP}
+ \pstMediatorAB{B}{C}{I}{IP} }
+ \pstInterLL[PointSymbol=square,PosAngle=-170]{I}{IP}{J}{JP}{O}
+ { \psset{nodesep=-0.8,linecolor=green}
+ \pstLineAB{O}{I}\pstLineAB{O}{J}\pstLineAB{O}{K} }
+ \psdot[dotstyle=square](O)
+ \pstProjection{B}{A}{C}
+ \pstProjection{B}{C}{A}
+ \pstProjection{A}{C}{B}
+ \psset{linecolor=blue}\ncline{A}{A'}\ncline{C}{C'}\ncline{B}{B'}
+ \pstInterLL[PointSymbol=square]{A}{A'}{B}{B'}{H}
+ % le cercle d'Euler (centre au milieu de [OH])
+ \pstMiddleAB[PointSymbol=o, PointName=\omega]{O}{H}{omega}
+ \pstCircleOA[linecolor=Orange, linestyle=dashed, dash=5mm 1mm]{omega}{B'}
+ \psset{PointName=none}
+ % il passe par le milieu des segments joignant l'orthocentre et les sommets
+ \pstMiddleAB{H}{A}{AH}\pstMiddleAB{H}{B}{BH}\pstMiddleAB{H}{C}{CH}
+ \pstSegmentMark{H}{AH}\pstSegmentMark{AH}{A}
+ \psset{SegmentSymbol=wedge}\pstSegmentMark{H}{BH}\pstSegmentMark{BH}{B}
+ \psset{SegmentSymbol=cup}\pstSegmentMark{H}{CH}\pstSegmentMark{CH}{C}
+\end{pspicture}
+\end{document}