\documentclass[12pt,a4paper]{article}
\usepackage[francais]{babel}
\usepackage{mafr}
\usepackage[utf8]{inputenc}
\usepackage[T1]{fontenc}
\usepackage{amsmath}
\usepackage{amsfonts}
\usepackage{amssymb}
\usepackage{lmodern}
\usepackage[dvipsnames]{xcolor}
\usepackage{pstricks}
\usepackage{pst-eucl}
\begin{document}
\begin{footnotesize}
\begin{pspicture}(0,0)(7,5)%
\psset{PointNameSep=.8em,linewidth=.5pt,RightAngleType=suisseromand}%
\pstGeonode[PosAngle={-90,90,0,180,0}](1,2){A}(1,4){B}(2.5,4){C}(1,3){D}(2,3){E}%
\psline(A)(B)(C)\psline(D)(E)%
\pstGeonode[PosAngle={90,-90}](3.5,3.5){S1}(2.5,1){S2}%
\pstOrtSym[PosAngle={0,180}]{S1}{S2}{B,C}%
\pstOrtSym[PosAngle={0,180}]{S1}{S2}{D,E}[F,G]%
\pstOrtSym[CodeFig=true]{S1}{S2}{A}%
\psline[linecolor=red](A')(B')(C')\psline[linecolor=red](F)(G)%
\end{pspicture}
\end{footnotesize}
\end{document}
