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