$ od -c -N 50000 [qv]<IDL>koto>TEST-MATMULT!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 " 1
0000120 9 - O c t - 8 6 1 4 : 2 8 : 5
0000140 0 " 006 004 { Q V } < P E D E R S
0000160 E N > L I S P > T E S T - M A T
0000200 M U L T . ; 2 006 001 1 0 2 8 6
0000220 \r \r c h a n g e s
0000240 t o % : ( F U N C T I O N
0000260 S D R A W - 3 D - P L O T M
0000300 A T M U L T - 4 4 4 * T W O -
0000320 N O R M T E S T - M A T M U L
0000340 T - 4 4 4 D R A W - S P I R A
0000360 L \r
0000400 D R
0000420 A W - T R I A N G L E R E D R
0000440 A W - T R I A N G L E ) \r
0000460
0000500 ( V A R S T E S T - M A T M
0000520 U L T C O M S ) \r \r
0000540 p r e v i o u s d a t e % :
0000560 " 1 7 - O c t - 8 6 1 0 : 4 4
0000600 : 2 3 " { Q V } < P E D E R S
0000620 E N > L I S P > T E S T - M A T
0000640 M U L T . ; 1 ) \r \r \r ( * " \r
0000660 C o p y r i g h t ( c ) 1 9
0000700 8 6 b y X e r o x C o r p
0000720 o r a t i o n . A l l r i
0000740 g h t s r e s e r v e d . \r "
0000760 ) \r \r ( P R E T T Y C O M P R I
0001000 N T T E S T - M A T M U L T C
0001020 O M S ) \r \r ( R P A Q Q 006 002 T
0001040 E S T - M A T M U L T C O M S 006
0001060 001 ( ( F U N C T I O N S D R
0001100 A W - 3 D - P L O T D R A W -
0001120 S P I R A L D R A W - T R I A
0001140 N G L E M A T M U L T - 4 4 4
0001160 * \r
0001200
0001220 R E D R A W - T R I A N G
0001240 L E T E S T - M A T M U L T -
0001260 4 4 4 T W O - N O R M ) \r
0001300
0001320 ( P R O P F I L
0001340 E T Y P E T E S T - M A T M U
0001360 L T ) ) ) \r ( C L : D E F U N
0001400 006 002 D R A W - 3 D - P L O T 006 001
0001420 ( & O P T I O N A L ( W I N
0001440 D O W ( C R E A T E W ) ) )
0001460 ( L E T * ( ( X M I D ( R S
0001500 H ( W I N D O W P R O P W I
0001520 N D O W \r
0001540
*
0001640 ' W I D T H ) \r
0001660
*
0001760 1 ) ) \r
0002000
*
0002060 ( Y M I D ( R S H
0002100 ( W I N D O W P R O P W I N D
0002120 O W \r
0002140
*
0002240 ' H E I G H T ) \r
0002260
*
0002360 1 ) ) \r
0002400
*
0002460 ( W M A X ( M I N X
0002500 M I D Y M I D ) ) \r
0002520
*
0002600 ( P O I N T S
0002620 ( M A K E - H O M O G E N E O U
0002640 S - N - B Y - 4 4 0 ) ) \r
0002660
*
0002740 ( S C R A
0002760 T C H 1 ( M A K E - H O M O G
0003000 E N E O U S - N - B Y - 4 \r
0003020
*
0003120 4 0 ) ) \r
0003140
*
0003220 ( S C R A T C H
0003240 2 ( M A K E - H O M O G E N E
0003260 O U S - N - B Y - 4 \r
0003300
*
0003400 4 0 ) ) \r
0003420
*
0003500 ( P P O I N T S ( C
0003520 L : M A K E - A R R A Y \r
0003540
*
0003640 ' ( 4 0 2 ) ) ) \r
0003660
*
0003740 ( O L D P
0003760 P O I N T S ( C L : M A K E -
0004000 A R R A Y \r
0004020
*
0004120 ' ( 4 0 2 ) : I N I T I A L
0004140 - E L E M E N T 0 ) \r
0004160
*
0004260 ) \r
0004300
*
0004340 (
0004360 T 1 ( T R A N S L A T E - 4 -
0004400 B Y - 4 ( - W M A X ) \r
0004420
*
0004520 ( - W M A X ) \r
0004540
*
0004640 ( - W M A X ) )
0004660 ) \r
0004700
*
0004740 (
0004760 T 2 ( T R A N S L A T E - 4 -
0005000 B Y - 4 W M A X W M A X W
0005020 M A X ) ) \r
0005040
*
0005120 ( R ( R O T A T E - 4 -
0005140 B Y - 4 - A B O U T - X ( \r
0005160
*
0005300 D E G R E E S - T O - R A D
0005320 I A N S \r
0005340
*
0005440 5 ) )
0005460 ) \r
0005500
*
0005540 (
0005560 T R A N S ( I D E N T I T Y -
0005600 4 - B Y - 4 ) ) \r
0005620
*
0005700 ( N E W T R A N S
0005720 ( I D E N T I T Y - 4 - B Y - 4
0005740 ) ) ) \r
0005760
*
0006040 ( C L : D O T I M E S \r
0006060
*
0006140 ( I 4 0 ) \r
0006160
*
0006240 ( C L
0006260 : D O ( ( J 0 ( C L : 1 +
0006300 J ) ) \r
0006320
*
0006400 ( R A N G E
0006420 ( L L S H W M A X 1 ) ) )
0006440 \r
0006460
*
0006540 ( ( E Q L J 3 ) )
0006560 \r
0006600
*
0006660 ( A S E T ( F L O A
0006700 T ( R A N D 0 R A N G E )
0006720 ) \r
0006740
*
0007020 P O I N
0007040 T S I J ) ) ) \r
0007060
*
0007140 ( C L : L O O P (
0007160 M A T M U L T - 4 4 4 T R A N
0007200 S R N E W T R A N S ) \r
0007220
*
0007320 ( M A T M U L T - N 4 4 P O
0007340 I N T S T 1 S C R A T C H 1
0007360 ) \r
0007400
*
0007460 ( M A T M U L T - N 4
0007500 4 S C R A T C H 1 T R A N S
0007520 \r
0007540
*
0007620 S C R A
0007640 T C H 2 ) \r
0007660
*
0007740 ( M A T M U L
0007760 T - N 4 4 S C R A T C H 2 T
0010000 2 S C R A T C H 1 ) \r
0010020
*
0010100 (
0010120 P R O J E C T - A N D - F I X -
0010140 N - B Y - 4 S C R A T C H 1
0010160 \r
0010200
*
0010260 P P O I N
0010300 T S ) \r
0010320
*
0010400 ( C L : D O T I M
0010420 E S ( I 4 0 ) \r
0010440
*
0010540 ( B I T M A P B I T W
0010560 I N D O W \r
0010600
*
0010700 ( C L : A R E F
0010720 O L D P P O I N T S \r
0010740
*
0011060 I 0 ) \r
0011100
*
0011200 ( C L : A R
0011220 E F O L D P P O I N T S \r
0011240
*
0011360 I 1 ) \r
0011400
*
0011500 0 ) \r
0011520
*
0011620 ( B I T M A
0011640 P B I T W I N D O W \r
0011660
*
0011760 ( C L
0012000 : A R E F P P O I N T S I
0012020 0 \r
0012040
*
0012140 ) \r
0012160
*
0012260 ( C L
0012300 : A R E F P P O I N T S I
0012320 1 \r
0012340
*
0012440 ) \r
0012460
*
0012560 1 ) )
0012600 \r
0012620
*
0012700 ( C L : R O T A T E F
0012720 P P O I N T S O L D P P O I N
0012740 T S ) \r
0012760
*
0013040 ( C L : R O T A T
0013060 E F T R A N S N E W T R A N
0013100 S ) ) ) ) \r \r ( C L : D E F U N
0013120 006 002 D R A W - S P I R A L 006 001
0013140 ( & O P T I O N A L ( W I N
0013160 D O W ( C R E A T E W ) ) )
0013200 ( L E T ( ( X M I D ( R S H
0013220 ( W I N D O W P R O P W I N
0013240 D O W ' W I D T H ) \r
0013260
*
0013360 1 ) ) \r
0013400
*
0013460 ( Y M I D ( R S H ( W I N
0013500 D O W P R O P W I N D O W '
0013520 H E I G H T ) \r
0013540
*
0013620 1 )
0013640 ) \r
0013660
*
0013720 ( P O
0013740 I N T 1 ( M A K E - H O M O G
0013760 E N E O U S - 3 - V E C T O R
0014000 1 . 0 1 . 0 \r
0014020
*
0014120 ) ) \r
0014140
*
0014220 ( P O I N T 2 ( M A K E - H O
0014240 M O G E N E O U S - 3 - V E C T
0014260 O R 1 . 0 1 . 0 \r
0014300
*
0014400 ) ) \r
0014420
*
0014500 ( P P O I N T ( C L : M
0014520 A K E - A R R A Y 2 ) ) \r
0014540
*
0014620 ( M ( M A T
0014640 M U L T - 3 3 3 ( S C A L E -
0014660 3 - B Y - 3 1 . 0 0 1 1 . 0
0014700 0 1 ) \r
0014720
*
0015000 ( R O T A T E
0015020 - 3 - B Y - 3 ( \r
0015040
*
0015140 D E G
0015160 R E E S - T O - R A D I A N S \r
0015200
*
0015320 1 ) ) ) ) ) \r
0015340
*
0015420 ( C L : D O T I M E
0015440 S \r
0015460
*
0015520 ( I
0015540 ( / ( C L : L O G ( M A X
0015560 X M I D Y M I D ) \r
0015600
*
0015700 1 . 0 0 1 ) \r
0015720
*
0016000 3 6 0 ) )
0016020 \r
0016040
*
0016100 ( C L :
0016120 D O T I M E S ( J 3 6 0 ) \r
0016140
*
0016240 ( M O V E T O X M I D Y
0016260 M I D W I N D O W ) \r
0016300
*
0016360 ( M
0016400 A T M U L T - 1 3 3 P O I N T
0016420 1 M P O I N T 2 ) \r
0016440
*
0016520 ( P
0016540 R O J E C T - A N D - F I X - 3
0016560 - V E C T O R P O I N T 2 \r
0016600
*
0016700 P P O I N T )
0016720 \r
0016740
*
0017020 ( R E L D R A W T O ( C
0017040 L : A R E F P P O I N T 0 )
0017060 \r
0017100
*
0017160 ( C L : A R
0017200 E F P P O I N T 1 ) \r
0017220
*
0017320 1 N I L W I N D
0017340 O W ) \r
0017360
*
0017440 ( C L : R O T A T E
0017460 F P O I N T 1 P O I N T 2 )
0017500 ) ) ) ) \r \r ( C L : D E F U N
0017520 006 002 D R A W - T R I A N G L E 006
0017540 001 ( P O I N T S W I N D O W
0017560 ) ( M O V E T O ( C L : A R
0017600 E F P O I N T S 0 0 ) \r
0017620
*
0017660 ( C
0017700 L : A R E F P O I N T S 0
0017720 1 ) \r
0017740
*
0020000 W I N D O W ) \r
0020020
*
0020060 ( D R A W T O ( C L : A R
0020100 E F P O I N T S 1 0 ) \r
0020120
*
0020160 ( C
0020200 L : A R E F P O I N T S 1
0020220 1 ) \r
0020240
*
0020300 N I L N I L W I N D O W
0020320 ) \r
0020340
0020360 ( D R A W T
0020400 O ( C L : A R E F P O I N T
0020420 S 2 0 ) \r
0020440
*
0020500 ( C L : A R E F P
0020520 O I N T S 2 1 ) \r
0020540
*
0020600 N I L N I
0020620 L W I N D O W ) \r
0020640
*
0020700 ( D R A W T O ( C L : A R
0020720 E F P O I N T S 0 0 ) \r
0020740
*
0021000 ( C
0021020 L : A R E F P O I N T S 0
0021040 1 ) \r
0021060
*
0021120 N I L N I L W I N D O W
0021140 ) ) \r \r ( C L : D E F U N 006 002
0021160 M A T M U L T - 4 4 4 * 006 001 (
0021200 M A T R I X - 1 M A T R I X -
0021220 2 R E S U L T ) ( % % T E S
0021240 T - A R R A Y M A T R I X - 1
0021260 ( 4 4 ) ) \r
0021300
*
0021340 ( % % T E S
0021360 T - A R R A Y M A T R I X - 2
0021400 ( 4 4 ) ) \r
0021420
*
0021460 ( S E T Q
0021500 R E S U L T ( % % I N S U R E
0021520 - A R R A Y R E S U L T ( 4
0021540 4 ) ) ) \r
0021560
*
0021620 ( \ M A T M U L
0021640 T 4 4 4 ( % % G E T - F L O A
0021660 T - A R R A Y - B A S E M A T
0021700 R I X - 1 ) \r
0021720
*
0022000 ( % % G E T - F L O A T - A R R
0022020 A Y - B A S E M A T R I X - 2
0022040 ) \r
0022060
*
0022120 ( % % G E
0022140 T - F L O A T - A R R A Y - B A
0022160 S E R E S U L T ) ) \r
0022200
*
0022240 R E
0022260 S U L T ) \r \r ( C L : D E F U N
0022300 006 002 R E D R A W - T R I A N G
0022320 L E 006 001 ( F P O I N T S M
0022340 W ) ( D R A W - T R I A N G L
0022360 E ( P R O J E C T - A N D - F
0022400 I X - N - B Y - 3 ( M A T M U
0022420 L T - N 3 3 F P O I N T S M
0022440 \r
0022460
*
0022560 ) ) \r
0022600
*
0022640 W ) ) \r \r ( C
0022660 L : D E F U N 006 002 T E S T - M
0022700 A T M U L T - 4 4 4 006 001 ( A
0022720 R F N ) ( C L : D O T I M E
0022740 S ( I 1 0 ) \r
0022760
*
0023020 ( C L : F U N C A L L
0023040 F N A R A ) ) \r
0023060
0023100 A
0023120 ) \r \r ( C L : D E F U N 006 002 T
0023140 W O - N O R M 006 001 ( A I )
0023160 ( C L : D O ( ( J 0 ( C L
0023200 : 1 + J ) ) \r
0023220
0023240 ( T O T A L
0023260 0 . 0 ) ) \r
0023300
0023320 ( ( E Q L J 4 )
0023340 \r
0023360
0023400 T O T A L ) \r
0023420
0023440 ( S E T Q T
0023460 O T A L ( + T O T A L ( C
0023500 L : * ( C L : A R E F A I
0023520 J ) \r
0023540
*
0023600 (
0023620 C L : A R E F A I J ) ) )
0023640 ) ) ) \r \r \r ( P U T P R O P S
0023660 006 002 T E S T - M A T M U L T F
0023700 I L E T Y P E 006 001 C L : C O M
0023720 P I L E - F I L E ) \r ( P U T P
0023740 R O P S T E S T - M A T M U L
0023760 T C O P Y R I G H T ( " X e
0024000 r o x C o r p o r a t i o n "
0024020 1 9 8 6 ) ) \r ( D E C L A R E
0024040 % : D O N T C O P Y \r ( F
0024060 I L E M A P ( N I L ) ) ) \r S
0024100 T O P \r
0024104