$ od -c -N 50000 [eris]<Lisp>Harmony>Library>COLORPATCH.DCOM!1
0000000 ( F I L E C R E A T E D " 1 4
0000020 - N O V - 8 3 1 1 : 4 7 : 3 3
0000040 " ( " c o m p i l e d o n
0000060 " { P H Y L U M } < L I S P >
0000100 S O U R C E S > C O L O R P A T
0000120 C H . ; 2 ) \r " 1 0 - N O V -
0000140 8 3 0 4 : 1 1 : 0 6 " b c o
0000160 m p l ' d i n W O R K d a
0000200 t e d " 1 0 - N O V - 8 3 0
0000220 4 : 2 3 : 5 2 " ) \r ( F I L E C
0000240 R E A T E D " 1 4 - N O V - 8
0000260 3 1 1 : 4 6 : 4 3 " { P H Y
0000300 L U M } < L I S P > S O U R C E
0000320 S > C O L O R P A T C H . ; 2
0000340 7 8 6 5 c h a n g e s t o :
0000360 ( V A R S \r C O L O R P A T
0000400 C H C O M S ) p r e v i o u s
0000420 d a t e : " 1 0 - N O V - 8
0000440 3 1 4 : 4 3 : 5 9 " { P H Y
0000460 L U M } < L I S P C O R E > S O
0000500 U R C E S > C O L O R P A T C H
0000520 . ; 1 ) \r \ S L O W B L T C H A
0000540 R D 1 \r ( P 1 4 Q F O N T
0000560 P 1 3 Q H E I G H T M O V
0000600 E D P 1 2 Q Y P O S P
0000620 1 1 Q \ I N T E R R U P T A B
0000640 L E P 1 0 Q \ I N T E R R
0000660 U P T A B L E P 7 \ I N T
0000700 E R R U P T A B L E P 6 R
0000720 I G H T P 5 L E F T P
0000740 4 N E W X P 3 C U R X
0000760 P 1 R O T A T I O N P 0
0001000 D D I 1 D I S P L A Y S
0001020 T R E A M I 0 C H A R C O
0001040 D E ) 002 \v \r \0 \0 002 A 311 ( 021 ! 002
0001060 H 311 \f 310 025 Y d j 360 242 261 001 o H 311 \0
0001100 021 1 006 K H 311 020 @ 320 310 \0 330 \ H 311 030
0001120 361 262 026 l \r A \n \0 \0 277 H 311 \0 [ H 311
0001140 020 @ 320 310 \0 330 274 H L 024 \0 K H 311 004 330
0001160 [ H 310 " d K 361 241 277 K ] H 310 # L H
0001200 311 004 330 272 d J 361 221 277 J ^ d M 361 264 003
0001220 202 261 001 027 H 311 * \ 310 \t j 360 222 261 001 \n
0001240 H 311 \b 310 005 d k 360 262 E 277 021 020 \a ` \0
0001260 \0 224 A \t \0 \0 277 A ` \0 \0 360 244 A \t \0
0001300 \0 277 L M 315 002 277 L N M 331 315 \b 277 L H
0001320 311 022 @ 320 310 \0 M 330 K 331 315 006 277 L j v
0001340 277 ` \0 \0 223 \b \0 \0 277 023 261 \0 273 d l 004
0001360 360 262 V 277 H 311 022 244 A \t \0 \0 277 021 020 \b
0001400 ` \0 \0 224 A \t \0 \0 277 A ` \0 \0 360 244 A
0001420 \t \0 \0 277 L M 340 340 ] 315 002 277 L N 340 340
0001440 M 331 315 \b 277 L H 311 022 @ 320 310 \0 340 340 M
0001460 330 K 340 340 331 315 006 277 L j v 277 ` \0 \0 223
0001500 \b \0 \0 277 023 260 ` l \b 360 262 X H 311 022 244
0001520 A \t \0 \0 277 021 020 \t ` \0 \0 224 A \t \0 \0
0001540 277 A ` \0 \0 360 244 A \t \0 \0 277 L M 340 340
0001560 340 ] 315 002 277 L N 340 340 340 M 331 315 \b 277 L
0001600 H 311 022 @ 320 310 \0 340 340 340 M 330 K 340 340 340
0001620 331 315 006 277 L j v 277 ` \0 \0 223 \b \0 \0 277
0001640 023 202 \b \0 \0 i 020 h 020 H 311 002 H 311 020 @
0001660 320 310 \0 H 311 \f 021 003 \f I d l Z 360 262 6
0001700 277 O 024 O 026 330 A \n \0 \0 O 030 311 002 j H
0001720 311 022 @ 320 310 \0 A H 311 \0 O 030 006 \0 \0 310
0001740 022 331 k 330 O 024 O 030 006 \0 \0 310 024 O 026 \r
0001760 \b \0 \0 020 n 001 016 360 262 4 O 024 O 026 331 A
0002000 \n \0 \0 O 030 311 002 j H 311 022 @ 320 310 \0 A
0002020 H 311 \0 O 030 006 \0 \0 310 023 331 A 311 002 O 030
0002040 006 \0 \0 310 024 O 026 \r \b \0 \0 020 o \0 \0 \0
0002060 \t \0 \0 020 \0 ( 1 0 1 0 Q E R R O
0002100 R 1 0 0 0 Q B K B I T B L T
0002120 7 3 0 Q \ D S P Y P O S I T
0002140 I O N . D I S P L A Y 7 1 0 Q
0002160 B K B I T B L T 6 3 7 Q \
0002200 D S P Y P O S I T I O N . D I S
0002220 P L A Y 5 7 2 Q S H O U L D
0002240 N T 5 6 4 Q \ P U T U P C O
0002260 L O R C U R S O R 5 0 0 Q \
0002300 T O T O P W D S 4 6 5 Q \ I
0002320 F C O L O R D S \ T A K E D O W
0002340 N C O L O R C U R S O R 4 5 1
0002360 Q \ D D S E T C O L O R F O N
0002400 T 4 3 0 Q \ P U T U P C O L
0002420 O R C U R S O R 3 5 0 Q \ T
0002440 O T O P W D S 3 3 5 Q \ I F
0002460 C O L O R D S \ T A K E D O W N
0002500 C O L O R C U R S O R 3 2 1 Q
0002520 \ D D S E T C O L O R F O N T
0002540 2 7 5 Q \ P U T U P C O L O
0002560 R C U R S O R 2 2 6 Q \ T O
0002600 T O P W D S 2 1 3 Q \ I F C
0002620 O L O R D S \ T A K E D O W N C
0002640 O L O R C U R S O R 5 6 Q \
0002660 D S P P R I N T C R / L F ) \r (
0002700 7 7 0 Q F O N T D E S C R I P
0002720 T O R 7 5 5 Q F O N T D E S
0002740 C R I P T O R 7 0 0 Q F O N
0002760 T D E S C R I P T O R 6 6 4 Q
0003000 F O N T D E S C R I P T O R
0003020 5 6 0 Q \ C O L O R C U R S O
0003040 R D O W N 4 7 2 Q \ T O P W
0003060 D S 4 6 0 Q \ C O L O R C U
0003100 R S O R B M 4 2 4 Q \ C O L
0003120 O R C U R S O R D O W N 3 4 2
0003140 Q \ T O P W D S 3 3 0 Q \
0003160 C O L O R C U R S O R B M 2 7
0003200 1 Q \ C O L O R C U R S O R D
0003220 O W N 2 2 0 Q \ T O P W D S
0003240 2 0 6 Q \ C O L O R C U R S
0003260 O R B M ) \r ( 1 0 0 5 Q " N
0003300 o t i m p l e m e n t e d t
0003320 o r o t a t e b y o t h e
0003340 r t h a n 0 , 9 0 o r
0003360 2 7 0 " ) \r P R I N T B I T M A
0003400 P D 1 \r ( L ( 1 F I L E
0003420 0 B I T M A P ) ) \0 203 001 \0 \0
0003440 002 @ 021 001 \0 @ 004 ` \0 \0 360 263 0 @ 004 l
0003460 004 360 231 @ - X 004 ` \0 \0 360 263 o \0 \0
0003500 \0 i \n \0 \0 277 @ i \n \0 \0 277 o \0 \0 \0
0003520 i \n \0 \0 277 i \t \0 \0 h 020 o \0 \0 \0 A
0003540 \n \0 \0 277 H \t \0 \0 A \n \0 \0 277 k A \n
0003560 \0 \0 277 H \t \0 \0 A \n \0 \0 H d \t \0 \0
0003600 k 360 263 023 277 k A \n \0 \0 277 H \t \0 \0 A
0003620 \n \0 \0 277 H A \n \0 \0 o \0 \0 \0 A \n \0
0003640 \0 h 020 \0 ( 1 7 7 Q P R I N 1
0003660 1 6 7 Q \ W R I T E B I T M A
0003700 P 1 6 1 Q P R I N 2 1 5 5
0003720 Q B I T S P E R P I X E L 1
0003740 5 0 Q S P A C E S 1 3 6 Q
0003760 B I T S P E R P I X E L 1 3 1
0004000 Q P R I N 2 1 2 5 Q B I T
0004020 M A P H E I G H T 1 2 0 Q S
0004040 P A C E S 1 1 2 Q P R I N 2
0004060 1 0 6 Q B I T M A P W I D T
0004100 H 1 0 1 Q P R I N 1 6 7 Q
0004120 T E R P R I 6 2 Q P R I N
0004140 1 5 1 Q P R I N 1 4 3 Q
0004160 P R I N 1 ) \r ( 3 0 Q 004 003 B I
0004200 T M A P T Y P E # 1 0 Q 004 003
0004220 B I T M A P T Y P E # ) \r ( 1
0004240 7 3 Q " ) " 7 5 Q " ( "
0004260 5 6 Q " i s n o t a B
0004300 I T M A P . " 3 7 Q " * * *
0004320 * * * * * " ) \r R E A D B I T
0004340 M A P D 1 \r ( P 6 B I T S
0004360 P E R P I X E L P 5 W P
0004400 4 B M P 3 B A S E P
0004420 2 S T R M P 1 H E I G
0004440 H T P 0 W I D T H I 0
0004460 F I L E ) \0 312 \a \0 \0 001 @ \t \0
0004500 \0 @ \t \0 \0 g \0 \0 360 247 o \0 \0 \0 \t \0
0004520 \0 277 @ \t \0 \0 @ \t \0 \0 @ g \0 \0 \n \0
0004540 \0 021 C 006 J \t \0 \0 g \0 \0 360 221 k 203 @
0004560 \t \0 \0 ^ H 332 l 017 330 342 342 342 342 275 H I
0004600 N \v \0 \0 \ 311 \0 273 H j 360 263 m I j 360
0004620 263 h J \t \0 \0 g \0 \0 360 262 P I d j 361
0004640 262 W J \t \0 \0 277 J l " 360 262 = M d
0004660 j 361 262 0 K j J l @ 331 340 340 340 340 J
0004700 l @ 331 344 307 277 K k J l @ 331 340 340
0004720 340 340 J l @ 331 344 307 277 K k 320 273 k 331
0004740 260 317 277 J l " 360 251 277 o \0 \0 \0 \t \0
0004760 \0 h 020 k 331 260 250 277 J \t \0 \0 277 J l
0005000 ) 360 262 350 L 020 \0 ( 2 7 6 Q S K I
0005020 P S E P R S 2 6 3 Q E R R O
0005040 R 1 5 0 Q S K I P S E P R S
0005060 1 3 0 Q S K I P S E P R S
0005100 1 0 6 Q B I T M A P C R E A T
0005120 E 6 5 Q R A T O M 5 2 Q
0005140 S K I P S E P R S 4 3 Q G E
0005160 T S T R E A M 3 4 Q R A T O
0005200 M 3 0 Q R A T O M 2 3 Q
0005220 E R R O R 7 R E A D C 3
0005240 S K I P S E P R S ) \r ( 1 3 3 Q
0005260 % " 5 5 Q % " 4 0 Q I
0005300 N P U T 1 2 Q % ( ) \r ( 2
0005320 6 0 Q " B A D F O R M A T
0005340 O F B I T M A P I N F I L
0005360 E " 2 0 Q " B A D F O R M
0005400 A T O F B I T M A P I N
0005420 F I L E " ) \r ( P R E T T Y C O
0005440 M P R I N T C O L O R P A T C
0005460 H C O M S ) \r ( R P A Q Q C O
0005500 L O R P A T C H C O M S ( ( F
0005520 N S \ S L O W B L T C H A R
0005540 P R I N T B I T M A P R E A D
0005560 B I T M A P ) ) ) \r ( P U T P R
0005600 O P S C O L O R P A T C H C
0005620 O P Y R I G H T ( " X e r o x
0005640 C o r p o r a t i o n " 1 9
0005660 8 3 ) ) \r N I L \r
0005671