/*
**  DrawBiv1
**
**  Purpose:
**    Show a bivariate plot using OxDraw
**
**  Date:
**    13/12/2001
**
**  Author:
**    Charles Bos
*/
#include <oxstd.h>      // Include the Ox standard library header
#include <oxdraw.h>     // Include the Ox graphics library header
#include <oxprob.h>

// Include the DrawBivDensity routine
#include <packages/gnudraw/lib/libbiv.ox>

DrawMode(const mY, const asTitle, const iMode)
{
  decl i;
  
  for (i= 0; i < 3; ++i)
    {
      DrawBivDensity(i, mY, {"x", "y"}, i==0, i==1, i==2, iMode);
      DrawTitle(i, asTitle[i]);
    }
  DrawTitle(3, asTitle[3]);    
  DrawBivDensity(3, mY, {"x", "y"}, TRUE, TRUE, TRUE, iMode);
  ShowDrawWindow();
}

main()
{
  decl mY, asTitle;

  println ("Example of drawing bivariate histograms using OxDraw");
  asTitle= {"Density", "Histogram", "Normal", "Joined"};
  mY= ranchi(2, 1000, 4)+<3; -2>;

  SetDrawWindow("Surface");
  DrawMode(mY, asTitle, 0);
  SetDrawWindow("Contour");
  DrawMode(mY, asTitle, 2);
}