$ od -c -N 50000 [phylum]<LispLibrary>Koto>SKETCHTRANSUTILS.DCOM!1
0000000 ( F I L E C R E A T E D " 1 6
0000020 - J u l - 8 6 1 3 : 0 0 : 3 7
0000040 " ( " c o m p i l e d o n
0000060 " { P H Y L U M } < P A P E R
0000100 W O R K S > S K E T C H T R A N
0000120 S U T I L S . ; 8 ) \r " 1 2 -
0000140 N o v - 8 5 1 4 : 5 9 : 2 3 "
0000160 r e c o m p i l e d c h a n
0000200 g e s : A R E F S K . A S E
0000220 T i n " I N T E R L I S P -
0000240 D 1 1 - M a y - 8 6 . . . "
0000260 d a t e d \r " 1 1 - M a y -
0000300 8 6 1 5 : 1 9 : 0 8 " ) \r ( F
0000320 I L E C R E A T E D " 1 6 - J
0000340 u l - 8 6 1 3 : 0 0 : 2 1 "
0000360 { P H Y L U M } < P A P E R W O
0000400 R K S > S K E T C H T R A N S U
0000420 T I L S . ; 8 1 0 2 1 2 c h
0000440 a n g e s t o : ( V A R S
0000460 \r S K E T C H T R A N S U T I L
0000500 S C O M S ) ( F N S S K . A
0000520 R E F . 3 B Y 3 A R E F S K
0000540 . A S E T ) p r e v i o u s
0000560 d a t e : " 1 6 - J u l - 8 6
0000600 1 2 : 0 5 : 4 1 " \r { P H Y
0000620 L U M } < P A P E R W O R K S >
0000640 S K E T C H T R A N S U T I L S
0000660 . ; 7 ) \r M A T M U L T 3 3 3
0000700 D 1 \r ( L ( 2 M A T R I X C
0000720 1 M A T R I X B 0 M A T
0000740 R I X A ) ) \0 021 \0 \0 \0 003 @ \t \0
0000760 \0 A \t \0 \0 B \t \0 \0 2 001 B 020 \0 ( 1
0001000 3 Q \ M A T R I X . G E T . B
0001020 A S E 7 \ M A T R I X . G E
0001040 T . B A S E 3 \ M A T R I X
0001060 . G E T . B A S E ) \r N I L \r (
0001100 ) \r C R E A T E 3 B Y 3 D 1 \r
0001120 N I L \0 213 006 \0 \0 \0 021 ` 005 l \t l
0001140 \a \n \0 \0 X ` \0 \0 037 d j 317 \0 @ 277 d
0001160 l 002 317 \0 v 277 d j 317 \0 P 277 Y d l \t
0001200 \t \0 \0 315 002 277 I l \t \t \0 \0 315 003 277 d
0001220 H 024 004 277 Z d j \t \0 \0 315 \n 277 J j \t
0001240 \0 \0 315 \v 277 d l \a 317 \0 003 277 l 003 d h
0001260 032 032 \t \0 \0 273 d K 024 \b 277 l 003 d h 032
0001300 032 274 d L 024 006 277 d j 317 \0 ` 277 ] d j
0001320 \t \0 \0 315 \f 277 M j \t \0 \0 315 \r 277 d h
0001340 316 022 277 020 \0 ( 2 0 0 Q \ L O N U
0001360 M 1 7 0 Q \ H I N U M 1 3
0001400 2 Q \ M A R G I N T O 1 0 7
0001420 Q \ L O N U M 7 7 Q \ H I
0001440 N U M 6 1 Q \ L O N U M 5
0001460 0 Q \ H I N U M 1 1 Q \ C
0001500 M L . M A K E . S T O R A G E )
0001520 \r ( 1 5 Q 004 003 A R R A Y T Y P
0001540 E # ) \r ( ) \r T R A N S L A T E
0001560 3 B Y 3 D 1 \r ( L ( 2 M
0001600 1 T y 0 T x ) ) \0 l 001 \0
0001620 \0 003 B l 003 d h 032 032 g \0 \0 \v \0 \0 021
0001640 001 \0 o \0 \0 \0 H j d \f \0 \0 o \0 \0 \0
0001660 H j k \f \0 \0 o \0 \0 \0 H j l 002 \f \0
0001700 \0 o \0 \0 \0 H k j \f \0 \0 o \0 \0 \0 H
0001720 k d \f \0 \0 o \0 \0 \0 H k l 002 \f \0 \0
0001740 @ H l 002 j \f \0 \0 A H l 002 k \f \0 \0
0001760 o \0 \0 \0 H l 002 d \f \0 \0 H 020 \0 ( 1
0002000 5 0 Q S K . A S E T 1 3 5 Q
0002020 S K . A S E T 1 2 5 Q S K
0002040 . A S E T 1 1 5 Q S K . A S
0002060 E T 1 0 2 Q S K . A S E T
0002100 7 0 Q S K . A S E T 5 6 Q
0002120 S K . A S E T 4 3 Q S K . A
0002140 S E T 3 1 Q S K . A S E T
0002160 1 4 Q \ M A K E V A L I D A R
0002200 R A Y ) \r ( 1 1 Q C R E A T E
0002220 3 B Y 3 ) \r ( 1 4 1 Q 1 . 0
0002240 1 0 6 Q 0 . 0 7 4 Q 1 .
0002260 0 6 2 Q 0 . 0 4 7 Q 0 .
0002300 0 3 5 Q 0 . 0 2 3 Q 1 .
0002320 0 ) \r S C A L E 3 B Y 3 D 1 \r
0002340 ( L ( 2 M 1 S y 0 S
0002360 x ) ) \0 r 001 \0 \0 003 B l 003 d h 032
0002400 032 g \0 \0 \v \0 \0 021 001 \0 @ 006 \0 \0 H j
0002420 d \f \0 \0 o \0 \0 \0 H j k \f \0 \0 o \0
0002440 \0 \0 H j l 002 \f \0 \0 o \0 \0 \0 H k j
0002460 \f \0 \0 A 006 \0 \0 H k d \f \0 \0 o \0 \0
0002500 \0 H k l 002 \f \0 \0 o \0 \0 \0 H l 002 j
0002520 \f \0 \0 o \0 \0 \0 H l 002 k \f \0 \0 o \0
0002540 \0 \0 H l 002 d \f \0 \0 H 020 \0 ( 1 5 6
0002560 Q S K . A S E T 1 4 3 Q S
0002600 K . A S E T 1 3 0 Q S K . A
0002620 S E T 1 1 5 Q S K . A S E T
0002640 1 0 2 Q S K . A S E T 7 0
0002660 Q S K . A S E T 5 6 Q S K
0002700 . A S E T 4 3 Q S K . A S E
0002720 T 3 1 Q S K . A S E T 1 4
0002740 Q \ M A K E V A L I D A R R A
0002760 Y ) \r ( 7 4 Q F L O A T P 2
0003000 3 Q F L O A T P 1 1 Q C R
0003020 E A T E 3 B Y 3 ) \r ( 1 4 7 Q
0003040 1 . 0 1 3 4 Q 0 . 0 1 2
0003060 1 Q 0 . 0 1 0 6 Q 0 . 0
0003100 6 2 Q 0 . 0 4 7 Q 0 . 0
0003120 3 5 Q 0 . 0 ) \r A R E F D 1
0003140 \r ( P 1 \ o f f s e t P
0003160 0 \ b a s e I 2 C O L
0003200 I 1 R O W I 0 A R R A
0003220 Y ) \0 243 005 \0 \0 003 @ 311 004 A l 003 326
0003240 B 324 @ 310 \n @ 310 \v 365 330 021 2 004 @ 312 \0
0003260 003 d j 360 227 277 H I 340 320 311 \0 020 d l 002
0003300 360 230 277 H I 340 340 320 311 \0 020 d k 360 263 347
0003320 d l 005 360 226 277 H I 320 310 \0 020 d l 004 360
0003340 224 277 H I 302 020 d l 003 360 262 277 I 342 342
0003360 342 l \a I l \a 345 331 272 k J 347 274 273 L H
0003400 K 302 345 j 360 221 j 020 k 020 d l 006 360 227 277
0003420 H I 340 320 313 \0 020 d l \a 360 235 H I 340 320
0003440 d 310 \0 375 310 001 321 355 \0 020 l \b 360 230 H I
0003460 320 310 \0 \t \0 \0 020 \b \0 \0 020 \0 ( 2 4 0
0003500 Q S H O U L D N T 2 3 4 Q
0003520 I N T - C H A R ) \r N I L \r ( )
0003540 \r R O T A T E 3 B Y 3 D 1 \r (
0003560 L ( 2 M 1 R A D I A N S
0003600 F L G 0 P H I ) ) \0 s 003 \0
0003620 \0 003 B l 003 d h 032 032 g \0 \0 \v \0 \0 @
0003640 A \n \0 \0 @ A \n \0 \0 021 003 002 I H j d
0003660 \f \0 \0 J \t \0 \0 H j k \f \0 \0 o \0 \0
0003700 \0 H j l 002 \f \0 \0 J H k j \f \0 \0 I
0003720 H k d \f \0 \0 o \0 \0 \0 H k l 002 \f \0
0003740 \0 o \0 \0 \0 H l 002 j \f \0 \0 o \0 \0 \0
0003760 H l 002 k \f \0 \0 o \0 \0 \0 H l 002 d \f
0004000 \0 \0 H 020 \0 ( 1 5 7 Q S K . A S
0004020 E T 1 4 4 Q S K . A S E T
0004040 1 3 1 Q S K . A S E T 1 1 6
0004060 Q S K . A S E T 1 0 3 Q S
0004100 K . A S E T 7 4 Q S K . A S
0004120 E T 6 5 Q S K . A S E T 5
0004140 2 Q S K . A S E T 4 4 Q F
0004160 M I N U S 4 0 Q S K . A S E
0004200 T 2 6 Q S I N 2 1 Q C O
0004220 S 1 4 Q \ M A K E V A L I D
0004240 A R R A Y ) \r ( 1 1 Q C R E A
0004260 T E 3 B Y 3 ) \r ( 1 5 0 Q 1
0004300 . 0 1 3 5 Q 0 . 0 1 2 2 Q
0004320 0 . 0 1 0 7 Q 0 . 0 5 6
0004340 Q 0 . 0 ) \r \ M A T R I X . G
0004360 E T . B A S E D 1 \r ( L ( 0
0004400 A R R A Y ) ) \0 ) \0 \0 \0 001 @
0004420 d 004 ` \0 \0 360 232 311 004 @ 310 \n @ 310 \v 365
0004440 320 020 \t \0 \0 g \0 \0 360 227 @ 311 \0 @ 310 003
0004460 320 020 @ \t \0 \0 020 \0 ( 4 6 Q \ I L
0004500 L E G A L . A R G 2 5 Q T Y
0004520 P E N A M E ) \r ( 3 0 Q A R R
0004540 A Y P 5 004 003 A R R A Y T Y P
0004560 E # ) \r ( ) \r S K . A S E T D
0004600 1 \r ( P 5 I P 4 L P
0004620 3 F I P 2 M A R G I N
0004640 S I 3 C O L I 2 R O
0004660 W I 1 A R R A Y I 0
0004700 V A L U E ) \0 217 006 \0 \0 004 @ A B
0004720 C h 032 032 A 311 006 A 311 \b j 021 $ 005 I 274
0004740 H ] d 003 262 R 277 L 003 262 L M 001 3 244
0004760 o \0 \0 \0 217 j M 001 361 246 M 001 L 001 375 361
0005000 251 o \0 \0 \0 M 001 \n \0 \0 277 L 002 263 030 M
0005020 d 001 J 324 030 001 [ A 310 002 A 310 003 365 375 361
0005040 254 \b \0 \0 207 J M 001 340 320 311 \0 Z 277 L 002
0005060 274 M 002 260 256 M 244 L 242 K 260 024 o \0 \0 \0
0005100 A B C h 032 032 h 032 032 \n \0 \0 277 h 022 A
0005120 310 \n A 310 \v 365 330 \v \0 \0 020 \0 ( 2 1 4
0005140 Q \ A S E T L I N E A R 1 7
0005160 6 Q E R R O R 1 2 6 Q S H
0005200 O U L D N T 7 4 Q E R R O R
0005220 ) \r N I L \r ( 1 6 2 Q " R a
0005240 n k m i s m a t c h " 6 7 Q
0005260 " A r r a y i n d e x o u
0005300 t o f b o u n d s " 4 6 Q
0005320 " B a d a r r a y i n d e
0005340 x " ) \r A R R A Y - R A N K D
0005360 1 \r ( L ( 0 A R R A Y ) )
0005400 \0 3 \0 \0 \0 001 @ d 004 ` \0 \0 360 226 006 \0
0005420 \0 312 \0 v 020 004 l \a 360 251 @ d \t \0 \0 g
0005440 \0 \0 360 221 k 020 004 ` \0 \0 360 222 l 002 020 o
0005460 \0 \0 \0 @ \n \0 \0 020 \0 ( 6 0 Q E R
0005500 R O R 3 0 Q T Y P E N A M E
0005520 ) \r ( 4 3 Q 004 003 B I T M A P T
0005540 Y P E # 3 3 Q A R R A Y P
0005560 1 2 Q A R R A Y 5 004 003 A R
0005600 R A Y T Y P E # ) \r ( 5 4 Q
0005620 " N o t a n a r r a y " ) \r
0005640 \ A S E T L I N E A R D 1 \r (
0005660 L ( 2 I 1 A R R A Y 0
0005700 V A L ) ) \0 313 \a \0 \0 003 A 311 004
0005720 B @ 021 023 003 A 312 \0 003 d j 360 231 277 H I
0005740 340 320 J 316 \0 J 020 d l 002 360 232 277 H I 340
0005760 340 320 J 024 \0 J 020 d k 360 231 277 H I 340 320
0006000 J 024 \0 J 020 d l 005 360 230 277 H I 320 J 315
0006020 \0 J 020 d l 004 360 225 277 H I J 307 020 d l
0006040 003 360 262 1 277 I 342 342 342 l \a I l \a 345 331
0006060 273 k K 347 021 022 006 H L 302 ^ M N 345 j 360
0006100 225 J j 360 h 360 202 J j 360 225 H L M N 346
0006120 307 J 020 d l 006 360 231 277 H I 340 320 J 314 \0
0006140 J 020 d l \a 360 262 027 H I 340 J 355 001 021 003
0006160 006 L M 320 N 316 \0 277 N 022 355 \0 020 l \b 360
0006200 262 023 H I J \t \0 \0 021 003 006 L M 320 N 315
0006220 \0 N 020 \b \0 \0 020 \0 ( 3 1 0 Q S H
0006240 O U L D N T 2 7 2 Q C H A R
0006260 - I N T ) \r N I L \r ( ) \r \ C M
0006300 L . M A K E . S T O R A G E D
0006320 1 \r ( L ( 3 A L I G N M E N
0006340 T 2 I N I T . O N . P A G E
0006360 1 T Y P E # 0 # E L T S
0006400 ) F 1 A R R A Y W A R N I
0006420 N G F L G ) \0 341 001 001 \0 004 @ A d
0006440 j 360 224 277 l 260 K l 002 360 223 l @ 260 C
0006460 A d k 360 224 277 l 260 9 l 005 360 223 l 020
0006500 260 1 A d l 004 360 224 277 l \b 260 & l 003 360
0006520 222 k 260 037 A d l 006 360 224 277 l 260 024 l
0006540 \a 360 222 l 212 A l \b 360 222 l 020 202 \b \0
0006560 \0 332 l 330 342 342 342 342 342 021 001 \0 @ j 360
0006600 251 @ d 005 003 226 d \t \0 \0 221 h 020 n 377 375
0006620 361 263 S H A d j 360 223 277 i 260 C l 002 360
0006640 222 i 260 < A d k 360 223 277 i 260 3 l 005 360
0006660 222 h 260 , A d l 004 360 223 277 h 260 " l 003
0006700 360 222 h 260 033 A d l 006 360 222 277 h 217 l \a
0006720 360 221 h 211 A l \b 360 221 h 202 \b \0 \0 B C
0006740 \f \0 \0 020 Q 227 o \0 \0 \0 \t \0 \0 277 H l
0006760 177 330 342 342 342 342 342 342 342 \t \0 \0 020 \0 ( 3
0007000 3 6 Q \ A L L O C P A G E B L
0007020 O C K 3 1 7 Q P R O M P T P
0007040 R I N T 3 0 5 Q \ A L L O C
0007060 B L O C K 3 0 0 Q S H O U L
0007100 D N T 1 5 4 Q \ F Z E R O P
0007120 1 2 3 Q S H O U L D N T ) \r
0007140 N I L \r ( 3 1 4 Q " W a r n
0007160 i n g : a l l o c a t i n g
0007200 f i x e d p a g e s f o r
0007220 l a r g e a r r a y " ) \r \ M
0007240 A K E V A L I D A R R A Y D 1
0007260 \r ( L ( 2 C R E A T E F N
0007300 1 D I M S 0 A R R A Y ) )
0007320 \0 037 \0 \0 \0 003 @ d 004 ` \0 \0 360 232 277
0007340 A @ \t \0 \0 364 221 @ 020 @ 244 B \t \0 \0 020
0007360 @ \t \0 \0 020 \0 ( 3 4 Q \ I L L E
0007400 G A L . A R G 2 7 Q A P P L
0007420 Y 1 5 Q A R R A Y - D I M E
0007440 N S I O N S ) \r ( 5 004 003 A R R
0007460 A Y T Y P E # ) \r ( ) \r A R R A
0007500 Y - D I M E N S I O N S D 1 \r
0007520 ( L ( 0 A R R A Y ) ) \0 E
0007540 \0 \0 \0 001 @ d 004 l \a 360 225 \t \0 \0 h 032
0007560 020 004 ` \0 \0 360 233 @ \t \0 \0 @ \t \0 \0 h
0007600 032 032 020 @ d 004 ` \0 \0 360 222 311 006 020 \t \0
0007620 \0 g \0 \0 360 230 @ 006 \0 \0 310 002 h 032 020 o
0007640 \0 \0 \0 @ \n \0 \0 020 \0 ( 1 0 2 Q E
0007660 R R O R 5 4 Q T Y P E N A M
0007700 E 3 2 Q B I T M A P H E I G
0007720 H T 2 6 Q B I T M A P W I D
0007740 T H 1 1 Q N C H A R S ) \r (
0007760 6 5 Q A R R A Y P 5 7 Q A
0010000 R R A Y P 4 4 Q 004 003 A R R A
0010020 Y T Y P E # 2 0 Q 004 003 B I T
0010040 M A P T Y P E # ) \r ( 7 6 Q
0010060 " N o t a n a r r a y " ) \r
0010100 \ M A R G I N T O D 1 \r ( P
0010120 0 T H I S . R O W . B A S E
0010140 I 0 D I M L ) \0 024 001 \0 \0 001
0010160 l 002 @ \t \0 \0 361 221 j 020 j 021 001 \0 @ \t
0010200 \0 \0 020 \0 ( 2 1 Q \ M A R G I N
0010220 . O N E . D I M E N S I O N 5
0010240 F L E N G T H ) \r N I L \r ( )
0010260 \r \ M A R G I N . O N E . D I M
0010300 E N S I O N D 1 \r ( L ( 0
0010320 D I M L ) F 1 1 Q T H I S
0010340 . R O W . B A S E ) \0 f \t 001 \0
0010360 001 @ 001 021 201 \b @ 002 265 005 \b \0 \0 Y 002 h
0010400 360 272 H i \n \0 \0 273 J 262 ( I 001 276 H k
0010420 331 j 275 274 M L 363 263 030 K M 340 320 W 022 024
0010440 \0 277 W 022 N 324 c 022 277 M k 324 ] 260 350 K
0010460 020 H k 331 j _ 020 277 _ 016 277 O 020 O 016 363
0010500 263 357 K O 020 340 320 I \t \0 \0 024 \0 277 O 020
0010520 k 324 _ 020 260 351 \0 ( 1 3 1 Q \ M A
0010540 R G I N . O N E . D I M E N S I
0010560 O N 2 5 Q \ A L L O C B L O
0010600 C K 1 3 Q S H O U L D N T )
0010620 \r N I L \r ( ) \r ( P R E T T Y C
0010640 O M P R I N T S K E T C H T R
0010660 A N S U T I L S C O M S ) \r ( R
0010700 P A Q Q S K E T C H T R A N S
0010720 U T I L S C O M S ( ( C O M S
0010740 ( * f n s f r o m M A T
0010760 M U L T t h a t a r e h e
0011000 r e s o C M L A R R A Y d
0011020 o e s n ' t n e e d t o b
0011040 e \r l o a d e d . ) ( F N S
0011060 M A T M U L T 3 3 3 C R E A
0011100 T E 3 B Y 3 T R A N S L A T E
0011120 3 B Y 3 S C A L E 3 B Y 3 A
0011140 R E F R O T A T E 3 B Y 3 \
0011160 M A T R I X . G E T . B A S E )
0011200 ( \r D E C L A R E : D O N T
0011220 C O P Y D O N T E V A L @ L O
0011240 A D D O E V A L @ C O M P I L
0011260 E ( F I L E S ( L O A D C O
0011300 M P ) M A T M U L T ) ) ) (
0011320 C O M S ( * f n s f r o m
0011340 C M L A R R A Y \r t h a t
0011360 a r e h e r e s o i t d
0011400 o e s n ' t n e e d t o b
0011420 e l o a d e d . ) ( F N S
0011440 S K . A S E T A R R A Y - R A
0011460 N K \ A S E T L I N E A R \
0011500 C M L . M A K E . S T O R A G E
0011520 \r \ M A K E V A L I D A R R A
0011540 Y A R R A Y - D I M E N S I O
0011560 N S \ M A R G I N T O \ M A
0011600 R G I N . O N E . D I M E N S I
0011620 O N ) ( D E C L A R E : D O
0011640 N T C O P Y D O N T E V A L @
0011660 L O A D \r D O E V A L @ C O M
0011700 P I L E ( F I L E S ( L O A
0011720 D C O M P ) C M L A R R A Y )
0011740 ) ( I N I T R E C O R D S A
0011760 R R A Y ) ) ) ) \r ( / D E C L A
0012000 R E D A T A T Y P E ( Q U O T
0012020 E A R R A Y ) ( Q U O T E
0012040 ( ( B I T S 4 ) ( B I T S
0012060 1 ) ( B I T S 1 8 ) F L A
0012100 G F L A G ( B I T S 7 )
0012120 ( B I T S 3 2 ) \r P O I N T
0012140 E R P O I N T E R P O I N T
0012160 E R ( B I T S 3 2 ) ( B I
0012200 T S 3 2 ) P O I N T E R (
0012220 B I T S 3 2 ) F U L L X P O
0012240 I N T E R F U L L X P O I N T
0012260 E R ) ) ( Q U O T E ( ( \r A
0012300 R R A Y 0 ( B I T S . 3
0012320 ) ) ( A R R A Y 0 ( B I T
0012340 S . 6 4 ) ) ( A R R A Y
0012360 0 ( L O N G B I T S . 2 2
0012400 5 ) ) ( A R R A Y 0 ( F L
0012420 A G B I T S . 8 0 ) ) ( A
0012440 R R A Y \r 0 ( F L A G B I T
0012460 S . 9 6 ) ) ( A R R A Y
0012500 0 ( B I T S . 1 1 8 ) )
0012520 ( A R R A Y 2 ( L O N G B I
0012540 T S . 1 5 ) ) ( A R R A Y
0012560 4 P O I N T E R ) ( A R R
0012600 A Y 6 P O I N T E R \r ) (
0012620 A R R A Y 8 P O I N T E R )
0012640 ( A R R A Y 1 0 ( L O N G
0012660 B I T S . 1 5 ) ) ( A R R
0012700 A Y 1 2 ( L O N G B I T S
0012720 . 1 5 ) ) ( A R R A Y 1 4
0012740 P O I N T E R ) ( A R R A Y
0012760 1 6 \r ( L O N G B I T S .
0013000 1 5 ) ) ( A R R A Y 1 8
0013020 F U L L X P O I N T E R ) ( A
0013040 R R A Y 2 0 F U L L X P O I
0013060 N T E R ) ) ) ( Q U O T E 2
0013100 2 ) ) \r ( P U T P R O P S S K
0013120 E T C H T R A N S U T I L S C
0013140 O P Y R I G H T ( " X e r o x
0013160 C o r p o r a t i o n " 1 9
0013200 8 6 ) ) \r N I L \r
0013211