%% =============================================
%% IMPORTANT NOTICE:
%% 
%% This program can be redistributed and/or modified under the terms
%% of the LaTeX Project Public License Distributed from CTAN
%% archives in directory macros/latex/base/lppl.txt; either
%% version 1 of the License, or any later version.
%% 
%% Only a few abbreviated comments remain here to describe the usage.
%% Documentation can be found in bardiag.ps or/and bardiag.tex files
%% =============================================
%% Copyright 2003 Roman Stepanyan
%% E-mail: rstepanyan@yahoo.com


%TODO
% Error ``whiskers'': do NOT work with \subtopbaritem !!!!

\NeedsTeXFormat{LaTeX2e}[1995/12/01]
%
\ProvidesPackage{bardiag}[2003/12/10 version 0.5] 
\def\bardiag{BagDiag}
% This package allows to draw bar diagrams.
% It is inspired by and build on top of PSTricks
%
%
% Changelog
% 2003/12/10 version 0.5 (compatible with 0.4, but "shapes"-macroses 
%                         (bars) have to accept an optional argument!)
%   "fillstyle" can be supplied to \baritem and friends 
%      as an optional argument: \baritem[fillstyle=vlines*,linecolor=red]{}...
%   bardiag DOES NOT load pst-all anymore, only the necessary stuff
%   use \barspergroup{N} to make life easier (thanks to Kris Dumont)
%
%
% 2003/06/29 version 0.4 (compatible with 0.3)
%   Error ``whiskers'' are added
%
% 2003/06/20 version 0.3 (compatible with 0.2)
%   ``Horizontal bars'' mode is added.
%
% 2003/05/23 version 0.2 (not compatible with 0.1)
%   Code is completely rewritten. 
%   All parameters can be real numbers (not integers) thanks to fp.sty
%   A lot of changes in the interface.
%
% 2003/05/10 version 0.1
%   0.first version :)


\RequirePackage{calc}
\RequirePackage{pstfp}
\RequirePackage{fp-snap}


\RequirePackage{pstricks}
\RequirePackage{pstcol}
\RequirePackage{pst-grad}
\RequirePackage{multido}

\RequirePackage{ifthen}

% * what should be changed through \renewcommand or \setlength
% @ arguments of functions
% + internal variables


%----------------------------------------
% Horizontal or vertical bars
\newcommand{\bdvert}{0}
\newcommand{\bdhor}{1}
\newcommand{\bdorientation}{\bdvert}

