$ od -c -N 50000 [phylum]<LISP>Lyric>LIBRARY>SKETCHOBJ!1
0000000 ( D E F I N E - F I L E - I N F
0000020 O 247 R E A D T A B L E " I N
0000040 T E R L I S P " 247 P A C K A G
0000060 E " I N T E R L I S P " ) \r 006
0000100 001 ( F I L E C R E A T E D "
0000120 6 - A p r - 8 7 1 7 : 4 3 : 4
0000140 8 " 006 004 { E R I S } < L I S P
0000160 C O R E > L I B R A R Y > S K E
0000200 T C H O B J . ; 6 006 001 5 2 5 8
0000220 0 \r \r c h a n g
0000240 e s t o % : ( V A R S S
0000260 K E T C H O B J C O M S ) \r \r
0000300 p r e v i o u s d a
0000320 t e % : " 2 7 - F e b - 8 7
0000340 1 8 : 2 1 : 1 3 " { E R I S }
0000360 < L I S P C O R E > L I B R A R
0000400 Y > S K E T C H O B J . ; 5 ) \r
0000420 \r \r ( * " \r C o p y r i g h t
0000440 ( c ) 1 9 8 4 , 1 9 8 5 ,
0000460 1 9 8 6 , 1 9 8 7 b y X
0000500 e r o x C o r p o r a t i o n
0000520 . A l l r i g h t s r e
0000540 s e r v e d . \r " ) \r \r ( P R E
0000560 T T Y C O M P R I N T S K E T
0000600 C H O B J C O M S ) \r \r ( R P A
0000620 Q Q 006 002 S K E T C H O B J C O
0000640 M S 006 001 \r [ [ C
0000660 O M S ( * t h e s t u f f
0000700 t o s u p p o r t s k e t
0000720 c h i m a g e s i n d o c
0000740 u m e n t s . ) \r
0000760 ( F N S M A K E
0001000 . I M A G E . O B J E C T . O F
0001020 . S K E T C H S K . E L E M E
0001040 N T . F R O M . I M A G E O B J
0001060 S K E T C H I M A G E O B J .
0001100 F R O M . V I E W E R \r
0001120
0001140 S K E T C H . I M A G E O B J
0001160 S K E T C H . D I S P L A Y F N
0001200 S K E T C H . B I T M A P . I
0001220 M A G E S K I O . I M A G E B
0001240 O X F N S K I O . G E T F N .
0001260 2 \r
0001300 S K I O . U P D A T
0001320 E . F R O M . O L D . F O R M
0001340 S K I O . G E T F N S K I O .
0001360 P U T F N S K I O . C O P Y F
0001400 N S K I O . B U T T O N E V E
0001420 N T I N F N \r
0001440 T R A N S
0001460 L A T E . R E G I O N U P D A
0001500 T E . I M A G E . I N . D O C U
0001520 M E N T S K . C O P Y . I M A
0001540 G E O B J \ C R E A T E . S K
0001560 E T C H . I M A G E F N S \r
0001600
0001620 \ S K I O . I N . T O O . S
0001640 M A L L . T E D I T P ) \r
0001660 ( D E C L
0001700 A R E % : D O N T C O P Y D
0001720 O E V A L @ C O M P I L E ( R
0001740 E C O R D S S K E T C H I M A
0001760 G E O B J S K E T C H D O C U
0002000 M E N T I N F O ) ) \r
0002020 ( P ( \ C R
0002040 E A T E . S K E T C H . I M A G
0002060 E F N S ) ) \r
0002100 ( A D D V A R S ( I
0002120 M A G E O B J G E T F N S ( S
0002140 K I O . G E T F N ] \r
0002160 ( C O M S ( * s t u f
0002200 f t o s u p p o r t i m a
0002220 g e o b j e c t s a s e l
0002240 e m e n t s i n a s k e t
0002260 c h ) \r
0002300 ( F N S S K E T C H . I M
0002320 A G E . O B J E C T . E L E M E
0002340 N T S K E T C H . I M A G E O
0002360 B J . O F . E L E M E N T S K
0002400 E T C H . S C A L E . O F . E L
0002420 E M E N T \r
0002440 S K E T C H
0002460 . P O S I T I O N . O F . E L E
0002500 M E N T C R E A T E . S K I M
0002520 A G E O B J . T Y P E I M A G
0002540 E B O X S I Z E \r
0002560 S K .
0002600 U P D A T E . I M A G E O B J E
0002620 C T . A F T E R . C H A N G E
0002640 S K E T C H . C R E A T E . I M
0002660 A G E . O B J E C T \r
0002700 S
0002720 K E T C H . C R E A T E . I M A
0002740 G E . O B J E C T 1 ) \r
0002760 ( F N S S
0003000 K . I M A G E O B J . D R A W F
0003020 N S K . I M A G E O B J . R E
0003040 G I O N F N S K . I M A G E O
0003060 B J . G L O B A L R E G I O N F
0003100 N \r
0003120 S K . I M A G E O B
0003140 J . T R A N S L A T E F N S K
0003160 . I M A G E O B J . E X P A N D
0003200 F N S K . I M A G E O B J . I
0003220 N S I D E F N \r
0003240 S K . I
0003260 M A G E O B J . M O V E F N S
0003300 K . I M A G E O B J . C H A N G
0003320 E F N S K . I M A G E O B J .
0003340 R E A D C H A N G E F N \r
0003360
0003400 S K . I M A G E O B J . T R A
0003420 N S F O R M F N ) \r
0003440 ( R E C O R D S
0003460 L O C A L S K I M A G E O B J
0003500 S K I M A G E O B J A N N O
0003520 ) \r
0003540 ( P ( C R E A T E . S K I M A
0003560 G E O B J . T Y P E ] ) \r \r \r \r
0003600 006 004 ( * t h e s t u f f t
0003620 o s u p p o r t s k e t c h
0003640 i m a g e s i n d o c u m
0003660 e n t s . ) 006 001 \r \r ( D E F I N
0003700 E Q \r \r ( 006 004 M A K E . I M A G
0003720 E . O B J E C T . O F . S K E T
0003740 C H 006 001 \r [ L A M B D A (
0003760 S K E T C H R E G I O N S C
0004000 A L E G R I D S I Z E ) 006 006 006
0004020 001
0004040 006 006 ( * r r b "
0004060 1 1 - J u l - 8 6 1 5 : 5 1 "
0004100 ) 006 001 \r \r
0004120 006 006 ( * R e
0004140 t u r n s a s k e t c h i
0004160 m a g e o b j e c t . R E G
0004200 I O N i s t h e r e g i o
0004220 n i n s k e t c h c o o r
0004240 d i n a t e s \r 006 001
0004260 006 006 t h a t t h e
0004300 i m a g e o b j e c t w i l
0004320 l s h o w . S C A L E i s
0004340 t h e s c a l e a t w h
0004360 i c h i t w i l l b e s
0004400 h o w n . \r 006 001
0004420 006 006 G R I D S I Z E i s
0004440 t h e g r i d s i z e o f
0004460 t h e s k e t c h . \r 006 001
0004500 006 006 I f S K
0004520 E T C H i s a v i e w e r
0004540 , a n y o f t h e o t h
0004560 e r a r g u m e n t s t h a
0004600 t a r e N I L w i l l b
0004620 e f i l l e d \r 006 001
0004640 006 006 i n f r o m
0004660 t h e v a l u e s i n t h
0004700 e v i e w e r . I f S K E
0004720 T C H i s a s k e t c h ,
0004740 R E G I O N d e f a u l t s
0004760 t o t h e \r 006 001
0005000 006 006 e x t e n t o f
0005020 t h e s k e t c h , S C A
0005040 L E d e f a u l t s t o 1
0005060 . 0 a n d G R I D S I Z E
0005100 d e f a u l t s t o | 8 . 0
0005120 . | ) 006 001 \r \r ( 006 002 S K
0005140 E T C H . I M A G E O B J 006 001
0005160 ( I N S U R E . S K E T C H S
0005200 K E T C H ) \r
0005220 ( C O N D \r
0005240 ( ( R E G I O N P
0005260 R E G I O N ) ) \r
0005300 ( R E G I O N (
0005320 E R R O R R E G I O N " i
0005340 l l e g a l a r g u m e n t .
0005360 " ) ) \r
0005400 ( T ( S K E T C H . R E G
0005420 I O N . O F . S K E T C H S K
0005440 E T C H ) ) ) \r
0005460 ( C O N D \r
0005500 ( ( N U M B E R P
0005520 S C A L E ) ) \r
0005540 ( ( W I N D O W P
0005560 S K E T C H ) \r
0005600 ( V I E W E R .
0005620 S C A L E S K E T C H ) ) \r
0005640 ( T
0005660 1 . 0 ) ) \r
0005700 ( C O N D \r
0005720 ( ( N U M B E R P G
0005740 R I D S I Z E ) ) \r
0005760 ( ( W I N D O W
0006000 P S K E T C H ) \r
0006020 ( S K . G R I
0006040 D F A C T O R S K E T C H ) )
0006060 \r (
0006100 T 8 . 0 ] ) \r \r ( 006 004 S K . E
0006120 L E M E N T . F R O M . I M A G
0006140 E O B J 006 001 \r [ L A M B D A
0006160 ( I M A G E O B J S K E T C
0006200 H W O R G P O S ) 006 006 006 001
0006220
0006240 006 006 ( * r r b
0006260 " 1 1 - J u l - 8 6 1 5 : 4
0006300 8 " ) 006 001 \r
0006320 \r 006 006 ( *
0006340 * r e t u r n s a s k e t
0006360 c h e l e m e n t f o r a
0006400 n i m a g e o b j e c t . )
0006420 006 001 \r \r ( 006 002 S K E T C
0006440 H . I M A G E . O B J E C T . E
0006460 L E M E N T 006 001 I M A G E O B
0006500 J ( V I E W E R . S C A L E
0006520 S K E T C H W ) \r
0006540 O R G P O S S K E T C
0006560 H W ] ) \r \r ( 006 004 S K E T C H I
0006600 M A G E O B J . F R O M . V I E
0006620 W E R 006 001 \r [ L A M B D A
0006640 ( S K E T C H W ) 006 006 006 001
0006660
*
0006720 006 006 ( * r r b
0006740 " 1 1 - J u l - 8 6 1 5 : 5 1
0006760 " ) 006 001 \r \r
0007000 006 006 ( * *
0007020 r e t u r n s a S K E T C
0007040 H i m a g e o b j e c t w
0007060 h i c h d e s c r i b e s t
0007100 h e c o n t e n t s o f a
0007120 w i n d o w . ) 006 001 \r \r
0007140 ( 006 002 S K E T C H . I M A G E
0007160 O B J 006 001 ( I N S U R E . S K
0007200 E T C H ( S K E T C H . F R O
0007220 M . V I E W E R S K E T C H W
0007240 ) ) \r ( S
0007260 K E T C H . R E G I O N . V I E
0007300 W E D S K E T C H W ) \r
0007320 ( V I E W E R .
0007340 S C A L E S K E T C H W ) \r
0007360 ( S K . G R
0007400 I D F A C T O R S K E T C H W
0007420 ] ) \r \r ( 006 004 S K E T C H . I M
0007440 A G E O B J 006 001 \r [ L A M B
0007460 D A ( S K E T C H R E G I O
0007500 N S C A L E G R I D ) 006 006 006
0007520 001
0007540 006 006 ( * r
0007560 r b " 2 9 - J a n - 8 6 1 1
0007600 : 5 4 " ) 006 001 \r ( 006 002 D
0007620 E C L A R E 006 001 ( G L O B A L
0007640 V A R S S K E T C H I M A G E
0007660 F N S ) ) \r
0007700 \r 006 006 ( *
0007720 * r e t u r n s a n i m a
0007740 g e o b j w h i c h g i v
0007760 e s t h e f u n c t i o n a
0010000 l i n f o r m a t i o n f o
0010020 r a s k e t c h \r 006 001
0010040 006 006 o b j e c t
0010060 i n a t e d i t f i l e
0010100 . ) 006 001 \r \r ( I M A G E
0010120 O B J C R E A T E ( 006 002 c r e
0010140 a t e 006 001 S K E T C H I M A G
0010160 E O B J \r
0010200
0010220 S K I O . S K E T C H _ S K
0010240 E T C H \r
0010260
0010300 S K I O . R E G I O N _ ( C
0010320 O N D \r
0010340
*
0010400 ( ( R E G I O N P R E G I O N
0010420 ) ) \r
0010440
0010460 (
0010500 T ( S K E T C H . R E G I O N
0010520 . O F . S K E T C H S K E T C
0010540 H ) ) ) \r
0010560
0010600 S K I O . S C A L E _ ( O R
0010620 ( N U M B E R P S C A L E )
0010640 \r
0010660
0010700 1 . 0
0010720 ) \r
0010740 S K I
0010760 O . G R I D _ ( O R ( N U
0011000 M B E R P G R I D ) \r
0011020
*
0011060 8 . 0 ) ) \r
0011100 S K E T C H I M
0011120 A G E F N S ] ) \r \r ( 006 004 S K E
0011140 T C H . D I S P L A Y F N 006 001 \r
0011160 [ L A M B D A ( S K E T C
0011200 H I M A G E O B J S T R E A M
0011220 ) 006 006 006 001
0011240
0011260 006 006 ( * ; " E d i t e d
0011300 2 7 - F e b - 8 7 1 8 : 1 5
0011320 b y r r b " ) 006 001 \r
0011340 \r
0011360 006 006 ( * * d i s p l a y f
0011400 u n c t i o n f o r a s k
0011420 e t c h i m a g e o b j e c
0011440 t ) 006 001 \r \r ( P R O G
0011460 ( ( S K I O ( I M A G E O B J
0011500 P R O P S K E T C H I M A G E
0011520 O B J ' O B J E C T D A T U M
0011540 ) ) \r R E
0011560 G I O N T Y P E ) \r
0011600 ( S E T Q R E G I O
0011620 N ( 006 002 f e t c h 006 001 ( S K
0011640 E T C H I M A G E O B J S K I
0011660 O . R E G I O N ) 006 002 o f 006 001
0011700 S K I O ) ) \r
0011720 ( C O N D \r
0011740 ( ( E Q M E M B ' D
0011760 I S P L A Y ( S E T Q T Y P
0012000 E ( I M A G E S T R E A M T Y
0012020 P E S T R E A M ) ) ) \r
0012040
*
0012120 006 006 ( * T
0012140 h i s i s b e i n g d i s
0012160 p l a y e d o n t h e \r 006
0012200 001
0012220
*
0012260 006 006
0012300 s c r e e n ) 006 001 \r
0012320 ( B I T B L T
0012340 [ C O N D \r
0012360 (
0012400 ( 006 002 f e t c h 006 001 ( S K E T
0012420 C H I M A G E O B J S K I O .
0012440 L O C A L S P E C S ) 006 002 o f
0012460 006 001 S K I O ) ) \r
0012500
0012520 ( T \r
0012540 \r 006 006 ( *
0012560 S K I O . L O C A L S P E C S
0012600 i s u s e d t o c a c h
0012620 e t h e l o c a l b i t m
0012640 a p o f t h e s k e t c h
0012660 a s i t i s \r 006 001
0012700 006 006 b e i n g d
0012720 i s p l a y n o w . ) 006 001 \r \r
0012740
0012760 ( 006 002 r
0013000 e p l a c e 006 001 ( S K E T C H
0013020 I M A G E O B J S K I O . L O
0013040 C A L S P E C S ) 006 002 o f 006 001
0013060 S K I O \r
0013100
0013120 006 002 w i t h 006 001 ( 006
0013140 002 S K E T C H . B I T M A P . I
0013160 M A G E 006 001 ( 006 002 f e t c h 006
0013200 001 ( S K E T C H I M A G E O B
0013220 J S K I O . S K E T C H ) \r
0013240
*
0013320 006 002 o f 006
0013340 001 S K I O ) \r
0013360
*
0013420 R E G I O N \r
0013440
*
0013500 ( 006 002 f e t c h 006 001
0013520 ( S K E T C H I M A G E O B J
0013540 S K I O . S C A L E ) 006 002 o f
0013560 006 001 S K I O ] \r
0013600 0
0013620 0 S T R E A M ( D S P X P O
0013640 S I T I O N N I L S T R E A
0013660 M ) \r
0013700 ( D S P Y P O S
0013720 I T I O N N I L S T R E A M
0013740 ) ) ) \r
0013760 ( T ( P R O G ( ( S K S C
0014000 A L E ( 006 002 f e t c h 006 001 (
0014020 S K E T C H I M A G E O B J S
0014040 K I O . S C A L E ) 006 002 o f 006
0014060 001 S K I O ) ) \r
0014100
0014120 ( S T R M S C A L E ( D S P S
0014140 C A L E N I L S T R E A M )
0014160 ) \r
0014200 S K T O S T R
0014220 M S C A L E S K X O F F S E T
0014240 S K Y O F F S E T ) \r
0014260 \r
0014300 006 006 ( * t h e T R A N S L
0014320 A T E . S K E T C H i s t o
0014340 m o v e t h e s k e t c h
0014360 t o t h e r i g h t p l
0014400 a c e o n t h e p a g e .
0014420 \r 006 001 006 006 W
0014440 h e n a l l s t r e a m s
0014460 s u p p o r t t r a n l a t i
0014500 o n , t h i s s h o u l d
0014520 b e t a k e n o u t . ) 006 001
0014540 \r \r
0014560 ( S E T Q S K
0014600 T O S T R M S C A L E ( Q U O
0014620 T I E N T S K S C A L E S T
0014640 R M S C A L E ) ) \r
0014660
0014700 ( S E T Q S K X O F F S E T
0014720 ( D I F F E R E N C E ( T I M
0014740 E S ( D S P X P O S I T I O N
0014760 N I L S T R E A M ) \r
0015000
*
0015060 S K T O S T R M S C
0015100 A L E ) \r
0015120
*
0015160 ( 006 002 f e t c h 006 001 ( R E
0015200 G I O N L E F T ) 006 002 o f 006
0015220 001 R E G I O N ) ) ) \r
0015240
0015260 ( S E T Q S K Y O F F S E
0015300 T ( D I F F E R E N C E ( T
0015320 I M E S ( D S P Y P O S I T I
0015340 O N N I L S T R E A M ) \r
0015360
*
0015440 S K T O S T R M
0015460 S C A L E ) \r
0015500
*
0015540 ( 006 002 f e t c h 006 001 (
0015560 R E G I O N B O T T O M ) 006
0015600 002 o f 006 001 R E G I O N ) ) ) \r
0015620 \r
0015640 006 006 ( * s a v e a
0015660 n d r e s t o r e t h e f
0015700 o n t a s T e d i t a s s
0015720 u m e s t h a t i t i s
0015740 p r e s e r v e d o v e r t
0015760 h e \r 006 001
0016000 006 006 c a l l . ) 006 001 \r \r
0016020
0016040 ( R E T U R N ( D S P F O
0016060 N T ( P R O G 1 ( D S P F O
0016100 N T N I L S T R E A M ) \r
0016120
*
0016160 ( D R
0016200 A W . L O C A L . S K E T C H \r
0016220
*
0016260 (
0016300 M A K E . L O C A L . S K E T C
0016320 H ( T R A N S L A T E . S K E
0016340 T C H \r
0016360
*
0016440 ( C O P Y ( 006 002
0016460 f e t c h 006 001 ( S K E T C H I
0016500 M A G E O B J \r
0016520
*
0016620 S K I O . S K
0016640 E T C H ) \r
0016660
*
0016760 006 002 o f 006 001 S K I O ) ) \r
0017000
*
0017100 ( I M I N U S S K X O F
0017120 F S E T ) \r
0017140
*
0017220 ( I M I N U S
0017240 S K Y O F F S E T ) ) \r
0017260
*
0017340 ( S E T Q R E G I O N
0017360 ( 006 002 T R A N S L A T E . R E G
0017400 I O N 006 001 R E G I O N S K X
0017420 O F F S E T \r
0017440
*
0017540 S K Y O F F S E T ) ) \r
0017560
*
0017640 S K T O S T R M S C A L
0017660 E S T R E A M ) \r
0017700
*
0017740 S T R E A M \r
0017760
*
0020020 (
0020040 S K . S C A L E . R E G I O N
0020060 R E G I O N S K T O S T R M S
0020100 C A L E ) ) ) \r
0020120
0020140 S T R
0020160 E A M ] ) \r \r ( 006 004 S K E T C H
0020200 . B I T M A P . I M A G E 006 001 \r
0020220 [ L A M B D A ( S K E T C
0020240 H R E G I O N S C A L E ) 006
0020260 006 006 001
0020300
0020320 006 006 ( * r r b " 2 1 - J a
0020340 n - 8 6 1 5 : 5 6 " ) 006 001 \r
0020360 \r
0020400 006 006 ( * R e t u r n s
0020420 a b i t m a p t h a t h
0020440 a s t h e s k e t c h i m
0020460 a g e i n i t . ) 006 001 \r \r
0020500 ( S E T Q S K E T C H
0020520 ( I N S U R E . S K E T C H S
0020540 K E T C H ) ) \r ( O R
0020560 ( R E G I O N P R E G I O N )
0020600 \r ( S E T Q R
0020620 E G I O N ( S K E T C H . R E
0020640 G I O N . O F . S K E T C H S
0020660 K E T C H ) ) ) \r ( O R
0020700 ( N U M B E R P S C A L E )
0020720 \r ( S E T Q S
0020740 C A L E 1 . 0 ) ) \r (
0020760 P R O G ( B I T M A P D S P
0021000 ) \r \r
0021020 006 006 ( * m a k e
0021040 t h e b i t m a p i m a g
0021060 e 1 b i t l a r g e r t
0021100 h a n m i g h t b e a b s
0021120 o l u t e l y n e c e s s a r
0021140 y t o \r 006 001
0021160 006 006 a l l o w a o n e
0021200 b i t s l o p f o r f l o
0021220 a t i n g p t r o u n d o f
0021240 f . ) 006 001 \r \r
0021260 ( S E T Q B I T M A P ( B
0021300 I T M A P C R E A T E ( I P L
0021320 U S ( Q U O T I E N T ( 006 002
0021340 f e t c h 006 001 ( R E G I O N
0021360 W I D T H ) 006 002 o f 006 001 R E
0021400 G I O N ) \r
0021420
*
0021460 S C A L E ) \r
0021500
*
0021540 1 ) \r
0021560
0021600 ( I P
0021620 L U S ( Q U O T I E N T ( 006
0021640 002 f e t c h 006 001 ( R E G I O N
0021660 H E I G H T ) 006 002 o f 006 001
0021700 R E G I O N ) \r
0021720
*
0021760 S C A L E ) \r
0022000
*
0022040 1 ) ) ) \r (
0022060 S E T Q D S P ( D S P C R E
0022100 A T E B I T M A P ) ) \r
0022120 \r
0022140 006 006 ( * a d j u s t t h
0022160 e o f f s e t s o f t h e
0022200 s t r e a m s o t h a t
0022220 t h e s k e t c h d o e s
0022240 n o t h a v e t o b e \r
0022260 006 001 006 006 t r
0022300 a n s l a t e d . ) 006 001 \r \r
0022320 ( D S P X O F F
0022340 S E T ( I M I N U S ( Q U O
0022360 T I E N T ( 006 002 f e t c h 006 001
0022400 ( R E G I O N L E F T ) 006
0022420 002 o f 006 001 R E G I O N ) \r
0022440
*
0022500 S C A L E ) ) \r
0022520 D S P )
0022540 \r ( D S P Y
0022560 O F F S E T ( I M I N U S (
0022600 Q U O T I E N T ( 006 002 f e t c
0022620 h 006 001 ( R E G I O N B O T T
0022640 O M ) 006 002 o f 006 001 R E G I O
0022660 N ) \r
0022700
0022720 S C A L E ) ) \r
0022740
0022760 D S P ) \r
0023000 ( R E S E T F O R M ( C U R S
0023020 O R W A I T I N G C U R S O R
0023040 ) \r
0023060 ( D R A W . L O C A L . S
0023100 K E T C H ( M A K E . L O C A
0023120 L . S K E T C H S K E T C H
0023140 R E G I O N S C A L E D S P
0023160 T ) \r
0023200 D S P \r
0023220
0023240 ( D S P C L I P
0023260 P I N G R E G I O N N I L D
0023300 S P ) \r
0023320 S C A L
0023340 E ) ) \r ( R
0023360 E T U R N B I T M A P ] ) \r \r
0023400 ( 006 004 S K I O . I M A G E B O X
0023420 F N 006 001 \r [ L A M B D A (
0023440 I M A G E O B J S T R E A M )
0023460 006 006 006 001
0023500
0023520 006 006 ( * ; " E d
0023540 i t e d 2 7 - F e b - 8 7 1
0023560 8 : 0 4 b y r r b " ) 006 001 \r
0023600
*
0023660 006 006 (
0023700 * s i z e f u n c t i o n
0023720 f o r a s k e t c h i m a
0023740 g e \r 006 001
0023760
*
0024040 006 006 o b j e c t . ) 006 001 \r
0024060 ( P R O G ( ( S K O B
0024100 J ( I M A G E O B J P R O P
0024120 I M A G E O B J ' O B J E C T
0024140 D A T U M ) ) \r
0024160 S K R E G S K W S K H
0024200 S C A L E F A C T O R ) \r
0024220 \r
0024240 006 006 ( * d e t e r m i n
0024260 e t h e s c a l e b e t w
0024300 e e n t h e s k e t c h s
0024320 p e c s a n d t h e s t r
0024340 e a m . ) 006 001 \r \r
0024360 ( S E T Q S C A L E F A
0024400 C T O R ( Q U O T I E N T (
0024420 006 002 f e t c h 006 001 ( S K E T C
0024440 H I M A G E O B J S K I O . S
0024460 C A L E ) 006 002 o f 006 001 S K O
0024500 B J ) \r
0024520
0024540 ( D S P S C A L E
0024560 N I L S T R E A M ) ) ) \r
0024600 ( S E T Q S
0024620 K W ( F I X R ( F Q U O T I
0024640 E N T ( 006 002 f e t c h 006 001 (
0024660 R E G I O N W I D T H ) 006 002
0024700 o f 006 001 ( S E T Q S K R E G
0024720 ( 006 002 f e t c h 006 001 ( S K E
0024740 T C H I M A G E O B J \r
0024760
*
0025060 S K
0025100 I O . R E G I O N ) \r
0025120
*
0025220 006 002 o f 006 001 S
0025240 K O B J ) ) ) \r
0025260
0025300 S C A L E F A
0025320 C T O R ) ) ) \r
0025340 ( S E T Q S K H ( F I X
0025360 R ( F Q U O T I E N T ( 006 002
0025400 f e t c h 006 001 ( R E G I O N
0025420 H E I G H T ) 006 002 o f 006 001 S
0025440 K R E G ) \r
0025460
0025500 S C A L E F A C T
0025520 O R ) ) ) \r
0025540 ( R E T U R N ( C O N D \r
0025560
0025600 ( ( 006 002 \ S K I O . I N .
0025620 T O O . S M A L L . T E D I T P
0025640 006 001 S T R E A M S K H ) \r
0025660 \r
0025700 006 006 ( * s p e c i a l
0025720 c h e c k f o r d i s p l
0025740 a y i n g i n a T e d i t
0025760 w i n d o w t h a t i s
0026000 l e s s t h a n t h e h e
0026020 i g h t \r 006 001
0026040 006 006 o f t h e s k e t c
0026060 h . l e a v e e n o u g h
0026100 h e i g h t f o r a f e w
0026120 l i n e s o f t e x t t
0026140 o o . ) 006 001 \r \r
0026160 ( 006
0026200 002 c r e a t e 006 001 I M A G E B
0026220 O X \r
0026240
0026260 X S I Z E _ S K W \r
0026300
0026320 Y S I Z E _
0026340 ( I M A X 1 2 ( D I F F E
0026360 R E N C E ( 006 002 f e t c h 006 001
0026400 ( R E G I O N H E I G H T )
0026420 \r
0026440
*
0026500 006 002
0026520 o f 006 001 ( D S P C L I P P I N
0026540 G R E G I O N N I L S T R E
0026560 A M ) ) \r
0026600
*
0026640 2 4 ) ) \r
0026660
0026700 Y D E S
0026720 C _ 0 \r
0026740
0026760 X K E R N _ 0 ) ) \r
0027000
0027020 ( T ( 006 002 c r e a t e
0027040 006 001 I M A G E B O X \r
0027060
0027100 X S I Z E
0027120 _ S K W \r
0027140
0027160 Y S I Z E _ S K
0027200 H \r
0027220
0027240 Y D E S C _ 0 \r
0027260
0027300 X K E R N
0027320 _ 0 ] ) \r \r ( 006 004 S K I O . G
0027340 E T F N . 2 006 001 \r [ L A M B
0027360 D A ( S T R E A M ) 006 006 006 001
0027400
*
0027440 006 006 ( * r
0027460 r b " 1 8 - O c t - 8 5 1 6
0027500 : 1 1 " ) 006 001 \r
0027520 \r 006 006 (
0027540 * G e t a d e s c r i p t
0027560 i o n o f a s k e t c h
0027600 o b j e c t f r o m t h e
0027620 f i l e . ) 006 001 \r \r ( 006
0027640 002 S K E T C H . I M A G E O B J
0027660 006 001 [ P R O G ( ( R E A D S
0027700 K E T C H ( H R E A D S T R
0027720 E A M ) ) ) \r
0027740
0027760 ( R E T U R N ( S K . C H
0030000 E C K . S K E T C H . V E R S I
0030020 O N ( C O N D \r
0030040
*
0030120 ( ( N L I S T P
0030140 ( C A R R E A D S K E T C H
0030160 ) ) \r
0030200
*
0030260 006 006 ( * p r e p r o p e r t
0030300 y l i s t f o r m a t , u
0030320 p d a t e \r 006 001
0030340
*
0030420 006 006 i t . ) 006 001 \r
0030440
*
0030520 (
0030540 006 002 S K I O . U P D A T E . F R
0030560 O M . O L D . F O R M 006 001 R E
0030600 A D S K E T C H \r
0030620
*
0030720 ) ) \r
0030740
*
0031020 ( T \r
0031040 \r 006 006 ( *
0031060 v a l u e s o f a l l p r
0031100 o p e r t i e s a n d s k e
0031120 t c h e l e m e n t s w e r
0031140 e w r i t t e n o u t a s
0031160 a L I S T . ) 006 001 \r \r
0031200
*
0031260 (
0031300 006 002 c r e a t e 006 001 S K E T C
0031320 H \r
0031340
*
0031420 A L L S K
0031440 E T C H P R O P S _ \r
0031460
*
0031560 ( C A R R E A D S K
0031600 E T C H ) \r
0031620
*
0031700 S
0031720 K E T C H E L T S _ ( C D R
0031740 R E A D S K E T C H \r
0031760
*
0032100 ] \r
0032120 ( R E A D S T R E A M
0032140 ) \r ( R E
0032160 A D S T R E A M ) \r
0032200 ( R E A D S T R E
0032220 A M ] ) \r \r ( 006 004 S K I O . U P
0032240 D A T E . F R O M . O L D . F O
0032260 R M 006 001 \r [ L A M B D A (
0032300 O L D S K E T C H ) 006 006 006 001
0032320
*
0032360 006 006 ( * r r b "
0032400 1 8 - J u l - 8 5 1 7 : 2 4 "
0032420 ) 006 001 \r
0032440
*
0032520 006 006 ( * c o n v e r t s a
0032540 s k e t c h f r o m o l d
0032560 f o r m t o \r 006 001
0032600
*
0032660 006 006 n e w f
0032700 o r m . ) 006 001 \r
0032720
*
0033000 006 006 ( * u p d a t e
0033020 t h e a r r o w h e a d f
0033040 o r m a t t o t h e \r 006 001
0033060
*
0033140 006 006 n
0033160 e w f o r m . ) 006 001 \r
0033200 ( M A P G L O B A L S K E T C H
0033220 E L E M E N T S ( C D R O L
0033240 D S K E T C H ) \r
0033260 ( F U N C T I O N S K
0033300 . U P D A T E . A R R O W H E A
0033320 D . F O R M A T ) ) \r (
0033340 006 002 c r e a t e 006 001 S K E T C
0033360 H \r S K E
0033400 T C H N A M E _ ( C A R O
0033420 L D S K E T C H ) \r
0033440 S K E T C H E L T S
0033460 _ ( C D R O L D S K E T C H
0033500 ] ) \r \r ( 006 004 S K I O . G E T F
0033520 N 006 001 \r [ L A M B D A ( S
0033540 T R E A M ) 006 006 006 001
0033560
*
0033620 006 006 ( * r r b "
0033640 7 - M a y - 8 5 1 1 : 2 1 " )
0033660 006 001 \r \r
0033700 006 006 ( * G e t
0033720 a d e s c r i p t i o n o
0033740 f a s k e t c h o b j e c
0033760 t f r o m t h e f i l e .
0034000 \r 006 001 006 006 T
0034020 h i s i s a n o l d v e
0034040 r s i o n l e f t a r o u n
0034060 d i n c a s e o l d f o
0034100 r m a t o b j e c t s t i l
0034120 l e x i s t . ) 006 001 \r \r
0034140 ( p r i n t o u t T " T h
0034160 i s f i l e c o n t a i n s
0034200 s k e t c h t h a t i s
0034220 i n a n o l d f o r m a t
0034240 . " \r
0034260 " T o u p d a t e i t t
0034300 o t h e n e w f o r m a t
0034320 , " \r
0034340 " l o a d t h i s f i l e
0034360 i n t o a H a r m o n y s
0034400 y s o u t a n d d o a '
0034420 P u t ' f r o m t h e r e .
0034440 " ) \r ( E R R O R " o
0034460 l d f o r m a t S k e t c h
0034500 o b j e c t " ] ) \r \r ( 006 004 S
0034520 K I O . P U T F N 006 001 \r [ L
0034540 A M B D A ( I M A G E O B J
0034560 S T R E A M ) 006 006 006 001
0034600
0034620 006 006 (
0034640 * r r b " 1 2 - M a y - 8 5
0034660 1 8 : 3 4 " ) 006 001 \r
0034700 \r
0034720 006 006 ( * P u t a d e s c r
0034740 i p t i o n o f a s k e t
0034760 c h o b j e c t i n t o t
0035000 h e f i l e . ) 006 001 \r \r
0035020 ( P R O G ( ( S K E T C H I
0035040 M A G E O B J ( I M A G E O B
0035060 J P R O P I M A G E O B J '
0035100 O B J E C T D A T U M ) ) \r
0035120 S K E T C H )
0035140 \r ( S E T Q
0035160 S K E T C H ( 006 002 f e t c h
0035200 006 001 ( S K E T C H I M A G E O
0035220 B J S K I O . S K E T C H )
0035240 006 002 o f 006 001 S K E T C H I M A
0035260 G E O B J ) ) \r
0035300 \r 006 006 (
0035320 * c a n ' t p r i n t s k
0035340 e t c h d i r e c t l y b e
0035360 c a u s e i t c o n t a i n
0035400 s a T C O N C c e l l w
0035420 h i c h m u s t b e \r 006 001
0035440 006 006 r e c o
0035460 n s t r u c t e d o n r e a
0035500 d i n g i n . ) 006 001 \r \r
0035520 ( H P R I N T (
0035540 C O N S ( 006 002 f e t c h 006 001
0035560 ( S K E T C H A L L S K E T C
0035600 H P R O P S ) 006 002 o f 006 001 S
0035620 K E T C H ) \r
0035640 (
0035660 006 002 f e t c h 006 001 ( S K E T C
0035700 H S K E T C H E L T S ) 006 002
0035720 o f 006 001 S K E T C H ) ) \r
0035740 S
0035760 T R E A M T ) \r
0036000 ( P R I N T ( 006 002 f e t
0036020 c h 006 001 ( S K E T C H I M A G
0036040 E O B J S K I O . R E G I O N
0036060 ) 006 002 o f 006 001 S K E T C H I
0036100 M A G E O B J ) \r
0036120 S T R E A M
0036140 ) \r ( P R I
0036160 N T ( 006 002 f e t c h 006 001 ( S
0036200 K E T C H I M A G E O B J S K
0036220 I O . S C A L E ) 006 002 o f 006 001
0036240 S K E T C H I M A G E O B J )
0036260 \r
0036300 S T R E A M ) \r
0036320 ( P R I N T ( 006 002 f e
0036340 t c h 006 001 ( S K E T C H I M A
0036360 G E O B J S K I O . G R I D )
0036400 006 002 o f 006 001 S K E T C H I M
0036420 A G E O B J ) \r
0036440 S T R E A M ]
0036460 ) \r \r ( 006 004 S K I O . C O P Y F
0036500 N 006 001 \r [ L A M B D A ( I
0036520 M A G E O B J ) 006 006 006 001
0036540
*
0036600 006 006 ( * r r b " 2
0036620 6 - O c t - 8 4 1 0 : 2 7 " )
0036640 006 001 \r
0036660
*
0036740 006 006 ( * m a k e s a c o p
0036760 y o f a s k e t c h i m
0037000 a g e \r 006 001
0037020
*
0037100 006 006 o b j e c t . ) 006 001
0037120 \r ( P R O G [ ( S K E
0037140 T C H O B J ( I M A G E O B J
0037160 P R O P I M A G E O B J ' O
0037200 B J E C T D A T U M ] \r
0037220 ( R E T U R N ( 006
0037240 002 S K E T C H . I M A G E O B J
0037260 006 001 ( C O P Y ( 006 002 f e t c
0037300 h 006 001 ( S K E T C H I M A G E
0037320 O B J S K I O . S K E T C H )
0037340 006 002 o f 006 001 S K E T C H O B
0037360 J ) ) \r
0037400 ( C O
0037420 P Y ( 006 002 f e t c h 006 001 ( S
0037440 K E T C H I M A G E O B J S K
0037460 I O . R E G I O N ) 006 002 o f 006
0037500 001 S K E T C H O B J ) ) \r
0037520
0037540 ( 006 002 f e t c h 006
0037560 001 ( S K E T C H I M A G E O B
0037600 J S K I O . S C A L E ) 006 002
0037620 o f 006 001 S K E T C H O B J ) \r
0037640
0037660 ( 006 002 f e t c
0037700 h 006 001 ( S K E T C H I M A G E
0037720 O B J S K I O . G R I D ) 006
0037740 002 o f 006 001 S K E T C H O B J ]
0037760 ) \r \r ( 006 004 S K I O . B U T T O
0040000 N E V E N T I N F N 006 001 \r [
0040020 L A M B D A ( I M A G E O B J
0040040 W I N D O W ) 006 006 006 001
0040060
0040100 006 006
0040120 ( * r r b " 3 1 - J u l - 8
0040140 6 1 0 : 2 4 " ) 006 001 \r
0040160 \r
0040200 006 006 ( * t h e u s e r h
0040220 a s p r e s s e d a b u t
0040240 t o n i n s i d e t h e s
0040260 k e t c h o b j e c t I M A
0040300 G E O B J . \r 006 001
0040320 006 006 O f f e r a c h a
0040340 n c e t o e d i t i t i
0040360 n a s e p a r a t e w i n
0040400 d o w . ) 006 001 \r \r ( P R
0040420 O G [ ( O B J ( I M A G E O
0040440 B J P R O P I M A G E O B J
0040460 ' O B J E C T D A T U M ] \r
0040500 ( S E L E C T Q
0040520 [ M E N U ( 006 002 c r e a t e
0040540 006 001 M E N U \r
0040560
0040600 I T E M S _
0040620 ' ( ( E d i t % s k e t c h
0040640 ' E D I T \r
0040660
*
0040720 " o p e n s a
0040740 w i n d o w i n w h i c h
0040760 t h i s s k e t c h c a n
0041000 b e c h a n g e d . " \r
0041020
*
0041060 ] \r
0041100 ( E
0041120 D I T
0041140
0041160 006 006 (
0041200 * u s e r w a n t s t o
0041220 e d i t i t ) 006 001 \r
0041240 [
0041260 P R O G ( ( S K R E G ( 006 002
0041300 f e t c h 006 001 ( S K E T C H I
0041320 M A G E O B J S K I O . R E G
0041340 I O N ) 006 002 o f 006 001 O B J )
0041360 ) \r
0041400 ( S C
0041420 A L E ( 006 002 f e t c h 006 001 (
0041440 S K E T C H I M A G E O B J S
0041460 K I O . S C A L E ) 006 002 o f 006
0041500 001 O B J ) ) \r
0041520
0041540 ( S K E T C H ( 006 002 f e
0041560 t c h 006 001 ( S K E T C H I M A
0041600 G E O B J S K I O . S K E T C
0041620 H ) 006 002 o f 006 001 O B J ) ) \r
0041640
0041660 S K W T
0041700 I T L E ) \r
0041720 \r 006 006 ( *
0041740 g i v e t h e s k e t c h
0041760 a n e w n a m e s o t h
0042000 a t i t d o e s n ' t g e
0042020 t c o n f u s e d a b o u t
0042040 t h e r e a l \r 006 001
0042060 006 006 s k e t c h
0042100 o n t h e p r o p e r t y
0042120 l i s t . T h e w h o l e
0042140 i d e a o f n a m e s s h
0042160 o u l d p r o b a b l y b e
0042200 \r 006 001 006 006
0042220 s c r a p p e d ) 006 001 \r \r
0042240
0042260 ( S E T Q S K W
0042300 ( S K E T C H W . C R E A T E
0042320 ( 006 002 c r e a t e 006 001 S K E
0042340 T C H 006 002 u s i n g 006 001 S K
0042360 E T C H S K E T C H N A M E
0042400 _ \r
0042420
*
0042500 [ S E T Q
0042520 T I T L E \r
0042540
*
0042640 ( C O N D \r
0042660
*
0042760 ( ( S E T Q T I T L E
0043000 \r
0043020
*
0043120 ( W I N D O W P R O P \r
0043140
*
0043240 W I N D
0043260 O W \r
0043300
*
0043400 ' T E D I T . I C O N . T
0043420 I T L E ) ) \r
0043440
*
0043540 ( C O N C A T " f i
0043560 g u r e f r o m " \r
0043600
*
0043720 T I T L E ) ) \r
0043740
*
0044040 ( T ' \r
0044060
*
0044160 | a f i g u r e
0044200 f r o m a d o c u m e n t
0044220 | \r
0044240
*
0044340 ] \r
0044360
*
0044440 S K E
0044460 T C H P R O P S _ \r
0044500
*
0044600 ( C O P Y ( 006 002 f e t
0044620 c h 006 001 ( S K E T C H \r
0044640
*
0044760 S K E T C H P R
0045000 O P S \r
0045020
*
0045140 ) \r
0045160
*
0045260 006 002 o f 006 001 S K E T
0045300 C H ) ) \r
0045320
*
0045400 S K
0045420 E T C H E L T S _ \r
0045440
*
0045540 ( C O P Y ( 006 002 f e t
0045560 c h 006 001 ( S K E T C H \r
0045600
*
0045720 S K E T C H E
0045740 L T S \r
0045760
*
0046100 ) \r
0046120
*
0046220 006 002 o f 006 001 S K E T
0046240 C H ) ) ) \r
0046260
*
0046320 S K R E G \r
0046340
*
0046400 ( G E T B O X R E G I O N
0046420 ( W I D T H I F W I N D O W \r
0046440
*
0046520 ( F I X R (
0046540 F Q U O T I E N T ( 006 002 f e t
0046560 c h 006 001 ( R E G I O N W I D
0046600 T H ) \r
0046620
*
0046720 006 002 o f 006 001 S K R E G ) \r
0046740
*
0047040 S C A L E ) ) ) \r
0047060
*
0047140 ( H E I G H T I F W I N D O
0047160 W ( F I X R ( F Q U O T I E
0047200 N T \r
0047220
*
0047300 ( 006 002 f
0047320 e t c h 006 001 ( R E G I O N H
0047340 E I G H T ) \r
0047360
*
0047460 006 002 o f 006 001 S K R E G )
0047500 \r
0047520
*
0047600 S C A L E )
0047620 ) \r
0047640
*
0047700 T ) ) \r
0047720
*
0047760 T I T L E
0050000 S C A L E T ( 006 002 f e t c h
0050020 006 001 ( S K E T C H I M A G E O
0050040 B J S K I O . G R I D ) \r
0050060
*
0050140 006 002 o f 006 001
0050160 O B J ) ) ) \r
0050200 \r 006 006 (
0050220 * k e e p t r a c k o f
0050240 e n o u g h i n f o r m a t i
0050260 o n t o f i n d t h i s
0050300 s k e t c h i n t h e d o
0050320 c u m e n t i f t h e \r 006
0050340 001 006 006 u s e
0050360 r c l o s e s t h e w i n
0050400 d o w . ) 006 001 \r \r
0050420
0050440 ( W I N D O W P R O P S
0050460 K W ' D O C U M E N T I N F O
0050500 ( 006 002 c r e a t e 006 001 S K E
0050520 T C H D O C U M E N T I N F O \r
0050540
*
0050620 F
0050640 R O M I M A G E O B J _ I M
0050660 A G E O B J \r
0050700
*
0050760 F R O M T E D I T W
0051000 I N D O W _ W I N D O W ) )
0051020 \r \r
0051040 006 006 ( * g i v e
0051060 t h i s p r o c e s s t h e
0051100 t t y s o t h a t i t
0051120 w i l l s t a y o n t o p
0051140 . ) 006 001 \r \r
0051160
0051200 ( T T Y . P R O C E S S ( W I
0051220 N D O W P R O P S K W ' P R
0051240 O C E S S ) ) \r
0051260 \r 006 006 (
0051300 * a d d a p r o c e s s
0051320 t o b r i n g t h i s w i
0051340 n d o w t o t h e t o p
0051360 a f t e r T E d i t h a s
0051400 c l e a r e d i t s \r 006 001
0051420 006 006 s e l e c
0051440 t i o n w h i c h b r i n g
0051460 s i t u p o n t o p a
0051500 g a i n . \r 006 001
0051520 006 006 Y e c h ! ! ) 006 001 \r \r
0051540
0051560 ( A D D . P R
0051600 O C E S S ( L I S T ' T O T
0051620 O P W ( K W O T E S K W ] )
0051640 \r N
0051660 I L ] ) \r \r ( 006 004 T R A N S L A
0051700 T E . R E G I O N 006 001 \r [ L
0051720 A M B D A ( R E G I O N N E
0051740 W L E F T N E W B O T T O M )
0051760 006 006 006 001
0052000 006 006 (
0052020 * r r b " 2 0 - S e p - 8 4
0052040 1 4 : 1 2 " ) 006 001 \r
0052060 \r
0052100 006 006 ( * t r a n s l a t e s
0052120 a r e g i o n s o t h a t
0052140 i t s n e w l o w e r l
0052160 e f t c o r n e r i s a t
0052200 N E W L E F T \r 006 001
0052220 006 006 N E W B O T T O
0052240 M ) 006 001 \r \r ( C R E A T
0052260 E R E G I O N ( P L U S ( 006
0052300 002 f e t c h 006 001 ( R E G I O N
0052320 L E F T ) 006 002 o f 006 001 R E
0052340 G I O N ) \r
0052360 N E
0052400 W L E F T ) \r
0052420 ( P L U S ( 006 002 f e t c h
0052440 006 001 ( R E G I O N B O T T O
0052460 M ) 006 002 o f 006 001 R E G I O N
0052500 ) \r
0052520 N E W B O T T O M ) \r
0052540 ( 006 002 f e t c
0052560 h 006 001 ( R E G I O N W I D T
0052600 H ) 006 002 o f 006 001 R E G I O N
0052620 ) \r ( 006 002
0052640 f e t c h 006 001 ( R E G I O N
0052660 H E I G H T ) 006 002 o f 006 001 R
0052700 E G I O N ] ) \r \r ( 006 004 U P D A
0052720 T E . I M A G E . I N . D O C U
0052740 M E N T 006 001 \r [ L A M B D A
0052760 ( S K W ) 006 006 006 001
0053000
*
0053040 006 006 ( * r r b
0053060 " 2 6 - S e p - 8 6 1 0 : 1
0053100 6 " ) 006 001 \r
0053120 \r 006 006 ( *
0053140 * t h i s s k e t c h w i
0053160 n d o w w a s t h e r e s
0053200 u l t o f e d i t t i n g
0053220 a s k e t c h f r o m a
0053240 d o c u m e n t . \r 006 001
0053260 006 006 A s k i f t
0053300 h e u s e r w a n t s t o
0053320 p u t i t b a c k a n d
0053340 i f s o , d o i t . ) 006
0053360 001 \r \r ( S E L E C T Q
0053400 ( \ C U R S O R . I N . M I D D
0053420 L E . M E N U ( 006 002 c r e a t
0053440 e 006 001 M E N U \r
0053460
*
0053520 T I T L E _ " P u
0053540 t c h a n g e s b a c k i
0053560 n t o D o c u m e n t ? " \r
0053600
*
0053640 I T E M S
0053660 _ ' ( ( Y e s ' Y E S \r
0053700
*
0053740 " t h i s i m a g e u s
0053760 e d i n t h e d o c u m e
0054000 n t i n s t e a d o f t h
0054020 e o n e t h a t i s t h
0054040 e r e . " \r
0054060
*
0054140 ) \r
0054160
*
0054220 ( N o ' N O
0054240 \r
0054260
0054300 " t h e c h a n g e s
0054320 m a d e t o t h i s i m
0054340 a g e w i l l n o t b e
0054360 p u t i n t o t h e d o c
0054400 u m e n t . " \r
0054420
*
0054500 ) ) \r
0054520
*
0054560 C E N T E R F L G _ T ) )
0054600 \r ( Y E S ( P
0054620 R O G ( ( D O C I N F O ( W
0054640 I N D O W P R O P S K W ' D
0054660 O C U M E N T I N F O ) ) \r
0054700
0054720 T E X T O B J O L D I M A
0054740 G E O B J P O S ) \r
0054760 ( C
0055000 O N D \r
0055020 ( [ N O T
0055040 ( S E T Q T E X T O B J ( T
0055060 E X T O B J ( 006 002 f e t c h 006
0055100 001 ( S K E T C H D O C U M E N
0055120 T I N F O F R O M T E D I T W
0055140 I N D O W ) \r
0055160
*
0055220 006 002 o
0055240 f 006 001 D O C I N F O ] \r
0055260
0055300 ( P R O M P T P R I N T
0055320 " C a n ' t f i n d t h e
0055340 e d i t w i n d o w f o r
0055360 t h e s o u r c e d o c u
0055400 m e n t . " ) \r
0055420 (
0055440 R E T U R N ) ) ) \r
0055460 ( C O
0055500 N D \r
0055520 ( [ N O T (
0055540 S E T Q P O S ( T E D I T .
0055560 F I N D . O B J E C T T E X T
0055600 O B J ( S E T Q O L D I M A
0055620 G E O B J \r
0055640
*
0055720 ( 006 002 f e t c h
0055740 006 001 ( S K E T C H D O C U M E
0055760 N T I N F O \r
0056000
*
0056100 F R O M I M A G
0056120 E O B J ) \r
0056140
*
0056220 006 002 o f 006
0056240 001 D O C I N F O ] \r
0056260
0056300 ( P R O M P T P R I N T "
0056320 C a n ' t f i n d t h i s
0056340 s k e t c h i n t h e d o
0056360 c u m e n t i t c a m e f
0056400 r o m . " ) \r
0056420
*
0056500 006 006 ( * l a t e r s
0056520 h o u l d a l l o w t h e
0056540 u s e r t o \r 006 001
0056560
*
0056640 006 006 s p e c i f
0056660 y w h e r e . ) 006 001 \r
0056700
0056720 ( R E T U R N ) ) ) \r
0056740
0056760 ( T E D I T . D E L E T E (
0057000 S E T Q T E X T O B J ( T E
0057020 X T S T R E A M T E X T O B J
0057040 ) ) \r
0057060 P O S
0057100 1 ) \r
0057120 ( T E D I T . I N
0057140 S E R T . O B J E C T ( 006 002 S
0057160 K E T C H I M A G E O B J . F R
0057200 O M . V I E W E R 006 001 S K W )
0057220 \r
0057240 T E X T O
0057260 B J P O S ) ) ) \r
0057300 ( N I L
0057320
*
0057360 006 006 ( * i f t
0057400 h e u s e r c l i c k s o
0057420 u t s i d e , s t o p \r 006 001
0057440
*
0057520 006 006 t
0057540 h e c l o s e . ) 006 001 \r
0057560 ' D O N ' T
0057600 ) \r ( N O N I
0057620 L ) \r N I L ] )
0057640 \r \r ( 006 004 S K . C O P Y . I M A
0057660 G E O B J 006 001 \r [ L A M B D
0057700 A ( G E L T W I N D O W C
0057720 A L L W H E N C O P I E D F N )
0057740 006 006 006 001
0057760 006 006 ( * r r
0060000 b " 2 3 - O c t - 8 4 1 0 :
0060020 5 9 " ) 006 001 \r
0060040 \r 006 006 ( *
0060060 * m a k e s a c o p y
0060100 o f a i m a g e o b j e c
0060120 t s k e t c h e l e m e n t
0060140 . \r 006 001 006 006
0060160 H a s t o c a l l t h e
0060200 i m a g e o b j e c t s c o
0060220 p y f n . C a l l s i t s
0060240 i t s W H E N C O P I E D F N
0060260 i f \r 006 001
0060300 006 006 C A L L W H E N C O P I E
0060320 D F N i s n o t N I L ) 006
0060340 001 \r \r ( P R O G ( I N
0060360 D V G E L T I M A G E O B J
0060400 F N N E W S K E L T ) \r
0060420 [ S E T Q N E W
0060440 S K E L T ( C O N D \r
0060460
0060500 ( ( A N D ( S
0060520 E T Q F N ( I M A G E O B J
0060540 P R O P [ S E T Q I M A G E
0060560 O B J ( 006 002 f e t c h 006 001 (
0060600 S K I M A G E O B J S K I M A
0060620 G E O B J \r
0060640
*
0060740 ) \r
0060760
*
0061060 006 002 o f 006 001
0061100 ( S E T Q I N D V G E L T \r
0061120
*
0061220 ( 006
0061240 002 f e t c h 006 001 ( G L O B A L
0061260 P A R T \r
0061300
*
0061400 \r
0061420
*
0061520 I N
0061540 D I V I D U A L G L O B A L P A
0061560 R T \r
0061600
*
0061700 ) 006 002 o f
0061720 006 001 G E L T ] \r
0061740
*
0062000 ' C O P Y
0062020 F N ) ) \r
0062040
0062060 ( N E Q F N '
0062100 N I L L ) ) \r
0062120
0062140 ( 006 002 c r e a t e 006 001
0062160 G L O B A L P A R T \r
0062200
0062220 I
0062240 N D I V I D U A L G L O B A L P
0062260 A R T _ ( 006 002 c r e a t e 006
0062300 001 S K I M A G E O B J 006 002 u
0062320 s i n g 006 001 I N D V G E L T
0062340 \r
0062360
*
0062460 S K I M A G E O B J
0062500 _ \r
0062520
*
0062620 ( A P P L Y * F N
0062640 \r
0062660
*
0062760 I M A
0063000 G E O B J ) ) \r
0063020
0063040 C O M M
0063060 O N G L O B A L P A R T _ (
0063100 006 002 f e t c h 006 001 ( G L O B A
0063120 L P A R T C O M M O N G L O B
0063140 A L P A R T ) \r
0063160
*
0063240 006 002 o f 006 001 G E L T ) ) )
0063260 \r
0063300 ( T
0063320 ( C O P Y G E L T ] \r
0063340 ( C O N D \r
0063360 ( ( A N D C
0063400 A L L W H E N C O P I E D F N
0063420 ( S E T Q F N ( I M A G E O
0063440 B J P R O P I M A G E O B J
0063460 ' W H E N C O P I E D F N ) ) \r
0063500
0063520 ( N E Q F N ' N I L L
0063540 ) ) \r \r
0063560 006 006 ( * d o c
0063600 u m e n t a t i o n c a l l s
0063620 f o r p a s s i n g t e x
0063640 t s t r e a m s a s w e l
0063660 l b u t t h e r e a r e n
0063700 ' t a n y . ) 006 001 \r \r
0063720 ( A P P L Y
0063740 * F N I M A G E O B J W I
0063760 N D O W ) ) ) \r
0064000 ( R E T U R N N E W S K E
0064020 L T ] ) \r \r ( 006 004 \ C R E A T E
0064040 . S K E T C H . I M A G E F N S
0064060 006 001 \r [ L A M B D A N I L
0064100 006 006 006 001
0064120
*
0064160 006 006 ( * r r b " 2 3
0064200 - O c t - 8 5 1 1 : 0 3 " ) 006
0064220 001 \r ( 006 002 D E C L A R E
0064240 006 001 ( G L O B A L V A R S S
0064260 K E T C H I M A G E F N S ) )
0064300
0064320 006 006 ( * c r e a t e s
0064340 t h e I M A G E F N S v e c
0064360 t o r f o r t h e \r 006 001
0064400
*
0064460 006 006 s k
0064500 e t c h i m a g e o b j e c
0064520 t . ) 006 001 \r ( C O N D \r
0064540 ( ( I M A G E F N
0064560 S P S K E T C H I M A G E F N
0064600 S ) ) \r ( T ( S
0064620 E T Q S K E T C H I M A G E F
0064640 N S ( I M A G E F N S C R E A
0064660 T E ( F U N C T I O N S K E
0064700 T C H . D I S P L A Y F N ) \r
0064720
*
0064760 ( F U N C T I O N S
0065000 K I O . I M A G E B O X F N ) \r
0065020
*
0065060 ( F U N C T I O N
0065100 S K I O . P U T F N ) \r
0065120
*
0065160 ( F U N C T I O N S K I O
0065200 . G E T F N . 2 ) \r
0065220
*
0065260 ( F U N C T I O N S K I O . C
0065300 O P Y F N ) \r
0065320
0065340 ( F U
0065360 N C T I O N S K I O . B U T T
0065400 O N E V E N T I N F N ) \r
0065420
*
0065460 ( F U N C T I O N N I L
0065500 L ) \r
0065520
0065540 ( F U N C T I
0065560 O N N I L L ) \r
0065600
0065620 (
0065640 F U N C T I O N N I L L ) \r
0065660
*
0065720 ( F U N C T I O N N
0065740 I L L ) \r
0065760
0066000 ( F U N C
0066020 T I O N N I L L ) \r
0066040
*
0066100 ( F U N C T I O N N I L L )
0066120 \r
0066140
0066160 ( F U N C T I O N
0066200 N I L L ] ) \r \r ( 006 004 \ S K I
0066220 O . I N . T O O . S M A L L . T
0066240 E D I T P 006 001 \r [ L A M B D
0066260 A ( S T R E A M H E I G H T
0066300 ) 006 006 006 001
0066320
0066340 006 006 ( * ;
0066360 " E d i t e d 2 7 - F e b - 8
0066400 7 1 8 : 1 9 b y r r b " )
0066420 006 001 \r \r
0066440 006 006 ( * i s
0066460 t h i s s t r e a m a T E
0066500 D I T w i n d o w t h a t
0066520 i s s m a l l e r t h a n
0066540 h e i g h t ? ) 006 001 \r \r
0066560 ( A N D ( D I S P L A Y S T R
0066600 E A M P S T R E A M ) \r
0066620 ( W I N D O W P R O
0066640 P ( W F R O M D S S T R E A
0066660 M ) \r
0066700 ' T E X T O B J ) \r
0066720 ( G R E A T E R P
0066740 H E I G H T ( 006 002 f e t c h 006
0066760 001 ( R E G I O N H E I G H T
0067000 ) 006 002 o f 006 001 ( D S P C L I
0067020 P P I N G R E G I O N N I L
0067040 S T R E A M ] ) \r ) \r ( D E C L
0067060 A R E % : D O N T C O P Y D
0067100 O E V A L @ C O M P I L E \r (
0067120 D E C L A R E % : E V A L @ C
0067140 O M P I L E \r \r ( R E C O R D
0067160 006 002 S K E T C H I M A G E O B J
0067200 006 001 ( S K I O . S K E T C H
0067220 S K I O . R E G I O N S K I O
0067240 . S C A L E S K I O . L O C A
0067260 L S P E C S S K I O . G R I D
0067300 ) ) \r \r ( R E C O R D 006 002 S K
0067320 E T C H D O C U M E N T I N F O
0067340 006 001 ( F R O M I M A G E O B J
0067360 F R O M T E D I T W I N D O W
0067400 ) ) \r ) \r ) \r ( \ C R E A T E .
0067420 S K E T C H . I M A G E F N S )
0067440 \r \r ( A D D T O V A R 006 002 I M
0067460 A G E O B J G E T F N S 006 001 (
0067500 S K I O . G E T F N ) ) \r \r \r \r
0067520 006 004 ( * s t u f f t o s u
0067540 p p o r t i m a g e o b j e
0067560 c t s a s e l e m e n t s
0067600 i n a s k e t c h ) 006 001 \r \r
0067620 ( D E F I N E Q \r \r ( 006 004 S K E
0067640 T C H . I M A G E . O B J E C T
0067660 . E L E M E N T 006 001 \r [ L A
0067700 M B D A ( I M A G E O B J S
0067720 C A L E G L O B A L P O S V
0067740 I E W E R ) 006 006 006 001
0067760 006 006 ( *
0070000 r r b " 8 - J u l - 8 6
0070020 1 2 : 3 8 " ) 006 001 \r
0070040 \r 006
0070060 006 ( * i n t e r n a l f u n
0070100 c t i o n f o r c r e a t i
0070120 n g a g l o b a l i m a g
0070140 e o b j s k e t c h e l e m
0070160 e n t . \r 006 001
0070200 006 006 C a l l e d d u r i n g
0070220 c o p y s e l e c t i n s
0070240 e r t a n d d u r i n g e
0070260 d i t t i n g . ) 006 001 \r \r
0070300 ( 006 002 S K . U P D A T E . I M
0070320 A G E O B J E C T . A F T E R .
0070340 C H A N G E 006 001 ( 006 002 S K E T
0070360 C H . C R E A T E . I M A G E .
0070400 O B J E C T 1 006 001 I M A G E O
0070420 B J G L O B A L P O S S C A
0070440 L E ) \r V
0070460 I E W E R ] ) \r \r ( 006 004 S K E T
0070500 C H . I M A G E O B J . O F . E
0070520 L E M E N T 006 001 \r [ L A M B
0070540 D A ( E L E M E N T ) 006 006 006 001
0070560
*
0070620 006 006 ( * r
0070640 r b " 1 4 - A u g - 8 5 1 6
0070660 : 3 8 " ) 006 001 \r
0070700 \r 006 006 (
0070720 * r e t u r n s t h e i m
0070740 a g e o b j e c t f r o m
0070760 a n i m a g e o b j e c t
0071000 s k e t c h e l e m e n t . )
0071020 006 001 \r \r ( 006 002 f e t c h
0071040 006 001 ( S K I M A G E O B J S
0071060 K I M A G E O B J ) 006 002 o f 006
0071100 001 ( 006 002 f e t c h 006 001 ( G L
0071120 O B A L P A R T I N D I V I D
0071140 U A L G L O B A L P A R T ) 006
0071160 002 o f 006 001 E L E M E N T ] ) \r
0071200 \r ( 006 004 S K E T C H . S C A L E
0071220 . O F . E L E M E N T 006 001 \r
0071240 [ L A M B D A ( E L E M E N T
0071260 ) 006 006 006 001
0071300
0071320 006
0071340 006 ( * r r b " 1 4 - A u g -
0071360 8 5 1 6 : 3 9 " ) 006 001 \r
0071400
*
0071460 006 006 ( * r
0071500 e t u r n s t h e s c a l e
0071520 f r o m a n i m a g e \r
0071540 006 001
0071560
*
0071620 006
0071640 006 o b j e c t s k e t c h e
0071660 l e m e n t . ) 006 001 \r (
0071700 006 002 f e t c h 006 001 ( S K I M A
0071720 G E O B J S K I M O B J . O R
0071740 I G S C A L E ) 006 002 o f 006 001
0071760 ( 006 002 f e t c h 006 001 ( G L O B
0072000 A L P A R T I N D I V I D U A
0072020 L G L O B A L P A R T ) 006 002 o
0072040 f 006 001 E L E M E N T ] ) \r \r (
0072060 006 004 S K E T C H . P O S I T I O
0072100 N . O F . E L E M E N T 006 001 \r
0072120 [ L A M B D A ( E L E M E N
0072140 T ) 006 006 006 001
0072160
*
0072220 006 006 ( * r r b " 1 4 - A u g
0072240 - 8 5 1 6 : 4 2 " ) 006 001 \r
0072260
*
0072340 006 006 ( *
0072360 r e t u r n s t h e p o s i
0072400 t i o n f r o m a n i m a
0072420 g e \r 006 001
0072440
*
0072520 006 006 o b j e c t s k e t
0072540 c h e l e m e n t . ) 006 001 \r
0072560 ( P R O G [ ( R E G (
0072600 006 002 f e t c h 006 001 ( S K I M A
0072620 G E O B J S K I M O B J . G L
0072640 O B A L R E G I O N ) 006 002 o f
0072660 006 001 ( 006 002 f e t c h 006 001 ( G
0072700 L O B A L P A R T I N D I V I
0072720 D U A L G L O B A L P A R T ) \r
0072740
*
0073020 006
0073040 002 o f 006 001 E L E M E N T ] \r
0073060 ( R E T U R N
0073100 ( C R E A T E P O S I T I O N
0073120 ( 006 002 f e t c h 006 001 ( R E G
0073140 I O N L E F T ) 006 002 o f 006 001
0073160 R E G ) \r
0073200 (
0073220 006 002 f e t c h 006 001 ( R E G I O
0073240 N B O T T O M ) 006 002 o f 006 001
0073260 R E G ] ) \r \r ( 006 004 C R E A T
0073300 E . S K I M A G E O B J . T Y P
0073320 E 006 001 \r [ L A M B D A N I
0073340 L 006 006 006 001
0073360
*
0073420 006 006 ( * r r b " 1
0073440 8 - O c t - 8 5 1 0 : 3 3 " )
0073460 006 001 \r \r
0073500 006 006 ( * c r e
0073520 a t e a s k e t c h t y p
0073540 e t h a t a l l o w s i m
0073560 a g e o b j e c t s t o a
0073600 p p e a r i n s k e t c h e
0073620 s . ) 006 001 \r \r ( C O N D
0073640 \r ( ( N O T ( S
0073660 K E T C H . E L E M E N T . T Y
0073700 P E P ' S K I M A G E O B J )
0073720 ) \r ( C R E A T
0073740 E . S K E T C H . E L E M E N T
0073760 . T Y P E ' S K I M A G E O B
0074000 J N I L " f u n c t i o n s
0074020 f o r u s i n g i m a g e
0074040 o b j e c t s i n s k e t
0074060 c h e s " \r
0074100 ( F U N C T I O N S
0074120 K . I M A G E O B J . D R A W F
0074140 N ) \r
0074160 ( F U N C T I O N S K . I
0074200 M A G E O B J . E X P A N D F N
0074220 ) \r
0074240 ' O B S O L E T E \r
0074260 ( F U N C T
0074300 I O N S K . I M A G E O B J .
0074320 C H A N G E F N ) \r
0074340 ( F U N C T I
0074360 O N N I L L ) \r
0074400 ( F U N C T I O
0074420 N S K . I M A G E O B J . I N
0074440 S I D E F N ) \r
0074460 ( F U N C T I O N
0074500 S K . I M A G E O B J . R E G
0074520 I O N F N ) \r
0074540 ( F U N C T I O N
0074560 S K . I M A G E O B J . T R A N
0074600 S L A T E F N ) \r
0074620 ( F U N C T I O
0074640 N N I L L ) \r
0074660 ( F U N C T I O N
0074700 S K . I M A G E O B J . R E A
0074720 D C H A N G E F N ) \r
0074740 ( F U N C T
0074760 I O N S K . I M A G E O B J .
0075000 T R A N S F O R M F N ) \r
0075020 N I L \r
0075040 (
0075060 F U N C T I O N S K . I M A G
0075100 E O B J . G L O B A L R E G I O
0075120 N F N ] ) \r \r ( 006 004 I M A G E B
0075140 O X S I Z E 006 001 \r [ L A M B
0075160 D A ( I M A G E O B J I M A
0075200 G E S T R E A M ) 006 006 006 001
0075220
0075240 006 006 ( * r
0075260 r b " 4 - F e b - 8 6 1 4
0075300 : 4 1 " ) 006 001 \r
0075320
*
0075400 006 006 ( * r e t u r n
0075420 s t h e s i z e o f a n
0075440 i m a g e o b j ) 006 001 \r
0075460 ( A P P L Y * ( 006 002 f e t c
0075500 h 006 001 ( I M A G E F N S I M
0075520 A G E B O X F N ) 006 002 o f 006 001
0075540 ( 006 002 f e t c h 006 001 ( I M A
0075560 G E O B J I M A G E O B J F N
0075600 S ) 006 002 o f 006 001 I M A G E O
0075620 B J ) ) \r
0075640 I M A G E O B J I M A G E S T
0075660 R E A M ] ) \r \r ( 006 004 S K . U P
0075700 D A T E . I M A G E O B J E C T
0075720 . A F T E R . C H A N G E 006 001 \r
0075740 [ L A M B D A ( I M O B J
0075760 E L T V I E W E R ) 006 006 006 001
0076000
*
0076040 006 006 ( * r r b " 4 - F e
0076060 b - 8 6 1 5 : 0 4 " ) 006 001 \r
0076100 \r
0076120 006 006 ( * u p d a t e s
0076140 t h e d e p e n d e n t f
0076160 i e l d s o f a s k e t c
0076200 h i m a g e o b j e c t e
0076220 l e m e n t a f t e r t h e
0076240 \r 006 001 006 006
0076260 i m a g e o b j e c t c h a
0076300 n g e s . ) 006 001 \r \r ( P
0076320 R O G ( I M O B J S I Z E I
0076340 M A G E O B J S C A L E ) \r
0076360 ( S E T Q I
0076400 M O B J S I Z E ( 006 002 I M A G
0076420 E B O X S I Z E 006 001 ( 006 002 f e
0076440 t c h 006 001 ( S K I M A G E O B
0076460 J S K I M A G E O B J ) 006 002
0076500 o f 006 001 ( S E T Q I M A G E
0076520 O B J \r
0076540
*
0076620 (
0076640 006 002 f e t c h 006 001 ( G L O B A
0076660 L P A R T \r
0076700
*
0077000 I N D I V I D U
0077020 A L G L O B A L P A R T \r
0077040
*
0077160 ) \r
0077200
*
0077300 006 002 o f 006 001 I M O
0077320 B J E L T ) ) ) \r
0077340
0077360 V I E W E R
0077400 ) ) \r ( S E
0077420 T Q S C A L E ( 006 002 f e t c
0077440 h 006 001 ( S K I M A G E O B J
0077460 S K I M O B J . O R I G S C A L
0077500 E ) 006 002 o f 006 001 I M A G E O
0077520 B J ) ) \r (
0077540 006 002 r e p l a c e 006 001 ( S K I
0077560 M A G E O B J S K I M O B J .
0077600 G L O B A L R E G I O N ) 006 002
0077620 o f 006 001 I M A G E O B J \r
0077640 006 002 w i t
0077660 h 006 001 ( 006 002 c r e a t e 006 001
0077700 R E G I O N 006 002 u s i n g 006 001
0077720 ( 006 002 f e t c h 006 001 ( S K I
0077740 M A G E O B J S K I M O B J .
0077760 G L O B A L R E G I O N ) 006 002
0100000 o f 006 001 I M A G E O B J ) \r
0100020
*
0100060 W I D T H _ ( T
0100100 I M E S ( 006 002 f e t c h 006 001
0100120 ( I M A G E B O X X S I Z E )
0100140 006 002 o f 006 001 I M O B J S I Z
0100160 E ) \r
0100200
*
0100240 S C A L E ) \r
0100260
*
0100320 H E I G H T _
0100340 ( T I M E S ( 006 002 f e t c h 006
0100360 001 ( I M A G E B O X Y S I Z
0100400 E ) 006 002 o f 006 001 I M O B J S
0100420 I Z E ) \r
0100440
*
0100500 S C A L
0100520 E ) ) ) \r (
0100540 006 002 r e p l a c e 006 001 ( S K I
0100560 M A G E O B J S K I M O B J .
0100600 O F F S E T P O S ) 006 002 o f 006
0100620 001 I M A G E O B J 006 002 w i t
0100640 h 006 001 ( 006 002 c r e a t e 006 001
0100660 P O S I T I O N \r
0100700
*
0101000 X C O O R D _ \r
0101020
*
0101120 ( 006 002 f e t c h 006 001
0101140 ( I M A G E B O X X K E R N
0101160 ) \r
0101200
*
0101260 006
0101300 002 o f 006 001 I M O B J S I Z E )
0101320 \r
0101340
*
0101420 Y C O O R
0101440 D _ \r
0101460
*
0101540 ( 006
0101560 002 f e t c h 006 001 ( I M A G E B
0101600 O X Y D E S C ) \r
0101620
*
0101720 006 002 o f 006 001 I M
0101740 O B J S I Z E ) ) ) \r
0101760 ( R E T U R N I M O
0102000 B J E L T ] ) \r \r ( 006 004 S K E T
0102020 C H . C R E A T E . I M A G E .
0102040 O B J E C T 006 001 \r [ L A M B
0102060 D A ( I M A G E O B J P O S
0102100 I T I O N S C A L E ) 006 006 006 001
0102120
0102140 006 006 ( * r
0102160 r b " 8 - J u l - 8 6 1 2
0102200 : 3 8 " ) 006 001 \r
0102220
*
0102300 006 006 ( * c r e a t e
0102320 s a s k e t c h e l e m e
0102340 n t f r o m a n \r 006 001
0102360
*
0102440 006 006 i m a
0102460 g e o b j e c t . ) 006 001 \r
0102500 \r
0102520 006 006 ( * c a l l s u p
0102540 d a t e o b j e c t w i t h
0102560 N I L v i e w e r b e c a
0102600 u s e n o v i e w e r i s
0102620 k n o w n . \r 006 001
0102640 006 006 T h e i m a g e
0102660 o b j e c t m u s t g e t
0102700 c a l l e d t o c a l c u l
0102720 a t e t h e s i z e w h i
0102740 c h s h o u l d b e i n
0102760 \r 006 001 006 006 D
0103000 I S P L A Y c o o r d i n a t
0103020 e s . M a y b e c o u l d
0103040 c r e a t e a d u m m y d
0103060 i s p l a y s t r e a m a n
0103100 d p a s s t h a t \r 006 001
0103120 006 006 d o w n .
0103140 ) 006 001 \r \r ( 006 002 S K . U
0103160 P D A T E . I M A G E O B J E C
0103200 T . A F T E R . C H A N G E 006 001
0103220 ( 006 002 S K E T C H . C R E A T
0103240 E . I M A G E . O B J E C T 1 006
0103260 001 I M A G E O B J P O S I T
0103300 I O N S C A L E ) \r
0103320 N I L ] ) \r \r ( 006 004
0103340 S K E T C H . C R E A T E . I M
0103360 A G E . O B J E C T 1 006 001 \r
0103400 [ L A M B D A ( I M A G E O B
0103420 J P O S I T I O N S C A L E
0103440 ) 006 006 006 001
0103460 006
0103500 006 ( * r r b " 8 - J u l -
0103520 8 6 1 2 : 1 2 " ) 006 001 \r
0103540
*
0103620 006 006 ( * c
0103640 r e a t e s a s k e t c h
0103660 e l e m e n t f r o m a n
0103700 \r 006 001
0103720
*
0104000 006 006 i m a g e o b j e c t . )
0104020 006 001 \r ( C O N D \r
0104040 ( ( N U M B E R P S C
0104060 A L E ) ) \r ( ( N
0104100 U L L S C A L E ) \r
0104120 ( S E T Q S C A L E 1
0104140 . 0 ) ) \r ( T (
0104160 \ I L L E G A L . A R G S C A
0104200 L E ) ) ) \r ( C O N D \r
0104220 ( ( N U L L P O
0104240 S I T I O N ) ) \r
0104260 ( ( P O S I T I O N P P O S I
0104300 T I O N ) ) \r ( T
0104320 ( \ I L L E G A L . A R G P
0104340 O S I T I O N ) ) ) \r (
0104360 006 002 c r e a t e 006 001 G L O B A
0104400 L P A R T \r
0104420 I N D I V I D U A L G L O B A
0104440 L P A R T _ ( 006 002 c r e a t
0104460 e 006 001 S K I M A G E O B J \r
0104500
*
0104540 S K I M A G E O
0104560 B J _ I M A G E O B J \r
0104600
*
0104640 S K I M O B J . G
0104660 L O B A L R E G I O N _ ( C
0104700 R E A T E R E G I O N \r
0104720
*
0105000 ( C O
0105020 N D \r
0105040
*
0105120 ( P O S I T I O N
0105140 ( 006 002 f e t c h 006 001 ( P O S
0105160 I T I O N X C O O R D \r
0105200
*
0105320 ) \r
0105340
*
0105440 006 002 o f
0105460 006 001 P O S I T I O N ) ) \r
0105500
*
0105600 ( T 0 ) ) \r
0105620
*
0105700 ( C O N D \r
0105720
*
0106020 ( P O S I T I O N ( 006
0106040 002 f e t c h 006 001 ( P O S I T I
0106060 O N Y C O O R D \r
0106100
*
0106220 ) \r
0106240
*
0106340 006 002 o f 006 001
0106360 P O S I T I O N ) ) \r
0106400
*
0106460 (
0106500 T 0 ) ) \r
0106520
*
0106600 1 1 ) \r
0106620
*
0106660 S K I M O B J . O R I
0106700 G S C A L E _ S C A L E ) \r
0106720 C O M M O
0106740 N G L O B A L P A R T _ ( 006
0106760 002 c r e a t e 006 001 C O M M O N
0107000 G L O B A L P A R T \r
0107020
*
0107060 M A X S C A L E _ ( T I M E
0107100 S S C A L E M I N I M U M .
0107120 V I S I B L E . S C A L E . F A
0107140 C T O R ) \r
0107160
0107200 M I N S C
0107220 A L E _ ( Q U O T I E N T
0107240 S C A L E D E F A U L T . V I
0107260 S I B L E . S C A L E . F A C T
0107300 O R ] ) \r ) \r ( D E F I N E Q \r
0107320 \r ( 006 004 S K . I M A G E O B J .
0107340 D R A W F N 006 001 \r [ L A M B
0107360 D A ( I M A G E O B J E L T
0107400 W I N D O W R E G I O N ) 006 006
0107420 006 001
0107440 006 006 ( * r
0107460 r b " 2 5 - O c t - 8 4 1 0
0107500 : 2 7 " ) 006 001 \r
0107520
*
0107600 006 006 ( * s h o w s
0107620 a n i m a g e o b j e c t
0107640 e l e m e n t ) 006 001 \r (
0107660 P R O G ( ( I M A G E O B J
0107700 ( 006 002 f e t c h 006 001 ( S K I M
0107720 A G E O B J S K I M A G E O B
0107740 J ) 006 002 o f 006 001 ( 006 002 f e t
0107760 c h 006 001 ( S C R E E N E L T
0110000 I N D I V I D U A L G L O B A L
0110020 P A R T ) \r
0110040
*
0110120 006 002 o f 006 001 I M A G E O B J E
0110140 L T ) ) ) \r
0110160 ( L O C A L I M O B J ( 006 002
0110200 f e t c h 006 001 ( S C R E E N E
0110220 L T L O C A L P A R T ) 006 002
0110240 o f 006 001 I M A G E O B J E L T
0110260 ) ) \r L O
0110300 C A L P O S L O C A L O F F S
0110320 E T ) \r ( S
0110340 E T Q L O C A L P O S ( 006 002
0110360 f e t c h 006 001 ( L O C A L S K
0110400 I M A G E O B J S K I M O B J
0110420 L O C A L P O S ) 006 002 o f 006 001
0110440 L O C A L I M O B J ) ) \r
0110460 ( S E T Q L O
0110500 C A L O F F S E T ( 006 002 f e t
0110520 c h 006 001 ( L O C A L S K I M A
0110540 G E O B J S K I M O B J L O C
0110560 A L O F F S E T P O S ) 006 002 o
0110600 f 006 001 L O C A L I M O B J ) )
0110620 \r
0110640
*
0110700 006 006
0110720 ( * m o v e s t r e a m t
0110740 o c o r r e c t p o s i t i
0110760 o n . ) 006 001 \r
0111000 ( M O V E T O ( P L U S (
0111020 006 002 f e t c h 006 001 ( P O S I T
0111040 I O N X C O O R D ) 006 002 o f
0111060 006 001 L O C A L P O S ) \r
0111100
0111120 ( 006 002 f e t c h 006 001
0111140 ( P O S I T I O N X C O O R D
0111160 ) 006 002 o f 006 001 L O C A L O F
0111200 F S E T ) ) \r
0111220 ( P L U S ( 006
0111240 002 f e t c h 006 001 ( P O S I T I
0111260 O N Y C O O R D ) 006 002 o f 006
0111300 001 L O C A L P O S ) \r
0111320
0111340 ( 006 002 f e t c h 006 001 ( P
0111360 O S I T I O N Y C O O R D )
0111400 006 002 o f 006 001 L O C A L O F F S
0111420 E T ) ) \r
0111440 W I N D O W ) \r
0111460 ( C O N D \r
0111500 ( ( 006 002 t
0111520 y p e ? 006 001 A N N O ( I M A
0111540 G E O B J P R O P I M A G E O
0111560 B J ' O B J E C T D A T U M )
0111600 ) \r
0111620
*
0111660 006
0111700 006 ( * h a n d l e a n n o t
0111720 a t i o n s s p e c i a l l y
0111740 s o \r 006 001
0111760
*
0112040 006 006 t h e y g e t t
0112060 h e s c a l e . ) 006 001 \r
0112100 ( A N N O
0112120 . D I S P L A Y F N I M A G E
0112140 O B J W I N D O W ( I M A G
0112160 E S T R E A M T Y P E W I N D
0112200 O W ) \r
0112220 N I L \r
0112240
0112260 ( 006 002 f e t c h 006 001 ( L O
0112300 C A L S K I M A G E O B J S K
0112320 I M O B J L O C A L S C A L E )
0112340 006 002 o f 006 001 L O C A L I M O
0112360 B J ) ) ) \r
0112400 ( T ( A P P L Y * ( I
0112420 M A G E O B J P R O P I M A G
0112440 E O B J ' D I S P L A Y F N )
0112460 \r
0112500 I M A G E O B J
0112520 W I N D O W ] ) \r \r ( 006 004 S K
0112540 . I M A G E O B J . R E G I O N
0112560 F N 006 001 \r [ L A M B D A (
0112600 I M A G E O J B E L T ) 006 006 006 001
0112620
*
0112660 006 006 ( * r r b "
0112700 4 - O c t - 8 4 1 3 : 3 4 "
0112720 ) 006 001 \r
0112740
*
0113020 006 006 ( * d e t e r m i n e s
0113040 t h e l o c a l r e g i o
0113060 n c o v e r e d \r 006 001
0113100
*
0113160 006 006 b y i
0113200 m a g e o b j e c t e l t .
0113220 ) 006 001 \r ( 006 002 f e t c h
0113240 006 001 ( L O C A L S K I M A G E
0113260 O B J S K I M O B J L O C A L
0113300 R E G I O N ) 006 002 o f 006 001 (
0113320 006 002 f e t c h 006 001 ( S C R E E
0113340 N E L T L O C A L P A R T )
0113360 006 002 o f 006 001 I M A G E O J B E
0113400 L T ] ) \r \r ( 006 004 S K . I M A G
0113420 E O B J . G L O B A L R E G I O
0113440 N F N 006 001 \r [ L A M B D A
0113460 ( G I M O B J E L T ) 006 006 006 001
0113500
*
0113540 006 006 ( * r r b
0113560 " 1 8 - O c t - 8 5 1 0 : 3 3
0113600 " ) 006 001 \r \r
0113620 006 006 ( * r
0113640 e t u r n s t h e g l o b a
0113660 l r e g i o n o c c u p i e
0113700 d b y a g l o b a l i m
0113720 a g e o b j e c t e l e m e
0113740 n t . ) 006 001 \r \r ( 006 002 f
0113760 e t c h 006 001 ( S K I M A G E O
0114000 B J S K I M O B J . G L O B A
0114020 L R E G I O N ) 006 002 o f 006 001
0114040 ( 006 002 f e t c h 006 001 ( G L O B
0114060 A L P A R T I N D I V I D U A
0114100 L G L O B A L P A R T ) 006 002 o
0114120 f 006 001 G I M O B J E L T \r
0114140
*
0114220 ] ) \r \r ( 006 004 S K . I
0114240 M A G E O B J . T R A N S L A T
0114260 E F N 006 001 \r [ L A M B D A
0114300 ( G I M A G E O B J D E L T A
0114320 P O S W I N D O W ) 006 006 006 001
0114340
0114360 006 006 ( * r r b
0114400 " 1 5 - D e c - 8 6 1 5 : 3 4
0114420 " ) 006 001 \r
0114440
*
0114520 006 006 ( * m o v e s a i
0114540 m a g e o b j f i g u r e e
0114560 l e m e n t t o \r 006 001
0114600
*
0114660 006 006 a n e
0114700 w p o s i t i o n . ) 006 001 \r
0114720 ( P R O G ( ( I N D I M
0114740 A G E O B J E L T ( 006 002 f e t
0114760 c h 006 001 ( G L O B A L P A R T
0115000 I N D I V I D U A L G L O B A
0115020 L P A R T ) 006 002 o f 006 001 G I
0115040 M A G E O B J ) ) \r
0115060 I M A G E O B J F N
0115100 ) \r ( C O N
0115120 D \r (
0115140 ( A N D ( S E T Q F N ( I
0115160 M A G E O B J P R O P ( S E T
0115200 Q I M A G E O B J ( 006 002 f e
0115220 t c h 006 001 ( S K I M A G E O B
0115240 J S K I M A G E O B J ) 006 002
0115260 o f 006 001 \r
0115300
*
0115400 I N D
0115420 I M A G E O B J E L T \r
0115440
*
0115520 ) ) \r
0115540
*
0115600 ' W H E N M O V E D F N ) )
0115620 \r
0115640 ( N E Q F N ' N I L
0115660 L ) ) \r \r
0115700 006 006 ( * d o
0115720 c u m e n t a t i o n c a l l
0115740 s f o r p a s s i n g t e
0115760 x t s t r e a m s a s w e
0116000 l l b u t t h e r e a r e
0116020 n ' t a n y . ) 006 001 \r \r
0116040 ( A P P L
0116060 Y * F N I M A G E O B J W
0116100 I N D O W W I N D O W ) ) )
0116120 006 006 ( * u
0116140 p d a t e t h e r e g i o n
0116160 p o s i t i o n s . ) 006 001 \r
0116200 ( R E T U R N
0116220 ( 006 002 c r e a t e 006 001 G L O
0116240 B A L P A R T \r
0116260
0116300 C O M M O N G L O B A L P A R
0116320 T _ ( A P P E N D ( 006 002 f
0116340 e t c h 006 001 ( G L O B A L P A
0116360 R T C O M M O N G L O B A L P
0116400 A R T ) 006 002 o f 006 001 G I M A
0116420 G E O B J \r
0116440
*
0116520 ) ) \r
0116540 I N D
0116560 I V I D U A L G L O B A L P A R
0116600 T _ ( 006 002 c r e a t e 006 001
0116620 S K I M A G E O B J 006 002 u s i
0116640 n g 006 001 I N D I M A G E O B J
0116660 E L T \r
0116700
*
0116760 S K
0117000 I M O B J . G L O B A L R E G I
0117020 O N _ \r
0117040
*
0117120 ( 006
0117140 002 T R A N S L A T E . R E G I O
0117160 N 006 001 \r
0117200
*
0117260 ( 006
0117300 002 f e t c h 006 001 ( S K I M A G
0117320 E O B J \r
0117340
*
0117440 S K I M O B J . G
0117460 L O B A L R E G I O N \r
0117500
*
0117620 ) \r
0117640
*
0117740 006 002 o f 006 001 I N D I M A
0117760 G E O B J E L T ) \r
0120000
*
0120100 ( 006 002 f e t c h 006 001 (
0120120 P O S I T I O N X C O O R D )
0120140 \r
0120160
*
0120240 006 002
0120260 o f 006 001 D E L T A P O S ) \r
0120300
*
0120400 ( 006 002 f e t c
0120420 h 006 001 ( P O S I T I O N Y C
0120440 O O R D ) \r
0120460
*
0120560 006 002 o f 006 001 D E L T A P
0120600 O S ] ) \r \r ( 006 004 S K . I M A G
0120620 E O B J . E X P A N D F N 006 001 \r
0120640 [ L A M B D A ( G I M A G
0120660 E O B J P A R T S C A L E ) 006
0120700 006 006 001
0120720
0120740 006 006 ( * r r b " 1 1 - J u
0120760 l - 8 6 1 5 : 5 5 " ) 006 001 \r
0121000 \r
0121020 006 006 ( * c r e a t e s
0121040 a l o c a l i m a g e o b
0121060 j e c t s c r e e n e l e m
0121100 e n t f r o m a g l o b a
0121120 l i m a g e o b j e c t \r 006
0121140 001 006 006 e l e
0121160 m e n t . ) 006 001 \r \r ( P
0121200 R O G ( ( G I M A G E O B J
0121220 ( 006 002 f e t c h 006 001 ( G L O B
0121240 A L P A R T I N D I V I D U A
0121260 L G L O B A L P A R T ) 006 002 o
0121300 f 006 001 G I M A G E O B J P A R
0121320 T ) ) \r L
0121340 O C A L R E G L O C A L P O S
0121360 I M A G E S I Z E ) \r
0121400 ( S E T Q L O C A
0121420 L R E G ( S K . S C A L E . R
0121440 E G I O N ( 006 002 f e t c h 006 001
0121460 ( S K I M A G E O B J S K I
0121500 M O B J . G L O B A L R E G I O
0121520 N ) 006 002 o f 006 001 G I M A G E
0121540 O B J ) \r
0121560
0121600 S C A L E ) ) \r
0121620 ( R E T U R N (
0121640 006 002 c r e a t e 006 001 S C R E E
0121660 N E L T \r
0121700 L O
0121720 C A L P A R T _ ( 006 002 c r e
0121740 a t e 006 001 L O C A L S K I M A
0121760 G E O B J \r
0122000
*
0122040 S K I M O B J L O C A L P O
0122060 S _ ( 006 002 c r e a t e 006 001
0122100 P O S I T I O N \r
0122120
*
0122200 X C
0122220 O O R D _ ( 006 002 f e t c h 006
0122240 001 ( R E G I O N L E F T ) \r
0122260
*
0122400 006 002 o f 006 001 L O C A L R E G
0122420 ) \r
0122440
*
0122520 Y C O O R D _
0122540 ( 006 002 f e t c h 006 001 ( R E G I
0122560 O N B O T T O M ) \r
0122600
*
0122700 006 002 o f
0122720 006 001 L O C A L R E G ) ) \r
0122740
*
0123000 S K I M O B
0123020 J L O C A L S C A L E _ ( Q
0123040 U O T I E N T S C A L E ( 006
0123060 002 f e t c h 006 001 ( S K I M A G
0123100 E O B J \r
0123120
*
0123220 \r
0123240
*
0123360 S K I M O B J . O R I G S C
0123400 A L E \r
0123420
*
0123520 ) \r
0123540
*
0123660 006 002 o f 006 001 G I M A G E O B
0123700 J ) ) \r
0123720
*
0123760 S K I M O B J L O C A L R E G I
0124000 O N _ L O C A L R E G \r
0124020
*
0124060 S K I M O B
0124100 J L O C A L O F F S E T P O S
0124120 _ ( S K . S C A L E . P O S I
0124140 T I O N . I N T O . V I E W E R
0124160 \r
0124200
*
0124260 ( 006 002 f e t c h 006 001
0124300 ( S K I M A G E O B J \r
0124320
*
0124440 S K I M O B J . O F F S E T P
0124460 O S ) \r
0124500
*
0124560 006 002 o f
0124600 006 001 G I M A G E O B J ) \r
0124620
*
0124720 S C A L E ) ) \r
0124740
0124760 G L O B A L P A R T _
0125000 G I M A G E O B J P A R T ] )
0125020 \r \r ( 006 004 S K . I M A G E O B J
0125040 . I N S I D E F N 006 001 \r [ L
0125060 A M B D A ( G I M A G E O B J
0125100 W R E G ) 006 006 006 001
0125120
0125140 006 006 (
0125160 * r r b " 3 1 - M a r - 8 4
0125200 0 9 : 1 5 " ) 006 001 \r
0125220 \r
0125240 006 006 ( * d e t e r m i n e s
0125260 i f t h e g l o b a l a n
0125300 n o t a t i o n e l e m e n t
0125320 i s i n s i d e o f W R
0125340 E G . ) 006 001 \r \r ( R E G
0125360 I O N S I N T E R S E C T P (
0125400 006 002 f e t c h 006 001 ( S K I M A
0125420 G E O B J S K I M O B J . G L
0125440 O B A L R E G I O N ) 006 002 o f
0125460 006 001 ( 006 002 f e t c h 006 001 ( G
0125500 L O B A L P A R T \r
0125520
*
0125620 I N D I
0125640 V I D U A L G L O B A L P A R T
0125660 \r
0125700
*
0126000 ) 006 002 o f 006 001 G I M A G
0126020 E O B J ) ) \r
0126040 W R E G ] ) \r \r ( 006 004 S K .
0126060 I M A G E O B J . M O V E F N 006
0126100 001 \r [ L A M B D A ( I M A
0126120 G E O B J E L T S E L P O S
0126140 N E W I N P U T P T W I N D O
0126160 W ) 006 006 006 001
0126200 006 006 ( * r r b " 1 1 -
0126220 J u l - 8 6 1 5 : 5 1 " ) 006 001
0126240 \r
0126260
*
0126320 006 006
0126340 ( * m o v e s a a n n o t
0126360 a t i o n e l e m e n t t o
0126400 a n e w \r 006 001
0126420
*
0126500 006 006 p o s i t i o
0126520 n . ) 006 001 \r ( P R O G
0126540 ( ( G I M O B J ( 006 002 f e t c
0126560 h 006 001 ( S C R E E N E L T G
0126600 L O B A L P A R T ) 006 002 o f 006
0126620 001 I M A G E O B J E L T ) ) \r
0126640 ( S C A L
0126660 E D N E W P O S ( S K . M A P
0126700 . I N P U T . P T . T O . G L O
0126720 B A L N E W I N P U T P T (
0126740 V I E W E R . S C A L E W I N
0126760 D O W ) ) ) \r
0127000 G R E G G I N D V F N
0127020 I M A G E O B J )
0127040
0127060 006 006 ( * u p d a t e
0127100 t h e p o s i t i o n ) 006 001 \r
0127120 [ S E T Q
0127140 G R E G ( 006 002 f e t c h 006 001
0127160 ( S K I M A G E O B J S K I M
0127200 O B J . G L O B A L R E G I O N
0127220 ) 006 002 o f 006 001 ( S E T Q G
0127240 I N D V ( 006 002 f e t c h 006 001
0127260 ( G L O B A L P A R T \r
0127300
*
0127420 \r
0127440
*
0127540 I N D I V I D U A L G L O
0127560 B A L P A R T \r
0127600
*
0127700 ) 006
0127720 002 o f 006 001 G I M O B J ] \r
0127740 ( 006 002 r e p l a
0127760 c e 006 001 ( S K I M A G E O B J
0130000 S K I M O B J . G L O B A L R
0130020 E G I O N ) 006 002 o f 006 001 G I
0130040 N D V 006 002 w i t h 006 001 ( C R
0130060 E A T E R E G I O N ( 006 002 f e
0130100 t c h 006 001 ( P O S I T I O N \r
0130120
*
0130240 X C O O R D )
0130260 \r
0130300
*
0130400 006 002 o f 006 001 S C A L
0130420 E D N E W P O S ) \r
0130440
*
0130540 ( 006 002 f e t c h 006 001 (
0130560 P O S I T I O N Y C O O R D )
0130600 \r
0130620
*
0130700 006 002
0130720 o f 006 001 S C A L E D N E W P O
0130740 S ) \r
0130760
*
0131040 ( 006 002
0131060 f e t c h 006 001 ( R E G I O N
0131100 W I D T H ) \r
0131120
*
0131220 006 002 o f 006 001 G R E G )
0131240 \r
0131260
*
0131340 ( 006 002 f e
0131360 t c h 006 001 ( R E G I O N H E
0131400 I G H T ) \r
0131420
*
0131520 006 002 o f 006 001 G R E G ) )
0131540 ) \r ( C O N
0131560 D \r (
0131600 ( A N D ( S E T Q F N ( I
0131620 M A G E O B J P R O P ( S E T
0131640 Q I M A G E O B J ( 006 002 f e
0131660 t c h 006 001 ( S K I M A G E O B
0131700 J S K I M A G E O B J ) 006 002
0131720 o f 006 001 G I N D V ) ) \r
0131740
*
0132000 ' W H E N M O V E D F N ) ) \r
0132020
0132040 ( N E Q F N ' N I L L )
0132060 ) \r \r
0132100 006 006 ( * d o c u
0132120 m e n t a t i o n c a l l s
0132140 f o r p a s s i n g t e x t
0132160 s t r e a m s a s w e l l
0132200 b u t t h e r e a r e n '
0132220 t a n y . ) 006 001 \r \r
0132240 ( A P P L Y *
0132260 F N I M A G E O B J W I N
0132300 D O W ) ) ) \r
0132320 ( R E T U R N G I M O B J ]
0132340 ) \r \r ( 006 004 S K . I M A G E O B
0132360 J . C H A N G E F N 006 001 \r [
0132400 L A M B D A ( I M A G E O B J
0132420 E L T S W I N D O W H O W )
0132440 006 006 006 001
0132460 006 006
0132500 ( * r r b " 4 - F e b - 8
0132520 6 1 4 : 5 8 " ) 006 001 \r
0132540 \r
0132560 006 006 ( * * u s e r h a s
0132600 i n d i c a t e d t h a t
0132620 t h e y w a n t t o c h a
0132640 n g e t h e i m a g e o b
0132660 j e c t i n \r 006 001
0132700 006 006 I M A G E O B J E
0132720 L T ) 006 001 \r
0132740
*
0133020 006 006 ( * H O W i s a
0133040 l w a y s T b e c a u s e
0133060 \r 006 001
0133100
*
0133160 006 006 S K . I M A G E O B J . R E
0133200 A D C H A N G E F N a l w a y
0133220 s \r 006 001
0133240
*
0133320 006 006 r e t u r n s T ) 006 001
0133340 \r
0133360
*
0133420 006 006
0133440 ( * f o r n o w o n l y
0133460 w o r k o n t h e f i r s
0133500 t o n e . ) 006 001 \r ( P
0133520 R O G ( F N ( I M A G E O B
0133540 J E L T ( C A R I M A G E O
0133560 B J E L T S ) ) \r
0133600 S K I M O B J E L
0133620 T N E W I M A G E O B J I M
0133640 A G E O B J O L D R E G ) \r
0133660 ( S E T Q S
0133700 K I M O B J E L T ( 006 002 f e t
0133720 c h 006 001 ( S C R E E N E L T
0133740 I N D I V I D U A L G L O B A L
0133760 P A R T ) 006 002 o f 006 001 I M A
0134000 G E O B J E L T ) ) \r
0134020 ( S E T Q I M A G E
0134040 O B J ( 006 002 f e t c h 006 001 (
0134060 S K I M A G E O B J S K I M A
0134100 G E O B J ) 006 002 o f 006 001 S K
0134120 I M O B J E L T ) ) \r
0134140 \r
0134160 006 006 ( * c a l l t h e B U
0134200 T T O N E V E N T I N F N e v
0134220 e n t h o u g h t h i s m
0134240 a y n o t w o r k b e c a
0134260 u s e m u c h \r 006 001
0134300 006 006 i n f o r m a t
0134320 i o n i s u n a v a i l a b
0134340 l e . ) 006 001 \r \r
0134360 ( C O N D \r
0134400 ( ( A N D ( S E T Q
0134420 F N ( I M A G E O B J P R O
0134440 P I M A G E O B J ' B U T T
0134460 O N E V E N T I N F N ) ) \r
0134500
0134520 ( N E Q F N ' N I L L ) )
0134540 \r (
0134560 A N D ( S E T Q N E W I M A
0134600 G E O B J ( A P P L Y * ( I
0134620 M A G E O B J P R O P I M A G
0134640 E O B J ' B U T T O N E V E N
0134660 T I N F N ) \r
0134700
*
0134740 I M A G E O B J W I N D
0134760 O W ) ) \r
0135000 ( R E T U R N
0135020 ( L I S T ( 006 002 c r e a t e 006
0135040 001 S K H I S T O R Y C H A N G
0135060 E S P E C \r
0135100
0135120 N E
0135140 W E L T _ ( 006 002 S K E T C H
0135160 . I M A G E . O B J E C T . E L
0135200 E M E N T 006 001 \r
0135220
*
0135260 ( C O N D \r
0135300
*
0135360 ( ( 006 002 t y p e ? 006 001
0135400 I M A G E O B J N E W I M A
0135420 G E O B J ) \r
0135440
*
0135500 N E W
0135520 I M A G E O B J ) \r
0135540
*
0135600 (
0135620 T I M A G E O B J ) ) \r
0135640
*
0135700 (
0135720 006 002 f e t c h 006 001 ( S K I M A
0135740 G E O B J S K I M O B J . O R
0135760 I G S C A L E ) 006 002 o f 006 001
0136000 S K I M O B J E L T \r
0136020
*
0136100 ) \r
0136120
*
0136160 ( 006 002 c r e a t
0136200 e 006 001 P O S I T I O N \r
0136220
*
0136300 X C O O R D _ (
0136320 006 002 f e t c h 006 001 ( R E G I O
0136340 N L E F T ) \r
0136360
*
0136440 006 002 o
0136460 f 006 001 ( S E T Q O L D R E G
0136500 \r
0136520
*
0136600 ( 006 002 f e t
0136620 c h 006 001 ( S K I M A G E O B J
0136640 \r
0136660
*
0136760 S K I M O B J . G L O B A
0137000 L R E G I O N \r
0137020
*
0137120 )
0137140 006 002 o f 006 001 \r
0137160
*
0137300 S K I M O B J E L T \r
0137320
*
0137420 )
0137440 ) ) \r
0137460
*
0137520 Y C O O
0137540 R D _ ( 006 002 f e t c h 006 001
0137560 ( R E G I O N B O T T O M )
0137600 006 002 o f 006 001 O L D R E G ) ) \r
0137620
*
0137700 W I N D O W ) \r
0137720
*
0137760 O L D E L T _ ( 006 002 f e
0140000 t c h 006 001 ( S C R E E N E L T
0140020 G L O B A L P A R T ) 006 002 o
0140040 f 006 001 I M A G E O B J E L T )
0140060 \r
0140100
0140120 P R O P E R T
0140140 Y _ ' D A T A \r
0140160
*
0140220 N E W V A L U E _ N E W
0140240 I M A G E O B J \r
0140260
*
0140320 O L D V A L U E _ I M A G
0140340 E O B J ] ) \r \r ( 006 004 S K . I M
0140360 A G E O B J . R E A D C H A N G
0140400 E F N 006 001 \r [ L A M B D A
0140420 ( S K W )
0140440
*
0140500 006 006 ( * r e t u r n T
0140520 s o S K . I M A G E . O B J
0140540 . C H A N G E F N \r 006 001
0140560
*
0140640 006 006 w i l l
0140660 a l w a y s b e c a l l e
0140700 d . ) 006 001 \r T ] ) \r \r (
0140720 006 004 S K . I M A G E O B J . T R
0140740 A N S F O R M F N 006 001 \r [ L
0140760 A M B D A ( G E L T T R A N
0141000 S F O R M F N T R A N S F O R
0141020 M D A T A S C A L E F A C T O
0141040 R ) 006 006 006 001 006 006 (
0141060 * r r b " 1 5 - D e c - 8 6
0141100 1 5 : 3 5 " ) 006 001 \r
0141120 \r
0141140 006 006 ( * * r e t u r n s a
0141160 c o p y o f t h e g l o
0141200 b a l S K I M A G E O B J e
0141220 l e m e n t t h a t h a s
0141240 i t s r e g i o n \r 006 001
0141260 006 006 t r a n s f
0141300 o r m e d b y t r a n s f o
0141320 r m f n . T R A N S F O R M D
0141340 A T A i s a r b i t r a r y
0141360 d a t a t h a t i s p a
0141400 s s e d t o \r 006 001
0141420 006 006 t r a n f o r m f
0141440 n . ) 006 001 \r \r ( P R O G
0141460 ( ( I N D V P A R T ( 006 002 f
0141500 e t c h 006 001 ( G L O B A L P A
0141520