$ od -c -N 50000 [eris]<LispCore>LIBRARY>MATMULT.DCOM!16
0000000 ( F I L E C R E A T E D " 8
0000020 - A u g - 8 6 1 4 : 5 0 : 1 2
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 M U L
0000120 T . ; 1 7 ) \r " 4 - A u g -
0000140 8 6 1 7 : 4 3 : 1 4 " r e c
0000160 o m p i l e d c h a n g e s :
0000200 C R E A T E 1 B Y 3 C R E A
0000220 T E 1 B Y 4 C R E A T E 3 B Y
0000240 1 C R E A T E 3 B Y 3 C R E
0000260 A T E 4 B Y 1 \r C R E A T E 4
0000300 B Y 4 G E T . W C O O R D G
0000320 E T . X C O O R D G E T . Y C
0000340 O O R D G E T . Z C O O R D
0000360 I D E N T I T Y 3 B Y 3 I D E
0000400 N T I T Y 4 B Y 4 M A T M U L
0000420 T M A T M U L T 1 3 3 \r M A
0000440 T M U L T 1 4 4 M A T M U L T
0000460 3 3 1 M A T M U L T 3 3 3 M
0000500 A T M U L T 4 4 1 M A T M U L
0000520 T 4 4 4 R O T A T E 3 B Y 3
0000540 R O T A T E 4 B Y 4 . A B O U T
0000560 X R O T A T E 4 B Y 4 . A B O
0000600 U T Y \r R O T A T E 4 B Y 4 .
0000620 A B O U T Z S C A L E 3 B Y 3
0000640 S C A L E 4 B Y 4 S E T . W
0000660 C O O R D S E T . X C O O R D
0000700 S E T . Y C O O R D S E T .
0000720 Z C O O R D T R A N S L A T E
0000740 3 B Y 3 \r T R A N S L A T E 4
0000760 B Y 4 \ C H E C K V A L I D A
0001000 R R A Y \ M A K E V A L I D A
0001020 R R A Y \ M A T R I X . G E T
0001040 . B A S E i n " X e r o x
0001060 L i s p 4 - A u g - 8 6 .
0001100 . . " d a t e d \r " 4 - A
0001120 u g - 8 6 2 2 : 1 7 : 5 2 " )
0001140 \r ( F I L E C R E A T E D "
0001160 8 - A u g - 8 6 1 4 : 4 8 : 3
0001200 6 " { E R I S } < L I S P C O
0001220 R E > L I B R A R Y > M A T M U
0001240 L T . ; 1 7 2 1 9 1 9 c h a
0001260 n g e s t o : ( F N S \r \
0001300 C H E C K V A L I D A R R A Y
0001320 C R E A T E 4 B Y 4 A R R A Y
0001340 C O L S A R R A Y R O W S C
0001360 R E A T E 1 B Y 3 C R E A T E
0001400 1 B Y 4 C R E A T E 3 B Y 1
0001420 C R E A T E 3 B Y 3 C R E A T
0001440 E 4 B Y 1 \r I D E N T I T Y 3
0001460 B Y 3 \ M A K E V A L I D A R
0001500 R A Y T R A N S L A T E 3 B Y
0001520 3 S C A L E 3 B Y 3 R O T A
0001540 T E 3 B Y 3 I D E N T I T Y 4
0001560 B Y 4 S C A L E 4 B Y 4 T R
0001600 A N S L A T E 4 B Y 4 \r R O T
0001620 A T E 4 B Y 4 . A B O U T X R
0001640 O T A T E 4 B Y 4 . A B O U T Y
0001660 R O T A T E 4 B Y 4 . A B O U
0001700 T Z \ M A T R I X . G E T . B
0001720 A S E M A T . I N V E R T . 3
0001740 B Y 3 M A T M U L T 1 3 3 \r
0001760 M A T M U L T 1 4 4 G E T . W
0002000 C O O R D G E T . X C O O R D
0002020 G E T . Y C O O R D G E T .
0002040 Z C O O R D M A T M U L T 3 3
0002060 1 M A T M U L T 3 3 3 M A T
0002100 M U L T 4 4 1 M A T M U L T 4
0002120 4 4 \r S E T . W C O O R D S
0002140 E T . X C O O R D S E T . Y C
0002160 O O R D S E T . Z C O O R D
0002200 \ G E T E L T \ S E T E L T
0002220 M A T M U L T ) ( V A R S M
0002240 A T M U L T C O M S ) ( M A C
0002260 R O S \r . M A T M U L T 1 3 3
0002300 . M A T M U L T 1 4 4 . M A
0002320 T M U L T 3 3 1 . M A T M U L
0002340 T 3 3 3 . M A T M U L T 4 4 1
0002360 . M A T M U L T 4 4 4 \ G E
0002400 T E L T \ S E T E L T G E T
0002420 . W C O O R D \r G E T . X C O
0002440 O R D G E T . Y C O O R D G
0002460 E T . Z C O O R D S E T . W C
0002500 O O R D S E T . X C O O R D
0002520 S E T . Y C O O R D S E T . Z
0002540 C O O R D M A T M U L T 1 3 3
0002560 M A T M U L T 1 4 4 \r M A T
0002600 M U L T 3 3 1 M A T M U L T 3
0002620 3 3 M A T M U L T 4 4 1 M A
0002640 T M U L T 4 4 4 ) p r e v i o
0002660 u s d a t e : " 2 7 - M a r
0002700 - 8 6 1 5 : 4 7 : 0 1 " \r {
0002720 E R I S } < L I S P C O R E > L
0002740 I B R A R Y > M A T M U L T . ;
0002760 1 6 ) \r C R E A T E 1 B Y 3 D
0003000 1 \r N I L \0 \r \0 \0 \0 \0 l 003 g \0
0003020 \0 g \0 \0 \v \0 \0 020 \0 ( 1 2 Q M A
0003040 K E - A R R A Y ) \r ( 7 S I N
0003060 G L E - F L O A T 4 : E L E
0003100 M E N T - T Y P E ) \r ( ) \r C R
0003120 E A T E 1 B Y 4 D 1 \r N I L
0003140 \0 \r \0 \0 \0 \0 l 004 g \0 \0 g \0 \0 \v \0
0003160 \0 020 \0 ( 1 2 Q M A K E - A R R
0003200 A Y ) \r ( 7 S I N G L E - F L
0003220 O A T 4 : E L E M E N T - T
0003240 Y P E ) \r ( ) \r C R E A T E 3 B
0003260 Y 1 D 1 \r N I L \0 \r \0 \0 \0 \0
0003300 l 003 g \0 \0 g \0 \0 \v \0 \0 020 \0 ( 1 2
0003320 Q M A K E - A R R A Y ) \r ( 7
0003340 S I N G L E - F L O A T 4
0003360 : E L E M E N T - T Y P E ) \r (
0003400 ) \r C R E A T E 3 B Y 3 D 1 \r
0003420 N I L \0 017 \0 \0 \0 \0 o \0 \0 \0 g \0
0003440 \0 g \0 \0 \v \0 \0 020 \0 ( 1 4 Q M A
0003460 K E - A R R A Y ) \r ( 1 1 Q S
0003500 I N G L E - F L O A T 6 : E
0003520 L E M E N T - T Y P E ) \r ( 3
0003540 ( 3 3 ) ) \r C R E A T E 4 B
0003560 Y 1 D 1 \r N I L \0 \r \0 \0 \0 \0
0003600 l 004 g \0 \0 g \0 \0 \v \0 \0 020 \0 ( 1 2
0003620 Q M A K E - A R R A Y ) \r ( 7
0003640 S I N G L E - F L O A T 4
0003660 : E L E M E N T - T Y P E ) \r (
0003700 ) \r C R E A T E 4 B Y 4 D 1 \r
0003720 N I L \0 017 \0 \0 \0 \0 o \0 \0 \0 g \0
0003740 \0 g \0 \0 \v \0 \0 020 \0 ( 1 4 Q M A
0003760 K E - A R R A Y ) \r ( 1 1 Q S
0004000 I N G L E - F L O A T 6 : E
0004020 L E M E N T - T Y P E ) \r ( 3
0004040 ( 4 4 ) ) \r G E T . W C O O
0004060 R D D 1 \r ( L ( 0 V E C T
0004100 O R ) ) \0 006 \0 \0 \0 001 @ l 003 266 020
0004120 \0 N I L \r N I L \r ( ) \r G E T .
0004140 X C O O R D D 1 \r ( L ( 0
0004160 V E C T O R ) ) \0 005 \0 \0 \0 001 @
0004200 j 266 020 \0 N I L \r N I L \r ( ) \r G
0004220 E T . Y C O O R D D 1 \r ( L
0004240 ( 0 V E C T O R ) ) \0 005 \0 \0
0004260 \0 001 @ k 266 020 \0 N I L \r N I L \r (
0004300 ) \r G E T . Z C O O R D D 1 \r
0004320 ( L ( 0 V E C T O R ) ) \0
0004340 006 \0 \0 \0 001 @ l 002 266 020 \0 N I L \r N
0004360 I L \r ( ) \r I D E N T I T Y 3 B
0004400 Y 3 D 1 \r ( L ( 0 M ) )
0004420 \0 @ 005 \0 \0 001 @ o \0 \0 \0 \n \0 \0 021 A
0004440 004 l 002 j 274 273 L K 363 263 * l 002 j 272 271
0004460 J I 363 263 032 L J 360 224 o \0 \0 \0 203 o \0
0004500 \0 \0 H L J 357 277 J k 324 Z 260 346 L k 324
0004520 \ 260 326 H 020 \0 ( 7 \ M A K E V A
0004540 L I D A R R A Y ) \r N I L \r (
0004560 5 3 Q 0 . 0 4 6 Q 1 . 0
0004600 4 ( 3 3 ) ) \r I D E N T I T
0004620 Y 4 B Y 4 D 1 \r ( L ( 0 M
0004640 ) ) \0 @ 005 \0 \0 001 @ o \0 \0 \0 \n \0
0004660 \0 021 A 004 l 003 j 274 273 L K 363 263 * l 003
0004700 j 272 271 J I 363 263 032 L J 360 224 o \0 \0 \0
0004720 203 o \0 \0 \0 H L J 357 277 J k 324 Z 260 346
0004740 L k 324 \ 260 326 H 020 \0 ( 7 \ M A K
0004760 E V A L I D A R R A Y ) \r N I L
0005000 \r ( 5 3 Q 0 . 0 4 6 Q 1
0005020 . 0 4 ( 4 4 ) ) \r M A T M
0005040 U L T D 1 \r ( L ( 2 M A T
0005060 R I X C 1 M A T R I X B 0
0005100 M A T R I X A ) ) 001 023 024 \0 \0
0005120 003 @ j \n \0 \0 @ k \n \0 \0 A k \n \0 \0
0005140 021 003 002 @ H I h 032 032 \n \0 \0 277 A I J
0005160 h 032 032 \n \0 \0 277 B H J h 032 032 \n \0 \0
0005200 b 004 277 H k 331 j @ \t \0 \0 A \t \0 \0 B
0005220 \t \0 \0 j h j d 021 \t \v L K 363 222 261 \0
0005240 303 I k 331 j O 024 j 021 004 017 O 032 O 030 363
0005260 222 261 \0 230 M O 034 320 d 310 \0 375 310 001 321 _
0005300 022 277 J k 331 j O 036 O 026 021 004 023 O " O
0005320 363 263 \ O 032 j 360 262 030 O 016 O & 320 O
0005340 022 N O $ 320 d 310 \0 375 310 001 321 354 003 260 $
0005360 O 016 O & 320 O 016 O & 320 d 310 \0 375 310 001
0005400 321 O 022 N O $ 320 d 310 \0 375 310 001 321 354 003
0005420 354 \0 316 \0 277 O " k 324 _ " 277 O $ l 002
0005440 324 _ $ 277 O & l 002 324 _ & 277 260 241 023 O
0005460 032 k 324 _ 032 277 O 034 l 002 324 _ 034 277 O 036
0005500 J 340 324 _ 036 277 261 377 e 023 L k 324 274 O 024
0005520 I 340 324 _ 024 277 O 026 J 340 324 _ 026 277 261 377
0005540 < B 020 \0 ( 1 0 1 Q \ M A T R I
0005560 X . G E T . B A S E 7 5 Q \
0005600 M A T R I X . G E T . B A S E
0005620 7 1 Q \ M A T R I X . G E T .
0005640 B A S E 5 6 Q \ M A K E V A
0005660 L I D A R R A Y 4 4 Q \ C H
0005700 E C K V A L I D A R R A Y 3 2
0005720 Q \ C H E C K V A L I D A R R
0005740 A Y 1 6 Q A R R A Y - D I M
0005760 E N S I O N 1 1 Q A R R A Y
0006000 - D I M E N S I O N 4 A R R
0006020 A Y - D I M E N S I O N ) \r N I
0006040 L \r ( ) \r M A T M U L T 1 3 3
0006060 D 1 \r ( L ( 2 M A T R I X C
0006100 1 M A T R I X B 0 M A T
0006120 R I X A ) ) \0 ) \0 \0 \0 003 @ o \0
0006140 \0 \0 \n \0 \0 A o \0 \0 \0 \n \0 \0 B o \0
0006160 \0 \0 \n \0 \0 @ \t \0 \0 A \t \0 \0 B \t \0
0006200 \0 2 003 B 020 \0 ( 4 3 Q \ M A T R
0006220 I X . G E T . B A S E 3 7 Q
0006240 \ M A T R I X . G E T . B A S E
0006260 3 3 Q \ M A T R I X . G E T
0006300 . B A S E 2 7 Q \ C H E C K
0006320 V A L I D A R R A Y 1 7 Q \
0006340 C H E C K V A L I D A R R A Y
0006360 7 \ C H E C K V A L I D A R R
0006400 A Y ) \r N I L \r ( 2 4 Q ( 3
0006420 ) 1 4 Q ( 3 3 ) 4 ( 3
0006440 ) ) \r M A T M U L T 1 4 4 D 1
0006460 \r ( L ( 2 M A T R I X C 1
0006500 M A T R I X B 0 M A T R I
0006520 X A ) ) \0 ) \0 \0 \0 003 @ o \0 \0 \0
0006540 \n \0 \0 A o \0 \0 \0 \n \0 \0 B o \0 \0 \0
0006560 \n \0 \0 @ \t \0 \0 A \t \0 \0 B \t \0 \0 2
0006600 005 B 020 \0 ( 4 3 Q \ M A T R I X
0006620 . G E T . B A S E 3 7 Q \ M
0006640 A T R I X . G E T . B A S E 3
0006660 3 Q \ M A T R I X . G E T . B
0006700 A S E 2 7 Q \ C H E C K V A
0006720 L I D A R R A Y 1 7 Q \ C H
0006740 E C K V A L I D A R R A Y 7
0006760 \ C H E C K V A L I D A R R A Y
0007000 ) \r N I L \r ( 2 4 Q ( 4 )
0007020 1 4 Q ( 4 4 ) 4 ( 4 ) )
0007040 \r M A T M U L T 3 3 1 D 1 \r (
0007060 L ( 2 M A T R I X C 1 M
0007100 A T R I X B 0 M A T R I X A
0007120 ) ) \0 % \0 \0 \0 003 @ o \0 \0 \0 \n \0
0007140 \0 A l 003 \n \0 \0 B l 003 \n \0 \0 @ \t \0
0007160 \0 A \t \0 \0 B \t \0 \0 2 004 B 020 \0 ( 3
0007200 7 Q \ M A T R I X . G E T . B
0007220 A S E 3 3 Q \ M A T R I X .
0007240 G E T . B A S E 2 7 Q \ M A
0007260 T R I X . G E T . B A S E 2 3
0007300 Q \ C H E C K V A L I D A R R
0007320 A Y 1 5 Q \ C H E C K V A L
0007340 I D A R R A Y 7 \ C H E C K
0007360 V A L I D A R R A Y ) \r N I L \r
0007400 ( 4 ( 3 3 ) ) \r M A T M U
0007420 L T 3 3 3 D 1 \r ( L ( 2 M
0007440 A T R I X C 1 M A T R I X B
0007460 0 M A T R I X A ) ) \0 ) \0
0007500 \0 \0 003 @ o \0 \0 \0 \n \0 \0 A o \0 \0 \0
0007520 \n \0 \0 B o \0 \0 \0 \n \0 \0 @ \t \0 \0 A
0007540 \t \0 \0 B \t \0 \0 2 001 B 020 \0 ( 4 3 Q
0007560 \ M A T R I X . G E T . B A S
0007600 E 3 7 Q \ M A T R I X . G E
0007620 T . B A S E 3 3 Q \ M A T R
0007640 I X . G E T . B A S E 2 7 Q
0007660 \ C H E C K V A L I D A R R A Y
0007700 1 7 Q \ C H E C K V A L I D
0007720 A R R A Y 7 \ C H E C K V A
0007740 L I D A R R A Y ) \r N I L \r (
0007760 2 4 Q ( 3 3 ) 1 4 Q ( 3
0010000 3 ) 4 ( 3 3 ) ) \r M A T
0010020 M U L T 4 4 1 D 1 \r ( L ( 2
0010040 M A T R I X C 1 M A T R I
0010060 X B 0 M A T R I X A ) ) \0
0010100 % \0 \0 \0 003 @ o \0 \0 \0 \n \0 \0 A l 004
0010120 \n \0 \0 B l 004 \n \0 \0 @ \t \0 \0 A \t \0
0010140 \0 B \t \0 \0 2 006 B 020 \0 ( 3 7 Q \
0010160 M A T R I X . G E T . B A S E
0010200 3 3 Q \ M A T R I X . G E T .
0010220 B A S E 2 7 Q \ M A T R I X
0010240 . G E T . B A S E 2 3 Q \ C
0010260 H E C K V A L I D A R R A Y 1
0010300 5 Q \ C H E C K V A L I D A R
0010320 R A Y 7 \ C H E C K V A L I
0010340 D A R R A Y ) \r N I L \r ( 4
0010360 ( 4 4 ) ) \r M A T M U L T 4 4
0010400 4 D 1 \r ( L ( 2 M A T R I
0010420 X C 1 M A T R I X B 0 M
0010440 A T R I X A ) ) \0 ) \0 \0 \0 003 @
0010460 o \0 \0 \0 \n \0 \0 A o \0 \0 \0 \n \0 \0 B
0010500 o \0 \0 \0 \n \0 \0 @ \t \0 \0 A \t \0 \0 B
0010520 \t \0 \0 2 002 B 020 \0 ( 4 3 Q \ M A
0010540 T R I X . G E T . B A S E 3 7
0010560 Q \ M A T R I X . G E T . B A
0010600 S E 3 3 Q \ M A T R I X . G
0010620 E T . B A S E 2 7 Q \ C H E
0010640 C K V A L I D A R R A Y 1 7 Q
0010660 \ C H E C K V A L I D A R R A
0010700 Y 7 \ C H E C K V A L I D A
0010720 R R A Y ) \r N I L \r ( 2 4 Q
0010740 ( 4 4 ) 1 4 Q ( 4 4 )
0010760 4 ( 4 4 ) ) \r R O T A T E 3
0011000 B Y 3 D 1 \r ( L ( 2 M 1
0011020 R A D I A N S F L G 0 P H
0011040 I ) ) \0 \ 003 \0 \0 003 B o \0 \0 \0 \n
0011060 \0 \0 @ A \n \0 \0 @ A \n \0 \0 021 003 002 I
0011100 H j d 357 J \t \0 \0 H j k 357 o \0 \0 \0
0011120 H j l 002 357 J H k j 357 I H k d 357 o
0011140 \0 \0 \0 H k l 002 357 o \0 \0 \0 H l 002 j
0011160 357 o \0 \0 \0 H l 002 k 357 o \0 \0 \0 H l
0011200 002 d 357 H 020 \0 ( 3 5 Q F M I N U
0011220 S 2 1 Q S I N 1 4 Q C O
0011240 S 7 \ M A K E V A L I D A R
0011260 R A Y ) \r N I L \r ( 1 2 3 Q
0011300 1 . 0 1 1 2 Q 0 . 0 1 0 1
0011320 Q 0 . 0 7 0 Q 0 . 0 4 5
0011340 Q 0 . 0 4 ( 3 3 ) ) \r R
0011360 O T A T E 4 B Y 4 . A B O U T X
0011400 D 1 \r ( L ( 2 M 1 R A
0011420 D I A N S F L G 0 P H I ) )
0011440 \0 k \a \0 \0 003 B o \0 \0 \0 \n \0 \0 @
0011460 A \n \0 \0 @ A \n \0 \0 021 C 006 l 003 j 276
0011500 275 N M 363 263 l 003 j 274 273 L K 363 256 o
0011520 \0 \0 \0 H L N 357 277 L k 324 \ 260 360 N k
0011540 324 ^ 260 340 o \0 \0 \0 H j d 357 I H k d
0011560 357 J \t \0 \0 H k l 002 357 J H l 002 k 357
0011600 I H l 002 d 357 o \0 \0 \0 H l 003 d 357 H
0011620 020 \0 ( 1 1 5 Q F M I N U S 2
0011640 1 Q S I N 1 4 Q C O S 7
0011660 \ M A K E V A L I D A R R A Y
0011700 ) \r N I L \r ( 1 4 2 Q 1 . 0
0011720 1 0 0 Q 1 . 0 5 3 Q 0 .
0011740 0 4 ( 4 4 ) ) \r R O T A T
0011760 E 4 B Y 4 . A B O U T Y D 1 \r
0012000 ( L ( 2 M 1 R A D I A N
0012020 S F L G 0 P H I ) ) \0 k \a
0012040 \0 \0 003 B o \0 \0 \0 \n \0 \0 @ A \n \0 \0
0012060 @ A \n \0 \0 021 C 006 l 003 j 276 275 N M 363
0012100 263 l 003 j 274 273 L K 363 256 o \0 \0 \0 H
0012120 L N 357 277 L k 324 \ 260 360 N k 324 ^ 260 340
0012140 I H j d 357 J \t \0 \0 H l 002 j 357 o \0
0012160 \0 \0 H k d 357 J H j l 002 357 I H l 002
0012200 d 357 o \0 \0 \0 H l 003 d 357 H 020 \0 ( 1
0012220 0 5 Q F M I N U S 2 1 Q S
0012240 I N 1 4 Q C O S 7 \ M A
0012260 K E V A L I D A R R A Y ) \r N I
0012300 L \r ( 1 4 2 Q 1 . 0 1 1 6
0012320 Q 1 . 0 5 3 Q 0 . 0 4
0012340 ( 4 4 ) ) \r R O T A T E 4 B Y
0012360 4 . A B O U T Z D 1 \r ( L (
0012400 2 M 1 R A D I A N S F L G
0012420 0 P H I ) ) \0 i \a \0 \0 003 B
0012440 o \0 \0 \0 \n \0 \0 @ A \n \0 \0 @ A \n \0
0012460 \0 021 C 006 l 003 j 276 275 N M 363 263 l 003
0012500 j 274 273 L K 363 256 o \0 \0 \0 H L N 357 277
0012520 L k 324 \ 260 360 N k 324 ^ 260 340 I H j d
0012540 357 J \t \0 \0 H j k 357 J H k j 357 I H
0012560 k d 357 o \0 \0 \0 H l 002 d 357 o \0 \0 \0
0012600 H l 003 d 357 H 020 \0 ( 1 0 5 Q F M
0012620 I N U S 2 1 Q S I N 1 4 Q
0012640 C O S 7 \ M A K E V A L I
0012660 D A R R A Y ) \r N I L \r ( 1 4
0012700 0 Q 1 . 0 1 2 7 Q 1 . 0
0012720 5 3 Q 0 . 0 4 ( 4 4 ) )
0012740 \r S C A L E 3 B Y 3 D 1 \r ( L
0012760 ( 2 M 1 S Y 0 S X )
0013000 ) \0 032 001 \0 \0 003 B \t \0 \0 021 001 \0 @
0013020 006 \0 \0 H j d 357 A 006 \0 \0 H k d 357 H
0013040 020 \0 ( 3 I D E N T I T Y 3 B Y
0013060 3 ) \r ( 2 2 Q F L O A T P 1
0013100 2 Q F L O A T P ) \r ( ) \r S C
0013120 A L E 4 B Y 4 D 1 \r ( L ( 3
0013140 M 2 S Z 1 S Y 0 S
0013160 X ) ) \0 # 001 \0 \0 004 C \t \0 \0 021 001
0013200 \0 @ 006 \0 \0 H j d 357 A 006 \0 \0 H k d
0013220 357 B 006 \0 \0 H l 002 d 357 H 020 \0 ( 3
0013240 I D E N T I T Y 4 B Y 4 ) \r ( 3
0013260 2 Q F L O A T P 2 2 Q F L
0013300 O A T P 1 2 Q F L O A T P )
0013320 \r ( ) \r S E T . W C O O R D D
0013340 1 \r ( L ( 1 V A L U E 0
0013360 V E C T O R ) ) \0 \a \0 \0 \0 002 A
0013400 @ l 003 267 020 \0 N I L \r N I L \r ( )
0013420 \r S E T . X C O O R D D 1 \r (
0013440 L ( 1 V A L U E 0 V E C
0013460 T O R ) ) \0 006 \0 \0 \0 002 A @ j 267
0013500 020 \0 N I L \r N I L \r ( ) \r S E T
0013520 . Y C O O R D D 1 \r ( L ( 1
0013540 V A L U E 0 V E C T O R )
0013560 ) \0 006 \0 \0 \0 002 A @ k 267 020 \0 N I
0013600 L \r N I L \r ( ) \r S E T . Z C O
0013620 O R D D 1 \r ( L ( 1 V A L
0013640 U E 0 V E C T O R ) ) \0 \a
0013660 \0 \0 \0 002 A @ l 002 267 020 \0 N I L \r N
0013700 I L \r ( ) \r T R A N S L A T E 3
0013720 B Y 3 D 1 \r ( L ( 2 M 1
0013740 T Y 0 T X ) ) \0 026 001 \0 \0
0013760 003 B \t \0 \0 021 001 \0 @ H l 002 j 357 A H
0014000 l 002 k 357 H 020 \0 ( 3 I D E N T I
0014020 T Y 3 B Y 3 ) \r N I L \r ( ) \r T
0014040 R A N S L A T E 4 B Y 4 D 1 \r
0014060 ( L ( 3 M 2 T Z 1 T
0014100 Y 0 T X ) ) \0 035 001 \0 \0 004 C
0014120 \t \0 \0 021 001 \0 @ H l 003 j 357 A H l 003
0014140 k 357 B H l 003 l 002 357 H 020 \0 ( 3 I
0014160 D E N T I T Y 4 B Y 4 ) \r N I L
0014200 \r ( ) \r \ C H E C K V A L I D A
0014220 R R A Y D 1 \r ( L ( 1 D I
0014240 M S 0 A R R A Y ) ) \0 " \0
0014260 \0 \0 002 @ \t \0 \0 262 024 A @ \t \0 \0 364 232
0014300 @ \t \0 \0 g \0 \0 360 221 @ 020 o \0 \0 \0 @
0014320 \n \0 \0 020 \0 ( 3 7 Q E R R O R
0014340 2 0 Q A R R A Y - E L E M E N
0014360 T - T Y P E 1 2 Q A R R A Y
0014400 - D I M E N S I O N S 3 C L
0014420 : A R R A Y P ) \r ( 2 3 Q S I
0014440 N G L E - F L O A T ) \r ( 3 3
0014460 Q " N o t a v a l i d a
0014500 r r a y " ) \r \ M A K E V A L I
0014520 D A R R A Y D 1 \r ( L ( 1
0014540 D I M S 0 A R R A Y ) ) \0
0014560 024 \0 \0 \0 002 @ 265 \r A g \0 \0 g \0 \0 \v
0014600 \0 \0 020 A \n \0 \0 020 \0 ( 2 1 Q \ C
0014620 H E C K V A L I D A R R A Y 1
0014640 4 Q M A K E - A R R A Y ) \r (
0014660 1 1 Q S I N G L E - F L O A T
0014700 6 : E L E M E N T - T Y P E
0014720 ) \r ( ) \r \ M A T R I X . G E T
0014740 . B A S E D 1 \r ( L ( 0 A
0014760 R R A Y ) ) \0 \f \0 \0 \0 001 @ \t \0
0015000 \0 @ \t \0 \0 340 320 020 \0 ( 7 \ A R R
0015020 A Y - O F F S E T 3 \ A R R
0015040 A Y - B A S E ) \r N I L \r ( ) \r
0015060 ( P R E T T Y C O M P R I N T
0015100 M A T M U L T C O M S ) \r ( R P
0015120 A Q Q M A T M U L T C O M S
0015140 ( ( * * U s e r e n t r y
0015160 p o i n t s ) ( F N S C R
0015200 E A T E 1 B Y 3 C R E A T E 1
0015220 B Y 4 C R E A T E 3 B Y 1 C
0015240 R E A T E 3 B Y 3 \r C R E A T
0015260 E 4 B Y 1 C R E A T E 4 B Y 4
0015300 G E T . W C O O R D G E T .
0015320 X C O O R D G E T . Y C O O R
0015340 D G E T . Z C O O R D I D E
0015360 N T I T Y 3 B Y 3 I D E N T I
0015400 T Y 4 B Y 4 M A T M U L T \r
0015420 M A T M U L T 1 3 3 M A T M U
0015440 L T 1 4 4 M A T M U L T 3 3 1
0015460 M A T M U L T 3 3 3 M A T M
0015500 U L T 4 4 1 M A T M U L T 4 4
0015520 4 R O T A T E 3 B Y 3 R O T
0015540 A T E 4 B Y 4 . A B O U T X \r
0015560 R O T A T E 4 B Y 4 . A B O U T
0015600 Y R O T A T E 4 B Y 4 . A B O
0015620 U T Z S C A L E 3 B Y 3 S C
0015640 A L E 4 B Y 4 S E T . W C O O
0015660 R D S E T . X C O O R D S E
0015700 T . Y C O O R D S E T . Z C O
0015720 O R D \r T R A N S L A T E 3 B
0015740 Y 3 T R A N S L A T E 4 B Y 4
0015760 ) ( * * I n t e r n a l
0016000 s t u f f ) ( F N S \ C H E
0016020 C K V A L I D A R R A Y \ M A
0016040 K E V A L I D A R R A Y \r \ M
0016060 A T R I X . G E T . B A S E )
0016100 ( * * O p t i m i z e r s )
0016120 ( M A C R O S G E T . W C O
0016140 O R D G E T . X C O O R D G
0016160 E T . Y C O O R D G E T . Z C
0016200 O O R D S E T . W C O O R D
0016220 \r S E T . X C O O R D S E T .
0016240 Y C O O R D S E T . Z C O O R
0016260 D ) ( M A C R O S M A T M U
0016300 L T 1 3 3 M A T M U L T 3 3 1
0016320 M A T M U L T 3 3 3 M A T M
0016340 U L T 1 4 4 M A T M U L T 4 4
0016360 1 \r M A T M U L T 4 4 4 ) (
0016400 M A C R O S . M A T M U L T 1
0016420 3 3 . M A T M U L T 3 3 1 .
0016440 M A T M U L T 3 3 3 . M A T M
0016460 U L T 1 4 4 . M A T M U L T 4
0016500 4 1 . M A T M U L T 4 4 4 )
0016520 ( * * \r C o m p i l e r o
0016540 p t i o n s ) ( D E C L A R E
0016560 : D O N T E V A L @ L O A D
0016600 D O E V A L @ C O M P I L E D
0016620 O N T C O P Y ( L O C A L V A
0016640 R S . T ) ) ) ) \r ( P U T P
0016660 R O P S G E T . W C O O R D
0016700 D M A C R O ( ( V E C T O R )
0016720 ( A R E F V E C T O R 3 )
0016740 ) ) \r ( P U T P R O P S G E T
0016760 . X C O O R D D M A C R O (
0017000 ( V E C T O R ) ( A R E F V
0017020 E C T O R 0 ) ) ) \r ( P U T P
0017040 R O P S G E T . Y C O O R D
0017060 D M A C R O ( ( V E C T O R )
0017100 ( A R E F V E C T O R 1 )
0017120 ) ) \r ( P U T P R O P S G E T
0017140 . Z C O O R D D M A C R O (
0017160 ( V E C T O R ) ( A R E F V
0017200 E C T O R 2 ) ) ) \r ( P U T P
0017220 R O P S S E T . W C O O R D
0017240 D M A C R O ( O P E N L A M B
0017260 D A ( V E C T O R V A L U E
0017300 ) ( A S E T V A L U E V E
0017320 C T O R 3 ) ) ) \r ( P U T P R
0017340 O P S S E T . X C O O R D D
0017360 M A C R O ( O P E N L A M B D
0017400 A ( V E C T O R V A L U E )
0017420 ( A S E T V A L U E V E C
0017440 T O R 0 ) ) ) \r ( P U T P R O
0017460 P S S E T . Y C O O R D D M
0017500 A C R O ( O P E N L A M B D A
0017520 ( V E C T O R V A L U E )
0017540 ( A S E T V A L U E V E C T
0017560 O R 1 ) ) ) \r ( P U T P R O P
0017600 S S E T . Z C O O R D D M A
0017620 C R O ( O P E N L A M B D A
0017640 ( V E C T O R V A L U E ) (
0017660 A S E T V A L U E V E C T O
0017700 R 2 ) ) ) \r ( P U T P R O P S
0017720 M A T M U L T 1 3 3 D M A C
0017740 R O ( O P E N L A M B D A (
0017760 M A T R I X A M A T R I X B
0020000 M A T R I X C ) ( * h d j
0020020 " 1 2 - F e b - 8 5 1 2 : 2 8
0020040 " ) ( * * \r m u l t i p l
0020060 y ( 1 % , 3 ) * ( 3
0020100 % , 3 ) = > ( 1 % , 3
0020120 ) ) ( . M A T M U L T 1 3 3
0020140 ( \ M A T R I X . G E T . B A S
0020160 E M A T R I X A ) ( \ M A T
0020200 R I X . G E T . B A S E \r M A
0020220 T R I X B ) ( \ M A T R I X .
0020240 G E T . B A S E M A T R I X C
0020260 ) ) M A T R I X C ) ) \r ( P U
0020300 T P R O P S M A T M U L T 3 3
0020320 1 D M A C R O ( O P E N L A
0020340 M B D A ( M A T R I X A M A
0020360 T R I X B M A T R I X C ) (
0020400 * * m u l t i p l y ( 3
0020420 % , 3 ) * ( 3 % , 1 )
0020440 = > \r ( 3 % , 1 ) ) (
0020460 . M A T M U L T 3 3 1 ( \ M A
0020500 T R I X . G E T . B A S E M A
0020520 T R I X A ) ( \ M A T R I X .
0020540 G E T . B A S E M A T R I X B
0020560 ) ( \ M A T R I X . G E T . B
0020600 A S E \r M A T R I X C ) ) M
0020620 A T R I X C ) ) \r ( P U T P R O
0020640 P S M A T M U L T 3 3 3 D M
0020660 A C R O ( O P E N L A M B D A
0020700 ( M A T R I X A M A T R I X
0020720 B M A T R I X C ) ( * *
0020740 m u l t i p l y t w o ( 3
0020760 % , 3 ) m a t r i c e s \r
0021000 i n m i c r o c o d e ) ( .
0021020 M A T M U L T 3 3 3 ( \ M A T
0021040 R I X . G E T . B A S E M A T
0021060 R I X A ) ( \ M A T R I X . G
0021100 E T . B A S E M A T R I X B )
0021120 ( \ M A T R I X . G E T . B A
0021140 S E \r M A T R I X C ) ) M A
0021160 T R I X C ) ) \r ( P U T P R O P
0021200 S M A T M U L T 1 4 4 D M A
0021220 C R O ( O P E N L A M B D A
0021240 ( M A T R I X A M A T R I X B
0021260 M A T R I X C ) ( * * m
0021300 u l t i p l y ( 1 % , 4 )
0021320 * ( 4 % , 4 ) = > \r
0021340 ( 1 % , 4 1 ) ) ( . M A T
0021360 M U L T 1 4 4 ( \ M A T R I X
0021400 . G E T . B A S E M A T R I X
0021420 A ) ( \ M A T R I X . G E T .
0021440 B A S E M A T R I X B ) ( \
0021460 M A T R I X . G E T . B A S E
0021500 \r M A T R I X C ) ) M A T R I
0021520 X C ) ) \r ( P U T P R O P S M
0021540 A T M U L T 4 4 1 D M A C R O
0021560 ( O P E N L A M B D A ( M A
0021600 T R I X A M A T R I X B M A
0021620 T R I X C ) ( * * m u l t
0021640 i p l y ( 4 % , 4 ) *
0021660 ( 4 % , 1 ) = > \r ( 4
0021700 % , 1 ) ) ( . M A T M U L T
0021720 4 4 1 ( \ M A T R I X . G E T
0021740 . B A S E M A T R I X A ) (
0021760 \ M A T R I X . G E T . B A S E
0022000 M A T R I X B ) ( \ M A T R
0022020 I X . G E T . B A S E \r M A T
0022040 R I X C ) ) M A T R I X C ) )
0022060 \r ( P U T P R O P S M A T M U
0022100 L T 4 4 4 D M A C R O ( O P
0022120 E N L A M B D A ( M A T R I X
0022140 A M A T R I X B M A T R I X
0022160 C ) ( * * m u l t i p l y
0022200 t w o ( 4 % , 4 ) m a
0022220 t r i c e s \r i n m i c r o
0022240 c o d e ) ( . M A T M U L T 4
0022260 4 4 ( \ M A T R I X . G E T .
0022300 B A S E M A T R I X A ) ( \
0022320 M A T R I X . G E T . B A S E
0022340 M A T R I X B ) ( \ M A T R I
0022360 X . G E T . B A S E \r M A T R
0022400 I X C ) ) M A T R I X C ) ) \r
0022420 ( P U T P R O P S . M A T M U
0022440 L T 1 3 3 D M A C R O ( ( M
0022460 A T R I X A B A S E M A T R I
0022500 X B B A S E M A T R I X C B A
0022520 S E ) ( * * m u l t i p l
0022540 y ( 1 % , 3 ) * ( 3
0022560 % , 3 ) \r = > ( 1 % ,
0022600 3 ) ) ( ( O P C O D E S U B
0022620 F L O A T 3 3 ) M A T R I X
0022640 A B A S E M A T R I X B B A S
0022660 E M A T R I X C B A S E ) ) )
0022700 \r ( P U T P R O P S . M A T M
0022720 U L T 3 3 1 D M A C R O ( (
0022740 M A T R I X A B A S E M A T R
0022760 I X B B A S E M A T R I X C B
0023000 A S E ) ( * * m u l t i p
0023020 l y ( 3 % , 3 ) * ( 3
0023040 % , 1 ) \r = > ( 3 % ,
0023060 1 ) ) ( ( O P C O D E S U
0023100 B F L O A T 3 4 ) M A T R I
0023120 X A B A S E M A T R I X B B A
0023140 S E M A T R I X C B A S E ) )
0023160 ) \r ( P U T P R O P S . M A T
0023200 M U L T 3 3 3 D M A C R O (
0023220 ( M A T R I X A B A S E M A T
0023240 R I X B B A S E M A T R I X C
0023260 B A S E ) ( * * m u l t i
0023300 p l y t w o ( 3 % , 3 )
0023320 \r m a t r i c e s i n m i
0023340 c r o c o d e ) ( ( O P C O D
0023360 E S U B F L O A T 3 1 ) M
0023400 A T R I X A B A S E M A T R I
0023420 X B B A S E M A T R I X C B A
0023440 S E ) ) ) \r ( P U T P R O P S
0023460 . M A T M U L T 1 4 4 D M A C
0023500 R O ( ( M A T R I X A B A S E
0023520 M A T R I X B B A S E M A T
0023540 R I X C B A S E ) ( * * m
0023560 u l t i p l y ( 1 % , 4 )
0023600 * ( 4 % , 4 ) \r = >
0023620 ( 1 % , 4 1 ) ) ( ( O P C
0023640 O D E S U B F L O A T 3 5 )
0023660 M A T R I X A B A S E M A T
0023700 R I X B B A S E M A T R I X C
0023720 B A S E ) ) ) \r ( P U T P R O P
0023740 S . M A T M U L T 4 4 1 D M
0023760 A C R O ( ( M A T R I X A B A
0024000 S E M A T R I X B B A S E M
0024020 A T R I X C B A S E ) ( * *
0024040 m u l t i p l y ( 4 % ,
0024060 4 ) * ( 4 % , 1 ) \r =
0024100 > ( 4 % , 1 ) ) ( ( O P
0024120 C O D E S U B F L O A T 3 6
0024140 ) M A T R I X A B A S E M A
0024160 T R I X B B A S E M A T R I X
0024200 C B A S E ) ) ) \r ( P U T P R O
0024220 P S . M A T M U L T 4 4 4 D
0024240 M A C R O ( ( M A T R I X A B
0024260 A S E M A T R I X B B A S E
0024300 M A T R I X C B A S E ) ( *
0024320 * m u l t i p l y t w o (
0024340 4 % , 4 ) \r m a t r i c e
0024360 s i n m i c r o c o d e )
0024400 ( ( O P C O D E S U B F L O A
0024420 T 3 2 ) M A T R I X A B A S
0024440 E M A T R I X B B A S E M A
0024460 T R I X C B A S E ) ) ) \r ( P U
0024500 T P R O P S M A T M U L T C
0024520 O P Y R I G H T ( " X e r o x
0024540 C o r p o r a t i o n " 1 9
0024560 8 5 1 9 8 6 ) ) \r N I L \r
0024576