\documentclass[landscape,pagesize,DIV=18,svgnames]{scrartcl}
\usepackage{pstricks,pst-blur,pst-node}
\usepackage[ngerman]{babel}
\usepackage{multido}
\usepackage{ifthen}
\usepackage{listings}
\usepackage[T1]{fontenc}
\usepackage[utf8]{inputenc}
\usepackage{graphicx}
\usepackage{capt-of}
\usepackage{helvet}
\renewcommand{\familydefault}{\sfdefault}

\SpecialCoor
\newcounter{nname}\setcounter{nname}{0}
\newcommand{\Nodename}{\ifcase\thenname\or A\or B\or C\or D\or E\or F\fi}

\newpsstyle{black}{nodesep=.3em,arrows=->,arrowsize=.2}
\newpsstyle{green}{nodesep=.4em,arrows=->,linecolor=DarkGreen,arrowsize=.2}
\newpsstyle{chordnode}{%
    shadow=true,
    shadowcolor=Gray,
    blur=true,
    shadowsize=.5mm,s
    hadowangle=215,
    blurradius=1mm]}

\lstdefinestyle{numbers}{numbers=left, stepnumber=1, numberstyle=\footnotesize, numbersep=5pt}

\lstset{%
language=[LaTeX]TeX,
%dialect=LaTeX
backgroundcolor=\color{LightSteelBlue},
style=numbers,
breaklines=true
}

\begin{document}\pagestyle{empty}
\noindent\begin{minipage}{.7\linewidth}%
\lstinputlisting{20110205-Chord-node-mit-schatten.tex}
\end{minipage}\hfill\begin{minipage}{.3\linewidth}%
\begin{center}
\includegraphics[width=6cm]{chord}
\captionof{figure}{Vorlage aus dem Netz}\par\vfill
\end{center}
\begin{center}
\begin{pspicture}(-3,-3)(3,3)
\multido{\i=90+60,\n=1+1}{6}{%
\stepcounter{nname}\cnode[shadow=true,shadowcolor=black!60,blur=true,shadowsize=.5mm,shadowangle=215,blurradius=1mm](2;\i){.45}{\Nodename}
\rput(\Nodename){\n}
\ncline[style=black]{A}{B}
\ncline[style=black]{B}{C}
\ncline[style=black]{C}{D}
\ncline[style=black]{D}{E}
\ncline[style=black]{E}{F}
\ncline[style=black]{F}{A}
\ncline[style=green]{A}{C}
\ncline[style=green]{A}{D}
\ncline[style=green]{C}{F}
}
\end{pspicture}%
\captionof{figure}{Anzeige des Quellcodes}\par\vfill
\end{center}
\end{minipage}
\end{document}