\renewcommand{\tdx}{0.5} % depth of 3d
\renewcommand{\tdy}{30}

\def\onecol{red}
\def\twocol{green}
%-------------------------------------------------
   %this is the way to redefine styles
   % \newpsstyle{mytickstyle}{linewidth=1pt,linecolor=blue}
   %
   \newpsstyle{diagframestyle}{linewidth=1pt,linecolor=black,fillcolor=white}
   \renewcommand\numbercolor{\black\bf}
   \renewcommand{\betweenticks}{200}
   \bardiagrambegin{15}{1000}{3cm}{1}{3}{1cm}{0.01cm}
      \baritem{}{721}{\onecol}
       \subbaritem{Jelger}{500}{\twocol}
      \baritem{}{412}{\onecol}
       \subbaritem{Johan}{500}{\twocol}
      \baritem{}{810}{\onecol}
       \subbaritem{Rikkert}{500}{\twocol}
      \baritem{}{310}{\onecol}
       \subbaritem{Henk}{500}{\twocol}
      \baritem{}{0}{\onecol}
       \subbaritem{New Guy}{542}{\twocol}
   \drawlevellines
   % Legend
   %\diagLegendoptions{yellow}{yellow}{0.0pt}
   %
   \diagLegendbegin{10}{890}{3.5}
     \diagLegenditem{19.12.2002}{\onecol}
     \diagLegenditem{06.05.2003}{\twocol}
   \diagLegendend
   \bardiagramend{\large Cluster Users}{\large Jobs Submitted}