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