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.   ´  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Êk  ˜ proc–"Cedar" stylešœ™K–"Cedar" stylešœ3™3J™3J™7—unitšÏk	˜	Jšœœœ˜—Lšœ
œœ˜Lšœ˜J˜ Jšœœ˜J˜ Jšœœ
˜J˜ Jšœœ
˜J˜ Jšœ˜Jšœ˜Jšœ˜Jšœ˜Jšœ˜Jšœ˜Jšœ ˜ Jšœ˜Jšœ ˜ Jšœ˜Jšœ ˜ Jšœ˜Jšœ ˜ Jšœ˜Jšœ˜Jšœ˜Jšœ˜Jšœ˜Jšœ˜Jšœ˜Jšœ˜Jšœ˜Jšœ ˜ Jšœ˜Jšœ˜Jšœ˜Jšœ˜Jšœ˜Jšœ˜Jšœ ˜ Jšœ˜Jšœ ˜ J˜ Jšœ!˜!Jšœ˜Jšœ˜Jšœ˜Jšœ˜J˜ Jšœ˜Jšœ˜Jšœ˜Jšœ˜Jšœ˜Jšœ˜Jšœ˜J˜ Jš
Ïn
œœ	œ#œœ3˜J˜ Jšž
œœ3œ#œ˜J˜ Jš
ž
œœ	œ3œœ˜zJ˜ Jš	ž
œœœœ2ž˜zJ˜ J˜ Jšœ˜— …—    Ö  
õ  