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