$ od -c -N 50000 [eris]<Lisp>Harmony>Library>COLORDEMO!1
0000000 ( F I L E C R E A T E D " 2
0000020 - A u g - 8 4 1 1 : 0 5 : 2 0
0000040 " 006 004 { E R I S } < L I S P C
0000060 O R E > L I B R A R Y > C O L O
0000100 R D E M O . ; 2 006 001 4 2 5 4 0
0000120 \r \r c h a n g e
0000140 s t o : ( F N S L O G O
0000160 D E M O S E N D C O L O R R E
0000200 G I O N T U N N E L D E M O
0000220 M O D A R T D E M O C O L O R
0000240 D E M O ) \r \t \t ( V A R S
0000260 C O L O R D E M O C O M S D
0000300 A N D E L I O N C O L O R D E M
0000320 O S ) \r \r p r e v i
0000340 o u s d a t e : " 1 2 - O C
0000360 T - 8 3 1 4 : 1 2 : 4 4 " {
0000400 E R I S } < L I S P C O R E > L
0000420 I B R A R Y > C O L O R D E M O
0000440 . ; 1 ) \r \r \r ( * C o p y r i
0000460 g h t ( c ) 1 9 8 2 , 1 9
0000500 8 3 , 1 9 8 4 b y X e r o
0000520 x C o r p o r a t i o n . A
0000540 l l r i g h t s r e s e r v
0000560 e d . ) \r \r ( P R E T T Y C O M
0000600 P R I N T C O L O R D E M O C
0000620 O M S ) \r \r ( R P A Q Q 006 002 C
0000640 O L O R D E M O C O M S 006 001 (
0000660 ( F N S S E N D C O L O R R E
0000700 G I O N ) \r \t ( F N S C O L O
0000720 R D E M O C H O O S E D E M O
0000740 D O C O L O R D R O P E X M
0000760 I N E S H A F T M I N E S H A
0001000 F T M O D A R T M O D A R T
0001020 D E M O P O I N T T E S T \r
0001040 \t P U T D R O P S Q
0001060 U I T P R A I N I N G R A I
0001100 N I N G C O L O R M A P R O T
0001120 A T E I T S H O W C O L O R W
0001140 T U N N E L T U N N E L D E
0001160 M O C I R C L E D E M O \r \t
0001200 W E L L ) \r \t ( V A R
0001220 S C O L O R D E M O S D A N
0001240 D E L I O N C O L O R D E M O S
0001260 \ F I R S T A U T O D E M O
0001300 ( \ N E W C O L O R D E M O N
0001320 I L ) \r \t ( S T O P
0001340 D A T E N I L ) \r \t
0001360 ( D E M O R A I N B O W M A P
0001400 ) \r \t ( D E M O D E
0001420 F A U L T C O L O R M A P ) ) \r
0001440 \t ( G L O B A L V A R S C O L
0001460 O R D E M O S \ F I R S T A U
0001500 T O D E M O \ N E W C O L O R
0001520 D E M O S T O P D A T E D E
0001540 M O R A I N B O W M A P \r \t \t
0001560 D E M O D E F A U L T C
0001600 O L O W M A P ) \r \t ( C O M S
0001620 ( * L o g o d e m o s ) \r \t
0001640 ( F N S L O G O D
0001660 E M O C O L O R L O G O D R
0001700 A W A C O L O R W I N D O W I
0001720 N I T / L O G O / C O L O R B I
0001740 T M A P C O L O R P R I N T C
0001760 H A R ) \r \t ( V A R
0002000 S A N G L E D E L T A C I R
0002020 C L E S I Z E L O G O C Y C L
0002040 E W A I T T I M E ( J L O G O
0002060 ) \r \t \t ( W I N D O W I
0002100 M A G E ) \r \t \t ( I N T
0002120 E R L I S P - D / C O L O R B I
0002140 T M A P ) ) \r \t ( G
0002160 L O B A L V A R S I N T E R L
0002200 I S P - D / C O L O R B I T M A
0002220 P ) ) \r \t ( C O M S ( * K i
0002240 n e t i c d e m o s ) \r \t
0002260 ( F N S C O L O R K I
0002300 N E T I C D E M O C O L O R K
0002320 I N E T I C C I R K I N ) \r \t
0002340 ( V A R S ( K I N
0002360 E T I C W A I T T I M E 1 5 0
0002400 ) ) \r \t ( G L O B A
0002420 L V A R S K I N E T I C W A I
0002440 T T I M E ) ) \r \t ( C O M S (
0002460 F N S C O L O R D E M O 1 C
0002500 O L O R D E M O 2 I N I T / C
0002520 O L O R D E M O / M E N U S ) \r
0002540 \t ( V A R S K I N
0002560 C Y C L E W A I T T I M E ( C
0002600 O L O R K I N E T I C C O M M A
0002620 N D M E N U ) \r \t \t ( C
0002640 O L O R P R I N T C H A R D S )
0002660 \r \t \t ( C O L O R D E M
0002700 O 2 M E N U ) ) \r \t
0002720 ( V A R S R A I N B O W I N T
0002740 E N S I T I E S ) ) \r \t ( C O M
0002760 S ( * S i m p l e d e m o
0003000 s ) \r \t ( F N S R
0003020 E D G R E E N ) ) \r \t ( C O M S
0003040 ( F N S O V E R P A I N T D
0003060 E M O O V E R P A I N T B M
0003100 O V E R P A I N T S E L F N C
0003120 A C H E B I T M A P N E W X
0003140 N E W Y ) \r \t ( V A
0003160 R S ( O V E R P A I N T B I T
0003200 M A P S ) ) ) \r \t ( C O M S (
0003220 F N S W A L K D E M O W A L
0003240 K B M R A N D C O L O R M A P
0003260 ) \r \t [ I N I T V A
0003300 R S M A X W A L K M I N W A
0003320 L K R A N D C O L O R P R O B
0003340 ( W A L K R A N D O M C O L O
0003360 R M A P ) \r \t \t \t ( 8 B I T B M
0003400 E X P ( L I S T ( H A R R A
0003420 Y 6 0 ) ) ) \r \t \t \t ( 4 B I T
0003440 B M E X P ( L I S T ( H A R
0003460 R A Y 6 0 ] \r \t (
0003500 G L O B A L V A R S 8 B I T B
0003520 M E X P 4 B I T B M E X P W
0003540 A L K R A N D O M C O L O R M A
0003560 P ) ) \r \t ( F I L E S C O L O
0003600 R ) ) ) \r ( D E F I N E Q \r \r (
0003620 006 004 S E N D C O L O R R E G I O
0003640 N 006 001 \r [ L A M B D A ( C
0003660 O L O R B I T M A P R E G I O
0003700 N )
0003720
0003740 006 003 ( * r r b " 2 - A u
0003760 g - 8 4 1 0 : 3 1 " ) 006 001 \r
0004000
*
0004060 006 003 ( *
0004100 i f t h e c o l o r s e
0004120 t u p i s s u c h t h a t
0004140 t h e b i t s n e e d t
0004160 o g e t 006 001 \r \t \t \t \t \t \t \t
0004200 006 003 s e n t t o a
0004220 n o t h e r d e v i c e , s
0004240 e n d t h e m . ) 006 001 \r
0004260 ( A N D ( E Q ( M A C H I
0004300 N E T Y P E ) \r \t ( Q
0004320 U O T E D A N D E L I O N ) )
0004340 \r \t ( P C W R I T E R E G I O
0004360 N C O L O R B I T M A P R E
0004400 G I O N ] ) \r ) \r ( D E F I N E
0004420 Q \r \r ( 006 004 C O L O R D E M O 006
0004440 001 \r [ L A M B D A ( F A S
0004460 T F L G )
0004500
0004520 006
0004540 003 ( * r r b " 2 - A u g -
0004560 8 4 1 1 : 0 2 " ) 006 001 \r
0004600 ( 006 002 D E C L A R E 006 001 ( G
0004620 L O B A L V A R S C O L O R D
0004640 E M O S \ F I R S T A U T O D
0004660 E M O \ N E W C O L O R D E M
0004700 O S T O P D A T E ) ) \r
0004720 ( R E S E T L S T [ C O N D
0004740 \r \t \t ( ( N U L L ( C O L O R
0004760 D I S P L A Y P ) ) \r \t \t (
0005000 C O L O R D I S P L A Y T (
0005020 C O N D \r \t \t \t \t ( ( E Q
0005040 ( M A C H I N E T Y P E ) \r \t \t
0005060 \t \t ( Q U O T E
0005100 D O R A D O ) ) \r \t \t \t \t
0005120 8 ) \r \t \t \t \t ( T 4 ] \r
0005140 \t [ C O N D \r \t \t (
0005160 ( E Q ( T Y P E N A M E ( S
0005200 C R E E N C O L O R M A P ) ) \r
0005220 \t \t ( T Y P E N A M E
0005240 D E M O D E F A U L T C O L O
0005260 R M A P ) ) ) \r \t \t ( T ( S E
0005300 T Q D E M O D E F A U L T C O
0005320 L O R M A P ( C O L O R M A P
0005340 C R E A T E ] \r \t [
0005360 C O N D \r \t \t ( ( E Q ( T Y P
0005400 E N A M E ( S C R E E N C O L
0005420 O R M A P ) ) \r \t \t (
0005440 T Y P E N A M E D E M O R A I
0005460 N B O W M A P ) ) ) \r \t \t ( T
0005500 ( S E T Q D E M O R A I N B O
0005520 W M A P ( R A I N B O W M A P
0005540 ] \r \t [ C O N D \r \t
0005560 \t ( ( E Q ( T Y P E N A M E
0005600 ( S C R E E N C O L O R M A P )
0005620 ) \r \t \t ( T Y P E N A
0005640 M E D E M O R A I N I N G C O
0005660 L O R M A P ) ) ) \r \t \t ( T (
0005700 S E T Q D E M O R A I N I N G
0005720 C O L O R M A P ( 006 002 R A I N
0005740 I N G C O L O R M A P 006 001 ] \r \t
0005760 ( R E S E T S A V E
0006000 ( S C R E E N C O L O R M A P
0006020 D E M O D E F A U L T C O L O
0006040 R M A P ) ) \r \t [ P
0006060 R O G [ ( C O L O R M E N U
0006100 ( 006 002 c r e a t e 006 001 M E N U
0006120 \r \t \t \t \t \t T I T L E _ " C
0006140 o l o r d e m o s " \r \t \t \t \t
0006160 \t I T E M S _ ( A P P E N D
0006200 ( C O N D \r \t \t \t \t \t \t \t ( (
0006220 E Q ( M A C H I N E T Y P E )
0006240 \r \t \t \t \t \t \t \t ( Q
0006260 U O T E D A N D E L I O N ) )
0006300 \r \t \t \t \t \t \t \t D A N D E
0006320 L I O N C O L O R D E M O S ) \r
0006340 \t \t \t \t \t \t \t ( T C O L O R
0006360 D E M O S ) ) \r \t \t \t \t \t \t
0006400 ( Q U O T E ( S T O
0006420 P ) ) ) \r \t \t \t \t \t W H E N S E
0006440 L E C T E D F N _ ( Q U O T E
0006460 C H O O S E D E M O ] \r \t \t
0006500 [ R E S E T S A V E N I
0006520 L ( L I S T ( Q U O T E C
0006540 L O S E W ) \r \t \t \t \t \t ( A D
0006560 D M E N U C O L O R M E N U
0006600 N I L \r \t \t \t \t \t \t ( C O N
0006620 D \r \t \t \t \t \t \t [ F A S
0006640 T F L G \r
0006660
*
0006740 006 003 ( * p u t t h e
0006760 m e n u a t t h e t o p
0007000 o f t h e b l a c k a n d
0007020 w h i t e 006 001 \r \t \t \t \t \t \t
0007040 \t 006 003 s c r e e n . )
0007060 006 001 \r \t \t \t \t \t \t \t (
0007100 006 002 c r e a t e 006 001 P O S I T
0007120 I O N \r \t \t \t \t \t \t \t \t
0007140 X C O O R D _ 4 0 0 \r \t \t
0007160 \t \t \t \t \t \t Y C O O R
0007200 D _ ( I D I F F E R E N C E \r
0007220 \t \t \t \t \t \t \t \t S
0007240 C R E E N H E I G H T \r \t \t \t \t
0007260 \t \t \t \t ( 006 002 f e
0007300 t c h 006 001 I M A G E H E I G H
0007320 T \r \t \t \t \t \t \t \t \t \t 006 002 o
0007340 f 006 001 C O L O R M E N T ] \r \t
0007360 \t \t \t \t \t ( T ( G E T
0007400 B O X P O S I T I O N ( 006 002 f
0007420 e t c h 006 001 I M A G E W I D T
0007440 H \r \t \t \t \t \t \t \t \t \t 006 002 o
0007460 f 006 001 C O L O R M E N U ) \r \t
0007500 \t \t \t \t \t \t \t ( 006
0007520 002 f e t c h 006 001 I M A G E H E
0007540 I G H T \r \t \t \t \t \t \t \t \t \t
0007560 006 002 o f 006 001 C O L O R M E N U
0007600 ] \r \t \t ( A N D F A S
0007620 T F L G ( R E S E T S A V E
0007640 ( S E T D I S P L A Y H E I G H
0007660 T ( 006 002 f e t c h 006 001 I M A
0007700 G E H E I G H T 006 002 o f 006 001
0007720 C O L O R M E N U ] \r \t
0007740 ( S E T Q \ N E W C O L O
0007760 R D E M O N I L ) \r \t
0010000 ( 006 002 b i n d 006 001 ( \ N E
0010020 X T C O L O R D E M O _ \ F
0010040 I R S T A U T O D E M O ) 006 002
0010060 u n t i l 006 001 ( E Q \ N E X
0010100 T C O L O R D E M O ( Q U O T
0010120 E S T O P ) ) \r \t \t 006 002 d o
0010140 006 001 ( S E T Q S T O P D A T
0010160 E ( I P L U S ( C O N D \r \t
0010200 \t \t \t \t ( ( E Q ( M A
0010220 C H I N E T Y P E ) \r \t \t \t \t \t
0010240 \t ( Q U O T E D O R A D O )
0010260 ) \r \t \t \t \t \t 4 0 )
0010300 \r \t \t \t \t \t ( T 6 0 )
0010320 ) \r \t \t \t \t \t ( I D A T E )
0010340 ) ) \r \t \t ( S E T Q \
0010360 N E W C O L O R D E M O N I L
0010400 ) \r \t \t ( A P P L Y \
0010420 N E X T C O L O R D E M O ) \r \t
0010440 \t ( S E T Q \ N E X T
0010460 C O L O R D E M O ( O R \ N
0010500 E W C O L O R D E M O ( C A D
0010520 R ( F M E M B \ N E X T C O
0010540 L O R D E M O C O L O R D E M
0010560 O S ) ) \r \t \t \t \t \t \
0010600 F I R S T A U T O D E M O ) ) \r
0010620 \t \t 006 002 f i n a l l y 006 001 (
0010640 S E T Q \ N E W C O L O R D E
0010660 M O N I L ] ) \r \r ( 006 004 C H O
0010700 O S E D E M O 006 001 \r [ L A M
0010720 B D A ( N E W ) \r ( 006
0010740 002 D E C L A R E 006 001 ( G L O B
0010760 A L V A R S \ N E W C O L O R
0011000 D E M O ) )
0011020 006 003 ( *
0011040 b a s : " 5 - J U N - 8 2
0011060 1 3 : 0 7 " ) 006 001 \r ( S
0011100 E T Q \ N E W C O L O R D E M
0011120 O N E W ] ) \r \r ( 006 004 D O C O
0011140 L O R D R O P 006 001 \r [ L A M
0011160 B D A ( X Y W I D T H R
0011200 A D I U S I N C R N C I R C L
0011220 E S D S C O L O R # M A X
0011240 C O L O R ) \r
0011260
*
0011340 006 003 ( * r r b " 3 0
0011360 - S E P - 8 2 0 9 : 5 7 " ) 006
0011400 001 \r
0011420
*
0011460 006
0011500 003 ( * d r a w s a s e r i
0011520 e s o f c o n c e n t r i c
0011540 c i r c l e s . 006 001 \r \t \t \t \t
0011560 \t \t \t 006 003 U s e s C
0011600 O L O R # f r e e l y . ) 006 001
0011620 \r ( 006 002 f o r 006 001 I
0011640 006 002 f r o m 006 001 1 006 002 t o 006
0011660 001 N C I R C L E S 006 002 d o 006
0011700 001 ( D R A W C I R C L E X
0011720 Y ( I T I M E S I R A D I
0011740 U S I N C R ) \r \t \t \t \t \t
0011760 [ L I S T ( Q U O T E R
0012000 O U N D ) \r \t \t \t \t \t \t W
0012020 I D T H \r \t \t \t \t \t \t ( C
0012040 O N D \r \t \t \t \t \t \t (
0012060 ( I L E S S P ( S E T Q C O
0012100 L O R # ( A D D 1 C O L O R
0012120 # ) ) \r \t \t \t \t \t \t \t
0012140 M A X C O L O R ) \r \t \t \t \t \t
0012160 \t C O L O R # ) \r
0012200 \t \t \t \t \t \t ( T ( S
0012220 E T Q C O L O R # 1 ] \r \t \t
0012240 \t \t \t N I L D S ) )
0012260 \r C O L O R # ] ) \r \r (
0012300 006 004 E X M I N E S H A F T 006 001 \r
0012320 [ L A M B D A ( O U T F L
0012340 G F A C T O R )
0012360
0012400 006 003 (
0012420 * e d i t e d : " 1 2 - S E
0012440 P - 8 2 1 3 : 0 5 " ) 006 001 \r
0012460
*
0012540 006 003 ( *
0012560 d r a w s a m i n e s h a
0012600 f t o n t h e c o l o r s
0012620 c r e e n . ) 006 001 \r ( P
0012640 R O G [ ( C O L O R 0 ) \r \t
0012660 ( L E F T 0 . 0 ) \r \t
0012700 ( B O T T O M 0 . 0 ) \r \t
0012720 ( M A X B O T T O M ( F
0012740 Q U O T I E N T C O L O R S C
0012760 R E E N H E I G H T 2 . 0 ) )
0013000 \r \t ( F A C T O R ( F Q
0013020 U O T I E N T F A C T O R 1
0013040 0 0 . 0 ) ) \r \t L E F T F
0013060 A C T O R B O T T O M F A C T
0013100 O R I N C R ( M A X C O L O
0013120 R ( S U B 1 ( E X P T 2
0013140 ( C O L O R M A P B I T S ( S
0013160 C R E E N C O L O R M A P ] \r
0013200 ( S E T Q L
0013220 E F T F A C T O R ( F T I M E
0013240 S 4 . 0 F A C T O R ) ) \r
0013260 ( S E T Q B
0013300 O T T O M F A C T O R ( F T I
0013320 M E S 3 . 0 F A C T O R ) )
0013340 \r L P ( C O L O
0013360 R F I L L A R E A ( F I X L
0013400 E F T ) \r \t \t \t ( F I X B O
0013420 T T O M ) \r \t \t \t ( I D I F F
0013440 E R E N C E C O L O R S C R E
0013460 E N W I D T H ( F T I M E S
0013500 L E F T 2 ) ) \r \t \t \t ( I D
0013520 I F F E R E N C E C O L O R S
0013540 C R E E N H E I G H T ( F T I
0013560 M E S B O T T O M 2 ) ) \r \t
0013600 \t \t C O L O R \r \t \t \t ( C O
0013620 L O R S C R E E N B I T M A P )
0013640 ) \r [ S E T
0013660 Q I N C R ( F P L U S 1 .
0013700 0 ( F T I M E S . 1 ( F D
0013720 I F F E R E N C E M A X B O T
0013740 T O M B O T T O M ] \r
0013760 ( S E T Q L E F T
0014000 ( F P L U S L E F T ( F T
0014020 I M E S I N C R L E F T F A
0014040 C T O R ) ) ) \r
0014060 ( S E T Q B O T T O M (
0014100 F P L U S B O T T O M ( F T
0014120 I M E S I N C R B O T T O M
0014140 F A C T O R ) ) ) \r
0014160 ( C O N D \r \t (
0014200 ( F G R E A T E R P B O T T O
0014220 M M A X B O T T O M ) \r \t
0014240 ( R E T U R N ) ) ) \r
0014260 [ C O N D \r \t
0014300 [ O U T F L G ( C O N
0014320 D \r \t \t ( ( I L E S
0014340 S P ( S E T Q C O L O R (
0014360 S U B 1 C O L O R ) ) \r \t \t \t
0014400 0 ) \r \t \t \t ( S E
0014420 T Q C O L O R M A X C O L O
0014440 R ] \r \t ( T ( C O N D
0014460 \r \t \t ( ( I G R E A T E R P
0014500 ( S E T Q C O L O R ( A D D
0014520 1 C O L O R ) ) \r \t \t \t
0014540 M A X C O L O R ) \r \t \t
0014560 ( S E T Q C O L O R 0 ] \r
0014600 ( G O L P
0014620 ] ) \r \r ( 006 004 M I N E S H A F T
0014640 006 001 \r [ L A M B D A ( N
0014660 O U T F L G )
0014700
*
0014740 006 003 ( * e d i t e d : " 1 0
0014760 - S E P - 8 2 1 7 : 5 5 " ) 006
0015000 001 \r
0015020
*
0015060 006
0015100 003 ( * d r a w s a m i n e
0015120 s h a f t o n t h e c o l
0015140 o r s c r e e n . ) 006 001 \r
0015160 ( P R O G ( ( C O L O R 0
0015200 ) \r \t ( N ( O R ( N U
0015220 M B E R P N ) \r \t \t 1 ) )
0015240 ) \r ( 006 002 f
0015260 o r 006 001 L E F T 006 002 f r o m
0015300 006 001 0 006 002 b y 006 001 ( I T I
0015320 M E S N 4 ) 006 002 a s 006 001
0015340 B O T T O M 006 002 f r o m 006 001
0015360 0 006 002 b y 006 001 ( I T I M E S
0015400 N 3 ) 006 002 t o 006 001 ( I Q
0015420 U O T I E N T \r \t \t \t \t \t \t \t
0015440 \t \t \t C O L O R S C R E E N H E
0015460 I G H T 2 ) \r \t 006 002
0015500 d o 006 001 ( C O L O R F I L L A
0015520 R E A L E F T B O T T O M
0015540 ( I D I F F E R E N C E C O L
0015560 O R S C R E E N W I D T H ( I
0015600 T I M E S L E F T 2 ) ) \r \t
0015620 \t \t ( I D I F F E
0015640 R E N C E C O L O R S C R E E
0015660 N H E I G H T ( I T I M E S
0015700 B O T T O M 2 ) ) \r \t \t \t
0015720 C O L O R \r \t \t \t
0015740 ( C O L O R S C R E E
0015760 N B I T M A P ) ) \r \t \t ( C O N
0016000 D \r \t \t [ O U T F L G ( C
0016020 O N D \r \t \t \t ( ( I L E
0016040 S S P ( S E T Q C O L O R
0016060 ( S U B 1 C O L O R ) ) \r \t \t
0016100 \t \t 0 ) \r \t \t \t
0016120 ( S E T Q C O L O R 2
0016140 5 5 ] \r \t \t ( T ( C O N D
0016160 \r \t \t ( ( I G R E
0016200 A T E R P ( S E T Q C O L O
0016220 R ( A D D 1 C O L O R ) ) \r
0016240 \t \t \t \t 2 5 6 ) \r \t \t \t
0016260 ( S E T Q C O L O R 0 ] ) \r
0016300 \r ( 006 004 M O D A R T 006 001 \r [
0016320 L A M B D A N I L
0016340
*
0016400 006 003 ( * r
0016420 r b " 2 1 - O C T - 8 2 1 8
0016440 : 1 6 " ) 006 001 \r [ C O N
0016460 D \r ( ( C O L O R D
0016500 I S P L A Y P ) ) \r
0016520 ( T ( C O L O R D I S P L A Y
0016540 T ( C O N D \r \t \t \t ( ( E
0016560 Q ( M A C H I N E T Y P E ) \r
0016600 \t \t \t ( Q U O T E
0016620 D O R A D O ) ) \r \t \t \t 8
0016640 ) \r \t \t \t ( T 4 ] \r
0016660 ( P R O G ( ( W D C O L O R
0016700 S C R E E N W I D T H ) \r \t
0016720 ( H T C O L O R S C R E E N
0016740 H E I G H T ) \r \t ( C B M
0016760 ( C O L O R S C R E E N B I T
0017000 M A P ) ) \r \t ( M A X C O
0017020 L O R ( M A X I M U M C O L O
0017040 R ) ) \r \t X Y ) \r
0017060 L P ( 006 002 f o r 006 001
0017100 I 006 002 f r o m 006 001 1 006 002 t
0017120 o 006 001 5 0 006 002 d o 006 001 ( S
0017140 E T Q X ( R A N D 0 W D
0017160 ) ) \r \t \t \t \t ( S E T Q Y
0017200 ( R A N D 0 H T ) ) \r \t \t \t
0017220 \t ( \ N U B I T B L T C B M
0017240 0 0 C B M ( R A N D 0
0017260 ( I D I F F E R E N C E W D
0017300 X ) ) \r \t \t \t \t \t ( R
0017320 A N D 0 ( I D I F F E R E N
0017340 C E H T Y ) ) \r \t \t \t \t \t
0017360 X Y ( S E L E C T Q
0017400 ( R A N D 0 1 ) \r \t \t \t \t \t
0017420 \t \t ( 0 ( Q U O T E T E X
0017440 T U R E ) ) \r \t \t \t \t \t \t \t (
0017460 Q U O T E I N P U T ) ) \r \t \t
0017500 \t \t \t ( S E L E C T Q
0017520 ( R A N D 0 5 ) \r \t \t \t \t \t
0017540 \t ( 0 ( Q U O T E
0017560 I N V E R T ) ) \r \t \t \t \t \t \t
0017600 ( Q U O T E P A I N T
0017620 ) ) \r \t \t \t \t \t ( C O L
0017640 O R T E X T U R E F R O M C O L
0017660 O R # ( R A N D 0 M A X C
0017700 O L O R ) ) ) \r \t \t \t \t ( D I
0017720 S M I S S 2 0 ) \r \t
0017740 006 002 f i n a l l y 006 001 ( R O T
0017760 A T E C O L O R M A P ( S C R
0020000 E E N C O L O R M A P ) ) ) \r
0020020 ( G O L P ]
0020040 ) \r \r ( 006 004 M O D A R T D E M O
0020060 006 001 \r [ L A M B D A ( W A
0020100 I T )
0020120
*
0020160 006 003 ( * r r b " 2 - A u g
0020200 - 8 4 1 1 : 0 0 " ) 006 001 \r
0020220 [ C O N D \r ( (
0020240 C O L O R D I S P L A Y P ) ) \r
0020260 ( T ( C O L O R D
0020300 I S P L A Y T ( C O N D \r \t
0020320 \t \t ( ( E Q ( M A C H I N E
0020340 T Y P E ) \r \t \t \t (
0020360 Q U O T E D O R A D O ) ) \r \t
0020400 \t \t 8 ) \r \t \t \t ( T 4
0020420 ] \r ( P R O G ( ( W D
0020440 C O L O R S C R E E N W I D T
0020460 H ) \r \t ( H T C O L O R
0020500 S C R E E N H E I G H T ) \r \t
0020520 ( C B M ( C O L O R S C R
0020540 E E N B I T M A P ) ) \r \t
0020560 ( M A X C O L O R ( M A X I M
0020600 U M C O L O R ) ) \r \t X
0020620 Y ) \r ( 006 002
0020640 Q U I T P 006 001 ( O R W A I T
0020660 4 0 ) ) \r
0020700 ( 006 002 u n t i l 006 001 ( 006 002 Q U
0020720 I T P 006 001 N I L ) \r \t
0020740 006 002 d o 006 001 ( 006 002 f o r 006 001
0020760 I 006 002 f r o m 006 001 1 006 002
0021000 t o 006 001 8 \r \t \t 006 002 d o
0021020 006 001 ( C O N D \r \t \t \t ( ( 006 002
0021040 Q U I T P 006 001 N I L ) \r \t \t \t
0021060 ( R E T U R N ) ) ) \r \t \t
0021100 ( S E T Q X ( R A
0021120 N D 0 W D ) ) \r \t \t
0021140 ( S E T Q Y ( R A N D
0021160 0 H T ) ) \r \t \t (
0021200 B I T B L T C B M 0 0 C
0021220 B M ( R A N D 0 ( I D I F
0021240 F E R E N C E W D X ) ) \r \t
0021260 \t \t ( R A N D 0
0021300 ( I D I F F E R E N C E H T
0021320 Y ) ) \r \t \t \t X Y
0021340 ( Q U O T E T E X T U R E )
0021360 \r \t \t \t ( Q U O T E
0021400 R E P L A C E ) \r \t \t \t
0021420 ( R A N D 0 ( L R S H
0021440 M A X C O L O R 1 ) ) ) \r \t
0021460 \t ( 006 002 f o r 006 001
0021500 J 006 002 f r o m 006 001 1 006 002 t
0021520 o 006 001 8 \r \t \t \t 006 002 d o 006 001
0021540 ( S E T Q X ( R A N D 0
0021560 W D ) ) \r \t \t \t ( S E
0021600 T Q Y ( R A N D 0 H T )
0021620 ) \r \t \t \t ( B I T B L T
0021640 C B M ( R A N D 0 ( I D
0021660 I F F E R E N C E W D X ) )
0021700 \r \t \t \t \t ( R A N D 0
0021720 ( I D I F F E R E N C E H T
0021740 Y ) ) \r \t \t \t \t C B M
0021760 \r \t \t \t \t ( R A N D 0
0022000 ( I D I F F E R E N C E W D
0022020 X ) ) \r \t \t \t \t ( R A
0022040 N D 0 ( I D I F F E R E N C
0022060 E H T Y ) ) \r \t \t \t \t
0022100 X Y ( Q U O T E I N P U
0022120 T ) \r \t \t \t \t ( S E L E
0022140 C T Q ( R A N D 0 2 ) \r \t
0022160 \t \t \t \t ( 0 ( Q U O
0022200 T E I N V E R T ) ) \r \t \t \t \t
0022220 \t ( 1 ( Q U O T E
0022240 R E P L A C E ) ) \r \t \t \t \t \t
0022260 ( Q U O T E P A I N T
0022300 ) ) ) \r \t \t \t ( C O N D
0022320 \r \t \t \t ( ( E Q (
0022340 M A C H I N E T Y P E ) \r \t \t \t
0022360 \t ( Q U O T E D A N D E
0022400 L I O N ) ) \r \t \t \t \t ( 006 002 S E
0022420 N D C O L O R R E G I O N 006 001
0022440 ( C O L O R S C R E E N B I T M
0022460 A P ) ) ) \r \t \t \t (
0022500 T ( D I S M I S S 3 0 0 ) )
0022520 ) \r \t \t \t ( 006 002 u n t i
0022540 l 006 001 ( M O U S E S T A T E
0022560 U P ) ) ) \r \t \t ( R
0022600 O T A T E C O L O R M A P ( S
0022620 C R E E N C O L O R M A P ) ) )
0022640 006 003 ( * c l e a r
0022660 t h e s c r e e n e v e r y
0022700 s o o f t e n ) 006 001 \r \t \t (
0022720 B I T B L T C B M 0 0 C
0022740 B M 0 ( R A N D ( I D I F
0022760 F E R E N C E H T Y ) ) \r \t
0023000 \t \t C O L O R S C R E E N W I D
0023020 T H C O L O R S C R E E N H E
0023040 I G H T ( Q U O T E T E X T
0023060 U R E ) \r \t \t \t ( Q U O T E R
0023100 E P L A C E ) \r \t \t \t ( R A N D
0023120 0 ( L R S H M A X C O L O
0023140 R 1 ] ) \r \r ( 006 004 P O I N T T
0023160 E S T 006 001 \r [ L A M B D A
0023200 ( R E G I O N )
0023220
*
0023260 006 003 ( * e d i t e d :
0023300 " 9 - S E P - 8 2 1 0 : 1 3
0023320 " ) 006 001 \r
0023340
*
0023420 006 003 ( * r a n d o m l y
0023440 p u t s p o i n t s i n a
0023460 r e g i o n ) 006 001 \r (
0023500 P R O G ( [ L E F T ( 006 002 f
0023520 e t c h 006 001 ( R E G I O N L
0023540 E F T ) 006 002 o f 006 001 ( C O N
0023560 D \r \t \t \t \t \t ( R E G I O
0023600 N ) \r \t \t \t \t \t ( T W H
0023620 O L E C O L O R D I S P L A Y ]
0023640 \r \t [ B O T T O M ( 006 002
0023660 f e t c h 006 001 ( R E G I O N
0023700 B O T T O M ) 006 002 o f 006 001 (
0023720 C O N D \r \t \t \t \t \t
0023740 ( R E G I O N ) \r \t \t \t \t \t
0023760 ( T W H O L E C O
0024000 L O R D I S P L A Y ] \r \t
0024020 [ R I G H T ( 006 002 f e t c h 006
0024040 001 ( R E G I O N R I G H T )
0024060 006 002 o f 006 001 ( C O N D \r \t \t
0024100 \t \t \t ( R E G I O N )
0024120 \r \t \t \t \t \t ( T W H
0024140 O L E C O L O R D I S P L A Y ]
0024160 \r \t [ T O P ( 006 002 f e t
0024200 c h 006 001 ( R E G I O N T O P
0024220 ) 006 002 o f 006 001 ( C O N D \r \t
0024240 \t \t \t \t ( R E G I O N ) \r \t \t
0024260 \t \t \t ( T W H O L E C O L O
0024300 R D I S P L A Y ] \r \t ( M
0024320 A X C O L O R ( S U B 1 ( E
0024340 X P T 2 \ C O L O R D I S P
0024360 L A Y B I T S P E R P I X E L )
0024400 ) ) \r \t ( C S N ( C O L
0024420 O R S C R E E N B I T M A P ) )
0024440 ) \r ( 006 002 u
0024460 n t i l 006 001 ( M O U S E S T A
0024500 T E ( N O T U P ) ) 006 002 d
0024520 o 006 001 ( 006 002 f o r 006 001 I 006
0024540 002 f r o m 006 001 1 006 002 t o 006 001
0024560 1 0 0 006 002 d o 006 001 ( B I T
0024600 M A P B I T C S N ( R A N D
0024620 L E F T R I G H T ) \r \t \t \t
0024640 \t \t \t \t \t \t ( R A N D
0024660 B O T T O M T O P ) \r \t \t \t
0024700 \t \t \t \t \t \t ( R A N D
0024720 0 M A X C O L O R ] ) \r \r (
0024740 006 004 P U T D R O P S 006 001 \r [
0024760 L A M B D A ( N )
0025000
*
0025040 006 003 ( * r
0025060 r b " 2 1 - S E P - 8 2 1 5
0025100 : 5 4 " ) 006 001 \r ( P R O
0025120 G ( ( D S ( D S P C R E A T
0025140 E ) ) \r \t P O S ) \r
0025160 L P ( S E T Q P O S
0025200 ( G E T P O S I T I O N ) ) \r
0025220 ( C O N D \r
0025240 \t ( ( L A S T M O U S E
0025260 S T A T E R I G H T ) \r \t
0025300 ( R E T U R N ) ) ) \r
0025320 ( 006 002 D O C O
0025340 L O R D R O P 006 001 ( 006 002 f e t
0025360 c h 006 001 X C O O R D 006 002 o f
0025400 006 001 P O S ) \r \t \t
0025420 ( 006 002 f e t c h 006 001 Y C O O
0025440 R D 006 002 o f 006 001 P O S ) \r \t
0025460 \t ( O R N 3 )
0025500 \r \t \t ( C O N D \r
0025520 \t \t \t ( ( L A S T M O U S E S
0025540 T A T E L E F T ) \r \t \t \t
0025560 ( R A N D 8 1 5 ) ) \r \t \t
0025600 \t ( T ( R A N D 1 0 2 0
0025620 ) ) ) \r \t \t D S
0025640 1 2 8 ) \r (
0025660 G O L P ] ) \r \r ( 006 004 Q U I T
0025700 P 006 001 \r [ L A M B D A ( N
0025720 )
0025740
*
0026000 006 003 ( * e d i t e d : "
0026020 8 - S E P - 8 2 1 2 : 3 8 " )
0026040 006 001 \r ( 006 002 D E C L A R
0026060 E 006 001 ( G L O B A L V A R S
0026100 \ N E W C O L O R D E M O S T
0026120 O P D A T E ) ) \r ( W I
0026140 N D O W . M O U S E . H A N D L
0026160 E R ) \r ( O R \ N E W
0026200 C O L O R D E M O ( C O N D \r
0026220 \t ( ( F I X P N ) \r \t
0026240 ( S E T Q S T O P D A T E
0026260 ( I P L U S N ( I D A T E
0026300 ) ) ) \r \t N I L ) \r \t
0026320 ( T ( A N D S T O P D A T
0026340 E ( I L E S S P S T O P D A
0026360 T E ( I D A T E ] ) \r \r ( 006 004
0026400 R A I N I N G 006 001 \r [ L A M
0026420 B D A ( N )
0026440
*
0026500 006 003 ( * r r b
0026520 " 1 5 - O C T - 8 2 1 0 : 1 1
0026540 " ) 006 001 \r ( P R O G (
0026560 ( C O L O R # 0 ) \r \t (
0026600 N ( C O N D \r \t \t ( ( F I X P
0026620 N ) ) \r \t \t ( T 3 ) ) ) \r \t
0026640 ( D S ( D S P C R E A T
0026660 E ) ) \r \t ( M A X C O L O
0026700 R ( M A X I M U M C O L O R )
0026720 ) ) \r ( D S
0026740 P D E S T I N A T I O N ( C O
0026760 L O R S C R E E N B I T M A P )
0027000 \r \t \t \t D S ) \r
0027020 ( C O L O R B A C K G R
0027040 O U N D 0 ) \r
0027060 ( 006 002 f o r 006 001 C O U N T
0027100 E R 006 002 f r o m 006 001 1 006 002
0027120 t o 006 001 ( C O N D \r \t \t \t \t
0027140 ( ( E Q M A X C O L O R
0027160 1 5 ) \r \t \t \t \t 3 ) \r
0027200 \t \t \t \t ( T 1 2 ) ) \r \t
0027220 006 002 d o 006 001 ( 006 002 f
0027240 o r 006 001 X Q U A D 006 002 f r o
0027260 m 006 001 0 006 002 t o 006 001 1 006
0027300 002 d o 006 001 ( 006 002 f o r 006 001 Y
0027320 Q U A D 006 002 f r o m 006 001 0
0027340 006 002 t o 006 001 1 \r \t \t \t \t \t
0027360 006 002 d o 006 001 ( C O N D \r
0027400 \t \t \t \t \t \t ( ( I G R E A T
0027420 E R P C O L O R # 2 5 0 ) \r
0027440 \t \t \t \t \t \t ( R E T U R
0027460 N ) ) ) \r \t \t \t \t \t \t ( S E T Q
0027500 C O L O R # \r \t \t \t \t \t \t
0027520 ( 006 002 D O C O L O R D R O P 006 001
0027540 ( I P L U S ( I T I M E S
0027560 X Q U A D ( I Q U O T I E N T
0027600 \r \t \t \t \t \t \t \t \t \t \t C O L
0027620 O R S C R E E N W I D T H 2 )
0027640 ) \r \t \t \t \t \t \t \t \t
0027660 ( R A N D 1 0 \r \t \t \t \t \t \t \t
0027700 \t \t ( I D I F F E R E N
0027720 C E \r \t \t \t \t \t \t \t \t \t
0027740 ( I Q U O T I E N T \r \t \t
0027760 \t \t \t \t \t \t \t \t C O L O R S C
0030000 R E E N W I D T H 2 ) \r \t \t \t
0030020 \t \t \t \t \t \t 1 0 ) )
0030040 ) \r \t \t \t \t \t \t \t
0030060 ( I P L U S ( I T I M E S Y
0030100 Q U A D ( I Q U O T I E N T
0030120 \r \t \t \t \t \t \t \t \t \t \t C O L O R
0030140 S C R E E N H E I G H T 2 ) )
0030160 \r \t \t \t \t \t \t \t \t (
0030200 R A N D 1 0 \r \t \t \t \t \t \t \t \t
0030220 \t ( I D I F F E R E N C
0030240 E \r \t \t \t \t \t \t \t \t \t
0030260 ( I Q U O T I E N T \r \t \t \t
0030300 \t \t \t \t \t \t \t C O L O R S C R E
0030320 E N H E I G H T 2 ) \r \t \t \t \t
0030340 \t \t \t \t \t 1 0 ) ) )
0030360 \r \t \t \t \t \t \t \t N
0030400 \r \t \t \t \t \t \t \t (
0030420 I T I M E S N 3 ) \r \t \t \t \t
0030440 \t \t \t ( C O N D \r
0030460 \t \t \t \t \t \t \t \t ( ( E Q M A
0030500 X C O L O R 1 5 ) \r \t \t \t \t \t
0030520 \t \t \t ( R A N D 4 8 )
0030540 ) \r \t \t \t \t \t \t \t \t ( T ( R
0030560 A N D 4 1 0 ) ) ) \r \t \t \t \t
0030600 \t \t \t D S C O L
0030620 O R # M A X C O L O R ] ) \r \r
0030640 ( 006 004 R A I N I N G C O L O R M
0030660 A P 006 001 \r [ L A M B D A N
0030700 I L
0030720
*
0030760 006 003 ( * r r b " 4 - O
0031000 C T - 8 2 1 4 : 4 1 " ) 006 001 \r
0031020 ( C O L O R M A P O F
0031040 ( C O N D \r \t \t [ ( E Q (
0031060 M A X I M U M C O L O R ) \r \t \t
0031100 2 5 5 ) \r \t \t
0031120 ( N C O N C ( 006 002 f o r 006
0031140 001 I 006 002 f r o m 006 001 3 006
0031160 002 t o 006 001 2 5 5 006 002 b y 006 001
0031200 6 006 002 c o l l e c t 006 001 (
0031220 L I S T 0 0 I ) ) \r \t \t \t
0031240 ( 006 002 f o r 006 001 I 006 002
0031260 f r o m 006 001 0 006 002 t o 006 001
0031300 2 1 2 006 002 c o l l e c t 006 001
0031320 ( Q U O T E ( 0 0 0 ] \r \t
0031340 \t ( T ( N C O N C ( L I
0031360 S T ( Q U O T E ( 0 0 0
0031400 ) ) ) \r \t \t \t ( 006 002 f o
0031420 r 006 001 I 006 002 f r o m 006 001 1
0031440 0 0 006 002 t o 006 001 2 5 5 006 002
0031460 b y 006 001 5 0 006 002 c o l l e c
0031500 t 006 001 ( L I S T 0 0 I )
0031520 ) \r \t \t \t ( 006 002 f o r 006
0031540 001 I 006 002 f r o m 006 001 0 006
0031560 002 t o 006 001 1 1 006 002 c o l l e
0031600 c t 006 001 ( Q U O T E ( 0 0
0031620 0 ] ) \r \r ( 006 004 R O T A T E I
0031640 T 006 001 \r [ L A M B D A ( B
0031660 E G I N C O L O R E N D C O L
0031700 O R W A I T )
0031720
0031740 006 003 ( * r r b " 3 0 - S E
0031760 P - 8 2 1 1 : 3 5 " ) 006 001 \r
0032000 ( P R O G [ ( C M ( S
0032020 C R E E N C O L O R M A P ) ) \r
0032040 \t ( B E G ( O R B E G
0032060 I N C O L O R 0 ) ) \r \t
0032100 ( E N D ( O R E N D C O L O
0032120 R ( S U B 1 ( E X P T 2
0032140 ( C O L O R M A P B I T S ( S
0032160 C R E E N C O L O R M A P ] \r
0032200 ( 006 002 d o 006 001
0032220 ( R O T A T E C O L O R M A P
0032240 C M B E G I N C O L O R E
0032260 N D ) \r \t ( C O N D
0032300 \r \t \t ( ( N U L L W A I T ) )
0032320 \r \t \t ( ( S M A L L P W A I T
0032340 ) \r \t \t ( D I S M I S S W
0032360 A I T ) ) \r \t \t ( T ( G E T M
0032400 O U S E S T A T E ) \r \t \t
0032420 ( D I S M I S S ( L R S H L
0032440 A S T M O U S E X 3 ] ) \r \r (
0032460 006 004 S H O W C O L O R W 006 001 \r
0032500 [ L A M B D A ( W 1 C O L
0032520 O R 0 C O L O R P O S )
0032540
0032560 006 003 ( *
0032600 r r b " 2 2 - S E P - 8 2
0032620 1 0 : 1 9 " ) 006 001 \r ( P
0032640 R O G ( ( W ( O R W ( W
0032660 H I C H W ) ) ) \r \t D S )
0032700 \r ( S E T Q
0032720 D S ( D S P C R E A T E ) )
0032740 \r ( D S P D
0032760 E S T I N A T I O N ( C O L O
0033000 R S C R E E N B I T M A P ) \r \t
0033020 \t \t D S ) \r
0033040 ( D S P B A C K G R O U N D
0033060 C O L O R 0 C O L O R D S )
0033100 \r ( D S P F
0033120 O R E G R O U N D C O L O R 1
0033140 C O L O R D S ) \r
0033160 ( C L O S E W W ) \r
0033200 ( O R P O S
0033220 ( S E T Q P O S ( G E T P
0033240 O S I T I O N ) ) ) \r
0033260 ( B I T B L T ( W I
0033300 N D O W P R O P W ( Q U O T
0033320 E I M A G E C O V E R E D ) )
0033340 \r \t \t 0 0 D S ( 006 002 f
0033360 e t c h 006 001 X C O O R D 006 002
0033400 o f 006 001 P O S ) \r \t \t ( 006
0033420 002 f e t c h 006 001 Y C O O R D
0033440 006 002 o f 006 001 P O S ) \r \t \t
0033460 N I L N I L ( Q U O T E I
0033500 N P U T ) \r \t \t ( Q U O T E
0033520 R E P L A C E ) ) \r
0033540 ( O P E N W W ] ) \r
0033560 \r ( 006 004 T U N N E L 006 001 \r [
0033600 L A M B D A ( S P E E D )
0033620
*
0033660 006 003 ( * e
0033700 d i t e d : " 1 0 - S E P - 8
0033720 2 1 9 : 1 0 " ) 006 001 \r
0033740 ( 006 002 E X M I N E S H A F T 006 001
0033760 T S P E E D ) \r ( 006
0034000 002 R O T A T E I T 006 001 ] ) \r \r (
0034020 006 004 T U N N E L D E M O 006 001 \r
0034040 [ L A M B D A ( S P E E D
0034060 W A I T )
0034100
0034120 006 003 ( *
0034140 r r b " 2 - A u g - 8 4
0034160 1 0 : 5 3 " ) 006 001 \r ( P
0034200 R O G [ ( C M ( S C R E E N
0034220 C O L O R M A P D E M O D E F
0034240 A U L T C O L O R M A P ) ) \r \t
0034260 ( M A X C O L O R ( S U
0034300 B 1 ( E X P T 2 ( C O L O
0034320 R M A P B I T S ( S C R E E N
0034340 C O L O R M A P ] \r
0034360 ( 006 002 E X M I N E S H A
0034400 F T 006 001 T ( O R S P E E D
0034420 6 ) ) \r (
0034440 006 002 S E N D C O L O R R E G I O
0034460 N 006 001 ( C O L O R S C R E E N
0034500 B I T M A P ) ) \r
0034520 ( 006 002 Q U I T P 006 001 ( O
0034540 R W A I T 1 5 ) ) \r
0034560 ( 006 002 u n t i l 006 001
0034600 ( 006 002 Q U I T P 006 001 N I L )
0034620 006 002 d o 006 001 ( R O T A T E C
0034640 O L O R M A P C M 0 M A X
0034660 C O L O R ) ) \r
0034700 ( S C R E E N C O L O R M A
0034720 P D E M O R A I N B O W M A P
0034740 ) \r ( 006 002 Q
0034760 U I T P 006 001 ( O R W A I T
0035000 1 5 ) ) \r (
0035020 006 002 u n t i l 006 001 ( 006 002 Q U I
0035040 T P 006 001 N I L ) 006 002 d o 006 001
0035060 ( R O T A T E C O L O R M A P
0035100 C M 0 M A X C O L O R ) )
0035120 \r ( 006 002 Q U
0035140 I T P 006 001 ( O R W A I T 5
0035160 ) )
0035200
0035220 006 003 ( * p a u s e f o r
0035240 o p t i c a l i l l u s i o
0035260 n o f m o v e m e n t b a
0035300 c k i n t o t h e 006 001 \r \t
0035320 \t \t \t \t \t \t 006 003 s c r
0035340 e e n . ) 006 001 \r
0035360 ( 006 002 u n t i l 006 001 ( 006 002
0035400 Q U I T P 006 001 N I L ) 006 002 d
0035420 o 006 001 ) \r (
0035440 006 002 E X M I N E S H A F T 006 001
0035460 N I L ( O R S P E E D 6 )
0035500 ) \r ( 006 002 S
0035520 E N D C O L O R R E G I O N 006 001
0035540 ( C O L O R S C R E E N B I T
0035560 M A P ) ) \r
0035600 ( 006 002 Q U I T P 006 001 ( O R W
0035620 A I T 1 5 ) ) \r
0035640 ( 006 002 u n t i l 006 001 ( 006
0035660 002 Q U I T P 006 001 N I L ) 006 002
0035700 d o 006 001 ( R O T A T E C O L O
0035720 R M A P C M 0 M A X C O L
0035740 O R ] ) \r \r ( 006 004 C I R C L E D
0035760 E M O 006 001 \r [ L A M B D A
0036000 ( W A I T )
0036020
*
0036060 006 003 ( * r r b " 1 5 -
0036100 O C T - 8 2 1 0 : 4 3 " ) 006 001
0036120 \r
0036140
*
0036200 006 003
0036220 ( * d r a w s c i r l e s
0036240 a n d r o t a t e s t h r o
0036260 u g h t h e c o l o r m a p
0036300 . ) 006 001 \r ( P R O G [
0036320 ( P A U S E T I M E ( C O N D
0036340 \r \t \t \t ( ( E Q ( M A X I M U
0036360 M C O L O R ) \r \t \t \t
0036400 2 5 5 ) \r \t \t \t 2 5 ) \r \t \t
0036420 \t ( T 5 0 ] \r
0036440 ( S C R E E N C O L O R M A
0036460 P D E M O R A I N B O W M A P
0036500 ) \r ( 006 002 R
0036520 A I N I N G 006 001 1 ) \r
0036540 ( 006 002 Q U I T P 006 001
0036560 ( O R W A I T 1 5 ) ) \r
0036600 ( 006 002 u n t i
0036620 l 006 001 ( 006 002 Q U I T P 006 001 N
0036640 I L ) 006 002 d o 006 001 ( R O T A
0036660 T E C O L O R M A P D E M O R
0036700 A I N B O W M A P 1 N I L )
0036720 \r \t \t \t \t ( D I S M I S S P A
0036740 U S E T I M E ) ) \r
0036760 ( S C R E E N C O L O R
0037000 M A P D E M O R A I N I N G C
0037020 O L O R M A P ) \r
0037040 ( 006 002 Q U I T P 006 001 ( O
0037060 R W A I T 2 0 ) ) \r
0037100 ( 006 002 u n t i l 006 001
0037120 ( 006 002 Q U I T P 006 001 N I L )
0037140 006 002 d o 006 001 ( R O T A T E C
0037160 O L O R M A P D E M O R A I N
0037200 I N G C O L O R M A P 1 N I
0037220 L ) \r \t \t \t \t ( D I S M I S S
0037240 P A U S E T I M E ] ) \r \r ( 006 004
0037260 W E L L 006 001 \r [ L A M B D A
0037300 ( N )
0037320
*
0037360 006 003 ( * r r b " 2 0
0037400 - S E P - 8 2 1 8 : 4 4 " ) 006
0037420 001 \r ( P R O G ( ( D S
0037440 ( D S P C R E A T E ) ) ) \r
0037460 ( D S P D E S
0037500 T I N A T I O N ( C O L O R S
0037520 C R E E N B I T M A P ) \r \t \t \t
0037540 D S ) \r
0037560 ( 006 002 f o r 006 001 I 006 002 f r o
0037600 m 006 001 1 006 002 t o 006 001 ( C O
0037620 N S T A N T ( I Q U O T I E N
0037640 T ( S Q R T ( I P L U S (
0037660 I T I M E S C O L O R S C R E
0037700 E N W I D T H \r \t \t \t \t \t \t \t
0037720 \t C O L O R S C R E E
0037740 N W I D T H ) \r \t \t \t \t \t \t \t
0037760 ( I T I M E S C O L O
0040000 R S C R E E N H E I G H T \r \t
0040020 \t \t \t \t \t \t \t C O L O
0040040 R S C R E E N H E I G H T ) ) )
0040060 \r \t \t \t \t \t \t 2 ) ) \r \t
0040100 006 002 b y 006 001 N 006 002 a s 006 001
0040120 C O L O R 006 002 f r o m 006 001
0040140 1 006 002 d o 006 001 ( D R A W C I
0040160 R C L E ( C O N S T A N T (
0040200 I Q U O T I E N T C O L O R S
0040220 C R E E N W I D T H 2 ) ) \r \t
0040240 \t \t \t \t \t ( C O N S T A N T
0040260 ( I Q U O T I E N T C O L O R
0040300 S C R E E N H E I G H T 2 ) )
0040320 \r \t \t \t \t \t \t I \r \t \t \t \t \t \t
0040340 ( L I S T ( Q U O T E R O
0040360 U N D ) \r \t \t \t \t \t \t
0040400 ( A D D 1 N ) \r \t \t \t \t \t
0040420 \t C O L O R ) \r \t
0040440 \t \t \t \t \t N I L D S ] ) \r )
0040460 \r \r ( R P A Q Q 006 002 C O L O R
0040500 D E M O S 006 001 ( L O G O D E M
0040520 O M O D A R T D E M O T U N
0040540 N E L D E M O ) ) \r \r ( R P A Q
0040560 Q 006 002 D A N D E L I O N C O L
0040600 O R D E M O S 006 001 ( L O G O D
0040620 E M O M O D A R T D E M O T
0040640 U N N E L D E M O ) ) \r \r ( R P
0040660 A Q Q 006 002 \ F I R S T A U T O
0040700 D E M O 006 001 L O G O D E M O )
0040720 \r \r ( R P A Q Q 006 002 \ N E W C
0040740 O L O R D E M O 006 001 N I L ) \r
0040760 \r ( R P A Q Q 006 002 S T O P D A
0041000 T E 006 001 N I L ) \r \r ( R P A Q
0041020 Q 006 002 D E M O R A I N B O W M
0041040 A P 006 001 N I L ) \r \r ( R P A Q
0041060 Q 006 002 D E M O D E F A U L T C
0041100 O L O R M A P 006 001 N I L ) \r (
0041120 D E C L A R E : D O E V A L @
0041140 C O M P I L E D O N T C O P Y
0041160 \r \r ( A D D T O V A R G L O B
0041200 A L V A R S C O L O R D E M O
0041220 S \ F I R S T A U T O D E M O
0041240 \ N E W C O L O R D E M O S
0041260 T O P D A T E D E M O R A I N
0041300 B O W M A P \r \t D E M O D
0041320 E F A U L T C O L O W M A P ) \r
0041340 ) \r \r \r \r 006 004 ( * L o g o d
0041360 e m o s ) 006 001 \r \r ( D E F I N E
0041400 Q \r \r ( 006 004 L O G O D E M O 006 001
0041420 \r [ L A M B D A N I L
0041440
*
0041500 006 003
0041520 ( * r r b " 2 - A u g - 8
0041540 4 1 0 : 3 1 " ) 006 001 \r
0041560 ( R E S E T F O R M ( S C R E
0041600 E N C O L O R M A P ( C O L O
0041620 R M A P C R E A T E ) ) \r \t
0041640 ( P R O G ( ( N B I
0041660 T S ( C O L O R M A P B I T S
0041700 ( S C R E E N C O L O R M A P
0041720 ) ) ) \r \t \t M A X C
0041740 O L O R ) \r \t \t ( S E
0041760 T Q M A X C O L O R 7 ) \r \t
0042000 \t ( C O L O R B A C K
0042020 G R O U N D 0 ) \r \t \t
0042040 ( 006 002 C O L O R L O G O 006 001
0042060 ( 006 002 c r e a t e 006 001 P O S I
0042100 T I O N \r \t \t \t \t \t X C O O R D
0042120 _ 2 4 0 \r \t \t \t \t \t Y C O O
0042140 R D _ 2 6 0 ) ) \r \t \t
0042160 ( 006 002 S E N D C O L O R R E
0042200 G I O N 006 001 ( C O L O R S C R
0042220 E E N B I T M A P ) ) \r \t \t
0042240 [ C O N D \r \t \t
0042260 ( ( N O T ( 006 002 Q U I T P
0042300 006 001 3 0 ) ) \r \t \t \t ( 006 002 d
0042320 o 006 001 ( R O T A T E C O L O R
0042340 M A P ( S C R E E N C O L O R
0042360 M A P ) \r \t \t \t \t \t 1
0042400 M A X C O L O R ) \r \t \t \t
0042420 ( D I S M I S S 1 0 0 )
0042440 006 002 u n t i l 006 001 ( 006 002 Q U
0042460 I T P 006 001 ] \r \t \t ( C
0042500 O N D \r \t \t ( ( A
0042520 N D J L O G O ( N O T ( 006
0042540 002 Q U I T P 006 001 2 0 ) ) ) \r \t
0042560 \t \t ( R E S E T V A R S ( (
0042600 I N T E R L I S P - D / C O L O
0042620 R B I T M A P J L O G O ) ) \r
0042640 \t \t \t \t [ C O N D \r \t \t
0042660 \t \t ( ( N O T J L
0042700 O G O ) \r \t \t \t \t \t ( P R O G N
0042720 ( C O N D \r \t \t \t \t \t \t ( (
0042740 N O T B I G J F O N T S ) \r \t
0042760 \t \t \t \t \t ( R E A D B I G
0043000 J F O N T S ) ) ) \r \t \t \t \t \t
0043020 ( S E T Q J L O G
0043040 O \r \t \t \t \t \t \t ( 006 002 I N I T
0043060 / L O G O / C O L O R B I T M A
0043100 P 006 001 ( Q U O T E ( 245 244 245
0043120 363 245 277 - 245 352 245 271 245 327 -
0043140 \r \t \t \t \t \t \t \t \t \t \t D
0043160 ] \r \t \t \t \t ( 006 002 C O L
0043200 O R L O G O 006 001 ( 006 002 c r e a
0043220 t e 006 001 P O S I T I O N \r \t \t
0043240 \t \t \t \t X C O O R
0043260 D _ 2 4 0 \r \t \t \t \t \t \t
0043300 Y C O O R D _ 2 6
0043320 0 ) ) \r \t \t \t \t ( C O N
0043340 D \r \t \t \t \t ( ( N O
0043360 T ( 006 002 Q U I T P 006 001 1 5 )
0043400 ) \r \t \t \t \t \t ( 006 002 d o 006 001 (
0043420 R O T A T E C O L O R M A P (
0043440 S C R E E N C O L O R M A P ) \r
0043460 \t \t \t \t \t \t \t 1 M A X
0043500 C O L O R ) \r \t \t \t \t \t
0043520 ( D I S M I S S 1 0 0 ) 006 002
0043540 u n t i l 006 001 ( 006 002 Q U I T P
0043560 006 001 ] ) \r \r ( 006 004 C O L O R L O
0043600 G O 006 001 \r [ L A M B D A (
0043620 P O S I T I O N )
0043640
*
0043700 006 003 ( * r r b " 2 1 - D
0043720 E C - 8 2 2 1 : 4 4 " ) 006 001 \r
0043740
*
0044020 006 003 (
0044040 * d r a w s a l o g o o
0044060 n t h e c o l o r s c r e
0044100 e n . ) 006 001 \r ( O R (
0044120 P O S I T I O N P P O S I T I
0044140 O N ) \r \t ( S E T Q P O S I T
0044160 I O N ( 006 002 c r e a t e 006 001
0044200 P O S I T I O N \r \t \t \t
0044220 X C O O R D _ 2 5 0 \r
0044240 \t \t \t Y C O O R D
0044260 _ 3 9 0 ) ) ) \r ( P
0044300 R O G ( ( X P O S ( 006 002 f e
0044320 t c h 006 001 X C O O R D 006 002 o
0044340 f 006 001 P O S I T I O N ) ) \r \t
0044360 ( Y P O S ( 006 002 f e t c
0044400 h 006 001 Y C O O R D 006 002 o f 006
0044420 001 P O S I T I O N ) ) \r \t
0044440 ( C O L O R 0 ) \r \t (
0044460 B O R D E R C O L O R 7 ) \r \t
0044500 ( F O N T ( F O N T C R
0044520 E A T E ( Q U O T E T I M E
0044540 S R O M A N D ) \r \t \t \t
0044560 3 6 ) ) \r \t ( W I M A G
0044600 E W I D T H ( F I X ( F T I
0044620 M E S C I R C L E S I Z E .
0044640 6 2 ) ) ) \r \t ( W I M A G
0044660 E H E I G H T ( F I X ( F T
0044700 I M E S C I R C L E S I Z E
0044720 . 5 ) ) ) \r \t ( N B I T S
0044740 ( C O L O R M A P B I T S (
0044760 S C R E E N C O L O R M A P ) )
0045000 ) \r \t ( M A X C O L O R
0045020 7 ) \r \t ( C O L O R S K I
0045040 P 1 ) ) \r
0045060 ( 006 002 f o r 006 001 A N G L E 006
0045100 002 f r o m 006 001 0 006 002 t o 006 001
0045120 2 7 0 006 002 b y 006 001 A N G L
0045140 E D E L T A 006 002 d o 006 001 ( 006
0045160 002 D R A W A C O L O R W I N D O
0045200 W 006 001 ( I P L U S X P O S \r
0045220 \t \t \t \t \t \t \t \t \t ( F
0045240 T I M E S C I R C L E S I Z E
0045260 \r \t \t \t \t \t \t \t \t \t \t
0045300 ( C O S A N G L E ) ) ) \r \t \t
0045320 \t \t \t \t \t \t ( I P L
0045340 U S Y P O S \r \t \t \t \t \t \t \t \t
0045360 \t ( F T I M E S C I
0045400 R C L E S I Z E \r \t \t \t \t \t \t \t
0045420 \t \t \t ( S I N A N G
0045440 L E ) ) ) \r \t \t \t \t \t \t \t \t
0045460 W I M A G E W I D T H
0045500 W I M A G E H E I G H T 2 \r \t
0045520 \t \t \t \t \t \t \t [ C O
0045540 N D \r \t \t \t \t \t \t \t \t \t ( ( E Q
0045560 C O L O R M A X C O L O R )
0045600 \r \t \t \t \t \t \t \t \t \t ( S E T
0045620 Q C O L O R 1 ) ) \r \t \t \t \t
0045640 \t \t \t \t \t ( T ( S E T Q C O
0045660 L O R \r \t \t \t \t \t \t \t \t \t
0045700 ( I P L U S C O L O R S K
0045720 I P C O L O R ] \r \t \t \t \t \t \t
0045740 \t \t 0 ) ) \r
0045760 ( B I T B L T [ C
0046000 O N D \r \t \t ( ( A N D
0046020 I N T E R L I S P - D / C O L O
0046040 R B I T M A P ( E Q N B I T
0046060 S ( 006 002 f e t c h 006 001 ( B I
0046100 T M A P B I T M A P B I T S P
0046120 E R P I X E L ) \r \t \t \t \t \t \t \t
0046140 006 002 o f 006 001 I N
0046160 T E R L I S P - D / C O L O R B
0046200 I T M A P ) ) ) \r \t \t
0046220 I N T E R L I S P - D / C O L
0046240 O R B I T M A P ) \r \t \t
0046260 ( T ( S E T Q I N T E R L I
0046300 S P - D / C O L O R B I T M A P
0046320 \r \t \t \t ( 006 002 I N I T / L O G
0046340 O / C O L O R B I T M A P 006 001
0046360 ( Q U O T E ( I n t e
0046400 r l i s p - D ) ) \r
0046420 \t \t \t \t \t \t C O L O R M A X C
0046440 O L O R C O L O R S K I P ] \r
0046460 \t \t 0 0 ( C O L O R S C
0046500 R E E N B I T M A P ) \r \t \t
0046520 ( I P L U S X P O S W I M A
0046540 G E W I D T H ) \r \t \t ( I D
0046560 I F F E R E N C E Y P O S (
0046600 I P L U S C I R C L E S I Z E
0046620 5 ) ) ) \r
0046640 ( R E T U R N ] ) \r \r ( 006 004 D R
0046660 A W A C O L O R W I N D O W 006 001
0046700 \r [ L A M B D A ( X P O S
0046720 Y P O S W W I D T H W H E
0046740 I G H T W B O R D E R 0 C O
0046760 L O R 1 C O L O R ) 006 003
0047000 ( * r r b " 2 1 - F E B - 8
0047020 2 1 0 : 3 0 " ) 006 001 \r
0047040 ( P R O G ( ( B M ( C O L O
0047060 R S C R E E N B I T M A P ) ) )
0047100 \r ( C O L O
0047120 R F I L L A R E A X P O S Y
0047140 P O S W W I D T H W H E I G
0047160 H T 1 C O L O R B M ( Q U
0047200 O T E R E P L A C E ) ) \r
0047220 ( C O L O R F I
0047240 L L A R E A ( I P L U S X P
0047260 O S W B O R D E R ) \r \t \t \t
0047300 ( I P L U S Y P O S W B O R
0047320 D E R ) \r \t \t \t ( I D I F F E
0047340 R E N C E W W I D T H ( I T
0047360 I M E S W B O R D E R 2 ) )
0047400 \r \t \t \t ( I D I F F E R E N C
0047420 E W H E I G H T ( I T I M E
0047440 S W B O R D E R 3 ) ) \r \t \t
0047460 \t 0 C O L O R B M ( Q U O
0047500 T E R E P L A C E ) ) \r
0047520 ( R E T U R N B
0047540 M ] ) \r \r ( 006 004 I N I T / L O G
0047560 O / C O L O R B I T M A P 006 001 \r
0047600 [ L A M B D A ( C H A R S
0047620 S T A R T C O L O R # M A X
0047640 C O L O R C O L O R S K I P )
0047660 006 003 (
0047700 * r r b " 2 1 - D E C - 8 2
0047720 2 1 : 4 6 " ) 006 001 \r (
0047740 P R O G ( [ C H A R L S T (
0047760 O R C H A R S ( Q U O T E
0050000 ( I n t e r l i s
0050020 p - D ] \r \t ( F O N
0050040 T ( F O N T C R E A T E ( Q
0050060 U O T E T I M E S R O M A N D
0050100 ) \r \t \t \t 3 6 ) ) \r \t
0050120 ( C O L O R ( C O N D \r
0050140 \t \t ( S T A R T C O L O
0050160 R # ( C O L O R N U M B E R P
0050200 S T A R T C O L O R # ) ) \r \t
0050220 \t ( T 1 ) ) ) \r \t
0050240 ( X P O S 0 ) \r \t C O
0050260 L O R B M ) \r
0050300 ( S E T Q C O L O R B M (
0050320 B I T M A P C R E A T E ( 006 002
0050340 f o r 006 001 X 006 002 i n 006 001 C
0050360 H A R L S T 006 002 s u m 006 001 (
0050400 S T R I N G W I D T H X F O
0050420 N T ) ) \r \t \t \t \t (
0050440 F O N T P R O P F O N T ( Q
0050460 U O T E H E I G H T ) ) \r \t \t
0050500 \t \t ( C O L O R N U
0050520 M B E R B I T S P E R P I X E L
0050540 ) ) ) \r ( 006
0050560 002 f o r 006 001 C 006 002 i n 006 001
0050600 C H A R L S T 006 002 d o 006 001 (
0050620 S E T Q X P O S ( C O L O R
0050640 P R I N T C H A R C X P O S
0050660 0 0 [ S E T Q C O L O R
0050700 \r \t \t \t \t \t \t \t ( C O N
0050720 D \r \t \t \t \t \t \t \t (
0050740 ( E Q C O L O R M A X C O L
0050760 O R ) \r \t \t \t \t \t \t \t \t 1 ) \r \t
0051000 \t \t \t \t \t \t ( T (
0051020 I P L U S C O L O R C O L O
0051040 R S K I P ] \r \t \t \t \t \t \t \t
0051060 F O N T C O L O R B M ) ) ) \r
0051100 ( R E T U R
0051120 N C O L O R B M ] ) \r \r ( 006 004
0051140 C O L O R P R I N T C H A R 006 001
0051160 \r [ L A M B D A ( L E T
0051200 X P O S Y P O S 0 C O L O R
0051220 1 C O L O R F O N T T A R
0051240 G E T B M ) 006 003
0051260 ( * r r b " 1 2 - O C T - 8
0051300 3 1 4 : 0 9 " ) 006 001 \r
0051320
*
0051400 006 003 ( * p r
0051420 i n t s a c h a r a c t e r
0051440 o n a c o l o r b i t m
0051460 a p ) 006 001 \r ( C O N D \r
0051500 ( ( E Q ( N C H A
0051520 R S L E T ) \r \t 1 ) \r \t
0051540 ( B I T B L T ( C O L O R I Z
0051560 E B I T M A P ( G E T C H A R
0051600 B I T M A P ( C H C O N 1 L
0051620 E T ) \r \t \t \t \t \t
0051640 F O N T ) \r \t \t \t \t 0 C O L O R
0051660 1 C O L O R ( B I T S P E R
0051700 P I X E L T A R G E T B M ) )
0051720 \r \t \t 0 0 T A R G E T B M
0051740 X P O S Y P O S N I L N I
0051760 L N I L ( Q U O T E R E P
0052000 L A C E ) ) \r \t ( I P L U S X
0052020 P O S ( S T R I N G W I D T H
0052040 L E T F O N T ) ) ) \r
0052060 ( T ( P R O G ( [ D S
0052100 P ( C O N D \r \t \t
0052120 ( ( T Y P E N A M E P C O L
0052140 O R P R I N T C H A R D S ( Q
0052160 U O T E D I S P L A Y S T R E
0052200 A M ) ) \r \t \t \t C O L O R P R
0052220 I N T C H A R D S ) \r \t \t
0052240 ( T ( S E T Q C O L
0052260 O R P R I N T C H A R D S ( D
0052300 S P C R E A T E ] \r \t \t ( W (
0052320 S T R I N G W I D T H L E T
0052340 F O N T ) ) \r \t \t ( H ( F O N
0052360 T P R O P F O N T ( Q U O T
0052400 E H E I G H T ) ) ) \r \t \t T E
0052420 M P B M ) \r \t ( S
0052440 E T Q T E M P B M ( B I T M
0052460 A P C R E A T E ( I P L U S
0052500 1 6 W ) \r \t \t \t \t \t H ) )
0052520 \r \t ( D S P F O N
0052540 T F O N T D S P ) \r \t
0052560 ( D S P D E S T I N A T
0052600 I O N T E M P B M D S P ) \r
0052620 \t ( D S P C L I P
0052640 P I N G R E G I O N ( 006 002 c r
0052660 e a t e 006 001 R E G I O N \r \t \t
0052700 \t \t \t L E F T _ 0 \r \t \t
0052720 \t \t \t B O T T O M _ 0 \r
0052740 \t \t \t \t \t W I D T H _ W
0052760 \r \t \t \t \t \t H E I G H T _
0053000 H ) ) \r \t ( M O
0053020 V E T O 0 ( F O N T P R O P
0053040 F O N T ( Q U O T E D E S
0053060 C E N T ) ) \r \t \t
0053100 D S P ) \r \t ( P R
0053120 I N 3 L E T D S P ) \r \t
0053140 ( C O L O R B L T (
0053160 C O L O R I Z E B I T M A P T
0053200 E M P B M 0 C O L O R 1 C O
0053220 L O R ( B I T S P E R P I X E
0053240 L T A R G E T B M ) ) \r \t \t \t
0053260 0 0 T A R G E T B M X P
0053300 O S Y P O S N I L N I L
0053320 N I L ( Q U O T E R E P L A
0053340 C E ) ) \r \t ( R E
0053360 T U R N ( I P L U S X P O S
0053400 ( D S P X P O S I T I O N N
0053420 I L D S P ] ) \r ) \r \r ( R P A
0053440 Q Q 006 002 A N G L E D E L T A 006
0053460 001 2 3 ) \r \r ( R P A Q Q 006 002
0053500 C I R C L E S I Z E 006 001 6 0 )
0053520 \r \r ( R P A Q Q 006 002 L O G O C
0053540 Y C L E W A I T T I M E 006 001 6
0053560 0 ) \r \r ( R P A Q Q 006 002 J L O
0053600 G O 006 001 N I L ) \r \r ( R P A Q
0053620 Q 006 002 W I N D O W I M A G E 006
0053640 001 N I L ) \r \r ( R P A Q Q 006
0053660 002 I N T E R L I S P - D / C O L
0053700 O R B I T M A P 006 001 N I L ) \r
0053720 ( D E C L A R E : D O E V A L
0053740 @ C O M P I L E D O N T C O P
0053760 Y \r \r ( A D D T O V A R G L O
0054000 B A L V A R S I N T E R L I S
0054020 P - D / C O L O R B I T M A P )
0054040 \r ) \r \r \r \r 006 004 ( * K i n e t
0054060 i c d e m o s ) 006 001 \r \r ( D E
0054100 F I N E Q \r \r ( 006 004 C O L O R K
0054120 I N E T I C 006 001 \r [ L A M B
0054140 D A ( R E G I O N F I R S T
0054160 C O L O R L A S T C O L O R )
0054200
0054220 006 003 ( * r r b "
0054240 1 3 - S E P - 8 2 1 0 : 0 6 "
0054260 ) 006 001 \r
0054300
*
0054360 006 003 ( * t e s t e x a m p
0054400 l e ( C O L O R K I N E T I C
0054420 ) ) 006 001 \r ( R E S E T L
0054440 S T ( R E S E T S A V E ( C
0054460 O L O R D I S P L A Y T ) ) \r
0054500 \t ( O R ( R E G I
0054520 O N P R E G I O N ) \r \t \t
0054540 ( S E T Q R E G I O N W H O
0054560 L E C O L O R D I S P L A Y ) )
0054600 \r \t ( S E T Q F I
0054620 R S T C O L O R ( C O L O R N
0054640 U M B E R P ( O R F I R S T
0054660 C O L O R 0 ) ) ) \r \t
0054700 [ S E T Q L A S T C O L O
0054720 R ( C O L O R N U M B E R P
0054740 ( O R L A S T C O L O R ( M
0054760 A X I M U M C O L O R ] \r \t
0055000 [ C O N D \r \t \t ( ( I G
0055020 R E A T E R P F I R S T C O L
0055040 O R L A S T C O L O R ) \r \t \t
0055060 ( S E T Q L A S T C O L O
0055100 R ( P R O G 1 F I R S T C O
0055120 L O R ( S E T Q F I R S T C
0055140 O L O R L A S T C O L O R ] \r
0055160 \t ( P R O G ( ( L
0055200 E F T ( 006 002 f e t c h 006 001 L
0055220 E F T 006 002 o f 006 001 R E G I O
0055240 N ) ) \r \t \t ( R I G H
0055260 T ( 006 002 f e t c h 006 001 R I G
0055300 H T 006 002 o f 006 001 R E G I O N
0055320 ) ) \r \t \t ( B O T T O
0055340 M ( 006 002 f e t c h 006 001 B O T
0055360 T O M 006 002 o f 006 001 R E G I O
0055400 N ) ) \r \t \t ( T O P
0055420 ( 006 002 f e t c h 006 001 T O P 006
0055440 002 o f 006 001 R E G I O N ) ) \r \t
0055460 \t X Y ( C O L O R
0055500 # F I R S T C O L O R ) ) \r \t
0055520 \t B L T L P \r \t \t ( S E
0055540 T Q X ( R A N D L E F T
0055560 R I G H T ) ) \r \t \t ( S
0055600 E T Q Y ( R A N D B O T T
0055620 O M T O P ) ) \r \t \t (
0055640 C O L O R F I L L A R E A X
0055660 Y ( R A N D 2 ( I D I F F
0055700 E R E N C E R I G H T X ) )
0055720 \r \t \t \t \t ( R A N D 2
0055740 ( I D I F F E R E N C E T O P
0055760 Y ) ) \r \t \t \t \t [ C O N
0056000 D \r \t \t \t \t ( ( E Q
0056020 C O L O R # L A S T C O L O R
0056040 ) \r \t \t \t \t ( S E
0056060 T Q C O L O R # F I R S T C
0056100 O L O R ) ) \r \t \t \t \t
0056120 ( T ( S E T Q C O L O R #
0056140 ( A D D 1 C O L O R # ] \r \t \t
0056160 \t \t ( C O L O R S C R E E
0056200 N B I T M A P ) \r \t \t \t \t
0056220 ( S E L E C T Q ( R A N D 0
0056240 5 ) \r \t \t \t \t \t ( 0
0056260 ( Q U O T E P A I N T ) ) \r \t
0056300 \t \t \t \t ( 1 ( Q U O T
0056320 E E R A S E ) ) \r \t \t \t \t \t
0056340 ( 2 ( Q U O T E I N V
0056360 E R T ) ) \r \t \t \t \t \t (
0056400 Q U O T E R E P L A C E ) ) )
0056420 \r \t \t ( \ B A C K G R O
0056440 U N D ) \r \t \t ( A N D
0056460 ( 006 002 Q U I T P 006 001 ) \r \t \t \t
0056500 ( R E T U R N ) ) \r \t \t
0056520 ( G O B L T L P ] ) \r \r ( 006 004
0056540 D E M O C O L O R K I N E T I C
0056560 006 001 \r [ L A M B D A ( R E
0056600 G I O N F I R S T C O L O R
0056620 L A S T C O L O R )
0056640
0056660 006 003 ( * r r b " 2 1 - O C T
0056700 - 8 2 1 8 : 1 7 " ) 006 001 \r
0056720
*
0057000 006 003 ( *
0057020 t e s t e x a m p l e ( D E
0057040 M O C O L O R K I N E T I C ) )
0057060 006 001 \r ( O R ( C O L O
0057100 R D I S P L A Y P ) \r \t ( C O L
0057120 O R D I S P L A Y T ) ) \r
0057140 ( O R ( R E G I O N P R
0057160 E G I O N ) \r \t ( S E T Q R E
0057200 G I O N W H O L E C O L O R D
0057220 I S P L A Y ) ) \r ( O R
0057240 ( C O L O R N U M B E R P F
0057260 I R S T C O L O R ) \r \t ( S E T
0057300 Q F I R S T C O L O R 0 ) )
0057320 \r ( O R ( C O L O R N
0057340 U M B E R P L A S T C O L O R
0057360 ) \r \t ( S E T Q L A S T C O L
0057400 O R 1 5 ) ) \r [ C O N
0057420 D \r ( ( I G R E A T
0057440 E R P F I R S T C O L O R L
0057460 A S T C O L O R ) \r \t ( S E T Q
0057500 L A S T C O L O R ( P R O G
0057520 1 F I R S T C O L O R ( S E
0057540 T Q F I R S T C O L O R L A
0057560 S T C O L O R ] \r ( P R
0057600 O G ( ( L E F T ( 006 002 f e t
0057620 c h 006 001 L E F T 006 002 o f 006 001
0057640 R E G I O N ) ) \r \t ( R
0057660 I G H T ( 006 002 f e t c h 006 001
0057700 R I G H T 006 002 o f 006 001 R E G
0057720 I O N ) ) \r \t ( B O T T O
0057740 M ( 006 002 f e t c h 006 001 B O T
0057760 T O M 006 002 o f 006 001 R E G I O
0060000 N ) ) \r \t ( T O P ( 006 002
0060020 f e t c h 006 001 T O P 006 002 o f
0060040 006 001 R E G I O N ) ) \r \t
0060060 X Y ( C O L O R # F I R S
0060100 T C O L O R ) \r \t ( R O T
0060120 A T E T I M E ( C L O C K 0
0060140 ) ) \r \t ( K I N R O T A T
0060160 E T I M E ( C L O C K 0 ) )
0060200 \r \t H A L F W I D T H H
0060220 A L F H E I G H T ) \r
0060240 ( S E T Q H A L F W
0060260 I D T H ( I Q U O T I E N T
0060300 ( 006 002 f e t c h 006 001 ( R E G I
0060320 O N W I D T H ) 006 002 o f 006 001
0060340 R E G I O N ) \r \t \t \t \t
0060360 2 ) ) \r
0060400 ( S E T Q H A L F H E I G H T
0060420 ( I Q U O T I E N T ( 006 002 f
0060440 e t c h 006 001 ( R E G I O N H
0060460 E I G H T ) 006 002 o f 006 001 R E
0060500 G I O N ) \r \t \t \t \t
0060520 2 ) ) \r ( C
0060540 O L O R F I L L R E G I O N
0060560 F I R S T C O L O R ( C O L O
0060600 R S C R E E N B I T M A P ) ) \r
0060620 B L T L P \r
0060640 [ C O N D \r \t
0060660 ( ( I G R E A T E R P ( C L
0060700 O C K D I F F E R E N C E R O
0060720 T A T E T I M E ) \r \t \t \t L O G
0060740 O C Y C L E W A I T T I M E )
0060760
0061000 006 003 ( * c y c l e t h e
0061020 c o l o r s i n t h e l
0061040 o g o ) 006 001 \r \t ( R
0061060 O T A T E C O L O R M A P ( S
0061100 C R E E N C O L O R M A P ) \r \t
0061120 \t \t 1 7 ) \r \t
0061140 ( S E T Q R O T A T E
0061160 T I M E ( C L O C K 0 R O T
0061200 A T E T I M E ] \r
0061220 [ C O N D \r \t ( (
0061240 I G R E A T E R P ( C L O C K
0061260 D I F F E R E N C E K I N R O
0061300 T A T E T I M E ) \r \t \t \t K I N
0061320 C Y C L E W A I T T I M E )
0061340
0061360 006 003 ( * c y c l e t h e
0061400 c o l o r s i n t h e l
0061420 o g o ) 006 001 \r \t ( R
0061440 O T A T E C O L O R M A P ( S
0061460 C R E E N C O L O R M A P ) \r \t
0061500 \t \t F I R S T C O L
0061520 O R L A S T C O L O R ) \r \t
0061540 ( S E T Q K I N R O
0061560 T A T E T I M E ( C L O C K 0
0061600 K I N R O T A T E T I M E ] \r
0061620 ( S E T Q
0061640 X ( R A N D L E F T R I G
0061660 H T ) ) \r (
0061700 S E T Q Y ( R A N D B O T
0061720 T O M T O P ) ) \r
0061740 ( C O L O R F I L L A R
0061760 E A X Y ( R A N D 2 (
0062000 I M I N ( I D I F F E R E N C
0062020 E R I G H T X ) \r \t \t \t \t \t
0062040 H A L F W I D T H ) ) \r \t
0062060 \t \t ( R A N D 2 ( I M I N
0062100 ( I D I F F E R E N C E T O
0062120 P Y ) \r \t \t \t \t
0062140 H A L F H E I G H T ) ) \r \t \t \t
0062160 [ C O N D \r \t \t \t ( ( E
0062200 Q C O L O R # L A S T C O L
0062220 O R ) \r \t \t \t ( S E T
0062240 Q C O L O R # F I R S T C O
0062260 L O R ) ) \r \t \t \t ( T (
0062300 S E T Q C O L O R # ( A D D
0062320 1 C O L O R # ] \r \t \t \t ( C
0062340 O L O R S C R E E N B I T M A P
0062360 ) \r \t \t \t ( Q U O T E R E P
0062400 L A C E ) ) \r M O U
0062420 S E L P \r (
0062440 C O N D \r \t ( ( M O U S
0062460 E S T A T E M I D D L E ) \r \t
0062500 ( S E L E C T Q [
0062520 C A R ( E R S E T Q ( M E N
0062540 U ( P R O G N ( C O N D \r \t
0062560 \t \t \t \t \t ( ( N O T ( T
0062600 Y P E N A M E P C O L O R K I
0062620 N E T I C C O M M A N D M E N U
0062640 \r \t \t \t \t \t \t \t \t ( Q U
0062660 O T E M E N U ) ) ) \r \t \t \t \t
0062700 \t \t ( 006 002 I N I T / C
0062720 O L O R D E M O / M E N U S 006 001
0062740 ) ) ) \r \t \t \t \t \t \t C O L O R
0062760 K I N E T I C C O M M A N D M E
0063000 N U ] \r \t \t ( E d
0063020 i t C o l o r M a p ( E D I T
0063040 C O L O R M A P ( S C R E E N
0063060 C O L O R M A P ) \r \t \t \t \t \t \t
0063100 T ) ) \r \t \t
0063120 [ I n c r e a s e L o g o S p e
0063140 e d ( S E T Q L O G O C Y C
0063160 L E W A I T T I M E ( F I X
0063200 ( F T I M E S L O G O C Y C L
0063220 E W A I T T I M E . 8 ] \r \t \t
0063240 [ D e c r e a s e
0063260 L o g o S p e e d ( S E T Q
0063300 L O G O C Y C L E W A I T T I M
0063320 E ( F I X ( F T I M E S L
0063340 O G O C Y C L E W A I T T I M E
0063360 1 . 3 ] \r \t \t [
0063400 I n c r e a s e C o l o r F l i
0063420 p ( S E T Q K I N C Y C L E
0063440 W A I T T I M E ( F I X ( F
0063460 T I M E S K I N C Y C L E W A
0063500 I T T I M E . 8 ] \r \t \t
0063520 [ D e c r e a s e C o l
0063540 o r F l i p ( S E T Q K I N
0063560 C Y C L E W A I T T I M E ( F
0063600 I X ( F T I M E S K I N C Y
0063620 C L E W A I T T I M E 1 . 3 ]
0063640 \r \t \t ( S T O P
0063660 ( R E T U R N ) ) \r \t \t
0063700 N I L ) ) \r \t ( (
0063720 M O U S E S T A T E L E F T )
0063740
0063760 006
0064000 003 ( * o n l e f t r o t a
0064020 t e c o l o r m a p ) 006 001 \r \t
0064040 ( R O T A T E C O L
0064060 O R M A P ( S C R E E N C O L
0064100 O R M A P ) \r \t \t \t
0064120 F I R S T C O L O R L A S T C
0064140 O L O R ) \r \t [ C O
0064160 N D \r \t \t ( ( I G R E A T E R P
0064200 ( C L O C K D I F F E R E N C
0064220 E R O T A T E T I M E ) \r \t \t
0064240 \t L O G O C Y C L E W A
0064260 I T T I M E )
0064300 006 003 ( * c y c l e
0064320 t h e c o l o r s i n t
0064340 h e l o g o ) 006 001 \r \t \t (
0064360 R O T A T E C O L O R M A P (
0064400 S C R E E N C O L O R M A P ) \r
0064420 \t \t \t \t 1 7 ) \r \t \t (
0064440 S E T Q R O T A T E T I M E
0064460 ( C L O C K 0 R O T A T E T I
0064500 M E ] \r \t [ C O N D
0064520 \r \t \t ( ( I G R E A T E R P (
0064540 C L O C K D I F F E R E N C E
0064560 K I N R O T A T E T I M E ) \r \t
0064600 \t \t K I N C Y C L E W A
0064620 I T T I M E )
0064640 006 003 ( * c y c l
0064660 e t h e c o l o r s i n
0064700 t h e l o g o ) 006 001 \r \t \t
0064720 ( R O T A T E C O L O R M A P
0064740 ( S C R E E N C O L O R M A P )
0064760 \r \t \t \t \t F I R S T C O L O
0065000 R L A S T C O L O R ) \r \t \t
0065020 ( S E T Q K I N R O T A T E
0065040 T I M E ( C L O C K 0 K I N
0065060 R O T A T E T I M E ] \r \t
0065100 ( D I S M I S S ( I M I
0065120 N K I N E T I C W A I T T I M
0065140 E L O G O C Y C L E W A I T T
0065160 I M E ) ) \r \t ( G O
0065200 M O U S E L P ) ) ) \r
0065220 ( G O B L T L P ]
0065240 ) \r \r ( 006 004 C I R K I N 006 001 \r
0065260 [ L A M B D A ( D S )
0065300
*
0065340 006 003 ( *
0065360 r r b " 1 0 - D E C - 8 2
0065400 1 2 : 4 1 " ) 006 001 \r ( P
0065420 R O G ( L E F T R I G H T
0065440 T O P B O T T O M M A X R A
0065460 D ( M A X C O L O R ( M A X
0065500 I M U M C O L O R ) ) ) \r
0065520 ( C O N D \r \t
0065540 ( ( N O T ( 006 002 t y p e ?
0065560 006 001 D I S P L A Y S T R E A M
0065600 D S ) ) \r \t ( S E
0065620 T Q D S ( D S P C R E A T E
0065640 ( C O L O R S C R E E N B I T
0065660 M A P ) ) ) \r \t ( D
0065700 S P C L I P P I N G R E G I O N
0065720 W H O L E C O L O R D I S P L
0065740 A Y D S ) ) ) \r
0065760 [ S E T Q L E F T ( 006
0066000 002 f e t c h 006 001 ( R E G I O N
0066020 L E F T ) 006 002 o f 006 001 ( S
0066040 E T Q M A X R A D ( D S P C
0066060 L I P P I N G R E G I O N N I
0066100 L D S ] \r
0066120 ( S E T Q R I G H T ( 006 002 f
0066140 e t c h 006 001 ( R E G I O N R
0066160 I G H T ) 006 002 o f 006 001 M A X
0066200 R A D ) ) \r
0066220 ( S E T Q B O T T O M ( 006 002
0066240 f e t c h 006 001 ( R E G I O N
0066260 B O T T O M ) 006 002 o f 006 001 M
0066300 A X R A D ) ) \r
0066320 ( S E T Q T O P ( 006 002 f
0066340 e t c h 006 001 ( R E G I O N T
0066360 O P ) 006 002 o f 006 001 M A X R A
0066400 D ) ) \r ( S
0066420 E T Q M A X R A D ( I Q U O
0066440 T I E N T ( I M I N ( 006 002 f
0066460 e t c h 006 001 ( R E G I O N W
0066500 I D T H ) 006 002 o f 006 001 M A X
0066520 R A D ) \r \t \t \t \t \t ( 006 002 f e t
0066540 c h 006 001 ( R E G I O N H E I
0066560 G H T ) 006 002 o f 006 001 M A X R
0066600 A D ) ) \r \t \t \t \t 3 ) ) \r
0066620 L P ( 006 002 f o r 006
0066640 001 I 006 002 f r o m 006 001 1 006
0066660 002 t o 006 001 4 006 002 d o 006 001 (
0066700 F I L L C I R C L E ( R A N D
0066720 L E F T R I G H T ) \r \t \t \t
0066740 \t \t ( R A N D B O T T
0066760 O M T O P ) \r \t \t \t \t \t
0067000 ( R A N D 0 M A X R A D )
0067020 \r \t \t \t \t \t ( R A N D
0067040 0 M A X C O L O R ) \r \t \t \t \t
0067060 \t D S ) ) \r
0067100 ( D S P O P E R A T I O
0067120 N ( S E L E C T Q ( R A N D
0067140 0 3 ) \r \t \t \t \t ( 0 ( Q
0067160 U O T E R E P L A C E ) ) \r \t
0067200 \t \t \t ( 1 ( Q U O T E P A
0067220 I N T ) ) \r \t \t \t \t ( 2 ( Q
0067240 U O T E I N V E R T ) ) \r \t \t
0067260 \t \t ( Q U O T E E R A S E )
0067300 ) \r \t \t \t D S ) \r
0067320 ( G O L P ] ) \r ) \r \r (
0067340 R P A Q Q 006 002 K I N E T I C W
0067360 A I T T I M E 006 001 1 5 0 ) \r (
0067400 D E C L A R E : D O E V A L @
0067420 C O M P I L E D O N T C O P Y
0067440 \r \r ( A D D T O V A R G L O B
0067460 A L V A R S K I N E T I C W A
0067500 I T T I M E ) \r ) \r ( D E F I N
0067520 E Q \r \r ( 006 004 C O L O R D E M O
0067540 1 006 001 \r [ L A M B D A N I
0067560 L
0067600
*
0067640 006 003 ( * b a s : " 2 5 - A
0067660 P R - 8 2 2 3 : 4 8 " ) 006 001 \r
0067700 ( P R O G ( ( R A I N
0067720 B O W C O L O R M A P ( C O L
0067740 O R M A P C R E A T E R A I N
0067760 B O W I N T E N S I T I E S ) )
0070000 \r \t ( K I N R E G I O N
0070020 ( 006 002 c r e a t e 006 001 R E G I
0070040 O N \r \t \t \t L E F T
0070060 _ 2 0 \r \t \t \t B
0070100 O T T O M _ 2 0 \r \t \t \t
0070120 W I D T H _ 6 0 0 \r
0070140 \t \t \t H E I G H T
0070160 _ 3 0 0 ) ) )
0070200 006 003 ( * t u r
0070220 n o n d i s p l a y t o
0070240 a l l o c a t e s c r e e n
0070260 b i t m a p . ) 006 001 \r
0070300 ( R E S E T F O R M
0070320 ( C O L O R D I S P L A Y T )
0070340 \r \t \t ( R E S E T F O
0070360 R M ( S C R E E N C O L O R M
0070400 A P R A I N B O W C O L O R M
0070420 A P ) \r \t \t \t \t ( C O L O R B A
0070440 C K G R O U N D ( Q U O T E
0070460 B L A C K ) ) \r \t \t \t \t ( 006 002 C
0070500 O L O R L O G O 006 001 ( 006 002 c r
0070520 e a t e 006 001 P O S I T I O N \r
0070540 \t \t \t \t \t \t X C O O R D
0070560 _ 2 5 0 \r \t \t \t \t \t \t Y
0070600 C O O R D _ 3 9 0 ) ) \r \t \t
0070620 \t \t ( 006 002 u n t i l 006 001 ( M O
0070640 U S E S T A T E ( N O T U P
0070660 ) ) 006 002 d o 006 001 ( R O T A T
0070700 E C O L O R M A P R A I N B O
0070720 W C O L O R M A P 1 7 ) \r \t
0070740 \t \t \t \t \t \t \t ( D I S M I S S
0070760 L O G O C Y C L E W A I T T I M
0071000 E ) ) \r \t \t \t \t ( 006 002 D E M O C
0071020 O L O R K I N E T I C 006 001 K I
0071040 N R E G I O N 8 1 4 ) ) \r \t
0071060 \t ( C O L O R B A C K
0071100 G R O U N D ( Q U O T E W H
0071120 I T E ] ) \r \r ( 006 004 C O L O R D
0071140 E M O 2 006 001 \r [ L A M B D A
0071160 ( S I Z E )
0071200
*
0071240 006 003 ( * b a s : " 2
0071260 5 - A P R - 8 2 2 3 : 4 6 " )
0071300 006 001 \r ( 006 002 D E C L A R
0071320 E 006 001 ( G L O B A L V A R S
0071340 \ M O U S E H O T S P O T Y C
0071360 O L O R D E M O 2 M E N U K I
0071400 N E T I C W A I T T I M E ) ) \r
0071420
*
0071500 006 003 (
0071520 * f l a s h y c o l o r d
0071540 e m o ) 006 001 \r ( R E S E
0071560 T F O R M ( C O L O R D I S P
0071600 L A Y T ) \r \t [
0071620 R E S E T F O R M ( S C R E E
0071640 N C O L O R M A P ) \r \t \t \t
0071660 ( S H O W C O L O R T E S T P A
0071700 T T E R N S I Z E ) \r \t \t \t
0071720 ( \ S E T C U R S O R P O S I
0071740 T I O N L A S T M O U S E X
0071760 ( L L S H K I N E T I C W A I
0072000 T T I M E 2 ) ) \r
0072020
*
0072100 006 003 ( * m o v e
0072120 c u r s o r t o s t a r t
0072140 c y c l e a t k i n e t i
0072160 c c y c l e t i m e . ) 006 001
0072200 \r \t \t \t ( 006 002 b i n d 006 001
0072220 C O L O R \r \t \t \t 006 002
0072240 d o 006 001 ( R O T A T E C O L O
0072260 R M A P ( S C R E E N C O L O
0072300 R M A P ) ) \r \t \t \t \t ( C O N D
0072320 \r \t \t \t \t [ ( M O U S E S T
0072340 A T E M I D D L E ) \r \t \t \t \t
0072360 ( S E L E C T Q ( S E
0072400 T Q C O L O R ( M E N U (
0072420 P R O G N ( C O N D \r \t \t \t \t
0072440 \t \t \t \t \t ( ( N O T ( T Y P E
0072460 N A M E P \r \t \t \t \t \t \t \t \t \t \t
0072500 C O L O R D E M O 2 M E N U \r \t
0072520 \t \t \t \t \t \t \t \t \t ( Q U O T E
0072540 M E N U ) ) ) \r \t \t \t \t \t \t \t \t
0072560 \t ( 006 002 I N I T / C O L O R
0072600 D E M O / M E N U S 006 001 ) ) ) \r
0072620 \t \t \t \t \t \t \t \t C O
0072640 L O R D E M O 2 M E N U ) ) ) \r
0072660 \t \t \t \t \t ( S T O P
0072700 ( R E T U R N ) ) \r \t \t \t \t \t
0072720 ( E D I T C O L O R M A
0072740 P ( S C R E E N C O L O R M A
0072760 P ( E D I T C O L O R M A P \r
0073000 \t \t \t \t \t \t \t \t \t ( C
0073020 O L O R M A P C O P Y ( \r S C
0073040 R E E N C O L O R M A P ) ) \r \t
0073060 \t \t \t \t \t \t \t \t T ) )
0073100 ) \r \t \t \t \t \t ( N I L
0073120 N I L ) \r \t \t \t \t \t
0073140 ( D E F A U L T ( S C R E E N
0073160 C O L O R M A P T ) ) \r \t \t \t
0073200 \t \t ( S C R E E N C O
0073220 L O R M A P \r \t \t \t \t \t
0073240 ( M A P O F A C O L O R
0073260 ( S E L E C T Q C O L O R \r \t
0073300 \t \t \t \t \t \t \t ( R E D
0073320 ( Q U O T E ( R E D ) ) ) \r
0073340 \t \t \t \t \t \t \t \t ( B L
0073360 U E ( Q U O T E ( B L U E )
0073400 ) ) \r \t \t \t \t \t \t \t \t
0073420 ( G R E E N ( Q U O T E ( G
0073440 R E E N ) ) ) \r \t \t \t \t \t \t \t \t
0073460 ( P U R P L E ( Q U
0073500 O T E ( R E D B L U E ) ) )
0073520 \r \t \t \t \t \t \t \t \t ( B
0073540 L U E G R E E N ( Q U O T E
0073560 ( B L U E G R E E N ) ) ) \r \t
0073600 \t \t \t \t \t \t \t ( G R E
0073620 Y ( Q U O T E ( R E D B L
0073640 U E G R E E N ) ) ) \r \t \t \t \t
0073660 \t \t \t \t ( Y E L L O W
0073700 ( Q U O T E ( R E D G R E
0073720 E N ) ) ) \r \t \t \t \t \t \t \t \t
0073740 ( S H O U L D N T ] \r \t \t
0073760 \t \t ( T ( D I S M I S S
0074000 ( L R S H ( I D I F F E R E N
0074020 C E L A S T M O U S E Y \ M
0074040 O U S E H O T S P O T Y ) \r \t \t
0074060 \t \t \t \t 2 ] \r \t
0074100 ( C O L O R B A C K G R O
0074120 U N D ( Q U O T E W H I T E
0074140 ] ) \r \r ( 006 004 I N I T / C O L O
0074160 R D E M O / M E N U S 006 001 \r
0074200 [ L A M B D A N I L
0074220
*
0074260 006 003 ( *
0074300 r r b " 1 0 - M A R - 8 2 1
0074320 6 : 3 2 " ) 006 001 \r
0074340
*
0074420 006 003 ( * c r e a t
0074440 e a l l o f t h e m e n
0074460 u s u s e d b y c o l o r
0074500 d e m o s . ) 006 001 \r
0074520
*
0074600 006 003 ( * f e t c
0074620 h i n g i m a g e w i d t h
0074640 f o r c e s t h e i m a g
0074660 e t o b e c r e a t e d .
0074700 ) 006 001 \r ( 006 002 f e t c h
0074720 006 001 ( M E N U I M A G E W I
0074740 D T H ) 006 002 o f 006 001 ( S E T
0074760 Q C O L O R D E M O 2 M E N U
0075000 ( 006 002 c r e a t e 006 001 M E N
0075020 U \r \t \t \t \t \t \t \t I T
0075040 E M S _ ( Q U O T E ( ( S T
0075060 O P ( Q U O T E S T O P ) \r
0075100 \t \t \t \t \t \t \t \t \t \t \r \t \t \t
0075120 \t \t \t \t \t \t " S t o p s t h i
0075140 s d e m o n s t r a t i o n .
0075160 " ) \r \t \t \t \t \t \t \t \t \t
0075200 ( E d i t C o l o r s \r \t \t \t
0075220 \t \t \t \t \t \t ( Q U
0075240 O T E E D I T C O L O R M A P
0075260 ) \r \t \t \t \t \t \t \t \t \t
0075300 \r \t \t \t \t \t \t \t \t
0075320 " C a l l s t h e c o l o
0075340 r m a p e d i t o r . " ) \r
0075360 \t \t \t \t \t \t \t \t \t ( D
0075400 e f a u l t ( Q U O T E D E
0075420 F A U L T ) \r \t \t \t \t \t \t \t \t \t
0075440 \t \r \t \t \t \t \t \t \t
0075460 " S e t s t h e c o l o r
0075500 m a p t o t h e s y s t e
0075520 m d e f a u l t " ) \r \t \t \t \t
0075540 \t \t \t \t \t ( R e d (
0075560 Q U O T E R E D ) \r \t \t \t \t \t
0075600 \t \t \t \t \t \r \t \t \t \t \t \t \t \t
0075620 \t " S w i t c h t o a R E
0075640 D c o l o r m a p " ) \r \t \t
0075660 \t \t \t \t \t \t \t ( G r e
0075700 e n ( Q U O T E G R E E N )
0075720 \r \t \t \t \t \t \t \t \t \t \t \r
0075740 \t \t \t \t \t \t \t \t " S
0075760 w i t c h t o a G R E E N
0076000 c o l o r m a p " ) \r \t \t \t
0076020 \t \t \t \t \t \t ( B l u e
0076040 ( Q U O T E B L U E ) \r \t \t
0076060 \t \t \t \t \t \t \t \t \r \t \t \t \t
0076100 \t \t \t \t " S w i t
0076120 c h t o a B L U E c o l
0076140 o r m a p " ) \r \t \t \t \t \t \t \t
0076160 \t \t ( Y e l l o w (
0076200 Q U O T E Y E L L O W ) \r \t \t
0076220 \t \t \t \t \t \t \t \t \r \t \t
0076240 \t \t \t \t \t \t " S w i t
0076260 c h t o a Y E L L O W c
0076300 o l o r m a p " ) \r \t \t \t \t \t
0076320 \t \t \t \t ( P u r p l e
0076340 ( Q U O T E P U R P L E ) \r
0076360 \t \t \t \t \t \t \t \t \t \t \r
0076400 \t \t \t \t \t \t \t \t " S w
0076420 i t c h t o a V I O L E T
0076440 c o l o r m a p " ) \r \t \t \t
0076460 \t \t \t \t \t \t ( G r e y
0076500 ( Q U O T E G R E Y ) \r \t \t
0076520 \t \t \t \t \t \t \t \t \r \t \t \t \t
0076540 \t \t \t \t " S w i t
0076560 c h t o a G R E Y c o l
0076600 o r m a p " ) \r \t \t \t \t \t \t \t
0076620 \t \t ( B l u e G r e e
0076640 n ( Q U O T E \r \t \t \t \t \t \t
0076660 \t \t \t \t \t B L U E G R E E N ) \r
0076700 \t \t \t \t \t \t \t \t \t \t \t \r \t \t \t \t
0076720 " S w i t c h t
0076740 o a c o l o r m a p t h
0076760 a t i s a m i x t u r e
0077000 o f B L U E a n d G R E E
0077020 N . " ) ) ) \r \t \t \t \t \t \t \t
0077040 C E N T E R F L G _ T
0077060 \r \t \t \t \t \t \t \t C H A
0077100 N G E O F F S E T F L G _ T
0077120 ) ) ) \r ( 006 002 f e t c h
0077140 006 001 ( M E N U I M A G E W I
0077160 D T H ) 006 002 o f 006 001 ( S E T
0077200 Q C O L O R K I N E T I C C O
0077220 M M A N D M E N U ( 006 002 c r e
0077240 a t e 006 001 M E N U \r \t \t \t \t \t
0077260 \t \t \t I T E M S _
0077300 ( Q U O T E \r \t \t \t \t \t \t \t \t \t
0077320 ( ( S T O P ( Q U O T E S T
0077340 O P ) \r \t \t \t \t \t \t \t \t \t
0077360 \r \t \t \t \t \t \t \t \t \t
0077400 " S t o p s t h e d e m o n
0077420 s t r a t i o n " ) \r \t \t \t \t \t
0077440 \t \t \t \t ( E d i t C o l o r
0077460 M a p ( Q U O T E \r \t \t \t \t
0077500 \t \t \t \t \t \t E d i t C
0077520 o l o r M a p ) \r \t \t \t \t \t \t \t
0077540 \t \t \t \t \r \t \t \t \t \t \t \t \t
0077560 " E d i t s t h e s
0077600 c r e e n c o l o r m a p "
0077620 ) \r \t \t \t \t \t \t \t \t \t ( I n
0077640 c r e a s e L o g o S p e e d \r
0077660 \t \t \t \t \t \t \t \t \t ( Q U
0077700 O T E I n c r e a s e L o g o
0077720 S p e e d ) \r \t \t \t \t \t \t \t \t \t
0077740 \r \t \t \t \t \t \t "
0077760 S p e e d s u p t h e c y
0100000 c l i n g o f c o l o r s
0100020 t h r u t h e l o g o " ) \r
0100040 \t \t \t \t \t \t \t \t \t ( D e c r
0100060 e a s e L o g o S p e e d \r \t \t
0100100 \t \t \t \t \t \t \t ( Q U O T
0100120 E D e c r e a s e L o g o S p
0100140 e e d ) \r \t \t \t \t \t \t \t \t \t
0100160 \r \t \t \t \t \t \t " S l o
0100200 w s d o w n t h e c y c l
0100220 i n g o f c o l o r s t h
0100240 r u t h e l o g o " ) \r \t \t
0100260 \t \t \t \t \t \t \t ( I n c r e a
0100300 s e C o l o r F l i p \r \t \t \t \t
0100320 \t \t \t \t \t ( Q U O T E
0100340 I n c r e a s e C o l o r F l i
0100360 p ) \r \t \t \t \t \t \t \t \t \t
0100400 \r \t \t \t " I n c r
0100420 e a s e s t h e f r e q u e
0100440 n c y o f c o l o r m a p
0100460 c h a n g e s i n t h e
0100500 K i n e t i c r e g i o n " \r
0100520 \t \t \t \t \t \t \t \t \t N X P
0100540 ) \r \t \t \t \t \t \t \t \t \t ( D e
0100560 c r e a s e C o l o r F l i p \r
0100600 \t \t \t \t \t \t \t \t \t ( Q U
0100620 O T E D e c r e a s e C o l o
0100640 r F l i p ) \r \t \t \t \t \t \t \t \t \t
0100660 \r \t \t \t \t " R e d u
0100700 c e s t h e f r e q u e n c
0100720 y o f c o l o r m a p c h
0100740 a n g e s i n t h e K i n
0100760 e t i c r e g i o n " ) ) ) \r
0101000 \t \t \t \t \t \t \t \t C H
0101020 A N G E O F F S E T F L G _
0101040 T \r \t \t \t \t \t \t \t \t
0101060 C E N T E R F L G _ T ] ) \r
0101100 ) \r \r ( R P A Q Q 006 002 K I N C
0101120 Y C L E W A I T T I M E 006 001 5
0101140 1 1 4 ) \r \r ( R P A Q Q 006 002 C
0101160 O L O R K I N E T I C C O M M A
0101200 N D M E N U 006 001 N I L ) \r \r (
0101220 R P A Q Q 006 002 C O L O R P R I
0101240 N T C H A R D S 006 001 N I L ) \r
0101260 \r ( R P A Q Q 006 002 C O L O R D
0101300 E M O 2 M E N U 006 001 N I L ) \r
0101320 \r ( R P A Q Q 006 002 R A I N B O
0101340 W I N T E N S I T I E S 006 001 (
0101360 ( 1 7 8 0 0 ) \r \t \t \t
0101400 ( 2 5 5 0 0 ) \r \t \t \t
0101420 ( 2 5 5 1 2 8 0 ) \r \t \t \t
0101440 ( 2 5 5 2 5 5 0 ) \r \t \t
0101460 \t ( 1 2 8 2 5 5 0 ) \r
0101500 \t \t \t ( 0 2 5 5 0 ) \r
0101520 \t \t \t ( 0 2 5 5 1 2 8
0101540 ) \r \t \t \t ( 0 2 5 5 2
0101560 5 5 ) \r \t \t \t ( 0 1 2 8
0101600 2 5 5 ) \r \t \t \t ( 0 0
0101620 2 5 5 ) \r \t \t \t ( 1 2 8
0101640 0 2 5 5 ) \r \t \t \t ( 2
0101660 5 5 0 2 5 5 ) \r \t \t \t
0101700 ( 2 5 5 1 2 8 2 5 5 ) \r \t \t
0101720 \t ( 2 5 5 2 5 5 2 5 5
0101740 ) \r \t \t \t ( 1 2 8 1 2 8
0101760 1 2 8 ) \r \t \t \t ( 0 0
0102000 0 ) ) ) \r \r \r \r 006 004 ( * S i
0102020 m p l e d e m o s ) 006 001 \r \r (
0102040 D E F I N E Q \r \r ( 006 004 R E D G
0102060 R E E N 006 001 \r [ L A M B D A
0102100 N I L
0102120
*
0102160 006 003 ( * r r b " 2
0102200 - J U L - 8 2 1 8 : 2 6 " ) 006
0102220 001 \r ( R E S E T F O R M
0102240 ( C O L O R D I S P L A Y T
0102260 ) \r \t ( R E S E T
0102300 F O R M ( S C R E E N C O L O
0102320 R M A P ( M A P O F A C O L O
0102340 R ( Q U O T E R E D ) ) ) \r
0102360 \t \t \t ( S H O W C O L O R T
0102400 E S T P A T T E R N ) \r \t \t \t
0102420 ( 006 002 B I N D 006 001 ( N C O L
0102440 O R M A S K _ ( C O N D \r \t \t
0102460 \t \t \t ( ( E Q \ C
0102500 O L O R D I S P L A Y B I T S P
0102520 E R P I X E L 4 ) \r \t \t \t \t \t
0102540 \t 1 5 ) \r \t \t \t \t \t
0102560 ( T 2 5 5 ) ) ) \r \t \t \t
0102600 006 002 f o r 006 001 L 006 002 f r
0102620 o m 006 001 0 006 002 d o 006 001 [ C
0102640 O L O R L E V E L ( S C R E E
0102660 N C O L O R M A P ) \r \t \t \t \t \t
0102700 \t \t ( L O G A N D L N C O
0102720 L O R M A S K ) \r \t \t \t \t \t \t \t
0102740 ( C O N D \r \t \t \t \t \t \t \t
0102760 ( ( Z E R O P ( L O G A N D
0103000 L 2 5 6 ) ) \r \t \t \t \t \t \t \t
0103020 ( Q U O T E G R E E
0103040 N ) ) \r \t \t \t \t \t \t \t ( T
0103060 ( Q U O T E R E D ) ) ) \r \t
0103100 \t \t \t \t \t \t ( C O N D \r \t \t \t
0103120 \t \t \t \t ( ( Z E R O P (
0103140 L O G A N D L 5 1 2 ) ) \r \t
0103160 \t \t \t \t \t \t ( L O G A
0103200 N D 2 5 5 L ) ) \r \t \t \t \t \t
0103220 \t \t ( T ( I D I F F E R
0103240 E N C E 2 5 5 ( L O G A N D
0103260 2 5 5 L ] \r \t \t \t \t \t
0103300 ( R O T A T E C O L O R M A
0103320 P ( S C R E E N C O L O R M A
0103340 P ) ) \r \t \t \t \t \t ( D
0103360 I S M I S S 2 5 ) \r \t \t \t
0103400 006 002 u n t i l 006 001 ( 006 002
0103420 Q U I T P 006 001 ) ) ) \r \t
0103440 ( C O L O R B A C K G R O
0103460 U N D ( Q U O T E W H I T E
0103500 ] ) \r ) \r ( D E F I N E Q \r \r (
0103520 006 004 O V E R P A I N T D E M O 006
0103540 001 \r [ L A M B D A N I L
0103560
*
0103620 006
0103640 003 ( * r r b " 1 5 - O C T -
0103660 8 2 1 0 : 3 6 " ) 006 001 \r
0103700 ( 006 002 D E C L A R E 006 001 ( G
0103720 L O B A L V A R S S T O P D A
0103740 T E ) ) \r ( R E S E T L
0103760 S T [ R E S E T S A V E N I
0104000 L ( L I S T ( Q U O T E C
0104020 L O S E W ) \r \t \t \t \t ( A
0104040 D D M E N U ( 006 002 c r e a t e
0104060 006 001 M E N U \r \t \t \t \t \t \t
0104100 I T E M S _ ( Q U O T E
0104120 ( R A N D O M L I N E C U R
0104140 S O R N O N E ) ) \r \t \t \t \t \t
0104160 \t W H E N S E L E C T E
0104200 D F N _ ( Q U O T E O V E R
0104220 P A I N T S E L F N ] \r \t
0104240 ( S E T Q M O V E M O D
0104260 E ( Q U O T E R A N D O M )
0104300 ) \r \t [ S E T Q L
0104320 A S T X ( S E T Q L A S T Y
0104340 ( S E T Q D X ( S E T Q
0104360 D Y ( S E T Q N S T E P S
0104400 0 ] \r \t ( 006 002 f o r
0104420 006 001 I 006 002 i n 006 001 [ C O N
0104440 D \r \t \t \t ( O V E R P A I N
0104460 T B I T M A P S ) \r \t \t \t (
0104500 T ( S E T Q O V E R P A I N
0104520 T B I T M A P S ( L I S T (
0104540 B I T M A P F R O M S T R I N G
0104560 " I n t e r l i s p - D " ] \r
0104600 \t \t 006 002 u n t i l 006 001 ( O R
0104620 ( 006 002 Q U I T P 006 001 2 0 ) \r
0104640 \t \t \t ( E Q M O V E M O
0104660 D E ( Q U O T E N O N E ) )
0104700 ) \r \t \t 006 002 d o 006 001 ( 006 002 O
0104720 V E R P A I N T B M 006 001 I ) )
0104740 \r \t ( S C R E E N C
0104760 O L O R M A P D E M O R A I N
0105000 B O W M A P ) \r \t (
0105020 006 002 Q U I T P 006 001 1 0 ) \r \t
0105040 ( 006 002 u n t i l 006 001
0105060 ( 006 002 Q U I T P 006 001 ) 006 002 d o
0105100 006 001 ( R O T A T E C O L O R M
0105120 A P ( S C R E E N C O L O R M
0105140 A P ) \r \t \t \t \t \t \t 1 ) \r \t \t \t
0105160 \t ( D I S M I S S 4 0 ] ) \r \r
0105200 ( 006 004 O V E R P A I N T B M 006 001
0105220 \r [ L A M B D A ( B M F
0105240 O N T )
0105260
0105300 006 003
0105320 ( * r r b " 2 1 - D E C - 8
0105340 2 2 2 : 1 6 " ) 006 001 \r
0105360 ( P R O G ( E B M B M W B
0105400 M H S C R ( M A X C O L O R
0105420 ( M A X I M U M C O L O R ) )
0105440 \r \t ( C O L O R S
0105460 C R E E N B I T M A P ( C O L
0105500 O R S C R E E N B I T M A P ) )
0105520 ) \r ( S E T
0105540 Q E B M ( 006 002 C A C H E B I
0105560 T M A P 006 001 B M F O N T (
0105600 C O L O R N U M B E R B I T S P
0105620 E R P I X E L ) ) ) \r
0105640 ( S E T Q B M W (
0105660 B I T M A P W I D T H B M ) )
0105700 \r ( S E T Q
0105720 B M H ( 006 002 f e t c h 006 001
0105740 B I T M A P H E I G H T 006 002 o
0105760 f 006 001 E B M ) ) \r
0106000 ( S E T Q S C R ( B
0106020 I T M A P C O P Y E B M ) ) \r
0106040 ( C O L O R
0106060 B A C K G R O U N D 0 ) \r
0106100 ( 006 002 u n t i l
0106120 006 001 ( 006 002 Q U I T P 006 001 ) \r \t
0106140 006 002 d o 006 001 ( A N D
0106160 ( E Q 5 1 ( R A N D 0
0106200 3 0 0 ) ) \r \t \t ( C O
0106220 L O R B A C K G R O U N D 0 )
0106240 ) \r \t \t ( O V E R P A I N T E
0106260 B M C O L O R S C R E E N B I
0106300 T M A P ( 006 002 N E W X 006 001 B
0106320 M W C O L O R S C R E E N W I
0106340 D T H ) \r \t \t \t ( 006 002 N E
0106360 W Y 006 001 B M H C O L O R S C
0106400 R E E N H E I G H T ) \r \t \t \t
0106420 ( C O L O R T E X T U R E F
0106440 R O M C O L O R # ( R A N D
0106460 1 M A X C O L O R ) ) \r \t \t \t
0106500 S C R ] ) \r \r ( 006 004 O V E
0106520 R P A I N T S E L F N 006 001 \r
0106540 [ L A M B D A ( V )
0106560
*
0106620 006 003 ( *
0106640 b a s : " 2 6 - A P R - 8 2
0106660 1 8 : 0 7 " ) 006 001 \r ( S
0106700 E T Q M O V E M O D E V ] )
0106720 \r \r ( 006 004 C A C H E B I T M A P
0106740 006 001 \r [ L A M B D A ( B M
0106760 F O N T N B I T S )
0107000
*
0107040 006 003 ( * r r b " 2 1 - D E C
0107060 - 8 2 2 2 : 2 4 " ) 006 001 \r
0107100 ( P R O G ( ( B M E X P
0107120 ( C O N D \r \t \t ( ( E Q
0107140 N B I T S 8 ) \r \t \t
0107160 8 B I T B M E X P ) \r \t \t
0107200 ( T 4 B I T B M E X P )
0107220 ) ) \r \t C B M ) \r
0107240 [ C O N D \r \t
0107260 ( ( B I T M A P P B M ) ) \r
0107300 \t ( T ( S E T Q B M
0107320 ( O R ( G E T H A S H B M
0107340 B M E X P ) \r \t \t \t (
0107360 P U T H A S H B M ( B I T M
0107400 A P F R O M S T R I N G B M
0107420 F O N T ) \r \t \t \t \t B
0107440 M E X P ] \r
0107460 ( R E T U R N ( O R ( G E T
0107500 H A S H B M B M E X P ) \r \t
0107520 \t ( P U T H A S H
0107540 B M ( P R O G 1 ( S E T Q
0107560 C B M ( E X P A N D B I T M A
0107600 P B M ( O R N B I T S 4
0107620 ) ) ) \r \t \t \t \t \t ( 006 002 r e p
0107640 l a c e 006 001 ( B I T M A P B
0107660 I T M A P B I T S P E R P I X E
0107700 L ) 006 002 o f 006 001 C B M \r \t \t
0107720 \t \t \t 006 002 w i t h 006 001
0107740 ( O R N B I T S 4 ) ) ) \r \t
0107760 \t \t B M E X P ] )
0110000 \r \r ( 006 004 N E W X 006 001 \r [ L
0110020 A M B D A ( B W S W )
0110040
*
0110100 006 003 ( * r r
0110120 b " 1 3 - S E P - 8 2 1 1 :
0110140 4 2 " ) 006 001 \r ( S E L E
0110160 C T Q M O V E M O D E \r \t
0110200 ( R A N D O M ( R A N D
0110220 ( I M I N U S B W ) \r \t \t \t
0110240 S W ) ) \r \t ( C
0110260 U R S O R ( I M I N ( I D I
0110300 F F E R E N C E L A S T M O U
0110320 S E X ( I Q U O T I E N T B
0110340 W 2 ) ) \r \t \t \t S W ) )
0110360 \r \t ( L I N E [ C O
0110400 N D \r \t \t ( ( I L E Q
0110420 ( S E T Q N S T E P S ( S
0110440 U B 1 N S T E P S ) ) \r \t \t \t
0110460 0 ) \r \t \t
0110500 ( S E T Q N S T E P S ( R A
0110520 N D 0 5 0 ) ) \r \t \t
0110540 ( C O N D \r \t \t \t ( ( I
0110560 G E Q ( R A N D 0 4 ) \r \t
0110600 \t \t \t 2 ) \r \t \t \t ( S E T
0110620 Q D X ( R A N D - 1 0 1
0110640 0 ) ) ) \r \t \t \t ( T ( S E T
0110660 Q D Y ( R A N D - 1 0 1
0110700 0 ] \r \t \t ( C O N D \r \t \t
0110720 ( ( I L E S S P ( S
0110740 E T Q L A S T X ( I P L U S
0110760 L A S T X D X ) ) \r \t \t \t
0111000 0 ) \r \t \t
0111020 ( S E T Q L A S T X ( I M
0111040 I N U S L A S T X ) ) \r \t \t
0111060 ( S E T Q D X (
0111100 I M I N U S D X ) ) ) \r \t \t
0111120 [ ( I G E Q L A S T X
0111140 ( I D I F F E R E N C E S W
0111160 B W ) ) \r \t \t (
0111200 S E T Q L A S T X ( I P L U
0111220 S L A S T X ( S E T Q D X
0111240 ( I M I N U S D X ] \r \t \t
0111260 ( T L A S T X ) ) ) \r
0111300 \t ( N O N E 0 ) \r \t
0111320 ( S H O U L D N T ] )
0111340 \r \r ( 006 004 N E W Y 006 001 \r [ L
0111360 A M B D A ( B H S H )
0111400
*
0111440 006 003 ( * r r
0111460 b " 1 3 - S E P - 8 2 1 1 :
0111500 4 2 " ) 006 001 \r ( S E L E
0111520 C T Q M O V E M O D E \r \t
0111540 ( R A N D O M ( R A N D
0111560 ( I M I N U S B H ) \r \t \t \t
0111600 S H ) ) \r \t ( C
0111620 U R S O R ( I D I F F E R E N
0111640 C E L A S T M O U S E Y ( I
0111660 Q U O T I E N T B H 2 ) ) )
0111700 \r \t ( L I N E [ C O
0111720 N D \r \t \t ( ( I L E Q
0111740 ( S E T Q N S T E P S ( S
0111760 U B 1 N S T E P S ) ) \r \t \t \t
0112000 0 ) \r \t \t
0112020 ( S E T Q N S T E P S ( R A
0112040 N D 0 5 0 ) ) \r \t \t
0112060 ( C O N D \r \t \t \t ( ( I
0112100 G E Q ( R A N D 0 4 ) \r \t
0112120 \t \t \t 2 ) \r \t \t \t ( S E T
0112140 Q D X ( R A N D - 1 0 1
0112160 0 ) ) ) \r \t \t \t ( T ( S E T
0112200 Q D Y ( R A N D - 1 0 1
0112220 0 ] \r \t \t ( C O N D \r \t \t
0112240 ( ( I L E S S P ( S
0112260 E T Q L A S T Y ( I P L U S
0112300 L A S T Y D Y ) ) \r \t \t \t
0112320 0 ) \r \t \t
0112340 ( S E T Q L A S T Y ( I M
0112360 I N U S L A S T Y ) ) \r \t \t
0112400 ( S E T Q D Y (
0112420 I M I N U S D Y ) ) ) \r \t \t
0112440 [ ( I G E Q L A S T Y
0112460 ( I D I F F E R E N C E S H
0112500 B H ) ) \r \t \t (
0112520 S E T Q L A S T Y ( I P L U
0112540 S L A S T Y ( S E T Q D Y
0112560 ( I M I N U S D Y ] \r \t \t
0112600 ( T L A S T Y ) ) ) \r
0112620 \t ( N O N E 0 ) \r \t
0112640 ( S H O U L D N T ] )
0112660 \r ) \r \r ( R P A Q Q 006 002 O V E
0112700 R P A I N T B I T M A P S 006 001
0112720 N I L ) \r ( D E F I N E Q \r \r (
0112740 006 004 W A L K D E M O 006 001 \r [
0112760 L A M B D A ( W A I T S P E
0113000 E D W O R D 1 W O R D S )
0113020
0113040 006 003 ( * r
0113060 r b " 1 3 - S E P - 8 2 1 0
0113100 : 4 9 " ) 006 001 \r ( 006 002 D
0113120 E C L A R E 006 001 ( G L O B A L
0113140 V A R S S T O P D A T E ) ) \r
0113160 ( R E S E T F O R M (
0113200 S C R E E N C O L O R M A P N
0113220 I L ) \r \t ( C O L
0113240 O R B A C K G R O U N D 0 ) \r
0113260 \t ( 006 002 f o r 006 001
0113300 I 006 002 i n 006 001 [ C O N D \r
0113320 \t \t \t ( O V E R P A I N T
0113340 B I T M A P S ) \r \t \t \t (
0113360 T ( S E T Q O V E R P A I N
0113400 T B I T M A P S ( L I S T (
0113420 B I T M A P F R O M S T R I N G
0113440 " I n t e r l i s p - D " ] \r
0113460 \t \t 006 002 u n t i l 006 001 ( 006
0113500 002 Q U I T P 006 001 ( O R W A I
0113520 T 1 0 ) ) 006 002 d o 006 001 ( 006
0113540 002 W A L K B M 006 001 I N I L
0113560 S P E E D ) \r \t \t \t \t \t \t ( O R
0113600 ( 006 002 Q U I T P 006 001 1 0 ) \r
0113620 \t \t \t \t \t \t ( 006 002 W A L
0113640 K B M 006 001 N I L N I L S P
0113660 E E D ] ) \r \r ( 006 004 W A L K B M
0113700 006 001 \r [ L A M B D A ( B M
0113720 F O N T S P E E D )
0113740
*
0114000 006 003 ( * r r b " 2 1 - D E C
0114020 - 8 2 2 2 : 2 9 " ) 006 001 \r
0114040 ( O R S P E E D ( S E T
0114060 Q S P E E D 5 ) ) \r
0114100 ( P R O G ( E B M S C R M
0114120 A X X M A X Y ( M A X C O L
0114140 O R ( M A X I M U M C O L O R
0114160 ) ) ) \r ( S
0114200 E T Q E B M ( 006 002 C A C H E
0114220 B I T M A P 006 001 B M F O N T
0114240 ( C O L O R N U M B E R B I T
0114260 S P E R P I X E L ) ) ) \r
0114300 ( S E T Q S C R
0114320 ( B I T M A P C O P Y E B M
0114340 ) ) \r ( S E
0114360 T Q M A X X ( I D I F F E R
0114400 E N C E C O L O R S C R E E N
0114420 W I D T H ( B I T M A P W I D
0114440 T H E B M ) ) ) \r
0114460 ( S E T Q M A X Y (
0114500 I D I F F E R E N C E C O L O
0114520 R S C R E E N H E I G H T ( 006
0114540 002 f e t c h 006 001 B I T M A P H
0114560 E I G H T 006 002 o f 006 001 E B M
0114600 ) ) ) \r ( S
0114620 C R E E N C O L O R M A P ( 006
0114640 002 R A N D C O L O R M A P 006 001 )
0114660 ) \r ( 006 002 b
0114700 i n d 006 001 ( X _ - 1 ) \r \t
0114720 \t ( Y _ - 1 ) \r \t \t ( D X
0114740 _ 0 ) \r \t \t ( D Y _ 0 ) \r
0114760 \t \t ( I _ 1 ) \r \t \t ( J _
0115000 0 ) \r \t \t ( C O L O R C O U N
0115020 T E R _ 0 ) 006 002 u n t i l
0115040 006 001 ( 006 002 Q U I T P 006 001 ) \r \t
0115060 006 002 d o 006 001 [ C O N
0115100 D \r \t \t ( ( E Q I M A X
0115120 C O L O R ) \r \t \t ( S E
0115140 T Q I 1 ) ) \r \t \t ( T
0115160 ( S E T Q I ( A D D 1 I ]
0115200 \r \t \t ( 006 002 a d d 006 001 X D X
0115220 ) \r \t \t ( 006 002 a d d 006 001 Y D
0115240 Y ) \r \t \t [ C O N D \r \t \t (
0115260 ( O R ( I L E Q J 0 ) \r \t
0115300 \t ( I L E S S P
0115320 X 0 ) \r \t \t ( I
0115340 G E Q X M A X X ) \r \t \t
0115360 ( I L E S S P Y 0
0115400 ) \r \t \t ( I G E Q
0115420 Y M A X Y ) ) \r \t \t
0115440 ( S E T Q X ( R A N D 0
0115460 M A X X ) ) \r \t \t ( S E
0115500 T Q Y ( R A N D 0 M A X
0115520 Y ) ) \r \t \t ( S E T Q
0115540 D X ( R A N D ( I M I N U S
0115560 S P E E D ) \r \t \t \t \t S
0115600 P E E D ) ) \r \t \t ( S E
0115620 T Q D Y ( R A N D ( I M I
0115640 N U S S P E E D ) \r \t \t \t \t
0115660 S P E E D ) ) \r \t \t
0115700 ( S E T Q J ( R A N D M I
0115720 N W A L K M A X W A L K ) ) )
0115740 \r \t \t ( T ( S E T Q J
0115760 ( S U B 1 J ] \r \t \t ( O V E R
0116000 P A I N T E B M ( C O L O R
0116020 S C R E E N B I T M A P ) \r \t \t
0116040 \t X Y ( C O L O R T E
0116060 X T U R E F R O M C O L O R #
0116100 I ) \r \t \t \t S C R ) \r \t \t
0116120 ( C O N D \r \t \t ( ( I G R E
0116140 A T E R P ( S E T Q C O L O
0116160 R C O U N T E R ( A D D 1 C
0116200 O L O R C O U N T E R ) ) \r \t \t
0116220 \t 3 0 0 ) \r \t \t
0116240 ( S E T Q C O L O R C O U
0116260 N T E R 0 ) \r \t \t ( S
0116300 C R E E N C O L O R M A P ( 006
0116320 002 R A N D C O L O R M A P 006 001 )
0116340 ) ) \r \t \t ( T ( R O T A T
0116360 E C O L O R M A P ( S C R E E
0116400 N C O L O R M A P ) \r \t \t \t \t
0116420 1 M A X C O L O R ) )
0116440 ) \r \t \t ( D I S M I S S 1 5 ]
0116460 ) \r \r ( 006 004 R A N D C O L O R M
0116500 A P 006 001 \r [ L A M B D A N
0116520 I L
0116540
*
0116600 006 003 ( * e d i t e d : "
0116620 1 0 - S E P - 8 2 1 4 : 5 8 "
0116640 ) 006 001 \r ( P R O G [ (
0116660 M A X C O L O R ( S U B 1 (
0116700 E X P T 2 ( C O L O R M A P
0116720 B I T S ( S C R E E N C O L O
0116740 R M A P ] \r
0116760 ( R E T U R N ( S E L E C T Q
0117000 ( R A N D 1 2 ) \r \t \t \t
0117020 [ 1 ( C O N D \r \t \t \t \t (
0117040 ( C O L O R M A P P W A L K R
0117060 A N D O M C O L O R M A P ) \r \t
0117100 \t \t \t W A L K R A N D O M C
0117120 O L O R M A P ) \r \t \t \t \t ( T
0117140 ( S E T Q W A L K R A N D O M
0117160 C O L O R M A P ( C O L O R M
0117200 A P C R E A T E ) ) \r \t \t \t \t
0117220 ( 006 002 f o r 006 001 C N 006 002
0117240 f r o m 006 001 0 006 002 t o 006 001
0117260 M A X C O L O R 006 002 d o 006 001
0117300 ( C O L O R L E V E L W A L K
0117320 R A N D O M C O L O R M A P C
0117340 N \r \t \t \t \t \t \t \t \t \t
0117360 ( Q U O T E R E D ) \r \t \t \t \t
0117400 \t \t \t \t \t ( R A N D
0117420 0 2 5 5 ) ) \r \t \t \t \t \t \t \t \t
0117440 ( C O L O R L E V E L W A L
0117460 K R A N D O M C O L O R M A P
0117500 C N \r \t \t \t \t \t \t \t \t \t
0117520 ( Q U O T E G R E E N ) \r \t
0117540 \t \t \t \t \t \t \t \t ( R A
0117560 N D 0 2 5 5 ) ) \r \t \t \t \t \t
0117600 \t \t \t ( C O L O R L E V E L
0117620 W A L K R A N D O M C O L O R M
0117640 A P C N \r \t \t \t \t \t \t \t \t \t
0117660 ( Q U O T E B L U E )
0117700 \r \t \t \t \t \t \t \t \t \t (
0117720 R A N D 0 2 5 5 ] \r \t \t \t
0117740 ( 2 ( C O N D \r \t \t \t \t (
0117760 ( C O L O R M A P P W A L K R
0120000 A I N B O W C O L O R M A P ) \r
0120020 \t \t \t \t W A L K R A I N B O
0120040 W C O L O R M A P ) \r \t \t \t \t (
0120060 T [ S E T Q W A L K R A I N
0120100 B O W C O L O R M A P ( R A I
0120120 N B O W M A P ( C O L O R M A
0120140 P B I T S ( S C R E E N C O L
0120160 O R M A P \r \t \t \t \t \t \t \t \t \t \t
0120200 \t ] \r
0120220
*
0120300 006 003 ( * m a k e e v e r y
0120320 1 6 t h c o l o r r a n d
0120340 o m ) 006 001 \r \t \t \t \t ( 006 002
0120360 f o r 006 001 C N 006 002 f r o m 006
0120400 001 ( R A N D 0 1 5 ) 006 002
0120420 t o 006 001 M A X C O L O R 006 002
0120440 b y 006 001 1 6 \r \t \t \t \t
0120460 006 002 d o 006 001 ( C O L O R L
0120500 E V E L W A L K R A I N B O W
0120520 C O L O R M A P C N ( Q U O
0120540 T E R E D ) \r \t \t \t \t \t \t
0120560 ( R A N D 0 2 5 5 ) )
0120600 \r \t \t \t \t \t ( C O L O R L E V
0120620 E L W A L K R A I N B O W C O
0120640 L O R M A P C N ( Q U O T E
0120660 G R E E N ) \r \t \t \t \t \t \t
0120700 ( R A N D 0 2 5 5 ) )
0120720 \r \t \t \t \t \t ( C O L O R L E V
0120740 E L W A L K R A I N B O W C O
0120760 L O R M A P C N ( Q U O T E
0121000 B L U E ) \r \t \t \t \t \t \t
0121020 ( R A N D 0 2 5 5 ) ) )
0121040 \r \t \t \t \t W A L K R A I N
0121060 B O W C O L O R M A P ) ) ) \r \t
0121100 \t \t ( P R O G [ ( C M
0121120 ( M A P O F A C O L O R ( C A
0121140 R ( N T H ( Q U O T E ( (
0121160 R E D G R E E N ) \r \t \t \t \t \t
0121200 \t \t \t R E D \r \t \t \t
0121220 \t \t \t \t \t ( B L U E
0121240 G R E E N ) \r \t \t \t \t \t \t \t \t
0121260 ( B L U E R E D )
0121300 \r \t \t \t \t \t \t \t \t G
0121320 R E E N \r \t \t \t \t \t \t \t \t
0121340 ( R E D G R E E N B L
0121360 U E ) ) ) \r \t \t \t \t \t \t \t
0121400 ( R A N D 1 6 ] \r
0121420
*
0121500 006 003 ( * m
0121520 a k e e v e r y 1 6 t h c
0121540 o l o r r a n d o m ) 006 001 \r \t
0121560 \t \t ( 006 002 f o
0121600 r 006 001 C N 006 002 f r o m 006 001
0121620 ( R A N D 0 1 5 ) 006 002 t o
0121640 006 001 M A X C O L O R 006 002 b y
0121660 006 001 1 6 \r \t \t \t \t 006 002
0121700 d o 006 001 ( C O L O R L E V E L
0121720 C M C N ( Q U O T E R E
0121740 D ) \r \t \t \t \t \t \t ( R A N
0121760 D 0 2 5 5 ) ) \r \t \t \t \t
0122000 ( C O L O R L E V E L
0122020 C M C N ( Q U O T E G R
0122040 E E N ) \r \t \t \t \t \t \t ( R
0122060 A N D 0 2 5 5 ) ) \r \t \t \t \t
0122100 ( C O L O R L E V
0122120 E L C M C N ( Q U O T E
0122140 B L U E ) \r \t \t \t \t \t \t (
0122160 R A N D 0 2 5 5 ) ) ) \r \t \t
0122200 \t ( R E T U R
0122220 N C M ] ) \r ) \r \r ( R P A Q ?
0122240 006 002 M A X W A L K 006 001 N I L
0122260 ) \r \r ( R P A Q ? 006 002 M I N W
0122300 A L K 006 001 N I L ) \r \r ( R P A
0122320 Q ? 006 002 R A N D C O L O R P R
0122340 O B 006 001 N I L ) \r \r ( R P A Q
0122360 ? 006 002 W A L K R A N D O M C O
0122400 L O R M A P 006 001 ) \r \r ( R P A
0122420 Q ? 006 002 8 B I T B M E X P 006 001
0122440 ( L I S T ( H A R R A Y 6
0122460 0 ) ) ) \r \r ( R P A Q ? 006 002 4
0122500 B I T B M E X P 006 001 ( L I S T
0122520 ( H A R R A Y 6 0 ) ) ) \r (
0122540 D E C L A R E : D O E V A L @
0122560 C O M P I L E D O N T C O P Y
0122600 \r \r ( A D D T O V A R G L O B
0122620 A L V A R S 8 B I T B M E X P
0122640 4 B I T B M E X P W A L K R
0122660 A N D O M C O L O R M A P ) \r )
0122700 \r ( F I L E S L O A D C O L O
0122720 R ) \r ( P U T P R O P S C O L
0122740 O R D E M O C O P Y R I G H T
0122760 ( " X e r o x C o r p o r a
0123000 t i o n " 1 9 8 2 1 9 8 3
0123020 1 9 8 4 ) ) \r ( D E C L A R E :
0123040 D O N T C O P Y \r ( F I L
0123060 E M A P ( N I L ( 1 9 2 5
0123100 2 3 1 2 ( S E N D C O L O R R
0123120 E G I O N 1 9 3 5 . 2 3 1
0123140 0 ) ) ( 2 3 1 3 1 6 6 8 8
0123160 ( C O L O R D E M O 2 3 2 3
0123200 . 4 5 3 6 ) ( \r C H O O S E
0123220 D E M O 4 5 3 8 . 4 6 9 5
0123240 ) ( D O C O L O R D R O P 4
0123260 6 9 7 . 5 3 0 9 ) ( E X M
0123300 I N E S H A F T 5 3 1 1 .
0123320 6 5 4 6 ) ( M I N E S H A F T
0123340 6 5 4 8 . 7 3 5 9 ) ( \r
0123360 M O D A R T 7 3 6 1 . 8 2
0123400 2 5 ) ( M O D A R T D E M O
0123420 8 2 2 7 . 9 8 2 9 ) ( P O
0123440 I N T T E S T 9 8 3 1 . 1
0123460 0 7 1 7 ) ( P U T D R O P S
0123500 1 0 7 1 9 . 1 1 1 9 1 ) (
0123520 Q U I T P \r 1 1 1 9 3 . 1
0123540 1 5 1 5 ) ( R A I N I N G 1
0123560 1 5 1 7 . 1 2 7 0 2 ) ( R
0123600 A I N I N G C O L O R M A P 1
0123620 2 7 0 4 . 1 3 2 0 4 ) ( R
0123640 O T A T E I T 1 3 2 0 6 .
0123660 1 3 6 1 3 ) ( \r S H O W C O L
0123700 O R W 1 3 6 1 5 . 1 4 1 9
0123720 1 ) ( T U N N E L 1 4 1 9 3
0123740 . 1 4 3 4 9 ) ( T U N N E
0123760 L D E M O 1 4 3 5 1 . 1 5
0124000 3 3 2 ) ( C I R C L E D E M O
0124020 1 5 3 3 4 . 1 6 0 4 3 ) \r
0124040 ( W E L L 1 6 0 4 5 . 1
0124060 6 6 8 6 ) ) ( 1 7 1 4 5 2 2
0124100 2 9 8 ( L O G O D E M O 1 7
0124120 1 5 5 . 1 8 2 9 2 ) ( C O
0124140 L O R L O G O 1 8 2 9 4 .
0124160 1 9 8 8 1 ) ( \r D R A W A C O
0124200 L O R W I N D O W 1 9 8 8 3
0124220 . 2 0 3 2 3 ) ( I N I T / L
0124240 O G O / C O L O R B I T M A P
0124260 2 0 3 2 5 . 2 1 0 8 3 ) (
0124300 C O L O R P R I N T C H A R 2
0124320 1 0 8 5 . 2 2 2 9 6 ) ) \r
0124340 ( 2 2 5 8 9 2 8 3 8 1 ( C O
0124360 L O R K I N E T I C 2 2 5 9 9
0124400 . 2 3 8 9 9 ) ( D E M O C
0124420 O L O R K I N E T I C 2 3 9 0
0124440 1 . 2 7 2 9 7 ) ( C I R K
0124460 I N 2 7 2 9 9 . 2 8 3 7 9
0124500 ) ) ( \r 2 8 4 9 0 3 3 3 4 5
0124520 ( C O L O R D E M O 1 2 8 5
0124540 0 0 . 2 9 2 6 9 ) ( C O L
0124560 O R D E M O 2 2 9 2 7 1 .
0124600 3 0 8 1 8 ) ( I N I T / C O L
0124620 O R D E M O / M E N U S 3 0 8
0124640 2 0 . 3 3 3 4 3 ) \r ) ( 3
0124660 3 8 2 3 3 4 6 2 8 ( R E D G
0124700 R E E N 3 3 8 3 3 . 3 4 6
0124720 2 6 ) ) ( 3 4 6 2 9 3 8 3 2
0124740 2 ( O V E R P A I N T D E M O
0124760 3 4 6 3 9 . 3 5 4 5 4 )
0125000 ( O V E R P A I N T B M 3 5 4
0125020 5 6 \r . 3 6 1 6 8 ) ( O V
0125040 E R P A I N T S E L F N 3 6 1
0125060 7 0 . 3 6 3 0 4 ) ( C A C
0125100 H E B I T M A P 3 6 3 0 6 .
0125120 3 6 8 6 4 ) ( N E W X 3 6
0125140 8 6 6 . 3 7 6 0 0 ) ( N E
0125160 W Y 3 7 6 0 2 \r . 3 8 3 2
0125200 0 ) ) ( 3 8 3 5 7 4 2 1 3 6
0125220 ( W A L K D E M O 3 8 3 6 7
0125240 . 3 8 8 3 7 ) ( W A L K B
0125260 M 3 8 8 3 9 . 4 0 2 4 1 )
0125300 ( R A N D C O L O R M A P 4
0125320 0 2 4 3 . 4 2 1 3 4 ) ) ) \r
0125340 ) ) \r S T O P \r
0125350