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