(FILECREATED "29-Nov-86 17:37:08" ("compiled on " {ERIS}LIBRARY>DICOLOR.;2) "25-Nov-86 00:46:57" bcompl'd in "Xerox Lisp 25-Nov-86 ..." dated "25-Nov-86 01:18:01") (FILECREATED "15-Aug-85 19:44:58" {ERIS}LIBRARY>DICOLOR.;2 15766 changes to: (VARS DICOLORCOMS) previous date: " 9-Aug-85 05:58:26" {ERIS}LIBRARY>DICOLOR.;1) CNSMENUINIT D4 (F 3 DICOLOR.hueMapping F 4 CNSHUEMENU F 5 DICOLOR.saturationMapping F 6 CNSLIGHTNESSMENU F 7 CNSSATURATIONMENU F 8 DICOLOR.lightnessMapping) `0SdIHhZH&JHdIdg dgjdndhHdI c`0UdIHhZH&JHdIdg dgjdndhHdI c`0WdIHhZH&JHdIdg dgjdndhHdI c NIL (205 DEFAULTMENUHELDFN 198 CLRPROMPT 156 MENUTYPE# 127 DEFAULTMENUHELDFN 120 CLRPROMPT 79 MENUTYPE# 50 DEFAULTMENUHELDFN 43 CLRPROMPT 2 MENUTYPE#) () CNSTOCSL D4 (P 5 l P 4 s P 3 c P 2 lightnessAtom P 1 saturationAtom P 0 hueAtom I 2 lightness I 1 saturation I 0 hue F 6 DICOLOR.hueMapping F 7 DICOLOR.saturationMapping F 8 DICOLOR.lightnessMapping) U@ A B 3HV[m[mjIW\lHdgjglJW]lKLMh(11 MKATOM 7 MKATOM 3 MKATOM) (58 White 49 Black) () CNSTORGB D4 (P 0 CSL I 2 hue I 1 lightness I 0 saturation) B@A gH (18 HLSTORGB 15 APPLY 5 CNSTOCSL) (11 CSLTOHLS) () CSLTOCNS D4 (P 2 lightness P 1 saturation P 0 hue I 2 l I 1 s I 0 c) X0@dm6oBdjoo/loo oB  A B IJHh(76 DICOLOR.lightnessN 70 DICOLOR.saturationN 64 DICOLOR.hueN 60 MKSTRING 56 DICOLOR.lightnessN) NIL ( 51 "Gray" 45 "" 40 "White" 30 "" 25 "Black" 14 "") DICOLOR.FROM.USER D4 (P 1 RGB P 0 NAME I 0 NAMES? F 7 COLORNAMES F 8 COLORNAMEMENU F 9 NEWCOLORITEM) @@WK`W0WdMLh^L&NdJdg dgjdndhdK c Xd@dgo dgg o dWIWchcI(134 TTYIN 126 APPLY 123 GETCNS 107 READCOLOR1 89 MENU) (120 CNSTORGB 113 CNS 97 RGB 64 DEFAULTMENUHELDFN 57 CLRPROMPT 16 MENUTYPE#) ( 131 "New color name? " 104 "specify new color") GETCNS D4 (F 0 CNSLIGHTNESSMENU F 1 CNSSATURATIONMENU F 2 CNSHUEMENU) P Q R h(11 MENU 7 MENU 3 MENU) NIL () HLSTOCSL D4 (P 3 l P 2 s P 1 c P 0 ISLHue I 2 saturation I 1 lightness I 0 hue) @lnh o0jZdlJjQmj[dl%UlBJ Jk J lJk԰l0AK Kk K lKk԰jYdlk[dlBIJKhlHI kI ljYHI Ik I lIk԰lAK Kk K lKk԰(214 DICOLOR.lightnessNvalue 210 DICOLOR.lightnessNvalue 204 DICOLOR.lightnessNvalue 181 DICOLOR.hueNvalue 177 DICOLOR.hueNvalue 171 DICOLOR.hueNvalue 154 DICOLOR.hueNvalue 149 DICOLOR.hueNvalue 100 DICOLOR.lightnessNvalue 96 DICOLOR.lightnessNvalue 90 DICOLOR.lightnessNvalue 67 DICOLOR.saturationNvalue 63 DICOLOR.saturationNvalue 57 DICOLOR.saturationNvalue 9 IMOD) NIL ( 13 360.0) CSLTOHLS D4 (P 2 lightness P 1 saturation P 0 hue I 2 l I 1 s I 0 c) ;0@dmoo A B Hoonh JIh(50 IMOD 32 DICOLOR.lightnessNvalue 27 DICOLOR.saturationNvalue 22 DICOLOR.hueNvalue) NIL ( 43 120.0 38 360.0 18 0.0 13 0.0) RGBTOCNS D4 (I 2 Blue I 1 Green I 0 Red) gg@AB (17 APPLY 14 APPLY 11 RGBTOHLS) (5 HLSTOCSL 2 CSLTOCNS) () DICOLOR.hueN D4 (L (0 N)) `HhY@IiHXNIL (2 DICOLOR.hueMapping) () DICOLOR.hueNvalue D4 (I 0 N) @ (3 DICOLOR.hueN) NIL () DICOLOR.hueNname D4 (I 0 N) @ (3 DICOLOR.hueN) NIL () DICOLOR.lightnessN D4 (L (0 N)) `HhY@IiHXNIL (2 DICOLOR.lightnessMapping) () DICOLOR.lightnessNvalue D4 (I 0 N) @ (3 DICOLOR.lightnessN) NIL () DICOLOR.lightnessNname D4 (I 0 N) @ (3 DICOLOR.lightnessN) NIL () DICOLOR.saturationN D4 (L (0 N)) `HhY@IiHXNIL (2 DICOLOR.saturationMapping) () DICOLOR.saturationNvalue D4 (I 0 N) @ (3 DICOLOR.saturationN) NIL () DICOLOR.saturationNname D4 (I 0 N) @ (3 DICOLOR.saturationN) NIL () (PRETTYCOMPRINT DICOLORCOMS) (RPAQQ DICOLORCOMS ((FNS CNSMENUINIT CNSTOCSL CNSTORGB CSLTOCNS DICOLOR.FROM.USER GETCNS HLSTOCSL CSLTOHLS RGBTOCNS) (VARS DICOLOR.hueMapping DICOLOR.lightnessMapping DICOLOR.saturationMapping NEWCOLORITEM) (INITVARS (COLORNAMEMENU)) (FNS DICOLOR.hueN DICOLOR.hueNvalue DICOLOR.hueNname DICOLOR.lightnessN DICOLOR.lightnessNvalue DICOLOR.lightnessNname DICOLOR.saturationN DICOLOR.saturationNvalue DICOLOR.saturationNname) (DECLARE: DONTCOPY (*) (RECORDS hueRecord lightnessRecord saturationRecord) (CONSTANTS * DICOLOR.hueConstants) (CONSTANTS * DICOLOR.saturationConstants) (CONSTANTS * DICOLOR.lightnessConstants)))) (RPAQQ DICOLOR.hueMapping ((Achromatic 0.0 -1) (Red 0.0 0) (OrangishRed 0.01 1) (RedOrange 0.02 2) ( ReddishOrange 0.03 3) (Orange 0.04 4) (YellowishOrange 0.07 5) (OrangeYellow 0.1 6) (OrangishYellow 0.13 7) (Yellow 0.1673 8) (GreenishYellow 0.2073 9) (YellowGreen 0.2473 10) (YellowishGreen 0.2873 11) (Green 0.3333 12) (BluishGreen 0.4133 13) (GreenBlue 0.4933 14) (GreenishBlue 0.5733 15) (Blue 0.6666 16) (PurplishBlue 0.6816 17) (BluePurple 0.6966 18) (BluishPurple 0.7116 19) (Purple 0.73 20) ( ReddishPurple 0.8 21) (PurpleRed 0.87 22) (PurplishRed 0.94 23) (BrownishRed 0.01 24) (RedBrown 0.02 25) (ReddishBrown 0.03 26) (Brown 0.04 27) (YellowishBrown 0.07 28) (BrownYellow 0.1 29) ( BrownishYellow 0.13 30))) (RPAQQ DICOLOR.lightnessMapping ((Black 0.0 0) (VeryDark 0.1666 1) (Dark 0.3333 2) (Medium 0.5 3) ( Light 0.6666 4) (VeryLight 0.8333 5) (White 1.0 6))) (RPAQQ DICOLOR.saturationMapping ((NoSaturation 0.0 0) (Grayish 0.25 1) (Moderate 0.5 2) (Strong 0.75 3) (Vivid 1.0 4))) (RPAQQ NEWCOLORITEM (New% Color (QUOTE CNS) "Allows specification of a new color" (SUBITEMS (RGB ( QUOTE RGB) "Specify a new color using Red, Green, Blue sliders") (CNS (QUOTE CNS) "Specify a new color using English")))) (RPAQ? COLORNAMEMENU) (PUTPROPS DICOLOR COPYRIGHT ("Xerox Corporation" 1985)) NIL