% 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}

\psset{xunit=2cm,yunit=2cm}
\begin{pspicture}(-1,-1)(3,3)
\psaxes[yAxis=false,ticksize=-4pt,labelsep=-15pt]{->}(0,0)(2.5,0)
\pspolygon[linewidth=1pt,linecolor=red](0,0)(2,1)(1,3)(-1,2)
\pcline[offset=-15pt]{<->}(2,0)(2,1)
\ncput*{1 cm}
\psline[]{-}(2,0)(2,1)
\psline[](0,0)(0,2)
\psline[](-1,2)(1,2)
\psline[](1,3)(1,1)
\psline[](0,1)(2,1)
\pcline[offset=15pt]{<->}(0,1)(1,1)
\ncput*{1 cm}
\pcline[offset=-15pt]{<->}(1,1)(1,2)
\ncput*{1 cm}


\end{pspicture}

\end{document}