home *** CD-ROM | disk | FTP | other *** search
/ Amiga ISO Collection / AmigaUtilCD2.iso / Programming / Misc / OB3.2D3.DMS / in.adf / Interfaces / Gadgets.mod < prev    next >
Encoding:
Text File  |  1993-05-23  |  3.2 KB  |  96 lines
  1. (*
  2. (*  $VER: Gadgets.mod 39.108 (22.05.93)
  3. **      derived from
  4. **        colorwheel.h 39.2 (22.06.92)
  5. **        gradientslider.h 39.1 (18.06.92)
  6. **      (Includes Release 39.108)
  7. **
  8. **      (C) Copyright 1991-1992 Commodore-Amiga, Inc.
  9. **          All Rights Reserved
  10. **
  11. **      (C) Copyright Oberon Interface 1993 by hartmut Goebel
  12. *)          All Rights Reserved
  13. *)
  14.  
  15. MODULE Gadgets;
  16.  
  17. IMPORT
  18.   e  * := Exec,
  19.   u  * := Utility;
  20.  
  21. (*****************************************************************************)
  22. CONST
  23.   colorWheelName * = "colorwheel.gadget";
  24.  
  25. TYPE
  26.  
  27.   ColorWheelHSBPtr *= UNTRACED POINTER TO ColorWheelHSB;
  28.   ColorWheelRGBPtr *= UNTRACED POINTER TO ColorWheelRGB;
  29.  
  30. (* For use with the WHEEL_HSB tag *)
  31.   ColorWheelHSB * = STRUCT
  32.     hue         * : LONGINT;
  33.     saturation  * : LONGINT;
  34.     brightness  * : LONGINT;
  35.   END;
  36.  
  37. (* For use with the WHEEL_RGB tag *)
  38.   ColorWheelRGB * = STRUCT
  39.     red   * : LONGINT;
  40.     green * : LONGINT;
  41.     blue  * : LONGINT;
  42.   END;
  43.  
  44.  
  45. (*****************************************************************************)
  46. CONST
  47.  
  48.   wheelDummy          * = u.user+04000000H;
  49.   wheelHue            * = wheelDummy+1;   (* set/get Hue               *)
  50.   wheelSaturation     * = wheelDummy+2;   (* set/get Saturation        *)
  51.   wheelBrightness     * = wheelDummy+3;   (* set/get Brightness        *)
  52.   wheelHSB            * = wheelDummy+4;   (* set/get ColorWheelHSB     *)
  53.   wheelRed            * = wheelDummy+5;   (* set/get Red               *)
  54.   wheelGreen          * = wheelDummy+6;   (* set/get Green             *)
  55.   wheelBlue           * = wheelDummy+7;   (* set/get Blue              *)
  56.   wheelRGB            * = wheelDummy+8;   (* set/get ColorWheelRGB     *)
  57.   wheelScreen         * = wheelDummy+9;   (* init screen/enviroment    *)
  58.   wheelAbbrv          * = wheelDummy+10;  (* "GCBMRY" if English       *)
  59.   wheelDonation       * = wheelDummy+11;  (* colors donated by app     *)
  60.   wheelBevelBox       * = wheelDummy+12;  (* inside a bevel box        *)
  61.   wheelGradientSlider * = wheelDummy+13;  (* attached gradient slider  *)
  62.   wheelMaxPens        * = wheelDummy+14;  (* max # of pens to allocate *)
  63.  
  64.  
  65. (*****************************************************************************)
  66.  
  67.  
  68.   gradDummy      * = u.user+005000000H;
  69.   gradMaxVal     * = gradDummy+1;     (* max value of slider         *)
  70.   gradCurVal     * = gradDummy+2;     (* current value of slider     *)
  71.   gradSkipVal    * = gradDummy+3;     (* "body click" move amount    *)
  72.   gradKnobPixels * = gradDummy+4;     (* size of knob in pixels      *)
  73.   gradPenArray   * = gradDummy+5;     (* pen colors                  *)
  74.  
  75.  
  76. (*****************************************************************************)
  77.  
  78. VAR
  79.   cwBase * : e.LibraryPtr;
  80.  
  81. (*--- functions in V39 or higher (beta release for developers only) ---*)
  82.  
  83. (* Public entries *)
  84.  
  85. PROCEDURE ConvertHSBToRGB   *{cwBase,-01EH}(hsb{8}    : ColorWheelHSB;
  86.                                             VAR rgb{9}: ColorWheelRGB);
  87. PROCEDURE ConvertRGBToHSB   *{cwBase,-024H}(rgb{8}    : ColorWheelRGB;
  88.                                             VAR hsb{9}: ColorWheelHSB);
  89.  
  90. BEGIN
  91.   cwBase := e.OpenLibrary(colorWheelName,39);
  92. CLOSE
  93.   IF cwBase # NIL THEN e.CloseLibrary(cwBase); END;
  94.  
  95. END Gadgets.
  96.