home *** CD-ROM | disk | FTP | other *** search
/ AMIGA PD 1 / AMIGA-PD-1.iso / Programme_zum_Heft / Programmieren / Kurztests / PascalPCQ / Include / Graphics / GFX.i < prev    next >
Text File  |  1991-03-05  |  687b  |  43 lines
  1. {
  2.     GFX.i for PCQ Pascal
  3.  
  4.     General graphics include file for application programs 
  5. }
  6.  
  7. const
  8.  
  9.     BITSET    = $8000;
  10.     BITCLR    = 0;
  11.  
  12. type
  13.  
  14.     Rectangle = record
  15.     MinX,MinY    : Short;
  16.     MaxX,MaxY    : Short;
  17.     end;
  18.     RectanglePtr = ^Rectangle;
  19.  
  20.     Point = record
  21.     x,y    : Short;
  22.     end;
  23.     PointPtr = ^Point;
  24.  
  25.     PLANEPTR = Address;
  26.  
  27.     BitMap = record
  28.     BytesPerRow    : Short;
  29.     Rows        : Short;
  30.     Flags        : Byte;
  31.     Depth        : Byte;
  32.     pad        : Short;
  33.     Planes        : Array [0..7] of PLANEPTR;
  34.     end;
  35.     BitMapPtr = ^BitMap;
  36.  
  37. Procedure InitBitMap(bm : BitMapPtr; depth : Byte; width, height : Short);
  38.     External;
  39.  
  40. Function RASSIZE(w,h : Short) : Integer;   { not a graphics.library call }
  41.     External;
  42.  
  43.