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