home *** CD-ROM | disk | FTP | other *** search
/ AMIGA PD 1 / AMIGA-PD-1.iso / Programme_zum_Heft / Programmieren / Kurztests / PascalPCQ / Include / Graphics / Clip.i < prev    next >
Text File  |  1990-08-28  |  2KB  |  90 lines
  1. {
  2.     Clip.i of PCQ Pascal
  3.  
  4.     These are the types used for layer and clipping stuff.
  5. }
  6.  
  7. {$I "Include:Graphics/GFX.i"}
  8. {$I "Include:Exec/Semaphores.i"}
  9.  
  10. type
  11.  
  12. { structures used by and constructed by windowlib.a }
  13. { understood by rom software }
  14.  
  15.     ClipRect = Record
  16.     Next    : ^ClipRect;    { roms used to find next ClipRect }
  17.     prev    : ^ClipRect;    { ignored by roms, used by windowlib }
  18.     lobs    : Address;    { ignored by roms, used by windowlib (LayerPtr)}
  19.     BitMap    : Address;
  20.     bounds    : Rectangle;    { set up by windowlib, used by roms }
  21.     _p1,
  22.     _p2    : ^ClipRect;    { system reserved }
  23.     reserved : Integer;    { system use }
  24.     Flags    : Integer;    { only exists in layer allocation }
  25.     end;
  26.     ClipRectPtr = ^ClipRect;
  27.  
  28.     Layer = record
  29.     front,
  30.     back        : ^Layer;    { ignored by roms }
  31.     ClipRect     : ClipRectPtr;    { read by roms to find first cliprect }
  32.     rp        : Address;    { (RastPortPtr) ignored by roms, I hope }
  33.     bounds        : Rectangle;    { ignored by roms }
  34.     reserved     : Array [0..3] of Byte;
  35.     priority     : Short;    { system use only }
  36.     Flags        : Short;    { obscured ?, Virtual BitMap? }
  37.     SuperBitMap    : Address;
  38.     SuperClipRect    : ClipRectPtr;    { super bitmap cliprects if 
  39.                         VBitMap != 0}
  40.                     { else damage cliprect list for refresh }
  41.     Window        : Address;    { reserved for user interface use }
  42.     Scroll_X,
  43.     Scroll_Y    : Short;
  44.     cr,
  45.     cr2,
  46.     crnew        : ClipRectPtr;    { used by dedice }
  47.     SuperSaveClipRects : ClipRectPtr; { preallocated cr's }
  48.     _cliprects    : ClipRectPtr;    { system use during refresh }
  49.     LayerInfo    : Address;    { points to head of the list }
  50.     Lock        : SignalSemaphore;
  51.     reserved3    : Array [0..7] of Byte;
  52.     ClipRegion    : Address;
  53.     saveClipRects    : Address;    { used to back out when in trouble}
  54.     reserved2    : Array [0..21] of Byte;
  55.     { this must stay here }
  56.     DamageList    : Address;    { list of rectangles to refresh 
  57.                         through }
  58.     end;
  59.     LayerPtr = ^Layer;
  60.  
  61. const
  62.  
  63. { internal cliprect flags }
  64.  
  65.     CR_NEEDS_NO_CONCEALED_RASTERS    = 1;
  66.  
  67. { defines for code values for getcode }
  68.  
  69.     ISLESSX    = 1;
  70.     ISLESSY    = 2;
  71.     ISGRTRX    = 4;
  72.     ISGRTRY    = 8;
  73.  
  74.  
  75. Function AttemptLockLayerRom(layer : LayerPtr) : Boolean;
  76.     External;
  77.  
  78. Procedure CopySBit(layer : LayerPtr);
  79.     External;
  80.  
  81. Procedure LockLayerRom(layer : LayerPtr);
  82.     External;
  83.  
  84. Procedure SyncSBitMap(layer : LayerPtr);
  85.     External;
  86.  
  87. Procedure UnlockLayerRom(layer : LayerPtr);
  88.     External;
  89.  
  90.