-- NewCGColor.mesa
-- Last edited by Maureen Stone, July 8, 1983 11:20 am
-- Last edited by Doug Wyatt, August 31, 1982 2:50 pm
-- Internal color definitions

DIRECTORY
GraphicsBasic USING [Color];

NewCGColor: 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) or (hue, saturation, lightness) and (red, green, blue).

All REALs except h should be in the range [0..1].

--h=undefined means it's a gray.

InvalidColor: SIGNAL;

undefined: REAL = -1;

HSVToRGB: PROC[h, s, v: REAL] RETURNS[r, g, b: REAL];

RGBToHSV: PROC[r, g, b: REAL] RETURNS[h, s, v: REAL];

HSLToRGB: PROC[h, s, l: REAL] RETURNS[r, g, b: REAL];

RGBToHSL: PROC[r, g, b: REAL] RETURNS[h, s, l: REAL];

}.