$ od -c -N 50000 [eris]<Lisp>INTERMEZZO>LIBRARY>MATRIXUSE.DCOM!1
0000000 ( F I L E C R E A T E D " 4
0000020 - M a r - 8 5 1 6 : 4 1 : 3 3
0000040 " ( " c o m p i l e d o n
0000060 " { E R I S } < L I S P C O R
0000100 E > L I B R A R Y > M A T R I X
0000120 U S E . ; 2 ) \r " 2 1 - F e b
0000140 - 8 5 1 2 : 3 9 : 5 7 " r e
0000160 c o m p i l e d A L L i n
0000200 " I N T E R L I S P - D 2 1 -
0000220 F e b - 8 5 . . . " d a t e
0000240 d " 2 1 - F e b - 8 5 1 2 :
0000260 5 4 : 3 7 " ) \r ( F I L E C R E
0000300 A T E D " 4 - M a r - 8 5
0000320 1 6 : 4 1 : 0 5 " { E R I S }
0000340 < L I S P C O R E > L I B R A R
0000360 Y > M A T R I X U S E . ; 2 9
0000400 3 0 3 c h a n g e s t o :
0000420 ( V A R S \r M A T R I X U S E
0000440 C O M S ) ( F N S F O O C
0000460 R E A T E 1 B Y 3 C R E A T E
0000500 1 B Y 4 C R E A T E 3 B Y 1
0000520 C R E A T E 3 B Y 3 C R E A T
0000540 E 4 B Y 1 C R E A T E 4 B Y 4
0000560 I D E N T I T Y 3 B Y 3 \r I
0000600 D E N T I T Y 4 B Y 4 R O T A
0000620 T E 4 B Y 4 . A B O U T X R O
0000640 T A T E 4 B Y 4 . A B O U T Y
0000660 R O T A T E 4 B Y 4 . A B O U T
0000700 Z S C A L E 3 B Y 3 S C A L
0000720 E 4 B Y 4 T R A N S L A T E 3
0000740 B Y 3 \r T R A N S L A T E 4 B
0000760 Y 4 S E T . X C O O R D ) ) \r
0001000 C R E A T E 1 B Y 3 D 1 \r N I
0001020 L \0 \f \0 \0 \0 \0 l 003 g \0 \0 j d \f
0001040 \0 \0 020 \0 ( 1 1 Q A R R A Y ) \r
0001060 ( 4 F L O A T P ) \r ( ) \r C R
0001100 E A T E 1 B Y 4 D 1 \r N I L
0001120 \0 \f \0 \0 \0 \0 l 004 g \0 \0 j d \f \0 \0
0001140 020 \0 ( 1 1 Q A R R A Y ) \r ( 4
0001160 F L O A T P ) \r ( ) \r C R E A
0001200 T E 3 B Y 1 D 1 \r N I L \0 \f
0001220 \0 \0 \0 \0 l 003 g \0 \0 j d \f \0 \0 020 \0
0001240 ( 1 1 Q A R R A Y ) \r ( 4 F
0001260 L O A T P ) \r ( ) \r C R E A T E
0001300 3 B Y 3 D 1 \r N I L \0 \f \0 \0
0001320 \0 \0 l \t g \0 \0 j d \f \0 \0 020 \0 ( 1
0001340 1 Q A R R A Y ) \r ( 4 F L O
0001360 A T P ) \r ( ) \r C R E A T E 4 B
0001400 Y 1 D 1 \r N I L \0 \f \0 \0 \0 \0
0001420 l 004 g \0 \0 j d \f \0 \0 020 \0 ( 1 1 Q
0001440 A R R A Y ) \r ( 4 F L O A T
0001460 P ) \r ( ) \r C R E A T E 4 B Y 4
0001500 D 1 \r N I L \0 \f \0 \0 \0 \0 l 020
0001520 g \0 \0 j d \f \0 \0 020 \0 ( 1 1 Q A
0001540 R R A Y ) \r ( 4 F L O A T P )
0001560 \r ( ) \r I D E N T I T Y 3 B Y 3
0001600 D 1 \r ( P 3 X P 1 M
0001620 A T R I X B A S E P 0 M A
0001640 T R I X I 0 M ) \0 I 004 \0
0001660 \0 001 @ 005 006 265 005 \b \0 \0 021 1 003 H 006 \0
0001700 \0 311 \0 271 l \b j 273 272 K J 363 257 I K \t
0001720 \0 \0 320 h 316 \0 277 K k 324 [ 260 357 I m 370
0001740 320 n ? 200 j 321 316 \0 I n ? 200 j 321 316 \0
0001760 I n ? 200 j 321 316 \b H 020 \0 ( 3 7 Q
0002000 D O U B L E 7 C R E A T E 3
0002020 B Y 3 ) \r ( 1 6 Q A R R A Y P
0002040 ) \r ( ) \r I D E N T I T Y 4 B Y
0002060 4 D 1 \r ( P 3 X P 1
0002100 M A T R I X B A S E P 0 M
0002120 A T R I X I 0 M ) \0 Q 004
0002140 \0 \0 001 @ 005 006 265 005 \b \0 \0 021 1 003 H 006
0002160 \0 \0 311 \0 271 l 017 j 273 272 K J 363 257 I K
0002200 \t \0 \0 320 h 316 \0 277 K k 324 [ 260 357 I m
0002220 366 320 n ? 200 j 321 316 \0 I n ? 200 j 321 316
0002240 \0 I n ? 200 j 321 316 \n I n ? 200 j 321 316
0002260 024 H 020 \0 ( 3 7 Q D O U B L E
0002300 7 C R E A T E 4 B Y 4 ) \r ( 1
0002320 6 Q A R R A Y P ) \r ( ) \r R O
0002340 T A T E 3 B Y 3 D 1 \r ( P 3
0002360 S I N T H E T A P 2 C O
0002400 S T H E T A P 1 M A T R I
0002420 X B A S E P 0 M A T R I X
0002440 I 2 M I 1 R A D I A
0002460 N S F L G I 0 T H E T A )
0002500 \0 d 004 \0 \0 003 B 005 006 265 005 \b \0 \0 021
0002520 021 001 H 006 \0 \0 311 \0 271 @ A \n \0 \0 021 001
0002540 002 @ A \n \0 \0 021 001 003 I m 370 320 J 355 001
0002560 316 \0 I m 372 320 K \t \0 \0 355 001 316 \0 I m
0002600 374 320 h 316 \0 I m 376 320 K 355 001 316 \0 I J
0002620 355 001 316 \0 I h 316 002 I h 316 004 I h 316 006
0002640 I n ? 200 j 321 316 \b H 020 \0 ( 6 2 Q
0002660 F M I N U S 3 6 Q S I N 2
0002700 6 Q C O S 7 C R E A T E 3
0002720 B Y 3 ) \r ( 1 6 Q A R R A Y P
0002740 ) \r ( ) \r R O T A T E 4 B Y 4 .
0002760 A B O U T X D 1 \r ( P 5 X
0003000 P 3 S I N T H E T A P
0003020 2 C O S T H E T A P 1 M
0003040 A T R I X B A S E P 0 M A
0003060 T R I X I 2 M I 1 R
0003100 A D I A N S F L G I 0 T H
0003120 E T A ) \0 n 006 \0 \0 003 B 005 006 265 005
0003140 \b \0 \0 021 021 001 H 006 \0 \0 311 \0 271 @ A \n
0003160 \0 \0 021 001 002 @ A \n \0 \0 021 001 003 l 017 j
0003200 021 002 005 M L 363 257 I M \t \0 \0 320 h 316 \0
0003220 277 M k 324 ] 260 357 023 I m 366 320 n ? 200 j
0003240 321 316 \0 I J 355 001 316 \0 I K \t \0 \0 355 001
0003260 316 \b I K 355 001 316 002 I J 355 001 316 \n I n
0003300 ? 200 j 321 316 024 H 020 \0 ( 1 2 2 Q F
0003320 M I N U S 6 0 Q D O U B L E
0003340 3 6 Q S I N 2 6 Q C O S
0003360 7 C R E A T E 3 B Y 3 ) \r (
0003400 1 6 Q A R R A Y P ) \r ( ) \r R
0003420 O T A T E 4 B Y 4 . A B O U T Y
0003440 D 1 \r ( P 5 X P 3 S
0003460 I N T H E T A P 2 C O S T
0003500 H E T A P 1 M A T R I X B
0003520 A S E P 0 M A T R I X I
0003540 2 M I 1 R A D I A N S
0003560 F L G I 0 T H E T A ) \0
0003600 q 006 \0 \0 003 B 005 006 265 005 \b \0 \0 021 021 001
0003620 H 006 \0 \0 311 \0 271 @ A \n \0 \0 021 001 002 @
0003640 A \n \0 \0 021 001 003 l 017 j 021 002 005 M L 363
0003660 257 I M \t \0 \0 320 h 316 \0 277 M k 324 ] 260
0003700 357 023 I m 366 320 J 355 001 316 \0 I m 372 320 K
0003720 \t \0 \0 355 001 316 \0 I n ? 200 j 321 316 \0 I
0003740 K 355 001 316 006 I J 355 001 316 \n I n ? 200 j
0003760 321 316 024 H 020 \0 ( 1 1 5 Q F M I N
0004000 U S 6 0 Q D O U B L E 3 6
0004020 Q S I N 2 6 Q C O S 7
0004040 C R E A T E 3 B Y 3 ) \r ( 1 6 Q
0004060 A R R A Y P ) \r ( ) \r R O T A
0004100 T E 4 B Y 4 . A B O U T Z D 1
0004120 \r ( P 5 X P 3 S I N T
0004140 H E T A P 2 C O S T H E T
0004160 A P 1 M A T R I X B A S E
0004200 P 0 M A T R I X I 2
0004220 M I 1 R A D I A N S F L G
0004240 I 0 T H E T A ) \0 t 006 \0
0004260 \0 003 B 005 006 265 005 \b \0 \0 021 021 001 H 006 \0
0004300 \0 311 \0 271 @ A \n \0 \0 021 001 002 @ A \n \0
0004320 \0 021 001 003 l 017 j 021 002 005 M L 363 257 I M
0004340 \t \0 \0 320 h 316 \0 277 M k 324 ] 260 357 023 I
0004360 m 366 320 J 355 001 316 \0 I m 370 320 K \t \0 \0
0004400 355 001 316 \0 I m 376 320 K 355 001 316 \0 I J 355
0004420 001 316 \0 I n ? 200 j 321 316 \n I n ? 200 j
0004440 321 316 024 H 020 \0 ( 1 1 5 Q F M I N
0004460 U S 6 0 Q D O U B L E 3 6
0004500 Q S I N 2 6 Q C O S 7
0004520 C R E A T E 3 B Y 3 ) \r ( 1 6 Q
0004540 A R R A Y P ) \r ( ) \r S C A L
0004560 E 3 B Y 3 D 1 \r ( P 3 X
0004600 P 1 M A T R I X B A S E P
0004620 0 M A T R I X I 2 M
0004640 I 1 S y I 0 S x ) \0
0004660 E 004 \0 \0 003 B 005 006 265 005 \b \0 \0 021 1 003
0004700 H 006 \0 \0 311 \0 271 l \b j 273 272 K J 363 257
0004720 I K \t \0 \0 320 h 316 \0 277 K k 324 [ 260 357
0004740 I m 370 320 @ 355 001 316 \0 I A 355 001 316 \0 I
0004760 n ? 200 j 321 316 \b H 020 \0 ( 3 7 Q D
0005000 O U B L E 7 C R E A T E 3 B
0005020 Y 3 ) \r ( 1 6 Q A R R A Y P )
0005040 \r ( ) \r S C A L E 4 B Y 4 D 1
0005060 \r ( P 3 X P 1 M A T R
0005100 I X B A S E P 0 M A T R I
0005120 X I 3 M I 2 S z I
0005140 1 S y I 0 S x ) \0 K
0005160 004 \0 \0 004 C 005 006 265 005 \b \0 \0 021 1 003 H
0005200 006 \0 \0 311 \0 271 l 017 j 273 272 K J 363 257 I
0005220 K \t \0 \0 320 h 316 \0 277 K k 324 [ 260 357 I
0005240 m 366 320 @ 355 001 316 \0 I A 355 001 316 \0 I B
0005260 355 001 316 \n I n ? 200 j 321 316 024 H 020 \0 (
0005300 3 7 Q D O U B L E 7 C R E
0005320 A T E 4 B Y 4 ) \r ( 1 6 Q A R
0005340 R A Y P ) \r ( ) \r T R A N S L A
0005360 T E 3 B Y 3 D 1 \r ( I 2 M
0005400 I 1 T y I 0 T x )
0005420 \0 # 002 \0 \0 003 B 005 006 265 005 \b \0 \0 021 021
0005440 001 H 006 \0 \0 311 \0 Y m 374 320 @ 355 001 316 \0
0005460 I A 355 001 316 002 H 020 \0 ( 7 I D E N
0005500 T I T Y 3 B Y 3 ) \r ( 1 6 Q A
0005520 R R A Y P ) \r ( ) \r T R A N S L
0005540 A T E 4 B Y 4 D 1 \r ( I 3
0005560 M I 2 T z I 1 T y
0005600 I 0 T x ) \0 ) 002 \0 \0 004 C 005
0005620 006 265 005 \b \0 \0 021 021 001 H 006 \0 \0 311 \0 Y
0005640 m 374 320 @ 355 001 316 \0 I A 355 001 316 004 I B
0005660 355 001 316 \f H 020 \0 ( 7 I D E N T I
0005700 T Y 4 B Y 4 ) \r ( 1 6 Q A R R
0005720 A Y P ) \r ( ) \r S E T . X C O O
0005740 R D D 1 \r ( I 1 V A L U E
0005760 I 0 V E C T O R ) \0 , 002
0006000 \0 \0 002 @ \t \0 \0 l 003 361 262 033 @ 006 \0 \0
0006020 311 \0 A 355 001 021 002 001 H m 366 320 I 316 \0 277
0006040 I 022 355 \0 020 o \0 \0 \0 @ \n \0 \0 020 \0 (
0006060 5 1 Q E R R O R 3 A R R A
0006100 Y S I Z E ) \r ( 1 4 Q A R R A
0006120 Y P ) \r ( 4 5 Q " V e c t o
0006140 r t o o s h o r t " ) \r S
0006160 E T . Y C O O R D D 1 \r ( I
0006200 1 V A L U E I 0 V E C T
0006220 O R ) \0 , 002 \0 \0 002 @ \t \0 \0 l 003
0006240 361 262 033 @ 006 \0 \0 311 \0 A 355 001 021 002 001 H
0006260 m 376 320 I 316 \0 277 I 022 355 \0 020 o \0 \0 \0
0006300 @ \n \0 \0 020 \0 ( 5 1 Q E R R O R
0006320 3 A R R A Y S I Z E ) \r ( 1
0006340 4 Q A R R A Y P ) \r ( 4 5 Q
0006360 " V e c t o r t o o s h o
0006400 r t " ) \r S E T . Z C O O R D
0006420 D 1 \r ( I 1 V A L U E I
0006440 0 V E C T O R ) \0 ) 002 \0 \0
0006460 002 @ \t \0 \0 l 003 361 262 030 @ 006 \0 \0 311 \0
0006500 A 355 001 021 002 001 H I 316 006 277 I 022 355 \0 020
0006520 o \0 \0 \0 @ \n \0 \0 020 \0 ( 4 6 Q E
0006540 R R O R 3 A R R A Y S I Z E
0006560 ) \r ( 1 4 Q A R R A Y P ) \r (
0006600 4 2 Q " V e c t o r t o o
0006620 s h o r t " ) \r G E T . X C
0006640 O O R D D 1 \r ( I 0 V E C
0006660 T O R ) \0 & \0 \0 \0 001 @ \t \0 \0 l
0006700 003 361 262 025 @ 006 \0 \0 311 \0 m 366 320 d 310 \0
0006720 375 310 001 321 355 \0 020 o \0 \0 \0 @ \n \0 \0 020
0006740 \0 ( 4 3 Q E R R O R 3 A R
0006760 R A Y S I Z E ) \r ( 1 4 Q A R
0007000 R A Y P ) \r ( 3 7 Q " V e c
0007020 t o r t o o s h o r t " )
0007040 \r G E T . Y C O O R D D 1 \r (
0007060 I 0 V E C T O R ) \0 & \0 \0
0007100 \0 001 @ \t \0 \0 l 003 361 262 025 @ 006 \0 \0 311
0007120 \0 m 376 320 d 310 \0 375 310 001 321 355 \0 020 o \0
0007140 \0 \0 @ \n \0 \0 020 \0 ( 4 3 Q E R R
0007160 O R 3 A R R A Y S I Z E ) \r
0007200 ( 1 4 Q A R R A Y P ) \r ( 3
0007220 7 Q " V e c t o r t o o s
0007240 h o r t " ) \r G E T . Z C O O
0007260 R D D 1 \r ( I 0 V E C T O
0007300 R ) \0 " \0 \0 \0 001 @ \t \0 \0 l 003 361
0007320 237 @ 006 \0 \0 311 \0 d 310 006 375 310 \a 321 355 \0
0007340 020 o \0 \0 \0 @ \n \0 \0 020 \0 ( 3 7 Q
0007360 E R R O R 3 A R R A Y S I Z
0007400 E ) \r ( 1 3 Q A R R A Y P ) \r
0007420 ( 3 3 Q " V e c t o r t o
0007440 o s h o r t " ) \r ( P R E T
0007460 T Y C O M P R I N T M A T R I
0007500 X U S E C O M S ) \r ( R P A Q Q
0007520 M A T R I X U S E C O M S (
0007540 ( F N S C R E A T E 1 B Y 3
0007560 C R E A T E 1 B Y 4 C R E A T
0007600 E 3 B Y 1 C R E A T E 3 B Y 3
0007620 C R E A T E 4 B Y 1 C R E A
0007640 T E 4 B Y 4 \r I D E N T I T Y
0007660 3 B Y 3 I D E N T I T Y 4 B Y
0007700 4 R O T A T E 3 B Y 3 R O T
0007720 A T E 4 B Y 4 . A B O U T X R
0007740 O T A T E 4 B Y 4 . A B O U T Y
0007760 R O T A T E 4 B Y 4 . A B O U
0010000 T Z S C A L E 3 B Y 3 \r S C
0010020 A L E 4 B Y 4 T R A N S L A T
0010040 E 3 B Y 3 T R A N S L A T E 4
0010060 B Y 4 ) ( F N S S E T . X C
0010100 O O R D S E T . Y C O O R D
0010120 S E T . Z C O O R D ) ( F N S
0010140 G E T . X C O O R D \r G E T
0010160 . Y C O O R D G E T . Z C O O
0010200 R D ) ) ) \r ( P U T P R O P S
0010220 M A T R I X U S E C O P Y R I
0010240 G H T ( " X e r o x C o r p
0010260 o r a t i o n " 1 9 8 5 ) ) \r
0010300 N I L \r
0010304