% X. Rendtel
% Letzte Aenderung: 23.09.2008

\documentclass[10pt, a4paper]{article}
\usepackage[utf8x]{inputenc} 
\usepackage[tight]{units}
\usepackage{euler}
\usepackage{calc}
\usepackage{pstricks}
\usepackage{rotating}

\usepackage{pst-pdf}
\usepackage{pst-node}

\usepackage{xcolor}
\usepackage{graphicx}
%\usepackage{multido}
\usepackage{pst-circ}
\usepackage{pst-func}
\usepackage{pst-math}

\usepackage{pst-eucl}
\usepackage{fancyhdr}
\pagestyle{fancyplain}

\usepackage{pstricks-add}
\usepackage[greek,german]{babel}

%%% Nicht benötigte Pakete:
%\usepackage{pst-plot}
%\usepackage{pst-grad}
%\usepackage[all]{xy}
%\usepackage{rotating}
%\usepackage{pst-text}
\usepackage{pst-tree}
%\usepackage{wasysym}

%\usepackage{pst-xkey}
%\usepackage{mathe} % Mathematische Mengen und Symbole werden definiert












\thispagestyle{empty}
\pagestyle{empty}

%\SpecialCoor

\usepackage[LGR,T1]{fontenc}
\usepackage{mathpazo,avant,courier}
\newcommand{\EUR}{\textgreek{\euro}}

\makeatletter
\newcommand{\psxpoint}[3][black]{%
  \psline[linewidth=.5pt]{-}(#2,\pst@xticksizeB)(#2,\pst@xticksizeA)
  \rput[t](! #2 \pst@number\pslabelsep \pst@number\pst@xticksizeB add 
	\pst@number\psyunit div neg ){\color{#1}#3}}
\makeatother


\makeatletter
\newcommand{\psypoint}[3][black]{%
  \psline[linewidth=.5pt]{-}(\pst@yticksizeB,#2)(\pst@yticksizeA,#2)
  \rput[r](! \pst@number\pslabelsep \pst@number\pst@yticksizeA sub 
	\pst@number\psxunit div neg #2){\color{#1}#3}}
\makeatother

\def\myLine#1(#2)(#3)#4{{%
  \pnode(#2){myA}\pnode(#3){myB}%
  \pcline[linestyle=dashed,tbarsize=15pt]{#1}(myA)(myB)%
  \ncput*{#4}}}



\newcommand{\knoten}[2][white]
{\Tr{\psframebox[fillcolor=#1!50,fillstyle=solid]{#2}}}

\begin{document}
\psset{xunit=1cm,yunit=1cm,dotstyle=*,dotsize=3pt
0,linewidth=0.8pt,arrowsize=3pt 2,arrowinset=0.25}

\begin{pspicture}(-1,-1)(13.5,13.5)
\pspolygon[linewidth=1pt](0,0)(4,0)(4,4)(0,4)
\pcline[offset=-10pt]{<->}(0,0)(4,0)
\ncput*{20 cm}
\pspolygon[linewidth=1pt,fillstyle=solid,fillcolor=gray!10](0,2)(2,0)(4,2)(2,4)
\psline[linewidth=1pt](0,2)(4,2)
\psline[linewidth=1pt](2,0)(2,4)


\end{pspicture}

\end{document}