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