$ od -c -N 50000 [phylum]<LISPUSERS>Lyric>llcolor!1
0000000 ( D E F I N E - F I L E - I N F
0000020 O 247 R E A D T A B L E " I N
0000040 T E R L I S P " 247 P A C K A G
0000060 E " I N T E R L I S P " ) \r 006
0000100 001 ( F I L E C R E A T E D " 1
0000120 6 - J a n - 8 7 1 7 : 3 7 : 3
0000140 4 " 006 004 { E R I S } < L I S P
0000160 U S E R S > L I S P C O R E > L
0000200 L C O L O R . ; 3 006 001 1 3 2 5
0000220 7 3 \r \r c h a n g
0000240 e s t o % : ( F N S \ C
0000260 r e a t e C o l o r S c r e e n
0000300 B i t M a p C O L O R M A P C
0000320 R E A T E ) \r \r p r
0000340 e v i o u s d a t e % : "
0000360 5 - J u n - 8 6 2 3 : 3 3 : 1
0000400 1 " { E R I S } < L I S P U S
0000420 E R S > L I S P C O R E > L L C
0000440 O L O R . ; 2 ) \r \r \r ( * " \r
0000460 C o p y r i g h t ( c ) 1 9
0000500 8 2 , 1 9 8 3 , 1 9 8 4 ,
0000520 1 9 8 5 , 1 9 8 6 , 1 9 8 7
0000540 b y X e r o x C o r p o r
0000560 a t i o n . A l l r i g h
0000600 t s r e s e r v e d . \r " ) \r
0000620 \r ( P R E T T Y C O M P R I N T
0000640 L L C O L O R C O M S ) \r \r (
0000660 R P A Q Q 006 002 L L C O L O R C
0000700 O M S 006 001 \r [ (
0000720 F N S C O L O R D I S P L A Y
0000740 C O L O R M A P B I T S \ C
0000760 r e a t e C o l o r S c r e e n
0001000 B i t M a p \ C R E A T E C O
0001020 L O R D I S P L A Y F D E V C
0001040 O L O R M A P \r
0001060 S C R E E N C O L O
0001100 R M A P S C R E E N C O L O R
0001120 M A P E N T R Y R O T A T E C
0001140 O L O R M A P R G B C O L O R
0001160 M A P C M Y C O L O R M A P
0001200 G R A Y C O L O R M A P \r
0001220 C O L O R
0001240 S C R E E N B I T M A P \ C O
0001260 L O R D I S P L A Y B I T S C
0001300 O L O R S C R E E N S H O W C
0001320 O L O R T E S T P A T T E R N )
0001340 \r ( I N I T V A
0001360 R S ( C O L O R M O N I T O R
0001400 T Y P E ' C O N R A C ) ) \r
0001420 ( F N S \ S T A
0001440 R T C O L O R \ S T O P C O L
0001460 O R \ S E N D C O L O R M A P
0001500 E N T R Y ) \r (
0001520 F N S C O L O R M A P C R E A
0001540 T E C O L O R L E V E L C O
0001560 L O R N U M B E R P C O L O R
0001600 F R O M R G B I N T E N S I T
0001620 I E S F R O M C O L O R M A P
0001640 \r S E
0001660 T C O L O R I N T E N S I T Y )
0001700 \r ( F N S \ F
0001720 A S T 8 B I T \ M A P 4 \ M
0001740 A P 8 ) \r ( F N
0001760 S \ G E T C O L O R B R U S H
0002000 ) \r ( F N S \
0002020 D R A W C O L O R L I N E 1 \
0002040 D R A W 4 B P P C O L O R L I N
0002060 E \ D R A W 8 B P P C O L O R
0002100 L I N E \ D R A W 2 4 B P P C
0002120 O L O R L I N E ) \r
0002140 ( D E C L A R E % : D O N
0002160 T C O P Y D O E V A L @ C O M
0002200 P I L E ( M A C R O S . D R
0002220 A W 4 B P P L I N E X . . D R
0002240 A W 8 B P P L I N E X . D R A
0002260 W 2 4 B P P L I N E X \r
0002300
*
0002340 .
0002360 D R A W 4 B P P L I N E Y . .
0002400 D R A W 8 B P P L I N E Y . D
0002420 R A W 2 4 B P P L I N E Y ) ) \r
0002440 ( F N S \ B W
0002460 T O C O L O R B L T \ 4 B I T
0002500 L I N E B L T \ 8 B I T L I N
0002520 E B L T \ 2 4 B I T L I N E B
0002540 L T \ G E T B A S E 2 4 \ P
0002560 U T B A S E 2 4 \r
0002600 C O L O R T E X T
0002620 U R E F R O M C O L O R # \ B
0002640 I T M A P W O R D ) \r
0002660 ( F N S C O L O R I Z E
0002700 B I T M A P U N C O L O R I Z
0002720 E B I T M A P ) \r
0002740 ( I N I T V A R S ( \ 1 C O
0002760 L O R M E N U N I L ) \r
0003000 ( \ 4 C
0003020 O L O R M E N U N I L ) \r
0003040 ( \ 8
0003060 C O L O R M E N U N I L ) ) \r
0003100 ( F N S C O L
0003120 O R M E N U C U R S O R C O L
0003140 O R ) \r ( R E C
0003160 O R D S R G B H L S ) \r
0003200 ( D E C L A R E % :
0003220 D O N T C O P Y ( R E C O R
0003240 D S N I B B L E S O N E O F
0003260 F S E T B I T A C C E S S T W
0003300 O O F F S E T B I T A C C E S S
0003320 \r
0003340
0003360 T H R E E O F F S E T
0003400 B T A C C E S S 2 B I T N I B
0003420 B L E S O D D 2 B I T N I B B
0003440 L E S ) ) \r ( C
0003460 O N S T A N T S ( B I T S P E
0003500 R W O R D 1 6 ) ) \r
0003520 ( I N I T V A R S ( \ C
0003540 O L O R D I S P L A Y F D E V )
0003560 \r
0003600 ( \ 4 C O L O R M A P ( C M Y
0003620 C O L O R M A P 2 1 1 4
0003640 ) ) \r
0003660 ( \ 8 C O L O R M A P ( C
0003700 M Y C O L O R M A P 3 3 2
0003720 8 ) ) \r
0003740 ( \ C O L O R D I S P L
0003760 A Y B I T S ) \r
0004000 ( C o l o r S c r
0004020 e e n B i t M a p ) \r
0004040 ( \ C O L O
0004060 R S C R E E N ) ) \r
0004100 ( F N S P S E U D O C O L
0004120 O R \ P S E U D O C O L O R .
0004140 B I T M A P \ P S E U D O C O
0004160 L O R . U F N ) \r
0004200 ( G L O B A L V A R S \ C O
0004220 L O R D I S P L A Y F D E V \
0004240 C O L O R D I S P L A Y B I T S
0004260 C o l o r S c r e e n B i t M
0004300 a p \ 4 C O L O R M A P \ 8
0004320 C O L O R M A P ) \r
0004340 ( P ( * N O T E % : T
0004360 h i s i s v e r y b a d .
0004400 I s h o u l d n ' t h a v
0004420 e t o a n d d o n ' t r
0004440 e a l l y w a n t t o d o
0004460 t h e f o l l o w i n g ,
0004500 \r b
0004520 u t s i n c e a b o u t M
0004540 a r c h 8 6 , s o m e o n e
0004560 d i d s o m e t h i n g r
0004600 e a l l y n o n s t a n d a r
0004620 d w r t H e l v e t i c a
0004640 f o n t s \r
0004660 s o t h a t t h e
0004700 i n c o r e v e r s i o n
0004720 s a r e n o t e q u a l
0004740 t o w h a t i s s t o r e
0004760 d o n f i l e . T h e \r
0005000 S E
0005020 T F O N T D E S C R I P T O R
0005040 a n d f r i e n d s u n d o
0005060 e s t h i s k l u d g e w
0005100 h i c h h a s n e v e r b
0005120 e e n e x p l a i n e d t o
0005140 \r
0005160 L I S P C O R E ^ b y t h e
0005200 p e r s o n w h o b r a i
0005220 n d a m a g e d H e l v e t
0005240 i c a t h i s w a y . I f
0005260 I d o n ' t u n d o t h
0005300 i s \r
0005320 k l u d g e b y s o m e
0005340 o n e e l s e , t h e n c
0005360 o l o r m e n u s c o m e
0005400 o u t w r o n g . * ) \r
0005420 ( S E T F O N
0005440 T D E S C R I P T O R ' H E L
0005460 V E T I C A 1 0 ' M R R 0
0005500 ' D I S P L A Y N I L ) \r
0005520 ( S E T Q
0005540 M E N U F O N T ( F O N T C R
0005560 E A T E ' H E L V E T I C A
0005600 1 0 ) ) ) \r ( D
0005620 E C L A R E % : D O N T E V A
0005640 L @ L O A D D O E V A L @ C O
0005660 M P I L E D O N T C O P Y C
0005700 O M P I L E R V A R S ( A D D
0005720 V A R S ( N L A M A ) \r
0005740
*
0006040 ( N L A M L
0006060 ) \r
0006100
*
0006160 (
0006200 L A M A ] ) \r ( D E F I N E Q \r
0006220 \r ( 006 004 C O L O R D I S P L A Y
0006240 006 001 \r [ L A M B D A ( O N
0006260 O F F T Y P E ) 006 006 006 001
0006300
*
0006340 006 006 ( * k b r % : "
0006360 5 - J u n - 8 6 2 0 : 5 3 "
0006400 ) 006 001 \r
0006420
*
0006500 006 006 ( * T u r n h a r d w
0006520 a r e T Y P E c o l o r d
0006540 i s p l a y o n \r 006 001
0006560
*
0006640 006 006 o r o
0006660 f f . * ) 006 001 \r ( P R
0006700 O G ( O L D O N O F F O L D
0006720 T Y P E D I S P L A Y S T A T
0006740 E D I S P L A Y I N F O ) \r
0006760 [ C O N D \r
0007000 ( \ C O
0007020 L O R D I S P L A Y F D E V (
0007040 S E T Q D I S P L A Y S T A T
0007060 E ( 006 002 f e t c h 006 001 ( F D
0007100 E V D E V I C E I N F O ) 006
0007120 002 o f 006 001 \ C O L O R D I S P
0007140 L A Y F D E V ) ) \r
0007160 ( S
0007200 E T Q D I S P L A Y I N F O
0007220 ( 006 002 f e t c h 006 001 ( F D E V
0007240 W I N D O W D A T A ) 006 002 o
0007260 f 006 001 \ C O L O R D I S P L A
0007300 Y F D E V ) ) \r
0007320 ( S E T
0007340 Q O L D O N O F F ( 006 002 f e
0007360 t c h 006 001 ( D I S P L A Y S T
0007400 A T E O N O F F ) 006 002 o f 006
0007420 001 D I S P L A Y S T A T E ) )
0007440 \r
0007460 ( S E T Q O L D T Y
0007500 P E ( 006 002 f e t c h 006 001 ( D
0007520 I S P L A Y I N F O D I T Y P
0007540 E ) 006 002 o f 006 001 D I S P L A
0007560 Y I N F O ) ) \r
0007600 ( C O N
0007620 D \r
0007640 ( ( N U L L
0007660 T Y P E ) \r
0007700 ( S
0007720 E T Q T Y P E O L D T Y P E
0007740 ] \r [ C O N
0007760 D \r (
0010000 ( E Q O N O F F ' O N ) \r
0010020 ( C O
0010040 N D \r
0010060 ( ( E Q O L D O N O F
0010100 F ' O N )
0010120
0010140 006 006 ( * C o l o r d i s p l
0010160 a y a l r e a d y o n . \r 006
0010200 001
0010220
*
0010260 006 006
0010300 * ) 006 001 \r
0010320 ( 006 002 C O L O R D
0010340 I S P L A Y 006 001 ' O F F ) \r
0010360
0010400 ( 006 002 C O L O R D I S P L A Y
0010420 006 001 ' O N T Y P E ) ) \r
0010440 (
0010460 ( S E T Q \ C O L O R D I S P
0010500 L A Y F D E V ( 006 002 \ C R E A
0010520 T E C O L O R D I S P L A Y F D
0010540 E V 006 001 T Y P E ) ) \r
0010560
*
0010640 006 006 ( * C o
0010660 l o r d i s p l a y i s o
0010700 f f , t u r n i t o n . \r
0010720 006 001
0010740
*
0011000 006
0011020 006 * ) 006 001 \r
0011040 ( 006 002 \ S T A R
0011060 T C O L O R 006 001 \ C O L O R D
0011100 I S P L A Y F D E V ) ) ) \r
0011120 ( 006 002 S
0011140 C R E E N C O L O R M A P 006 001
0011160 ( 006 002 S C R E E N C O L O R M A
0011200 P 006 001 ) ) \r
0011220 ( C O N D \r
0011240 ( ( O R
0011260 ( N U L L \ C O L O R S C R E
0011300 E N ) \r
0011320 ( N O T (
0011340 E Q T Y P E O L D T Y P E )
0011360 ) ) \r
0011400 ( S E T Q \ C O L O
0011420 R S C R E E N ( C R E A T E S
0011440 C R E E N ( 006 002 C O L O R S C
0011460 R E E N B I T M A P 006 001 ) ) ) \r
0011500
0011520 ( W I N D O W W O R L D '
0011540 O N \ C O L O R S C R E E N )
0011560 \r \r
0011600 006 006 ( * B e s i d
0011620 e s b e i n g a t e s t
0011640 p a t t e r n , S H O W C O L
0011660 O R T E S T P A T T E R N c h
0011700 a n g e s a s o l i d f i
0011720 e l d o f \r 006 001
0011740 006 006 c o l o r i n t o
0011760 a s t r i p e d p a t t e
0012000 r n . S o m e c o l o r c
0012020 a r d s h a v e t r o u b l
0012040 e h o l d i n g a s o l i
0012060 d \r 006 001 006
0012100 006 f i e l d o f c o l o r
0012120 w i t h o u t v a r i a t i o
0012140 n s t e a d y . \r 006 001
0012160 006 006 * ) 006 001 \r \r
0012200
0012220 ( 006 002 S H O W C O L O R T E S T
0012240 P A T T E R N 006 001 1 0 ) ) ) \r
0012260 ( S
0012300 E T Q B A C K G R O U N D C U
0012320 R S O R E X I T F N ' C U R S
0012340 O R E X I T ) ) \r
0012360 ( ( E Q O N O F F
0012400 ' O F F ) \r
0012420 ( C O N D \r
0012440 ( ( N O
0012460 T ( E Q O L D O N O F F '
0012500 O F F ) )
0012520 006 006 ( * C o l
0012540 o r d i s p l a y i s o n
0012560 , t u r n i t o f f . \r 006
0012600 001
0012620
*
0012660 006 006
0012700 * ) 006 001 \r
0012720 ( S E T Q B A C
0012740 K G R O U N D C U R S O R E X I
0012760 T F N N I L ) \r
0013000 [ C O N D
0013020 \r
0013040 ( ( N O T ( E Q
0013060 \ C U R S O R S C R E E N \ M
0013100 A I N S C R E E N ) ) 006 006
0013120 ( * M o v e c u r s o r o
0013140 f f \ C O L O R S C R E E N .
0013160 \r 006 001
0013200
*
0013260 006 006 * ) 006 001 \r
0013300 ( C U
0013320 R S O R S C R E E N \ M A I N
0013340 S C R E E N ( I Q U O T I E N
0013360 T ( 006 002 f e t c h 006 001 ( S C
0013400 R E E N S C W I D T H ) 006 002
0013420 o f 006 001 \ M A I N S C R E E N
0013440 ) \r
0013460
*
0013520 2 ) \r
0013540
0013560 ( I Q U O T I
0013600 E N T ( 006 002 f e t c h 006 001 (
0013620 S C R E E N S C H E I G H T )
0013640 006 002 o f 006 001 \ M A I N S C R
0013660 E E N ) \r
0013700
0013720 2 ] \r
0013740 ( 006
0013760 002 \ S T O P C O L O R 006 001 \ C
0014000 O L O R D I S P L A Y F D E V ]
0014020 \r ( R E T U
0014040 R N O L D O N O F F ] ) \r \r (
0014060 006 004 C O L O R M A P B I T S 006 001
0014100 \r [ L A M B D A ( 006 002 C O
0014120 L O R M A P 006 001 ) 006 006 006 001
0014140
*
0014200 006 006 ( * k b r % :
0014220 " 5 - J u n - 8 5 2 0 : 4
0014240 7 " ) 006 001 \r ( I N T E G
0014260 E R L E N G T H ( S U B 1 (
0014300 A R R A Y S I Z E C O L O R M
0014320 A P ] ) \r \r ( 006 004 \ C r e a t e
0014340 C o l o r S c r e e n B i t M a
0014360 p 006 001 \r [ L A M B D A ( F
0014400 D E V ) 006 006 006 001
0014420
*
0014460 006 006 ( * ; " E d i
0014500 t e d 1 6 - J a n - 8 7 1 7
0014520 : 1 7 b y g b n " ) 006 001 \r
0014540
*
0014620 006 006 ( *
0014640 C r e a t e s c o l o r d
0014660 i s p l a y b i t m a p \r 006
0014700 001
0014720
*
0014760 006 006
0015000 C o l o r S c r e e n B i t M a
0015020 p f o r F D E V ) 006 001 \r
0015040 ( 006 002 D E C L A R E 006 001 (
0015060 G L O B A L V A R S C o l o r
0015100 S c r e e n B i t M a p ) ) \r
0015120 ( P R O G ( D I S P L A
0015140 Y I N F O W I D T H H E I G
0015160 H T B I T S P E R P I X E L )
0015200 \r ( S E T Q
0015220 D I S P L A Y I N F O ( 006 002
0015240 f e t c h 006 001 ( F D E V W I
0015260 N D O W D A T A ) 006 002 o f 006 001
0015300 F D E V ) ) \r
0015320 ( S E T Q W I D T H ( 006
0015340 002 f e t c h 006 001 ( D I S P L A
0015360 Y I N F O D I W I D T H ) 006
0015400 002 o f 006 001 D I S P L A Y I N F
0015420 O ) ) \r ( S
0015440 E T Q H E I G H T ( 006 002 f e
0015460 t c h 006 001 ( D I S P L A Y I N
0015500 F O D I H E I G H T ) 006 002 o
0015520 f 006 001 D I S P L A Y I N F O )
0015540 ) \r ( S E T
0015560 Q B I T S P E R P I X E L (
0015600 006 002 f e t c h 006 001 ( D I S P L
0015620 A Y I N F O D I B I T S P E R
0015640 P I X E L ) 006 002 o f 006 001 D I
0015660 S P L A Y I N F O ) ) \r
0015700 ( S E T Q C o l o
0015720 r S c r e e n B i t M a p ( 006
0015740 002 c r e a t e 006 001 B I T M A P
0015760 \r
0016000
0016020 B I T M A P
0016040 B A S E _ ( 006 002 \ C O L O R
0016060 D I S P L A Y B I T S 006 001 W I
0016100 D T H H E I G H T B I T S P
0016120 E R P I X E L ) \r
0016140
*
0016200 B I T M A P R A S T E R W I
0016220 D T H _ ( F O L D H I ( I
0016240 T I M E S W I D T H B I T S
0016260 P E R P I X E L ) \r
0016300
*
0016360 B I
0016400 T S P E R W O R D ) \r
0016420
*
0016460 B I T M A P W I D T H
0016500 _ W I D T H \r
0016520
*
0016560 B I T M A P H E I G H T _
0016600 H E I G H T \r
0016620
*
0016660 B I T M A P B I T S P E R P I X
0016700 E L _ B I T S P E R P I X E
0016720 L ) ) \r ( R
0016740 E T U R N C o l o r S c r e e
0016760 n B i t M a p ] ) \r \r ( 006 004 \ C
0017000 R E A T E C O L O R D I S P L A
0017020 Y F D E V 006 001 \r [ L A M B D
0017040 A ( T Y P E ) 006 006 006 001
0017060
*
0017120 006 006 ( * k b
0017140 r % : " 1 5 - F e b - 8 6 1
0017160 4 : 4 8 " ) 006 001 \r ( P R
0017200 O G ( D I S P L A Y I N F O
0017220 W S O P S ) \r
0017240 ( S E T Q D I S P L A Y I N
0017260 F O ( A S S O C T Y P E \
0017300 D I S P L A Y I N F O A L I S T
0017320 ) ) \r ( S E
0017340 T Q W S O P S ( 006 002 f e t c
0017360 h 006 001 ( D I S P L A Y I N F O
0017400 D I W S O P S ) 006 002 o f 006 001
0017420 D I S P L A Y I N F O ) ) \r
0017440 ( C O N D \r
0017460 ( ( N U
0017500 L L D I S P L A Y I N F O ) \r
0017520 ( R
0017540 E T U R N \ C O L O R D I S P
0017560 L A Y F D E V ) ) ) \r
0017600 [ C O N D \r
0017620 ( ( N U L L \
0017640 C O L O R D I S P L A Y F D E V
0017660 ) \r
0017700 ( S E T Q \ C O L O R D I S P
0017720 L A Y F D E V ( \ C R E A T E
0017740 D I S P L A Y ' C O L O R D I
0017760 S P L A Y ] \r
0020000 ( 006 002 r e p l a c e 006 001 ( F
0020020 D E V W I N D O W D A T A )
0020040 006 002 o f 006 001 \ C O L O R D I S
0020060 P L A Y F D E V 006 002 w i t h 006
0020100 001 D I S P L A Y I N F O ) \r
0020120 ( 006 002 r e p l
0020140 a c e 006 001 ( F D E V E V E N
0020160 T F N ) 006 002 o f 006 001 \ C O L
0020200 O R D I S P L A Y F D E V 006 002
0020220 w i t h 006 001 ( 006 002 f e t c h 006
0020240 001 ( W S O P S E V E N T F N
0020260 ) 006 002 o f 006 001 W S O P S ) )
0020300 \r ( 006 002 r e
0020320 p l a c e 006 001 ( F D E V W I
0020340 N D O W O P S ) 006 002 o f 006 001
0020360 \ C O L O R D I S P L A Y F D E
0020400 V 006 002 w i t h 006 001 W S O P S
0020420 ) \r ( 006 002 \
0020440 C r e a t e C o l o r S c r e e
0020460 n B i t M a p 006 001 \ C O L O R
0020500 D I S P L A Y F D E V ) \r
0020520 ( R E T U R N \
0020540 C O L O R D I S P L A Y F D E V
0020560 ] ) \r \r ( 006 004 C O L O R M A P 006
0020600 001 \r [ L A M B D A ( B I T
0020620 S P E R P I X E L N E W C O L
0020640 O R M A P ) 006 006 006 001
0020660
0020700 006 006 ( * k b r % : " 2
0020720 1 - A u g - 8 5 2 1 : 0 6 " )
0020740 006 001 \r
0020760
*
0021040 006 006 ( * C h a n g e s y s t
0021060 e m c o l o r m a p t o \r
0021100 006 001
0021120
*
0021160 006
0021200 006 N E W C O L O R M A P r e t
0021220 u r n i n g O L D C O L O R M
0021240 A P * ) 006 001 \r ( P R O
0021260 G ( O L D C O L O R M A P ) \r
0021300 ( S E T Q
0021320 O L D C O L O R M A P ( S E L
0021340 E C T Q B I T S P E R P I X E
0021360 L \r
0021400
0021420 ( 4 \ 4 C O L O R M A P )
0021440 \r
0021460
0021500 ( 8 \ 8 C O L O R M A P ) \r
0021520
*
0021560 N I L ) ) \r
0021600 [ C O N D \r
0021620 ( N E W C O L O R M A P
0021640 ( S E L E C T Q B I T S P E R
0021660 P I X E L \r
0021700
0021720 ( 4 ( S E T Q \ 4 C
0021740 O L O R M A P N E W C O L O R
0021760 M A P ) ) \r
0022000
0022020 ( 8 ( S E T Q \ 8 C
0022040 O L O R M A P N E W C O L O R
0022060 M A P ) ) \r
0022100
0022120 N I L ) \r
0022140 ( C O
0022160 N D \r
0022200 ( ( A N D
0022220 \ C O L O R D I S P L A Y F D E
0022240 V ( E Q ( 006 002 f e t c h 006 001
0022260 ( D I S P L A Y S T A T E O
0022300 N O F F ) \r
0022320
*
0022360 006 002 o f
0022400 006 001 ( 006 002 f e t c h 006 001 ( F
0022420 D E V D E V I C E I N F O )
0022440 006 002 o f 006 001 \r
0022460
*
0022560 \ C O L
0022600 O R D I S P L A Y F D E V \r
0022620
*
0022700 ) )
0022720 \r
0022740
*
0023000 ' O N ) \r
0023020
0023040 ( E Q ( B I T S P
0023060 E R P I X E L ( 006 002 C O L O R
0023100 S C R E E N B I T M A P 006 001 ) )
0023120 \r
0023140
0023160 B I T S P E R P I X E L ) )
0023200 \r
0023220 ( 006 002 f o r 006
0023240 001 I 006 002 f r o m 006 001 0 006
0023260 002 t o 006 001 ( S U B 1 ( A R R
0023300 A Y S I Z E N E W C O L O R M
0023320 A P ) ) \r
0023340
0023360 006 002 d o 006 001 ( 006 002 \ S E N D C
0023400 O L O R M A P E N T R Y 006 001 \
0023420 C O L O R D I S P L A Y F D E V
0023440 I ( E L T N E W C O L O R
0023460 M A P I ] \r
0023500 ( R E T U R N O L D C O L O
0023520 R M A P ] ) \r \r ( 006 004 S C R E E
0023540 N C O L O R M A P 006 001 \r [ L
0023560 A M B D A ( N E W C O L O R M
0023600 A P ) 006 006 006 001
0023620
0023640 006 006 (
0023660 * k b r % : " 2 1 - A u g -
0023700 8 5 2 1 : 1 2 " ) 006 001 \r
0023720 ( 006 002 C O L O R M A P 006 001 (
0023740 B I T S P E R P I X E L ( 006 002
0023760 C O L O R S C R E E N B I T M A
0024000 P 006 001 ) ) \r
0024020 N E W C O L O R M A P ] ) \r \r
0024040 ( 006 004 S C R E E N C O L O R M A
0024060 P E N T R Y 006 001 \r [ L A M B
0024100 D A ( C O L O R R G B ) 006 006
0024120 006 001
0024140
0024160 006 006 ( * k
0024200 b r % : " 5 - J u n - 8 6
0024220 1 9 : 4 0 " ) 006 001 \r ( S
0024240 E T A ( 006 002 S C R E E N C O L
0024260 O R M A P 006 001 ) \r
0024300 C O L O R R G B ) \r
0024320 ( 006 002 \ S E N D C O L O R M
0024340 A P E N T R Y 006 001 \ C O L O R
0024360 D I S P L A Y F D E V C O L O
0024400 R R G B ] ) \r \r ( 006 004 R O T A
0024420 T E C O L O R M A P 006 001 \r [
0024440 L A M B D A ( S T A R T C O L
0024460 O R T H R U C O L O R ) 006 006 006
0024500 001
0024520 006 006
0024540 ( * k b r % : " 5 - J u n
0024560 - 8 6 2 3 : 2 0 " ) 006 001 \r
0024600 ( P R O G ( 006 002 C O L O R
0024620 M A P 006 001 R G B ) \r
0024640 ( S E T Q C O L O R
0024660 M A P ( 006 002 S C R E E N C O L
0024700 O R M A P 006 001 ) ) \r
0024720 ( C O N D \r
0024740 ( ( N U L L S T
0024760 A R T C O L O R ) \r
0025000 ( S E T Q S T
0025020 A R T C O L O R 0 ) ) ) \r
0025040 [ C O N D \r
0025060 ( ( N U L
0025100 L T H R U C O L O R ) \r
0025120 ( S E T Q
0025140 T H R U C O L O R ( S U B 1
0025160 ( A R R A Y S I Z E C O L O
0025200 R M A P ] \r
0025220 ( S E T Q R G B ( E L T C
0025240 O L O R M A P T H R U C O L O
0025260 R ) ) \r ( 006
0025300 002 f o r 006 001 C O L O R 006 002 f
0025320 r o m 006 001 S T A R T C O L O R
0025340 006 002 t o 006 001 T H R U C O L O
0025360 R 006 002 d o 006 001 ( 006 002 s w a p
0025400 006 001 R G B ( E L T C O L O
0025420 R M A P C O L O R ) ) \r
0025440
*
0025520 ( 006 002 \ S E N D C O L O R M
0025540 A P E N T R Y 006 001 \ C O L O R
0025560 D I S P L A Y F D E V C O L O
0025600 R \r
0025620
*
0025660 ( E
0025700 L T C O L O R M A P C O L O
0025720 R ] ) \r \r ( 006 004 R G B C O L O R
0025740 M A P 006 001 \r [ L A M B D A
0025760 ( R E D B I T S G R E E N B I
0026000 T S B L U E B I T S B I T S
0026020 P E R P I X E L ) 006 006 006 001
0026040 006 006 ( * k b r %
0026060 : " 1 3 - A u g - 8 5 1 6 :
0026100 4 9 " ) 006 001 \r
0026120 \r 006 006 ( *
0026140 c r e a t e s a c o l o r
0026160 m a p w i t h t h e s p
0026200 e c i f i e d n u m b e r o
0026220 f b i t s a l l o c a t e d
0026240 p e r p r i m a r y \r 006 001
0026260 006 006 c o l o
0026300 r . A l w a y s h a s t h
0026320 e R E D b i t s o n t h
0026340 e l e f t . ) 006 001 \r \r
0026360 ( P R O G ( N R E D N G R E
0026400 E N N B L U E R E D S G R
0026420 E E N S B L U E S C O L O R
0026440 M A P ) \r (
0026460 S E T Q N R E D ( S U B 1
0026500 ( E X P T 2 R E D B I T S )
0026520 ) ) \r ( S E
0026540 T Q N G R E E N ( S U B 1
0026560 ( E X P T 2 G R E E N B I T
0026600 S ) ) ) \r (
0026620 S E T Q N B L U E ( S U B 1
0026640 ( E X P T 2 B L U E B I T
0026660 S ) ) ) \r [
0026700 S E T Q R E D S ( 006 002 f o r
0026720 006 001 I 006 002 f r o m 006 001 0
0026740 006 002 t o 006 001 N R E D 006 002 c o
0026760 l l e c t 006 001 ( F I X R ( F
0027000 Q U O T I E N T ( I T I M E S
0027020 2 5 5 I ) \r
0027040
*
0027120 N R E D ] \r
0027140 [ S E T Q G R
0027160 E E N S ( 006 002 f o r 006 001 I
0027200 006 002 f r o m 006 001 0 006 002 t o 006
0027220 001 N G R E E N 006 002 c o l l e
0027240 c t 006 001 ( F I X R ( F Q U O
0027260 T I E N T ( I T I M E S 2 5
0027300 5 I ) \r
0027320
*
0027400 N G R E E N ]
0027420 \r [ S E T Q
0027440 B L U E S ( 006 002 f o r 006 001
0027460 I 006 002 f r o m 006 001 0 006 002 t
0027500 o 006 001 N B L U E 006 002 c o l l
0027520 e c t 006 001 ( F I X R ( F Q U
0027540 O T I E N T ( I T I M E S 2
0027560 5 5 I ) \r
0027600
*
0027660 N B L U E ] \r
0027700 ( S E T Q C
0027720 O L O R M A P \r
0027740 ( 006 002 C O L O R M A P C R
0027760 E A T E 006 001 [ 006 002 f o r 006 001
0030000 I 006 002 f r o m 006 001 1 006 002 t
0030020 o 006 001 ( E X P T 2 ( I D I
0030040 F F E R E N C E B I T S P E R
0030060 P I X E L ( I P L U S R E D
0030100 B I T S \r
0030120
*
0030220 G R E E N
0030240 B I T S \r
0030260
*
0030360 B L U E B
0030400 I T S ) ) ) \r
0030420
0030440 006 002 j o i n 006 001 ( 006
0030460 002 f o r 006 001 R E D 006 002 i n 006
0030500 001 R E D S \r
0030520
0030540 006 002 j
0030560 o i n 006 001 ( 006 002 f o r 006 001 G
0030600 R E E N 006 002 i n 006 001 G R E E
0030620 N S \r
0030640
*
0030700 006 002 j o i n 006 001 ( 006 002 f o r
0030720 006 001 B L U E 006 002 i n 006 001 B
0030740 L U E S \r
0030760
*
0031020 006 002 c o l
0031040 l e c t 006 001 ( 006 002 c r e a t e
0031060 006 001 R G B \r
0031100
*
0031160 R E D
0031200 _ R E D \r
0031220
*
0031300 G R E E N
0031320 _ G R E E N \r
0031340
*
0031420 B L
0031440 U E _ B L U E ] \r
0031460 B I T
0031500 S P E R P I X E L ) ) \r
0031520 ( R E T U R N C O
0031540 L O R M A P ] ) \r \r ( 006 004 C M Y
0031560 C O L O R M A P 006 001 \r [ L A
0031600 M B D A ( C Y A N B I T S M
0031620 A G E N T A B I T S Y E L L O
0031640 W B I T S B I T S P E R P I X
0031660 E L ) 006 006 006 001 006 006 ( *
0031700 k b r % : " 1 3 - A u g - 8
0031720 5 1 6 : 4 6 " ) 006 001 \r
0031740 ( P R O G ( 006 002 C O L O R M A
0031760 P 006 001 M A X C O L O R ) \r
0032000 ( S E T Q C O
0032020 L O R M A P ( 006 002 R G B C O L
0032040 O R M A P 006 001 C Y A N B I T S
0032060 M A G E N T A B I T S Y E L
0032100 L O W B I T S B I T S P E R P
0032120 I X E L ) ) \r
0032140 ( S E T Q M A X C O L O R
0032160 ( S U B 1 ( A R R A Y S I Z E
0032200 C O L O R M A P ) ) ) \r
0032220 [ 006 002 f o r 006 001
0032240 I 006 002 f r o m 006 001 0 006 002 t
0032260 o 006 001 ( I Q U O T I E N T M
0032300 A X C O L O R 2 ) 006 002 d o 006
0032320 001 ( 006 002 s w a p 006 001 ( E L T
0032340 C O L O R M A P I ) \r
0032360
*
0032440 ( E L T C O L
0032460 O R M A P ( I D I F F E R E N
0032500 C E M A X C O L O R I ] \r
0032520 ( R E T U R N
0032540 C O L O R M A P ] ) \r \r ( 006 004
0032560 G R A Y C O L O R M A P 006 001 \r
0032600 [ L A M B D A ( B I T S P E
0032620 R P I X E L ) 006 006 006 001
0032640
*
0032700 006 006 ( * k b r % : " 1 1 - J
0032720 u l - 8 5 1 9 : 2 0 " ) 006 001 \r
0032740
*
0033020 006 006 (
0033040 * c r e a t e s a g r a y
0033060 c o l o r m a p * ) 006 001 \r
0033100 ( P R O G ( M A X C O
0033120 L O R G R A Y S C O L O R M
0033140 A P ) \r ( S
0033160 E T Q M A X C O L O R ( M A
0033200 X I M U M C O L O R B I T S P
0033220 E R P I X E L ) ) \r
0033240 [ S E T Q G R A Y S
0033260 ( 006 002 f o r 006 001 I 006 002 f r o
0033300 m 006 001 M A X C O L O R 006 002 t
0033320 o 006 001 0 006 002 b y 006 001 - 1
0033340 006 002 c o l l e c t 006 001 ( F I X
0033360 R ( F Q U O T I E N T ( I T
0033400 I M E S 2 5 5 I ) \r
0033420
*
0033520 M A X C O L O R ]
0033540 \r ( S E T Q
0033560 C O L O R M A P ( 006 002 C O L
0033600 O R M A P C R E A T E 006 001 ( 006
0033620 002 f o r 006 001 G R A Y 006 002 i n
0033640 006 001 G R A Y S \r
0033660
*
0033720 006 002 c o l l e c t 006 001
0033740 ( 006 002 c r e a t e 006 001 R G B
0033760 \r
0034000
*
0034040 R E D
0034060 _ G R A Y \r
0034100
*
0034160 G R E E N _ G R A Y \r
0034200
*
0034260 B L U E _
0034300 G R A Y ) ) \r
0034320
0034340 B I T S P E R P
0034360 I X E L ) ) \r
0034400 ( R E T U R N C O L O R M A
0034420 P ] ) \r \r ( 006 004 C O L O R S C R
0034440 E E N B I T M A P 006 001 \r [ L
0034460 A M B D A N I L 006 006 006 001
0034500
*
0034540 006 006 (
0034560 * r r b " 2 2 - O C T - 8 2
0034600 1 4 : 0 1 " ) 006 001 \r
0034620
*
0034700 006 006 ( * r e t
0034720 u r n s t h e c o l o r s
0034740 c r e e n b i t m a p ) 006 001 \r
0034760 C o l o r S c r e e n B
0035000 i t M a p ] ) \r \r ( 006 004 \ C O L
0035020 O R D I S P L A Y B I T S 006 001 \r
0035040 [ L A M B D A ( W I D T H
0035060 H E I G H T B I T S P E R P
0035100 I X E L ) 006 006 006 001
0035120
0035140 006 006 ( * k b r % : " 1 8 -
0035160 A u g - 8 5 1 7 : 0 9 " ) 006 001
0035200 \r \r
0035220 006 006 ( * r e t u r
0035240 n s a p o i n t e r t o
0035260 t h e b i t s t h a t t h
0035300 e c o l o r b o a r d n e
0035320 e d s . ) 006 001 \r \r ( 006 002
0035340 D E C L A R E 006 001 ( G L O B A
0035360 L V A R S \ C O L O R D I S P
0035400 L A Y B I T S ) ) \r ( P
0035420 R O G ( N P A G E S ) \r
0035440 \r
0035460 006 006 ( * T B W % : I f
0035500 y o u c o m e t h r o u g h
0035520 t h i s f u n c t i o n a
0035540 s e c o n d t i m e w i t
0035560 h d i f f e r e n t s c r e
0035600 e n \r 006 001
0035620 006 006 p a r a m s w o n ' t y
0035640 o u g e t s c r e w e d h
0035660 a l f t h e t i m e ? * )
0035700 006 001 \r \r [ C
0035720 O N D \r
0035740 ( ( N U L L \ C O L O R D I
0035760 S P L A Y B I T S )
0036000
0036020 006 006 ( * 2 e x t r a p a
0036040 g e s n e e d e d f o r \r
0036060 006 001
0036100
*
0036140 006
0036160 006 D O R A D O C O L O R m i c
0036200 r o c o d e b u g . \r 006 001
0036220
*
0036300 006 006 * ) 006
0036320 001 \r
0036340 ( S E T Q N P A G E S ( I P
0036360 L U S ( F O L D H I ( I T I
0036400 M E S ( F O L D H I ( I T I
0036420 M E S W I D T H B I T S P E
0036440 R P I X E L ) \r
0036460
*
0036540 B I T S P E R W O R D ) \r
0036560
*
0036620 H
0036640 E I G H T ) \r
0036660
*
0036720 W O R D S P E R P A G E ) \r
0036740
*
0037000 2 ) ) \r \r
0037020 006 006 ( * \ A
0037040 L L O C B L O C K c a n ' t
0037060 h a c k b i t m a p s o f
0037100 t h e s i z e o f t h e
0037120 1 1 3 2 c o l o r s c r e e
0037140 n ) 006 001 \r \r
0037160 ( S E T Q \ C O L O R
0037200 D I S P L A Y B I T S ( C O N
0037220 D \r
0037240
0037260 ( ( I G R
0037300 E A T E R P ( U N F O L D N
0037320 P A G E S C E L L S P E R P A
0037340 G E ) \r
0037360
*
0037420 \ M a x A r r a y N C
0037440 e l l s ) \r
0037460
*
0037520 ( O R ( \ A L L O C P A G E B
0037540 L O C K N P A G E S ) \r
0037560
*
0037620 ( E R R O
0037640 R " N o r o o m f o r c
0037660 o l o r s c r e e n o f s
0037700 i z e " N P A G E S ) ) ) \r
0037720
*
0037760 ( T ( \ A L L
0040000 O C B L O C K ( U N F O L D
0040020 N P A G E S C E L L S P E R P
0040040 A G E ) \r
0040060
*
0040120 N I L N I L
0040140 C E L L S P E R P A G E ] \r
0040160 ( R E T U R N
0040200 \ C O L O R D I S P L A Y B I T
0040220 S ] ) \r \r ( 006 004 C O L O R S C R
0040240 E E N 006 001 \r [ L A M B D A
0040260 N I L 006 006 006 001
0040300
*
0040340 006 006 ( * k b r %
0040360 : " 2 - F e b - 8 6 1 5 :
0040400 0 2 " ) 006 001 \r \ C O L O
0040420 R S C R E E N ] ) \r \r ( 006 004 S H
0040440 O W C O L O R T E S T P A T T E
0040460 R N 006 001 \r [ L A M B D A (
0040500 S I Z E ) 006 006 006 001
0040520
*
0040560 006 006 ( * k b r % :
0040600 " 1 5 - F e b - 8 6 1 5 : 1
0040620 6 " ) 006 001 \r
0040640 \r 006 006 ( *
0040660 P u t a c o l o r t e s t
0040700 p a t t e r n o n t h e
0040720 c o l o r d i s p l a y . \r 006
0040740 001 006 006 S I Z
0040760 E i s t h e s i z e o f
0041000 t h e s t r i p e s t h a
0041020 t w i l l b e p u t u p
0041040 . \r 006 001 006 006
0041060 * ) 006 001 \r \r ( P R O G
0041100 ( D E S T I N A T I O N W I D
0041120 T H H E I G H T B I T S P E
0041140 R P I X E L C O L O R S N C
0041160 O L O R S ) \r
0041200 ( O R ( N U M B E R P S I
0041220 Z E ) \r
0041240 ( S E T Q S I Z E 1 0 )
0041260 ) \r ( S E T
0041300 Q D E S T I N A T I O N ( 006
0041320 002 C O L O R S C R E E N B I T M
0041340 A P 006 001 ) ) \r
0041360 ( S E T Q W I D T H ( B I
0041400 T M A P W I D T H D E S T I N
0041420 A T I O N ) ) \r
0041440 ( S E T Q H E I G H T (
0041460 B I T M A P H E I G H T D E S
0041500 T I N A T I O N ) ) \r
0041520 ( S E T Q B I T S P
0041540 E R P I X E L ( B I T S P E R
0041560 P I X E L D E S T I N A T I O
0041600 N ) ) \r ( B
0041620 L T S H A D E M I N I M U M S
0041640 H A D E D E S T I N A T I O N
0041660 ) \r ( S E T
0041700 Q C O L O R S ( 006 002 f o r 006
0041720 001 B U C K E T 006 002 i n 006 001
0041740 C O L O R N A M E S 006 002 c o l
0041760 l e c t 006 001 ( C A R B U C K
0042000 E T ) ) ) \r
0042020 ( S E T Q N C O L O R S ( L
0042040 E N G T H C O L O R S ) ) \r
0042060 ( 006 002 f o r 006
0042100 001 C O L O R 006 002 f r o m 006 001
0042120 0 006 002 a s 006 001 L E F T 006
0042140 002 f r o m 006 001 1 0 006 002 b y 006
0042160 001 8 0 006 002 t o 006 001 W I D T
0042200 H \r 006
0042220 002 d o 006 001 ( B L T S H A D E
0042240 [ C A R ( N T H C O L O R S
0042260 ( A D D 1 ( I M O D C O L
0042300 O R N C O L O R S ] \r
0042320
0042340 D E S T I N A T I O N L
0042360 E F T 4 1 0 6 0 6 0 ) ) \r
0042400 ( 006 002 f o r
0042420 006 001 C O L O R 006 002 f r o m 006
0042440 001 1 006 002 a s 006 001 L E F T
0042460 006 002 f r o m 006 001 1 0 006 002 b y
0042500 006 001 8 0 006 002 t o 006 001 W I D
0042520 T H \r
0042540 006 002 d o 006 001 ( B L T S H A D E
0042560 [ C A R ( N T H C O L O R
0042600 S ( A D D 1 ( I M O D C O
0042620 L O R N C O L O R S ] \r
0042640
0042660 D E S T I N A T I O N
0042700 L E F T 3 3 0 6 0 6 0 ) )
0042720 \r ( 006 002 f o
0042740 r 006 001 H O R I Z C O L O R 006
0042760 002 f r o m 006 001 0 006 002 a s 006 001
0043000 B O T T O M 006 002 f r o m 006 001
0043020 0 006 002 t o 006 001 3 0 0 006 002
0043040 b y 006 001 S I Z E \r
0043060 006 002 d o 006 001 ( B
0043100 L T S H A D E [ C A R ( N T
0043120 H C O L O R S ( A D D 1 (
0043140 I M O D H O R I Z C O L O R
0043160 N C O L O R S ] \r
0043200
0043220 D E S T I N A T I O N 0 B O
0043240 T T O M W I D T H S I Z E
0043260 ' R E P L A C E ) \r
0043300 006 002 f i n a l l y
0043320 006 001 ( 006 002 f o r 006 001 V E R T
0043340 C O L O R 006 002 f r o m 006 001 0
0043360 006 002 a s 006 001 L E F T 006 002 f
0043400 r o m 006 001 0 006 002 t o 006 001 W
0043420 I D T H 006 002 b y 006 001 ( I T I
0043440 M E S S I Z E 2 ) \r
0043460
0043500 006 002 d o 006 001 ( B L T S
0043520 H A D E [ C A R ( N T H C
0043540 O L O R S ( A D D 1 ( I M O
0043560 D V E R T C O L O R N C O L
0043600 O R S ] \r
0043620
0043640 D E S T I N A T I
0043660 O N L E F T 0 S I Z E B
0043700 O T T O M ' R E P L A C E ] )
0043720 \r ) \r \r ( R P A Q ? 006 002 C O L
0043740 O R M O N I T O R T Y P E 006 001
0043760 ' C O N R A C ) \r ( D E F I N E
0044000 Q \r \r ( 006 004 \ S T A R T C O L O
0044020 R 006 001 \r [ L A M B D A ( F
0044040 D E V ) 006 006 006 001
0044060
*
0044120 006 006 ( * k b r % :
0044140 " 1 - J u l - 8 5 1 3 : 4 1
0044160 " ) 006 001 \r ( W S O P '
0044200 S T A R T C O L O R F D E V ]
0044220 ) \r \r ( 006 004 \ S T O P C O L O R
0044240 006 001 \r [ L A M B D A ( F D
0044260 E V ) 006 006 006 001
0044300
*
0044340 006 006 ( * k b r % : "
0044360 1 - J u l - 8 5 1 3 : 4 0 "
0044400 ) 006 001 \r ( W S O P ' S
0044420 T O P C O L O R F D E V ] ) \r
0044440 \r ( 006 004 \ S E N D C O L O R M A
0044460 P E N T R Y 006 001 \r [ L A M B
0044500 D A ( F D E V C O L O R #
0044520 R G B ) 006 006 006 001
0044540
0044560 006 006 ( * k
0044600 b r % : " 1 - J u l - 8 5
0044620 1 9 : 4 3 " ) 006 001 \r
0044640
*
0044720 006 006 ( * c h a n
0044740 g e s t h e w i n d o w w
0044760 o r l d b a c k g r o u n d
0045000 \r 006 001
0045020
*
0045100 006 006 t o S H A D E ) 006 001 \r
0045120 ( W S O P ' S E N D C O L
0045140 O R M A P E N T R Y F D E V
0045160 C O L O R # R G B ] ) \r ) \r (
0045200 D E F I N E Q \r \r ( 006 004 C O L O
0045220 R M A P C R E A T E 006 001 \r [
0045240 L A M B D A ( I N T E N S I T
0045260 I E S B I T S P E R P I X E L
0045300 ) 006 006 006 001
0045320 006 006
0045340 ( * ; " E d i t e d 1 6 -
0045360 J a n - 8 7 1 7 : 3 6 b y
0045400 g b n " ) 006 001 \r ( P R O
0045420 G ( 006 002 C O L O R M A P 006 001 )
0045440 \r ( S E L E
0045460 C T Q B I T S P E R P I X E L
0045500 \r (
0045520 4 [ C O N D \r
0045540 ( ( N U
0045560 L L I N T E N S I T I E S ) \r
0045600
0045620 ( S E T Q C O L O R
0045640 M A P ( 006 002 C M Y C O L O R M
0045660 A P 006 001 2 1 1 B I T S P
0045700 E R P I X E L ) ) ) \r
0045720 (
0045740 T ( S E T Q C O L O R M A P
0045760 ( A R R A Y 1 6 N I L N
0046000 I L 0 ) ) \r
0046020 ( 006
0046040 002 f o r 006 001 C O L O R 006 002 f
0046060 r o m 006 001 0 006 002 t o 006 001 1
0046100 5 006 002 a s 006 001 R G B 006 002 i
0046120 n 006 001 I N T E N S I T I E S \r
0046140
0046160 006 002 d o 006 001
0046200 ( S E T A C O L O R M A P
0046220 C O L O R R G B ] ) \r
0046240 ( 8 [ C O
0046260 N D \r
0046300 ( ( N U L L I N
0046320 T E N S I T I E S ) \r
0046340
0046360 ( S E T Q C O L O R M A P (
0046400 006 002 C M Y C O L O R M A P 006 001
0046420 3 3 2 B I T S P E R P I X
0046440 E L ) ) ) \r
0046460 ( T ( S E
0046500 T Q C O L O R M A P ( A R R
0046520 A Y 2 5 6 N I L N I L 0
0046540 ) ) \r
0046560 ( 006 002 f o r
0046600 006 001 C O L O R 006 002 f r o m 006
0046620 001 0 006 002 t o 006 001 2 5 5 006
0046640 002 a s 006 001 R G B 006 002 i n 006 001
0046660 I N T E N S I T I E S \r
0046700
0046720 006 002 d o 006 001 ( S
0046740 E T A C O L O R M A P C O L
0046760 O R R G B ] ) \r
0047000 ( 2 4 ( S E T Q
0047020 C O L O R M A P N I L ) ) \r
0047040 ( \
0047060 I L L E G A L . A R G B I T S
0047100 P E R P I X E L ) ) \r
0047120 ( R E T U R N C O L
0047140 O R M A P ] ) \r \r ( 006 004 C O L O
0047160 R L E V E L 006 001 \r [ L A M B
0047200 D A ( C O L O R P R I M A R
0047220 Y N E W L E V E L ) 006 006 006 001
0047240
0047260 006 006 ( * k
0047300 b r % : " 5 - J u n - 8 6
0047320 1 9 : 5 8 " ) 006 001 \r ( P
0047340 R O G ( R G B O L D V A L U
0047360 E ) \r ( S E
0047400 T Q R G B ( E L T ( 006 002 S
0047420 C R E E N C O L O R M A P 006 001 )
0047440 \r
0047460 C O L O R )
0047500 ) \r ( S E T
0047520 Q O L D V A L U E ( S E L E
0047540 C T Q P R I M A R Y \r
0047560
0047600 ( R E D ( 006
0047620 002 f e t c h 006 001 ( R G B R E
0047640 D ) 006 002 o f 006 001 R G B ) ) \r
0047660
0047700 ( G R
0047720 E E N ( 006 002 f e t c h 006 001 (
0047740 R G B G R E E N ) 006 002 o f 006
0047760 001 R G B ) ) \r
0050000
0050020 ( B L U E ( 006 002 f e
0050040 t c h 006 001 ( R G B B L U E )
0050060 006 002 o f 006 001 R G B ) ) \r
0050100
0050120 ( \ I L L
0050140 E G A L . A R G P R I M A R Y
0050160 ) ) ) \r ( C
0050200 O N D \r
0050220 ( N E W L E V E L ( S E L E
0050240 C T Q P R I M A R Y \r
0050260
0050300 ( R E D ( 006 002 r
0050320 e p l a c e 006 001 ( R G B R E
0050340 D ) 006 002 o f 006 001 R G B 006 002
0050360 w i t h 006 001 N E W L E V E L )
0050400 ) \r
0050420 ( G R
0050440 E E N ( 006 002 r e p l a c e 006 001
0050460 ( R G B G R E E N ) 006 002 o
0050500 f 006 001 R G B 006 002 w i t h 006 001
0050520 N E W L E V E L ) ) \r
0050540
0050560 ( B L U E ( 006 002
0050600 r e p l a c e 006 001 ( R G B B
0050620 L U E ) 006 002 o f 006 001 R G B
0050640 006 002 w i t h 006 001 N E W L E V E
0050660 L ) ) \r
0050700 (
0050720 S H O U L D N T ) ) \r
0050740 (
0050760 006 002 \ S E N D C O L O R M A P E
0051000 N T R Y 006 001 \ C O L O R D I S
0051020 P L A Y F D E V C O L O R R
0051040 G B ) ) ) \r
0051060 ( R E T U R N O L D V A L U E
0051100 ] ) \r \r ( 006 004 C O L O R N U M B
0051120 E R P 006 001 \r [ L A M B D A
0051140 ( C O L O R # B I T S P E R P
0051160 I X E L N O E R R F L G ) 006 006
0051200 006 001
0051220 006 006 ( * k b r %
0051240 : " 2 1 - A u g - 8 5 2 1 :
0051260 2 2 " ) 006 001 \r
0051300
*
0051360 006 006 ( * r e t u r n s
0051400 t h e c o l o r n u m b e
0051420 r f r o m a \r 006 001
0051440
*
0051520 006 006 c o l o r
0051540 . ) 006 001 \r ( P R O G (
0051560 R G B ) \r (
0051600 C O N D \r
0051620 [ ( F I X P C O L O R # )
0051640 \r (
0051660 R E T U R N ( C O N D \r
0051700
0051720 ( ( A N D ( I G E
0051740 Q C O L O R # 0 ) \r
0051760
0052000 ( I L E Q
0052020 C O L O R # ( M A X I M U M
0052040 C O L O R B I T S P E R P I X
0052060 E L ) ) \r
0052100
0052120 C O L O R # ) ) \r
0052140
0052160 ( N O E R R F L G
0052200 N I L ) \r
0052220 ( T
0052240 ( \ I L L E G A L . A R G C
0052260 O L O R # ] \r
0052300 [ ( L I T A T O M C O
0052320 L O R # ) \r
0052340 ( R E T U R N ( C O N
0052360 D \r
0052400 ( ( S E T
0052420 Q R G B ( \ L O O K U P C O
0052440 L O R N A M E C O L O R # ) )
0052460 \r
0052500
*
0052540 006 006
0052560 ( * r e c u r s i v e l y l
0052600 o o k u p c o l o r n u m
0052620 b e r ) 006 001 \r
0052640
0052660 ( 006 002 C O L O R N U M B E R P
0052700 006 001 ( C D R R G B ) \r
0052720
0052740 B I
0052760 T S P E R P I X E L N O E R R
0053000 F L G ) ) \r
0053020 (
0053040 N O E R R F L G N I L ) \r
0053060
0053100 ( T ( E R R O R
0053120 " U n k n o w n c o l o r
0053140 n a m e " C O L O R # ] \r
0053160 ( ( H L S
0053200 P C O L O R # )
0053220
0053240 006 006 ( *
0053260 H L S f o r m c o n v e r t
0053300 t o R G B ) 006 001 \r
0053320 ( S E T Q R
0053340 G B ( H L S T O R G B C O L
0053360 O R # ) ) ) \r
0053400 ( ( R G B P C O L O R
0053420 # )
0053440
0053460 006 006 ( * c h e c k f
0053500 o r R G B o r H L S ) 006 001
0053520 \r (
0053540 S E T Q R G B C O L O R # )
0053560 ) \r (
0053600 N O E R R F L G ( R E T U R N
0053620 N I L ) ) \r
0053640 ( T ( \ I L L E G A L
0053660 . A R G C O L O R # ) ) ) \r
0053700 ( R E T U R N
0053720 ( C O N D \r
0053740 ( ( 006 002
0053760 C O L O R F R O M R G B 006 001 R
0054000 G B B I T S P E R P I X E L )
0054020 ) \r
0054040 ( N O E R R F L G
0054060 N I L ) \r
0054100 ( T ( E
0054120 R R O R C O L O R # " n o t
0054140 a v a i l a b l e i n c o
0054160 l o r m a p " ] ) \r \r ( 006 004 C
0054200 O L O R F R O M R G B 006 001 \r
0054220 [ L A M B D A ( R G B B I T
0054240 S P E R P I X E L ) 006 006 006 001
0054260
0054300 006
0054320 006 ( * k b r % : " 1 5 - F e
0054340 b - 8 6 1 1 : 1 6 " ) 006 001 \r
0054360 \r
0054400 006 006 ( * l o o k s i
0054420 n t h e c o l o r m a p f
0054440 o r a c o l o r t h a t
0054460 h a s R G B l e v e l s ) 006
0054500 001 \r \r ( P R O G ( C O
0054520 L O R C O L O R M A P ) \r
0054540 ( C O N D \r
0054560 ( ( E Q
0054600 B I T S P E R P I X E L 2 4 )
0054620
0054640 006 006 ( *
0054660 A s s u m i n g s u b t r a c
0054700 t i v e s y s t e m i n \r
0054720 006 001
0054740
*
0055000 006
0055020 006 w h i c h w h i t e = 0 .
0055040 * ) 006 001 \r
0055060 [ S E T Q C O L O R (
0055100 L O G O R ( L L S H ( I D I
0055120 F F E R E N C E 2 5 5 ( 006 002
0055140 f e t c h 006 001 ( R G B R E D
0055160 ) 006 002 o f 006 001 R G B ) ) \r
0055200
*
0055240 1 6 ) \r
0055260
0055300 ( L L S H
0055320 ( I D I F F E R E N C E 2 5
0055340 5 ( 006 002 f e t c h 006 001 ( R G
0055360 B G R E E N ) 006 002 o f 006 001
0055400 R G B ) ) \r
0055420
0055440 8 ) \r
0055460
*
0055520 ( I D I F F E R E N C E 2 5
0055540 5 ( 006 002 f e t c h 006 001 ( R G
0055560 B B L U E ) 006 002 o f 006 001 R
0055600 G B ] \r
0055620 ( R E T U R N C O L O R )
0055640 ) ) \r ( S E
0055660 T Q C O L O R M A P ( 006 002 C
0055700 O L O R M A P 006 001 B I T S P E
0055720 R P I X E L ) ) \r
0055740 ( S E T Q C O L O R (
0055760 006 002 f o r 006 001 C O L O R 006 002
0056000 f r o m 006 001 0 006 002 t o 006 001
0056020 ( S U B 1 ( A R R A Y S I Z E
0056040 C O L O R M A P ) ) \r
0056060
0056100 006 002 t h e r e i s 006 001
0056120 ( E Q U A L ( E L T C O L
0056140 O R M A P C O L O R ) \r
0056160
*
0056220 R G B ) ) ) \r
0056240 ( R E T U R N C O
0056260 L O R ] ) \r \r ( 006 004 I N T E N S
0056300 I T I E S F R O M C O L O R M A
0056320 P 006 001 \r [ L A M B D A ( 006
0056340 002 C O L O R M A P 006 001 ) 006 006 006 001
0056360
*
0056420 006 006 ( * k b
0056440 r % : " 2 1 - A u g - 8 5 2
0056460 1 : 1 7 " ) 006 001 \r
0056500 \r 006 006
0056520 ( * r e t u r n s t h e i
0056540 n t e n s i t y l e v e l s
0056560 o f t h e p r i m a r y c
0056600 o l o r s f r o m a c o l
0056620 o r m a p . \r 006 001
0056640 006 006 T h i s l i s t c
0056660 a n b e p a s s e d i n t
0056700 o C O L O R M A P C R E A T E
0056720 t o g e t a n e q u i v
0056740 a l e n t c o l o r m a p . )
0056760 006 001 \r \r ( 006 002 f o r 006 001
0057000 I 006 002 f r o m 006 001 0 006 002
0057020 t o 006 001 ( S U B 1 ( A R R A
0057040 Y S I Z E C O L O R M A P ) )
0057060 006 002 c o l l e c t 006 001 ( E L
0057100 T C O L O R M A P I ] ) \r \r
0057120 ( 006 004 S E T C O L O R I N T E N
0057140 S I T Y 006 001 \r [ L A M B D A
0057160 ( 006 002 C O L O R M A P 006 001 C
0057200 O L O R # I N T E N S I T I E
0057220 S ) 006 006 006 001
0057240 006 006 ( *
0057260 r r b " 1 3 - D E C - 8 2
0057300 1 3 : 1 5 " ) 006 001 \r
0057320 \r 006
0057340 006 ( * s e t s t h e i n t
0057360 e n s i t y l e v e l s o f
0057400 a c o l o r n u m b e r
0057420 i n a c o l o r m a p . \r
0057440 006 001 006 006 D o
0057460 e s n o t r e t u r n t h
0057500 e p r e v i o u s s e t t i
0057520 n g . ) 006 001 \r \r ( P R O
0057540 G ( R G B ) \r
0057560 ( S E T Q R G B I N T E
0057600 N S I T I E S ) \r L
0057620 P ( C O N D \r
0057640 [ ( N U L L R G B
0057660 ) \r
0057700 ( S E T Q R G B ' ( 0 0
0057720 0 ] \r
0057740 ( ( R G B P R G B ) ) \r
0057760 ( ( H L S P
0060000 R G B ) \r
0060020 ( S E T Q R G B ( H
0060040 L S T O R G B R G B ) ) ) \r
0060060 ( ( S E
0060100 T Q R G B ( C D R ( \ L O
0060120 O K U P C O L O R N A M E R G
0060140 B ) ) ) \r
0060160 ( G O L P ) ) \r
0060200 ( T ( \ I L
0060220 L E G A L . A R G R G B ) ) )
0060240 \r ( 006 002 C O
0060260 L O R L E V E L 006 001 C O L O R
0060300 M A P C O L O R # ' R E D
0060320 ( 006 002 f e t c h 006 001 ( R G B
0060340 R E D ) 006 002 o f 006 001 R G B )
0060360 ) \r ( 006 002 C
0060400 O L O R L E V E L 006 001 C O L O
0060420 R M A P C O L O R # ' G R E
0060440 E N ( 006 002 f e t c h 006 001 ( R
0060460 G B G R E E N ) 006 002 o f 006 001
0060500 R G B ) ) \r
0060520 ( 006 002 C O L O R L E V E L 006 001
0060540 C O L O R M A P C O L O R #
0060560 ' B L U E ( 006 002 f e t c h 006
0060600 001 ( R G B B L U E ) 006 002 o
0060620 f 006 001 R G B ] ) \r ) \r ( D E F
0060640 I N E Q \r \r ( 006 004 \ F A S T 8 B
0060660 I T 006 001 \r [ L A M B D A (
0060700 A B N M A P ) 006 006 006 001
0060720
*
0060760 006 006 ( * e d i t e
0061000 d % : " 1 0 - S E P - 8 2 1
0061020 6 : 1 4 " ) 006 001 \r ( 006 002
0061040 b i n d 006 001 A W ( I _ 0
0061060 ) 006 002 f o r 006 001 J 006 002 f r
0061100 o m 006 001 0 006 002 d o 006 001 ( S
0061120 E T Q A W ( \ A D D B A S E
0061140 A J ) ) \r
0061160
0061200 ( O R
0061220 ( I G R E A T E R P N I ) \r
0061240
*
0061300 ( R E T U R N
0061320 ) ) \r
0061340
0061360 ( \ P U T B A S
0061400 E B I ( E L T M A P (
0061420 006 002 f e t c h 006 001 ( 2 B I T N
0061440 I B B L E S E N 1 ) 006 002 o f
0061460 006 001 A W ) ) ) \r
0061500
0061520 ( O
0061540 R ( I G R E A T E R P N (
0061560 006 002 a d d 006 001 I 1 ) ) \r
0061600
*
0061640 ( R E T U R N ) )
0061660 \r
0061700
0061720 ( \ P U T B A S E
0061740 B I ( E L T M A P ( 006 002
0061760 f e t c h 006 001 ( 2 B I T N I B
0062000 B L E S E N 2 ) 006 002 o f 006 001
0062020 A W ) ) ) \r
0062040
0062060 ( O R
0062100 ( I G R E A T E R P N ( 006 002
0062120 a d d 006 001 I 1 ) ) \r
0062140
*
0062200 ( R E T U R N ) ) \r
0062220
*
0062260 ( \ P U T B A S E B
0062300 I ( E L T M A P ( 006 002 f e
0062320 t c h 006 001 ( 2 B I T N I B B L
0062340 E S E N 3 ) 006 002 o f 006 001 A
0062360 W ) ) ) \r
0062400
0062420 ( O R ( I
0062440 G R E A T E R P N ( 006 002 a d
0062460 d 006 001 I 1 ) ) \r
0062500
*
0062540 ( R E T U R N ) ) \r
0062560
*
0062620 ( \ P U T B A S E B I
0062640 ( E L T M A P ( 006 002 f e t c
0062660 h 006 001 ( 2 B I T N I B B L E S
0062700 E N 4 ) 006 002 o f 006 001 A W )
0062720 ) ) \r
0062740
0062760 ( O R ( I G R
0063000 E A T E R P N ( 006 002 a d d 006
0063020 001 I 1 ) ) \r
0063040
*
0063100 ( R E T U R N ) ) \r
0063120
*
0063160 ( \ P U T B A S E B I ( E
0063200 L T M A P ( 006 002 f e t c h 006
0063220 001 ( 2 B I T N I B B L E S E
0063240 N 5 ) 006 002 o f 006 001 A W ) ) )
0063260 \r
0063300
0063320 ( O R ( I G R E A
0063340 T E R P N ( 006 002 a d d 006 001
0063360 I 1 ) ) \r
0063400
0063420 (
0063440 R E T U R N ) ) \r
0063460
0063500 ( \
0063520 P U T B A S E B I ( E L T
0063540 M A P ( 006 002 f e t c h 006 001
0063560 ( 2 B I T N I B B L E S E N 6
0063600 ) 006 002 o f 006 001 A W ) ) ) \r
0063620
*
0063660 ( O R ( I G R E A T E
0063700 R P N ( 006 002 a d d 006 001 I
0063720 1 ) ) \r
0063740
0063760 ( R E
0064000 T U R N ) ) \r
0064020
0064040 ( \ P U
0064060 T B A S E B I ( E L T M
0064100 A P ( 006 002 f e t c h 006 001 ( 2
0064120 B I T N I B B L E S E N 7 )
0064140 006 002 o f 006 001 A W ) ) ) \r
0064160
*
0064220 ( O R ( I G R E A T E R P
0064240 N ( 006 002 a d d 006 001 I 1 )
0064260 ) \r
0064300
0064320 ( R E T U
0064340 R N ) ) \r
0064360
0064400 ( \ P U T B
0064420 A S E B I ( E L T M A P
0064440 ( 006 002 f e t c h 006 001 ( 2 B I
0064460 T N I B B L E S E N 8 ) 006 002
0064500 o f 006 001 A W ) ) ) \r
0064520
*
0064560 ( 006 002 a d d 006 001 I 1 ] ) \r \r
0064600 ( 006 004 \ M A P 4 006 001 \r [ L A
0064620 M B D A ( | 0 C | | 1 C | )
0064640 006 006 006 001
0064660
0064700 006 006 ( *
0064720 e d i t e d % : " 1 0 - S E
0064740 P - 8 2 1 5 : 5 0 " ) 006 001 \r
0064760 ( S E T Q | 0 C | ( C
0065000 O N D \r
0065020 ( | 0 C | ( 006 002 C
0065040 O L O R N U M B E R P 006 001 | 0
0065060 C | 4 ) ) \r
0065100 ( T 0 ) ) )
0065120
*
0065160 006 006 ( * M a s k o u
0065200 t b u t 4 b i t s ) 006 001 \r
0065220 ( S E T Q | 1 C | (
0065240 C O N D \r
0065260 ( | 1 C | ( 006 002
0065300 C O L O R N U M B E R P 006 001 |
0065320 1 C | 4 ) ) \r
0065340 ( T 1 5 )
0065360 ) ) \r ( P R O G ( M A
0065400 P ) \r ( S E
0065420 T Q M A P ( A R R A Y 1 6
0065440 ' S M A L L P O S P 0 0 )
0065460 ) \r [ 006 002 f
0065500 o r 006 001 I 006 002 f r o m 006 001
0065520 0 006 002 t o 006 001 1 5 \r
0065540 006 002 d o 006 001
0065560 ( S E T A M A P I ( 006 002 f
0065600 o r 006 001 J 006 002 f r o m 006 001
0065620 0 006 002 t o 006 001 3 006 002 s u m
0065640 006 001 ( L L S H ( C O N D \r
0065660
*
0065740 ( ( Z E R
0065760 O P ( L O G A N D I ( L L
0066000 S H 1 J ) ) ) \r
0066020
*
0066100 | 0 C | ) \r
0066120
*
0066200 ( T | 1 C |
0066220 ) ) \r
0066240
*
0066300 ( I T I
0066320 M E S J 4 ] \r
0066340 ( R E T U R N M A P ] )
0066360 \r \r ( 006 004 \ M A P 8 006 001 \r [
0066400 L A M B D A ( | 0 C | | 1 C
0066420 | ) 006 006 006 001
0066440
0066460 006 006
0066500 ( * e d i t e d % : " 1 0 -
0066520 S E P - 8 2 1 5 : 5 0 " ) 006 001
0066540 \r \r
0066560 006 006 ( * r e t u r
0066600 n s a n a r r a y o f w
0066620 o r d s t h a t c o n t a i
0066640 n t h e d e s t i n a t i o
0066660 n b i t m a p s h o u l d
0066700 c o n t a i n \r 006 001
0066720 006 006 i f a b l a c
0066740 k a n d w h i t e b i t m
0066760 a p i s b l o w n u p t
0067000 o a n 8 b i t p e r p
0067020 i x e l b i t m a p . ) 006 001 \r
0067040 \r ( S E T Q | 0 C |
0067060 ( C O N D \r
0067100 ( | 0 C | ( 006
0067120 002 C O L O R N U M B E R P 006 001
0067140 | 0 C | 8 ) ) \r
0067160 ( T 0 )
0067200 ) )
0067220
0067240 006 006 ( * m a k e
0067260 s u r e c o l o r n u m b e
0067300 r s a r e g i v e n . ) 006 001
0067320 \r ( S E T Q | 1 C |
0067340 ( C O N D \r
0067360 ( | 1 C | ( 006
0067400 002 C O L O R N U M B E R P 006 001
0067420 | 1 C | 8 ) ) \r
0067440 ( T 2 5
0067460 5 ) ) ) \r ( P R O G (
0067500 M A P ) \r (
0067520 S E T Q M A P ( A R R A Y
0067540 4 ' S M A L L P O S P 0 0
0067560 ) ) \r [ 006 002
0067600 f o r 006 001 I 006 002 f r o m 006 001
0067620 0 006 002 t o 006 001 3 006 002 d o
0067640 006 001 ( S E T A M A P I (
0067660 L O G O R ( C O N D \r
0067700
*
0067760 ( ( Z E R O P ( L O G A N
0070000 D I 1 ) ) \r
0070020
*
0070060 |
0070100 0 C | ) \r
0070120
*
0070160 ( T | 1
0070200 C | ) ) \r
0070220
*
0070260 ( L L S H ( C
0070300 O N D \r
0070320
*
0070400 ( ( Z E R O P ( L O G A N D
0070420 I 2 ) ) \r
0070440
*
0070520 | 0 C | ) \r
0070540
*
0070620 ( T | 1 C | ) ) \r
0070640
*
0070720 8 ] \r
0070740 ( R E T U R N M A P
0070760 ] ) \r ) \r ( D E F I N E Q \r \r (
0071000 006 004 \ G E T C O L O R B R U S H
0071020 006 001 \r [ L A M B D A ( B R
0071040 U S H C O L O R N B I T S )
0071060 006 006 006 001
0071100
0071120 006 006 ( * r r b " 2 1
0071140 - D E C - 8 2 2 0 : 4 6 " ) 006
0071160 001 \r \r
0071200 006 006 ( * p r o d
0071220 u c e s a c o l o r b i t m
0071240 a p t h a t i s 1 ' s w
0071260 h e r e e v e r t h e b r
0071300 u s h b i t m a p w o u l d
0071320 b e 1 ) 006 001 \r \r ( C
0071340 O N D \r ( ( A N D
0071360 ( B I T M A P P B R U S H )
0071400 \r ( E
0071420 Q ( 006 002 f e t c h 006 001 ( B I
0071440 T M A P B I T M A P B I T S P
0071460 E R P I X E L ) 006 002 o f 006 001
0071500 B R U S H ) \r
0071520 N B I T S ) ) \r
0071540 B R U S H ) \r
0071560 ( T ( 006 002 C O L O
0071600 R I Z E B I T M A P 006 001 [ C O
0071620 N D \r
0071640
0071660 ( ( L I S T P B R U S H ) \r
0071700
0071720 ( \ B
0071740 R U S H B I T M A P ( 006 002 f e
0071760 t c h 006 001 ( B R U S H B R U
0072000 S H S H A P E ) 006 002 o f 006 001
0072020 B R U S H ) \r
0072040
0072060 ( 006 002 f
0072100 e t c h 006 001 ( B R U S H B R
0072120 U S H S I Z E ) 006 002 o f 006 001
0072140 B R U S H ) ) ) \r
0072160
0072200 ( T ( \ B R U S H
0072220 B I T M A P ' R O U N D ( O
0072240 R B R U S H 1 ] \r
0072260 0 C O
0072300 L O R N B I T S ] ) \r ) \r ( D
0072320 E F I N E Q \r \r ( 006 004 \ D R A W
0072340 C O L O R L I N E 1 006 001 \r [
0072360 L A M B D A ( X 0 Y 0 X L
0072400 I M I T Y L I M I T D X D
0072420 Y C D L Y I N C M O D E
0072440 B I T M A P B A S E R A S T E
0072460 R W I D T H N B I T S C O L
0072500 O R ) 006 006 006 001 \r
0072520
*
0072600 006 006 ( * r r b " 1
0072620 0 - O C T - 8 2 1 2 : 3 3 " )
0072640 006 001 \r ( 006 002 D E C L A R
0072660 E 006 001 ( L O C A L V A R S .
0072700 T ) ) \r ( C O N D \r
0072720 ( ( E Q N B I T S
0072740 4 ) \r ( 006 002 \
0072760 D R A W 4 B P P C O L O R L I N
0073000 E 006 001 X 0 Y 0 X L I M I T
0073020 Y L I M I T D X D Y C D
0073040 L Y I N C M O D E B I T M
0073060 A P B A S E R A S T E R W I D
0073100 T H C O L O R ) ) \r
0073120 ( T ( 006 002 \ D R A W 8 B P
0073140 P C O L O R L I N E 006 001 X 0
0073160 Y 0 X L I M I T Y L I M I T
0073200 D X D Y C D L Y I N C
0073220 M O D E B I T M A P B A S E
0073240 R A S T E R W I D T H C O L O
0073260 R ] ) \r \r ( 006 004 \ D R A W 4 B P
0073300 P C O L O R L I N E 006 001 \r [
0073320 L A M B D A ( X 0 Y 0 X L
0073340 I M I T Y L I M I T D X D
0073360 Y C D L Y I N C M O D E
0073400 B I T M A P B A S E R A S T E
0073420 R W I D T H C O L O R ) 006 006 006
0073440 001 \r
0073460
*
0073520 006
0073540 006 ( * k b r % : " 2 2 - J u
0073560 l - 8 5 0 9 : 1 6 " ) 006 001 \r
0073600 ( 006 002 D E C L A R E 006 001
0073620 ( L O C A L V A R S . T ) )
0073640 \r \r
0073660 006 006 ( * d r a w s
0073700 a c o l o r l i n e s t
0073720 a r t i n g a t X 0 , Y 0
0073740 a t a s l o p e o f D X
0073760 / D Y u n t i l r e a c h i
0074000 n g \r 006 001
0074020 006 006 e i t h e r X L I M I T
0074040 o r Y L I M I T w i t h a
0074060 n i n i t i a l o v e r f l
0074100 o w b u c k e t s i z e o
0074120 f C D L i n M O D E . \r 006
0074140 001 006 006 A r r
0074160 a n g e d s o t h a t t h
0074200 e c l i p p i n g r o u t i
0074220 n e s c a n d e t e r m i n
0074240 e w h a t t h e e x a c t
0074260 l o c a t i o n o f \r 006 001
0074300 006 006 t h e
0074320 e n d p o i n t o f t h e
0074340 c l i p p e d l i n e i s
0074360 w r t l i n e d r a w i n
0074400 g c o o r d i n a t e s e g
0074420 . \r 006 001 006 006
0074440 a m o u n t i n o v e r f l
0074460 o w b u c k e t . X L I M I
0074500 T a n d Y L I M I T a r e
0074520 t h e n u m b e r o f p
0074540 o i n t s t o b e \r 006 001
0074560 006 006 m o v e d
0074600 i n t h a t d i r e c t i
0074620 o n . ) 006 001 \r \r ( P R O
0074640 G ( M A P P T R M A S K C
0074660 O L O R M A S K C O L O R M A
0074700 S K O R G W O R D O F F S E T
0074720 ) \r ( S E T
0074740 Q C O L O R M A S K O R G (
0074760 L L S H C O L O R 1 2 ) ) \r
0075000 \r
0075020 006 006 ( * k e e p w
0075040 o r d o f f s e t f r o m
0075060 b i t m a p b a s e s o t h
0075100 a t t h e Y I N C c a n
0075120 b e n e g a t i v e o r \r
0075140 006 001 006 006 p o
0075160 s i t i v e . U s e d t o
0075200 u s e \ A D D B A S E d i r
0075220 e c t l y b u t n e g a t i
0075240 v e c a s e w a s n o t
0075260 i n m i c r o c o d e \r 006
0075300 001 006 006 a n d
0075320 r a n m u c h s l o w e r
0075340 . ) 006 001 \r \r
0075360 [ S E T Q W O R D O F F S E T
0075400 ( I P L U S ( I T I M E S
0075420 Y 0 R A S T E R W I D T H ) \r
0075440
*
0075500 ( F O L D L O X 0 ( C O
0075520 N S T A N T ( L R S H B I T
0075540 S P E R W O R D 2 ] \r
0075560 ( S E T Q M A P P
0075600 T R ( \ A D D B A S E B I T
0075620 M A P B A S E W O R D O F F S
0075640 E T ) ) \r (
0075660 S E T Q M A S K ( \ 4 B I T
0075700 M A S K X 0 ) ) \r
0075720 ( S E T Q C O L O R M
0075740 A S K ( L L S H C O L O R
0075760 ( L L S H ( I D I F F E R E N
0076000 C E 3 ( L O G A N D X 0
0076020 3 ) ) \r
0076040
*
0076100 2 ) ) ) \r (
0076120 S E T Q X 0 0 ) \r
0076140 ( S E T Q Y 0 0 )
0076160 \r ( C O N D
0076200 \r ( (
0076220 I G E Q D X D Y )
0076240
0076260 006 006
0076300 ( * X i s t h e f a s t
0076320 e s t m o v e r . ) 006 001 \r
0076340 ( . D R
0076360 A W 4 B P P L I N E X . M O D
0076400 E ) ) \r
0076420 ( T
0076440
*
0076500 006 006 ( * Y i s t h e f
0076520 a s t e s t m o v e r . ) 006 001
0076540 \r
0076560 ( . D R A W 4 B P P L I N E Y
0076600 . M O D E ] ) \r \r ( 006 004 \ D R
0076620 A W 8 B P P C O L O R L I N E 006
0076640 001 \r [ L A M B D A ( X 0
0076660 Y 0 X L I M I T Y L I M I T
0076700 D X D Y C D L Y I N C
0076720 M O D E B I T M A P B A S E
0076740 R A S T E R W I D T H C O L O
0076760 R ) 006 006 006 001 \r
0077000
*
0077060 006 006 ( * k b r % : "
0077100 2 2 - J u l - 8 5 0 9 : 1 8 "
0077120 ) 006 001 \r ( 006 002 D E C L A
0077140 R E 006 001 ( L O C A L V A R S
0077160 . T ) ) \r
0077200 \r 006 006 ( *
0077220 d r a w s a c o l o r l i
0077240 n e s t a r t i n g a t X
0077260 0 , Y 0 a t a s l o p e
0077300 o f D X / D Y u n t i l r
0077320 e a c h i n g \r 006 001
0077340 006 006 e i t h e r X L
0077360 I M I T o r Y L I M I T w
0077400 i t h a n i n i t i a l o
0077420 v e r f l o w b u c k e t s
0077440 i z e o f C D L i n M O
0077460 D E . \r 006 001
0077500 006 006 A r r a n g e d s o t h
0077520 a t t h e c l i p p i n g
0077540 r o u t i n e s c a n d e t
0077560 e r m i n e w h a t t h e
0077600 e x a c t l o c a t i o n o
0077620 f \r 006 001 006
0077640 006 t h e e n d p o i n t o
0077660 f t h e c l i p p e d l i
0077700 n e i s w r t l i n e d
0077720 r a w i n g c o o r d i n a t
0077740 e s e g . \r 006 001
0077760 006 006 a m o u n t i n o
0100000 v e r f l o w b u c k e t .
0100020 X L I M I T a n d Y L I M I
0100040 T a r e t h e n u m b e r
0100060 o f p o i n t s t o b e
0100100 \r 006 001 006 006
0100120 m o v e d i n t h a t d i
0100140 r e c t i o n . ) 006 001 \r \r
0100160 ( P R O G ( M A P P T R S
0100200 T A R T B Y T E W O R D O F F
0100220 S E T ) \r \r
0100240 006 006 ( * k
0100260 e e p w o r d o f f s e t
0100300 f r o m b i t m a p b a s e
0100320 s o t h a t t h e Y I N C
0100340 c a n b e n e g a t i v e
0100360 o r \r 006 001
0100400 006 006 p o s i t i v e . U s e
0100420 d t o u s e \ A D D B A S
0100440 E d i r e c t l y b u t n
0100460 e g a t i v e c a s e w a s
0100500 n o t i n m i c r o c o
0100520 d e \r 006 001
0100540 006 006 a n d r a n m u c h s
0100560 l o w e r . ) 006 001 \r \r
0100600 [ S E T Q W O R D O
0100620 F F S E T ( I P L U S ( I T
0100640 I M E S Y 0 R A S T E R W I
0100660 D T H ) \r
0100700
0100720 ( F O L D L O X
0100740 0 ( C O N S T A N T ( L R S
0100760 H B I T S P E R W O R D 3 ]
0101000 \r ( S E T Q
0101020 M A P P T R ( \ A D D B A S
0101040 E B I T M A P B A S E W O R
0101060 D O F F S E T ) ) \r
0101100 ( S E T Q S T A R T B
0101120 Y T E ( L O G A N D X 0 1
0101140 ) ) \r ( S E
0101160 T Q X 0 0 ) \r
0101200 ( S E T Q Y 0 0 ) \r
0101220 ( C O N D \r
0101240 ( ( I G
0101260 E Q D X D Y )
0101300
0101320 006 006 ( *
0101340 X i s t h e f a s t e s
0101360 t m o v e r . ) 006 001 \r
0101400 ( . D R A W
0101420 8 B P P L I N E X M O D E ) )
0101440 \r ( T
0101460
*
0101520 006 006
0101540 ( * Y i s t h e f a s t
0101560 e s t m o v e r . ) 006 001 \r
0101600 ( .
0101620 D R A W 8 B P P L I N E Y M O
0101640 D E ] ) \r \r ( 006 004 \ D R A W 2 4
0101660 B P P C O L O R L I N E 006 001 \r
0101700 [ L A M B D A ( X 0 Y 0
0101720 X L I M I T Y L I M I T D X
0101740 D Y C D L Y I N C M O D
0101760 E B I T M A P B A S E R A S
0102000 T E R W I D T H C O L O R ) 006
0102020 006 006 001 \r
0102040
*
0102120 006 006 ( * k b r % : " 1 5 -
0102140 F e b - 8 6 2 3 : 0 0 " ) 006 001
0102160 \r ( 006 002 D E C L A R E 006
0102200 001 ( L O C A L V A R S . T
0102220 ) ) \r \r
0102240 006 006 ( * d r a
0102260 w s a c o l o r l i n e
0102300 s t a r t i n g a t X 0 , Y
0102320 0 a t a s l o p e o f
0102340 D X / D Y u n t i l r e a c
0102360 h i n g \r 006 001
0102400 006 006 e i t h e r X L I M I
0102420 T o r Y L I M I T w i t h
0102440 a n i n i t i a l o v e r
0102460 f l o w b u c k e t s i z e
0102500 o f C D L i n M O D E .
0102520 \r 006 001 006 006 A
0102540 r r a n g e d s o t h a t
0102560 t h e c l i p p i n g r o u
0102600 t i n e s c a n d e t e r m
0102620 i n e w h a t t h e e x a
0102640 c t l o c a t i o n o f \r
0102660 006 001 006 006 t h
0102700 e e n d p o i n t o f t
0102720 h e c l i p p e d l i n e
0102740 i s w r t l i n e d r a w
0102760 i n g c o o r d i n a t e s
0103000 e g . \r 006 001
0103020 006 006 a m o u n t i n o v e r
0103040 f l o w b u c k e t . X L I
0103060 M I T a n d Y L I M I T a
0103100 r e t h e n u m b e r o f
0103120 p o i n t s t o b e \r 006
0103140 001 006 006 m o v
0103160 e d i n t h a t d i r e c
0103200 t i o n . ) 006 001 \r \r ( P
0103220 R O G ( M A P P T R S T A R
0103240 T B Y T E W O R D O F F S E T
0103260 ) \r \r
0103300 006 006 ( * k e e p
0103320 w o r d o f f s e t f r o
0103340 m b i t m a p b a s e s o
0103360 t h a t t h e Y I N C c a
0103400 n b e n e g a t i v e o r
0103420 \r 006 001 006 006
0103440 p o s i t i v e . U s e d t
0103460 o u s e \ A D D B A S E d
0103500 i r e c t l y b u t n e g a
0103520 t i v e c a s e w a s n o
0103540 t i n m i c r o c o d e
0103560 \r 006 001 006 006 a
0103600 n d r a n m u c h s l o w
0103620 e r . ) 006 001 \r \r
0103640 [ S E T Q W O R D O F F S
0103660 E T ( I P L U S ( I T I M E
0103700 S Y 0 R A S T E R W I D T H
0103720 ) \r
0103740
0103760 ( F O L D L O X 0 (
0104000 C O N S T A N T ( L R S H B
0104020 I T S P E R W O R D 3 ] \r
0104040 ( S E T Q M A
0104060 P P T R ( \ A D D B A S E B
0104100 I T M A P B A S E W O R D O F
0104120 F S E T ) ) \r
0104140 ( S E T Q S T A R T B Y T E
0104160 ( L O G A N D X 0 1 ) ) \r
0104200 ( S E T Q
0104220 X 0 0 ) \r
0104240 ( S E T Q Y 0 0 ) \r
0104260 ( C O N D \r
0104300 ( ( I G E Q
0104320 D X D Y )
0104340
0104360 006 006 ( * X
0104400 i s t h e f a s t e s t m
0104420 o v e r . ) 006 001 \r
0104440 ( . D R A W 2 4 B
0104460 P P L I N E X M O D E ) ) \r
0104500 ( T
0104520
*
0104560 006 006 ( *
0104600 Y i s t h e f a s t e s
0104620 t m o v e r . ) 006 001 \r
0104640 ( . D R
0104660 A W 2 4 B P P L I N E Y M O D
0104700 E ] ) \r ) \r ( D E C L A R E % :
0104720 D O N T C O P Y D O E V A L
0104740 @ C O M P I L E \r ( D E C L A
0104760 R E % : E V A L @ C O M P I L
0105000 E \r [ P U T P R O P S . D R
0105020 A W 4 B P P L I N E X . M A C
0105040 R O ( ( M O D E ) \r
0105060
0105100 ( P R O
0105120 G ( I N S I D E B I T S O U
0105140 T S I D E B I T S ) \r
0105160
*
0105220 ( u n t i l ( I G R E A T
0105240 E R P X 0 X L I M I T ) \r
0105260
*
0105320 d o \r
0105340
*
0105400 ( *
0105420 m a i n l o o p ) \r
0105440
*
0105500 ( S E T Q
0105520 I N S I D E B I T S ( L O G A
0105540 N D M A S K ( f e t c h (
0105560 B I T M A P W O R D B I T S )
0105600 \r
0105620
*
0105720 o f M A P P T R ) ) )
0105740 \r
0105760
0106000 (
0106020 S E T Q O U T S I D E B I T S
0106040 ( L O G A N D ( L O G N O T
0106060 M A S K ) \r
0106100
*
0106160 ( f
0106200 e t c h ( B I T M A P W O R D
0106220 B I T S ) \r
0106240
*
0106340 o f M A P P T R ) )
0106360 ) \r
0106400
*
0106440 [ r e p l a c e ( B I T M A P
0106460 W O R D B I T S ) \r
0106500
*
0106560 o f M A P P T R w i t h \r
0106600
*
0106660 ( S E L E C T Q M O D
0106700 E ( E R A S E ( L O G O R
0106720 ( L O G A N D C O L O R M A S
0106740 K \r
0106760
*
0107060 I N S I D
0107100 E B I T S ) \r
0107120
*
0107220 O U T S I D E B
0107240 I T S ) ) \r
0107260
*
0107340 ( I N V E R T ( L O G O R
0107360 ( L O G X O R C O L O R M A
0107400 S K \r
0107420
*
0107520 I N S I D E B I T S
0107540 ) \r
0107560
*
0107640 O U T
0107660 S I D E B I T S ) ) \r
0107700
*
0107760 ( P A I N T ( L
0110000 O G O R ( L O G O R C O L O
0110020 R M A S K I N S I D E B I T S
0110040 \r
0110060
*
0110160 ) \r
0110200
*
0110260 O U
0110300 T S I D E B I T S ) ) \r
0110320
*
0110400 ( P R O G N (
0110420 * c a s e i s R E P L A C
0110440 E . L e g a l i t y o f \r
0110460
*
0110560 O P E R A T I O N
0110600 h a s b e e n c h e c k e d
0110620 b y \r
0110640
*
0110720 \ C L I P
0110740 A N D D R A W L I N E 1 ) \r
0110760
*
0111060 ( L O G O R C O L O R M A S
0111100 K O U T S I D E B I T S ] \r
0111120
*
0111160 [ C O
0111200 N D ( [ N O T ( I G R E A T
0111220 E R P D X ( S E T Q C D L
0111240 ( I P L U S C D L D Y ] \r
0111260
*
0111340 ( C O N D ( ( I G R
0111360 E A T E R P ( S E T Q Y 0
0111400 ( A D D 1 Y 0 ) ) \r
0111420
*
0111500 Y L
0111520 I M I T ) \r
0111540
*
0111620 ( R E T U R N ) ) ) \r
0111640
*
0111720 ( S E T Q C D L ( I D I
0111740 F F E R E N C E C D L D X )
0111760 ) \r
0112000
*
0112040 ( S E T Q M A P
0112060 P T R ( \ A D D B A S E B I
0112100 T M A P B A S E \r
0112120
*
0112220 ( S E T Q W O R D O F F S
0112240 E T \r
0112260
*
0112360 ( I P L U S W O R D O F F
0112400 S E T Y I N C \r
0112420
*
0112520 ]
0112540 \r
0112560
0112600 [
0112620 C O N D [ ( Z E R O P ( S E
0112640 T Q M A S K ( L R S H M A
0112660 S K 4 ) ) ) \r
0112700
*
0112740 ( *
0112760 c r o s s e d w o r d b o u
0113000 n d a r y ) \r
0113020
*
0113060 [ S E T
0113100 Q M A P P T R ( \ A D D B A
0113120 S E B I T M A P B A S E ( S
0113140 E T Q \r
0113160
*
0113260 W O R D
0113300 O F F S E T \r
0113320
*
0113420 (
0113440 A D D 1 \r
0113460
*
0113600 W O R D O F F S E T \r
0113620
*
0113740 ] \r
0113760
*
0114040 ( S E T Q C O L O R M A S K
0114060 C O L O R M A S K O R G ) \r
0114100
*
0114160 ( S E T Q M A S K (
0114200 C O N S T A N T ( \ 4 B I T M
0114220 A S K 0 ] \r
0114240
*
0114300 ( T ( S
0114320 E T Q C O L O R M A S K ( L
0114340 R S H C O L O R M A S K 4 ]
0114360 \r
0114400
0114420 (
0114440 S E T Q X 0 ( A D D 1 X 0
0114460 ] \r [ P U T P R O P S . D R A
0114500 W 8 B P P L I N E X M A C R O
0114520 ( ( M O D E ) \r
0114540
0114560 ( P R O G N
0114600 I L ( C O N D ( ( E Q S T
0114620 A R T B Y T E 1 ) \r
0114640
*
0114700 ( G O
0114720 1 L P ) ) ) \r
0114740
0114760 0 L P
0115000 \r
0115020
0115040 ( * m a i n l
0115060 o o p ) \r
0115100
0115120 ( \ P U T
0115140 B A S E B Y T E M A P P T R
0115160 0 ( S E L E C T Q M O D E \r
0115200
*
0115300 ( E R A S E ( L O G A
0115320 N D C O L O R \r
0115340
*
0115440 ( \ G E T
0115460 B A S E B Y T E \r
0115500
*
0115600 M A P P
0115620 T R 0 ) ) ) \r
0115640
*
0115720 ( I N V
0115740 E R T ( L O G X O R C O L O
0115760 R \r
0116000
*
0116100 ( \ G E T B A S E B Y
0116120 T E \r
0116140
*
0116240 M A P P T R 0 )
0116260 ) ) \r
0116300
*
0116360 ( P A I N T ( L
0116400 O G O R C O L O R \r
0116420
*
0116520 ( \ G
0116540 E T B A S E B Y T E \r
0116560
*
0116660 M A
0116700 P P T R 0 ) ) ) \r
0116720
*
0117000 ( P
0117020 R O G N ( * c a s e i s
0117040 R E P L A C E . \r
0117060
*
0117160 L e g a l i t y
0117200 o f O P E R A T I O N \r
0117220
*
0117320 h a s
0117340 b e e n c h e c k e d b y
0117360 \r
0117400
*
0117500 \ C L I P A N D D R A W L I N E
0117520 1 ) \r
0117540
*
0117620 C O
0117640 L O R ) ) ) \r
0117660
0117700 [ C O
0117720 N D ( [ N O T ( I G R E A T
0117740 E R P D X ( S E T Q C D L
0117760 ( I P L U S C D L D Y ] \r
0120000
*
0120040 ( C O
0120060 N D ( ( I G R E A T E R P (
0120100 S E T Q Y 0 ( A D D 1 Y 0
0120120 ) ) \r
0120140
*
0120200 Y L
0120220 I M I T ) \r
0120240
*
0120300 ( R E T U R
0120320 N ) ) ) \r
0120340
*
0120400 ( S E T Q C D L ( I D I
0120420 F F E R E N C E C D L D X )
0120440 ) \r
0120460
0120500 (
0120520 S E T Q M A P P T R ( \ A D
0120540 D B A S E B I T M A P B A S E
0120560 ( S E T Q W O R D O F F S E
0120600 T \r
0120620
*
0120720 ( I P L U S \r
0120740
*
0121060 W O R D O F
0121100 F S E T \r
0121120
*
0121240 Y I N C ] \r
0121260
0121300 ( C
0121320 O N D ( ( I G R E A T E R P
0121340 ( S E T Q X 0 ( A D D 1 X
0121360 0 ) ) \r
0121400
*
0121440 X L I M I T ) \r
0121460
*
0121520 ( R E
0121540 T U R N ) ) ) \r
0121560
0121600 1 L
0121620 P \r
0121640
0121660 ( \ P U T B A S
0121700 E B Y T E M A P P T R 1 (
0121720 S E L E C T Q M O D E \r
0121740
*
0122040 ( E R A S E ( L O G A N D
0122060 C O L O R \r
0122100
*
0122200 ( \ G E T B A S
0122220 E B Y T E \r
0122240
*
0122340 M A P P T R
0122360 1 ) ) ) \r
0122400
*
0122460 ( I N V E R T
0122500 ( L O G X O R C O L O R \r
0122520
*
0122640 ( \ G E T B A S E B Y T E \r
0122660
*
0123000 M A P P T R 1 ) ) ) \r
0123020
*
0123120 ( P A I N T ( L O G O
0123140 R C O L O R \r
0123160
*
0123260 ( \ G E T B
0123300 A S E B Y T E \r
0123320
*
0123420 M A P P T
0123440 R 1 ) ) ) \r
0123460
*
0123540 ( P R O G
0123560 N ( * c a s e i s R E P
0123600 L A C E . \r
0123620
*
0123720 L e g a l i t y o f
0123740 O P E R A T I O N \r
0123760
*
0124060 h a s b e
0124100 e n c h e c k e d b y \r
0124120
*
0124220 \ C L
0124240 I P A N D D R A W L I N E 1 ) \r
0124260
*
0124360 C O L O R
0124400 ) ) ) \r
0124420
0124440 [ C O N D
0124460 ( [ N O T ( I G R E A T E R P
0124500 D X ( S E T Q C D L ( I
0124520 P L U S C D L D Y ] \r
0124540
*
0124600 ( C O N D
0124620 ( ( I G R E A T E R P ( S E T
0124640 Q Y 0 ( A D D 1 Y 0 ) ) \r
0124660
*
0124740 Y L I M I
0124760 T ) \r
0125000
*
0125040 ( R E T U R N ) )
0125060 ) \r
0125100
0125120 (
0125140 S E T Q C D L ( I D I F F E
0125160 R E N C E C D L D X ) ) \r
0125200
*
0125240 ( S E T
0125260 Q M A P P T R ( \ A D D B A
0125300 S E B I T M A P B A S E ( S
0125320 E T Q W O R D O F F S E T \r
0125340
*
0125460 ( I P L U S \r
0125500
*
0125620 W O R D O F F S E
0125640 T \r
0125660
*
0125760 Y
0126000 I N C ] \r
0126020
0126040 ( C O N D
0126060 ( ( I G R E A T E R P ( S E
0126100 T Q X 0 ( A D D 1 X 0 ) )
0126120 \r
0126140
*
0126200 X L I M I T ) \r
0126220
*
0126260 ( R E T U R
0126300 N ) ) ) \r
0126320
0126340 [ S E T Q
0126360 M A P P T R ( \ A D D B A S
0126400 E B I T M A P B A S E ( S E
0126420 T Q W O R D O F F S E T ( A
0126440 D D 1 \r
0126460
*
0126600 W O R D O F F S E T \r
0126620
*
0126740 ] \r
0126760
*
0127020 ( G O 0 L P ] \r [ P U T P
0127040 R O P S . D R A W 2 4 B P P L
0127060 I N E X M A C R O ( ( M O D
0127100 E ) \r
0127120
0127140 ( P R O G N I L ( *
0127160 m a i n l o o p ) \r
0127200
*
0127240 L P \r
0127260
0127300 ( \ P
0127320 U T B A S E 2 4 M A P P T R
0127340 0 ( S E L E C T Q M O D E \r
0127360
*
0127460 ( E R A S E ( L O G A N
0127500 D C O L O R \r
0127520
*
0127620 ( \ G E T B A
0127640 S E 2 4 M A P P T R 0 \r
0127660
*
0130000 ) ) ) \r
0130020
*
0130100 ( I N
0130120 V E R T ( L O G X O R C O L
0130140 O R \r
0130160
*
0130260 ( \ G E T B A S E 2 4
0130300 M A P P T R \r
0130320
*
0130440 0 ) ) ) \r
0130460
*
0130540 ( P A I N T
0130560 ( L O G O R C O L O R \r
0130600
*
0130700 (
0130720 \ G E T B A S E 2 4 M A P P T
0130740 R 0 \r
0130760
*
0131060 ) ) ) \r
0131100
*
0131200 ( P R O G N ( * c a s
0131220 e i s R E P L A C E . \r
0131240
*
0131340 L e g a
0131360 l i t y o f O P E R A T I O
0131400 N \r
0131420
*
0131520 h a s b e e n c h e c k e d
0131540 b y \r
0131560
*
0131660 \ C L I P A N D D R A W L I
0131700 N E 1 ) \r
0131720
*
0132000 C
0132020 O L O R ) ) ) \r
0132040
0132060 [
0132100 C O N D ( [ N O T ( I G R E
0132120 A T E R P D X ( S E T Q C
0132140 D L ( I P L U S C D L D Y
0132160 ] \r
0132200
*
0132240 ( C O N D ( ( I G R E A T E R
0132260 P ( S E T Q Y 0 ( A D D 1
0132300 Y 0 ) ) \r
0132320
*
0132400 Y L I M I T ) \r
0132420
*
0132460 (
0132500 R E T U R N ) ) ) \r
0132520
*
0132560 ( S E T Q C D
0132600 L ( I D I F F E R E N C E C
0132620 D L D X ) ) \r
0132640
*
0132700 ( S E T Q M A P P
0132720 T R ( \ A D D B A S E B I T
0132740 M A P B A S E ( S E T Q W O
0132760 R D O F F S E T \r
0133000
*
0133100 (
0133120 I P L U S \r
0133140
*
0133260 W O R D O F F S E T \r
0133300
*
0133420 Y I N C ]
0133440 \r
0133460
0133500 ( C O N D ( (
0133520 I G R E A T E R P ( S E T Q
0133540 X 0 ( A D D 1 X 0 ) ) \r
0133560
*
0133640 X L I M I T ) \r
0133660
*
0133720 ( R E T U R N
0133740 ) ) ) \r
0133760
0134000 [ S E T Q
0134020 M A P P T R ( \ A D D B A S
0134040 E B I T M A P B A S E ( S E
0134060 T Q W O R D O F F S E T \r
0134100
*
0134200 ( A D
0134220 D 1 W O R D O F F S E T ] \r
0134240
*
0134300 ( G O L P ] \r [ P
0134320 U T P R O P S . D R A W 4 B P
0134340 P L I N E Y . M A C R O ( (
0134360 M O D E ) \r
0134400
0134420 ( P R O G ( I N
0134440 S I D E B I T S O U T S I D E
0134460 B I T S ) \r
0134500
0134520 ( u n
0134540 t i l ( I G R E A T E R P Y
0134560 0 Y L I M I T ) \r
0134600
*
0134640 d o \r
0134660
*
0134720 ( * m a i n
0134740 l o o p ) \r
0134760
*
0135020 ( S E T Q I N S I D
0135040 E B I T S ( L O G A N D M A
0135060 S K ( f e t c h ( B I T M A
0135100 P W O R D B I T S ) \r
0135120
*
0135220 o
0135240 f M A P P T R ) ) ) \r
0135260
*
0135320 ( S E T Q
0135340 O U T S I D E B I T S ( L O G
0135360 A N D ( L O G N O T M A S K
0135400 ) \r
0135420
*
0135500 ( f e t c h
0135520 ( B I T M A P W O R D B I T S
0135540 ) \r
0135560
*
0135660 o f M A P P T R ) ) ) \r
0135700
*
0135740 [ r e p l
0135760 a c e ( B I T M A P W O R D
0136000 B I T S ) \r
0136020
*
0136060 o f M A
0136100 P P T R w i t h \r
0136120
*
0136160 (
0136200 S E L E C T Q M O D E ( E R
0136220 A S E ( L O G O R ( L O G A
0136240 N D C O L O R M A S K \r
0136260
*
0136400 I N S I D E B I T S
0136420 ) \r
0136440
*
0136540 O U T S I D E B I T S ) )
0136560 \r
0136600
*
0136640 ( I N
0136660 V E R T ( L O G O R ( L O G
0136700 X O R C O L O R M A S K \r
0136720
*
0137040 I N S I D E B I T S ) \r
0137060
*
0137160 O U T S I D E B
0137200 I T S ) ) \r
0137220
*
0137300 ( P A I N T ( L O G O R
0137320 ( L O G O R C O L O R M A S K
0137340 I N S I D E B I T S \r
0137360
*
0137460 ) \r
0137500
*
0137600 O U T S I D E
0137620 B I T S ) ) \r
0137640
*
0137720 ( P R O G N ( * c a s
0137740 e i s R E P L A C E . L e
0137760 g a l i t y o f \r
0140000
*
0140100 O P E R A T I O N h a s b
0140120 e e n c h e c k e d b y \r
0140140
*
0140240 \ C L I P A N D D R
0140260 A W L I N E 1 ) \r
0140300
*
0140360 ( L O G
0140400 O R C O L O R M A S K O U T
0140420 S I D E B I T S ] \r
0140440
*
0140500 [ C O N D ( [
0140520 N O T ( I G R E A T E R P D
0140540 Y ( S E T Q C D L ( I P L
0140560 U S C D L D X ] \r
0140600
*
0140660 ( C O N D ( ( I G R E A T E R
0140700 P ( S E T Q X 0 ( A D D 1
0140720 X 0 ) ) \r
0140740
*
0141020 X L I M I T )
0141040 \r
0141060
*
0141120 ( R E
0141140 T U R N ) ) ) \r
0141160
*
0141220 ( S E
0141240 T Q C D L ( I D I F F E R E
0141260 N C E C D L D Y ) ) \r
0141300
*
0141360 ( C O N D [ ( Z E R O P
0141400 ( S E T Q M A S K ( L R S H
0141420 M A S K 4 ) ) ) \r
0141440
*
0141520