% Each group is assumed to consist of this number of  bars
% (subtopbars not included)
% use \barspergroup{N} to change
\newcommand{\nbarsingroup}{1}
\newcommand{\barspergroup}[1]{\renewcommand{\nbarsingroup}{#1}}
% Sizes of the diag
% 
\newcommand{\diagheight}{10}  % units  @
\newcommand{\diagwidth}{10}   % units  @
\newlength{\bottomheight}     % cm     @
% units of length
\newlength{\xunitlength}      % cm     @
\newlength{\yunitlength}      % cm     @
% of the bar
\newcommand{\dbar}{1}         % units  @
\newcommand{\dx}{2}           % units  @
%-----------------------------------------
% Sizes related to ticks and levellines
%
\newcommand{\betweenticks}{1} % units  *
\newcommand{\numberofticks}{1}%        +
\newcommand{\MAXnumberofticks}{20}%    *
%
% frame and stuff
\newlength{\ticklength}        % 
\setlength{\ticklength}{2mm}   % cm    *     
\newlength{\leftshift}                  
\setlength{\leftshift}{\ticklength+2mm}  
                               % cm    * 
\newlength{\frameXleft}
\setlength{\frameXleft}{\leftshift}
\newlength{\frameYbottom}
\setlength{\frameYbottom}{0pt}
\newlength{\tickrightedge}     % cm    +
% text
\newlength{\textoffset}        %
\setlength{\textoffset}{-0.2cm}%cm     *
%caption
\newlength{\captionoffset}
\setlength{\captionoffset}{1.5cm}
%-----------------------------------------
% ``Counter''-like variables for bars
\newcommand{\xval}{1}         % units  +
\newcommand{\xxval}{1}        % units  +
\newcommand{\xhalf}{1}        % units  +
%
% and subbars
\newcounter{subbar}
%
% Number on bars
% numbers (0,1)
\newcommand\shownumbers{1}                   % *
         % otherwise no numbers will appear
\newcommand\numbercolor{\black\bf}           % *
\newcommand{\belowtop}{0}                    % constant
\newcommand{\overtop}{1}                     % constant
\newcommand{\bottom}{2}                      % constant
\newcommand\placenumber{\belowtop}           % *
         % can be: \belowtop, \overtop, \bottom
\newlength{\numberoffset}
\setlength{\numberoffset}{2\textoffset}      % cm *
\newlength{\lefttextoffset}
\setlength{\lefttextoffset}{\leftshift+2mm}  % cm *
% Angle of the text written below (if vertical bars) 
% or to the left (if horizontal) of the item-bars
\newcommand{\barlabelangle}{90}              % *
% The same, but for label next to the level line
\newcommand{\ticklabelangle}{0}              % *
%----------------------------------------
% Legend-related vars
\newcommand{\legendShadow}{0}                % *
  % shadow color
\definecolor{legShCol}{gray}{.5}
\newcommand{\legendShadowColor}{legShCol}    % *
%----------------------------------------
% 3D related stuff
\newcommand{\frameTD}{0} % 3D or not frame   % *
\newcommand{\tdx}{0.4} % depth of 3d         % *
\newcommand{\tdy}{1.0}                       % * 
\newcommand{\tdhor}{\tdx}                    % +
\newcommand{\tdver}{\tdy}                    % + 
%-----------------------------------------
% Error ``whiskers''
\newcommand{\barerrorterm}{*-|}              % * 
\newpsstyle{barerrorstyle}{linewidth=2pt,linecolor=black}    
%-----------------------------------------
% Styles
\definecolor{frameBGgray}{gray}{0.9}
\newpsstyle{diagframestyle}{linewidth=1pt,linecolor=black,fillstyle=none}
\newpsstyle{tickstyle}{linewidth=1pt,linecolor=black}
\newpsstyle{levellinestyle}{linewidth=0.2pt,linecolor=blue}
\newpsstyle{diagTDframestyle}{linewidth=1pt,linecolor=black,fillstyle=none}
\newpsstyle{diagbgframestyle}{linewidth=1pt,linecolor=black,fillcolor=frameBGgray}
%-----------------------------------------
\newcommand{\tmpvar}{1}
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
% Commands to begin a bar diagram
% \bardiagbegin -> flat frame
% \bardiagTDbegin -> 3D frame
\newlength{\bgx}        % +
\newlength{\bgy}        % +
\newlength{\bgxa}       % +
\newlength{\bgya}       % +
%
\newcommand{\bardiagrambegin}[7]
{ % 1       2      3           4     5   6      7            
  % width,  height,bottom(cm), dbar, dx, xunit, yunit
  % height(#1) and width(#2) can be any real numbers, 
  % they are in units of (#6) & (#7)

  \renewcommand{\nbarsingroup}{1}

  % Default \tdy is 5% from the height of the diag
  \FPdiv{\tmpvar}{#2}{\dbar}%
  \FPmul{\tdy}{0.05}{\tmpvar}%
  %
  \ifthenelse{\bdorientation = \bdvert}%
   { \renewcommand{\diagheight}{#2}%
     \renewcommand{\diagwidth}{#1}% 
     \setlength{\bottomheight}{#3}%
     \renewcommand{\dbar}{#4}%
     \renewcommand{\dx}{#5}%
     \setlength{\xunitlength}{#6}%
     \setlength{\yunitlength}{#7}%
     %
     \renewcommand{\tdhor}{\tdx}%
     \renewcommand{\tdver}{\tdy}% 
     %
     \setlength{\frameXleft}{\leftshift}
     \setlength{\frameYbottom}{0pt}
     %
     \renewcommand{\barlabelangle}{90}
     %\renewcommand{\ticklabelangle}{0}
   }%
   { \renewcommand{\diagheight}{#1}%
    \renewcommand{\diagwidth}{#2}% 
    \setlength{\bottomheight}{#3}%
    \renewcommand{\dbar}{#4}%
    \renewcommand{\dx}{#5}%
    \setlength{\xunitlength}{#7}%
    \setlength{\yunitlength}{#6}%
    % 
    \renewcommand{\tdhor}{\tdy}%
    \renewcommand{\tdver}{\tdx}%
    %
    \setlength{\frameXleft}{0pt}
    \setlength{\frameYbottom}{\leftshift}
    %
    \renewcommand{\barlabelangle}{0}
    %\renewcommand{\ticklabelangle}{0}
  }% 
  %
  %- - - - - - - - - - - - - - - - - - - -
  % Take care of ticks (not to draw)
  \ifthenelse{\bdorientation = \bdvert}%
     {  \FPdiv{\tmpvar}{\diagheight}{\betweenticks}}%
     {  \FPdiv{\tmpvar}{\diagwidth}{\betweenticks}}%
  \FPtrunc{\numberofticks}{\tmpvar}{0}%
  \ifthenelse{\numberofticks > \MAXnumberofticks}%
         {  \typeout{----- \bardiag WARNING: }%
            \typeout{Too LARGE number of ticks: \numberofticks. Falling back to \MAXnumberofticks.}%
            \typeout{TIP: try to change the betweenticks parameter.}%
            \typeout{If you DO want such a large number of ticks,}%
            \typeout{change the MAXnumberofticks parameter.}%
            \typeout{Ignore this warning if you do not use ticks.}%
            \typeout{-----}%
            \renewcommand{\numberofticks}{\MAXnumberofticks}%
            \FPdiv{\betweenticks}{\diagheight}{\numberofticks}%
         }%
         {}%
  %- - - - - - - - - - - - - - - - - - - -
  % Compute center of the diagram
  \FPdiv{\hordiagcenter}{\diagwidth}{2}%
  \FPdiv{\vertdiagcenter}{\diagheight}{2}%
  %
  %- - - - - - - - - - - - - - - - - - - -
  %
  \psset{xunit=\xunitlength,yunit=\yunitlength}%
  \ifthenelse{\frameTD = 0}
  {\begin{pspicture}(-\captionoffset,-\bottomheight)(\diagwidth,\diagheight)}
  {\setlength{\bgya}{\yunitlength*\real{\diagheight}+\yunitlength*\real{\dbar}*\real{\tdver}}
   \begin{pspicture}(-\captionoffset,-\bottomheight)(\diagwidth,\bgya)
  }
    %\showgrid %#For debug purposes
    \psset{fillstyle=solid}%
    \renewcommand{\xval}{0}%
    \setlength{\tickrightedge}{-\leftshift+\ticklength}%
    \ifthenelse{\frameTD = 0}%
      {\renewcommand{\legendShadow}{0}%
       % let's draw a frame
       \psframe[style=diagframestyle](-\frameXleft,-\frameYbottom)(\diagwidth,\diagheight)%
      }%
      {\renewcommand{\legendShadow}{1}%
       % background frame
       \setlength{\bgx}{-\frameXleft+\xunitlength*\real{\dbar}*\real{\tdhor}}%
       \setlength{\bgxa}{\frameXleft+\bgx+\xunitlength*\real{\diagwidth}}%
       \setlength{\bgy}{\yunitlength*\real{\dbar}*\real{\tdver}-\frameYbottom}%
       \setlength{\bgya}{\bgy+\yunitlength*\real{\diagheight}+\frameYbottom}
       % let's draw it
       \psframe[style=diagbgframestyle](\bgx,\bgy)(\bgxa,\bgya)%
       \psline(-\frameXleft,\diagheight)(\bgx,\bgya)%
       \psline(-\frameXleft,-\frameYbottom)(\bgx,\bgy)%
       \psline(\diagwidth,-\frameYbottom)(\bgxa,\bgy)%
       \psline(\diagwidth,\diagheight)(\bgxa,\bgya)%
       % let's draw the foreground frame
       \psframe[style=diagTDframestyle](-\frameXleft,-\frameYbottom)(\diagwidth,\diagheight)%
      }%
}%
% - - - - - - - - - - - - - - - - - -
\newcommand{\bardiagramend}[2]
{  \ifthenelse{\frameTD = 1}
    { % let's draw the frame ones again
     \psframe[style=diagTDframestyle](-\frameXleft,-\frameYbottom)(\diagwidth,\diagheight)
    }{}
   \ifthenelse{\bdorientation = \bdvert}
    {   \rput[c](\hordiagcenter,-0.9\bottomheight){{#1}}
        \rput[c]{90}(-\captionoffset,\vertdiagcenter){{#2}} % ???? -2cm ?
    }
    {   \rput[c](\hordiagcenter,-0.9\bottomheight){{#2}}
        \rput[c]{90}(-\captionoffset,\vertdiagcenter){{#1}} % ???? -2cm ?
    }
  \end{pspicture}
}
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
% BARITEMS:
\newcommand{\ActiveBarPrimitive}{\barRect}

\newcommand{\subtopx}{0}
\newcommand{\subtopy}{0}

\newcommand{\baritem}[4][fillstyle=solid]{% 
  % the first (optional) argument is "psstyle options": default=solid
  % [style], name, value,  color
  %
  % \xval and \xxval are left and right edges of a bar
  % \xhalf is its center
  %
  \FPfadd{\xxval}{\xval}{\dbar}  
  \FPfadd{\tmpvar}{\xval}{\xxval}
  \FPdiv{\xhalf}{\tmpvar}{2}% ?????????? Get rid of it? 


  %
  % Now we call smth, which draws a ``bar''
  % it can be rectangular, cylindrical, 2 or 3d - we do not know
  % I plan \barRect; \barTDRect; \barCylinder; more???
  % It takes 5 arguments:
  % \something{\xval}{\yval}{\xxval}{\yyval}{color}
  %
  %
  \ifthenelse{\bdorientation = \bdvert}%is it vertical or horizontal?
    {\ActiveBarPrimitive[#1]{\xval}{0}{\xxval}{#3}{#4}}%
    {\ActiveBarPrimitive[#1]{0}{\xval}{#3}{\xxval}{#4}}%
  %
  %
  \printnumber{\xhalf}{#3}{0}{#3}
  %
  \FPset{\subtopx}{\xval}
  \FPset{\subtopy}{#3}
  %
  \FPfadd{\tmpvar}{\xval}{\dx}
  \FPset{\xval}{\tmpvar}
  %
  % \xhalf := \xhalf + \dbar * (\nbarsingroup - 1)/2

  \FPfsub{\tmpvar}{\nbarsingroup}{1}
  \FPdiv{\tmpvar}{\tmpvar}{2}
  \FPmul{\tmpvar}{\tmpvar}{\dbar}
  \FPfadd{\xhalf}{\xhalf}{\tmpvar}

  \ifthenelse{\bdorientation = \bdvert}%is it vertical or horizontal?
    {\printbarlabel{\xhalf}{\textoffset}{\barlabelangle}{#2}}%
    {\printbarlabel{\textoffset}{\xhalf}{\barlabelangle}{#2}}%
  \setcounter{subbar}{1}
}

\newcommand{\barmidx}{0}
\newcommand{\barerrormargins}[2] % To make asymmetric margins
% 1st = upper Dy; 2nd = bottom Dy
{%
  \ifthenelse{\bdorientation = \bdvert}%is it vertical or horizontal?
  { \FPdiv{\tmpvar}{\dbar}{2}
    \FPfadd{\barmidx}{\subtopx}{\tmpvar}
    \FPfadd{\tmpvar}{\subtopy}{#1}
    \psline[style=barerrorstyle]{\barerrorterm}(\barmidx,\subtopy)(\barmidx,\tmpvar)
    %
    \FPdiv{\tmpvar}{\dbar}{2}
    \FPfadd{\barmidx}{\subtopx}{\tmpvar}
    \FPfsub{\tmpvar}{\subtopy}{#2}
    \psline[style=barerrorstyle]{\barerrorterm}(\barmidx,\subtopy)(\barmidx,\tmpvar)
  }
  { \FPdiv{\tmpvar}{\dbar}{2}
    \FPfadd{\barmidx}{\subtopx}{\tmpvar}
    \FPfadd{\tmpvar}{\subtopy}{#1}
    \psline[style=barerrorstyle]{\barerrorterm}(\subtopy,\barmidx)(\tmpvar,\barmidx)
    %
    \FPdiv{\tmpvar}{\dbar}{2}
    \FPfadd{\barmidx}{\subtopx}{\tmpvar}
    \FPfsub{\tmpvar}{\subtopy}{#2}
    \psline[style=barerrorstyle]{\barerrorterm}(\subtopy,\barmidx)(\tmpvar,\barmidx)
  }
}
%%%%%%%%%%%%%
\newcommand{\barerror}[1] % To make symmetric margins
{
  \barerrormargins{#1}{#1}
}
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
% SUBITEMS
\newcommand{\subxval}{0}
\newcommand{\subxxval}{0}


\newcommand{\subbaritem}[4][fillstyle=solid]{
  % [style], name, value,  color
  %
  % \subxval and \subxxval are left and right edges of a bar
  % \subxhalf is its center
  %
  \FPfsub{\subxxval}{\xval}{\dx}
  \FPmul{\tmpvar}{\dbar}{\thesubbar} 
  \FPfadd{\subxval}{\subxxval}{\tmpvar}

  \FPfadd{\subxxval}{\subxval}{\dbar}  
  
  \FPfadd{\tmpvar}{\subxval}{\subxxval}
  \FPdiv{\subxhalf}{\tmpvar}{2}% ?????????? Get rid of it?
  %
  % Now we call smth, which draws a ``bar''
  % it can be rectangular, cylindrical, 2 or 3d - we do not know
  % I plan \barRect; \barTDRect; \barCylinder; ???
  % It takes 5 arguments:
  % \something{\xval}{\yval}{\xxval}{\yyval}{color}
  %
  \ifthenelse{\bdorientation = \bdvert}%is it vertical or horizontal?
    {\ActiveBarPrimitive[#1]{\subxval}{0}{\subxxval}{#3}{#4}}%
    {\ActiveBarPrimitive[#1]{0}{\subxval}{#3}{\subxxval}{#4}}%
  %
  %
  \printnumber{\subxhalf}{#3}{0}{#3}

  \FPset{\subtopx}{\subxval}
  \FPset{\subtopy}{#3}

  %\rput[r]{90}(\subxhalf,\textoffset){#2}
  \ifthenelse{\bdorientation = \bdvert}%is it vertical or horizontal?
    {\printbarlabel{\subxhalf}{\textoffset}{\barlabelangle}{#2}}%
    {\printbarlabel{\textoffset}{\subxhalf}{\barlabelangle}{#2}}%
  \addtocounter{subbar}{1}
}

%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
% TOP SUBITEMS

\newcommand{\subtopxx}{0}   %  +
\newcommand{\subtopyy}{0}   %  +
\newcommand{\subtopxhalf}{0}%  +

\newcommand{\subtopbaritem}[4][fillstyle=solid]{
  % [style], name, value,  color
  %
  % 
  % \subtopxhalf is the center
  %
  \FPfadd{\subtopxx}{\subtopx}{\dbar}

  \FPfadd{\subtopyy}{\subtopy}{#3}

  \FPfadd{\tmpvar}{\subtopx}{\subtopxx}
  \FPdiv{\subtopxhalf}{\tmpvar}{2}% 
  %
  \ifthenelse{\bdorientation = \bdvert}%is it vertical or horizontal?
    {\ActiveBarPrimitive[#1]{\subtopx}{\subtopy}{\subtopxx}{\subtopyy}{#4}}%
    {\ActiveBarPrimitive[#1]{\subtopy}{\subtopx}{\subtopyy}{\subtopxx}{#4}}%
  %
  %
  \printnumber{\subtopxhalf}{#3}{\subtopy}{\subtopyy}
  %
  % it is not supposed to print any label, so,
  % we do not need to tae care of it.
  %\rput[r]{90}(\subxhalf,\textoffset){#1}
  %\addtocounter{subbar}{1}
  %
  \FPset{\subtopy}{\subtopyy}
}
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
% Bar primitives
\input{bardiag.bar}
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
% Legend
\newlength{\legendXo}     % this one is an argument of diagLegendbegin
\newlength{\legendYo}     % the same
\newlength{\legendWidth}  % the same
\newlength{\legendHeight} % this will be computed
%
\newlength{\legenditemheight}\setlength{\legenditemheight}{7mm}
\newlength{\legendspacer}\setlength{\legendspacer}{3mm}
\newlength{\legendRectWidth}\setlength{\legendRectWidth}{6mm}
\newlength{\legendRectHeight}\setlength{\legendRectHeight}{4mm}
%
\newcommand{\diagLegendoptions}[3]
{ % 1       2           3
  % bgcolor framecolor  framelinewidth 
  \newpsstyle{diagLegenditemstyle}{fillstyle=solid,fillcolor=#1,linecolor=#1}
  \newpsstyle{diagLegendframetyle}{fillstyle=none,linecolor=#2,linewidth=#3}  
}
%First we call \diagLegendoptions
\diagLegendoptions{white}{black}{0.5pt}
%
\newlength{\lixcoor}
\newlength{\liycoor}
\newlength{\lixxcoor}
\newlength{\liyycoor}
%
\newlength{\liix}  % where to put the rectangle with color
\newlength{\liiix} % where to put the text
%
\newcommand{\diagLegendbegin}[3]
{%  1           2        3
 %  Xo(units)   Yo(un)   Width(un)
 %  (Xo,Yo) are coordinates of the left-up corner
 \ifthenelse{\bdorientation = \bdvert}%
 {
  \setlength{\legendXo}{\xunitlength*\real{#1}}
  \setlength{\legendYo}{\yunitlength*\real{#2}}
  \setlength{\legendWidth}{\xunitlength*\real{#3}}
  \setlength{\legendHeight}{0cm}
  %
  \setlength{\lixcoor}{\legendXo}
  \setlength{\lixxcoor}{\legendXo+\legendWidth}
  \setlength{\liycoor}{\legendYo}
  %
  \setlength{\liix}{\lixcoor+\legendspacer}
  \setlength{\liiix}{\liix+\legendRectWidth+\legendspacer}
 }
 {
  \setlength{\legendXo}{\xunitlength*\real{#2}}
  \setlength{\legendYo}{\yunitlength*\real{#1}}
  \setlength{\legendWidth}{\yunitlength*\real{#3}}
  \setlength{\legendHeight}{0cm}
  %
  \setlength{\lixcoor}{\legendXo}
  \setlength{\lixxcoor}{\legendXo+\legendWidth}
  \setlength{\liycoor}{\legendYo}
  %
  \setlength{\liix}{\lixcoor+\legendspacer}
  \setlength{\liiix}{\liix+\legendRectWidth+\legendspacer}
 }
}

\newlength{\lShX}
\newlength{\lShXxx}
\newlength{\lShY}
\newlength{\lShYyy}

\newcommand{\diagLegendend}
{ \ifthenelse{\legendShadow = 1}
   {\setlength{\lShX}{\legendXo+\xunitlength*\dbar*\real{\tdhor}}
    \setlength{\lShXxx}{\lixxcoor+\xunitlength*\dbar*\real{\tdhor}}
    \setlength{\lShY}{\liycoor+\yunitlength*\dbar*\real{\tdver}}
    \setlength{\lShYyy}{\legendYo+\yunitlength*\dbar*\real{\tdver}}
    \psframe[fillstyle=solid,linecolor=\legendShadowColor,fillcolor=\legendShadowColor](\lShX,\legendYo)(\lShXxx,\lShYyy)
    \psframe[fillstyle=solid,linecolor=\legendShadowColor,fillcolor=\legendShadowColor](\lixxcoor,\lShY)(\lShXxx,\lShYyy)
   }
   {}
  \psframe[style=diagLegendframetyle](\legendXo,\liycoor)(\lixxcoor,\legendYo)
}


\newlength{\legendRectXo}
\newlength{\legendRectX}
\newlength{\legendRectYo}
\newlength{\legendRectY}
%
\newcommand{\legendPutRect}[2][fillstyle=solid]
{
  \setlength{\legendRectXo}{\liix}
  \setlength{\legendRectYo}{(\liyycoor+\liycoor-\legendRectHeight)/2}
  %\setlength{\legendRectYo}{(\liyycoor+\liycoor)/2-\legendRectHeight}
  \setlength{\legendRectX}{\legendRectXo+\legendRectWidth}
  \setlength{\legendRectY}{\legendRectYo+\legendRectHeight}
  \psframe[fillcolor=#2,#1](\legendRectXo,\legendRectYo)(\legendRectX,\legendRectY)
}


\newlength{\legendiyc}
\newcommand{\diagLegenditem}[3][fillstyle=solid]
{% [1]     2           3
 % style   item_text   color
 \addtolength{\legendHeight}{\legenditemheight}
 \setlength{\liyycoor}{\liycoor}
 \addtolength{\liycoor}{-\legenditemheight}
 \psframe[style=diagLegenditemstyle](\lixcoor,\liycoor)(\lixxcoor,\liyycoor)
 \legendPutRect[#1]{#3}
 \setlength{\legendiyc}{(\liycoor+\liyycoor)/2}
 \rput[l](\liiix,\legendiyc){#2}
}



%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
% Util
\newcommand{\outputparameters}
{\rput[lt](0,-2\bottomheight){\parbox{10cm}{
   \begin{tabular}{p{5cm}p{5cm}}
   Width:         &  \diagwidth \\\hline
   Height:        &\diagheight \\\hline
   Width of a bar:& \dx \\\hline
   Distance between bars:& \dbar\\\hline\hline
   %X unit length: & \ratio{\xunitlength}{1cm}\\\hline
   %Y unit length: & \ratio{\yunitlength}{1cm}\\\hline
   TICKS:\\
   Between ticks: & \betweenticks\\ 
   Number of ticks:&\numberofticks (computed)\\ \hline\hline
   LAST VALS:\\
   xval: & \xval\\
   dbar: & \dbar\\
   xxval:& \xxval\\
   xhalf:& \xhalf\\ 
   tmpvar:&\tmpvar\\
 \end{tabular}}}
}
%--------------------------------------------------------------------

\newlength{\ycoordnum}
%
\newcommand\printnumber[4]
{ % 1                  2                                3         4
  % center of the bar, text(number) (will be centered), bottom y, top y
  %
  % we compute the y-position of the text depending on 
  % the value of the \placenumber parameter
  % it can be:  \belowtop, \overtop, \bottom
\ifthenelse{\bdorientation = \bdvert}
{ 
 \ifthenelse{\placenumber = \overtop}
     {\setlength{\ycoordnum}{\yunitlength*\real{#4}-\numberoffset}
      \ifthenelse{\shownumbers = 1}
                 {\rput[bc](#1,\ycoordnum){\numbercolor #2}}{}
     }
     {%else
       \ifthenelse{\placenumber = \bottom}
          {\setlength{\ycoordnum}{\yunitlength*\real{#3}-\numberoffset}
           \ifthenelse{\shownumbers = 1}
                      {\rput[bc](#1,\ycoordnum){\numbercolor #2}}
                      {}
          }
          % default->\belowtop
          {\setlength{\ycoordnum}{{\yunitlength*\real{#4}}+\numberoffset}
           \ifthenelse{\shownumbers = 1 \AND \lengthtest{\ycoordnum > -\numberoffset}}
                      {\rput[tc](#1,\ycoordnum){\numbercolor #2}}{}
          } 
     }
}
{%else, i.e. if it is horisontal
 %if fact, ``y-coordinate'' \ycoordnum is now along the horizontal axis
 \ifthenelse{\placenumber = \overtop}
     {
      \setlength{\ycoordnum}{\xunitlength*\real{#4}-\numberoffset}
      \ifthenelse{\shownumbers = 1}
                 {\rput[l](\ycoordnum,#1){\numbercolor #2}}{}
     }
     {%else
       \ifthenelse{\placenumber = \bottom}
          {\setlength{\ycoordnum}{\xunitlength*\real{#3}-\numberoffset}
           \ifthenelse{\shownumbers = 1}
                      {\rput[l](\ycoordnum,#1){\numbercolor #2}}
                      {}
          }
          % default->\belowtop
          {\setlength{\ycoordnum}{{\xunitlength*\real{#4}}+\numberoffset}
           \ifthenelse{\shownumbers = 1 \AND \lengthtest{\ycoordnum > -\numberoffset}}
                      {\rput[r](\ycoordnum,#1){\numbercolor #2}}{}
          } %\rput[tc](\ycoordnum,#1){\numbercolor #2}
     }
}
}
%--------------------------------------------------------------------

\newlength{\ytick}
\newcommand{\whattoprint}{0}
%
\newcommand{\drawlevellines}
{\ifthenelse{\bdorientation = \bdvert}
  {\rput[c]{\ticklabelangle}(-\lefttextoffset,0){0}}% this is 0
  {\rput[c]{\ticklabelangle}(0,-\lefttextoffset){0}}
   % let's draw ticks; then lines; 
   % they are controlled by \betweenticks variable
   % on its basis we have computed \numberofticks above (in \diagbegin)
   %
   \multido{\n=1+1}{\numberofticks}{%
     \ifthenelse{\bdorientation = \bdvert}
     {\setlength{\ytick}{\yunitlength*\real{\betweenticks}*\n}
      % tick itself
      \psline[style=tickstyle](-\leftshift,\ytick)(\tickrightedge,\ytick) 
      % level lines
      \psline[style=levellinestyle](\tickrightedge,\ytick)(\diagwidth,\ytick)
      % numbers!
      \FPmul{\whattoprint}{\n}{\betweenticks}
      \FPclip{\whattoprint}{\whattoprint}
      \rput[r](-\lefttextoffset,\ytick){\whattoprint}
     }
     {\setlength{\ytick}{\xunitlength*\real{\betweenticks}*\n}
      \psline[style=tickstyle](\ytick,-\leftshift)(\ytick,\tickrightedge)
       \psline[style=levellinestyle](\ytick,\tickrightedge)(\ytick,\diagheight)
      \FPmul{\whattoprint}{\n}{\betweenticks}
      \FPclip{\whattoprint}{\whattoprint}
      \rput[c](\ytick,-\lefttextoffset){\whattoprint}
     } 
   }
}
%- - - - - - - - - - - - - - - - - - - - 
\newcommand{\printbarlabel}[4]{
  % x, y, angle, text
  \ifthenelse{ #3 = 0 \AND \bdorientation = \bdvert}
    {\rput[tc]{#3}(#1,#2){{#4}}} 
    {\rput[r]{#3}(#1,#2){{#4}}}
}
%--------------------------------------------------------------------
%
\InputIfFileExists{bardiag.cfg}
       {\typeout{BarDiag: Local configuration file bardiag.cfg loaded}}
       {\typeout{BarDiag: No local configuration loaded}}
%
%--------------------------------------------------------------------