(******************************************************************************
*                                GRAPHH11.DEF                                 *
*                              ABO Software Dep.                              *
*                                                                             *
* Purpose : To provide a simple abstract graphics interface.                  *
*                                                                             *
*   Notes : These routines, to provide speed, have no error checking, and no  *
*         clipping. Hence care must be taken to ensure that valid parameters  *
*         are used when they are called.                                      *
*                                                                             *
*         Version Date : 26/07/96                                             *
******************************************************************************)
DEFINITION MODULE GRAPHH1;

FROM COLORI1 IMPORT ColorRGB;

CONST
  MaxPts= 8;
  Xmax =160;
  Ymax =100;

TYPE

  Color     = ColorRGB;

  Point     = RECORD
    X    : INTEGER;
    Y    : INTEGER;
  END;

VAR

  buffer    : ARRAY[0..Ymax-1],[0..Xmax-1] OF Color;


PROCEDURE initgraph;

PROCEDURE closegraph;

PROCEDURE paintbuff;

PROCEDURE clearbuff;

PROCEDURE pixel(x,y       : INTEGER;c:Color);

PROCEDURE hline(y,x1,x2   : INTEGER;c:Color);

PROCEDURE line(x1,y1,x2,y2: INTEGER;c:Color);

PROCEDURE box(x1,y1,x2,y2 : INTEGER;c:Color);

PROCEDURE poly(n          : INTEGER;
               p          : ARRAY OF Point;
               c          : Color);

END GRAPHH1.
