/*
**  GnuYMD
**
**  Purpose:
**    Show the possibility to plot irregular dates
**
**  Date:
**    18/5/2000
**    9/12/2005  Revision to YMD format
**
**  Author:
**    Charles Bos
*/
#include <oxstd.h>      // Include the Ox standard library header
#include <oxprob.h>
#include <packages/gnudraw/gnudraw.h>

main()
{
  decl mY, mYMD;

  mY= ranchi(3, 4, 10);
  mYMD= <1987, 1990, 1991, 1991;
            3,    3,    4,    5; 
            1,    5,   15,   21>;

  DrawTitle(0, "Irregular dates");
  DrawTMatrix(0, mY, "Data in 1987, 1990, and twice in 1991", mYMD, 0, 0, 2);

  SaveDrawWindow("gnuymd.plb");
  SaveDrawWindow("gnuymd.png");
  ShowDrawWindow();
  CloseDrawWindow();
}