-- CGColor.mesa
-- Last edited by Maureen Stone, July 1, 1982 1:57 pm
-- Last edited by Doug Wyatt, August 31, 1982 2:50 pm
-- Internal color definitions

DIRECTORY
  GraphicsBasic USING [Color];

CGColor: CEDAR DEFINITIONS = {

Color: TYPE = GraphicsBasic.Color;

GetStipple: PROC[color: Color] RETURNS[CARDINAL] = INLINE { RETURN[color.g*256+color.b] };
-- get a color's stipple pattern, assuming color.tag = stipple

-- The following convert between (hue, saturation, value) and (red, green, blue).
-- All REALs should be in the range [0..1].
HSVToRGB: PROC[h, s, v: REAL] RETURNS[r, g, b: REAL];
RGBToHSV: PROC[r, g, b: REAL] RETURNS[h, s, v: REAL];

}.