home *** CD-ROM | disk | FTP | other *** search
/ Global Amiga Experience / globalamigaexperience.iso / compressed / development / clusterdemo.dms / clusterdemo.adf / Modules.lha / modules / txt / Layers.def < prev    next >
Text File  |  1994-05-25  |  6KB  |  167 lines
  1. |##########|
  2. |#MAGIC   #|CLABLLLJ
  3. |#PROJECT #|"IMPORTALL"
  4. |#PATHS   #|"StdProject"
  5. |#FLAGS   #|xx---x--x---xxx-----------------
  6. |#USERSW  #|--------------------------------
  7. |#USERMASK#|--------------------------------
  8. |#SWITCHES#|x----x----------
  9. |##########|
  10. DEFINITION MODULE Layers;
  11.  
  12.  
  13. FROM Graphics   IMPORT ClipRectPtr,BitMapPtr,LayerFlagSet,LayerInfoPtr,
  14.                        LayerPtr,RastPortPtr,RegionPtr,Rectangle;
  15. FROM Utility    IMPORT HookPtr;
  16. FROM Exec       IMPORT LibraryPtr;
  17. FROM System     IMPORT Regs,LONGSET;
  18.  
  19. TYPE
  20.   LayerMessagePtr = POINTER TO LayerMessage;
  21.   LayerMessage    = RECORD
  22.                       layer    : LayerPtr;
  23.                       bounds   : Rectangle;
  24.                       xoffset,
  25.                       yoffset  : INTEGER;
  26.                     END;
  27.  
  28.  
  29. VAR LayersBase : LibraryPtr;
  30.  
  31. LIBRARY LayersBase BY  -78
  32.   PROCEDURE BeginUpdate(l IN A0 : LayerPtr);
  33.  
  34. LIBRARY LayersBase BY  -54
  35.   PROCEDURE BehindLayer(l IN A1 : LayerPtr);
  36.  
  37. LIBRARY LayersBase BY  -42
  38.   PROCEDURE CreateBehindLayer(li    IN A0  : LayerInfoPtr;
  39.                               bm    IN A1  : BitMapPtr;
  40.                               x0    IN D0,
  41.                               y0    IN D1,
  42.                               x1    IN D2,
  43.                               y1    IN D3  : LONGINT;
  44.                               flags IN D4  : LayerFlagSet;
  45.                               bm2   IN A2 : BitMapPtr):LayerPtr;
  46.  
  47. LIBRARY LayersBase BY -186
  48.   PROCEDURE CreateUpfrontHookLayer(li      IN A0 : LayerInfoPtr;
  49.                                    bm      IN A1 : BitMapPtr;
  50.                                    x0      IN D0 : LONGINT;
  51.                                    y0      IN D1 : LONGINT;
  52.                                    x1      IN D2 : LONGINT;
  53.                                    y1      IN D3 : LONGINT;
  54.                                    flags   IN D4 : LayerFlagSet;
  55.                                    hook    IN A3 : HookPtr;
  56.                                    superbm IN A2 : BitMapPtr):LayerPtr;
  57.  
  58. LIBRARY LayersBase BY  -36
  59.   PROCEDURE CreateUpfrontLayer(li    IN A0  : LayerInfoPtr;
  60.                                bm    IN A1  : BitMapPtr;
  61.                                x0    IN D0,
  62.                                y0    IN D1,
  63.                                x1    IN D2,
  64.                                y1    IN D3  : LONGINT;
  65.                                flags IN D4  : LONGSET;
  66.                                bm2   IN A2  : BitMapPtr):LayerPtr;
  67.  
  68. LIBRARY LayersBase BY -192
  69.   PROCEDURE CreateBehindHookLayer(li      IN A0 : LayerInfoPtr;
  70.                                   bm      IN A1 : BitMapPtr;
  71.                                   x0      IN D0 : LONGINT;
  72.                                   y0      IN D1 : LONGINT;
  73.                                   x1      IN D2 : LONGINT;
  74.                                   y1      IN D3 : LONGINT;
  75.                                   flags   IN D4 : LayerFlagSet;
  76.                                   hook    IN A3 : HookPtr;
  77.                                   superbm IN A2 : BitMapPtr):LayerPtr;
  78.  
  79. LIBRARY LayersBase BY  -90
  80.   PROCEDURE DeleteLayer(l IN A1 : LayerPtr);
  81.  
  82. LIBRARY LayersBase BY -150
  83.   PROCEDURE DisposeLayerInfo(li IN A0 : LayerInfoPtr);
  84.  
  85. LIBRARY LayersBase BY  -84
  86.   PROCEDURE EndUpdate(l    IN A0 : LayerPtr;
  87.                       flag IN D0 : BOOLEAN);
  88.  
  89. LIBRARY LayersBase BY -156
  90.   PROCEDURE FattenLayerInfo(li IN A0 : LayerInfoPtr);
  91.  
  92. LIBRARY LayersBase BY  -30
  93.   PROCEDURE InitLayers(li IN A0 : LayerInfoPtr);
  94.  
  95. LIBRARY LayersBase BY -174
  96.   PROCEDURE InstallClipRegion(l      IN A0 : LayerPtr;
  97.                               region IN A1 : RegionPtr):RegionPtr;
  98.  
  99. LIBRARY LayersBase BY  -96
  100.   PROCEDURE LockLayer(l IN A1 : LayerPtr);
  101.  
  102. LIBRARY LayersBase BY -120
  103.   PROCEDURE LockLayerInfo(li IN A0 : LayerInfoPtr);
  104.  
  105. LIBRARY LayersBase BY -108
  106.   PROCEDURE LockLayers(li IN A0 : LayerInfoPtr),
  107.  
  108. LIBRARY LayersBase BY  -60
  109.   PROCEDURE MoveLayer(l  IN A1 : LayerPtr;
  110.                       dx IN D0,
  111.                       dy IN D1 : LONGINT);
  112.  
  113. LIBRARY LayersBase BY -168
  114.   PROCEDURE MoveLayerInFrontOf(l      IN A0,
  115.                                target IN A1 : LayerPtr);
  116.  
  117. LIBRARY LayersBase BY -144
  118.   PROCEDURE NewLayerInfo():LayerInfoPtr;
  119.  
  120. LIBRARY LayersBase BY  -72
  121.   PROCEDURE ScrollLayer(l  IN A1 : LayerPtr;
  122.                         dx IN D0,
  123.                         dy IN D1 : LONGINT);
  124.  
  125. LIBRARY LayersBase BY  -66
  126.   PROCEDURE SizeLayer(l  IN A1 : LayerPtr;
  127.                       dx IN D0,
  128.                       dy IN D1 : LONGINT);
  129.  
  130. LIBRARY LayersBase BY -180
  131.   PROCEDURE MoveSizeLayer(layer IN A0 : LayerPtr;
  132.                           dx    IN D0 : LONGINT;
  133.                           dy    IN D1 : LONGINT;
  134.                           dw    IN D2 : LONGINT;
  135.                           dh    IN D3 : LONGINT):BOOLEAN;
  136.  
  137. LIBRARY LayersBase BY -126
  138.   PROCEDURE SwapBitsRastPortClipRect(rp IN A0 : RastPortPtr;
  139.                                      cr IN A1 : ClipRectPtr);
  140.  
  141. LIBRARY LayersBase BY -162
  142.   PROCEDURE ThinLayerInfo(li IN A0 : LayerInfoPtr);
  143.  
  144. LIBRARY LayersBase BY -102
  145.   PROCEDURE UnlockLayer(l IN A0 : LayerPtr);
  146.  
  147. LIBRARY LayersBase BY -138
  148.   PROCEDURE UnlockLayerInfo(li IN A0 : LayerInfoPtr);
  149.  
  150. LIBRARY LayersBase BY -114
  151.   PROCEDURE UnlockLayers(li IN A0 : LayerInfoPtr);
  152.  
  153. LIBRARY LayersBase BY  -48
  154.   PROCEDURE UpfrontLayer(l IN A1 : LayerPtr);
  155.  
  156. LIBRARY LayersBase BY -132
  157.   PROCEDURE WhichLayer(li IN A0 : LayerInfoPtr;
  158.                        x  IN D0,
  159.                        y  IN D1 : LONGINT):LayerPtr;
  160.  
  161. LIBRARY LayersBase BY -198
  162.   PROCEDURE InstallLayerHook(layer IN A0 : LayerPtr;
  163.                              hook  IN A1 : HookPtr):HookPtr;
  164.  
  165. END Layers.
  166.  
  167.