$ od -c -N 50000 [eris]<Lisp>Harmony>Library>HLCOLOR.DCOM!1
0000000 ( F I L E C R E A T E D " 7
0000020 - O C T - 8 3 1 0 : 3 7 : 4 0
0000040 " ( " c o m p i l e d o n
0000060 " { P H Y L U M } < L I S P C
0000100 O R E > L I B R A R Y > H L C O
0000120 L O R . ; 1 ) \r " 6 - O C T
0000140 - 8 3 1 5 : 0 7 : 4 5 " b c
0000160 o m p l ' d i n W O R K d
0000200 a t e d " 6 - O C T - 8 3
0000220 1 5 : 3 3 : 1 7 " ) \r ( F I L E
0000240 C R E A T E D " 1 6 - N O V -
0000260 8 2 1 2 : 2 9 : 4 9 " { P H
0000300 Y L U M } < L I S P C O R E > C
0000320 O L O R > H L C O L O R . ; 5
0000340 7 2 3 4 c h a n g e s t o :
0000360 ( F N S \r G E T C O L O R R
0000400 E G I O N ) p r e v i o u s
0000420 d a t e : " 2 7 - O C T - 8 2
0000440 1 8 : 4 2 : 4 0 " { P H Y L
0000460 U M } < L I S P C O R E > C O L
0000500 O R > H L C O L O R . ; 4 ) \r C
0000520 O L O R M O V E B O X D 1 \r (
0000540 I 5 Y 3 I 4 X 3 I
0000560 3 Y 2 I 2 X 2 I 1
0000600 Y 1 I 0 X 1 ) \0 & \0 \0 \0
0000620 006 A B D \v \0 \0 @ C E \v \0 \0 C @ B
0000640 \v \0 \0 E @ D \v \0 \0 B A C \v \0 \0 D
0000660 A E \v \0 \0 020 \0 ( 4 3 Q C O L O
0000700 R V L I N E 3 5 Q C O L O R
0000720 V L I N E 2 7 Q C O L O R H
0000740 L I N E 2 1 Q C O L O R H L
0000760 I N E 1 3 Q C O L O R V L I
0001000 N E 5 C O L O R H L I N E )
0001020 \r N I L \r N I L \r C O L O R V L
0001040 I N E D 1 \r ( I 3 W I
0001060 2 Y B I 1 Y A I 0
0001100 X ) \0 2 001 \0 \0 004 h d d C 265 005 \b
0001120 \0 \0 @ A d B 361 221 277 B l 002 B A 331 021
0001140 001 \0 j H 361 241 H 202 j H 331 022 g \0 \0 g
0001160 \0 \0 \b \0 \0 \r \v \0 \0 020 \0 ( 5 7 Q
0001200 B I T B L T 5 3 Q M A X I M
0001220 U M C O L O R 1 0 Q C O L O
0001240 R S C R E E N B I T M A P ) \r (
0001260 5 0 Q I N V E R T 4 5 Q T
0001300 E X T U R E ) \r N I L \r C O L O
0001320 R H L I N E D 1 \r ( I 3 W
0001340 I 2 X B I 1 X A I
0001360 0 Y ) \0 2 001 \0 \0 004 h d d C
0001400 265 005 \b \0 \0 A d B 361 221 277 B @ B A 331
0001420 021 001 \0 j H 361 241 H 202 j H 331 022 l 002 g
0001440 \0 \0 g \0 \0 \b \0 \0 \r \v \0 \0 020 \0 ( 5
0001460 7 Q B I T B L T 5 3 Q M A
0001500 X I M U M C O L O R 1 0 Q C
0001520 O L O R S C R E E N B I T M A P
0001540 ) \r ( 5 0 Q I N V E R T 4 5
0001560 Q T E X T U R E ) \r N I L \r D
0001600 R A W C O L O R R E G I O N O U
0001620 T L I N E D 1 \r ( I 4 W
0001640 I 3 Y 2 I 2 X 2 I
0001660 1 Y 1 I 0 X 1 ) \0 036 \0
0001700 \0 \0 005 A @ B D \f \0 \0 @ A C D \f \0
0001720 \0 C @ B D \f \0 \0 B A C D \f \0 \0 020
0001740 \0 ( 3 3 Q C O L O R V L I N E
0001760 2 4 Q C O L O R H L I N E
0002000 1 5 Q C O L O R V L I N E 6
0002020 C O L O R H L I N E ) \r N I L
0002040 \r N I L \r G E T C O L O R R E G
0002060 I O N A 0 0 0 7 A 0 0 0 8 A 0 0
0002100 1 1 D 1 \r ( N A M E E R R O
0002120 R S E T L ( 2 E R R O R S
0002140 E T . W 1 E R R O R S E T .
0002160 V 0 E R R O R S E T . U )
0002200 F 1 O P P X F 2 O P P
0002220 Y F 3 B A S E X F 4
0002240 B A S E Y F 5 O P P T F
0002260 6 N E W M O U S E X F 7
0002300 N E W M O U S E Y F 1 0 Q
0002320 N E W R E G I O N F N F 1
0002340 1 Q B A S E P T F 1 2 Q
0002360 N E W R E G I O N F N A R G )
0002400 001 4 001 \n \0 003 \b \0 \0 277 ` \0 \0 l \a 345
0002420 j 360 222 261 001 $ Q ` \0 \0 331 j 360 230 R `
0002440 \0 \0 331 j 360 263 341 \b \0 \0 277 ` \0 \0 l 002
0002460 345 j 360 222 261 \0 232 ` \0 \0 l 005 345 j 360 222
0002500 261 \0 216 \b \0 \0 277 ` \0 \0 l 002 345 j 360 262
0002520 364 ` \0 \0 Q 331 021 001 \0 j H 361 241 H 202 j
0002540 H 331 022 ` \0 \0 S 331 021 001 \0 j H 361 241 H
0002560 202 j H 331 022 375 361 247 Q S c 002 277 c 006 277
0002600 ` \0 \0 R 331 021 001 \0 j H 361 241 H 202 j H
0002620 331 022 ` \0 \0 T 331 021 001 \0 j H 361 241 H 202
0002640 j H 331 022 375 361 247 R T c 004 277 c \b 277 Q
0002660 R \n \0 \0 277 W 020 232 W 022 S 030 d T 031 277
0002700 c 022 277 S T Q R \f \0 \0 277 261 377 ; W 020
0002720 262 / W 022 U ` \0 \0 030 d ` \0 \0 031 277 W
0002740 024 l 003 W 020 017 016 c \n \t \0 \0 251 o \0 \0
0002760 \0 U \n \0 \0 260 025 U 001 c \f 277 U 002 210 `
0003000 \0 \0 c \f 277 ` \0 \0 c 016 277 V Q 360 227 W
0003020 016 R 360 222 261 376 362 S T Q R V W 016 \r 006
0003040 \0 \0 277 V c 002 277 W 016 c 004 277 S T Q R
0003060 \f \0 \0 277 261 376 322 i 020 \0 ( 4 5 4 Q
0003100 S E T C O R N E R 4 3 3 Q C
0003120 O L O R M O V E B O X 3 5 6 Q
0003140 E R R O R 3 4 5 Q P O S I
0003160 T I O N P 3 0 3 Q S E T C O
0003200 R N E R 2 5 5 Q \ S E T C U
0003220 R S O R P O S I T I O N 7 7 Q
0003240 G E T M O U S E S T A T E 4
0003260 3 Q G E T M O U S E S T A T E
0003300 2 G E T M O U S E S T A T E
0003320 ) \r ( 4 0 1 Q L A S T M O U S
0003340 E Y 3 7 3 Q L A S T M O U S
0003360 E X 3 2 6 Q L A S T M O U S
0003400 E Y 3 2 1 Q L A S T M O U S
0003420 E X 2 1 6 Q L A S T M O U S
0003440 E Y 1 7 4 Q L A S T M O U S
0003460 E Y 1 3 7 Q L A S T M O U S
0003500 E X 1 1 5 Q L A S T M O U S
0003520 E X 1 0 3 Q L A S T M O U S
0003540 E B U T T O N S 6 3 Q L A S
0003560 T M O U S E B U T T O N S 4 7
0003600 Q L A S T M O U S E B U T T O
0003620 N S 3 3 Q L A S T M O U S E
0003640 Y 2 3 Q L A S T M O U S E X
0003660 6 L A S T M O U S E B U T T
0003700 O N S ) \r ( 3 5 2 Q " n o n -
0003720 P O S I T I O N r e t u r n e
0003740 d f r o m N E W R E G I O N
0003760 F N . " ) \r G E T C O L O R R E
0004000 G I O N A 0 0 0 7 A 0 0 0 8 D
0004020 1 \r ( N A M E E R R O R S E T
0004040 L ( 2 E R R O R S E T . W
0004060 1 E R R O R S E T . V 0
0004100 E R R O R S E T . U ) P 7
0004120 N E W M O U S E Y P 6 N E
0004140 W M O U S E X P 5 O P P T
0004160 P 4 B A S E P T P 3
0004200 O P P Y P 2 O P P X P
0004220 1 B A S E Y P 0 B A S E
0004240 X F 1 6 Q I N I T R E G I
0004260 O N F 1 7 Q N E W R E G I
0004300 O N F N F 2 0 Q N E W R E
0004320 G I O N F N A R G F 2 1 Q
0004340 M A C R O Y F 2 2 Q M I N
0004360 W I D T H F 2 3 Q M I N H
0004400 E I G H T ) 001 d 016 006 \0 003 021 340 \r
0004420 W 034 262 ] \b \0 \0 277 ` \0 \0 l \a 345 j 360
0004440 263 364 ` \0 \0 k 345 j 360 263 F W 034 001 X W
0004460 034 002 002 001 330 272 ` \0 \0 H W 034 002 002 001 l
0004500 002 333 330 375 361 223 J H 272 270 W 034 002 001 Y W
0004520 034 002 002 002 001 330 273 ` \0 \0 I W 034 002 002 002
0004540 001 l 002 333 330 375 361 262 " K I 273 271 260 034 \b
0004560 \0 \0 277 ` \0 \0 l \a 345 j 360 263 364 ` \0 \0
0004600 270 ` \0 \0 271 H 272 I 273 W 036 262 * H I 032
0004620 h W l 003 W 036 017 016 \ 001 270 L 002 271 W
0004640 036 262 024 L J K 032 W l 003 W 036 017 016 ]
0004660 001 272 M 002 273 H I J K \b \0 \0 \r 005 \0 \0
0004700 277 o \0 \0 \0 i \n \0 \0 242 261 \0 220 H I J
0004720 K \b \0 \0 \r 005 \0 \0 277 H d J 361 221 277 J
0004740 I d K 361 221 277 K W $ 265 022 J H 331 _ 024
0004760 277 j O 024 361 263 $ O 024 260 $ J H 331 _ 020
0005000 277 j O 020 361 242 O 020 203 j O 020 331 _ 022 277
0005020 d O 022 361 247 277 O 022 203 j O 024 331 W & 265
0005040 022 I K 331 _ 032 277 j O 032 361 263 $ O 032 260
0005060 $ I K 331 _ 026 277 j O 026 361 242 O 026 203 j
0005100 O 026 331 _ 030 277 d O 030 361 247 277 O 030 203 j
0005120 O 032 331 h 032 032 032 032 260 023 H I J K \b \0
0005140 \0 \r 005 \0 \0 277 \b \0 \0 277 h 022 c " i 020
0005160 \0 ( 5 3 3 Q E R R O R ! 5 2
0005200 7 Q D R A W C O L O R R E G I
0005220 O N O U T L I N E 5 2 3 Q C
0005240 O L O R S C R E E N B I T M A P
0005260 3 1 2 Q D R A W C O L O R R
0005300 E G I O N O U T L I N E 3 0 6
0005320 Q C O L O R S C R E E N B I T
0005340 M A P 2 7 3 Q G E T C O L O
0005360 R R E G I O N A 0 0 0 7 A 0 0 0
0005400 8 A 0 0 1 1 2 6 2 Q D R A W
0005420 C O L O R R E G I O N O U T L I
0005440 N E 2 5 6 Q C O L O R S C R
0005460 E E N B I T M A P 1 4 4 Q G
0005500 E T M O U S E S T A T E 1 1 Q
0005520 G E T M O U S E S T A T E ) \r
0005540 ( 1 6 6 Q L A S T M O U S E Y
0005560 1 6 2 Q L A S T M O U S E X
0005600 1 5 0 Q L A S T M O U S E B
0005620 U T T O N S 1 1 4 Q L A S T
0005640 M O U S E Y 5 3 Q L A S T M
0005660 O U S E X 2 7 Q L A S T M O
0005700 U S E B U T T O N S 1 5 Q L
0005720 A S T M O U S E B U T T O N S )
0005740 \r ( 2 6 7 Q ( D U M M Y . F O
0005760 R . E R R O R S E T ) ) \r G E T
0006000 C O L O R R E G I O N A 0 0 0 7
0006020 D 1 \r ( N A M E E R R O R S
0006040 E T L ( 2 E R R O R S E T
0006060 . W 1 E R R O R S E T . V
0006100 0 E R R O R S E T . U ) P
0006120 3 R E S E T S T A T E P 2
0006140 M A C R O Y P 0 O L D V
0006160 A L U E F 4 R E S E T V A
0006200 R S L S T F 5 E X P A N D
0006220 I N G B O X F 6 M A C R O
0006240 Y ) \0 A 004 003 \0 003 U \t \0 \0 021 1 003
0006260 g \0 \0 H h 032 032 h 032 T 032 c \b 271 o \0
0006300 \0 \0 g \0 \0 \n \0 \0 243 g \0 \0 273 I 002 c
0006320 \b 277 g \0 \0 I 001 001 002 \n \0 \0 277 K 223 \b
0006340 \0 \0 200 J 022 c \f i 020 \0 ( 7 0 Q E
0006360 R R O R ! 6 2 Q A P P L Y
0006400 3 6 Q G E T C O L O R R E G I
0006420 O N A 0 0 0 7 A 0 0 0 8 3 C
0006440 U R S O R ) \r ( 5 3 Q C U R S
0006460 O R 4 2 Q E R R O R 3 3 Q
0006500 I N T E R N A L 1 1 Q C U
0006520 R S O R ) \r ( 3 0 Q ( D U M M
0006540 Y . F O R . E R R O R S E T ) )
0006560 \r G E T C O L O R R E G I O N
0006600 D 1 \r ( P 3 R E S E T S T A
0006620 T E P 2 M A C R O Y P
0006640 0 O L D V A L U E I 4 N
0006660 E W R E G I O N F N A R G I
0006700 3 N E W R E G I O N F N I
0006720 2 I N I T R E G I O N I 1
0006740 M I N H E I G H T I 0 M
0006760 I N W I D T H F 4 R E S E
0007000 T V A R S L S T ) \0 = 004 001 \0 005
0007020 \b \0 \0 \t \0 \0 021 1 003 g \0 \0 H h 032 032
0007040 h 032 T 032 c \b Y o \0 \0 \0 g \0 \0 \n \0
0007060 \0 243 g \0 \0 273 I 002 c \b g \0 \0 I 001 001
0007100 002 \n \0 \0 K 223 \b \0 \0 020 J 020 \0 ( 7 0
0007120 Q E R R O R ! 6 3 Q A P P
0007140 L Y 4 0 Q G E T C O L O R R
0007160 E G I O N A 0 0 0 7 5 C H A
0007200 N G E C U R S O R S C R E E N
0007220 2 C O L O R S C R E E N B I T
0007240 M A P ) \r ( 5 4 Q C H A N G E
0007260 C U R S O R S C R E E N 4 4 Q
0007300 E R R O R 3 5 Q I N T E R
0007320 N A L 1 3 Q C H A N G E C U
0007340 R S O R S C R E E N ) \r ( 3 2 Q
0007360 ( D U M M Y . F O R . E R R O
0007400 R S E T ) ) \r ( P R E T T Y C O
0007420 M P R I N T H L C O L O R C O
0007440 M S ) \r ( R P A Q Q H L C O L
0007460 O R C O M S ( ( F N S C O L
0007500 O R M O V E B O X C O L O R V
0007520 L I N E C O L O R H L I N E
0007540 D R A W C O L O R R E G I O N O
0007560 U T L I N E G E T C O L O R R
0007600 E G I O N ) ) ) \r N I L \r
0007615