home *** CD-ROM | disk | FTP | other *** search
/ Amiga ISO Collection / AmigaUtilCD2.iso / Programming / Misc / M2V11-1.LHA / modula / amiga / Layers.def < prev    next >
Encoding:
Text File  |  1993-11-10  |  3.0 KB  |  95 lines
  1. DEFINITION FOR LIBRARY MODULE Layers ;
  2.  
  3. FROM SYSTEM    IMPORT ADDRESS ;
  4. FROM Graphics    IMPORT Layer_InfoPtr, LayerPtr, RastPortPtr, ClipRectPtr,
  5.                BitMapPtr, RegionPtr, RectanglePtr ;
  6.  
  7. FROM Utility    IMPORT HookPtr ;
  8. FROM Exec    IMPORT LibraryPtr ;
  9.  
  10. VAR
  11.   LayersBase : LibraryPtr ;
  12.  
  13. PROCEDURE InitLayers( li : Layer_InfoPtr ) ;
  14.  
  15. PROCEDURE CreateUpfrontLayer( li : Layer_InfoPtr ;
  16.                   bm : BitMapPtr ;
  17.                   x0, y0, x1, y1 : LONGINT ;
  18.                   flags : BITSET ;
  19.                   bm2   : BitMapPtr ) : LayerPtr ;
  20.  
  21. PROCEDURE CreateBehindLayer( li : Layer_InfoPtr ;
  22.                  bm : BitMapPtr ;
  23.                  x0, y0, x1, y1 : LONGINT ;
  24.                  flags : BITSET ;
  25.                  bm2   : BitMapPtr ) : LayerPtr ;
  26.  
  27. PROCEDURE UpfrontLayer( dummy : LONGINT ; layer : LayerPtr ) : LONGINT ;
  28. PROCEDURE BehindLayer( dummy : LONGINT ; layer : LayerPtr ) : LONGINT ;
  29.  
  30. PROCEDURE MoveLayer( dummy : LONGINT ;
  31.              layer : LayerPtr ;
  32.              dx,dy : LONGINT ) : LONGINT ;
  33.  
  34. PROCEDURE SizeLayer( dummy : LONGINT ;
  35.              layer : LayerPtr ;
  36.              dx,dy : LONGINT ) : LONGINT ;
  37.  
  38. PROCEDURE ScrollLayer( dummy : LONGINT ;
  39.                layer : LayerPtr ;
  40.                dx,dy : LONGINT ) ;
  41.  
  42. PROCEDURE BeginUpdate( l : LayerPtr ) : LONGINT ;
  43. PROCEDURE EndUpdate( layer : LayerPtr ; flag : BOOLEAN ) ;
  44. PROCEDURE DeleteLayer( dummy : LONGINT ; layer : LayerPtr ) : LONGINT ;
  45. PROCEDURE LockLayer( dummy : LONGINT ; layer : LayerPtr ) ;
  46. PROCEDURE UnlockLayer( layer : LayerPtr ) ;
  47. PROCEDURE LockLayers( li : Layer_InfoPtr ) ;
  48. PROCEDURE UnlockLayers( li : Layer_InfoPtr ) ;
  49. PROCEDURE LockLayerInfo( li : Layer_InfoPtr ) ;
  50.  
  51. PROCEDURE SwapBitsRastPortClipRect( rp : RastPortPtr ; cr : ClipRectPtr );
  52.  
  53. PROCEDURE WhichLayer( li : Layer_InfoPtr ; x , y : LONGINT ) : LayerPtr ;
  54. PROCEDURE UnlockLayerInfo( li : Layer_InfoPtr ) ;
  55. PROCEDURE NewLayerInfo( ) : Layer_InfoPtr ;
  56. PROCEDURE DisposeLayerInfo( li : Layer_InfoPtr ) ;
  57. PROCEDURE FattenLayerInfo( li : Layer_InfoPtr ) : LONGINT ;
  58. PROCEDURE ThinLayerInfo( li : Layer_InfoPtr ) ;
  59.  
  60. PROCEDURE MoveLayerInFrontOf( layer_to_move,other_layer : LayerPtr ) : LONGINT ;
  61.  
  62. PROCEDURE InstallClipRegion( layer  : LayerPtr ;
  63.                  region : RegionPtr ) : RegionPtr ;
  64.  
  65. PROCEDURE MoveSizeLayer( layer : LayerPtr ;
  66.              dx, dy, dw, dh : LONGINT ) : LONGINT ;
  67.  
  68. PROCEDURE CreateUpfrontHookLayer( li : Layer_InfoPtr ;
  69.                   bm : BitMapPtr ;
  70.                   x0, y0, x1, y1 : LONGINT ;
  71.                   flags : BITSET ;
  72.                   hook  : HookPtr ;
  73.                   bm2   : BitMapPtr ) : LayerPtr ;
  74.  
  75. PROCEDURE CreateBehindHookLayer( li : Layer_InfoPtr ;
  76.                  bm : BitMapPtr ;
  77.                  x0, y0, x1, y1 : LONGINT ;
  78.                  flags : BITSET ;
  79.                  hook  : HookPtr ;
  80.                  bm2   : BitMapPtr ) : LayerPtr ;
  81.  
  82. PROCEDURE InstallLayerHook( layer : LayerPtr ; hook : HookPtr ) : HookPtr ;
  83.  
  84. (*--- functions in V39 or higher (Release 3) ---*)
  85.  
  86. PROCEDURE InstallLayerInfoHook( li : Layer_InfoPtr ; hook : HookPtr ): HookPtr ;
  87. PROCEDURE SortLayerCR( layer : LayerPtr ; dx, dy : LONGINT ) ;
  88.  
  89. PROCEDURE DoHookClipRects( hook  : HookPtr ;
  90.                rport : RastPortPtr ;
  91.                rect  : RectanglePtr ) ;
  92.  
  93. END Layers.
  94.  
  95.