$ od -c -N 50000 [phylum]<LISPUSERS>Lyric>color!1
0000000 ( D E F I N E - F I L E - I N F
0000020 O 247 P A C K A G E " I N T E
0000040 R L I S P " 247 R E A D T A B L
0000060 E " I N T E R L I S P " 247 B
0000100 A S E 1 0 ) \r 006 001 ( F I L E C
0000120 R E A T E D " 2 7 - J a n - 8
0000140 7 1 5 : 5 6 : 4 6 " 006 004 { E
0000160 R I S } < I R I S > N E X T > C
0000200 O L O R . ; 2 006 001 6 5 0 5 4
0000220 \r \r c h a n g e s
0000240 t o % : ( V A R S C O L
0000260 O R C O M S E d i t C o l o r
0000300 M a p H e i g h t E d i t C o
0000320 l o r M a p W i d t h D I C O
0000340 L O R . h u e M a p p i n g \r
0000360
0000400 D I C O L O
0000420 R . l i g h t n e s s M a p p i
0000440 n g D I C O L O R . s a t u r
0000460 a t i o n M a p p i n g N E W
0000500 C O L O R I T E M \r
0000520
0000540 D I C O L O R . h u e
0000560 C o n s t a n t s D I C O L O
0000600 R . a c h r o m a t i c D I C
0000620 O L O R . b l u e D I C O L O
0000640 R . b l u e P u r p l e \r
0000660
0000700 D I C O L O R .
0000720 b l u i s h G r e e n D I C O
0000740 L O R . b l u i s h P u r p l e
0000760 D I C O L O R . b r o w n D
0001000 I C O L O R . b r o w n Y e l l
0001020 o w \r
0001040 D I
0001060 C O L O R . b r o w n i s h R e
0001100 d D I C O L O R . b r o w n i
0001120 s h Y e l l o w D I C O L O R
0001140 . g r e e n D I C O L O R . g
0001160 r e e n B l u e \r
0001200
0001220 D I C O L O R . g r e e
0001240 n i s h B l u e D I C O L O R
0001260 . g r e e n i s h Y e l l o w
0001300 D I C O L O R . o r a n g e \r
0001320
0001340 D I C O L O
0001360 R . o r a n g e Y e l l o w D
0001400 I C O L O R . o r a n g i s h R
0001420 e d D I C O L O R . o r a n g
0001440 i s h Y e l l o w \r
0001460
0001500 D I C O L O R . p u r
0001520 p l e D I C O L O R . p u r p
0001540 l e R e d D I C O L O R . p u
0001560 r p l i s h B l u e D I C O L
0001600 O R . p u r p l i s h R e d \r
0001620
0001640 D I C O L O
0001660 R . r e d D I C O L O R . r e
0001700 d B r o w n D I C O L O R . r
0001720 e d O r a n g e D I C O L O R
0001740 . r e d d i s h B r o w n \r
0001760
0002000 D I C O L O R
0002020 . r e d d i s h O r a n g e D
0002040 I C O L O R . r e d d i s h P u
0002060 r p l e D I C O L O R . y e l
0002100 l o w \r
0002120 D
0002140 I C O L O R . y e l l o w G r e
0002160 e n D I C O L O R . y e l l o
0002200 w i s h B r o w n D I C O L O
0002220 R . y e l l o w i s h G r e e n
0002240 \r
0002260 D I C O
0002300 L O R . y e l l o w i s h O r a
0002320 n g e D I C O L O R . s a t u
0002340 r a t i o n C o n s t a n t s
0002360 D I C O L O R . n o S a t u r a
0002400 t i o n \r
0002420
0002440 D I C O L O R . g r a y i s h
0002460 D I C O L O R . m o d e r a t e
0002500 D I C O L O R . s t r o n g
0002520 D I C O L O R . v i v i d \r
0002540
0002560 D I C O L O R
0002600 . l i g h t n e s s C o n s t a
0002620 n t s D I C O L O R . b l a c
0002640 k D I C O L O R . v e r y D a
0002660 r k D I C O L O R . d a r k
0002700 \r
0002720 D I C O L
0002740 O R . m e d i u m D I C O L O
0002760 R . l i g h t D I C O L O R .
0003000 v e r y L i g h t D I C O L O
0003020 R . w h i t e ) \r
0003040 ( F N
0003060 S D I S P L A Y C O L O R L E
0003100 V E L S D I S P L A Y H L S L
0003120 E V E L S H L S L E V E L H
0003140 L S T O R G B H L S V A L U E
0003160 F N \r
0003200 H L S
0003220 V A L U E F R O M L E V E L L
0003240 E V E L F R O M H L S V A L U E
0003260 R A I N B O W M A P R G B T
0003300 O H L S O V E R P A I N T \r
0003320
0003340 B I T M A P F
0003360 R O M S T R I N G S H A D E B
0003400 I T M A P E D I T C O L O R M
0003420 A P G E T C O L O R # F R O M
0003440 U S E R \r
0003460 G
0003500 E T C O L O R # F R O M S C R E
0003520 E N D I S P L A Y C O L O R L
0003540 E V E L F I L L I N R E G I O
0003560 N A R E A F I L L C E N T E
0003600 R E D L E F T \r
0003620
0003640 O U T L I N E A R E A O U
0003660 T L I N E R E G I O N A D J U
0003700 S T C O L O R M A P S H O W C
0003720 O L O R B L O C K S M A P O F
0003740 A C O L O R \r
0003760
0004000 C N S M E N U I N I T C N S
0004020 T O C S L C N S T O R G B C
0004040 S L T O C N S D I C O L O R .
0004060 F R O M . U S E R G E T C N S
0004100 H L S T O C S L \r
0004120
0004140 C S L T O H L S R G B
0004160 T O C N S D I C O L O R . h u
0004200 e N D I C O L O R . h u e N v
0004220 a l u e D I C O L O R . h u e
0004240 N n a m e \r
0004260
0004300 D I C O L O R . l i g h t n e s
0004320 s N D I C O L O R . l i g h t
0004340 n e s s N v a l u e D I C O L
0004360 O R . l i g h t n e s s N n a m
0004400 e \r
0004420 D I C O
0004440 L O R . s a t u r a t i o n N
0004460 D I C O L O R . s a t u r a t i
0004500 o n N v a l u e D I C O L O R
0004520 . s a t u r a t i o n N n a m e
0004540 ) \r
0004560 ( R E C O R D S h
0004600 u e R e c o r d l i g h t n e
0004620 s s R e c o r d s a t u r a t
0004640 i o n R e c o r d ) \r \r
0004660 p r e v i o u s d a t e %
0004700 : " 1 6 - J a n - 8 7 1 8 :
0004720 2 0 : 5 3 " { E R I S } < I R
0004740 I S > N E X T > C O L O R . ; 1
0004760 ) \r \r \r ( * " \r C o p y r i g
0005000 h t ( c ) 1 9 8 2 , 1 9 8
0005020 3 , 1 9 8 5 , 1 9 8 6 , 1
0005040 9 8 7 b y X e r o x C o r
0005060 p o r a t i o n . A l l r
0005100 i g h t s r e s e r v e d . \r
0005120 " ) \r \r ( P R E T T Y C O M P R
0005140 I N T C O L O R C O M S ) \r \r
0005160 ( R P A Q Q 006 002 C O L O R C O
0005200 M S 006 001 [ ( F N S D I S P L
0005220 A Y C O L O R L E V E L S D I
0005240 S P L A Y H L S L E V E L S H
0005260 L S L E V E L H L S T O R G B
0005300 H L S V A L U E F N \r
0005320
0005340 H L S V A L U E F R O M
0005360 L E V E L L E V E L F R O M H
0005400 L S V A L U E R A I N B O W M
0005420 A P R G B T O H L S ) \r
0005440 (
0005460 F N S O V E R P A I N T B I
0005500 T M A P F R O M S T R I N G S
0005520 H A D E B I T M A P ) \r
0005540 ( I
0005560 N I T V A R S ( E D I T C O L
0005600 O R M A P . W I N D O W N I L
0005620 ) ) \r
0005640 ( F N S E D I T C O
0005660 L O R M A P E D I T C O L O R
0005700 M A P . B U T T O N E V E N T F
0005720 N E D I T C O L O R M A P . R
0005740 E D I S P L A Y F N \r
0005760
0006000 E D I T C O L O R M A P .
0006020 V A L U E L E V E L E D I T C
0006040 O L O R M A P . W I N D O W L E
0006060 V E L C H A N G E C O L O R L
0006100 E V E L S \r
0006120 G E
0006140 T C O L O R # F R O M U S E R
0006160 G E T C O L O R # F R O M S C R
0006200 E E N D I S P L A Y C O L O R
0006220 L E V E L F I L L I N R E G I
0006240 O N A R E A F I L L \r
0006260
0006300 C E N T E R E D L E F T
0006320 O U T L I N E A R E A O U T
0006340 L I N E R E G I O N ) \r
0006360 ( F
0006400 N S A D J U S T C O L O R M A
0006420 P S H O W C O L O R B L O C K
0006440 S M A P O F A C O L O R C O
0006460 L O R H E X P A T T E R N ) \r
0006500
0006520 ( V A R S E d i t C o l o r
0006540 M a p H e i g h t E d i t C o
0006560 l o r M a p W i d t h ( C O L
0006600 O R # M E N U S A V E ) \r
0006620
0006640 ( C O N T R O L M E N
0006660 U S A V E ) \r
0006700 (
0006720 E D I T 8 B I T C O L O R M A P
0006740 M E N U ) \r
0006760 ( E
0007000 D I T 8 B I T C O L O R M A P N
0007020 U M B E R R E A D E R ) ) \r
0007040
0007060 ( G L O B A L V A R S C O L O
0007100 R # M E N U S A V E C O N T R
0007120 O L M E N U S A V E E D I T 8
0007140 B I T C O L O R M A P M E N U
0007160 \r
0007200 E D I T 8 B
0007220 I T C O L O R M A P N U M B E R
0007240 R E A D E R E d i t C o l o r
0007260 M a p H e i g h t E d i t C o
0007300 l o r M a p W i d t h ) \r
0007320 (
0007340 C O M S \r \r 006 006 ( * ; ; ;
0007360 " s u p p o r t f o r g l o
0007400 b a l n a m i n g a n d q
0007420 u e r y i n g o f c o l o r
0007440 s . " ) 006 001 \r \r
0007460
0007500 ( F N S C N S M E N U I N I T
0007520 C N S T O C S L C N S T O R
0007540 G B C S L T O C N S D I C O
0007560 L O R . F R O M . U S E R G E
0007600 T C N S H L S T O C S L \r
0007620
0007640 C S L T
0007660 O H L S R G B T O C N S ) \r
0007700
0007720 ( V A R S D I C
0007740 O L O R . h u e M a p p i n g
0007760 D I C O L O R . l i g h t n e s
0010000 s M a p p i n g D I C O L O R
0010020 . s a t u r a t i o n M a p p i
0010040 n g \r
0010060
0010100 N E W C O L O R I T E M ) \r
0010120
0010140 ( I N I T V A R
0010160 S ( C O L O R N A M E M E N U
0010200 ) ) \r
0010220 ( F N S
0010240 D I C O L O R . h u e N D I C
0010260 O L O R . h u e N v a l u e D
0010300 I C O L O R . h u e N n a m e
0010320 D I C O L O R . l i g h t n e s
0010340 s N \r
0010360
0010400 D I C O L O R . l i g h t n e
0010420 s s N v a l u e D I C O L O R
0010440 . l i g h t n e s s N n a m e
0010460 D I C O L O R . s a t u r a t i
0010500 o n N \r
0010520
0010540 D I C O L O R . s a t u r a
0010560 t i o n N v a l u e D I C O L
0010600 O R . s a t u r a t i o n N n a
0010620 m e ) \r
0010640 ( D E C
0010660 L A R E % : E V A L @ L O A D
0010700 D O N T C O P Y ( * ) \r
0010720
0010740 ( R E
0010760 C O R D S h u e R e c o r d
0011000 l i g h t n e s s R e c o r d
0011020 s a t u r a t i o n R e c o r d
0011040 ) \r
0011060
0011100 ( C O N S T A N T S * D I
0011120 C O L O R . h u e C o n s t a n
0011140 t s ) \r
0011160
0011200 ( C O N S T A N T S *
0011220 D I C O L O R . s a t u r a t i
0011240 o n C o n s t a n t s ) \r
0011260
0011300 ( C O N
0011320 S T A N T S * D I C O L O R
0011340 . l i g h t n e s s C o n s t a
0011360 n t s ) ) \r
0011400 ( P
0011420 ( C N S M E N U I N I T ) ) )
0011440 \r
0011460 ( F I L E S L L C O L O
0011500 R R E A D N U M B E R ) \r
0011520
0011540 ( P ( S E T Q E D I T B M M
0011560 E N U N I L ) \r
0011600 ( M
0011620 O V D ' A R R A Y P ' C O L
0011640 O R M A P P ] ) \r ( D E F I N E
0011660 Q \r \r ( 006 004 D I S P L A Y C O L
0011700 O R L E V E L S 006 001 \r [ L A
0011720 M B D A ( W I N D O W R G B
0011740 ) 006 006 006 001
0011760
0012000 006 006 ( *
0012020 k b r % : " 3 - J u n - 8
0012040 6 1 9 : 4 5 " ) 006 001 \r
0012060 ( P R O G ( H L S ) \r
0012100 ( 006 002 D I S P L A Y
0012120 C O L O R L E V E L 006 001 W I N
0012140 D O W ' R E D ( 006 002 f e t c
0012160 h 006 001 ( R G B R E D ) 006 002
0012200 o f 006 001 R G B ) \r
0012220 ( 006 002 f e
0012240 t c h 006 001 ( R G B R E D )
0012260 006 002 o f 006 001 R G B ) ) \r
0012300 ( 006 002 D I S P L A
0012320 Y C O L O R L E V E L 006 001 W I
0012340 N D O W ' G R E E N ( 006 002 f
0012360 e t c h 006 001 ( R G B G R E E
0012400 N ) 006 002 o f 006 001 R G B ) \r
0012420
0012440 ( 006 002 f e t c h 006 001 ( R G B
0012460 G R E E N ) 006 002 o f 006 001 R G
0012500 B ) ) \r ( 006
0012520 002 D I S P L A Y C O L O R L E V
0012540 E L 006 001 W I N D O W ' B L U
0012560 E ( 006 002 f e t c h 006 001 ( R G
0012600 B B L U E ) 006 002 o f 006 001 R
0012620 G B ) \r
0012640 ( 006 002 f e t c h 006 001
0012660 ( R G B B L U E ) 006 002 o f 006
0012700 001 R G B ) ) \r
0012720 ( S E T Q H L S ( 006 002 R
0012740 G B T O H L S 006 001 R G B ) ) \r
0012760 ( 006 002 D I S
0013000 P L A Y C O L O R L E V E L 006 001
0013020 W I N D O W ' H U E ( 006 002
0013040 f e t c h 006 001 ( H L S H U E
0013060 ) 006 002 o f 006 001 H L S ) \r
0013100 (
0013120 006 002 E D I T C O L O R M A P . W
0013140 I N D O W L E V E L 006 001 ' H U
0013160 E ( 006 002 f e t c h 006 001 ( H L
0013200 S H U E ) 006 002 o f 006 001 H L
0013220 S ) ) ) \r (
0013240 006 002 D I S P L A Y C O L O R L E
0013260 V E L 006 001 W I N D O W ' L I
0013300 G H T N E S S ( 006 002 f e t c h
0013320 006 001 ( H L S L I G H T N E S
0013340 S ) 006 002 o f 006 001 H L S ) \r
0013360
0013400 ( 006 002 E D I T C O L O R M A P .
0013420 W I N D O W L E V E L 006 001 ' L
0013440 I G H T N E S S ( 006 002 f e t c
0013460 h 006 001 ( H L S L I G H T N E
0013500 S S ) 006 002 o f 006 001 H L S ) )
0013520 ) \r ( 006 002 D
0013540 I S P L A Y C O L O R L E V E L
0013560 006 001 W I N D O W ' S A T U R
0013600 A T I O N ( 006 002 f e t c h 006 001
0013620 ( H L S S A T U R A T I O N
0013640 ) 006 002 o f 006 001 H L S ) \r
0013660 (
0013700 006 002 E D I T C O L O R M A P . W
0013720 I N D O W L E V E L 006 001 ' S A
0013740 T U R A T I O N ( 006 002 f e t c
0013760 h 006 001 ( H L S S A T U R A T
0014000 I O N ) 006 002 o f 006 001 H L S ]
0014020 ) \r \r ( 006 004 D I S P L A Y H L S
0014040 L E V E L S 006 001 \r [ L A M B
0014060 D A ( H L S W I N ) 006 006 006 001
0014100
*
0014140 006 006 ( * r
0014160 r b " 2 5 - O C T - 8 2 1 4
0014200 : 0 8 " ) 006 001 \r
0014220 \r 006 006 (
0014240 * d i s p l a y s a h u e
0014260 l i g h t n e s s s a t u r
0014300 a t i o n t r i p l e i n
0014320 t h e e d i t w i n d o w .
0014340 ) 006 001 \r \r ( D I S P L A
0014360 Y H L S L E V E L H L S ' H
0014400 U E N I L W I N ) \r
0014420 ( D I S P L A Y H L S L E V E L
0014440 H L S ' L I G H T N E S S
0014460 N I L W I N ) \r ( D I
0014500 S P L A Y H L S L E V E L H L
0014520 S ' S A T U R A T I O N N I
0014540 L W I N ] ) \r \r ( 006 004 H L S L
0014560 E V E L 006 001 \r [ L A M B D A
0014600 ( H L S F I E L D N E W L
0014620 E V E L ) 006 006 006 001
0014640
0014660 006 006 ( * r r b
0014700 " 2 5 - O C T - 8 2 1 3 : 2
0014720 9 " ) 006 001 \r
0014740 \r 006 006 ( *
0014760 r e t u r n s t h e v a l u
0015000 e o f t h e n a m e d f
0015020 i e l d f r o m a h u e
0015040 l i g h t n e s s s a t u r a
0015060 t i o n r e c o r d . ) 006 001 \r
0015100 \r ( S E L E C T Q F I
0015120 E L D \r ( H U E
0015140 ( P R O G 1 ( 006 002 f e t c h
0015160 006 001 ( H L S H U E ) 006 002 o
0015200 f 006 001 H L S ) \r
0015220 ( A N
0015240 D N E W L E V E L ( 006 002 r e
0015260 p l a c e 006 001 ( H L S H U E
0015300 ) 006 002 o f 006 001 H L S 006 002 w
0015320 i t h 006 001 N E W L E V E L ) )
0015340 ) ) \r ( L I G H
0015360 T N E S S ( P R O G 1 ( 006 002
0015400 f e t c h 006 001 ( H L S L I G
0015420 H T N E S S ) 006 002 o f 006 001 H
0015440 L S ) \r
0015460 ( A
0015500 N D N E W L E V E L ( 006 002 r
0015520 e p l a c e 006 001 ( H L S L I
0015540 G H T N E S S ) 006 002 o f 006 001
0015560 H L S 006 002 w i t h 006 001 N E W
0015600 L E V E L ) ) ) ) \r
0015620 ( S A T U R A T I O N ( P
0015640 R O G 1 ( 006 002 f e t c h 006 001
0015660 ( H L S S A T U R A T I O N )
0015700 006 002 o f 006 001 H L S ) \r
0015720
0015740 ( A N D N E W
0015760 L E V E L ( 006 002 r e p l a c e
0016000 006 001 ( H L S S A T U R A T I
0016020 O N ) 006 002 o f 006 001 H L S 006
0016040 002 w i t h 006 001 N E W L E V E L
0016060 ) ) ) ) \r ( S H
0016100 O U L D N T ] ) \r \r ( 006 004 H L S
0016120 T O R G B 006 001 \r [ L A M B D
0016140 A ( H L S L I G H T N E S S
0016160 S A T U R A T I O N ) 006 006 006 001
0016200
0016220 006 006 ( * k b
0016240 r % : " 3 - J u n - 8 6 2
0016260 1 : 1 6 " ) 006 001 \r
0016300 \r 006 006
0016320 ( * C o n v e r t s f r o m
0016340 a h u e s a t u r a t i o
0016360 n l i g h t n e s s t r i p
0016400 l e i n t o r e d g r e e
0016420 n b l u e t r i p l e . \r 006
0016440 001 006 006 H U E
0016460 i s i n r a n g e 0 t
0016500 o 3 6 0 , l i g h t n e s s
0016520 a n d s a t u r a t i o n
0016540 a r e i n t h e r a n g e
0016560 0 t o 1 . 0 * ) 006 001 \r
0016600 \r
0016620 006 006 ( * T h i s a l
0016640 g o r i t h m w a s t a k e
0016660 n f r o m s i g g r a p h
0016700 v o l 1 3 n u m b e r 3
0016720 A u g u s t 1 9 7 9 % : S t
0016740 a t u s \r 006 001
0016760 006 006 r e p o r t o n g r
0017000 a p h i c s s t a n d a r d s
0017020 p l a n n i n g c o m m i t
0017040 t e e . \r 006 001
0017060 006 006 * ) 006 001 \r \r ( P R
0017100 O G ( H U E M 1 M 2 R G
0017120 B ) \r ( C O
0017140 N D \r
0017160 ( ( L I S T P H L S ) \r
0017200 ( S E T Q
0017220 H U E ( 006 002 f e t c h 006 001
0017240 ( H L S H U E ) 006 002 o f 006 001
0017260 H L S ) ) \r
0017300 ( S E T Q L I G H T
0017320 N E S S ( 006 002 f e t c h 006 001
0017340 ( H L S L I G H T N E S S )
0017360 006 002 o f 006 001 H L S ) ) \r
0017400 ( S E T Q
0017420 S A T U R A T I O N ( 006 002 f
0017440 e t c h 006 001 ( H L S S A T U
0017460 R A T I O N ) 006 002 o f 006 001 H
0017500 L S ) ) ) \r
0017520 ( T ( S E T Q H U E
0017540 H L S ) ) ) \r
0017560 [ S E T Q M 1 ( C O N D \r
0017600
0017620 ( ( F G R E A T E R
0017640 P 0 . 5 L I G H T N E S S )
0017660 \r
0017700 ( F T I M E S
0017720 L I G H T N E S S ( F P L U S
0017740 1 . 0 S A T U R A T I O N )
0017760 ) ) \r
0020000 ( T ( F D I
0020020 F F E R E N C E ( F P L U S
0020040 L I G H T N E S S S A T U R A
0020060 T I O N ) \r
0020100
0020120 ( F T I M E S L I
0020140 G H T N E S S S A T U R A T I
0020160 O N ] \r ( S
0020200 E T Q M 2 ( F D I F F E R E
0020220 N C E ( F T I M E S 2 . 0
0020240 L I G H T N E S S ) \r
0020260
0020300 M 1 ) ) \r
0020320 [ S E T Q R G B ( 006
0020340 002 c r e a t e 006 001 R G B \r
0020360
0020400 R E D _ (
0020420 006 002 H L S V A L U E F N 006 001 M
0020440 1 M 2 H U E ) \r
0020460
0020500 G R E E N _ ( 006 002
0020520 H L S V A L U E F N 006 001 M 1
0020540 M 2 ( I D I F F E R E N C E
0020560 H U E 1 2 0 ) ) \r
0020600
0020620 B L U E _ ( 006 002 H
0020640 L S V A L U E F N 006 001 M 1 M
0020660 2 ( I D I F F E R E N C E H
0020700 U E 2 4 0 ] \r
0020720 ( R E T U R N R G B ] ) \r
0020740 \r ( 006 004 H L S V A L U E F N 006 001
0020760 \r [ L A M B D A ( M 1 M
0021000 2 H U E ) 006 006 006 001
0021020
*
0021060 006 006 ( * k b r % : " 3
0021100 - J u n - 8 6 2 0 : 4 5 " ) 006
0021120 001 \r \r
0021140 006 006 ( * I n t e
0021160 r n a l v a l u e f u n c t
0021200 i o n f o r c o n v e r t i
0021220 n g f r o m H L S t o R
0021240 G B . \r 006 001
0021260 006 006 * ) 006 001 \r \r ( S E T
0021300 Q H U E ( I M O D H U E
0021320 3 6 0 ) ) \r ( F I X (
0021340 F T I M E S ( C O N D \r
0021360
0021400 ( ( I L E S S P H U E 6 0
0021420 ) \r
0021440 M 1 ) \r
0021460 [
0021500 ( I L E S S P H U E 1 2 0 )
0021520 \r
0021540 ( F P L U S M 1
0021560 ( F T I M E S ( F Q U O T I E
0021600 N T ( F D I F F E R E N C E
0021620 H U E 6 0 ) \r
0021640
*
0021700 6 0 ) \r
0021720
*
0021760 ( F D I F F E R E N C E M 2
0022000 M 1 ] \r
0022020 ( ( I L E S S P
0022040 H U E 2 4 0 ) \r
0022060 M
0022100 2 ) \r
0022120 [ ( I L E S S P
0022140 H U E 3 0 0 ) \r
0022160 ( F
0022200 P L U S M 2 ( F T I M E S
0022220 ( F Q U O T I E N T ( F D I F
0022240 F E R E N C E H U E 2 4 0 )
0022260 \r
0022300
0022320 6
0022340 0 ) \r
0022360
0022400 ( F D I F F E
0022420 R E N C E M 1 M 2 ] \r
0022440
0022460 ( T M 1 ) ) \r
0022500 2 5 5 ] ) \r \r
0022520 ( 006 004 H L S V A L U E F R O M L
0022540 E V E L 006 001 \r [ L A M B D A
0022560 ( H L S L E V E L ) 006 006 006 001
0022600
*
0022640 006 006 ( * r r b
0022660 " 2 5 - O C T - 8 2 1 3 : 2
0022700 6 " ) 006 001 \r
0022720 \r 006 006 ( *
0022740 r e t u r n s t h e s c a l
0022760 e d v a l u e o f t h e
0023000 h l s m a r k e r o n a
0023020 s c a l e f r o m 0 t o
0023040 2 5 5 ) 006 001 \r \r ( S E L
0023060 E C T Q H L S \r
0023100 ( H U E ( I Q U O T I E N T
0023120 ( I T I M E S L E V E L 3
0023140 6 0 ) \r
0023160 2 5 5 ) ) \r
0023200 ( F Q U O T I E N T
0023220 L E V E L 2 5 5 ] ) \r \r ( 006
0023240 004 L E V E L F R O M H L S V A L
0023260 U E 006 001 \r [ L A M B D A (
0023300 H L S L E V E L ) 006 006 006 001
0023320
*
0023360 006 006 ( * r r b "
0023400 2 5 - O C T - 8 2 1 4 : 0 6 "
0023420 ) 006 001 \r \r
0023440 006 006 ( * r e
0023460 t u r n s t h e l e v e l
0023500 o n a s c a l e f r o m
0023520 0 t o 2 5 5 t h a t t h
0023540 i s v a l u e w o u l d h
0023560 a v e . ) 006 001 \r \r ( S E
0023600 L E C T Q H L S \r
0023620 ( H U E ( I Q U O T I E N
0023640 T ( I T I M E S L E V E L
0023660 2 5 5 ) \r
0023700 3 6 0 ) ) \r
0023720 ( F I X ( F T I
0023740 M E S L E V E L 2 5 5 ] ) \r
0023760 \r ( 006 004 R A I N B O W M A P 006 001
0024000 \r [ L A M B D A ( N B I T
0024020 S ) 006 006 006 001
0024040
*
0024100 006 006 ( * r r b " 2 1 - O
0024120 C T - 8 2 1 8 : 1 4 " ) 006 001 \r
0024140 [ O R N B I T S ( N
0024160 U L L ( C O L O R D I S P L A
0024200 Y P ) ) \r ( S E
0024220 T Q N B I T S ( C O L O R M
0024240 A P B I T S ( S C R E E N C O
0024260 L O R M A P ] \r ( C O L
0024300 O R M A P C R E A T E ( C O N
0024320 D \r
0024340 [ ( E Q N B
0024360 I T S 8 ) \r
0024400 (
0024420 P R O G ( M A X I N T E N S I
0024440 T Y M I N V I S I B L E R E D
0024460 M I N V I S I B L E B L U E
0024500 M I N V I S I B L E G R E E N
0024520 N S T E P S \r
0024540
0024560 R E D
0024600 S T E P S I Z E G R E E N S T
0024620 E P S I Z E B L U E S T E P S
0024640 I Z E ) \r
0024660
0024700 ( S E T Q M A X I N T E
0024720 N S I T Y 2 5 5 ) \r
0024740
0024760 ( S E T Q M
0025000 I N V I S I B L E R E D 6 9 )
0025020 \r
0025040 (
0025060 S E T Q M I N V I S I B L E B
0025100 L U E 3 8 ) \r
0025120
0025140 ( S E T Q M I N V
0025160 I S I B L E G R E E N 3 8 ) \r
0025200
0025220 ( S
0025240 E T Q N S T E P S ( I Q U O
0025260 T I E N T ( E X P T 2 N B
0025300 I T S ) \r
0025320
*
0025360 8 ) ) \r
0025400 \r
0025420 006 006 ( * d e t e r m i n e h
0025440 o w m a n y s t e p s a r
0025460 e a v a i l a b l e f o r
0025500 e a c h t r a n s i t i o n
0025520 f r o m o n e c o l o r t
0025540 o \r 006 001 006
0025560 006 t h e n e x t . T h e r e
0025600 a r e 8 s u c h t r a n
0025620 s i t i o n s . r e d u p ,
0025640 g r e e n u p , r e d d
0025660 o w n , b l u e u p , \r 006
0025700 001 006 006 g r e
0025720 e n d o w n , r e d u p ,
0025740 g r e e n u p , a l l d
0025760 o w n ) 006 001 \r
0026000 \r 006 006 ( *
0026020 m i n i m u m v i s i b l e
0026040 i n t e n s i t y v a l u e
0026060 s w e r e e m p e r i c a l
0026100 l y d e t e r m i n e d b u
0026120 t w i l l d i f f e r \r 006
0026140 001 006 006 d e p
0026160 e n d i n g u p o n t h e
0026200 b r i g h t n e s s s e t t i
0026220 n g o f t h e i n d i v i
0026240 d u a l d i s p l a y . \r 006 001
0026260 006 006 T h e y
0026300 a r e a l s o d i d d l e
0026320 d t o m a k e t h e n u
0026340 m e r o f s t e p s c o m
0026360 e o u t r i g h t . ) 006 001 \r
0026400 \r
0026420 (
0026440 R E T U R N ( N C O N C ( 006
0026460 002 f o r 006 001 I 006 002 f r o m 006
0026500 001 M I N V I S I B L E R E D
0026520 006 002 t o 006 001 M A X I N T E N S
0026540 I T Y \r
0026560
*
0026620 006 002 b y 006 001 ( S E T Q
0026640 R E D S T E P S I Z E ( I Q
0026660 U O T I E N T ( I P L U S (
0026700 I D I F F E R E N C E \r
0026720
*
0027040 M A X I N T E N S I T Y
0027060 \r
0027100
*
0027200 M I N V I S
0027220 I B L E R E D \r
0027240
*
0027360 ) \r
0027400
*
0027500 N S T E P S
0027520 - 2 ) \r
0027540
*
0027640 N S T E P S ) ) \r
0027660
*
0027720 006 002 c o l l e
0027740 c t 006 001 006 006 ( * r
0027760 e d u p ) 006 001 \r
0030000
*
0030040 (
0030060 L I S T I 0 0 ) ) \r
0030100
*
0030140 ( 006 002 f o r
0030160 006 001 I 006 002 f r o m 006 001 M I
0030200 N V I S I B L E G R E E N 006 002
0030220 t o 006 001 M A X I N T E N S I T
0030240 Y \r
0030260
*
0030320 006 002 b y 006 001 ( S E T Q G
0030340 R E E N S T E P S I Z E ( I Q
0030360 U O T I E N T ( I P L U S (
0030400 I D I F F E R E N C E \r
0030420
*
0030540 \r
0030560
*
0030700 M A X I N T E N S I T Y \r
0030720
*
0031040 M I N V I S I B L E G R
0031060 E E N \r
0031100
*
0031200 ) \r
0031220
*
0031340 - 1 N S T E
0031360 P S ) \r
0031400
*
0031500 N S T E P S ) ) \r
0031520
*
0031560 006 002 c o l
0031600 l e c t 006 001 006 006 ( *
0031620 G R E E N U P ) 006 001 \r
0031640
*
0031720 ( L I S T 2 5 5 I 0
0031740 ) ) \r
0031760
*
0032020 ( 006 002 f o r 006 001 I 006 002 f r o
0032040 m 006 001 R E D S T E P S I Z E
0032060 006 002 t o 006 001 ( I D I F F E R E
0032100 N C E M A X I N T E N S I T Y
0032120 \r
0032140
*
0032240 M I N V I S I B L E R E D ) \r
0032260
*
0032340 006 002 b y 006 001 R E D S T E P S I
0032360 Z E 006 002 c o l l e c t 006 001 \r
0032400
*
0032460 006 006 (
0032500 * r e d d o w n ) 006 001 \r
0032520
*
0032620 ( L I S T ( I D I F F E
0032640 R E N C E M A X I N T E N S I
0032660 T Y \r
0032700
*
0033000 I ) \r
0033020
*
0033120 2 5 5 0 ) ) \r
0033140
*
0033200 ( C O N S '
0033220 ( 0 2 5 5 0 ) ) \r
0033240
*
0033300 ( 006 002 f o r 006 001
0033320 I 006 002 f r o m 006 001 M I N V
0033340 I S I B L E B L U E 006 002 t o 006
0033360 001 M A X I N T E N S I T Y \r
0033400
*
0033440 006
0033460 002 b y 006 001 ( S E T Q B L U E
0033500 S T E P S I Z E ( I Q U O T I
0033520 E N T ( I P L U S ( I D I F
0033540 F E R E N C E \r
0033560
*
0033700 M A X I N T E N S I T Y \r
0033720
*
0034040 M I N V I S I B L E
0034060 B L U E \r
0034100
*
0034200 ) \r
0034220
*
0034340 - 1 N S T E P
0034360 S ) \r
0034400
*
0034500 N S T E P S ) ) \r
0034520
*
0034560 006 002 c o l l e
0034600 c t 006 001 006 006 ( * B
0034620 L U E U P ) 006 001 \r
0034640
*
0034720 ( L I S T 0 2 5 5 I ) ) \r
0034740
*
0035000 ( 006 002
0035020 f o r 006 001 I 006 002 f r o m 006 001
0035040 G R E E N S T E P S I Z E 006
0035060 002 t o 006 001 ( I D I F F E R E N
0035100 C E M A X I N T E N S I T Y
0035120 \r
0035140
*
0035240 M I N V I S I B L E G R E E
0035260 N ) \r
0035300
*
0035340 006 002 b y 006 001 G R E E N S
0035360 T E P S I Z E 006 002 c o l l e c
0035400 t 006 001 \r
0035420
*
0035500 006 006 ( * G R E E N d o w
0035520 n ) 006 001 \r
0035540
*
0035620 ( L I S
0035640 T 0 ( I D I F F E R E N C E
0035660 \r
0035700
*
0036000 M A X I N T E N
0036020 S I T Y I ) \r
0036040
*
0036140 2 5 5 ) ) \r
0036160
*
0036220 ( C O N S ' (
0036240 0 0 2 5 5 ) ) \r
0036260
*
0036320 ( 006 002 f o r 006 001
0036340 I 006 002 f r o m 006 001 M I N V I
0036360 S I B L E R E D 006 002 t o 006 001
0036400 M A X I N T E N S I T Y 006 002 b
0036420 y 006 001 R E D S T E P S I Z E \r
0036440
*
0036520 006 002 c o l l e c t 006 001
0036540 006 006 ( * r e d u p ) 006 001 \r
0036560
*
0036640 ( L I S T I 0
0036660 2 5 5 ) ) \r
0036700
*
0036740 ( 006 002 f o r 006 001 I 006 002
0036760 f r o m 006 001 M I N V I S I B L
0037000 E G R E E N 006 002 t o 006 001 M A
0037020 X I N T E N S I T Y 006 002 b y 006
0037040 001 \r
0037060
*
0037160 G R E E N
0037200 S T E P S I Z E \r
0037220
*
0037260 006 002 c o l l e
0037300 c t 006 001 006 006 ( * G
0037320 R E E N U P ) 006 001 \r
0037340
*
0037420 ( L I S T 2 5 5 I 2 5 5
0037440 ) ) \r
0037460
*
0037520 ( 006 002 f o r 006 001 I 006 002 f r o
0037540 m 006 001 G R E E N S T E P S I Z
0037560 E 006 002 t o 006 001 ( I D I F F E
0037600 R E N C E M A X I N T E N S I
0037620 T Y \r
0037640
*
0037740 M I N V I S I B L E G
0037760 R E E N ) \r
0040000
*
0040040 006 002 b y 006 001 G R E
0040060 E N S T E P S I Z E 006 002 c o l
0040100 l e c t 006 001 \r
0040120
*
0040200 006 006 ( * a l l d o
0040220 w n ) 006 001 \r
0040240
*
0040320 ( L I
0040340 S T ( I D I F F E R E N C E
0040360 \r
0040400
*
0040500 M A X I N T E N S I T
0040520 Y I ) \r
0040540
*
0040640 ( I D I F F E R E N C E \r
0040660
*
0041000 M A X I N T E N S I T Y
0041020 I ) \r
0041040
*
0041140 ( I D I F F E R E N C E \r
0041160
*
0041300 M A X I N T E N S I T Y
0041320 I ) ) ) \r
0041340
*
0041400 ( C O N S ' ( 0 0 0 ]
0041420 \r
0041440 ( T R A I N B
0041460 O W I N T E N S I T I E S ) ) \r
0041500 N B I T S
0041520 ] ) \r \r ( 006 004 R G B T O H L S 006
0041540 001 \r [ L A M B D A ( R G B
0041560 G R E E N B L U E ) 006 006 006 001
0041600
*
0041640 006 006 ( * k b r % : "
0041660 3 - J u n - 8 6 2 0 : 1 3 " )
0041700 006 001 \r \r
0041720 006 006 ( * C o n
0041740 v e r t s f r o m a r e d
0041760 g r e e n b l u e t r i p
0042000 l e o f c o l o r i n f o
0042020 r m a t i o n i n t o a h
0042040 u e \r 006 001
0042060 006 006 l i g h t n e s s s a t u
0042100 r a t i o n t r i p l e . *
0042120 ) 006 001 \r \r
0042140 006 006 ( * T h
0042160 i s a l g o r i t h m w a s
0042200 t a k e n f r o m P r o c
0042220 e d u r a l E l e m e n t s
0042240 f o r C o m p u t e r G r a
0042260 p h i c s 1 9 8 5 \r 006 001
0042300 006 006 p a g e 4
0042320 0 5 b y D a v i d F . R
0042340 o g e r s * ) 006 001 \r \r
0042360 ( P R O G ( R E D C R C G
0042400 C B M 1 M 2 L I G H T N
0042420 E S S H L S ) \r
0042440 ( C O N D \r
0042460 ( ( L I S T P R G
0042500 B ) \r
0042520 ( S E T Q R E D ( 006 002 f e
0042540 t c h 006 001 ( R G B R E D )
0042560 006 002 o f 006 001 R G B ) ) \r
0042600 ( S E T Q
0042620 G R E E N ( 006 002 f e t c h 006
0042640 001 ( R G B G R E E N ) 006 002
0042660 o f 006 001 R G B ) ) \r
0042700 ( S E T Q B
0042720 L U E ( 006 002 f e t c h 006 001 (
0042740 R G B B L U E ) 006 002 o f 006 001
0042760 R G B ) ) ) \r
0043000 ( T ( S E T Q R E
0043020 D R G B ) ) ) \r
0043040 ( S E T Q M 1 ( M A X
0043060 R E D G R E E N B L U E )
0043100 ) \r ( S E T
0043120 Q M 2 ( M I N R E D G R
0043140 E E N B L U E ) ) \r
0043160 ( S E T Q L I G H T
0043200 N E S S ( F Q U O T I E N T
0043220 ( F P L U S ( F Q U O T I E N
0043240 T M 1 2 5 5 ) \r
0043260
*
0043320 ( F Q U O T I E N T
0043340 M 2 2 5 5 ) ) \r
0043360
0043400 2 ) ) \r
0043420 [ S E T Q H
0043440 L S ( C O N D \r
0043460
0043500 ( ( E Q M 1 M 2 ) \r
0043520
0043540 ( 006 002 c r e a t e 006 001
0043560 H L S \r
0043600
0043620 H U E _ 0 \r
0043640
0043660 L I G H T N
0043700 E S S _ L I G H T N E S S \r
0043720
0043740 S
0043760 A T U R A T I O N _ 0 . 0 )
0044000 ) \r
0044020 ( T ( S E T
0044040 Q C R ( F Q U O T I E N T
0044060 ( I D I F F E R E N C E M 1
0044100 R E D ) \r
0044120
0044140 (
0044160 I D I F F E R E N C E M 1 M
0044200 2 ) ) ) \r
0044220 (
0044240 S E T Q C G ( F Q U O T I E
0044260 N T ( I D I F F E R E N C E
0044300 M 1 G R E E N ) \r
0044320
*
0044360 ( I D I F F E R E N C E
0044400 M 1 M 2 ) ) ) \r
0044420
0044440 ( S E T Q C B ( F Q
0044460 U O T I E N T ( I D I F F E R
0044500 E N C E M 1 B L U E ) \r
0044520
*
0044560 ( I D I F F E R
0044600 E N C E M 1 M 2 ) ) ) \r
0044620
0044640 ( 006 002 c r e a t
0044660 e 006 001 H L S \r
0044700
0044720 H U E _ (
0044740 I M O D ( F I X ( F T I M E
0044760 S [ C O N D \r
0045000
*
0045060 ( ( E Q M 1 R E D
0045100 ) \r
0045120
*
0045200 ( F D I F F E R E N C E C B
0045220 C G ) ) \r
0045240
*
0045320 ( ( E Q M 1 G R E E N )
0045340 \r
0045360
*
0045420 (
0045440 F P L U S 2 . 0 ( F D I F F
0045460 E R E N C E C R C B ) ) ) \r
0045500
*
0045560 ( T
0045600 ( F P L U S 4 . 0 ( F D I F
0045620 F E R E N C E C G C R ] \r
0045640
*
0045720 6 0 . 0 ) ) \r
0045740
*
0046000 3 6 0 )
0046020 \r
0046040
0046060 L I G H T N E S S _ L I
0046100 G H T N E S S \r
0046120
0046140 S A T U R A T
0046160 I O N _ ( C O N D \r
0046200
*
0046240 ( ( F
0046260 G R E A T E R P 0 . 5 L I G
0046300 H T N E S S ) \r
0046320
*
0046360 ( F Q U O T
0046400 I E N T ( I D I F F E R E N C
0046420 E M 1 M 2 ) \r
0046440
*
0046520 ( I P L U S M 1 M 2 ) )
0046540 ) \r
0046560
*
0046620 ( T ( F Q U O T I E N T
0046640 ( I D I F F E R E N C E M 1
0046660 M 2 ) \r
0046700
*
0046760 ( I D I F F E R E N C E ( I T
0047000 I M E S 2 2 5 5 ) \r
0047020
*
0047100 ( I
0047120 P L U S M 1 M 2 ] \r
0047140 ( R E T U R N H L
0047160 S ] ) \r ) \r ( D E F I N E Q \r \r
0047200 ( 006 004 O V E R P A I N T 006 001 \r
0047220 [ L A M B D A ( B M 1 B M
0047240 2 X Y T X T S C R ) 006 006
0047260 006 001
0047300
0047320 006 006 ( * k b r % : " 2 - S
0047340 e p - 8 5 2 0 : 3 0 " ) 006 001 \r
0047360 \r
0047400 006 006 ( * U s e s B
0047420 M 1 a s a m a s k t h r
0047440 u w h i c h i t p a i n t
0047460 s t h e I N V E R S E o f
0047500 t e x t u r e o n t o B M
0047520 2 a t \r 006 001
0047540 006 006 p o s i t i o n X Y
0047560 ) 006 001 \r \r ( P R O G (
0047600 B M W B M H ) \r
0047620 ( S E T Q B M W ( B I
0047640 T M A P W I D T H B M 1 ) ) \r
0047660 ( S E T Q
0047700 B M H ( B I T M A P H E I G H
0047720 T B M 1 ) ) \r
0047740 ( O R S C R ( S E T Q
0047760 S C R ( B I T M A P C O P Y
0050000 B M 1 ) ) )
0050020 006 006 ( * W e n e e
0050040 d a s c r a t c h B M . \r
0050060 006 001
0050100
*
0050140 006
0050160 006 M o s t d e m o s c a c h
0050200 e o n e ) 006 001 \r
0050220 ( B I T B L T B M 1 0
0050240 0 S C R 0 0 B M W B
0050260 M H ' I N P U T ' R E P L A
0050300 C E ) \r ( B
0050320 I T B L T N I L N I L N I
0050340 L S C R 0 0 B M W B M
0050360 H ' T E X T U R E ' E R A S
0050400 E T X T ) \r
0050420 ( B I T B L T B M 1 0 0
0050440 B M 2 X Y B M W B M H
0050460 ' I N P U T ' E R A S E ) \r
0050500 ( B I T B L
0050520 T S C R 0 0 B M 2 X
0050540 Y B M W B M H ' I N P U T
0050560 ' P A I N T ] ) \r \r ( 006 004 B I
0050600 T M A P F R O M S T R I N G 006 001
0050620 \r [ L A M B D A ( S T R I
0050640 N G F O N T B I T S P E R P
0050660 I X E L ) 006 006 006 001
0050700
0050720 006 006 ( * k b r % : " 1 1
0050740 - A u g - 8 5 1 6 : 1 4 " ) 006
0050760 001 \r ( P R O G ( B I T
0051000 M A P D S ) \r
0051020 ( S E T Q B I T M A P (
0051040 B I T M A P C R E A T E ( S T
0051060 R I N G W I D T H S T R I N G
0051100 F O N T ) \r
0051120
0051140 ( F O N T P R O P F
0051160 O N T ' H E I G H T ) \r
0051200
0051220 B I T S P
0051240 E R P I X E L ) ) \r
0051260 ( S E T Q D S ( D S
0051300 P C R E A T E B I T M A P ) )
0051320 \r ( D S P F
0051340 O N T F O N T D S ) \r
0051360 ( M O V E T O 0
0051400 ( F O N T P R O P F O N T
0051420 ' D E S C E N T ) \r
0051440 D S ) \r
0051460 ( P R I N 3
0051500 S T R I N G D S ) \r
0051520 ( R E T U R N B I T
0051540 M A P ] ) \r \r ( 006 004 S H A D E B
0051560 I T M A P 006 001 \r [ L A M B D
0051600 A ( B M T 0 T 1 ) 006 006 006 001
0051620
*
0051660 006 006 ( * b a
0051700 s % : " 2 5 - A P R - 8 2 1
0051720 5 : 0 2 " ) 006 001 \r
0051740 \r 006 006
0051760 ( * S h a d e s b i t m a p
0052000 B M w i t h T 0 i n t o
0052020 0 a r e a s a n d T 1
0052040 i n t o 1 a r e a s ) 006 001 \r
0052060 \r ( B I T B L T N I L
0052100 N I L N I L B M N I L
0052120 N I L N I L N I L ' T E X
0052140 T U R E ' I N V E R T ( L O
0052160 G A N D T 0 ( L O G X O R
0052200 T 0 T 1 ) ) ) \r ( B I
0052220 T B L T N I L N I L N I L
0052240 B M N I L N I L N I L
0052260 N I L ' T E X T U R E ' P A
0052300 I N T ( L O G A N D T 0 T
0052320 1 ) ) \r ( B I T B L T
0052340 N I L N I L N I L B M N
0052360 I L N I L N I L N I L '
0052400 T E X T U R E ' E R A S E (
0052420 L O G X O R ( L O G O R T 0
0052440 T 1 ) \r
0052460
*
0052540 6 5 5 3 5 ] ) \r )
0052560 \r \r ( R P A Q ? 006 002 E D I T C
0052600 O L O R M A P . W I N D O W 006 001
0052620 N I L ) \r ( D E F I N E Q \r \r
0052640 ( 006 004 E D I T C O L O R M A P 006
0052660 001 \r [ L A M B D A N I L 006
0052700 006 006 001
0052720
*
0052760 006 006 ( * k b r % : "
0053000 5 - J u n - 8 6 2 2 : 4 9 " )
0053020 006 001 \r
0053040
*
0053120 006 006 ( * C o l o r m a p E d
0053140 i t o r . L e t ' s u s e r
0053160 \r 006 001
0053200
*
0053260 006 006 i n t e r a c t i v e l y
0053300 a d j u s t c o l o r m a p
0053320 . \r 006 001
0053340
*
0053420 006 006 * ) 006 001 \r ( P R O
0053440 G ( X P O S R E D R E G I O
0053460 N G R E E N R E G I O N B L
0053500 U E R E G I O N H U E R E G I
0053520 O N L I G H T N E S S R E G I
0053540 O N S A T U R A T I O N R E G
0053560 I O N B O T T O M ) \r
0053600 ( C O N D \r
0053620 ( ( N U L L
0053640 E D I T C O L O R M A P . W I N
0053660 D O W ) \r
0053700 ( S E T Q E D I T C O L
0053720 O R M A P . W I N D O W ( C R
0053740 E A T E W ( G E T B O X R E G
0053760 I O N E d i t C o l o r M a p
0054000 W i d t h E d i t C o l o r M
0054020 a p H e i g h t \r
0054040
*
0054120 N I L N I L N I L \r
0054140
*
0054220 " S e l e c t l
0054240 o c a t i o n o f C o l o r
0054260 m a p E d i t o r w i n d o
0054300 w . " ) \r
0054320
*
0054360 " C o l o r m a p E d
0054400 i t o r " ) ) \r
0054420 ( C L R P R O M P T
0054440 ) \r
0054460 ( W I N D O W P R O P E D I T
0054500 C O L O R M A P . W I N D O W
0054520 ' B U T T O N E V E N T F N '
0054540 E D I T C O L O R M A P . B U T
0054560 T O N E V E N T F N ) \r
0054600 ( W I N D O
0054620 W P R O P E D I T C O L O R M
0054640 A P . W I N D O W ' R E P A I
0054660 N T F N ' E D I T C O L O R M
0054700 A P . R E D I S P L A Y F N ) \r
0054720 ( W
0054740 I N D O W P R O P E D I T C O
0054760 L O R M A P . W I N D O W ' C
0055000 O L O R 0 ) ) \r
0055020 ( T ( C L E A R W
0055040 E D I T C O L O R M A P . W I
0055060 N D O W ) ) ) \r
0055100 ( R E D I S P L A Y W E D
0055120 I T C O L O R M A P . W I N D O
0055140 W ] ) \r \r ( 006 004 E D I T C O L O
0055160 R M A P . B U T T O N E V E N T
0055200 F N 006 001 \r [ L A M B D A (
0055220 W I N D O W ) 006 006 006 001
0055240
*
0055300 006 006 ( * k b r % :
0055320 " 4 - J u n - 8 6 2 1 : 2
0055340 1 " ) 006 001 \r
0055360 \r 006 006 ( *
0055400 C o l o r m a p e d i t o r .
0055420 D i s p l a y s a c o l o
0055440 r m a p i n a w i n d o w
0055460 a n d a l l o w s t h e
0055500 u s e r t o \r 006 001
0055520 006 006 c h a n g e i t
0055540 . * ) 006 001 \r \r ( P R O
0055560 G ( R E D R E G I O N G R E
0055600 E N R E G I O N B L U E R E G
0055620 I O N H U E R E G I O N L I
0055640 G H T N E S S R E G I O N S A
0055660 T U R A T I O N R E G I O N B
0055700 O T T O M C O L O R \r
0055720 C O
0055740 L O R M A P L E V E L L A S
0055760 T X L A S T Y H L S O L D
0056000 L E V E L C O M P O N E N T )
0056020 \r ( P R O G
0056040 N ( S E T Q R E D R E G I O
0056060 N ( W I N D O W P R O P W I
0056100 N D O W ' R E D R E G I O N )
0056120 ) \r
0056140 ( S E T Q G R E E N R E
0056160 G I O N ( W I N D O W P R O P
0056200 W I N D O W ' G R E E N R E
0056220 G I O N ) ) \r
0056240 ( S E T Q B L
0056260 U E R E G I O N ( W I N D O W
0056300 P R O P W I N D O W ' B L U
0056320 E R E G I O N ) ) \r
0056340 ( S E T Q
0056360 H U E R E G I O N ( W I N D
0056400 O W P R O P W I N D O W ' H
0056420 U E R E G I O N ) ) \r
0056440 ( S E T
0056460 Q L I G H T N E S S R E G I O
0056500 N ( W I N D O W P R O P W I
0056520 N D O W ' L I G H T N E S S R
0056540 E G I O N ) ) \r
0056560 ( S E T Q S
0056600 A T U R A T I O N R E G I O N
0056620 ( W I N D O W P R O P W I N D
0056640 O W ' S A T U R A T I O N R E
0056660 G I O N ) ) \r
0056700 ( S E T Q B O
0056720 T T O M ( 006 002 f e t c h 006 001
0056740 ( R E G I O N B O T T O M )
0056760 006 002 o f 006 001 R E D R E G I O N
0057000 ) ) ) \r ( S
0057020 E T Q C O L O R ( W I N D O
0057040 W P R O P W I N D O W ' C O
0057060 L O R ) ) \r
0057100 ( S E T Q C O L O R M A P (
0057120 S C R E E N C O L O R M A P ) )
0057140 \r ( C O N D
0057160 \r [ (
0057200 L A S T M O U S E S T A T E M
0057220 I D D L E ) \r
0057240 ( C O N D \r
0057260 ( ( N U
0057300 M B E R P ( S E T Q L E V E
0057320 L ( 006 002 G E T C O L O R # F R
0057340 O M U S E R 006 001 ) ) ) \r
0057360 ( W
0057400 I N D O W P R O P W I N D O W
0057420 ' C O L O R L E V E L ) \r
0057440
0057460 ( R E D I S P L A Y W W I N
0057500 D O W ] \r
0057520 ( ( L A S T M O U S E S T A
0057540 T E L E F T ) \r
0057560 ( S E T Q L A S
0057600 T X ( L A S T M O U S E X W
0057620 I N D O W ) ) \r
0057640 ( S E T Q L A S T
0057660 Y ( L A S T M O U S E Y W I
0057700 N D O W ) ) \r
0057720 ( C O N D \r
0057740 ( [ S E
0057760 T Q C O M P O N E N T ( C O
0060000 N D \r
0060020
0060040 ( ( I N S I D E
0060060 P R E D R E G I O N L A S T
0060100 X L A S T Y ) \r
0060120
0060140 '
0060160 R E D ) \r
0060200
0060220 ( ( I N S I
0060240 D E P G R E E N R E G I O N
0060260 L A S T X L A S T Y ) \r
0060300
*
0060340 ' G R E E N ) \r
0060360
*
0060420 ( ( I N S I D E P B L U E R E
0060440 G I O N L A S T X L A S T Y
0060460 ) \r
0060500
0060520 ' B L U E ) \r
0060540
*
0060600 ( ( I N S I D E P H U
0060620 E R E G I O N L A S T X L A
0060640 S T Y ) \r
0060660
0060700 ' H U E )
0060720 \r
0060740
0060760 ( ( I N S I D E P
0061000 L I G H T N E S S R E G I O N
0061020 L A S T X L A S T Y ) \r
0061040
*
0061100 ' L I G H T N E S S ) \r
0061120
*
0061160 ( ( I N S I D E P S A
0061200 T U R A T I O N R E G I O N L
0061220 A S T X L A S T Y ) \r
0061240
*
0061300 ' S A T U R A T I O N ] \r
0061320
0061340 ( S E T Q O L D L E V E L
0061360 ( W I N D O W P R O P W I N D
0061400 O W C O M P O N E N T ) ) \r
0061420
0061440 ( 006 002 u n t i l 006 001 ( M O U
0061460 S E S T A T E ( N O T L E F
0061500 T ) ) 006 002 d o 006 001 \r
0061520 \r
0061540 006 006 ( * A s l o n g a s
0061560 L E F T i s d o w n , a
0061600 d j u s t t h e c o l o r .
0061620 \r 006 001 006 006 *
0061640 ) 006 001 \r \r
0061660
*
0061720 [ S E T Q L
0061740 E V E L ( I M I N 2 5 5 (
0061760 I M A X 0 ( I D I F F E R E
0062000 N C E \r
0062020
*
0062120 ( L A S T M O U S
0062140 E Y W I N D O W \r
0062160
*
0062300 ) \r
0062320
*
0062420 B O T T O M ]
0062440 \r
0062460
*
0062520 ( C O N D \r
0062540
*
0062620 ( ( N O T ( E Q L E V E
0062640 L O L D L E V E L ) ) \r
0062660
*
0062740 ( 006 002 C H A N G E C O
0062760 L O R L E V E L S 006 001 W I N D
0063000 O W C O M P O N E N T L E V
0063020 E L ) \r
0063040
*
0063100 [ S C R
0063120 E E N C O L O R M A P E N T R Y
0063140 \r
0063160
*
0063220 C O L O R \r
0063240
*
0063320 ( 006 002 c r e a
0063340 t e 006 001 R G B \r
0063360
*
0063440 R E D _ (
0063460 W I N D O W P R O P W I N D O
0063500 W ' R E D ) \r
0063520
*
0063600 G R E E N _
0063620 ( W I N D O W P R O P W I N D
0063640 O W \r
0063660
*
0063760 ' G R E E N ) \r
0064000
*
0064060 B L U E _
0064100 ( W I N D O W P R O P W I N
0064120 D O W \r
0064140
*
0064240 ' B L U E ] \r
0064260
*
0064340 ( S E T Q O L D L E V E L
0064360 L E V E L ] ) \r \r ( 006 004 E D I T
0064400 C O L O R M A P . R E D I S P L
0064420 A Y F N 006 001 \r [ L A M B D A
0064440 ( W I N D O W ) 006 006 006 001
0064460
*
0064520 006 006 ( * k b r
0064540 % : " 4 - J u n - 8 6 2 0
0064560 : 4 6 " ) 006 001 \r
0064600
*
0064660 006 006 ( * C o l o r m
0064700 a p E d i t o r . L e t ' s
0064720 u s e r \r 006 001
0064740
*
0065020 006 006 i n t e r a c t
0065040 i v e l y a d j u s t c o l
0065060 o r m a p . \r 006 001
0065100
*
0065160 006 006 * ) 006 001 \r
0065200 ( P R O G ( X P O S R E D
0065220 R E G I O N G R E E N R E G I
0065240 O N B L U E R E G I O N H U
0065260 E R E G I O N L I G H T N E S
0065300 S R E G I O N S A T U R A T I
0065320 O N R E G I O N B O T T O M
0065340 \r
0065360 C O L O R M A P C O L O R )
0065400 \r ( C L E A
0065420 R W W I N D O W ) \r
0065440 ( P R O G N ( M O V
0065460 E T O 3 5 4 W I N D O W )
0065500 \r
0065520 ( P R I N 1 " R E D " W
0065540 I N D O W ) \r
0065560 ( S E T Q R E
0065600 D R E G I O N ' ( 4 0 1 6
0065620 1 0 2 5 6 ) ) \r
0065640 ( 006 002 O U T
0065660 L I N E R E G I O N 006 001 R E D
0065700 R E G I O N 2 N I L W I N
0065720 D O W ) \r
0065740 ( W I N D O W P R O
0065760 P W I N D O W ' R E D R E G
0066000 I O N R E D R E G I O N ) ) \r
0066020 ( P R O G N
0066040 ( M O V E T O 7 0 4 W I
0066060 N D O W ) \r
0066100 ( P R I N 1 " G
0066120 R E E N " W I N D O W ) \r
0066140 (
0066160 S E T Q G R E E N R E G I O N
0066200 ' ( 8 2 1 6 1 0 2 5 6 )
0066220 ) \r
0066240 ( 006 002 O U T L I N E R E G
0066260 I O N 006 001 G R E E N R E G I O
0066300 N 2 N I L W I N D O W ) \r
0066320
0066340 ( W I N D O W P R O P W I N
0066360 D O W ' G R E E N R E G I O N
0066400 G R E E N R E G I O N ) ) \r
0066420 ( P R O G N
0066440 ( M O V E T O 1 1 9 4 W I
0066460 N D O W ) \r
0066500 ( P R I N 1 " B
0066520 L U E " W I N D O W ) \r
0066540 ( S
0066560 E T Q B L U E R E G I O N '
0066600 ( 1 2 8 1 6 1 0 2 5 6 ) )
0066620 \r
0066640 ( 006 002 O U T L I N E R E G I
0066660 O N 006 001 B L U E R E G I O N
0066700 2 N I L W I N D O W ) \r
0066720 (
0066740 W I N D O W P R O P W I N D O
0066760 W ' B L U E R E G I O N B L
0067000 U E R E G I O N ) ) \r
0067020 ( P R O G N ( M O V
0067040 E T O 1 8 1 4 W I N D O W
0067060 ) \r
0067100 ( P R I N 1 " H U E "
0067120 W I N D O W ) \r
0067140 ( S E T Q H
0067160 U E R E G I O N ' ( 1 8 6 1
0067200 6 1 0 2 5 6 ) ) \r
0067220 ( 006 002 O
0067240 U T L I N E R E G I O N 006 001 H
0067260 U E R E G I O N 2 N I L W
0067300 I N D O W ) \r
0067320 ( W I N D O W P
0067340 R O P W I N D O W ' H U E R
0067360 E G I O N H U E R E G I O N )
0067400 ) \r ( P R O
0067420 G N ( M O V E T O 2 1 6 4
0067440 W I N D O W ) \r
0067460 ( P R I N 1
0067500 " L I G H T N E S S " W I N
0067520 D O W ) \r
0067540 ( S E T Q L I G H
0067560 T N E S S R E G I O N ' ( 2 4
0067600 2 1 6 1 0 2 5 6 ) ) \r
0067620 (
0067640 006 002 O U T L I N E R E G I O N 006
0067660 001 L I G H T N E S S R E G I O
0067700 N 2 N I L W I N D O W ) \r
0067720
0067740 ( W I N D O W P R O P W I N
0067760 D O W ' L I G H T N E S S R E
0070000 G I O N L I G H T N E S S R E
0070020 G I O N ) ) \r
0070040 ( P R O G N ( M O V E T O
0070060 3 0 0 4 W I N D O W ) \r
0070100 (
0070120 P R I N 1 " S A T " W I N D
0070140 O W ) \r
0070160 ( S E T Q S A T U R
0070200 A T I O N R E G I O N ' ( 3 0
0070220 5 1 6 1 0 2 5 6 ) ) \r
0070240 (
0070260 006 002 O U T L I N E R E G I O N 006
0070300 001 S A T U R A T I O N R E G I
0070320 O N 2 N I L W I N D O W )
0070340 \r
0070360 ( W I N D O W P R O P W I
0070400 N D O W ' S A T U R A T I O N
0070420 R E G I O N S A T U R A T I O
0070440 N R E G I O N ) ) \r
0070460 ( P R O G N ( S E T Q
0070500 C O L O R M A P ( S C R E E
0070520 N C O L O R M A P ) ) \r
0070540 ( S E
0070560 T Q C O L O R ( W I N D O W
0070600 P R O P W I N D O W ' C O L
0070620 O R ) ) \r
0070640 ( M O V E T O 8
0070660 2 5 0 W I N D O W ) \r
0070700 ( p r
0070720 i n t o u t W I N D O W | .
0070740 I 3 | C O L O R ) \r
0070760 ( 006 002 D
0071000 I S P L A Y C O L O R L E V E L
0071020 S 006 001 W I N D O W ( E L T
0071040 C O L O R M A P C O L O R ] )
0071060 \r \r ( 006 004 E D I T C O L O R M A
0071100 P . V A L U E L E V E L 006 001 \r
0071120 [ L A M B D A ( C O M P O N
0071140 E N T W I N D O W L E V E L )
0071160 006 006 006 001
0071200
0071220 006 006 ( * k b r % : " 3 - J
0071240 u n - 8 6 1 9 : 5 5 " ) 006 001 \r
0071260 \r
0071300 006 006 ( * * V a l u
0071320 e t h a t w o u l d b e
0071340 s t o r e d i n a n R G B
0071360 o r H L S c o r r e s p o
0071400 n d i n g t o W I N D O W L
0071420 E V E L . \r 006 001
0071440 006 006 * ) 006 001 \r \r ( S
0071460 E L E C T Q C O M P O N E N T
0071500 \r ( H U E ( I
0071520 Q U O T I E N T ( I T I M E S
0071540 W I N D O W L E V E L 3 6 0
0071560 ) \r
0071600 2 5 5 ) ) \r
0071620 ( ( L I G H T N E S S
0071640 S A T U R A T I O N ) \r
0071660 ( F Q U O T
0071700 I E N T W I N D O W L E V E L
0071720 2 5 5 ) ) \r (
0071740 ( R E D G R E E N B L U E )
0071760 \r W
0072000 I N D O W L E V E L ) \r
0072020 ( S H O U L D N T ] ) \r
0072040 \r ( 006 004 E D I T C O L O R M A P
0072060 . W I N D O W L E V E L 006 001 \r
0072100 [ L A M B D A ( C O M P O N
0072120 E N T V A L U E L E V E L ) 006
0072140 006 006 001
0072160
0072200 006 006 ( * k b r % : " 3 - J
0072220 u n - 8 6 1 9 : 5 5 " ) 006 001 \r
0072240 \r
0072260 006 006 ( * * G i v e
0072300 n V A L U E L E V E L o f
0072320 a n R G B o r H L S , w
0072340 h a t W I N D O W L E V E L
0072360 s h o u l d b e u s e d t
0072400 o \r 006 001 006
0072420 006 d i s p l a y i t ? * ) 006
0072440 001 \r \r ( S E L E C T Q
0072460 C O M P O N E N T \r
0072500 ( H U E ( I Q U O T I E N
0072520 T ( I T I M E S V A L U E L
0072540 E V E L 2 5 5 ) \r
0072560 3 6
0072600 0 ) ) \r ( ( L I
0072620 G H T N E S S S A T U R A T I
0072640 O N ) \r
0072660 ( F I X ( F T I M E S V
0072700 A L U E L E V E L 2 5 5 ) ) )
0072720 \r ( ( R E D G
0072740 R E E N B L U E ) \r
0072760 V A L U E L E
0073000 V E L ) \r ( S H
0073020 O U L D N T ] ) \r \r ( 006 004 C H A
0073040 N G E C O L O R L E V E L S 006 001
0073060 \r [ L A M B D A ( W I N D
0073100 O W C O M P O N E N T W I N
0073120 D O W L E V E L ) 006 006 006 001
0073140
0073160 006 006 ( * k b r % : " 3
0073200 - J u n - 8 6 1 9 : 5 5 " ) 006
0073220 001 \r ( P R O G ( R G B
0073240 H L S ) \r
0073260 ( 006 002 D I S P L A Y C O L O R L
0073300 E V E L 006 001 W I N D O W C O
0073320 M P O N E N T ( 006 002 E D I T C
0073340 O L O R M A P . V A L U E L E V
0073360 E L 006 001 C O M P O N E N T W
0073400 I N D O W L E V E L ) \r
0073420 W I N
0073440 D O W L E V E L ) \r
0073460 ( S E L E C T Q C O M
0073500 P O N E N T \r
0073520 ( ( R E D G R E E N
0073540 B L U E ) \r
0073560 [ S E T Q
0073600 H L S ( 006 002 R G B T O H L S
0073620 006 001 ( W I N D O W P R O P W
0073640 I N D O W ' R E D ) \r
0073660
*
0073720 ( W I N D O W P R O P W I N D
0073740 O W ' G R E E N ) \r
0073760
0074000 (
0074020 W I N D O W P R O P W I N D O
0074040 W ' B L U E ] \r
0074060 ( 006 002 D
0074100 I S P L A Y C O L O R L E V E L
0074120 006 001 W I N D O W ' H U E (
0074140 006 002 f e t c h 006 001 ( H L S H
0074160 U E ) 006 002 o f 006 001 H L S ) \r
0074200
0074220 ( 006 002 E D I
0074240 T C O L O R M A P . W I N D O W
0074260 L E V E L 006 001 ' H U E ( 006 002
0074300 f e t c h 006 001 ( H L S H U E
0074320 ) 006 002 o f 006 001 H L S ) ) ) \r
0074340
0074360 ( 006 002 D I S P L A Y C O L
0074400 O R L E V E L 006 001 W I N D O W
0074420 ' L I G H T N E S S ( 006 002 f
0074440 e t c h 006 001 ( H L S L I G H
0074460 T N E S S ) 006 002 o f 006 001 H L
0074500 S ) \r
0074520 ( 006 002
0074540 E D I T C O L O R M A P . W I N
0074560 D O W L E V E L 006 001 ' L I G H
0074600 T N E S S ( 006 002 f e t c h 006 001
0074620 ( H L S L I G H T N E S S )
0074640 006 002 o f 006 001 H L S ) ) ) \r
0074660
0074700 ( 006 002 D I S P L A Y C O L O
0074720 R L E V E L 006 001 W I N D O W
0074740 ' S A T U R A T I O N ( 006 002 f
0074760 e t c h 006 001 ( H L S S A T U
0075000 R A T I O N ) 006 002 o f 006 001 H
0075020 L S ) \r
0075040 ( 006
0075060 002 E D I T C O L O R M A P . W I
0075100 N D O W L E V E L 006 001 ' S A T
0075120 U R A T I O N ( 006 002 f e t c h
0075140 006 001 ( H L S S A T U R A T I
0075160 O N ) 006 002 o f 006 001 H L S ) )
0075200 ) ) \r
0075220 ( ( H U E L I G H T N E S S
0075240 S A T U R A T I O N ) \r
0075260
0075300 [ S E T Q R G B ( 006 002 H L
0075320 S T O R G B 006 001 ( 006 002 E D I T
0075340 C O L O R M A P . V A L U E L E
0075360 V E L 006 001 ' H U E ( W I N D
0075400 O W P R O P W I N D O W ' H
0075420 U E ) ) \r
0075440
0075460 ( 006 002 E D I T
0075500 C O L O R M A P . V A L U E L E
0075520 V E L 006 001 ' L I G H T N E S S
0075540 ( W I N D O W P R O P W I N
0075560 D O W \r
0075600
*
0075700 ' L I G H T N E S S ) ) \r
0075720
*
0075760 ( 006 002 E D I T C O L O R
0076000 M A P . V A L U E L E V E L 006 001
0076020 ' S A T U R A T I O N ( W I
0076040 N D O W P R O P W I N D O W \r
0076060
*
0076200 ' S A T U R A T I O N ] \r
0076220
0076240 ( 006 002 D I S P L A Y C O L O R L
0076260 E V E L 006 001 W I N D O W ' R
0076300 E D ( 006 002 f e t c h 006 001 ( R
0076320 G B R E D ) 006 002 o f 006 001 R
0076340 G B ) \r
0076360 ( 006
0076400 002 f e t c h 006 001 ( R G B R E
0076420 D ) 006 002 o f 006 001 R G B ) ) \r
0076440
0076460 ( 006 002 D I S P L A Y C O L
0076500 O R L E V E L 006 001 W I N D O W
0076520 ' G R E E N ( 006 002 f e t c h
0076540 006 001 ( R G B G R E E N ) 006
0076560 002 o f 006 001 R G B ) \r
0076600
0076620 ( 006 002 f e t c h 006 001
0076640 ( R G B G R E E N ) 006 002 o f
0076660 006 001 R G B ) ) \r
0076700 ( 006 002 D
0076720 I S P L A Y C O L O R L E V E L
0076740 006 001 W I N D O W ' B L U E
0076760 ( 006 002 f e t c h 006 001 ( R G B
0077000 B L U E ) 006 002 o f 006 001 R G B
0077020 ) \r
0077040 ( 006 002 f
0077060 e t c h 006 001 ( R G B B L U E
0077100 ) 006 002 o f 006 001 R G B ) ) ) \r
0077120 ( S
0077140 H O U L D N T ] ) \r \r ( 006 004 G E
0077160 T C O L O R # F R O M U S E R 006
0077200 001 \r [ L A M B D A N I L 006
0077220 006 006 001
0077240
*
0077300 006 006 ( * e d i t e d % :
0077320 " 8 - S E P - 8 2 2 1 : 4
0077340 4 " ) 006 001 \r
0077360
*
0077440 006 006 ( * r e a d s a
0077460 c o l o r n u m b e r f r o
0077500 m t h e u s e r . ) 006 001 \r
0077520 ( P R O G ( R E S P O N
0077540 S E ) \r ( M
0077560 O V E W [ C O N D \r
0077600 (
0077620 ( T Y P E N A M E P E D I T 8
0077640 B I T C O L O R M A P N U M B E
0077660 R R E A D E R ' W I N D O W )
0077700 \r
0077720 E D I T 8 B I T C O
0077740 L O R M A P N U M B E R R E A D
0077760 E R ) \r
0100000 ( T ( S E T Q
0100020 E D I T 8 B I T C O L O R M A
0100040 P N U M B E R R E A D E R \r
0100060
0100100 ( C R E A T E . N U
0100120 M B E R P A D . R E A D E R '
0100140 ( E n t e r c o l o r n u m
0100160 b e r t o e d i t % : ) \r
0100200
0100220 ( 006
0100240 002 c r e a t e 006 001 P O S I T I
0100260 O N \r
0100300
0100320 X C O O R D
0100340 _ L A S T M O U S E X \r
0100360
*
0100420 Y C O O R D _ L A S T
0100440 M O U S E Y ] \r
0100460 ( 006 002 c r e a
0100500 t e 006 001 P O S I T I O N \r
0100520
0100540 X C O O R D _ L
0100560 A S T M O U S E X \r
0100600
0100620 Y C O O R D _ L A S T M
0100640 O U S E Y ) ) \r L P
0100660 ( C O N D \r
0100700 ( [ N U L L ( E R S
0100720 E T Q ( S E T Q R E S P O N
0100740 S E ( N U M B E R P A D . R E
0100760 A D E D I T 8 B I T C O L O R
0101000 M A P N U M B E R R E A D E R ]
0101020 \r \r
0101040 006 006 ( * c u r r e
0101060 n t l y t h e r e i s n o
0101100 w a y N I L c a n b e
0101120 r e t u r n e d f r o m N U
0101140 M B E R P A D . R E A D b u t
0101160 t h e r e \r 006 001
0101200 006 006 s h o u l d b e
0101220 a w a y t o q u i t . ) 006
0101240 001 \r \r
0101260 ( R E T U R N N I L ) ) \r
0101300 ( ( O R
0101320 ( I L E S S P R E S P O N S
0101340 E 0 ) \r
0101360 ( I G R E A T E R
0101400 P R E S P O N S E 2 5 5 ) )
0101420 \r (
0101440 P R O M P T P R I N T " C o l
0101460 o r n u m b e r s m u s t
0101500 b e b e t w e e n 0 a n d
0101520 2 5 5 . " ) \r
0101540 ( G O L P ) ) \r
0101560 ( T (
0101600 R E T U R N R E S P O N S E ]
0101620 ) \r \r ( 006 004 G E T C O L O R # F
0101640 R O M S C R E E N 006 001 \r [ L
0101660 A M B D A N I L 006 006 006 001
0101700
*
0101740 006 006 (
0101760 * r r b " 3 - N O V - 8 2
0102000 1 3 : 5 7 " ) 006 001 \r
0102020 \r
0102040 006 006 ( * r e t u r n s t h e
0102060 c o l o r n u m b e r o f
0102100 a p o i n t s e l e c t e
0102120 d b y t h e u s e r . ) 006
0102140 001 \r \r ( R E S E T F O R
0102160 M ( C H A N G E C U R S O R S
0102200 C R E E N ( C O L O R S C R E
0102220 E N B I T M A P ) ) \r
0102240 ( P R O G ( P O S
0102260 ) \r
0102300 ( S E T Q P O S ( G E
0102320 T P O S I T I O N ) ) \r
0102340 ( R E
0102360 T U R N ( A N D P O S ( B
0102400 I T M A P B I T ( C O L O R S
0102420 C R E E N B I T M A P ) \r
0102440
*
0102500 ( 006 002 f e t c h 006 001
0102520 ( P O S I T I O N X C O O R
0102540 D ) 006 002 o f 006 001 P O S ) \r
0102560
*
0102620 ( 006 002 f e t c h
0102640 006 001 ( P O S I T I O N Y C O
0102660 O R D ) 006 002 o f 006 001 P O S ]
0102700 ) \r \r ( 006 004 D I S P L A Y C O L
0102720 O R L E V E L 006 001 \r [ L A M
0102740 B D A ( W I N D O W C O M P
0102760 O N E N T N E W L E V E L W
0103000 I N D O W L E V E L ) 006 006 006 001
0103020 006 006 ( *
0103040 k b r % : " 4 - J u n - 8 6
0103060 2 0 : 2 3 " ) 006 001 \r (
0103100 P R O G ( R E G I O N ) \r
0103120 ( W I N D O W P
0103140 R O P W I N D O W C O M P O
0103160 N E N T W I N D O W L E V E L
0103200 ) \r ( S E T
0103220 Q R E G I O N ( S E L E C T
0103240 Q C O M P O N E N T \r
0103260
0103300 ( R E D ( W I N
0103320 D O W P R O P W I N D O W '
0103340 R E D R E G I O N ) ) \r
0103360
0103400 ( B L U E ( W I
0103420 N D O W P R O P W I N D O W
0103440 ' B L U E R E G I O N ) ) \r
0103460
0103500 ( G R E E N
0103520 ( W I N D O W P R O P W I N D
0103540 O W ' G R E E N R E G I O N )
0103560 ) \r
0103600 ( H U
0103620 E ( W I N D O W P R O P W I
0103640 N D O W ' H U E R E G I O N )
0103660 ) \r
0103700 ( L I
0103720 G H T N E S S ( W I N D O W P
0103740 R O P W I N D O W ' L I G H
0103760 T N E S S R E G I O N ) ) \r
0104000
0104020 ( S A T U R A
0104040 T I O N ( W I N D O W P R O P
0104060 W I N D O W ' S A T U R A T
0104100 I O N R E G I O N ) ) \r
0104120
0104140 ( S H O U L D N T
0104160 ) ) ) \r [ P
0104200 R O G N
0104220
*
0104260 006 006 ( * P r i n t o u t
0104300 n e w l e v e l o f C O M
0104320 P O N E N T . \r 006 001
0104340
*
0104420 006 006 * ) 006 001 \r
0104440 (
0104460 M O V E T O ( I D I F F E R E
0104500 N C E ( 006 002 f e t c h 006 001 (
0104520 R E G I O N L E F T ) 006 002 o
0104540 f 006 001 R E G I O N ) \r
0104560
0104600 1 2 ) \r
0104620
0104640 ( I P L U S 8
0104660 ( 006 002 f e t c h 006 001 ( R E G
0104700 I O N T O P ) 006 002 o f 006 001
0104720 R E G I O N ) ) \r
0104740
0104760 W I N D O W ) \r
0105000 \r 006 006
0105020 ( * O v e r s t r i k e e x
0105040 t r a d i g i t s i n c a
0105060 s e t h e o l d v a l u e
0105100 w a s l a r g e r . \r 006 001
0105120 006 006 * ) 006 001 \r
0105140 \r
0105160 ( C O N D \r
0105200 ( ( F I
0105220 X P N E W L E V E L ) \r
0105240
0105260 ( p r i n t o u t W I N D
0105300 O W " " | . I 3 | N E W
0105320 L E V E L ) ) \r
0105340 ( T (
0105360 p r i n t o u t W I N D O W
0105400 | . F 5 . 3 | N E W L E V E L
0105420 ] \r ( 006 002 F
0105440 I L L I N R E G I O N 006 001 R E
0105460 G I O N W I N D O W L E V E L
0105500 G R A Y S H A D E W I N D O
0105520 W ] ) \r \r ( 006 004 F I L L I N R E
0105540 G I O N 006 001 \r [ L A M B D A
0105560 ( R E G I O N H E I G H T
0105600 G R A Y W I N D O W ) 006 006 006 001
0105620
0105640 006 006 ( * r r b
0105660 " 2 3 - F E B - 8 2 1 2 : 2
0105700 6 " ) 006 001 \r
0105720
*
0106000 006 006 ( * f i l l s p a
0106020 r t o f a r e g i o n w
0106040 i t h g r a y . ) 006 001 \r
0106060 ( D S P F I L L R E G I O N
0106100 W H I T E S H A D E ' R E P
0106120 L A C E W I N D O W ) \r
0106140 ( 006 002 A R E A F I L L 006 001 (
0106160 006 002 f e t c h 006 001 ( R E G I O
0106200 N L E F T ) 006 002 o f 006 001 R
0106220 E G I O N ) \r
0106240 ( 006 002 f e t c h 006 001 ( R E
0106260 G I O N B O T T O M ) 006 002 o
0106300 f 006 001 R E G I O N ) \r
0106320 ( 006 002 f e t c h 006
0106340 001 ( R E G I O N W I D T H )
0106360 006 002 o f 006 001 R E G I O N ) \r
0106400 H E I G H
0106420 T G R A Y ' R E P L A C E
0106440 W I N D O W ] ) \r \r ( 006 004 A R E
0106460 A F I L L 006 001 \r [ L A M B D
0106500 A ( L F T B T M W D T H
0106520 H G T H S H A D E O P E R A
0106540 T I O N W I N D O W )
0106560 006 006 ( * f i l l s
0106600 a n a r e a o f a w i n
0106620 d o w w i t h \r 006 001
0106640
*
0106720 006 006 s h a d e
0106740 . ) 006 001 \r ( B I T B L T
0106760 N I L N I L N I L W I N
0107000 D O W L F T B T M W D T H
0107020 H G T H ' T E X T U R E O
0107040 P E R A T I O N S H A D E ] )
0107060 \r \r ( 006 004 C E N T E R E D L E F
0107100 T 006 001 \r [ L A M B D A ( W
0107120 I D T H L E F T R I G H T )
0107140 006 006 006 001
0107160
0107200 006 006 ( * r r b " 1
0107220 6 - F E B - 8 2 1 4 : 5 8 " )
0107240 006 001 \r \r
0107260 006 006 ( * r e t
0107300 u r n s t h e l e f t p o
0107320 i n t t h a t w o u l d l
0107340 e a v e W I D T H c e n t e
0107360 r e d b e t w e e n L E F T
0107400 a n d \r 006 001
0107420 006 006 R I G H T ) 006 001 \r \r
0107440 ( I Q U O T I E N T ( I D
0107460 I F F E R E N C E ( I P L U S
0107500 L E F T R I G H T ) \r
0107520
0107540 W I D T H ) \r
0107560 2 ] ) \r \r ( 006 004 O U T
0107600 L I N E A R E A 006 001 \r [ L A
0107620 M B D A ( L F T B T M W D
0107640 T H H G H T L I N E W I D T
0107660 H O P E R A T I O N W I N )
0107700 006 006 006 001 006 006 ( *
0107720 r r b " 1 7 - F E B - 8 2
0107740 1 0 : 5 9 " ) 006 001 \r
0107760
*
0110040 006 006 ( * o u t l
0110060 i n e s a n a r e a o f
0110100 a w i n d o w . ) 006 001 \r
0110120 ( P R O G ( L E F T P L U S
0110140 W I D T H R I G H T L I N E L
0110160 E F T V E R T L I N E T O P
0110200 T O P Y L I N E W I D T H ) \r
0110220 ( S E T Q
0110240 L I N E W I D T H ( O R ( N
0110260 U M B E R P L I N E W I D T H
0110300 ) \r
0110320
0110340 1 ) ) \r ( S
0110360 E T Q L F T ( I D I F F E R
0110400 E N C E L F T L I N E W I D
0110420 T H ) ) \r (
0110440 S E T Q B T M ( I D I F F E
0110460 R E N C E B T M L I N E W I
0110500 D T H ) ) \r
0110520 ( S E T Q W D T H ( I P L U
0110540 S W D T H ( I T I M E S L
0110560 I N E W I D T H 2 ) ) ) \r
0110600 ( S E T Q H G
0110620 H T ( I P L U S H G H T (
0110640 I T I M E S L I N E W I D T H
0110660 2 ) ) ) \r
0110700 ( D R A W L I N E L F T B T
0110720 M L F T ( S E T Q V E R T
0110740 L I N E T O P ( S U B 1 ( I
0110760 P L U S B T M H G H T ) ) )
0111000 \r
0111020 L I N E W I D T H O P E R
0111040 A T I O N W I N ) \r
0111060 ( D R A W L I N E (
0111100 S E T Q R I G H T L I N E L E
0111120 F T ( I D I F F E R E N C E
0111140 ( I P L U S L F T W D T H )
0111160 \r
0111200
*
0111240 L I N E W I D T H ) ) \r
0111260 B T M
0111300 R I G H T L I N E L E F T V
0111320 E R T L I N E T O P L I N E W
0111340 I D T H O P E R A T I O N W
0111360 I N ) \r ( D
0111400 R A W L I N E ( S E T Q L E
0111420 F T P L U S W I D T H ( I P L
0111440 U S L F T L I N E W I D T H
0111460 ) ) \r
0111500 B T M \r
0111520 ( S E T Q R
0111540 I G H T L I N E L E F T ( S U
0111560 B 1 R I G H T L I N E L E F T
0111600 ) ) \r
0111620 B T M L I N E W I D T
0111640 H O P E R A T I O N W I N )
0111660 \r ( D R A W
0111700 L I N E L E F T P L U S W I D
0111720 T H ( S E T Q T O P Y ( A
0111740 D D 1 ( I D I F F E R E N C E
0111760 V E R T L I N E T O P L I N
0112000 E W I D T H ) ) ) \r
0112020 R I G H T
0112040 L I N E L E F T T O P Y L I
0112060 N E W I D T H O P E R A T I O
0112100 N W I N ] ) \r \r ( 006 004 O U T L
0112120 I N E R E G I O N 006 001 \r [ L
0112140 A M B D A ( R E G I O N O U
0112160 T L I N E W I D T H O P E R A
0112200 T I O N W I N ) 006 006 006 001
0112220 006 006 (
0112240 * r r b " 1 7 - F E B - 8 2
0112260 1 0 : 5 8 " ) 006 001 \r
0112300
*
0112360 006 006 ( * o u t
0112400 l i n e s t h e r e g i o n
0112420 R E G I O N w i t h a \r
0112440 006 001
0112460
*
0112520 006
0112540 006 w i d t h w i d e l i n e
0112560 ) 006 001 \r ( 006 002 O U T L I
0112600 N E A R E A 006 001 ( 006 002 f e t c
0112620 h 006 001 ( R E G I O N L E F T
0112640 ) 006 002 o f 006 001 R E G I O N )
0112660 \r ( 006 002 f
0112700 e t c h 006 001 ( R E G I O N B
0112720 O T T O M ) 006 002 o f 006 001 R E
0112740 G I O N ) \r
0112760 ( 006 002 f e t c h 006 001 ( R E G
0113000 I O N W I D T H ) 006 002 o f 006
0113020 001 R E G I O N ) \r
0113040 ( 006 002 f e t c h 006 001
0113060 ( R E G I O N H E I G H T )
0113100 006 002 o f 006 001 R E G I O N ) \r
0113120 O U T L I N
0113140 E W I D T H O P E R A T I O N
0113160 W I N ] ) \r ) \r ( D E F I N E
0113200 Q \r \r ( 006 004 A D J U S T C O L O
0113220 R M A P 006 001 \r [ L A M B D A
0113240 ( P R I M A R Y D E L T A )
0113260 006 006 006 001
0113300
0113320 006 006 ( * k b r
0113340 % : " 5 - J u n - 8 6 1 9
0113360 : 4 1 " ) 006 001 \r
0113400 \r 006 006 (
0113420 * A d d s D E L T A p o i
0113440 n t s o f i n t e n s i t y
0113460 t o a l l v a l u e s o
0113500 f P R I M A R Y c o l o r
0113520 i n \r 006 001
0113540 006 006 S C R E E N C O L O R M A P
0113560 * ) 006 001 \r \r ( P R O G
0113600 N I L \r (
0113620 006 002 f o r 006 001 C O L O R 006 002
0113640 f r o m 006 001 0 006 002 t o 006 001
0113660 ( M A X I M U M C O L O R ( B
0113700 I T S P E R P I X E L ( S C R
0113720 E E N C O L O R M A P ) ) ) \r
0113740 006 002 d o
0113760 006 001 ( C O L O R L E V E L C
0114000 O L O R P R I M A R Y ( I M
0114020 I N 2 5 5 ( I M A X 0 (
0114040 I P L U S ( C O L O R L E V E
0114060 L C O L O R P R I M A R Y )
0114100 \r
0114120
*
0114200 D E L T A ] ) \r \r ( 006 004
0114220 S H O W C O L O R B L O C K S 006
0114240 001 \r [ L A M B D A ( D E S
0114260 T I N A T I O N ) 006 006 006 001
0114300
*
0114340 006 006 ( * k b r % : " 1
0114360 7 - A u g - 8 5 2 1 : 4 4 " )
0114400 006 001 \r
0114420
*
0114500 006 006 ( * P u t s s h a d e
0114520 b l o c k s o n t o D E S T
0114540 I N A T I O N . \r 006 001
0114560
*
0114640 006 006 * ) 006 001 \r
0114660 ( P R O G ( B I T S P E
0114700 R P I X E L M A X S H A D E
0114720 N W I D T H H E I G H T S
0114740 H A D E ) \r
0114760 ( S E T Q B I T S P E R P I X
0115000 E L ( B I T S P E R P I X E L
0115020 D E S T I N A T I O N ) ) \r
0115040 ( S E T Q M
0115060 A X S H A D E ( M A X I M U M
0115100 S H A D E B I T S P E R P I X
0115120 E L ) ) \r [
0115140 S E T Q N ( F I X R ( S Q
0115160 R T ( A D D 1 M A X S H A D
0115200 E ] \r ( S E
0115220 T Q W I D T H ( I Q U O T I
0115240 E N T ( I P L U S ( B I T M
0115260 A P W I D T H D E S T I N A T
0115300 I O N ) \r
0115320
0115340 N -
0115360 1 ) \r
0115400
0115420 N ) ) \r ( S
0115440 E T Q H E I G H T ( I Q U O
0115460 T I E N T ( I P L U S ( B I
0115500 T M A P H E I G H T D E S T I
0115520 N A T I O N ) \r
0115540
*
0115600 N - 1 ) \r
0115620
0115640 N ) ) \r
0115660 ( S E T Q S H A D E 0
0115700 ) \r ( 006 002 f
0115720 o r 006 001 Y 006 002 f r o m 006 001
0115740 ( S U B 1 N ) 006 002 t o 006 001
0115760 0 006 002 b y 006 001 - 1 006 002 d o
0116000 006 001 ( 006 002 f o r 006 001 X 006 002
0116020 f r o m 006 001 0 006 002 t o 006 001
0116040 ( S U B 1 N ) \r
0116060
*
0116120 006 002 d o 006 001
0116140 ( B L T S H A D E S H A D E
0116160 D E S T I N A T I O N ( I T I
0116200 M E S X W I D T H ) \r
0116220
*
0116300 ( I T I M E S Y
0116320 H E I G H T ) \r
0116340
*
0116420 W I D T H H E I G H T
0116440 ' R E P L A C E ) \r
0116460
*
0116520 ( S E
0116540 T Q S H A D E ( A D D 1 S
0116560 H A D E ) ) \r
0116600
*
0116640 ( C O N D \r
0116660
*
0116740 ( ( I G R E A T E R
0116760 P S H A D E M A X S H A D E
0117000 ) \r
0117020
*
0117060 ( S E T Q S
0117100 H A D E 0 ] ) \r \r ( 006 004 M A P
0117120 O F A C O L O R 006 001 \r [ L A
0117140 M B D A ( R G B B I T S P E
0117160 R P I X E L ) 006 006 006 001
0117200
0117220 006 006 ( *
0117240 k b r % : " 1 1 - J u l - 8
0117260 5 2 0 : 0 4 " ) 006 001 \r
0117300
*
0117360 006 006 ( * c r
0117400 e a t e s a g r a y c o l
0117420 o r m a p * ) 006 001 \r
0117440 ( P R O G ( M A X C O L O R
0117460 R E D G R E E N B L U E O
0117500 P R E D O P G R E E N O P B
0117520 L U E C O L O R M A P ) \r
0117540 ( S E T Q M A
0117560 X C O L O R ( M A X I M U M C
0117600 O L O R B I T S P E R P I X E
0117620 L ) ) \r ( S
0117640 E T Q R E D ( 006 002 f e t c h
0117660 006 001 ( R G B R E D ) 006 002 o
0117700 f 006 001 R G B ) ) \r
0117720 ( S E T Q G R E E N
0117740 ( 006 002 f e t c h 006 001 ( R G B
0117760 G R E E N ) 006 002 o f 006 001 R G
0120000 B ) ) \r ( S
0120020 E T Q B L U E ( 006 002 f e t c
0120040 h 006 001 ( R G B B L U E ) 006
0120060 002 o f 006 001 R G B ) ) \r
0120100 ( S E T Q O P R E
0120120 D ( I D I F F E R E N C E M
0120140 A X C O L O R R E D ) ) \r
0120160 ( S E T Q O P
0120200 G R E E N ( I D I F F E R E N
0120220 C E M A X C O L O R G R E E
0120240 N ) ) \r ( S
0120260 E T Q O P B L U E ( I D I F
0120300 F E R E N C E M A X C O L O R
0120320 B L U E ) ) \r
0120340 ( S E T Q C O L O R M A P
0120360 \r ( C O L
0120400 O R M A P C R E A T E ( 006 002 f
0120420 o r 006 001 I 006 002 f r o m 006 001
0120440 0 006 002 t o 006 001 M A X C O L O
0120460 R 006 002 a s 006 001 O P I 006 002 f
0120500 r o m 006 001 M A X C O L O R 006
0120520 002 t o 006 001 0 006 002 b y 006 001 -
0120540 1 \r
0120560
0120600 006 002 c o l l e c t 006 001 ( 006 002 c
0120620 r e a t e 006 001 R G B \r
0120640
*
0120700 R E D _ (
0120720 I Q U O T I E N T ( I P L U S
0120740 ( I T I M E S O P I O P R
0120760 E D ) \r
0121000
*
0121060 ( I T I M E S
0121100 I R E D ) ) \r
0121120
*
0121200 M A X C O L O R ) \r
0121220
*
0121260 G R E E N
0121300 _ ( I Q U O T I E N T ( I P
0121320 L U S ( I T I M E S O P I
0121340 O P G R E E N ) \r
0121360
*
0121460 ( I T I M E S I G R E E N )
0121500 ) \r
0121520
*
0121560 M A
0121600 X C O L O R ) \r
0121620
*
0121660 B L U E _ ( I Q U
0121700 O T I E N T ( I P L U S ( I
0121720 T I M E S O P I O P B L U E
0121740 ) \r
0121760
*
0122040 ( I T I M E S
0122060 I B L U E ) ) \r
0122100
*
0122160 M A X C O L O R ) ) ) \r
0122200
0122220 B I T S P E R P I X E L ) )
0122240 \r ( R E T U
0122260 R N C O L O R M A P ] ) \r \r (
0122300 006 004 C O L O R H E X P A T T E R
0122320 N 006 001 \r [ L A M B D A ( L
0122340 I G H T N E S S ) 006 006 006 001
0122360
*
0122420 006 006 ( * k b r % :
0122440 " 3 - J u n - 8 6 2 2 : 3 6
0122460 " ) 006 001 \r \r
0122500 006 006 ( * P
0122520 u t a c o l o r h e x p
0122540 a t t e r n o n t h e c o
0122560 l o r d i s p l a y . \r 006 001
0122600 006 006 * ) 006 001 \r
0122620 \r ( P R O G ( D E S T
0122640 I N A T I O N W I D T H H E
0122660 I G H T B I T S P E R P I X E
0122700 L N H E X W I D T H H E X
0122720 H E I G H T L E F T B O T T
0122740 O M C O L O R M A X I J D
0122760 I S T \r
0123000 I D I S T ) \r
0123020 ( C O N D \r
0123040 ( ( N U L L
0123060 L I G H T N E S S ) \r
0123100 ( S E T Q
0123120 L I G H T N E S S 0 . 5 ) ) )
0123140 \r ( S E T Q
0123160 D E S T I N A T I O N ( C O
0123200 L O R S C R E E N B I T M A P )
0123220 ) \r ( S E T
0123240 Q W I D T H ( B I T M A P W
0123260 I D T H D E S T I N A T I O N
0123300 ) ) \r ( S E
0123320 T Q H E I G H T ( B I T M A
0123340 P H E I G H T D E S T I N A T
0123360 I O N ) ) \r
0123400 ( S E T Q B I T S P E R P I X
0123420 E L ( B I T S P E R P I X E L
0123440 D E S T I N A T I O N ) ) \r
0123460 ( S E T Q N
0123500 ( S E L E C T Q B I T S P E
0123520 R P I X E L \r
0123540 ( 4
0123560 1 ) \r
0123600 ( 8 8 ) \r
0123620
0123640 ( R E T U R N ) ) ) \r
0123660 ( S E T Q
0123700 H E X W I D T H ( I Q U O T I
0123720 E N T W I D T H ( I P L U S
0123740 ( I T I M E S 2 N ) \r
0123760
*
0124020 1
0124040 ) ) ) \r ( S
0124060 E T Q H E X H E I G H T ( I
0124100 Q U O T I E N T H E I G H T
0124120 ( I P L U S ( I T I M E S 2
0124140 N ) \r
0124160
*
0124220 1 ) ) ) \r
0124240 ( B L T S H A D E
0124260 M I N I M U M S H A D E D E S
0124300 T I N A T I O N ) \r
0124320 ( S E T Q C O L O R
0124340 0 ) \r [ 006 002
0124360 f o r 006 001 J 006 002 f r o m 006 001
0124400 N 006 002 t o 006 001 0 006 002 b y
0124420 006 001 - 1 \r
0124440 006 002 d o 006 001 ( S E T Q
0124460 B O T T O M ( I T I M E S (
0124500 I P L U S J N ) \r
0124520
0124540 H
0124560 E X H E I G H T ) ) \r
0124600 ( S E T Q
0124620 M A X I ( I D I F F E R E N
0124640 C E ( I P L U S ( I T I M E
0124660 S 2 N ) \r
0124700
*
0124740 1 ) \r
0124760
0125000 J ) ) \r
0125020 (
0125040 006 002 f o r 006 001 I 006 002 f r o m
0125060 006 001 0 006 002 t o 006 001 M A X I
0125100 \r
0125120 006 002 d o 006 001 ( S E T Q
0125140 L E F T ( I Q U O T I E N T
0125160 ( I T I M E S ( I P L U S
0125200 ( I T I M E S 2 I ) \r
0125220
*
0125300 J ) \r
0125320
*
0125360 H E
0125400 X W I D T H ) \r
0125420
*
0125460 2 ) ) \r
0125500 ( S E T Q
0125520 C O L O R ( A D D 1 C O L O
0125540 R ) ) \r
0125560 ( B L T S H
0125600 A D E C O L O R D E S T I N
0125620 A T I O N L E F T B O T T O
0125640 M H E X W I D T H H E X H E
0125660 I G H T ) \r
0125700 ( S E T
0125720 Q J D I S T ( F Q U O T I E
0125740 N T J N ) ) \r
0125760 (
0126000 S E T Q I D I S T ( F D I F
0126020 F E R E N C E ( F T I M E S
0126040 2 . 0 ( F Q U O T I E N T I
0126060 M A X I ) ) \r
0126100
*
0126140 1 . 0 ) ) \r
0126160 ( S C
0126200 R E E N C O L O R M A P E N T R
0126220 Y C O L O R ( 006 002 H L S T O
0126240 R G B 006 001 ( A T A N J D I S
0126260 T I D I S T ) \r
0126300
*
0126360 L I G H T N E S S \r
0126400
*
0126460 ( S Q R T ( F Q U O T I
0126500 E N T ( F P L U S ( F T I M
0126520 E S I D I S T I D I S T ) \r
0126540
*
0126660 ( F T I M E S J D I S T J D
0126700 I S T ) ) \r
0126720
*
0127000 2 . 0 ] \r
0127020 ( 006 002 f o r
0127040 006 001 J 006 002 f r o m 006 001 - 1
0127060 006 002 t o 006 001 ( I M I N U S
0127100 N ) 006 002 b y 006 001 - 1 \r
0127120 006 002 d o 006 001
0127140 ( S E T Q B O T T O M ( I
0127160 T I M E S ( I P L U S J N
0127200 ) \r
0127220
0127240 H E X H E I G H T )
0127260 ) \r
0127300 ( S E T Q M A X I ( I P
0127320 L U S ( I P L U S ( I T I M
0127340 E S 2 N ) \r
0127360
*
0127420 1 ) \r
0127440
0127460 J ) ) \r
0127500 ( 006 002 f o r
0127520 006 001 I 006 002 f r o m 006 001 0
0127540 006 002 t o 006 001 M A X I \r
0127560 006
0127600 002 d o 006 001 ( S E T Q L E F T
0127620 ( I Q U O T I E N T ( I T I
0127640 M E S ( I P L U S ( I T I M
0127660 E S 2 I ) \r
0127700
*
0127760 ( I M I N U S J ) ) \r
0130000
*
0130060 H E X W I D T H ) \r
0130100
*
0130140 2 ) ) \r
0130160 ( S
0130200 E T Q C O L O R ( A D D 1
0130220 C O L O R ) ) \r
0130240 ( B
0130260 L T S H A D E C O L O R D E
0130300 S T I N A T I O N L E F T B
0130320 O T T O M H E X W I D T H H
0130340 E X H E I G H T ) \r
0130360
0130400 ( S E T Q J D I S T ( F Q U
0130420 O T I E N T J N ) ) \r
0130440
0130460 ( S E T Q I D I S T (
0130500 F D I F F E R E N C E ( F T I
0130520 M E S 2 . 0 ( F Q U O T I E
0130540 N T I M A X I ) ) \r
0130560
*
0130620 1 . 0 ) ) \r
0130640
0130660 ( S C R E E N C O L O R M A P
0130700 E N T R Y C O L O R ( 006 002 H
0130720 L S T O R G B 006 001 ( A T A N
0130740 J D I S T I D I S T ) \r
0130760
*
0131040 L I G H T N E S S \r
0131060
*
0131140 ( S Q R T ( F Q
0131160 U O T I E N T ( F P L U S (
0131200 F T I M E S I D I S T I D I
0131220 S T ) \r
0131240
*
0131340 ( F T I M E S J D I S
0131360 T J D I S T ) ) \r
0131400
*
0131460 2
0131500 . 0 ] ) \r ) \r \r ( R P A Q Q 006
0131520 002 E d i t C o l o r M a p H e i
0131540 g h t 006 001 3 1 5 ) \r \r ( R P A
0131560 Q Q 006 002 E d i t C o l o r M a
0131600 p W i d t h 006 001 3 8 0 ) \r \r (
0131620 R P A Q Q 006 002 C O L O R # M E
0131640 N U S A V E 006 001 N I L ) \r \r (
0131660 R P A Q Q 006 002 C O N T R O L M
0131700 E N U S A V E 006 001 N I L ) \r \r
0131720 ( R P A Q Q 006 002 E D I T 8 B I
0131740 T C O L O R M A P M E N U 006 001
0131760 N I L ) \r \r ( R P A Q Q 006 002 E
0132000 D I T 8 B I T C O L O R M A P N
0132020 U M B E R R E A D E R 006 001 N I
0132040 L ) \r ( D E C L A R E % : D O
0132060 E V A L @ C O M P I L E D O N
0132100 T C O P Y \r \r ( G L O B A L V A
0132120 R S C O L O R # M E N U S A V
0132140 E C O N T R O L M E N U S A V
0132160 E E D I T 8 B I T C O L O R M
0132200 A P M E N U E D I T 8 B I T C
0132220 O L O R M A P N U M B E R R E A
0132240 D E R \r E d i t
0132260 C o l o r M a p H e i g h t E
0132300 d i t C o l o r M a p W i d t h
0132320 ) \r ) \r \r \r \r 006 004 ( * ; ; ;
0132340 " s u p p o r t f o r g l o
0132360 b a l n a m i n g a n d q
0132400 u e r y i n g o f c o l o r
0132420 s . " ) 006 001 \r \r ( D E F I N E Q
0132440 \r \r ( 006 004 C N S M E N U I N I T
0132460 006 001 \r [ L A M B D A N I L
0132500 006 006 006 001
0132520
*
0132560 006 006 ( * g b n " 9
0132600 - A u g - 8 5 0 3 : 1 1 " ) 006
0132620 001 \r [ S E T Q C N S H
0132640 U E M E N U ( 006 002 c r e a t e
0132660 006 001 M E N U \r
0132700
0132720 I T E M S _ ( 006 002 f
0132740 o r 006 001 I 006 002 i n 006 001 D I
0132760 C O L O R . h u e M a p p i n g
0133000 006 002 c o l l e c t 006 001 ( C A
0133020 R I ] \r [ S E T Q C
0133040 N S S A T U R A T I O N M E N U
0133060 ( 006 002 c r e a t e 006 001 M E N
0133100 U \r
0133120
0133140 I T E M S _ ( 006 002
0133160 f o r 006 001 I 006 002 i n 006 001 D
0133200 I C O L O R . s a t u r a t i o
0133220 n M a p p i n g \r
0133240
*
0133300 006 002 c o l l e c t
0133320 006 001 ( C A R I ] \r (
0133340 S E T Q C N S L I G H T N E S
0133360 S M E N U ( 006 002 c r e a t e 006
0133400 001 M E N U \r
0133420
0133440 I T E M S _
0133460 ( 006 002 f o r 006 001 I 006 002 i n
0133500 006 001 D I C O L O R . l i g h t
0133520 n e s s M a p p i n g \r
0133540
*
0133600 006 002 c o l l e
0133620 c t 006 001 ( C A R I ] ) \r \r (
0133640 006 004 C N S T O C S L 006 001 \r [
0133660 L A M B D A ( h u e s a t u
0133700 r a t i o n l i g h t n e s s
0133720 ) 006 006 006 001
0133740 006 006
0133760 ( * h d j " 1 2 - A p r - 8
0134000 5 1 9 : 0 1 " ) 006 001 \r
0134020 ( P R O G ( ( h u e A t o m
0134040 ( M K A T O M h u e ) ) \r
0134060 ( s a t u r a
0134100 t i o n A t o m ( M K A T O M
0134120 s a t u r a t i o n ) ) \r
0134140 ( l i g h t n
0134160 e s s A t o m ( M K A T O M
0134200 l i g h t n e s s ) ) \r
0134220 c s l ) \r
0134240 ( 006 002 i f 006 001
0134260 [ N O T ( S E T Q c ( 006 002
0134300 f e t c h 006 001 ( h u e R e c o
0134320 r d o r d e r i n g ) 006 002 o
0134340 f 006 001 ( A S S O C h u e A t
0134360 o m D I C O L O R . h u e M a
0134400 p p i n g ] \r
0134420 006 002 t h e n 006 001 ( S
0134440 E T Q c D I C O L O R . a c
0134460 h r o m a t i c ) ) \r
0134500 ( 006 002 i f 006 001 ( E Q
0134520 c D I C O L O R . a c h r o
0134540 m a t i c ) \r
0134560 006 002 t h e n 006 001 ( S
0134600 E T Q s D I C O L O R . n o
0134620 S a t u r a t i o n ) \r
0134640 006 002 e l s e 006 001
0134660 ( 006 002 i f 006 001 [ N O T ( S
0134700 E T Q s ( 006 002 f e t c h 006 001
0134720 ( s a t u r a t i o n R e c o
0134740 r d o r d e r i n g ) 006 002 o
0134760 f 006 001 ( A S S O C s a t u r
0135000 a t i o n A t o m \r
0135020
*
0135120 D I C O L O R . s
0135140 a t u r a t i o n M a p p i n g
0135160 \r
0135200
*
0135300 ] \r
0135320 006 002 t h e n 006 001
0135340 ( S E T Q s D I C O L O R .
0135360 v i v i d ) ) ) \r
0135400 ( S E L E C T Q h u e A
0135420 t o m \r
0135440 ( B l a c k ( S E T Q l
0135460 D I C O L O R . b l a c k ) )
0135500 \r (
0135520 W h i t e ( S E T Q l D I
0135540 C O L O R . w h i t e ) ) \r
0135560 ( 006 002 i
0135600 f 006 001 [ N O T ( S E T Q l
0135620 ( 006 002 f e t c h 006 001 ( l i g
0135640 h t n e s s R e c o r d o r d
0135660 e r i n g ) 006 002 o f 006 001 ( A
0135700 S S O C l i g h t n e s s A t
0135720 o m \r
0135740
*
0136020 D
0136040 I C O L O R . l i g h t n e s s
0136060 M a p p i n g ] \r
0136100 006 002 t h e
0136120 n 006 001 ( S E T Q l D I C O
0136140 L O R . m e d i u m ) ) ) \r
0136160 ( R E T U R N
0136200 ( L I S T c s l ] ) \r \r (
0136220 006 004 C N S T O R G B 006 001 \r [
0136240 L A M B D A ( s a t u r a t i
0136260 o n l i g h t n e s s h u e
0136300 ) 006 006 006 001
0136320 006 006
0136340 ( * h d j " 1 5 - J u l - 8
0136360 5 1 2 : 3 3 " ) 006 001 \r
0136400 ( L E T ( ( C S L ( 006 002 C N
0136420 S T O C S L 006 001 h u e s a t
0136440 u r a t i o n l i g h t n e s
0136460 s ) ) ) \r ( 006
0136500 002 H L S T O R G B 006 001 ( A P P
0136520 L Y ( F U N C T I O N C S L
0136540 T O H L S ) \r
0136560
0136600 C S L ] ) \r \r ( 006 004 C S L T O
0136620 C N S 006 001 \r [ L A M B D A
0136640 ( c s l ) 006 006 006 001
0136660
*
0136720 006 006 ( * h d j
0136740 " 1 5 - J u l - 8 5 1 2 : 3 7
0136760 " ) 006 001 \r ( P R O G (
0137000 h u e s a t u r a t i o n l
0137020 i g h t n e s s ) \r
0137040 [ 006 002 i f 006 001 ( E Q
0137060 c D I C O L O R . a c h r o m
0137100 a t i c ) \r
0137120 006 002 t h e n 006 001 ( S E
0137140 T Q s a t u r a t i o n " "
0137160 ) \r
0137200 [ S E L E C T C l \r
0137220
0137240 ( D I C O L O R .
0137260 b l a c k ( S E T Q h u e
0137300 " B l a c k " ) \r
0137320
0137340 (
0137360 S E T Q l i g h t n e s s "
0137400 " ) ) \r
0137420 ( D I C O
0137440 L O R . w h i t e ( S E T Q
0137460 h u e " W h i t e " ) \r
0137500
*
0137540 ( S E T Q l i g h t n e
0137560 s s " " ) ) \r
0137600 (
0137620 P R O G N ( S E T Q h u e
0137640 " G r a y " ) \r
0137660
0137700 ( S E T Q l i g h
0137720 t n e s s ( M K S T R I N G
0137740 ( 006 002 f e t c h 006 001 ( l i g h
0137760 t n e s s R e c o r d n a m e
0140000 ) \r
0140020
*
0140060 006 002 o
0140100 f 006 001 ( 006 002 D I C O L O R . l
0140120 i g h t n e s s N 006 001 l ] \r
0140140 006 002 e l s
0140160 e 006 001 ( S E T Q h u e ( 006
0140200 002 f e t c h 006 001 ( h u e R e c
0140220 o r d n a m e ) 006 002 o f 006 001
0140240 ( 006 002 D I C O L O R . h u e N
0140260 006 001 c ) ) ) \r
0140300 ( S E T Q s
0140320 a t u r a t i o n ( 006 002 f e t
0140340 c h 006 001 ( s a t u r a t i o n
0140360 R e c o r d n a m e ) 006 002 o
0140400 f 006 001 ( 006 002 D I C O L O R . s
0140420 a t u r a t i o n N 006 001 s ) )
0140440 ) \r
0140460 ( S E T Q l i g h t n e
0140500 s s ( 006 002 f e t c h 006 001 ( l
0140520 i g h t n e s s R e c o r d n
0140540 a m e ) 006 002 o f 006 001 ( 006 002 D
0140560 I C O L O R . l i g h t n e s s
0140600 N 006 001 l ] \r
0140620 ( R E T U R N ( L I S T s
0140640 a t u r a t i o n l i g h t n
0140660 e s s h u e ] ) \r \r ( 006 004 D I
0140700 C O L O R . F R O M . U S E R 006
0140720 001 \r [ L A M B D A N I L 006
0140740 006 006 001
0140760
*
0141020 006 006 ( * g b n " 3 0 -
0141040 O c t - 8 5 1 1 : 2 8 " ) 006 001
0141060 \r \r
0141100 006 006 ( * * R e t
0141120 u r n s a c o l o r , e i
0141140 t h e r b y i t s n a m e
0141160 \r 006 001 006 006 (
0141200 w h i c h c a n t h e n b
0141220 e l o o k e d u p o n c
0141240 o l o r n a m e s ) o r a s
0141260 a n R G B t r i p l e i
0141300 f i t i s n o t \r 006 001
0141320 006 006 n a m e d
0141340 . P r o m p t s t h e u s
0141360 e r f i r s t w i t h t h
0141400 e g l o b a l c o l o r n
0141420 a m e m e n u . \r 006 001
0141440 006 006 S h e c a n
0141460 t h e n c h o o s e N E W C
0141500 O L O R w h i c h c a n b
0141520