$ od -c -N 50000 [phylum]<LISPUSERS>Lyric>dicolor.lcom!1
0000000 ( F I L E C R E A T E D " 2 9
0000020 - N o v - 8 6 1 7 : 3 7 : 0 8
0000040 " ( " c o m p i l e d o n
0000060 " { E R I S } < L I S P C O R
0000100 E > L I B R A R Y > D I C O L O
0000120 R . ; 2 ) \r " 2 5 - N o v - 8
0000140 6 0 0 : 4 6 : 5 7 " b c o m
0000160 p l ' d i n " X e r o x L
0000200 i s p 2 5 - N o v - 8 6 . .
0000220 . " d a t e d " 2 5 - N o v
0000240 - 8 6 0 1 : 1 8 : 0 1 " ) \r (
0000260 F I L E C R E A T E D " 1 5 -
0000300 A u g - 8 5 1 9 : 4 4 : 5 8 "
0000320 { E R I S } < L I S P C O R E
0000340 > L I B R A R Y > D I C O L O R
0000360 . ; 2 1 5 7 6 6 c h a n g e
0000400 s t o : ( V A R S \r D I C
0000420 O L O R C O M S ) p r e v i o
0000440 u s d a t e : " 9 - A u g
0000460 - 8 5 0 5 : 5 8 : 2 6 " { E
0000500 R I S } < L I S P C O R E > L I
0000520 B R A R Y > D I C O L O R . ; 1
0000540 ) \r C N S M E N U I N I T 247 D
0000560 4 \r ( F 3 D I C O L O R . h
0000600 u e M a p p i n g F 4 C N
0000620 S H U E M E N U F 5 D I C
0000640 O L O R . s a t u r a t i o n M
0000660 a p p i n g F 6 C N S L I
0000700 G H T N E S S M E N U F 7
0000720 C N S S A T U R A T I O N M E N
0000740 U F 8 D I C O L O R . l i
0000760 g h t n e s s M a p p i n g )
0001000 \0 352 003 006 \0 \0 ` \0 \0 037 021 0 002 S 217 d
0001020 001 001 270 I 265 \a H h 032 Z 201 H & 271 002 003
0001040 265 357 J 022 021 002 001 H d I 024 004 277 022 d g
0001060 \0 \0 024 277 d g \0 \0 024 034 277 j d n 177
0001100 377 d h 032 032 032 032 021 002 001 H d I 024 \n 277
0001120 022 c \b ` \0 \0 037 021 0 002 U 217 d 001 001 270
0001140 I 265 \a H h 032 Z 201 H & 271 002 003 265 357 J
0001160 022 021 002 001 H d I 024 004 277 022 d g \0 \0 024
0001200 277 d g \0 \0 024 034 277 j d n 177 377 d h
0001220 032 032 032 032 021 002 001 H d I 024 \n 277 022 c 016
0001240 ` \0 \0 037 021 0 002 W 020 217 d 001 001 270 I 265
0001260 \a H h 032 Z 201 H & 271 002 003 265 357 J 022 021
0001300 002 001 H d I 024 004 277 022 d g \0 \0 024 277
0001320 d g \0 \0 024 034 277 j d n 177 377 d h 032 032
0001340 032 032 021 002 001 H d I 024 \n 277 022 c \f 020 \0
0001360 N I L \r ( 2 0 5 D E F A U L T
0001400 M E N U H E L D F N 1 9 8 C
0001420 L R P R O M P T 1 5 6 004 003 M
0001440 E N U T Y P E # 1 2 7 D E F
0001460 A U L T M E N U H E L D F N 1
0001500 2 0 C L R P R O M P T 7 9
0001520 004 003 M E N U T Y P E # 5 0 D
0001540 E F A U L T M E N U H E L D F N
0001560 4 3 C L R P R O M P T 2
0001600 004 003 M E N U T Y P E # ) \r ( ) \r
0001620 C N S T O C S L 247 D 4 \r ( P
0001640 5 l P 4 s P 3 c
0001660 P 2 l i g h t n e s s A t o
0001700 m P 1 s a t u r a t i o n
0001720 A t o m P 0 h u e A t o m
0001740 I 2 l i g h t n e s s I
0001760 1 s a t u r a t i o n I
0002000 0 h u e F 6 D I C O L O
0002020 R . h u e M a p p i n g F 7
0002040 D I C O L O R . s a t u r a t
0002060 i o n M a p p i n g F 8 D
0002100 I C O L O R . l i g h t n e s s
0002120 M a p p i n g ) \0 U 006 003 \0 003 @
0002140 \t \0 \0 A \t \0 \0 B \t \0 \0 021 3 005 H V
0002160 026 002 002 001 [ 265 005 m 377 [ m 377 360 221 j 212
0002200 I W 016 026 002 002 001 \ 242 l 004 274 H d g \0
0002220 \0 360 223 277 j 260 025 g \0 \0 360 222 l 006 212 J
0002240 W 020 026 002 002 001 ] 242 l 003 275 K L M h 032
0002260 032 032 020 \0 ( 1 1 M K A T O M 7
0002300 M K A T O M 3 M K A T O M
0002320 ) \r ( 5 8 W h i t e 4 9 B
0002340 l a c k ) \r ( ) \r C N S T O R G
0002360 B 247 D 4 \r ( P 0 C S L I
0002400 2 h u e I 1 l i g h t
0002420 n e s s I 0 s a t u r a t
0002440 i o n ) \0 025 001 \0 \0 003 B @ A \v \0
0002460 \0 021 001 \0 g \0 \0 H \n \0 \0 \t \0 \0 020 \0
0002500 ( 1 8 H L S T O R G B 1 5
0002520 A P P L Y 5 C N S T O C S L
0002540 ) \r ( 1 1 C S L T O H L S ) \r
0002560 ( ) \r C S L T O C N S 247 D 4 \r
0002600 ( P 2 l i g h t n e s s P
0002620 1 s a t u r a t i o n P
0002640 0 h u e I 2 l I 1
0002660 s I 0 c ) \0 X 003 \0 \0 003 021
0002700 0 002 @ d m 377 360 262 6 277 o \0 \0 \0 271 B
0002720 d j 360 233 277 o \0 \0 \0 270 o \0 \0 \0 260 /
0002740 l 006 360 232 o \0 \0 \0 270 o \0 \0 \0 260 o
0002760 \0 \0 \0 270 B \t \0 \0 001 \t \0 \0 217 \t \0 \0
0003000 001 270 A \t \0 \0 001 271 B \t \0 \0 001 272 I J
0003020 H h 032 032 032 020 \0 ( 7 6 D I C O L
0003040 O R . l i g h t n e s s N 7 0
0003060 D I C O L O R . s a t u r a t
0003100 i o n N 6 4 D I C O L O R .
0003120 h u e N 6 0 M K S T R I N G
0003140 5 6 D I C O L O R . l i g h
0003160 t n e s s N ) \r N I L \r ( 5 1
0003200 " G r a y " 4 5 " " 4 0
0003220 " W h i t e " 3 0 " " 2
0003240 5 " B l a c k " 1 4 " " )
0003260 \r D I C O L O R . F R O M . U S
0003300 E R 247 D 4 \r ( P 1 R G B
0003320 P 0 N A M E I 0 N A M
0003340 E S ? F 7 C O L O R N A M
0003360 E S F 8 C O L O R N A M E
0003400 M E N U F 9 N E W C O L O
0003420 R I T E M ) \0 236 \a 003 \0 001 021 @ 003
0003440 @ 264 003 202 261 \0 225 W 020 265 K ` \0 \0 037 W
0003460 022 021 0 006 W 016 217 d 001 001 274 M 265 \a L h
0003500 032 ^ 201 L & 275 002 003 265 357 N 022 032 272 d J
0003520 024 004 277 d g \0 \0 024 277 d g \0 \0 024 034
0003540 277 j d n 177 377 d h 032 032 032 032 273 d K 024
0003560 \n 277 c 020 \t \0 \0 X d 262 @ d g \0 \0 360
0003600 231 277 o \0 \0 \0 \t \0 \0 260 023 d g \0 \0 360
0003620 262 027 277 g \0 \0 \b \0 \0 \n \0 \0 271 o \0 \0
0003640 \0 \t \0 \0 d 245 020 W 016 026 002 020 001 I 032 W
0003660 016 032 c 016 277 h c 020 I 020 \0 ( 1 3 4
0003700 T T Y I N 1 2 6 A P P L Y
0003720 1 2 3 G E T C N S 1 0 7 R
0003740 E A D C O L O R 1 8 9 M E N
0003760 U ) \r ( 1 2 0 C N S T O R G B
0004000 1 1 3 C N S 9 7 R G B
0004020 6 4 D E F A U L T M E N U H E
0004040 L D F N 5 7 C L R P R O M P
0004060 T 1 6 004 003 M E N U T Y P E #
0004100 ) \r ( 1 3 1 " N e w c o l
0004120 o r n a m e ? " 1 0 4 "
0004140 s p e c i f y n e w c o l o
0004160 r " ) \r G E T C N S 247 D 4 \r (
0004200 F 0 C N S L I G H T N E S S
0004220 M E N U F 1 C N S S A T U
0004240 R A T I O N M E N U F 2 C
0004260 N S H U E M E N U ) \0 022 \0 003 \0
0004300 \0 P \t \0 \0 Q \t \0 \0 R \t \0 \0 h 032 032
0004320 032 020 \0 ( 1 1 M E N U 7 M E
0004340 N U 3 M E N U ) \r N I L \r (
0004360 ) \r H L S T O C S L 247 D 4 \r (
0004400 P 3 l P 2 s P 1
0004420 c P 0 I S L H u e I 2
0004440 s a t u r a t i o n I 1
0004460 l i g h t n e s s I 0 h u
0004500 e ) \0 345 004 \0 \0 003 @ l 360 324 n 001 h
0004520 \n \0 \0 o \0 \0 \0 353 021 001 \0 021 0 003 j Z
0004540 d l 004 363 262 025 277 J j 360 262 Q m 377 271 j
0004560 [ d l 006 363 262 % 260 U l 004 360 263 353 B J
0004600 \t \0 \0 J k 330 \t \0 \0 J \t \0 \0 325 l 002
0004620 327 324 363 262 324 J k 324 260 307 l 006 360 263 0 A
0004640 K \t \0 \0 K k 330 \t \0 \0 K \t \0 \0 325 l
0004660 002 327 324 363 262 031 K k 324 260 267 j Y d l 027
0004700 363 262 024 277 k [ d l 005 363 262 B 277 I J K
0004720 h 032 032 032 020 l 027 360 262 030 H I \t \0 \0 k
0004740 I \t \0 \0 325 l 002 327 324 363 262 332 j Y 260 325
0004760 H I \t \0 \0 I k 330 \t \0 \0 I \t \0 \0 325
0005000 l 002 327 324 363 262 277 I k 324 260 262 l 005 360 263
0005020 276 A K \t \0 \0 K k 330 \t \0 \0 K \t \0 \0
0005040 325 l 002 327 324 363 262 247 K k 324 260 232 \0 ( 2
0005060 1 4 D I C O L O R . l i g h t
0005100 n e s s N v a l u e 2 1 0 D
0005120 I C O L O R . l i g h t n e s s
0005140 N v a l u e 2 0 4 D I C O L
0005160 O R . l i g h t n e s s N v a l
0005200 u e 1 8 1 D I C O L O R . h
0005220 u e N v a l u e 1 7 7 D I C
0005240 O L O R . h u e N v a l u e 1
0005260 7 1 D I C O L O R . h u e N v
0005300 a l u e 1 5 4 D I C O L O R
0005320 . h u e N v a l u e 1 4 9 D
0005340 I C O L O R . h u e N v a l u e
0005360 1 0 0 D I C O L O R . l i g
0005400 h t n e s s N v a l u e 9 6
0005420 D I C O L O R . l i g h t n e s
0005440 s N v a l u e 9 0 D I C O L
0005460 O R . l i g h t n e s s N v a l
0005500 u e 6 7 D I C O L O R . s a
0005520 t u r a t i o n N v a l u e 6
0005540 3 D I C O L O R . s a t u r a
0005560 t i o n N v a l u e 5 7 D I
0005600 C O L O R . s a t u r a t i o n
0005620 N v a l u e 9 I M O D ) \r N
0005640 I L \r ( 1 3 3 6 0 . 0 ) \r C
0005660 S L T O H L S 247 D 4 \r ( P 2
0005700 l i g h t n e s s P 1 s
0005720 a t u r a t i o n P 0 h u
0005740 e I 2 l I 1 s I
0005760 0 c ) \0 ; 003 \0 \0 003 021 0 002 @ d
0006000 m 377 360 232 277 o \0 \0 \0 270 o \0 \0 \0 207 \t
0006020 \0 \0 270 A \t \0 \0 271 B \t \0 \0 272 H o \0
0006040 \0 \0 352 o \0 \0 \0 350 n 001 h \n \0 \0 J I
0006060 h 032 032 032 020 \0 ( 5 0 I M O D 3
0006100 2 D I C O L O R . l i g h t n
0006120 e s s N v a l u e 2 7 D I C
0006140 O L O R . s a t u r a t i o n N
0006160 v a l u e 2 2 D I C O L O R
0006200 . h u e N v a l u e ) \r N I L \r
0006220 ( 4 3 1 2 0 . 0 3 8 3 6
0006240 0 . 0 1 8 0 . 0 1 3 0 .
0006260 0 ) \r R G B T O C N S 247 D 4 \r
0006300 ( I 2 B l u e I 1 G r
0006320 e e n I 0 R e d ) \0 024 \0
0006340 \0 \0 003 g \0 \0 g \0 \0 @ A B \v \0 \0 \n
0006360 \0 \0 \n \0 \0 020 \0 ( 1 7 A P P L Y
0006400 1 4 A P P L Y 1 1 R G B
0006420 T O H L S ) \r ( 5 H L S T O C
0006440 S L 2 C S L T O C N S ) \r (
0006460 ) \r D I C O L O R . h u e N 247
0006500 D 4 \r ( L ( 0 N ) ) \0 037 002
0006520 \0 \0 001 ` \0 \0 021 021 001 H 003 265 004 h 020 001
0006540 Y 002 002 001 @ 360 224 I 265 003 i 020 H 002 X 260
0006560 353 \0 N I L \r ( 2 D I C O L O R
0006600 . h u e M a p p i n g ) \r ( ) \r
0006620 D I C O L O R . h u e N v a l u
0006640 e 247 D 4 \r ( I 0 N ) \0 \b
0006660 \0 \0 \0 001 @ \t \0 \0 002 001 020 \0 ( 3 D
0006700 I C O L O R . h u e N ) \r N I L
0006720 \r ( ) \r D I C O L O R . h u e N
0006740 n a m e 247 D 4 \r ( I 0 N )
0006760 \0 \a \0 \0 \0 001 @ \t \0 \0 001 020 \0 ( 3
0007000 D I C O L O R . h u e N ) \r N
0007020 I L \r ( ) \r D I C O L O R . l i
0007040 g h t n e s s N 247 D 4 \r ( L
0007060 ( 0 N ) ) \0 037 002 \0 \0 001 ` \0 \0
0007100 021 021 001 H 003 265 004 h 020 001 Y 002 002 001 @ 360
0007120 224 I 265 003 i 020 H 002 X 260 353 \0 N I L \r
0007140 ( 2 D I C O L O R . l i g h t
0007160 n e s s M a p p i n g ) \r ( ) \r
0007200 D I C O L O R . l i g h t n e s
0007220 s N v a l u e 247 D 4 \r ( I 0
0007240 N ) \0 \b \0 \0 \0 001 @ \t \0 \0 002 001
0007260 020 \0 ( 3 D I C O L O R . l i g
0007300 h t n e s s N ) \r N I L \r ( ) \r
0007320 D I C O L O R . l i g h t n e s
0007340 s N n a m e 247 D 4 \r ( I 0
0007360 N ) \0 \a \0 \0 \0 001 @ \t \0 \0 001 020 \0
0007400 ( 3 D I C O L O R . l i g h t
0007420 n e s s N ) \r N I L \r ( ) \r D I
0007440 C O L O R . s a t u r a t i o n
0007460 N 247 D 4 \r ( L ( 0 N ) )
0007500 \0 037 002 \0 \0 001 ` \0 \0 021 021 001 H 003 265 004
0007520 h 020 001 Y 002 002 001 @ 360 224 I 265 003 i 020 H
0007540 002 X 260 353 \0 N I L \r ( 2 D I C O
0007560 L O R . s a t u r a t i o n M a
0007600 p p i n g ) \r ( ) \r D I C O L O
0007620 R . s a t u r a t i o n N v a l
0007640 u e 247 D 4 \r ( I 0 N ) \0
0007660 \b \0 \0 \0 001 @ \t \0 \0 002 001 020 \0 ( 3
0007700 D I C O L O R . s a t u r a t i
0007720 o n N ) \r N I L \r ( ) \r D I C O
0007740 L O R . s a t u r a t i o n N n
0007760 a m e 247 D 4 \r ( I 0 N )
0010000 \0 \a \0 \0 \0 001 @ \t \0 \0 001 020 \0 ( 3
0010020 D I C O L O R . s a t u r a t i
0010040 o n N ) \r N I L \r ( ) \r ( P R E
0010060 T T Y C O M P R I N T D I C O
0010100 L O R C O M S ) \r ( R P A Q Q
0010120 D I C O L O R C O M S ( ( F N
0010140 S C N S M E N U I N I T C N
0010160 S T O C S L C N S T O R G B
0010200 C S L T O C N S D I C O L O R
0010220 . F R O M . U S E R G E T C N
0010240 S H L S T O C S L \r C S L T
0010260 O H L S R G B T O C N S ) (
0010300 V A R S D I C O L O R . h u e
0010320 M a p p i n g D I C O L O R .
0010340 l i g h t n e s s M a p p i n g
0010360 D I C O L O R . s a t u r a t
0010400 i o n M a p p i n g \r N E W C
0010420 O L O R I T E M ) ( I N I T V
0010440 A R S ( C O L O R N A M E M E
0010460 N U ) ) ( F N S D I C O L O
0010500 R . h u e N D I C O L O R . h
0010520 u e N v a l u e D I C O L O R
0010540 . h u e N n a m e \r D I C O L
0010560 O R . l i g h t n e s s N D I
0010600 C O L O R . l i g h t n e s s N
0010620 v a l u e D I C O L O R . l i
0010640 g h t n e s s N n a m e D I C
0010660 O L O R . s a t u r a t i o n N
0010700 \r D I C O L O R . s a t u r a
0010720 t i o n N v a l u e D I C O L
0010740 O R . s a t u r a t i o n N n a
0010760 m e ) ( D E C L A R E : D O
0011000 N T C O P Y ( * ) ( R E C O
0011020 R D S h u e R e c o r d \r l
0011040 i g h t n e s s R e c o r d s
0011060 a t u r a t i o n R e c o r d )
0011100 ( C O N S T A N T S * D I
0011120 C O L O R . h u e C o n s t a n
0011140 t s ) ( C O N S T A N T S *
0011160 \r D I C O L O R . s a t u r a
0011200 t i o n C o n s t a n t s ) (
0011220 C O N S T A N T S * D I C O
0011240 L O R . l i g h t n e s s C o n
0011260 s t a n t s ) ) ) ) \r ( R P A Q
0011300 Q D I C O L O R . h u e M a p
0011320 p i n g ( ( A c h r o m a t i
0011340 c 0 . 0 - 1 ) ( R e d 0
0011360 . 0 0 ) ( O r a n g i s h R
0011400 e d 0 . 0 1 1 ) ( R e d O
0011420 r a n g e 0 . 0 2 2 ) ( \r
0011440 R e d d i s h O r a n g e 0 .
0011460 0 3 3 ) ( O r a n g e 0 .
0011500 0 4 4 ) ( Y e l l o w i s h
0011520 O r a n g e 0 . 0 7 5 ) (
0011540 O r a n g e Y e l l o w 0 . 1
0011560 6 ) ( O r a n g i s h Y e l
0011600 l o w \r 0 . 1 3 7 ) ( Y e
0011620 l l o w 0 . 1 6 7 3 8 ) (
0011640 G r e e n i s h Y e l l o w 0
0011660 . 2 0 7 3 9 ) ( Y e l l o w
0011700 G r e e n 0 . 2 4 7 3 1 0 )
0011720 ( Y e l l o w i s h G r e e n
0011740 0 . 2 8 7 3 1 1 ) \r ( G r
0011760 e e n 0 . 3 3 3 3 1 2 ) (
0012000 B l u i s h G r e e n 0 . 4 1
0012020 3 3 1 3 ) ( G r e e n B l u
0012040 e 0 . 4 9 3 3 1 4 ) ( G r
0012060 e e n i s h B l u e 0 . 5 7 3
0012100 3 1 5 ) ( B l u e 0 . 6 6
0012120 6 6 \r 1 6 ) ( P u r p l i s
0012140 h B l u e 0 . 6 8 1 6 1 7 )
0012160 ( B l u e P u r p l e 0 . 6
0012200 9 6 6 1 8 ) ( B l u i s h P
0012220 u r p l e 0 . 7 1 1 6 1 9 )
0012240 ( P u r p l e 0 . 7 3 2 0
0012260 ) ( \r R e d d i s h P u r p l
0012300 e 0 . 8 2 1 ) ( P u r p l
0012320 e R e d 0 . 8 7 2 2 ) ( P
0012340 u r p l i s h R e d 0 . 9 4
0012360 2 3 ) ( B r o w n i s h R e d
0012400 0 . 0 1 2 4 ) ( R e d B r
0012420 o w n 0 . 0 2 \r 2 5 ) ( R
0012440 e d d i s h B r o w n 0 . 0 3
0012460 2 6 ) ( B r o w n 0 . 0 4
0012500 2 7 ) ( Y e l l o w i s h B
0012520 r o w n 0 . 0 7 2 8 ) ( B
0012540 r o w n Y e l l o w 0 . 1 2
0012560 9 ) ( \r B r o w n i s h Y e l
0012600 l o w 0 . 1 3 3 0 ) ) ) \r (
0012620 R P A Q Q D I C O L O R . l i
0012640 g h t n e s s M a p p i n g (
0012660 ( B l a c k 0 . 0 0 ) ( V
0012700 e r y D a r k 0 . 1 6 6 6 1
0012720 ) ( D a r k 0 . 3 3 3 3 2
0012740 ) ( M e d i u m 0 . 5 3 )
0012760 ( \r L i g h t 0 . 6 6 6 6
0013000 4 ) ( V e r y L i g h t 0 .
0013020 8 3 3 3 5 ) ( W h i t e 1
0013040 . 0 6 ) ) ) \r ( R P A Q Q D
0013060 I C O L O R . s a t u r a t i o
0013100 n M a p p i n g ( ( N o S a t
0013120 u r a t i o n 0 . 0 0 ) (
0013140 G r a y i s h 0 . 2 5 1 )
0013160 ( M o d e r a t e 0 . 5 2 )
0013200 ( S t r o n g 0 . 7 5 \r 3
0013220 ) ( V i v i d 1 . 0 4 ) )
0013240 ) \r ( R P A Q Q N E W C O L O
0013260 R I T E M ( N e w % C o l o
0013300 r ( Q U O T E C N S ) " A
0013320 l l o w s s p e c i f i c a t
0013340 i o n o f a n e w c o l
0013360 o r " ( S U B I T E M S ( R
0013400 G B ( \r Q U O T E R G B )
0013420 " S p e c i f y a n e w c
0013440 o l o r u s i n g R e d ,
0013460 G r e e n , B l u e s l i d
0013500 e r s " ) ( C N S ( Q U O T
0013520 E C N S ) \r " S p e c i f y
0013540 a n e w c o l o r u s i
0013560 n g E n g l i s h " ) ) ) ) \r
0013600 ( R P A Q ? C O L O R N A M E
0013620 M E N U ) \r ( P U T P R O P S
0013640 D I C O L O R C O P Y R I G H
0013660 T ( " X e r o x C o r p o r
0013700 a t i o n " 1 9 8 5 ) ) \r N I
0013720 L \r
0013722