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