%%
%% A DANTE-Edition example
%%
%% Example 29-01-8 on page 556.
%%
%% 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{177.70511pt}
\setlength\parindent{0pt}
\usepackage{pst-eucl}
\begin{document}
\begin{pspicture}(-1.5,-1.5)(1.5,1.5)
\psset{linecolor=black,CodeFig=true}
\pstGeonode[PosAngle={-90,90,90,-90}](-1.25,-1.25){A}%
(-1.25,1.25){B}(1.25,1.25){C}(1.25,-1.25){D}
\pstLineAB{A}{B} \pstLineAB{B}{C}
\pstLineAB{C}{D} \pstLineAB{D}{A}
\pstRightAngle{A}{B}{C}
\pstRightAngle[RightAngleSize=1]{B}{C}{D}
\pstRightAngle[RightAngleType=german]{C}{D}{A}
\pstRightAngle[RightAngleType=german,
RightAngleSize=.75]{D}{A}{B}
\end{pspicture}
\end{document}
