$ od -c -N 50000 [phylum]<LISPUSERS>Lyric>colorobj!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 4 - F e b - 8 7 2 3 : 5 8 : 4
0000140 2 " 006 004 { E R I S } < L I S P
0000160 U S E R S > L Y R I C > C O L O
0000200 R O B J . ; 2 006 001 7 8 6 8
0000220 \r \r c h a n g e s
0000240 t o % : ( V A R S C O L
0000260 O R O B J C O M S C O L O R O
0000300 B J F N S ) \r \r p r
0000320 e v i o u s d a t e % : " 2
0000340 6 - F e b - 8 6 1 4 : 4 7 : 4
0000360 0 " { E R I S } < L I S P U S
0000400 E R S > L Y R I C > C O L O R O
0000420 B J . ; 1 ) \r \r \r ( * " \r C o
0000440 p y r i g h t ( c ) 1 9 8 5
0000460 , 1 9 8 6 , 1 9 8 7 b y
0000500 X e r o x C o r p o r a t i o
0000520 n . A l l r i g h t s r
0000540 e s e r v e d . \r " ) \r \r ( P R
0000560 E T T Y C O M P R I N T C O L
0000600 O R O B J C O M S ) \r \r ( R P A
0000620 Q Q 006 002 C O L O R O B J C O M
0000640 S 006 001 [ ( F N S * C O L O
0000660 R O B J F N S ) \r
0000700 ( F
0000720 I L E S C O L O R ) \r
0000740
0000760 ( I N I T V A R S ( C O L O
0001000 R O B J . D E F A U L T . C O L
0001020 O R ' R E D ) ) \r
0001040 (
0001060 V A R S ( C O L O R O B J F N
0001100 S ' ( C O L O R O B J . C R E
0001120 A T E C O L O R O B J . D I S
0001140 P L A Y F N C O L O R O B J .
0001160 G E T F N \r
0001200
*
0001240 C O L O R O B J .
0001260 I M A G E B O X F N C O L O R
0001300 O B J . P U T F N C O L O R O
0001320 B J . C O P Y F N \r
0001340
*
0001400 C O L O R
0001420 O B J . W H E N O P E R A T E D
0001440 O N F N ) ) \r
0001460
0001500 ( C O L O R O B J . I M A G
0001520 E F N S ( I M A G E F N S C R
0001540 E A T E ( F U N C T I O N C
0001560 O L O R O B J . D I S P L A Y F
0001600 N ) \r
0001620
*
0001660 ( F U N C T I O
0001700 N C O L O R O B J . I M A G E
0001720 B O X F N ) \r
0001740
*
0002000 ( F U N
0002020 C T I O N C O L O R O B J . P
0002040 U T F N ) \r
0002060
*
0002120 ( F U N C
0002140 T I O N C O L O R O B J . G E
0002160 T F N ) \r
0002200
*
0002240 ( F U N C T
0002260 I O N C O L O R O B J . C O P
0002300 Y F N ) \r
0002320
*
0002360 ( F U N C T
0002400 I O N C O L O R O B J . B U T
0002420 T O N E V E N T F N ) \r
0002440
*
0002520 ( F U N C T I O N N I L L )
0002540 \r
0002560
*
0002620 ( F U N C T I O N
0002640 N I L L ) \r
0002660
*
0002720 ( F U N C
0002740 T I O N N I L L ) \r
0002760
*
0003040 ( F U N C T I O N N I L L ) \r
0003060
*
0003140 ( F U N C T I O N N
0003160 I L L ) \r
0003200
*
0003240 ( F U N C T
0003260 I O N C O L O R O B J . W H E
0003300 N O P E R A T E D O N F N ) \r
0003320
*
0003400 ( F U N C T I O N N I
0003420 L L ] ) \r \r ( R P A Q Q 006 002 C
0003440 O L O R O B J F N S 006 001 ( C O
0003460 L O R O B J . C R E A T E C O
0003500 L O R O B J . D I S P L A Y F N
0003520 C O L O R O B J . G E T F N
0003540 C O L O R O B J . I M A G E B O
0003560 X F N \r
0003600 C
0003620 O L O R O B J . P U T F N C O
0003640 L O R O B J . C O P Y F N C O
0003660 L O R O B J . W H E N O P E R A
0003700 T E D O N F N ) ) \r ( D E F I N
0003720 E Q \r \r ( 006 004 C O L O R O B J .
0003740 C R E A T E 006 001 \r [ L A M B
0003760 D A ( C O L O R ) 006 006 006 001
0004000
*
0004040 006 006 ( * g
0004060 b n " 1 3 - J a n - 8 6 1 6
0004100 : 0 0 " ) 006 001 \r
0004120 \r 006 006 (
0004140 * * c r e a t e a c o l
0004160 o r o b j e c t . c o l o r
0004200 i s a n y t h i n g a c c
0004220 e p t a b l e t o d s p c o
0004240 l o r \r 006 001
0004260 006 006 ( a t o m s o n c o l o
0004300 r n a m e s , r g b t r i p
0004320 l e s , i n d i c e s ) ) 006 001
0004340 \r \r ( L E T ( ( C O L
0004360 O R O B J ( I M A G E O B J C
0004400 R E A T E N I L C O L O R O
0004420 B J . I M A G E F N S ) ) ) \r
0004440 ( I M A G E O B
0004460 J P R O P C O L O R O B J '
0004500 C O L O R ( O R C O L O R
0004520 C O L O R O B J . D E F A U L T
0004540 . C O L O R ) ) \r
0004560 C O L O R O B J ] ) \r \r ( 006
0004600 004 C O L O R O B J . D I S P L A
0004620 Y F N 006 001 \r [ L A M B D A
0004640 ( C O L O R O B J I M A G E .
0004660 S T R E A M ) 006 006 006 001
0004700
0004720 006 006 ( * g b n
0004740 " 1 3 - J a n - 8 6 1 7 : 5 1
0004760 " ) 006 001 \r \r
0005000 006 006 ( * O
0005020 n t h e d i s p l a y a
0005040 c o l o r o b j e c t s h o
0005060 w s u p a s t h e c o l
0005100 o r n a m e , o t h e r w i
0005120 s e i t h a s \r 006 001
0005140 006 006 n o i m a g
0005160 e . O n a n y s t r e a m
0005200 i t h a s t h e s i d e
0005220 e f f e c t o f c h a n g i
0005240 n g t h e f o r e g r o u n
0005260 d c o l o r ) 006 001 \r \r
0005300 ( L E T * ( ( C O L O R ( I
0005320 M A G E O B J P R O P C O L O
0005340 R O B J ' C O L O R ) ) \r
0005360 ( X ( D S P
0005400 X P O S I T I O N N I L I M
0005420 A G E . S T R E A M ) ) \r
0005440 ( Y ( D S P Y
0005460 P O S I T I O N N I L I M A
0005500 G E . S T R E A M ) ) ) \r
0005520 ( D S P C O L O R
0005540 C O L O R I M A G E . S T R
0005560 E A M ) \r (
0005600 S E L E C T Q ( I M A G E S T
0005620 R E A M T Y P E I M A G E . S
0005640 T R E A M ) \r
0005660 ( D I S P L A Y ( D
0005700 S P F O N T ' ( W E I G H T
0005720 B O L D ) I M A G E . S T R E
0005740 A M ) \r
0005760 ( L E T *
0006000 ( ( S T R I N G ( I M A G E
0006020 O B J P R O P C O L O R O B J
0006040 ' C O L O R ) ) \r
0006060
0006100 ( S T R I N G R
0006120 E G I O N ( S T R I N G R E G
0006140 I O N S T R I N G I M A G E
0006160 . S T R E A M ) ) \r
0006200
0006220 ( L E F T ( A
0006240 D D 1 ( 006 002 f e t c h 006 001 (
0006260 R E G I O N L E F T ) 006 002 o
0006300 f 006 001 S T R I N G R E G I O N
0006320 ) ) ) \r
0006340
0006360 ( B O T T O M ( 006 002 f e t
0006400 c h 006 001 ( R E G I O N B O T
0006420 T O M ) 006 002 o f 006 001 S T R I
0006440 N G R E G I O N ) ) \r
0006460
0006500 ( R E G I O N
0006520 ( 006 002 c r e a t e 006 001 R E G
0006540 I O N \r
0006560
*
0006620 L E F T _ L E F T \r
0006640
*
0006700 B O T T O M
0006720 _ B O T T O M \r
0006740
*
0007000 H E I G H T _
0007020 ( I P L U S ( 006 002 f e t c h 006
0007040 001 ( R E G I O N H E I G H T
0007060 ) 006 002 o f 006 001 S T R I N G R
0007100 E G I O N ) \r
0007120
*
0007200 2 ) \r
0007220
*
0007260 W I D T H _ ( I P L
0007300 U S ( 006 002 f e t c h 006 001 ( R
0007320 E G I O N W I D T H ) 006 002 o
0007340 f 006 001 S T R I N G R E G I O N
0007360 ) \r
0007400
*
0007440 6 )
0007460 ) ) \r
0007500
0007520 ( T O P ( 006 002 f e t c h 006 001
0007540 ( R E G I O N T O P ) 006 002
0007560 o f 006 001 R E G I O N ) ) \r
0007600
0007620 ( R I G
0007640 H T ( 006 002 f e t c h 006 001 ( R
0007660 E G I O N R I G H T ) 006 002 o
0007700 f 006 001 R E G I O N ) ) ) \r
0007720
0007740 ( I M A G
0007760 E O B J P R O P C O L O R O B
0010000 J ' R E G I O N R E G I O N
0010020 ) \r
0010040 (
0010060 C E N T E R P R I N T I N R E G
0010100 I O N S T R I N G R E G I O
0010120 N I M A G E . S T R E A M ) \r
0010140
0010160 ( D R
0010200 A W L I N E L E F T B O T T
0010220 O M L E F T ( S U B 1 T O
0010240 P ) \r
0010260
0010300 1 \r
0010320
0010340 ' I N
0010360 V E R T I M A G E . S T R E A
0010400 M ) \r
0010420
0010440 ( D R A W L I N E L E F T T
0010460 O P ( S U B 1 R I G H T ) \r
0010500
*
0010540 T O P 1 ' I N V E R
0010560 T I M A G E . S T R E A M ) \r
0010600
0010620 ( D R
0010640 A W L I N E R I G H T T O P
0010660 R I G H T ( A D D 1 B O T
0010700 T O M ) \r
0010720
0010740 1 \r
0010760
0011000 '
0011020 I N V E R T I M A G E . S T R
0011040 E A M ) \r
0011060
0011100 ( D R A W L I N E R I G H
0011120 T B O T T O M ( A D D 1 L
0011140 E F T ) \r
0011160
0011200 B O T T O M
0011220 1 ' I N V E R T I M A G E .
0011240 S T R E A M ) ) ) \r
0011260 ( N I L L ] ) \r
0011300 \r ( 006 004 C O L O R O B J . G E T
0011320 F N 006 001 \r [ L A M B D A (
0011340 I N P U T . S T R E A M T E X
0011360 T S T R E A M ) 006 006 006 001
0011400
0011420 006 006 ( * g b n "
0011440 1 3 - J a n - 8 6 1 5 : 4 2 "
0011460 ) 006 001 \r
0011500
*
0011560 006 006 ( * r e a d s t h e
0011600 C O L O R a n d c r e a t e
0011620 s a n \r 006 001
0011640
*
0011720 006 006 C O L O R O B J )
0011740 006 001 \r ( 006 002 C O L O R O
0011760 B J . C R E A T E 006 001 ( R E A
0012000 D I N P U T . S T R E A M ] )
0012020 \r \r ( 006 004 C O L O R O B J . I M
0012040 A G E B O X F N 006 001 \r [ L A
0012060 M B D A ( C O L O R O B J I
0012100 M A G E . S T R E A M C U R R
0012120 E N T . X R I G H T . M A R G
0012140 I N ) 006 006 006 001 006 006 ( *
0012160 g b n " 1 3 - J a n - 8 6
0012200 1 6 : 0 1 " ) 006 001 \r
0012220 \r 006
0012240 006 ( * * R e t u r n s a
0012260 n u l l i m a g e b o x , e
0012300 x c e p t t o t h e d i s
0012320 p l a y , w h e r e i t r
0012340 e t u r n s t h e s i z e
0012360 \r 006 001 006 006 o
0012400 f t h e b o x ) 006 001 \r \r
0012420 ( L E T N I L ( S E L E
0012440 C T Q ( I M A G E S T R E A M
0012460 T Y P E I M A G E . S T R E A
0012500 M ) \r
0012520 ( D I S P L A Y ( 006 002
0012540 c r e a t e 006 001 I M A G E B O
0012560 X \r
0012600
0012620 X S I Z E _ ( I P L U
0012640 S ( S T R I N G W I D T H (
0012660 I M A G E O B J P R O P C O L
0012700 O R O B J ' C O L O R ) \r
0012720
*
0013000 ( D S P F O N T N I
0013020 L I M A G E . S T R E A M ) )
0013040 \r
0013060
*
0013120 8 ) \r
0013140
0013160 Y S I Z E _ ( I P
0013200 L U S ( F O N T H E I G H T
0013220 ( D S P F O N T N I L I M A
0013240 G E . S T R E A M ) ) \r
0013260
*
0013320 4 ) \r
0013340
*
0013400 Y D E S C _ 4 \r
0013420
0013440 X K E R N
0013460 _ 0 ) ) \r
0013500 ( 006 002 c r e a t
0013520 e 006 001 I M A G E B O X \r
0013540
0013560 X S I Z E _ 0 \r
0013600
0013620 Y S I Z E _ 0
0013640 \r
0013660 Y D E S C _
0013700 0 \r
0013720 X K E R N
0013740 _ 0 ] ) \r \r ( 006 004 C O L O R
0013760 O B J . P U T F N 006 001 \r [ L
0014000 A M B D A ( C O L O R O B J
0014020 O U T P U T . S T R E A M ) 006 006
0014040 006 001
0014060 006 006 (
0014100 * g b n " 1 3 - J a n - 8 6
0014120 1 5 : 5 7 " ) 006 001 \r
0014140
*
0014220 006 006 ( * p r i
0014240 n t s o n l y t h e c o l
0014260 o r t o t h e f i l e ) 006
0014300 001 \r ( P R I N T ( I M
0014320 A G E O B J P R O P C O L O R
0014340 O B J ' C O L O R ) \r
0014360 O U T P U T . S T
0014400 R E A M ] ) \r \r ( 006 004 C O L O R
0014420 O B J . C O P Y F N 006 001 \r [
0014440 L A M B D A ( I M A G E O B J
0014460 F R O M S T R E A M T O S T
0014500 R E A M ) 006 006 006 001
0014520 006 006
0014540 ( * g b n " 1 3 - J a n - 8
0014560 6 1 5 : 5 8 " ) 006 001 \r
0014600 ( 006 002 C O L O R O B J . C R E A
0014620 T E 006 001 ( I M A G E O B J P R
0014640 O P I M A G E O B J ' C O L
0014660 O R ) \r T
0014700 O S T R E A M ] ) \r \r ( 006 004 C O
0014720 L O R O B J . W H E N O P E R A
0014740 T E D O N F N 006 001 \r [ L A M
0014760 B D A ( A B C C ) 006 006 006
0015000 001
0015020
0015040 006 006 ( *
0015060 g b n " 6 - J a n - 8 5 1
0015100 3 : 2 3 " ) 006 001 \r
0015120
*
0015200 006 006 ( * D U M M Y
0015220 ) 006 001 \r ] ) \r ) \r ( F I
0015240 L E S L O A D C O L O R ) \r \r
0015260 ( R P A Q ? 006 002 C O L O R O B
0015300 J . D E F A U L T . C O L O R 006
0015320 001 ' R E D ) \r \r ( R P A Q Q
0015340 006 002 C O L O R O B J F N S 006 001
0015360 ( C O L O R O B J . C R E A T E
0015400 C O L O R O B J . D I S P L A
0015420 Y F N C O L O R O B J . G E T
0015440 F N C O L O R O B J . I M A G
0015460 E B O X F N \r
0015500
0015520 C O L O R O B J . P U T F N
0015540 C O L O R O B J . C O P Y F N
0015560 C O L O R O B J . W H E N O P
0015600 E R A T E D O N F N ) ) \r \r ( R
0015620 P A Q 006 002 C O L O R O B J . I
0015640 M A G E F N S 006 001 ( I M A G E
0015660 F N S C R E A T E ( F U N C T
0015700 I O N C O L O R O B J . D I S
0015720 P L A Y F N ) \r
0015740
0015760 ( F U N C T I O N
0016000 C O L O R O B J . I M A G E B
0016020 O X F N ) \r
0016040
0016060 ( F U N C T I O N C
0016100 O L O R O B J . P U T F N ) \r
0016120
0016140 ( F
0016160 U N C T I O N C O L O R O B J
0016200 . G E T F N ) \r
0016220
0016240 ( F U N C T I O N
0016260 C O L O R O B J . C O P Y F N
0016300 ) \r
0016320
0016340 ( F U N C T I O N C O L O R
0016360 O B J . B U T T O N E V E N T F
0016400 N ) \r
0016420
0016440 ( F U N C T I O N N I L L
0016460 ) \r
0016500
0016520 ( F U N C T I O N N I L L )
0016540 \r
0016560
0016600 ( F U N C T I O N N I L L ) \r
0016620
0016640 (
0016660 F U N C T I O N N I L L ) \r
0016700
0016720 ( F
0016740 U N C T I O N N I L L ) \r
0016760
0017000 ( F U
0017020 N C T I O N C O L O R O B J .
0017040 W H E N O P E R A T E D O N F N
0017060 ) \r
0017100
0017120 ( F U N C T I O N N I L L )
0017140 ) ) \r ( P U T P R O P S C O L
0017160 O R O B J C O P Y R I G H T
0017200 ( " X e r o x C o r p o r a t
0017220 i o n " 1 9 8 5 1 9 8 6 1
0017240 9 8 7 ) ) \r ( D E C L A R E % :
0017260 D O N T C O P Y \r ( F I L
0017300 E M A P ( N I L ( 1 9 9 4
0017320 6 8 1 2 ( C O L O R O B J . C
0017340 R E A T E 2 0 0 4 . 2 4 2
0017360 8 ) ( C O L O R O B J . D I S
0017400 P L A Y F N 2 4 3 0 . 4 7
0017420 9 9 ) ( \r C O L O R O B J . G
0017440 E T F N 4 8 0 1 . 5 1 3 6
0017460 ) ( C O L O R O B J . I M A G
0017500 E B O X F N 5 1 3 8 . 6 1
0017520 1 8 ) ( C O L O R O B J . P U
0017540 T F N 6 1 2 0 . 6 4 0 6 )
0017560 ( \r C O L O R O B J . C O P Y
0017600 F N 6 4 0 8 . 6 6 0 1 )
0017620 ( C O L O R O B J . W H E N O P
0017640 E R A T E D O N F N 6 6 0 3
0017660 . 6 8 1 0 ) ) ) ) ) \r S T O P
0017700 \r
0017701