(DEFINE-FILE-INFO READTABLE "INTERLISP" PACKAGE "INTERLISP") (FILECREATED "19-Oct-86 14:29:23" ("compiled on " {QV}LISP>TEST-MATMULT.;2) "14-Oct-86 21:06:05" "COMPILE-FILEd" in "Xerox Lisp 14-Oct-86 ..." dated "14-Oct-86 22:24:47") (FILECREATED "19-Oct-86 14:28:50" {QV}LISP>TEST-MATMULT.;2 10286 changes to%: (FUNCTIONS DRAW-3D-PLOT MATMULT-444* TWO-NORM TEST-MATMULT-444 DRAW-SPIRAL DRAW-TRIANGLE REDRAW-TRIANGLE) (VARS TEST-MATMULTCOMS) previous date%: "17-Oct-86 10:44:23" {QV}LISP>TEST-MATMULT.;1) (RPAQQ TEST-MATMULTCOMS ((FUNCTIONS DRAW-3D-PLOT DRAW-SPIRAL DRAW-TRIANGLE MATMULT-444* REDRAW-TRIANGLE TEST-MATMULT-444 TWO-NORM) (PROP FILETYPE TEST-MATMULT))) DRAW-3D-PLOT D1 (L (0 -args-)) [ekHka`Ig k Ig k JK l( l( l( _o _ogj _jLjLjL _Ldd _l ___l(j_$_"O"O$hizjL_ _l:jO MO$OOk԰O$k_$i-IOO(jOO(kjIOO(jOO(kkO(k_(TO_*O_O*_O_,O_O,_OOO MON NOO OON NO l(j_(_&O&O(zhw(322 PROJECT-AND-FIX-N-BY-4 315 MATMULT-N44 306 MATMULT-N44 297 MATMULT-N44 289 MATMULT-444 179 RAND 137 IDENTITY-4-BY-4 131 IDENTITY-4-BY-4 125 ROTATE-4-BY-4-ABOUT-X 122 DEGREES-TO-RADIANS 114 TRANSLATE-4-BY-4 105 TRANSLATE-4-BY-4 90 CL:MAKE-ARRAY 76 CL:MAKE-ARRAY 66 MAKE-HOMOGENEOUS-N-BY-4 60 MAKE-HOMOGENEOUS-N-BY-4 54 MAKE-HOMOGENEOUS-N-BY-4 48 MIN 42 RSH 38 GETWINDOWPROP 30 RSH 26 GETWINDOWPROP 10 CREATEW) (182 FLOATP 86 :INITIAL-ELEMENT 35 HEIGHT 23 WIDTH) ( 83 (40 2) 73 (40 2)) DRAW-SPIRAL D1 (L (0 -args-)) ekHkaQIg k Ig k oo oo l oo k  OO o nh jJKhihnhjMNhi?OOI OOO OO OjOkkhI OO_L_NkԾKkԻ(179 RELDRAWTO 163 PROJECT-AND-FIX-3-VECTOR 155 MATMULT-133 145 MOVETO 109 %%/ 103 CL:LOG 96 MAX 86 MATMULT-333 83 ROTATE-3-BY-3 80 DEGREES-TO-RADIANS 76 SCALE-3-BY-3 65 CL:MAKE-ARRAY 60 MAKE-HOMOGENEOUS-3-VECTOR 49 MAKE-HOMOGENEOUS-3-VECTOR 38 RSH 34 GETWINDOWPROP 27 RSH 23 GETWINDOWPROP 10 CREATEW) (31 HEIGHT 20 WIDTH) ( 100 1.001 73 1.001 69 1.001 57 1.0 53 1.0 46 1.0 42 1.0) DRAW-TRIANGLE D1 (L (1 WINDOW 0 POINTS)) =@jd@jkA @kj@kdhdA @lj@lkhdA @jd@jkhdA (58 DRAWTO 43 DRAWTO 26 DRAWTO 11 MOVETO) NIL () MATMULT-444* D1 (L (2 RESULT 1 MATRIX-2 0 MATRIX-1)) @H 'H l:Hk l:Hj l: H go@ AH 'H l:Hk l:Hj l: H goA B4ogg b@ @ A A B B BH 'H l:Hk l:Hj l: H gBoB (227 CL:ERROR 210 CL:ARRAY-ELEMENT-TYPE 201 CL:ARRAY-DIMENSION 191 CL:ARRAY-DIMENSION 181 CL:ARRAY-RANK 175 CL:ARRAYP 166 \MATMULT444 161 %%ARRAY-OFFSET 157 %%ARRAY-BASE 151 %%ARRAY-OFFSET 147 %%ARRAY-BASE 141 %%ARRAY-OFFSET 137 %%ARRAY-BASE 131 CL:MAKE-ARRAY 114 CL:ERROR 100 CL:ARRAY-ELEMENT-TYPE 91 CL:ARRAY-DIMENSION 81 CL:ARRAY-DIMENSION 71 CL:ARRAY-RANK 65 CL:ARRAYP 56 CL:ERROR 42 CL:ARRAY-ELEMENT-TYPE 33 CL:ARRAY-DIMENSION 23 CL:ARRAY-DIMENSION 13 CL:ARRAY-RANK 7 CL:ARRAYP) (213 CL:SINGLE-FLOAT 128 CL:SINGLE-FLOAT 125 :ELEMENT-TYPE 103 CL:SINGLE-FLOAT 45 CL:SINGLE-FLOAT) ( 223 "Array of incorrect type: ~S" 122 (4 4) 110 "Array of incorrect type: ~S" 52 "Array of incorrect type: ~S") REDRAW-TRIANGLE D1 (L (2 W 1 M 0 FPOINTS)) @A B (11 DRAW-TRIANGLE 7 PROJECT-AND-FIX-N-BY-3 4 MATMULT-N33) NIL () TEST-MATMULT-444 D1 (L (2 FN 1 R 0 A)) l jHIhi@A@lBIkԹ@NIL NIL () TWO-NORM D1 (L (1 I 0 A)) "joHl:II@AH@AHԹHkXNIL NIL ( 4 0.0) (PUTPROPS TEST-MATMULT FILETYPE CL:COMPILE-FILE) (PUTPROPS TEST-MATMULT COPYRIGHT ("Xerox Corporation" 1986)) NIL