home *** CD-ROM | disk | FTP | other *** search
/ Amiga ISO Collection / AmigaUtilCD2.iso / Programming / Pascal / MAXONPASCAL2.DMS / in.adf / INCLUDE / graphics / gfx.h < prev    next >
Encoding:
Text File  |  1994-07-25  |  838 b   |  44 lines
  1. {$if not def GRAPHICS_GFX_H} CONST GRAPHICS_GFX_H=0;
  2.  
  3. { ****************************************************************
  4.   ** KickPascal-Include-Datei "graphics/gfx.h" zu Kickstart 3.0 **
  5.   **************************************************************** }
  6.  
  7. TYPE p_Rectangle = ^Rectangle;
  8. TYPE p_Rect32 = ^Rect32;
  9. TYPE p_tPoint = ^tPoint;
  10. TYPE p_Point  = ^Point;
  11. TYPE PLANEPTR = Ptr;
  12. TYPE p_BitMap = ^BitMap;
  13.  
  14. CONST
  15.  BITSET = $8000;
  16.  BITCLR = 0;
  17.  
  18. TYPE Rectangle = RECORD
  19.  MinX,MinY : Integer;
  20.  MaxX,MaxY : Integer;
  21. END;
  22.  
  23. TYPE Rect32 = RECORD
  24.  MinX,MinY : LongInt;
  25.  MaxX,MaxY : LongInt;
  26. END;
  27.  
  28. TYPE tPoint = RECORD
  29.  x,y : Integer;
  30. END;
  31.  
  32. TYPE Point = tPoint;
  33.  
  34. TYPE BitMap = RECORD
  35.  BytesPerRow : Word;
  36.  Rows        : Word;
  37.  Flags       : Byte;
  38.  Depth       : Byte;
  39.  pad         : Word;
  40.  Planes      : ARRAY[0..7] OF PLANEPTR;
  41. END;
  42.  
  43. {$endif}
  44.