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