home *** CD-ROM | disk | FTP | other *** search
/ Amiga ISO Collection / AmigaUtilCD2.iso / Programming / Pascal / MAXONPASCAL2.DMS / in.adf / INCLUDE / layers.lib < prev    next >
Encoding:
Text File  |  1994-07-25  |  2.7 KB  |  52 lines
  1. {$if not def LAYERS_LIB_H} CONST LAYERS_LIB_H=0;
  2.  
  3. { ************************************************************
  4.   ** KickPascal-Include-Datei "layers.lib" zu Kickstart 3.0 **
  5.   ************************************************************ }
  6.  
  7. {$if not def GRAPHICS_LAYERS_H;incl "graphics/layers.h";endif}
  8. {$if not def GRAPHICS_CLIP_H;incl "graphics/clip.h";endif}
  9. {$if not def GRAPHICS_RASTPORT_H;incl "graphics/rastport.h";endif}
  10. {$if not def GRAPHICS_REGIONS_H;incl "graphics/regions.h";endif}
  11.  
  12. VAR LayersBase : Ptr;
  13.  
  14. LIBRARY LayersBase :
  15.  
  16.  -30 : PROCEDURE InitLayers(A0:p_Layer_Info);
  17.  -36 : FUNCTION  CreateUpfrontLayer(A0:p_Layer_Info; A1:p_BitMap; D0,D1,D2,D3,D4:LongInt; A2:p_BitMap): p_Layer;
  18.  -42 : FUNCTION  CreateBehindLayer(A0:p_Layer_Info; A1:p_BitMap; D0,D1,D2,D3,D4:LongInt; A2:p_BitMap): p_Layer;
  19.  -48 : FUNCTION  UpfrontLayer(D0:LongInt; A0:p_Layer): LongInt;
  20.  -54 : FUNCTION  BehindLayer(D0:LongInt; A0:p_Layer): LongInt;
  21.  -60 : FUNCTION  MoveLayer(A0:LongInt; A1:p_Layer; D0,D1:LongInt): LongInt;
  22.  -66 : FUNCTION  SizeLayer(A0:LongInt; A1:p_Layer; D0,D1:LongInt): LongInt;
  23.  -72 : PROCEDURE ScrollLayer(A0:LongInt; A1:p_Layer; D0,D1:LongInt);
  24.  -78 : FUNCTION  BeginUpdate(A0:p_Layer): LongInt;
  25.  -84 : PROCEDURE EndUpdate(A0:p_Layer; D0:Long);
  26.  -90 : FUNCTION  DeleteLayer(A0:LongInt; A1:p_Layer): LongInt;
  27.  -96 : PROCEDURE LockLayer(A0:LongInt; A1:p_Layer);
  28. -102 : PROCEDURE UnlockLayer(A0:p_Layer);
  29. -108 : PROCEDURE LockLayers(A0:p_Layer_Info);
  30. -114 : PROCEDURE UnlockLayers(A0:p_Layer_Info);
  31. -120 : PROCEDURE LockLayerInfo(A0:p_Layer_Info);
  32. -126 : PROCEDURE SwapBitsRastPortClipRect(A0:p_RastPort; A1:p_ClipRect);
  33. -132 : FUNCTION  WhichLayer(A0:p_Layer_Info; D0,D1: LongInt): p_Layer;
  34. -138 : PROCEDURE UnlockLayerInfo(A0:p_Layer_Info);
  35. -144 : FUNCTION  NewLayerInfo: p_Layer_Info;
  36. -150 : PROCEDURE DisposeLayerInfo(A0:p_Layer_Info);
  37. -156 : FUNCTION  FattenLayerInfo(A0:p_Layer_Info): LongInt;
  38. -162 : PROCEDURE ThinLayerInfo(A0:p_Layer_Info);
  39. -168 : FUNCTION  MoveLayerInFrontOf(A0,A1:p_Layer): LongInt;
  40. -174 : FUNCTION  InstallClipRegion(A0:p_Layer; A1:p_Region): p_Region;
  41. -180 : FUNCTION  MoveSizeLayer(A0:p_Layer; D0,D1,D2,D3: LongInt): LongInt;
  42. -186 : FUNCTION  CreateUpfrontHookLayer(A0:p_Layer_Info; A1:p_BitMap; D0,D1,D2,D3,D4: LongInt; A3:p_Hook; A2:p_BitMap): p_Layer;
  43. -192 : FUNCTION  CreateBehindHookLayer(A0:p_Layer_Info; A1:p_BitMap; D0,D1,D2,D3,D4: LongInt; A3:p_Hook; A2:p_BitMap): p_Layer;
  44. -198 : FUNCTION  InstallLayerHook(A0:p_Layer; A1:p_Hook): p_Hook;
  45.  
  46. { **** Routinen ab V39 / Release 3.0 **** }
  47. -204 : FUNCTION  InstallLayerInfoHook(A0:p_Hook; A1:p_RastPort; A2:p_Rectangle): p_Hook;
  48. -210 : PROCEDURE SortLayerCR(A0:p_Layer; D0,D1:Long);
  49. -216 : PROCEDURE DoHookClipRects(A0:p_Hook; A1:p_RastPort; A2:p_Rectangle);
  50. END;
  51. {$endif}
  52.