home *** CD-ROM | disk | FTP | other *** search
/ Amiga ISO Collection / AmigaUtilCD2.iso / Programming / Misc / MODULAV2GERMAN.DMS / in.adf / Def.zoo / Layers.def < prev    next >
Encoding:
Modula Definition  |  1988-11-26  |  2.3 KB  |  64 lines
  1. DEFINITION MODULE Layers {"layers.library", 33};
  2.  
  3. FROM SYSTEM IMPORT
  4.  LONGSET;
  5. FROM Graphics IMPORT
  6.  ClipRectPtr,BitMapPtr,LayerInfoPtr,LayerPtr,RastPortPtr,
  7.  RegionPtr;
  8.  
  9. PROCEDURE BeginUpdate(l{8}:LayerPtr):LONGINT; CODE -78;
  10. PROCEDURE BehindLayer(l{9}:LayerPtr):LONGINT; CODE -54;
  11. PROCEDURE CreateBehindLayer(
  12.            li{8}:LayerInfoPtr;
  13.            bm{9}:BitMapPtr;
  14.            x0{0}:LONGINT;
  15.            y0{1}:LONGINT;
  16.            x1{2}:LONGINT;
  17.            y1{3}:LONGINT;
  18.            flags{4}:LONGSET;
  19.            bm2{10}:BitMapPtr):LayerPtr; CODE -42;
  20. PROCEDURE CreateUpfrontLayer(
  21.            li{8}:LayerInfoPtr;
  22.            bm{9}:BitMapPtr;
  23.            x0{0}:LONGINT;
  24.            y0{1}:LONGINT;
  25.            x1{2}:LONGINT;
  26.            y1{3}:LONGINT;
  27.            flags{4}:LONGSET;
  28.            bm2{10}:BitMapPtr):LayerPtr; CODE -36;
  29. PROCEDURE DeleteLayer(l{9}:LayerPtr):LONGINT; CODE -90;
  30. PROCEDURE DisposeLayerInfo(li{8}:LayerInfoPtr); CODE -150;
  31. PROCEDURE EndUpdate(l{8}:LayerPtr; flag{0}:BOOLEAN); CODE -84;
  32. (*VERALTET*)PROCEDURE FattenLayerInfo(
  33.                        li{8}:LayerInfoPtr); CODE -156;
  34. (*VERALTET*)PROCEDURE InitLayers(
  35.              li{8}:LayerInfoPtr); CODE -30;
  36. PROCEDURE InstallClipRegion(
  37.            l{8}:LayerPtr;
  38.            region{9}:RegionPtr):RegionPtr; CODE -174;
  39. PROCEDURE LockLayer(l{9}:LayerPtr); CODE -96;
  40. PROCEDURE LockLayerInfo(li{8}:LayerInfoPtr); CODE -120;
  41. PROCEDURE LockLayers(li{8}:LayerInfoPtr); CODE -108;
  42. PROCEDURE MoveLayer(l{9}:LayerPtr; 
  43.                     dx{0},dy{1}:LONGINT):LONGINT; CODE -60;
  44. PROCEDURE MoveLayerInFrontOf(
  45.            l{8},target{9}:LayerPtr):LONGINT; CODE -168;
  46. PROCEDURE NewLayerInfo():LayerInfoPtr; CODE -144;
  47. PROCEDURE ScrollLayer(
  48.            l{9}:LayerPtr; dx{0},dy{1}:LONGINT); CODE -72;
  49. PROCEDURE SizeLayer(l{9}:LayerPtr; 
  50.                     dx{0},dy{1}:LONGINT):LONGINT; CODE -66;
  51. PROCEDURE SwapBitsRastPortClipRect(
  52.            rp{8}:RastPortPtr;
  53.            cr{9}:ClipRectPtr); CODE -126;
  54. (*VERALTET*)PROCEDURE ThinLayerInfo(
  55.                        li{8}:LayerInfoPtr); CODE -162;
  56. PROCEDURE UnlockLayer(l{8}:LayerPtr); CODE -102;
  57. PROCEDURE UnlockLayerInfo(li{8}:LayerInfoPtr); CODE -138;
  58. PROCEDURE UnlockLayers(li{8}:LayerInfoPtr); CODE -114;
  59. PROCEDURE UpfrontLayer(l{9}:LayerPtr):LONGINT; CODE -48;
  60. PROCEDURE WhichLayer(li{8}:LayerInfoPtr;
  61.                      x{0},y{1}:LONGINT):LayerPtr; CODE -132;
  62.  
  63. END Layers.
  64.