\def\onecol{red}
\def\twocol{palegreen}

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

\newcommand{\mybar}[3]
{ \renewcommand\numbercolor{\white\bf}
  \baritem{#1}{#2}{#3}
}
\newcommand{\mysubbar}[3]
{ \renewcommand\numbercolor{\black\bf}
  \subbaritem{#1}{#2}{#3}
}

%\renewcommand{\ActiveBarPrimitive}{\barTDRect}
%\renewcommand{\ActiveBarPrimitive}{\barCylinder}
%-------------------------------------------------------
%this is the way to redefine styles
% \newpsstyle{mytickstyle}{linewidth=1pt,linecolor=blue}
%
\renewcommand{\placenumber}{\belowtop}
\renewcommand{\betweenticks}{200}
%
\newpsstyle{diagframestyle}{linewidth=1pt,linecolor=black,fillcolor=white}
%
\bardiagrambegin{15}{1000}{3cm}{1}{3}{1cm}{0.007cm}
       \mybar{}{721}{\onecol}
        \mysubbar{Jelger}{500}{\twocol}
       \mybar{}{412}{\onecol}
        \mysubbar{Johan}{500}{\twocol}
       \mybar{}{810}{\onecol}
        \mysubbar{Rikkert}{500}{\twocol}
       \mybar{}{310}{\onecol}
        \mysubbar{Henk}{500}{\twocol}
       \mybar{}{0}{\onecol}
        \mysubbar{New Guy}{542}{\twocol}  
  \drawlevellines
  % Legend
  %\diagLegendoptions{yellow}{yellow}{0.0pt}
  %
  \diagLegendbegin{10}{890}{3.5}
    \renewcommand{\legendShadow}{1} % by default there is no
                                    % shadow in 2D diagram
    \diagLegenditem{19.12.2002}{\onecol}
    \diagLegenditem{06.05.2003}{\twocol}
  \diagLegendend
\bardiagramend{\large Cluster Users}{\large Jobs Submitted}