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