\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{pspicture}(-0.5,-0.5)(4,2.5)%
\pstGeonode[PosAngle={-135,-45,45,135},PointSymbol=none]%
			(0,0){A}(3.5,0){B}(3.5,2){C}(0,2){D}%
\pspolygon(A)(B)(C)(D)%
\pstRightAngle{B}{A}{D}%
\pstRightAngle[RightAngleSize=.2]{C}{B}{A}%
\pstRightAngle[RightAngleType=suisseromand]{D}{C}{B}%
\pstRightAngle[RightAngleType=german]{A}{D}{C}%
\end{pspicture}
\end{document}
