$ od -c -N 50000 [eris]<LispUsers>BIZGRAFIX.TEDIT!1 0000000 B I Z G R A F I X \r A n I n t 0000020 e r l i s p - D p a c k a g e 0000040 f o r c r e a t i n g c h 0000060 a r t s a n d g r a p h s \r 0000100 \r w r i t t e n b y : H e r 0000120 b J e l l i n e k \r l o c a t 0000140 e d o n : < L i s p U s e r 0000160 s > B I Z G R A F I X . D C O M 0000200 \r \r \r B I Z G R A F I X i s 0000220 a p a c k a g e t h a t c 0000240 o n t a i n s f u n c t i o n 0000260 s f o r c r e a t i n g p 0000300 i e c h a r t s , b a r c 0000320 h a r t s , l i n e a n d 0000340 s c a t t e r g r a p h s . \r 0000360 \r T h e r e a r e t h r e e 0000400 " t o p - l e v e l " f u n 0000420 c t i o n s i n B I Z G R A 0000440 F I X : \r \r ( P I E p e r c e 0000460 n t a g e s c h a r t W i n d 0000500 o w f i l l e d ? ) \r \t D r a 0000520 w s a p i e c h a r t o 0000540 n c h a r t W i n d o w . 0000560 p e r c e n t a g e s i s a 0000600 l i s t o f d o t t e d 0000620 p a i r s , e a c h o f t 0000640 h e f o r m ( l a b e l . 0000660 p e r c e n t ) . T h e f 0000700 i l l e d ? f l a g d e t e 0000720 r m i n e s w h e t h e r t 0000740 h e s l i c e s o f t h e 0000760 p i e s h o u l d b e f 0001000 i l l e d w i t h t e x t u 0001020 r e . F i l l i n g i s 0001040 c u r r e n t l y a v e r y 0001060 s l o w o p e r a t i o n . 0001100 \r \r ( B A R p o i n t s w i 0001120 n d o w l a b e l ) \r \t D r a 0001140 w s a b a r c h a r t o 0001160 n w i n d o w . p o i n t 0001200 s i s a l i s t o f d 0001220 o t t e d p a i r s o f t 0001240 h e f o r m ( x c o o r d 0001260 . y m a g n i t u d e ) . 0001300 T h e x c o o r d i s i g 0001320 n o r e d , a s w e a s s 0001340 u m e t h a t e a c h b a 0001360 r i s o f t h e s a m e 0001400 w i d t h , a n d t h a t 0001420 p o i n t s a r e s o r t 0001440 e d i n x - a s c e n d i n 0001460 g o r d e r . l a b e l 0001500 i s a n a t o m o r s t 0001520 r i n g , a n d i s u s e 0001540 d t o l a b e l t h e c 0001560 h a r t . \r \r ( L I N E G R A P 0001600 H p o i n t s g r a p h W i 0001620 n d o w w a n t L i n e s h 0001640 U n i t s v U n i t s ) \r \t D 0001660 r a w s a l i n e - o r 0001700 s c a t t e r - g r a p h o n 0001720 g r a p h W i n d o w . p 0001740 o i n t s i s a s a b o v 0001760 e , a l i s t o f d o t 0002000 t e d p a i r s ( P O S I T 0002020 I O N s ) ( x . y ) . 0002040 w a n t L i n e s c o n t r o 0002060 l s w h e t h e r l i n e s 0002100 w i l l b e d r a w n b 0002120 e t w e e n s u c c e s s i v 0002140 e p o i n t s o n t h e 0002160 g r a p h : i f w a n t L i 0002200 n e s i s T y o u g e t 0002220 a l i n e g r a p h ; i 0002240 f N I L y o u g e t a 0002260 s c a t t e r g r a m . h U 0002300 n i t s i s t h e l a b e 0002320 l f o r t h e X - a x i s 0002340 , a n d v U n i t s t h e 0002360 Y - a x i s l a b e l . \r \r 0002400 A l l t h r e e r o u t i n 0002420 e s g i v e t h e i r a r 0002440 g u m e n t w i n d o w s t 0002460 h e p r o p e r t y o f b 0002500 e i n g a b l e t o b e 0002520 r e s h a p e d a n d r e d 0002540 r a w n . R e s h a p i n g 0002560 a w i n d o w t h a t h 0002600 a s b e e n d r a w n o n 0002620 b y o n e o f t h e a 0002640 b o v e f u n c t i o n s c 0002660 a u s e s t h e i n f o r m 0002700 a t i o n i t c o n t a i n 0002720 s t o b e r e d r a w n 0002740 a n d r e s c a l e d t o 0002760 f i t t h e n e w s h a p 0003000 e o f t h e w i n d o w . 0003020 \r \r B I Z G R A F I X d e p e 0003040 n d s u p o n t h e T W O 0003060 D L i s p U s e r s p a c k 0003100 a g e . \0 \0 \0 \n \0 \0 \0 \n T I M E 0003120 S R O M A N \0 \f \0 \0 \0 \0 \0 \0 002 \0 0003140 \0 \0 \0 7 \0 \0 \0 \n T I M E S R O M 0003160 A N \0 \f \0 \0 \0 \0 \0 \0 \0 \0 \0 \0 \0 A 0003200 \0 \0 \0 \n T I M E S R O M A N \0 \b 0003220 \0 \0 \0 \0 \0 \0 \0 \0 \0 \0 \0 251 \0 \0 \0 \n 0003240 T I M E S R O M A N \0 \f \0 \0 \0 \0 0003260 \0 \0 \0 \0 \0 \0 \0 037 \0 \0 \0 \n T I M E 0003300 S R O M A N \0 \f \0 \0 \0 \0 \0 \0 001 \0 0003320 \0 \0 \0 & \0 \0 \0 \n T I M E S R O M 0003340 A N \0 \f \0 \0 \0 \0 \0 \0 \0 \0 \0 \0 \0 \v 0003360 \0 \0 \0 \n T I M E S R O M A N \0 \f 0003400 \0 \0 \0 \0 \0 \0 001 \0 \0 \0 \0 - \0 \0 \0 \n 0003420 T I M E S R O M A N \0 \f \0 \0 \0 \0 0003440 \0 \0 \0 \0 \0 \0 \0 021 \0 \0 \0 \n T I M E 0003460 S R O M A N \0 \f \0 \0 \0 \0 \0 \0 002 \0 0003500 \0 \0 \0 006 \0 \0 \0 \n T I M E S R O M 0003520 A N \0 \f \0 \0 \0 \0 \0 \0 \0 \0 \0 \0 \0 \a 0003540 \0 \0 \0 \n T I M E S R O M A N \0 \f 0003560 \0 \0 \0 \0 \0 \0 001 \0 \0 \0 \0 O \0 \0 \0 \n 0003600 T I M E S R O M A N \0 \f \0 \0 \0 \0 0003620 \0 \0 \0 \0 \0 \0 \0 + \0 \0 \0 \n T I M E 0003640 S R O M A N \0 \b \0 \0 \0 \0 \0 \0 \0 \0 0003660 \0 \0 \0 \a \0 \0 \0 \n T I M E S R O M 0003700 A N \0 \f \0 \0 \0 \0 \0 \0 \0 \0 \0 \0 \0 023 0003720 \0 \0 \0 \n T I M E S R O M A N \0 \f 0003740 \0 \0 \0 \0 \0 \0 001 \0 \0 \0 \0 030 \0 \0 \0 \n 0003760 T I M E S R O M A N \0 \f \0 \0 \0 \0 0004000 \0 \0 \0 \0 \0 \0 \0 006 \0 \0 \0 \n T I M E 0004020 S R O M A N \0 \f \0 \0 \0 \0 \0 \0 001 \0 0004040 \0 \0 \0 003 \0 \0 \0 \n T I M E S R O M 0004060 A N \0 \f \0 \0 \0 \0 \0 \0 \0 \0 \0 \0 \0 006 0004100 \0 \0 \0 \n T I M E S R O M A N \0 \f 0004120 \0 \0 \0 \0 \0 \0 001 \0 \0 \0 \0 ' \0 \0 \0 \n 0004140 T I M E S R O M A N \0 \f \0 \0 \0 \0 0004160 \0 \0 \0 \0 \0 \0 \0 025 \0 \0 \0 \n T I M E 0004200 S R O M A N \0 \f \0 \0 \0 \0 \0 \0 002 \0 0004220 \0 \0 \0 003 \0 \0 \0 \n T I M E S R O M 0004240 A N \0 \f \0 \0 \0 \0 \0 \0 \0 \0 \0 \0 \0 004 0004260 \0 \0 \0 \n T I M E S R O M A N \0 \b 0004300 \0 \0 \0 \0 \0 \0 \0 \0 \0 \0 \0 006 \0 \0 \0 \n 0004320 T I M E S R O M A N \0 \b \0 \0 \0 \0 0004340 \0 \0 002 \0 \0 \0 \0 p \0 \0 \0 \n T I M E 0004360 S R O M A N \0 \b \0 \0 \0 \0 \0 \0 \0 \0 0004400 \0 \0 \0 006 \0 \0 \0 \n T I M E S R O M 0004420 A N \0 \f \0 \0 \0 \0 \0 \0 001 \0 \0 \0 \0 B 0004440 \0 \0 \0 \n T I M E S R O M A N \0 \f 0004460 \0 \0 \0 \0 \0 \0 \0 \0 \0 \0 \0 * \0 \0 \0 \n 0004500 T I M E S R O M A N \0 \f \0 \0 \0 \0 0004520 \0 \0 001 \0 \0 \0 \0 % \0 \0 \0 \n T I M E 0004540 S R O M A N \0 \f \0 \0 \0 \0 \0 \0 \0 \0 0004560 \0 \0 \0 \v \0 \0 \0 \n T I M E S R O M 0004600 A N \0 \f \0 \0 \0 \0 \0 \0 001 \0 \0 \0 \0 003 0004620 \0 \0 \0 \n T I M E S R O M A N \0 \f 0004640 \0 \0 \0 \0 \0 \0 \0 \0 \0 \0 \0 006 \0 \0 \0 \n 0004660 T I M E S R O M A N \0 \f \0 \0 \0 \0 0004700 \0 \0 001 \0 \0 \0 \0 1 \0 \0 \0 \n T I M E 0004720 S R O M A N \0 \f \0 \0 \0 \0 \0 \0 \0 \0 0004740 \0 \0 \0 \a \0 \0 \0 \n T I M E S R O M 0004760 A N \0 \f \0 \0 \0 \0 \0 \0 002 \0 \0 \0 \0 003 0005000 \0 \0 \0 \n T I M E S R O M A N \0 \f 0005020 \0 \0 \0 \0 \0 \0 \0 \0 \0 \0 \0 \t \0 \0 \0 \n 0005040 T I M E S R O M A N \0 \f \0 \0 \0 \0 0005060 \0 \0 001 \0 \0 \0 \0 Q \0 \0 \0 \n T I M E 0005100 S R O M A N \0 \f \0 \0 \0 \0 \0 \0 \0 \0 0005120 \0 \0 \0 \t \0 \0 \0 \n T I M E S R O M 0005140 A N \0 \f \0 \0 \0 \0 \0 \0 001 \0 \0 \0 \0 004 0005160 \0 \0 \0 \n T I M E S R O M A N \0 \f 0005200 \0 \0 \0 \0 \0 \0 \0 \0 \0 \0 \0 001 \0 \0 \0 \n 0005220 T I M E S R O M A N \0 \f \0 \0 \0 \0 0005240 \0 \0 002 \0 \0 \0 \0 032 \0 \0 \0 \n T I M E 0005260 S R O M A N \0 \f \0 \0 \0 \0 \0 \0 \0 \0 0005300 \0 \0 \0 003 \0 \0 \0 \n T I M E S R O M 0005320 A N \0 \f \0 \0 \0 \0 \0 \0 002 \0 \0 \0 \0 031 0005340 \0 \0 \0 \n T I M E S R O M A N \0 \f 0005360 \0 \0 \0 \0 \0 \0 \0 \0 \0 \0 \0 006 \0 \0 \0 \n 0005400 T I M E S R O M A N \0 \f \0 \0 \0 \0 0005420 \0 \0 001 \0 \0 \0 \0 " \0 \0 \0 \n T I M E 0005440 S R O M A N \0 \f \0 \0 \0 \0 \0 \0 \0 \0 0005460 \0 \0 \0 006 \0 \0 \0 \n T I M E S R O M 0005500 A N \0 \f \0 \0 \0 \0 \0 \0 001 \0 \0 \0 001 & 0005520 \0 \0 \0 \n T I M E S R O M A N \0 \f 0005540 \0 \0 \0 \0 \0 \0 \0 \0 \0 \0 \0 \t \0 \0 \0 \n 0005560 T I M E S R O M A N \0 \f \0 \0 \0 \0 0005600 \0 \0 002 \0 \0 \0 \0 022 \0 \0 \0 \n T I M E 0005620 S R O M A N \0 \f \0 \0 \0 \0 \0 \0 \0 \0 0005640 \0 \0 \0 004 \0 \0 \0 \n T I M E S R O M 0005660 A N \0 \f \0 \0 \0 \0 \0 \0 002 \0 \0 \0 \0 023 0005700 \0 \0 \0 \n T I M E S R O M A N \0 \f 0005720 \0 \0 \0 \0 \0 \0 \0 \0 \0 \0 006 D \0 3 z 267 0005740