$ od -c -N 50000 [eris]<LispCore>DEMO>OVERPAINT!1
0000000 ( F I L E C R E A T E D " 2 6
0000020 - A P R - 8 2 1 9 : 2 3 : 3 7
0000040 " 006 004 { P H Y L U M } < L I S
0000060 P C O R E > C O L O R > O V E R
0000100 P A I N T . ; 1 0 006 001 5 5 9 9
0000120 \r \r c h a n g e
0000140 s t o : N E W X N E W Y
0000160 \r \r p r e v i o u s
0000200 d a t e : " 2 6 - A P R - 8 2
0000220 1 9 : 0 2 : 1 5 " { P H Y L
0000240 U M } < L I S P C O R E > C O L
0000260 O R > O V E R P A I N T . ; 9 )
0000300 \r \r \r ( P R E T T Y C O M P R I
0000320 N T O V E R P A I N T C O M S
0000340 ) \r \r ( R P A Q Q 006 002 O V E R
0000360 P A I N T C O M S 006 001 ( ( F N
0000400 S N E W X N E W Y O V E R
0000420 P A I N T O V E R P A I N T B
0000440 M O V E R P A I N T D E M O
0000460 O V E R P A I N T S E L F N \r
0000500 \t \t \t B I T M A P F R O M
0000520 S T R I N G S H A D E B I T M
0000540 A P ) \r \t \t ( V A R
0000560 S ( O V E R P A I N T B I T M
0000600 A P S ) ) ) ) \r ( D E F I N E Q
0000620 \r \r ( 006 004 N E W X 006 001 \r [ L
0000640 A M B D A ( B W S W )
0000660
*
0000720 006 003 ( * 272 264
0000740 306 243 " 2 6 - A P R - 8 2 1 9
0000760 : 1 3 " ) 006 001 \r ( S E L
0001000 E C T Q M O V E M O D E \r \t
0001020 ( R A N D O M ( R A N
0001040 D ( I M I N U S B W ) \r \t \t
0001060 \t S W ) ) \r \t (
0001100 C U R S O R ( I D I F F E R E
0001120 N C E L A S T M O U S E X (
0001140 I Q U O T I E N T B W 2 ) )
0001160 ) \r \t ( L I N E [ C
0001200 O N D \r \t \t ( ( I L E
0001220 Q ( S E T Q N S T E P S (
0001240 S U B 1 N S T E P S ) ) \r \t \t
0001260 \t 0 ) \r \t \t
0001300 ( S E T Q N S T E P S ( R
0001320 A N D 0 4 0 ) ) \r \t \t
0001340 ( C O N D \r \t \t \t ( (
0001360 I G E Q ( R A N D 0 4 ) \r
0001400 \t \t \t \t 2 ) \r \t \t \t ( S E
0001420 T Q D X ( R A N D 0 1 0
0001440 ) ) ) \r \t \t \t ( T ( S E T Q
0001460 D Y ( R A N D 0 1 0 ] \r
0001500 \t \t ( C O N D \r \t \t
0001520 ( ( I L E S S P ( S E T Q
0001540 L A S T X ( I P L U S L A
0001560 S T X D X ) ) \r \t \t \t
0001600 0 ) \r \t \t ( S
0001620 E T Q L A S T X ( I M I N U
0001640 S L A S T X ) ) \r \t \t
0001660 ( S E T Q D X ( I M I
0001700 N U S D X ) ) ) \r \t \t
0001720 ( ( I G E Q L A S T X S W
0001740 ) \r \t \t ( S E T Q
0001760 L A S T X ( I D I F F E R E
0002000 N C E ( I T I M E S 2 S W
0002020 ) \r \t \t \t \t \t \t L A S T X ) ) \r
0002040 \t \t ( S E T Q D
0002060 X ( I M I N U S D X ) ) ) \r
0002100 \t \t ( T L A S T X )
0002120 ) ) \r \t ( S H O U L D
0002140 N T ] ) \r \r ( 006 004 N E W Y 006 001 \r
0002160 [ L A M B D A ( B H S H
0002200 )
0002220
0002240 006 003 (
0002260 * 272 264 306 243 " 2 6 - A P R - 8
0002300 2 1 9 : 1 3 " ) 006 001 \r
0002320 ( S E L E C T Q M O V E M O D
0002340 E \r \t ( R A N D O M
0002360 ( R A N D ( I M I N U S B H
0002400 ) \r \t \t \t S H ) ) \r \t
0002420 ( C U R S O R ( I D I F
0002440 F E R E N C E L A S T M O U S
0002460 E Y ( I Q U O T I E N T B H
0002500 2 ) ) ) \r \t ( L I N
0002520 E [ C O N D \r \t \t (
0002540 ( I L E Q ( S E T Q N S T E
0002560 P S ( S U B 1 N S T E P S )
0002600 ) \r \t \t \t 0 ) \r \t \t
0002620 ( S E T Q N S T E P
0002640 S ( R A N D 0 4 0 ) ) \r \t
0002660 \t ( C O N D \r \t \t
0002700 \t ( ( I G E Q ( R A N D 0
0002720 4 ) \r \t \t \t \t 2 ) \r \t \t \t
0002740 ( S E T Q D X ( R A N D
0002760 0 1 0 ) ) ) \r \t \t \t ( T (
0003000 S E T Q D Y ( R A N D 0
0003020 1 0 ] \r \t \t ( C O N D \r \t
0003040 \t ( ( I L E S S P (
0003060 S E T Q L A S T Y ( I P L U
0003100 S L A S T Y D Y ) ) \r \t \t \t
0003120 0 ) \r \t \t
0003140 ( S E T Q L A S T Y ( I
0003160 M I N U S L A S T Y ) ) \r \t \t
0003200 ( S E T Q D Y
0003220 ( I M I N U S D Y ) ) ) \r \t \t
0003240 ( ( I G E Q L A S T
0003260 Y S H ) \r \t \t (
0003300 S E T Q L A S T Y ( I D I F
0003320 F E R E N C E ( I T I M E S
0003340 2 S H ) \r \t \t \t \t \t \t L A S T
0003360 Y ) ) \r \t \t ( S E
0003400 T Q D Y ( I M I N U S D Y
0003420 ) ) ) \r \t \t ( T L A
0003440 S T Y ) ) ) \r \t ( S H
0003460 O U L D N T ] ) \r \r ( 006 004 O V E
0003500 R P A I N T 006 001 \r [ L A M B
0003520 D A ( B M 1 B M 2 X Y
0003540 T X T S C R )
0003560
0003600 006 003 ( * b a s :
0003620 " 2 5 - A P R - 8 2 1 4 : 5 8
0003640 " ) 006 001 \r
0003660
*
0003740 006 003 ( * U s e s B M 1
0003760 a s a m a s k t h r u w
0004000 h i c h i t p a i n t s t
0004020 e x t u r e o n t o 006 001 \r \t
0004040 \t \t \t \t \t \t 006 003 B M 2
0004060 a t p o s i t i o n X Y
0004100 ) 006 001 \r [ O R S C R
0004120 ( S E T Q S C R ( B I T M A
0004140 P C R E A T E ( 006 002 f e t c h
0004160 006 001 B I T M A P W I D T H 006
0004200 002 o f 006 001 B M 1 ) \r \t \t \t \t
0004220 ( 006 002 f e t c h 006 001 B I
0004240 T M A P H E I G H T 006 002 o f 006
0004260 001 B M 1 ] \r
0004300
*
0004360 006 003 ( * W e n e e d
0004400 a s c r a t c h B M . M
0004420 o s t d e m o s c a c h e
0004440 o n e ) 006 001 \r ( B I T B
0004460 L T B M 2 X Y S C R 0
0004500 0 ( 006 002 f e t c h 006 001 B I
0004520 T M A P W I D T H 006 002 o f 006 001
0004540 B M 1 ) \r \t ( 006 002 f e
0004560 t c h 006 001 B I T M A P H E I G
0004600 H T 006 002 o f 006 001 B M 1 ) \r \t
0004620 ( Q U O T E I N P U T
0004640 ) \r \t ( Q U O T E R E
0004660 P L A C E ) ) \r ( B I T
0004700 B L T B M 1 0 0 S C R
0004720 0 0 N I L N I L ( Q U O
0004740 T E I N P U T ) \r \t (
0004760 Q U O T E E R A S E ) ) \r
0005000 ( B I T B L T B M 1 0
0005020 0 S C R 0 0 N I L N I
0005040 L ( Q U O T E M E R G E ) \r
0005060 \t ( Q U O T E P A I N
0005100 T ) \r \t T X T ) \r
0005120 ( B I T B L T S C R 0 0
0005140 B M 2 X Y ( 006 002 f e t c
0005160 h 006 001 B I T M A P W I D T H
0005200 006 002 o f 006 001 B M 1 ) \r \t
0005220 ( 006 002 f e t c h 006 001 B I T M
0005240 A P H E I G H T 006 002 o f 006 001
0005260 B M 1 ) \r \t ( Q U O T E
0005300 I N P U T ) \r \t ( Q U
0005320 O T E R E P L A C E ] ) \r \r (
0005340 006 004 O V E R P A I N T B M 006 001 \r
0005360 [ L A M B D A ( B M F O
0005400 N T )
0005420
0005440 006 003 (
0005460 * b a s : " 2 6 - A P R - 8
0005500 2 1 9 : 0 1 " ) 006 001 \r
0005520 ( O R ( B I T M A P P B M )
0005540 \r \t ( S E T Q B M ( 006 002 B I
0005560 T M A P F R O M S T R I N G 006 001
0005600 B M F O N T ) ) ) \r
0005620 ( P R O G ( ( B M W ( 006 002 f
0005640 e t c h 006 001 B I T M A P W I D
0005660 T H 006 002 o f 006 001 B M ) ) \r \t
0005700 ( B M H ( 006 002 f e t c h
0005720 006 001 B I T M A P H E I G H T
0005740 006 002 o f 006 001 B M ) ) \r \t
0005760 ( E B M ( E X P A N D B I T M
0006000 A P B M 4 ) ) \r \t S C
0006020 R ) \r ( S E
0006040 T Q S C R ( B I T M A P C R
0006060 E A T E ( I T I M E S B M W
0006100 4 ) \r \t \t \t \t B M H ) ) \r
0006120 ( C O L O R
0006140 B A C K G R O U N D ( R A N D
0006160 0 7 ) ) \r
0006200 ( 006 002 u n t i l 006 001 ( Q U I
0006220 T P ) 006 002 d o 006 001 ( A N D
0006240 ( E Q 5 1 ( R A N D 0 2
0006260 0 0 ) ) \r \t \t \t \t ( C O L O R
0006300 B A C K G R O U N D ( R A N D
0006320 0 7 ) ) ) \r \t \t \t (
0006340 006 002 O V E R P A I N T 006 001 E B
0006360 M ( 006 002 f e t c h 006 001 C O L
0006400 O R B I T M A P P T R 006 002 o f
0006420 006 001 ( C O L O R S C R E E N B
0006440 I T M A P ) ) \r \t \t \t \t
0006460 ( I T I M E S 4 ( 006 002
0006500 N E W X 006 001 B M W C O L O R
0006520 S C R E E N W I D T H ) ) \r \t \t
0006540 \t \t ( 006 002 N E W Y
0006560 006 001 B M H C O L O R S C R E
0006600 E N H E I G H T ) \r \t \t \t \t
0006620 ( C O L O R T E X T U
0006640 R E F R O M C O L O R # ( R A
0006660 N D 0 7 ) ) \r \t \t \t \t
0006700 S C R ] ) \r \r ( 006 004 O V
0006720 E R P A I N T D E M O 006 001 \r
0006740 [ L A M B D A N I L
0006760
*
0007020 006 003 ( *
0007040 b a s : " 2 6 - A P R - 8 2
0007060 1 8 : 3 8 " ) 006 001 \r ( 006
0007100 002 D E C L A R E 006 001 ( G L O B
0007120 A L V A R S / N E W C O L O R
0007140 D E M O S T O P D A T E ) ) \r
0007160 ( R E S E T L S T [ R
0007200 E S E T S A V E N I L ( L I
0007220 S T ( Q U O T E C L O S E W
0007240 ) \r \t \t \t \t ( A D D M E N
0007260 U ( 006 002 c r e a t e 006 001 M E
0007300 N U \r \t \t \t \t \t \t I T E
0007320 M S _ ( Q U O T E ( R A N D
0007340 O M L I N E C U R S O R N
0007360 O N E ) ) \r \t \t \t \t \t \t
0007400 W H E N S E L E C T E D F N _
0007420 ( Q U O T E O V E R P A I N T
0007440 S E L F N ] \r \t ( S
0007460 E T Q M O V E M O D E ( Q U
0007500 O T E L I N E ) ) \r \t
0007520 [ S E T Q L A S T X ( S
0007540 E T Q L A S T Y ( S E T Q
0007560 D X ( S E T Q D Y ( S E T
0007600 Q N S T E P S 0 ] \r \t
0007620 ( 006 002 f o r 006 001 I 006 002
0007640 i n 006 001 [ O R O V E R P A I
0007660 N T B I T M A P S ( S E T Q
0007700 O V E R P A I N T B I T M A P S
0007720 ( C O N S ( 006 002 B I T M A P
0007740 F R O M S T R I N G 006 001 ) \r \t \t
0007760 \t \t \t \t \t \t \t ( R E A D B M
0010000 L S T ( Q U O T E H L S T R
0010020 I N G S ] \r \t \t 006 002 u n t i l
0010040 006 001 ( O R / N E W C O L O R
0010060 D E M O ( E Q M O V E M O D
0010100 E ( Q U O T E N O N E ) ) )
0010120 006 002 d o 006 001 ( S E T Q S T
0010140 O P D A T E \r \t \t \t \t \t \t \t \t \t
0010160 ( I P L U S 6 0 ( I D A
0010200 T E ) ) ) \r \t \t \t \t \t \t \t \t \t (
0010220 006 002 O V E R P A I N T B M 006 001
0010240 I ] ) \r \r ( 006 004 O V E R P A I N
0010260 T S E L F N 006 001 \r [ L A M B
0010300 D A ( V )
0010320
*
0010360 006 003 ( * b a s :
0010400 " 2 6 - A P R - 8 2 1 8 : 0 7
0010420 " ) 006 001 \r ( S E T Q M
0010440 O V E M O D E V ] ) \r \r ( 006 004
0010460 B I T M A P F R O M S T R I N G
0010500 006 001 \r [ L A M B D A ( S T
0010520 R F O N T )
0010540
*
0010600 006 003 ( * b a s : " 2 4 - A P
0010620 R - 8 2 1 6 : 1 8 " ) 006 001 \r
0010640 ( O R S T R ( S E T Q
0010660 S T R " I n t e r l i s p -
0010700 D " ) ) \r [ O R ( F O
0010720 N T P F O N T ) \r \t ( S E T Q
0010740 F O N T ( F O N T C R E A T
0010760 E ( Q U O T E T I M E S R O
0011000 M A N D ) \r \t \t \t
0011020 ( Q U O T E 3 6 ] \r (
0011040 P R O G ( ( S C R ( D S P C
0011060 R E A T E ) ) \r \t ( S W
0011100 ( S T R I N G W I D T H S T R
0011120 F O N T ) ) \r \t ( F H
0011140 ( F O N T P R O P F O N T (
0011160 Q U O T E H E I G H T ) ) ) \r
0011200 \t B M ) \r
0011220 ( S E T Q B M ( B I T M
0011240 A P C R E A T E S W F H ) )
0011260 \r ( D S P D
0011300 E S T I N A T I O N B M S C
0011320 R ) \r ( D S
0011340 P F O N T F O N T S C R ) \r
0011360 ( M O V E T
0011400 O 0 ( F O N T P R O P F O
0011420 N T ( Q U O T E D E S C E N
0011440 T ) ) \r \t \t S C R ) \r
0011460 ( P R I N 1 S T
0011500 R S C R ) \r
0011520 ( R E T U R N B M ] ) \r \r (
0011540 006 004 S H A D E B I T M A P 006 001 \r
0011560 [ L A M B D A ( B M T 0
0011600 T 1 )
0011620
0011640 006 003 (
0011660 * b a s : " 2 5 - A P R - 8
0011700 2 1 5 : 0 2 " ) 006 001 \r
0011720
*
0012000 006 003 ( * S h
0012020 a d e s b i t m a p B M w
0012040 i t h T 0 i n t o 0 a r
0012060 e a s a n d T 1 i n t o
0012100 1 006 001 \r \t \t \t \t \t \t \t
0012120 006 003 a r e a s ) 006 001 \r
0012140 ( B I T B L T N I L N I L
0012160 N I L B M N I L N I L N
0012200 I L N I L ( Q U O T E T E
0012220 X T U R E ) \r \t ( Q U O
0012240 T E I N V E R T ) \r \t
0012260 ( L O G A N D T 0 ( L O G X
0012300 O R T 0 T 1 ) ) ) \r
0012320 ( B I T B L T N I L N I L
0012340 N I L B M N I L N I L N
0012360 I L N I L ( Q U O T E T E
0012400 X T U R E ) \r \t ( Q U O
0012420 T E P A I N T ) \r \t (
0012440 L O G A N D T 0 T 1 ) ) \r
0012460 ( B I T B L T N I L N
0012500 I L N I L B M N I L N I
0012520 L N I L N I L ( Q U O T E
0012540 T E X T U R E ) \r \t (
0012560 Q U O T E E R A S E ) \r \t
0012600 ( L O G X O R ( L O G O R
0012620 T 0 T 1 ) \r \t \t 6 5
0012640 5 3 5 ] ) \r ) \r \r ( R P A Q Q
0012660 006 002 O V E R P A I N T B I T M A
0012700 P S 006 001 N I L ) \r ( D E C L A
0012720 R E : D O N T C O P Y \r (
0012740 F I L E M A P ( N I L ( 3 9
0012760 2 5 5 4 3 ( N E W X 4 0 2
0013000 . 1 1 2 4 ) ( N E W Y 1
0013020 1 2 6 . 1 8 4 8 ) ( O V E
0013040 R P A I N T 1 8 5 0 . 2 7
0013060 8 1 ) ( O V E R P A I N T B M
0013100 2 7 8 3 \r . 3 5 2 9 ) (
0013120 O V E R P A I N T D E M O 3 5
0013140 3 1 . 4 2 5 9 ) ( O V E R
0013160 P A I N T S E L F N 4 2 6 1
0013200 . 4 3 9 5 ) ( B I T M A P F
0013220 R O M S T R I N G 4 3 9 7 .
0013240 4 9 5 7 ) ( \r S H A D E B I
0013260 T M A P 4 9 5 9 . 5 5 4 1
0013300 ) ) ) ) ) \r S T O P \r
0013313