home *** CD-ROM | disk | FTP | other *** search
/ Amiga ISO Collection / AmigaUtilCD1.iso / EGS / egssys71.lha / EGSClusterInc.lha / GBColorPot.def < prev    next >
Encoding:
Text File  |  1994-12-13  |  2.0 KB  |  66 lines
  1. |##########|
  2. |#MAGIC   #|DBGFFBIO
  3. |#PROJECT #|""
  4. |#PATHS   #|"EGSProject"
  5. |#FLAGS   #|xx---x--x-----x-----------------
  6. |#USERSW  #|--------------------------------
  7. |#USERMASK#|--------------------------------
  8. |#SWITCHES#|x----x----------
  9. |##########|
  10. DEFINITION MODULE GBColorPot;
  11.  
  12. FROM System IMPORT LONGSET,Regs;
  13. IMPORT EGSIntui  AS I;
  14. IMPORT EGSGadBox  AS GB;
  15. FROM Exec IMPORT LibraryPtr;
  16. FROM IntuiGfx IMPORT IntuiGfxPtr;
  17. FROM EGS      IMPORT CLUEntry;
  18.  
  19. CONST
  20.   ColorKEY       = LONGINT("C") SHL 24+
  21.                    LONGINT("O") SHL 16+
  22.                    LONGINT("L") SHL 8+
  23.                    LONGINT("R");
  24.  
  25. TYPE
  26.   ColorPotGadPtr = POINTER TO ColorPotGadget;
  27.   ColorPotGadget = RECORD OF I.MasterGadget;
  28.                      drop  : I.DropGadPtr;
  29.                      drag  : I.GadgetPtr;
  30.                      draw  : IntuiGfxPtr;
  31.                      color : CLUEntry;
  32.                      w     : INTEGER;
  33.                    END;
  34.  
  35.  
  36. VAR GBColorPotBase : LibraryPtr;
  37.  
  38. LIBRARY GBColorPotBase BY - 30
  39.     PROCEDURE CreateColorPotGadget(con IN A0 : GB.GadContext;
  40.                                    id  IN D0 : LONGINT;
  41.                                    r   IN D1,
  42.                                    g   IN D2,
  43.                                    b   IN D3 : INTEGER):GB.GadBoxPtr;
  44.  
  45. LIBRARY GBColorPotBase BY - 36
  46.     PROCEDURE ModifyColorPotGadget(win IN A0 : I.WindowPtr;
  47.                                    gad IN A1 : I.GadgetPtr;
  48.                                    r   IN D0,
  49.                                    g   IN D1,
  50.                                    b   IN D2 : INTEGER);
  51.  
  52. LIBRARY GBColorPotBase BY - 42
  53.     PROCEDURE GCSetColorValue(con IN A0 : GB.GadContext;
  54.                               id  IN D0 : LONGINT;
  55.                               r   IN D1,
  56.                               g   IN D2,
  57.                               b   IN D2 : INTEGER);
  58.  
  59. LIBRARY GBColorPotBase BY - 48
  60.     PROCEDURE GCGetColorValue(con IN A0 : GB.GadContext;
  61.                               id  IN D0 : LONGINT):LONGINT;
  62.  
  63. END GBColorPot.
  64.  
  65.  
  66.