home *** CD-ROM | disk | FTP | other *** search
/ AMIGA PD 1 / AMIGA-PD-1.iso / Programme_zum_Heft / Programmieren / Kurztests / PascalPCQ / Include / Graphics / Regions.i < prev    next >
Text File  |  1990-08-28  |  1KB  |  52 lines
  1. {
  2.     Regions.i for PCQ Pascal
  3. }
  4.  
  5. {$I "Include:Graphics/GFX.i"}
  6.  
  7. type
  8.  
  9.     RegionRectangle = record
  10.     Next,
  11.     Prev    : ^RegionRectangle;
  12.     bounds    : Rectangle;
  13.     end;
  14.     RegionRectanglePtr = ^RegionRectangle;
  15.  
  16.     Region = record
  17.     bounds    : Rectangle;
  18.     RegionRectangle : RegionRectanglePtr;
  19.     end;
  20.     RegionPtr = ^Region;
  21.  
  22. Procedure AndRectRegion(region : RegionPtr; rect : RectanglePtr);
  23.     External;
  24.  
  25. Function AndRegionRegion(region1, region2 : RegionPtr) : Boolean;
  26.     External;
  27.  
  28. Function ClearRectRegion(region : RegionPtr; rect : RectanglePtr) : Boolean;
  29.     External;
  30.  
  31. Procedure ClearRegion(region : RegionPtr);
  32.     External;
  33.  
  34. Procedure DisposeRegion(region : RegionPtr);
  35.     External;
  36.  
  37. Function NewRegion : RegionPtr;
  38.     External;
  39.  
  40. Function OrRectRegion(region : RegionPtr; rectangle : RectanglePtr) : Boolean;
  41.     External;
  42.  
  43. Function OrRegionRegion(region1, region2 : RegionPtr) : Boolean;
  44.     External;
  45.  
  46. Function XorRectRegion(region : RegionPtr; rect : RectanglePtr) : Boolean;
  47.     External;
  48.  
  49. Function XorRegionRegion(region1, region2 : RegionPtr) : Boolean;
  50.     External;
  51.  
  52.