
<<CNSColor.mesa>>
<<Written by Darlene Plebon on June 23, 1983 11:36 am>>
<<Last Edited by: Stone, June 20, 1985 4:39:17 pm PDT>>
<<Last Edited by: Beach, February 13, 1984 2:00:30 pm PST>>
DIRECTORY
Rope USING [ROPE];
CNSColor: CEDAR DEFINITIONS =
BEGIN OPEN CNSColor;

CSLChroma: TYPE = [-1..30];

CSLSaturation: TYPE = [0..4];

CSLLightness: TYPE = [0..6];

achromatic:            CSLChroma = -1;
red:                    CSLChroma = 0;
orangishRed:            CSLChroma = 1;
redOrange:             CSLChroma = 2;
reddishOrange:         CSLChroma = 3;
orange:                 CSLChroma = 4;
yellowishOrange:     CSLChroma = 5;
orangeYellow:         CSLChroma = 6;
orangishYellow:         CSLChroma = 7;
yellow:                 CSLChroma = 8;
greenishYellow:         CSLChroma = 9;
yellowGreen:         CSLChroma = 10;
yellowishGreen:     CSLChroma = 11;
green:                 CSLChroma = 12;
bluishGreen:         CSLChroma = 13;
greenBlue:             CSLChroma = 14;
greenishBlue:         CSLChroma = 15;
blue:                     CSLChroma = 16;
purplishBlue:         CSLChroma = 17;
bluePurple:             CSLChroma = 18;
bluishPurple:         CSLChroma = 19;
purple:                 CSLChroma = 20;
reddishPurple:         CSLChroma = 21;
purpleRed:             CSLChroma = 22;
purplishRed:         CSLChroma = 23;
brownishRed:        CSLChroma = 24;
redBrown:            CSLChroma = 25;
reddishBrown:        CSLChroma = 26;
brown:                CSLChroma = 27;
yellowishBrown:        CSLChroma = 28;
brownYellow:        CSLChroma = 29;
brownishYellow:        CSLChroma = 30;

noSaturation:     CSLSaturation = 0;
grayish:             CSLSaturation = 1;
moderate:         CSLSaturation = 2;
strong:             CSLSaturation = 3;
vivid:             CSLSaturation = 4;

black:         CSLLightness = 0;
veryDark:     CSLLightness = 1;
dark:             CSLLightness = 2;
medium:         CSLLightness = 3;
light:             CSLLightness = 4;
veryLight:     CSLLightness = 5;
white:         CSLLightness = 6;

CSLFromCNS: PUBLIC PROCEDURE [hue, saturation, lightness: Rope.ROPE] RETURNS [c: CSLChroma, s: CSLSaturation, l: CSLLightness];

CNSFromCSL: PUBLIC PROCEDURE [c: CSLChroma, s: CSLSaturation, l: CSLLightness] RETURNS [hue, saturation, lightness: Rope.ROPE];

HSLFromCSL: PUBLIC PROCEDURE [c: CSLChroma, s: CSLSaturation, l: CSLLightness] RETURNS [hue, saturation, lightness: REAL];

CSLFromHSL: PUBLIC PROCEDURE [hue, saturation, lightness: REAL] RETURNS [c: CSLChroma, s: CSLSaturation, l: CSLLightness];


END.