$ od -c -N 50000 [phylum]<LISP>Lyric>LIBRARY>SKETCHCOLOR!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 9 - J a n - 8 7 1 6 : 4 7 : 1
0000140 6 " 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 C O L O R . ; 2 006 001 4 7
0000220 7 9 \r \r c h a
0000240 n g e s t o % : ( V A R S
0000260 B L A C K S H A D E 1 6 D A
0000300 R K G R A Y 1 6 M E D I U M G
0000320 R A Y 1 6 L I G H T G R A Y 1
0000340 6 W H I T E S H A D E 1 6 R
0000360 E D T E X T U R E \r
0000400
0000420 G R E E N T E X T U R
0000440 E B L U E T E X T U R E S K
0000460 E T C H C O L O R C O M S ) \r \r
0000500 p r e v i o u s d
0000520 a t e % : " 2 9 - O c t - 8 5
0000540 1 4 : 4 4 : 3 0 " { E R I S
0000560 } < L I S P C O R E > L I B R A
0000600 R Y > S K E T C H C O L O R . ;
0000620 1 ) \r \r \r ( * " \r C o p y r i
0000640 g h t ( c ) 1 9 8 5 , 1 9
0000660 8 7 b y X e r o x C o r p
0000700 o r a t i o n . A l l r i
0000720 g h t s r e s e r v e d . \r "
0000740 ) \r \r ( P R E T T Y C O M P R I
0000760 N T S K E T C H C O L O R C O
0001000 M S ) \r \r ( R P A Q Q 006 002 S K
0001020 E T C H C O L O R C O M S 006 001
0001040 ( ( F N S C O L O R T E X T U
0001060 R E T E S T L E V E L T E X T
0001100 U R E P R I M A R Y T E X T U
0001120 R E ) \r
0001140 ( V A R
0001160 S ( S K E T C H I N C O L O R
0001200 F L G T ) ) \r
0001220
0001240 ( F I L E S C O L O R S T Y
0001260 L E S H E E T ) \r
0001300
0001320 ( A D V I S E \ F I L L C I
0001340 R C L E . D I S P L A Y \ P O
0001360 L Y S H A D E . D I S P L A Y )
0001400 ) ) \r ( D E F I N E Q \r \r ( 006 004
0001420 C O L O R T E X T U R E T E S T
0001440 006 001 \r [ L A M B D A ( W )
0001460 006 006 006 001
0001500
*
0001540 006 006 ( * r r b " 2 2
0001560 - A u g - 8 5 1 0 : 1 6 " ) 006
0001600 001 \r
0001620
*
0001660 006
0001700 006 ( * p u t s u p a t e
0001720 s t p a t t e r n o f p r
0001740 i m a r y \r 006 001
0001760
*
0002040 006 006 c o l o r s . )
0002060 006 001 \r ( P R O G ( ( L
0002100 F T 9 0 ) ) \r
0002120 ( C L E A R W W ) \r
0002140 ( 006 002 f o r 006 001
0002160 B L U E L E V E L 006 002 f r o m
0002200 006 001 9 4 006 002 b y 006 001 5 0
0002220 006 002 t o 006 001 3 0 0 \r
0002240 006 002 d o 006 001 (
0002260 p r i n t o u t W " B L U E
0002300 : " B L U E L E V E L "
0002320 " ' R E D ) \r
0002340 (
0002360 D S P Y P O S I T I O N ( D I
0002400 F F E R E N C E ( D S P Y P O
0002420 S I T I O N N I L W ) \r
0002440
*
0002500 5 0 ) \r
0002520 W )
0002540 \r
0002560 ( D S P X P O S I T I O N 0
0002600 W ) \r
0002620 ( 006 002 f o r 006 001 G R E
0002640 E N L E V E L 006 002 f r o m 006 001
0002660 9 4 006 002 b y 006 001 5 0 006 002
0002700 t o 006 001 3 0 0 \r
0002720 006 002 d o
0002740 006 001 ( p r i n t o u t W "
0002760 G r e e n : " G R E E N L E
0003000 V E L ) \r
0003020 [ 006 002 f o
0003040 r 006 001 R E D L E V E L 006 002 f
0003060 r o m 006 001 9 4 006 002 b y 006 001
0003100 5 0 006 002 t o 006 001 3 0 0 \r
0003120
0003140 006 002 d o 006 001 ( B
0003160 I T B L T N I L 0 0 W
0003200 ( D I F F E R E N C E R E D L
0003220 E V E L 2 0 ) \r
0003240
0003260 ( D S P
0003300 Y P O S I T I O N N I L W )
0003320 \r
0003340
0003360 4 5 4 5 ' T E X T U
0003400 R E ' R E P L A C E ( T E X
0003420 T U R E O F C O L O R ( L I S
0003440 T R E D L E V E L G R E E N
0003460 L E V E L \r
0003500
*
0003600 B L U E L E V E
0003620 L ] \r
0003640 ( D S P Y P O
0003660 S I T I O N ( D I F F E R E N
0003700 C E ( D S P Y P O S I T I O N
0003720 N I L W ) \r
0003740
*
0004000 5 0 ) \r
0004020
0004040 W ) \r
0004060 ( D S
0004100 P X P O S I T I O N 0 W ] )
0004120 \r \r ( 006 004 L E V E L T E X T U R
0004140 E 006 001 \r [ L A M B D A ( L
0004160 E V E L ) 006 006 006 001
0004200
*
0004240 006 006 ( * r r b " 2
0004260 0 - A u g - 8 5 1 6 : 4 2 " )
0004300 006 001 \r \r
0004320 006 006 ( * r e t
0004340 u r n s a | 1 6 x 1 6 | t
0004360 e x t u r e w h i c h i s
0004400 m e r g e d s o t h a t o
0004420 n l y l i g h t b i t s o
0004440 n b o t h g o \r 006 001
0004460 006 006 t o l i g h
0004500 t w i t h a p r i m a r y
0004520 c o l o r p a t t e r n t
0004540 o g e t a l e v e l p r
0004560 i m a r y p a t t e r n . ) 006
0004600 001 \r \r ( C O N D \r
0004620 ( ( I L E S S P L E V
0004640 E L 1 0 0 ) \r
0004660 B L A C K S H A D E 1 6 ) \r
0004700 ( ( I L E S S P L E
0004720 V E L 1 5 0 ) \r
0004740 D A R K G R A Y 1 6 ) \r
0004760 ( ( I L E S S P L E V
0005000 E L 2 0 0 ) \r
0005020 M E D I U M G R A Y 1 6 ) \r
0005040 ( ( I L E S S P L E
0005060 V E L 2 4 5 ) \r
0005100 L I G H T G R A Y 1 6 ) \r
0005120 ( T W H I T E S H A
0005140 D E 1 6 ] ) \r \r ( 006 004 P R I M A
0005160 R Y T E X T U R E 006 001 \r [ L
0005200 A M B D A ( P R I M A R Y L
0005220 E V E L ) 006 006 006 001
0005240
0005260 006 006 (
0005300 * r r b " 2 0 - A u g - 8 5
0005320 1 6 : 4 2 " ) 006 001 \r
0005340
*
0005420 006 006 ( * r e t
0005440 u r n s t h e | 1 6 x 1 6 |
0005460 t e x t u r e f o r a \r
0005500 006 001
0005520
*
0005560 006
0005600 006 p r i m a r y c o l o r l
0005620 e v e l . ) 006 001 \r ( P R
0005640 O G [ ( T E X T U R E ( B I
0005660 T M A P C O P Y ( S E L E C T
0005700 Q P R I M A R Y \r
0005720
0005740 ( R
0005760 E D R E D T E X T U R E ) \r
0006000
*
0006040 ( B L U E B L U E T E X
0006060 T U R E ) \r
0006100
0006120 ( G R E E N
0006140 G R E E N T E X T U R E ) \r
0006160
*
0006220 ( \ I L L E G A L . A R G
0006240 P R I M A R Y ] \r
0006260 ( B I T B L T ( 006 002 L
0006300 E V E L T E X T U R E 006 001 L E
0006320 V E L ) \r
0006340 0 0 T E X T U R
0006360 E 0 0 1 6 1 6 ' I N P
0006400 U T ' E R A S E ) \r
0006420 ( R E T U R N T E X
0006440 T U R E ] ) \r ) \r \r ( R P A Q Q
0006460 006 002 S K E T C H I N C O L O R
0006500 F L G 006 001 T ) \r ( F I L E S L
0006520 O A D C O L O R S T Y L E S
0006540 H E E T ) \r \r ( P U T P R O P S
0006560 006 002 \ F I L L C I R C L E . D
0006600 I S P L A Y R E A D V I C E 006
0006620 001 [ N I L ( B E F O R E N
0006640 I L ( C O N D ( ( L I S T P
0006660 T E X T U R E ) \r
0006700
*
0006760 ( C O N D (
0007000 ( T E X T U R E P ( C A R T
0007020 E X T U R E ) ) \r
0007040
*
0007120 (
0007140 S E T Q T E X T U R E ( C A
0007160 R T E X T U R E ) ) ) \r
0007200
*
0007300 ( T ( S E T Q T E X T U
0007320 R E \r
0007340
*
0007440 ( T E X T U R E O F C O L O R
0007460 \r
0007500
*
0007600 ( C A D R T E X T U R E ] ) \r
0007620 \r ( P U T P R O P S 006 002 \ P O
0007640 L Y S H A D E . D I S P L A Y
0007660 R E A D V I C E 006 001 [ N I L
0007700 ( B E F O R E N I L ( C O N
0007720 D ( ( L I S T P F I L L . S
0007740 H A D E ) \r
0007760
*
0010040 ( C O N D ( ( T E X T
0010060 U R E P ( C A R F I L L . S
0010100 H A D E ) ) \r
0010120
*
0010200 ( S E T
0010220 Q F I L L . S H A D E ( C A
0010240 R F I L L . S H A D E \r
0010260
*
0010400 ) ) ) \r
0010420
*
0010520 ( T ( S E T Q F I L L . S H
0010540 A D E \r
0010560
*
0010660 ( T E X T U R E O F C O L O R
0010700 \r
0010720
*
0011000 (
0011020 C A D R F I L L . S H A D E ]
0011040 ) \r ( R E A D V I S E \ F I L
0011060 L C I R C L E . D I S P L A Y
0011100 \ P O L Y S H A D E . D I S P L
0011120 A Y ) \r ( P U T P R O P S S K
0011140 E T C H C O L O R C O P Y R I
0011160 G H T ( " X e r o x C o r p
0011200 o r a t i o n " 1 9 8 5 1 9
0011220 8 7 ) ) \r ( D E C L A R E % :
0011240 D O N T C O P Y \r ( F I L E
0011260 M A P ( N I L ( 7 7 1 3 3
0011300 6 8 ( C O L O R T E X T U R E
0011320 T E S T 7 8 1 . 2 1 2 8 )
0011340 ( L E V E L T E X T U R E 2
0011360 1 3 0 . 2 6 6 2 ) ( P R I
0011400 M A R Y T E X T U R E 2 6 6 4
0011420 \r . 3 3 6 6 ) ) ) ) ) \r S T
0011440 O P \r
0011443