DIRECTORY ColorTypes USING [HSL], Rope USING [ROPE]; CNSColor: CEDAR DEFINITIONS ~ BEGIN CSLChroma: TYPE ~ {achromatic, red, orangishRed, redOrange, reddishOrange, orange, yellowishOrange, orangeYellow, orangishYellow, yellow, greenishYellow, yellowGreen, yellowishGreen, green, bluishGreen, greenBlue, greenishBlue, blue, purplishBlue, bluePurple, bluishPurple, purple, reddishPurple, purpleRed, purplishRed, brownishRed, redBrown, reddishBrown, brown, yellowishBrown, brownYellow, brownishYellow}; CSLSaturation: TYPE ~ {noSaturation, grayish, moderate, strong, vivid}; CSLLightness: TYPE ~ {black, veryDark, dark, medium, light, veryLight, white}; CNS: TYPE ~ RECORD [hue, saturation, lightness: Rope.ROPE]; CSL: TYPE ~ RECORD [c: CSLChroma, s: CSLSaturation, l: CSLLightness]; HSL: TYPE ~ ColorTypes.HSL; -- RECORD [H, S, L: REAL] CSLFromCNS: PROC [CNS] RETURNS [CSL]; CNSFromCSL: PROC [CSL] RETURNS [CNS]; HSLFromCSL: PROC [CSL] RETURNS [HSL]; CSLFromHSL: PROC [HSL] RETURNS [CSL]; END. X CNSColor.mesa Copyright Σ 1983, 1984, 1985, 1992 by Xerox Corporation. All rights reserved. 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 Doug Wyatt, April 10, 1992 4:50 pm PDT Ken Fishkin, September 14, 1992 2:40 pm PDT Κΐ•NewlineDelimiter –(cedarcode) style™proc– "Cedar" stylešœ ™ Kšœ ΟeœC™NK– "Cedar" stylešœ3™3J™3J™7J™&J™+—unitšΟk ˜ Icodešœ žœžœ˜Mšœžœžœ˜—LšΟnœžœž œž˜#M˜Mšœ žœ‹˜šM˜Mšœžœ4˜GM˜Mšœžœ<˜NM˜Mšžœžœžœ#žœ˜;Mšžœžœžœ3˜Eš žœžœžœΟcžœ žœ˜5M˜—Mš Ÿ œžœžœžœžœ˜%M˜Mš Ÿ œžœžœžœžœ˜%M˜Mš Ÿ œžœžœžœžœ˜%M˜Mš Ÿ œžœžœžœžœ˜%M˜Mšžœ˜—…—κ