home *** CD-ROM | disk | FTP | other *** search
/ Amiga ISO Collection / AmigaUtilCD2.iso / Programming / Misc / M2V11-1.LHA / modula / amiga / ColorWheel.def < prev    next >
Encoding:
Text File  |  1993-11-10  |  1.7 KB  |  50 lines
  1. DEFINITION FOR LIBRARY MODULE ColorWheel ;
  2.  
  3. FROM SYSTEM    IMPORT ADDRESS ;
  4. FROM Utility    IMPORT TAG_USER ;
  5.  
  6. (* For use with the WHEEL_HSB tag *)
  7.  
  8. TYPE
  9.   ColorWheelHSBPtr = POINTER TO ColorWheelHSB ;
  10.   ColorWheelRGBPtr = POINTER TO ColorWheelRGB ;
  11.  
  12.   ColorWheelHSB = RECORD
  13.     cw_Hue      : LONGINT ;
  14.     cw_Saturation : LONGINT ;
  15.     cw_Brightness : LONGINT ;
  16.   END ;
  17.  
  18. (* For use with the WHEEL_RGB tag *)
  19.  
  20.   ColorWheelRGB = RECORD
  21.     cw_Red     : LONGINT ;
  22.     cw_Green    : LONGINT ;
  23.     cw_Blue    : LONGINT ;
  24.   END ;
  25.  
  26. CONST
  27.   WHEEL_Dummy           = (TAG_USER+004000000H) ;
  28.   WHEEL_Hue           = (WHEEL_Dummy+1)  ; (* set/get Hue         *)
  29.   WHEEL_Saturation     = (WHEEL_Dummy+2)  ; (* set/get Saturation     *)
  30.   WHEEL_Brightness     = (WHEEL_Dummy+3)  ; (* set/get Brightness     *)
  31.   WHEEL_HSB           = (WHEEL_Dummy+4)  ; (* set/get ColorWheelHSB     *)
  32.   WHEEL_Red           = (WHEEL_Dummy+5)  ; (* set/get Red         *)
  33.   WHEEL_Green           = (WHEEL_Dummy+6)  ; (* set/get Green         *)
  34.   WHEEL_Blue           = (WHEEL_Dummy+7)  ; (* set/get Blue         *)
  35.   WHEEL_RGB           = (WHEEL_Dummy+8)  ; (* set/get ColorWheelRGB     *)
  36.   WHEEL_Screen           = (WHEEL_Dummy+9)  ; (* init screen/enviroment    *)
  37.   WHEEL_Abbrv           = (WHEEL_Dummy+10) ; (* "GCBMRY" if English     *)
  38.   WHEEL_Donation       = (WHEEL_Dummy+11) ; (* colors donated by app     *)
  39.   WHEEL_BevelBox       = (WHEEL_Dummy+12) ; (* inside a bevel box     *)
  40.   WHEEL_GradientSlider = (WHEEL_Dummy+13) ; (* attached gradient slider  *)
  41.   WHEEL_MaxPens           = (WHEEL_Dummy+14) ; (* max # of pens to allocate *)
  42.  
  43. VAR
  44.   ColorWheelBase : ADDRESS ;
  45.  
  46. PROCEDURE ConvertHSBToRGB( hsb : ColorWheelHSBPtr ; VAR rgb : ColorWheelRGB ) ;
  47. PROCEDURE ConvertRGBToHSB( rgb : ColorWheelRGBPtr ; VAR hsb : ColorWheelHSB ) ;
  48.  
  49. END ColorWheel.
  50.