{$ifndef GRAPHICS_GFX_H}
Const GRAPHICS_GFX_H = 0;
      BITSET = $8000;
      BITCLR = 0;
Type p_Rectangle = ^Rectangle;
     Rectangle = Record
                   MinX, MinY, MaxX, MaxY: integer
                 end;
     p_tPoint = ^tPoint;
     tPoint = Record
                x, y: integer
              end;
     PLANEPTR = ^Ptr;
     p_BitMap = ^BitMap;
     BitMap = Record
                BytesPerRow, Rows: Word;
                Flags, Depth: Byte;
                pad: Word;
                Planes: Array[0..7] of PLANEPTR
              end;
Function RASSIZE(w, h: Long): Long;
  begin
    RASSIZE := h*(((w + 15) div 8) and $FFFE)
  end;
{$endif}