\renewcommand{\betweenticks}{100}
\renewcommand{\shownumbers}{0}

\definecolor{gA}{gray}{0.5}
\definecolor{gB}{gray}{0.7}
\definecolor{gC}{gray}{0.9}


\newpsstyle{diagframestyle}{linewidth=3pt,linecolor=black}

\newpsstyle{stA}{linestyle=solid,hatchsep=6pt,fillstyle=vlines*}
\newpsstyle{stB}{linestyle=solid,hatchsep=6pt,fillstyle=hlines*}
\newpsstyle{stC}{linestyle=solid,hatchsep=6pt,fillstyle=crosshatch*}


\bardiagrambegin{15}{1000}{2cm}{1}{4}{1cm}{0.015cm}
      \newpsstyle{levellinestyle}{linewidth=0.5pt,linecolor=gray,linestyle=dashed}
      \renewcommand{\barlabelangle}{0}

      \barspergroup{3}

      \drawlevellines
      \baritem[style=stA]{Here}{161}{gA}
        \subtopbaritem[style=stA]{}{250}{gB}
        \subtopbaritem[style=stA]{}{150}{gC}
       \subbaritem[style=stB]{}{381}{gA}
        \subtopbaritem[style=stB]{}{200}{gB}
        \subtopbaritem[style=stB]{}{150}{gC}
       \subbaritem[style=stC]{}{281}{gA}
        \subtopbaritem[style=stC]{}{200}{gB}
        \subtopbaritem[style=stC]{}{50}{gC}
      %
      \baritem[style=stA]{There}{221}{gA}
        \subtopbaritem[style=stA]{}{150}{gB}
        \subtopbaritem[style=stA]{}{130}{gC}
       \subbaritem[style=stB]{}{281}{gA}
        \subtopbaritem[style=stB]{}{300}{gB}
        \subtopbaritem[style=stB]{}{150}{gC}
       \subbaritem[style=stC]{}{121}{gA}
        \subtopbaritem[style=stC]{}{211}{gB}
        \subtopbaritem[style=stC]{}{350}{gC}
      %
      \baritem[style=stA]{Elsewhere}{432}{gA}
        \subtopbaritem[style=stA]{}{50}{gB}
        \subtopbaritem[style=stA]{}{230}{gC}
       \subbaritem[style=stB]{}{201}{gA}
        \subtopbaritem[style=stB]{}{130}{gB}
        \subtopbaritem[style=stB]{}{90}{gC}
       \subbaritem[style=stC]{}{191}{gA}
        \subtopbaritem[style=stC]{}{88}{gB}
        \subtopbaritem[style=stC]{}{222}{gC}
      %
      \baritem[style=stA]{on Mars}{232}{gA}
        \subtopbaritem[style=stA]{}{150}{gB}
        \subtopbaritem[style=stA]{}{330}{gC}
       \subbaritem[style=stB]{}{301}{gA}
        \subtopbaritem[style=stB]{}{230}{gB}
        \subtopbaritem[style=stB]{}{190}{gC}
       \subbaritem[style=stC]{}{91}{gA}
        \subtopbaritem[style=stC]{}{188}{gB}
        \subtopbaritem[style=stC]{}{322}{gC}

      %
      % we can call
      \diagLegendoptions{white}{white}{0pt}
      % to produce a legend without a frame
%
      \diagLegendbegin{1}{980}{3.5}
        \diagLegenditem[style=stA]{19.12.2002}{white}
        \diagLegenditem[style=stB]{06.05.2003}{white}
        \diagLegenditem[style=stC]{01.02.2004}{white}
      \diagLegendend
      %
      \diagLegendbegin{5}{980}{3.5}
        \diagLegenditem{first try}{gA}
        \diagLegenditem{second try}{gB}
        \diagLegenditem{third try}{gC}
      \diagLegendend

\bardiagramend{}{\large Number of smth}