Code:
\listfiles
\documentclass{article}
\usepackage{pstricks-add}
\begin{document}
\psset{yunit=2,xunit=0.8}
\newpsobject{Line}{psline}{ArrowInsidePos=0.57,ArrowInside=->,arrowscale=2}
\psset{linewidth=1.5pt}
\begin{pspicture}(0,-1)(16,4)
\pscustom{%
\moveto(0,1)\rlineto(1,0)
\psline(1,1)(1,0)\rlineto(2,0)%1
\psline(3,0)(3,1)\rlineto(2,0)
\psline(5,1)(5,0)\rlineto(1,0)
\psline(6,0)(6,1)\rlineto(1,0)
\psline(7,1)(7,0)\rlineto(2,0)
\psline(9,0)(9,1)\rlineto(1,0)
\psline(10,1)(10,0)\rlineto(1,0)
\psline(11,0)(11,1)\rlineto(2,0)
\psline(13,1)(13,0)\rlineto(2,0)
\psline(15,0)(15,1)\rlineto(1,0)
}
\psforeach{\nA}{1,5,7,10,13}{\Line(\nA,1)(\nA,0)}
\psforeach{\nA}{3,6,9,11,15}{\Line(\nA,0)(\nA,1)}
\end{pspicture}
\end{document}
Lesezeichen