$ od -c -N 50000 [eris]<LispUsers>animate.tty!2 0000000 S u b j e c t : A n i m a t e 0000020 P a c k a g e \r T o : L i s 0000040 p U s e r s ^ . P A \r \r \r A N I 0000060 M A T E \r \r W r i t t e n B y 0000100 : D a n B o b r o w w i t 0000120 h h e l p f r o m M a r k 0000140 S t e f i k \r D o c u m e n t 0000160 U p d a t e d : 6 S e p t 0000200 e m b e r 1 9 8 3 \r \r \r T h i 0000220 s s m a l l p a c k a g e 0000240 c o n t a i n s f u n c t i o 0000260 n s f o r m o v i n g a 0000300 n o n - r e c t a n g u l a r 0000320 b i t m a p s m o o t h l y 0000340 a r o u n d t h e s c r e e 0000360 n , w a y s o f u s i n g 0000400 t h e s e t o g e t b i 0000420 g c u r s o r s , a n d b 0000440 i t m a p s f o r a l a r 0000460 g e a r r o w a n d a h 0000500 a n d t o b e u s e d a 0000520 s l a r g e c u r s o r s . 0000540 \r \r ( A n i m a t e S e t U p 0000560 p i c t u r e s h a d o w x 0000600 y s a v e B i t M a p ) \r 0000620 \r \t U s e s p i c t u r e ( 0000640 a n a r b i t r a r y r e c 0000660 t a n g u l a r b i t m a p 0000700 ) \r \t s h a d o w 0000720 ( a b i t m a p w h i c h 0000740 i s b l a c k i n s i d e 0000760 o u t l i n e o f p i c t 0001000 u r e ) \r A n i m a t e S e t U 0001020 p p l a c e s p i c t u r e 0001040 o n s c r e e n a t < x 0001060 , y > \r \t l e a v i n g t h e 0001100 b a c k g r o u n d a r o u 0001120 n d s h a d o w . \r \t I t r 0001140 e t u r n s s a v e B i t M a 0001160 p , w h i c h i s c r e a 0001200 t e d t h e s a m e s i z 0001220 e a s p i c t u r e \r \t i f 0001240 n o t g i v e n . A n i 0001260 m a t e M o v e u s e s s a 0001300 v e B i t M a p \r \t t o c o 0001320 m p u t e t h e n e w s c 0001340 r e e n i m a g e w h e n 0001360 t h e p i c t u r e i s m 0001400 o v e d . \r \r ( A n i m a t e M 0001420 o v e p i c t u r e s h a d 0001440 o w s a v e B i t M a p o l 0001460 d x o l d y n e w x n e w 0001500 y ) \r \t M o v e s a p i c t 0001520 u r e s e t u p w i t h 0001540 A n i m a t e S e t U p \r \t f 0001560 r o m < o l d x , o l d y > 0001600 t o < n e w x , n e w y > 0001620 \r \r \r ( F o l l o w C u r s o r 0001640 p i c t u r e s h a d o w 0001660 s a v e B i t M a p ) \r \t W 0001700 a i t s f o r a m o u s e 0001720 b u t t o n t o b e d o 0001740 w n , \r \t b l a n k s o u t 0001760 t h e u s u a l c u r s o r 0002000 , \r \t a n d c a u s e s p 0002020 i c t u r e t o t r a c k 0002040 t h e m o u s e m o v e m e 0002060 n t \r \t u n t i l a l l t h 0002100 e m o u s e b u t t o n s 0002120 a r e u p . \r \r B I G C W i 0002140 s a f u n c t i o n f o r 0002160 m a k i n g a l a r g e 0002200 i c o n \r w h i c h s t a y s 0002220 o n t h e s c r e e n a 0002240 s a w i n d o w u n t i l 0002260 i t \r i s s e l e c t e d 0002300 w i t h t h e m o u s e w 0002320 h e n i t w i l l f o l l 0002340 o w t h e c u r s o r . 0002360 \r \r \r ( B I G C W P O S I 0002400 C O N B I T M A P S H A D O W 0002420 B I T M A P S A V E B I T M A 0002440 P ) \r \t C r e a t e s a w i 0002460 n d o w w h i c h c o n t a 0002500 i n s I C O N B I T M A P . \r 0002520 \t W h e n t h e w i n d o w 0002540 i s s e l e c t e d ( c l 0002560 i c k e d w i t h a m o u 0002600 s e b u t t o n ) \r \t B I G C 0002620 W c l o s e s t h e w i n 0002640 d o w , a n d c a u s e s 0002660 t h e I C O N B I T M A P t 0002700 o \r \t F o l l o w t h e m 0002720 o u s e m o v e m e n t . W 0002740 h e n t h e b u t t o n i 0002760 s l i f t e d , \r \t t h e o 0003000 r i g i n a l w i n d o w r 0003020 e a p p e a r s . \r \r T w o s 0003040 e t s o f b i t m a p s 0003060 c o m e w i t h t h e f i 0003100 l e \r \t H a n d , a n d H a 0003120 n d S h a d o w \r \t B i g A r r 0003140 o w I c o n B i g A r r o w S 0003160 h a d o w \r \r ( B I G C W ) d 0003200 e f a u l t s t o u s i n g 0003220 t h e H a n d , \r \t a l l o 0003240 w i n g t h e u s e r t o 0003260 p l a c e t h e w i n d o 0003300 w . \r \r ( B I G C W N I L B 0003320 i g A r r o w I c o n B i g A 0003340 r r o w S h a d o w ) \r 0003360 w i l l c r e a t e a l a 0003400 r g e a r r o w w h i c h 0003420 c a n b e u s e d f o r 0003440 p o i n t i n g \r \r \0 \0 \a * \0 \0 0003460 \0 005 G A C H A \0 \n \0 \0 \0 \0 \0 \0 \0 0003500 \0 \0 \0 \a * \0 001 z 270 0003511