$ od -c -N 50000 [eris]<Lisp>KOTO>LISPUSERS>animate.tedit!2 0000000 X E R O X \t A N I M A T E \r 2 \r 0000020 \r 4 \r \r 1 \r \r A N I M A T E \r 1 0000040 \r \r 4 \r \r B y : D a n B o 0000060 b r o w w i t h h e l p f 0000100 r o m M a r k S t e f i k 0000120 ( S t e f i k . p a @ X e r o x 0000140 . c o m ) \r \r T h i s s m a l 0000160 l p a c k a g e c o n t a i 0000200 n s f u n c t i o n s f o r 0000220 m o v i n g a n o n - r e 0000240 c t a n g u l a r b i t m a p 0000260 s m o o t h l y a r o u n d 0000300 t h e s c r e e n , w a y 0000320 s o f u s i n g t h e s e 0000340 t o g e t b i g c u r s 0000360 o r s , a n d b i t m a p s 0000400 f o r a l a r g e a r r 0000420 o w a n d a h a n d t o 0000440 b e u s e d a s l a r g 0000460 e c u r s o r s . \r ( A n i m 0000500 a t e S e t U p p i c t u r e 0000520 s h a d o w x y s a v e 0000540 B i t M a p ) \t \t \t \t \t [ F u 0000560 n c t i o n ] \r U s e s p i c 0000600 t u r e ( a n a r b i t r a 0000620 r y r e c t a n g u l a r b 0000640 i t m a p ) , a n d s h a 0000660 d o w ( a b i t m a p w 0000700 h i c h i s b l a c k i n 0000720 s i d e o u t l i n e o f 0000740 p i c t u r e ) . A n i m a t 0000760 e S e t U p p l a c e s p i 0001000 c t u r e o n s c r e e n 0001020 a t < x , y > l e a v i n g 0001040 t h e b a c k g r o u n d 0001060 a r o u n d s h a d o w . I 0001100 t r e t u r n s s a v e B i 0001120 t M a p , w h i c h i s c 0001140 r e a t e d t h e s a m e 0001160 s i z e a s p i c t u r e 0001200 i f n o t g i v e n . A 0001220 n i m a t e M o v e u s e s 0001240 s a v e B i t M a p t o c 0001260 o m p u t e t h e n e w s 0001300 c r e e n i m a g e w h e n 0001320 t h e p i c t u r e i s 0001340 m o v e d . \r ( A n i m a t e M 0001360 o v e p i c t u r e s h a d 0001400 o w s a v e B i t M a p o l 0001420 d x o l d y n e w x n e w 0001440 y ) \t \t \t [ F u n c t i o n ] \r 0001460 M o v e s a p i c t u r e 0001500 s e t u p w i t h A n i m 0001520 a t e S e t U p f r o m < 0001540 o l d x , o l d y > t o < 0001560 n e w x , n e w y > \r ( F o l 0001600 l o w C u r s o r p i c t u r 0001620 e s h a d o w s a v e B i t 0001640 M a p ) \t \t \t \t \t \t [ F u n c 0001660 t i o n ] \r W a i t s f o r 0001700 a m o u s e b u t t o n t 0001720 o b e d o w n , b l a n k 0001740 s o u t t h e u s u a l 0001760 c u r s o r , a n d c a u 0002000 s e s p i c t u r e t o t 0002020 r a c k t h e m o u s e m 0002040 o v e m e n t u n t i l a l 0002060 l t h e m o u s e b u t t 0002100 o n s a r e u p . \r B I G C 0002120 W i s a f u n c t i o n 0002140 f o r m a k i n g a l a r 0002160 g e i c o n w h i c h s t 0002200 a y s o n t h e s c r e e 0002220 n a s a w i n d o w u n 0002240 t i l i t i s s e l e c t 0002260 e d w i t h t h e m o u s 0002300 e w h e n i t w i l l f 0002320 o l l o w t h e c u r s o r 0002340 . \r ( B I G C W P O S 0002360 I C O N B I T M A P S H A D O 0002400 W B I T M A P S A V E B I T M 0002420 A P ) \t \t \t \t [ F u n c t i o n 0002440 ] \r C r e a t e s a w i n d 0002460 o w w h i c h c o n t a i n 0002500 s I C O N B I T M A P . W h 0002520 e n t h e w i n d o w i s 0002540 s e l e c t e d ( c l i c k 0002560 e d w i t h a m o u s e 0002600 b u t t o n ) B I G C W c l 0002620 o s e s t h e w i n d o w , 0002640 a n d c a u s e s t h e 0002660 I C O N B I T M A P t o F 0002700 o l l o w t h e m o u s e 0002720 m o v e m e n t . W h e n t 0002740 h e b u t t o n i s l i f 0002760 t e d , t h e o r i g i n a 0003000 l w i n d o w r e a p p e a 0003020 r s . \r T w o s e t s o f 0003040 b i t m a p s c o m e w i 0003060 t h t h e f i l e : \r H a n 0003100 d , a n d H a n d S h a d o 0003120 w \r B i g A r r o w I c o n B 0003140 i g A r r o w S h a d o w . \r ( 0003160 B I G C W ) d e f a u l t s 0003200 t o u s i n g t h e H a n 0003220 d , a l l o w i n g t h e 0003240 u s e r t o p l a c e t h 0003260 e w i n d o w . \r ( B I G C W 0003300 N I L B i g A r r o w I c o 0003320 n B i g A r r o w S h a d o w 0003340 ) \t \t \t \t \t \t [ F u n c t i o n 0003360 ] \r w i l l c r e a t e a 0003400 l a r g e a r r o w w h i 0003420 c h c a n b e u s e d f 0003440 o r p o i n t i n g \r \r \0 \0 \0 0003460 \0 \0 003 ( L I S T ( ( P A G E 0003500 N I L ( P A P E R S I Z E L 0003520 e t t e r F O L I O I N F O 0003540 ( A R A B I C ) S T A R T 0003560 I N G P A G E # 1 ) ( 0 0 0003600 6 1 2 7 9 2 ) ( ( F O L I 0003620 O N I L ( P A R A L O O K S 0003640 ( Q U A D C E N T E R E D ) 0003660 C H A R L O O K S ( S U P E 0003700 R S C R I P T 0 I N V I S I 0003720 B L E O F F S E L E C T P O 0003740 I N T O F F P R O T E C T E 0003760 D O F F S I Z E 1 0 F A 0004000 M I L Y M O D E R N O V E R 0004020 L I N E O F F S T R I K E O 0004040 U T O F F U N D E R L I N E 0004060 O F F E X P A N S I O N R 0004100 E G U L A R S L O P E R E G 0004120 U L A R W E I G H T M E D I 0004140 U M I N V E R T E D O F F 0004160 U S E R I N F O N I L S T Y 0004200 L E N I L ) F O R M A T I N 0004220 F O ( A R A B I C ) ) ( 0004240 1 7 4 3 6 2 8 8 3 6 ) N 0004260 I L ) ( H E A D I N G N I L 0004300 ( H E A D I N G T Y P E R U 0004320 N N I N G H E A D ) ( 8 4 7 0004340 4 4 5 2 8 3 6 ) N I L ) 0004360 ( T E X T N I L N I L ( 8 0004400 4 9 6 4 5 6 6 0 0 ) N I 0004420 L ) ) ) ( P A G E N I L ( 0004440 P A P E R S I Z E L e t t e r 0004460 F O L I O I N F O ( A R A B 0004500 I C ) ) ( 0 0 6 1 2 0004520 7 9 2 ) ( ( F O L I O N I L 0004540 ( P A R A L O O K S ( Q U A 0004560 D C E N T E R E D ) C H A R 0004600 L O O K S ( S U P E R S C R I 0004620 P T 0 I N V I S I B L E O 0004640 F F S E L E C T P O I N T O 0004660 F F P R O T E C T E D O F F 0004700 S I Z E 1 0 F A M I L Y 0004720 M O D E R N O V E R L I N E 0004740 O F F S T R I K E O U T O F 0004760 F U N D E R L I N E O F F 0005000 E X P A N S I O N R E G U L A 0005020 R S L O P E R E G U L A R 0005040 W E I G H T M E D I U M I N 0005060 V E R T E D O F F U S E R I 0005100 N F O N I L S T Y L E N I 0005120 L ) F O R M A T I N F O ( A 0005140 R A B I C ) ) ( 1 7 4 3 0005160 6 2 8 8 3 6 ) N I L ) ( 0005200 H E A D I N G N I L ( H E A 0005220 D I N G T Y P E R U N N I N G 0005240 H E A D ) ( 8 4 7 4 4 5 2 0005260 8 3 6 ) N I L ) ( T E X T 0005300 N I L N I L ( 8 4 9 6 0005320 4 5 6 6 0 0 ) N I L ) ) ) 0005340 ( P A G E N I L ( P A P E R 0005360 S I Z E L e t t e r F O L I 0005400 O I N F O ( A R A B I C ) 0005420 S T A R T I N G P A G E # N 0005440 I L ) ( 0 0 6 1 2 7 9 2 0005460 ) ( ( F O L I O N I L ( P 0005500 A R A L O O K S ( Q U A D C 0005520 E N T E R E D ) C H A R L O O 0005540 K S ( S U P E R S C R I P T 0005560 0 I N V I S I B L E O F F 0005600 S E L E C T P O I N T O F F 0005620 P R O T E C T E D O F F S I 0005640 Z E 1 0 F A M I L Y M O D 0005660 E R N O V E R L I N E O F F 0005700 S T R I K E O U T O F F U 0005720 N D E R L I N E O F F E X P 0005740 A N S I O N R E G U L A R S 0005760 L O P E R E G U L A R W E I 0006000 G H T M E D I U M I N V E R 0006020 T E D O F F U S E R I N F O 0006040 N I L S T Y L E N I L ) 0006060 F O R M A T I N F O ( A R A B 0006100 I C ) ) ( 1 7 4 3 6 2 0006120 8 8 3 6 ) N I L ) ( H E A 0006140 D I N G N I L ( H E A D I N 0006160 G T Y P E R U N N I N G H E A 0006200 D ) ( 8 4 7 4 4 5 2 8 3 0006220 6 ) N I L ) ( T E X T N I 0006240 L N I L ( 8 4 9 6 4 5 6 0006260 6 0 0 ) N I L ) ) ) ) ) \0 \0 0006300 \0 \0 \0 005 \0 005 \0 ( \0 \0 \0 \0 001 310 \0 \v 0006320 \0 \0 \0 004 002 004 \0 \0 \0 \0 \0 \0 \0 \0 \0 \0 0006340 \0 \0 \0 \0 \0 \0 \0 \0 \0 \0 \0 \0 \0 \0 \0 ( 0006360 \0 \0 \0 \0 001 310 \0 021 \0 \0 \0 004 002 003 \0 \0 0006400 \0 \0 \0 \0 \0 \0 \0 \0 \0 \0 \0 \0 \0 \0 \0 \0 0006420 \0 \0 \0 \0 \0 \0 \0 ( \0 212 \0 212 001 8 \0 006 0006440 \0 \0 \0 004 002 003 \0 \0 \0 \0 \0 \0 \0 \0 \0 \0 0006460 \0 \0 \0 \0 \0 \0 \0 \0 \0 \0 \0 \0 \0 \0 \0 ( 0006500 \0 212 \0 212 001 8 \0 \0 \0 \0 \0 004 002 004 \0 \0 0006520 \0 \0 \0 \0 \0 \0 \0 \0 \0 \0 \0 \0 \0 \0 \0 \0 0006540 \0 \0 \0 \0 \0 \0 \0 D \0 \0 \0 \0 001 310 \0 \0 0006560 \0 \0 \0 \0 003 004 \0 \0 001 001 310 001 \0 \0 \0 \0 0006600 \0 \0 \0 \v P A G E H E A D I N G \0 0006620 \v R U N N I N G H E A D \0 \0 \0 \0 0006640 \0 \0 \0 \0 \0 \0 \0 \0 \0 \0 \0 \0 \0 \0 \0 004 0006660 \0 \a \0 024 \0 006 M O D E R N \0 \n \0 \0 0006700 \0 \0 \0 \0 002 \0 \0 024 \0 006 M O D E R N 0006720 \0 \n \0 \0 \0 \0 \0 \0 001 \0 \0 024 \0 006 M O 0006740 D E R N \0 \n \0 \0 \0 \0 \0 \0 \0 \0 \0 024 0006760 \0 006 M O D E R N \0 \f \0 \0 \0 \0 \0 \0 0007000 002 \0 \0 024 \0 006 M O D E R N \0 \n \0 \0 0007020 \0 \0 \0 \0 \0 \0 \0 024 \0 006 M O D E R N 0007040 \0 006 \0 \0 \0 \0 \0 \0 \0 \0 \0 022 \0 004 L O 0007060 G O \0 030 \0 \0 \0 \0 \0 \0 \0 \0 \0 \0 \0 \0 0007100 \0 002 \0 005 \0 \0 \0 005 \0 \0 \0 \0 \a \0 \0 \0 0007120 001 \0 \0 \0 \0 006 \0 \0 \0 \b \0 \0 \0 \0 005 \0 0007140 \0 \0 \0 \0 002 \0 005 \0 \0 \0 002 \0 001 \0 \v H 0007160 R U L E . G E T F N 001 \0 024 \0 006 M 0007200 O D E R N \0 \n \0 \0 \0 \0 \0 \0 \0 \0 \0 0007220 \0 \0 001 \0 \0 \0 \0 005 \0 \0 \0 \0 \0 002 \0 004 0007240 \0 \0 \0 002 \0 001 \0 \v H R U L E . G E 0007260 T F N 001 \0 024 \0 006 M O D E R N \0 \n 0007300 \0 \0 \0 \0 \0 \0 \0 \0 \0 \0 \0 001 \0 \0 \0 \0 0007320 005 \0 \0 \0 \0 \0 002 \0 004 \0 \0 \0 002 \0 001 \0 0007340 \v H R U L E . G E T F N 001 \0 024 \0 0007360 006 M O D E R N \0 \n \0 \0 \0 \0 \0 \0 \0 0007400 \0 \0 \0 \0 001 \0 \0 \0 \0 005 \0 \0 \0 \0 \0 002 0007420 \0 003 \0 \0 \0 \b \0 \0 \0 \0 004 \0 \0 \0 \0 \0 0007440 002 \0 003 \0 \0 \0 002 \0 001 \0 \v H R U L E 0007460 . G E T F N 001 \0 024 \0 006 M O D E R 0007500 N \0 \f \0 \0 \0 \0 \0 \0 002 \0 \0 \0 \0 001 \0 0007520 \0 \0 \0 004 \0 \0 \0 \0 \0 002 \0 004 \0 \0 \0 002 0007540 \0 001 \0 \v H R U L E . G E T F N 001 0007560 \0 024 \0 006 M O D E R N \0 \f \0 \0 \0 \0 0007600 \0 \0 002 \0 \0 \0 \0 001 \0 \0 \0 \0 004 \0 \0 \0 0007620 \0 \0 002 \0 002 \0 \0 \0 A \0 \0 \0 \0 005 \0 \0 0007640 \0 \0 \0 002 \0 001 \0 \0 \0 001 \0 \0 \0 \0 003 \0 0007660 \0 \0 \0 \0 002 \0 001 \0 \0 \0 324 \0 \0 \0 \0 003 0007700 \0 \0 \0 \0 \0 002 \0 001 \0 \0 \0 016 \0 \0 \0 \0 0007720 003 \0 \0 \0 035 \0 \0 \0 \0 002 \0 \0 \0 022 \0 \0 0007740 \0 \0 003 \0 \0 \0 \0 \0 002 \0 001 \0 \0 001 o \0 0007760 \0 \0 \0 003 \0 \0 \0 \0 \0 002 \0 001 \0 \0 \0 \r 0010000 \0 \0 \0 \0 003 \0 \0 \0 - \0 \0 \0 \0 002 \0 \0 0010020 \0 017 \0 \0 \0 \0 003 \0 \0 \0 \0 \0 002 \0 001 \0 0010040 \0 \0 L \0 \0 \0 \0 003 \0 \0 \0 \0 \0 002 \0 001 0010060 \0 \0 \0 016 \0 \0 \0 \0 003 \0 \0 \0 031 \0 \0 \0 0010100 \0 002 \0 \0 \0 023 \0 \0 \0 \0 003 \0 \0 \0 \0 \0 0010120 002 \0 001 \0 \0 \0 226 \0 \0 \0 \0 003 \0 \0 \0 \0 0010140 \0 002 \0 001 \0 \0 \0 231 \0 \0 \0 \0 003 \0 \0 \0 0010160 \0 \0 002 \0 001 \0 \0 \0 \v \0 \0 \0 \0 003 \0 \0 0010200 \0 " \0 \0 \0 \0 002 \0 \0 \0 020 \0 \0 \0 \0 003 0010220 \0 \0 \0 \0 \0 002 \0 001 \0 \0 \0 362 \0 \0 \0 \0 0010240 003 \0 \0 \0 \0 \0 002 \0 001 \0 \0 \0 ) \0 \0 \0 0010260 \0 003 \0 \0 \0 2 \0 \0 \0 \0 001 \0 \0 \0 \0 \0 0010300 002 \0 001 \0 \0 \0 K \0 \0 \0 \0 003 \0 \0 \0 \0 0010320 \0 002 \0 001 \0 \0 \0 \v \0 \0 \0 \0 003 \0 \0 \0 0010340 033 \0 \0 \0 \0 002 \0 \0 \0 023 \0 \0 \0 \0 003 \0 0010360 \0 \0 \0 \0 002 \0 001 \0 \0 \0 : \0 \0 \0 \0 003 0010400 \0 \0 \a - \0 A z 272 0010410