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