(DEFINE-FILE-INFO PACKAGE "INTERLISP" READTABLE "INTERLISP" BASE 10) (FILECREATED "27-Feb-93 14:31:35" ("compiled on " |{PELE:MV:ENVOS}LIBRARY>MATMULT.;2|) "19-Feb-93 17:03:08" "COMPILE-FILEd" in "Medley 19-Feb-93 ..." dated "19-Feb-93 18:20:42") (FILECREATED "12-Jun-90 10:07:44" {DSK}local>lde>lispcore>library>MATMULT.;2 16402 changes to%: ( VARS MATMULTCOMS) previous date%: "22-Apr-87 09:55:51" {DSK}local>lde>lispcore>library>MATMULT.;1 ) (RPAQQ MATMULTCOMS ((* ;;; "User entry points") (DECLARE%: DONTCOPY DOEVAL@COMPILE (FILES FLOAT-ARRAY-SUPPORT)) (FUNCTIONS %%MATMULT-N33 %%MATMULT-N44 DEGREES-TO-RADIANS IDENTITY-3-BY-3 IDENTITY-4-BY-4 MAKE-HOMOGENEOUS-3-BY-3 MAKE-HOMOGENEOUS-3-VECTOR MAKE-HOMOGENEOUS-4-BY-4 MAKE-HOMOGENEOUS-4-VECTOR MAKE-HOMOGENEOUS-N-BY-3 MAKE-HOMOGENEOUS-N-BY-4 MATMULT-133 MATMULT-144 MATMULT-331 MATMULT-333 MATMULT-441 MATMULT-444 MATMULT-N33 MATMULT-N44 PERSPECTIVE-4-BY-4 PROJECT-AND-FIX-3-VECTOR PROJECT-AND-FIX-4-VECTOR PROJECT-AND-FIX-N-BY-3 PROJECT-AND-FIX-N-BY-4 ROTATE-3-BY-3 ROTATE-4-BY-4-ABOUT-X ROTATE-4-BY-4-ABOUT-Y ROTATE-4-BY-4-ABOUT-Z SCALE-3-BY-3 SCALE-4-BY-4 TRANSLATE-3-BY-3 TRANSLATE-4-BY-4) (* ;;; "Compiler options") (DECLARE%: DONTEVAL@LOAD DOEVAL@COMPILE DONTCOPY (LOCALVARS . T)) (PROP FILETYPE MATMULT))) expand-%%MATMULT-N33 :D8 (L (1 SI::$$MACRO-ENVIRONMENT 0 SI::$$MACRO-FORM)) c@aHHZJ\LgogKogNogMhhggIhhoNIL (81 I 76 EQ 62 MATRIX-BASE 49 DEST-BASE 36 SOURCE-BASE 26 CL:DO) ( 93 ((%%MATMULT-133 SOURCE-BASE MATRIX-BASE DEST-BASE)) 55 ((\ADDBASE DEST-BASE 6)) 42 ((\ADDBASE SOURCE-BASE 6)) 31 (I 0 (CL:1+ I))) (SETF-MACRO-FUNCTION (QUOTE %%MATMULT-N33) (QUOTE expand-%%MATMULT-N33)) expand-%%MATMULT-N44 :D8 (L (1 SI::$$MACRO-ENVIRONMENT 0 SI::$$MACRO-FORM)) c@aHHZJ\LgogKogNogMhhggIhhoNIL (81 I 76 EQ 62 MATRIX-BASE 49 DEST-BASE 36 SOURCE-BASE 26 CL:DO) ( 93 ((%%MATMULT-144 SOURCE-BASE MATRIX-BASE DEST-BASE)) 55 ((\ADDBASE DEST-BASE 8)) 42 ((\ADDBASE SOURCE-BASE 8)) 31 (I 0 (CL:1+ I))) (SETF-MACRO-FUNCTION (QUOTE %%MATMULT-N44) (QUOTE expand-%%MATMULT-N44)) DEGREES-TO-RADIANS :D8 (L (0 DEGREES)) @oNIL (5 FLOATP) ( 10 0.017453292) IDENTITY-3-BY-3 :D8 (L (0 RESULT)) @0ogg !Ho ljIJPHH 1H l&Hk lHj lH g@o@ oHJdJkԺ(122 CL:ERROR 100 CL:ARRAY-ELEMENT-TYPE 89 CL:ARRAY-DIMENSION 77 CL:ARRAY-DIMENSION 65 CL:ARRAY-RANK 57 CL:ARRAYP 36 FILL-ARRAY 22 CL:MAKE-ARRAY) (105 CL:SINGLE-FLOAT 17 CL:SINGLE-FLOAT 12 :ELEMENT-TYPE) ( 129 1.0 116 "Array of incorrect type: ~S" 31 0.0 7 (3 3)) IDENTITY-4-BY-4 :D8 (L (0 RESULT)) @0ogg !Ho ljIJPHH 1H l&Hk lHj lH g@o@ oHJdJkԺ(122 CL:ERROR 100 CL:ARRAY-ELEMENT-TYPE 89 CL:ARRAY-DIMENSION 77 CL:ARRAY-DIMENSION 65 CL:ARRAY-RANK 57 CL:ARRAYP 36 FILL-ARRAY 22 CL:MAKE-ARRAY) (105 CL:SINGLE-FLOAT 17 CL:SINGLE-FLOAT 12 :ELEMENT-TYPE) ( 129 1.0 116 "Array of incorrect type: ~S" 31 0.0 7 (4 4)) MAKE-HOMOGENEOUS-3-BY-3 :D8 (L (0 -args-)) eHkJIhHkKdJhHkNdMh_Hk__OdOh_Hk__OdO h_Hk__OdO h_ ogg _"IfLVOEO4O"O oO"ldO"O"lk￰O"lj￰O"kd￰O"kj￰O"jk￰O"jd￰JdaglZkaagKkaKl[agNkaNl^agOkaOl_agOkaOl_agOkaOl_(144 CL:MAKE-ARRAY) (390 :A21 364 :A20 338 :A11 315 :A10 292 :A01 271 :A00 255 FLOATP 242 FLOATP 229 FLOATP 216 FLOATP 202 FLOATP 188 FLOATP 139 CL:SINGLE-FLOAT 134 :ELEMENT-TYPE) ( 174 1.0 129 (3 3)) MAKE-HOMOGENEOUS-3-VECTOR :D8 (L (1 Y 0 X)) :lgg @@HjA oHlHHk(16 MAKE-VECTOR) (50 FLOATP 27 FLOATP 11 CL:SINGLE-FLOAT 6 :ELEMENT-TYPE) ( 39 1.0) MAKE-HOMOGENEOUS-4-BY-4 :D8 (L (0 -args-)) %-eHkJIh,HkKdJhHkNdMh_Hk__OdOh_Hk__OdOh_Hk__OdOh_ Hk_$_"O$dO"h_&Hk_*_(O*dO(h_,Hk_0_.O0dO.h_2Hk_6_4O6dO4h_8Hk_<_:OHk_B_@OBdO@h_DHk_H_FOHdOFh_JHk_N_LONdOLh_PHk_T_ROTdORÿh_Vogg _XI/LOOOO O&O,O2~O8lO>ZODGOJ5OP#OVoOXldOXOXll￰OXlk￰OXlj￰OXll￰OXld￰OXlk￰OXlj￱xOXkl￱eOXkl￱NOXkd￱8OXkj￱"OXjl￱ OXjl￱OXjk￱OXjd￱JdaglZUkaVagKka_Kl[NagNkaWNl^FagOkaVOl_BagOkaSOl_?agOkaPOl_OBl_B*agOHka;OHl_H'agONka8ONl_N$agOTka5OTl_T!(354 CL:MAKE-ARRAY) (1039 :A32 1013 :A31 987 :A30 961 :A23 935 :A22 909 :A21 883 :A20 857 :A13 831 :A12 805 :A11 779 :A10 753 :A03 730 :A02 707 :A01 686 :A00 669 FLOATP 655 FLOATP 640 FLOATP 625 FLOATP 611 FLOATP 597 FLOATP 582 FLOATP 567 FLOATP 552 FLOATP 538 FLOATP 524 FLOATP 509 FLOATP 495 FLOATP 481 FLOATP 466 FLOATP 349 CL:SINGLE-FLOAT 344 :ELEMENT-TYPE) ( 452 1.0 339 (4 4)) MAKE-HOMOGENEOUS-4-VECTOR :D8 (L (2 Z 1 Y 0 X)) Ilgg @@HjAB oHlHHlHk(16 MAKE-VECTOR) (65 FLOATP 53 FLOATP 27 FLOATP 11 CL:SINGLE-FLOAT 6 :ELEMENT-TYPE) ( 42 1.0) MAKE-HOMOGENEOUS-N-BY-3 :D8 (L (0 -args-)) sekaaHlKJ7hIlhgg LML Ij_NOMKdagl[kaoMOlOk_(56 FILL-ARRAY 41 CL:MAKE-ARRAY) (79 :INITIAL-ELEMENT 51 FLOATP 36 CL:SINGLE-FLOAT 31 :ELEMENT-TYPE) ( 97 1.0) MAKE-HOMOGENEOUS-N-BY-4 :D8 (L (0 -args-)) sekaaHlKJ7hIlhgg LML Ij_NOMKdagl[kaoMOlOk_(56 FILL-ARRAY 41 CL:MAKE-ARRAY) (79 :INITIAL-ELEMENT 51 FLOATP 36 CL:SINGLE-FLOAT 31 :ELEMENT-TYPE) ( 97 1.0) MATMULT-133 :D8 (L (2 RESULT 1 MATRIX 0 VECTOR)) @H H lH go@ AH 1H l&Hk lHj lH goA BWogg b@dBo @ @ A A B B 2BH H lH gBoB (259 CL:ERROR 237 CL:ARRAY-ELEMENT-TYPE 226 CL:ARRAY-TOTAL-SIZE 218 CL:VECTORP 203 %%ARRAY-OFFSET 197 %%ARRAY-BASE 189 %%ARRAY-OFFSET 183 %%ARRAY-BASE 175 %%ARRAY-OFFSET 169 %%ARRAY-BASE 162 CL:ERROR 144 CL:MAKE-ARRAY 120 CL:ERROR 101 CL:ARRAY-ELEMENT-TYPE 90 CL:ARRAY-DIMENSION 78 CL:ARRAY-DIMENSION 66 CL:ARRAY-RANK 58 CL:ARRAYP 47 CL:ERROR 28 CL:ARRAY-ELEMENT-TYPE 17 CL:ARRAY-TOTAL-SIZE 9 CL:VECTORP) (242 CL:SINGLE-FLOAT 139 CL:SINGLE-FLOAT 134 :ELEMENT-TYPE 106 CL:SINGLE-FLOAT 33 CL:SINGLE-FLOAT) ( 253 "Array of incorrect type: ~S" 157 "Results undefined if VECTOR reused" 129 (3) 114 "Array of incorrect type: ~S" 41 "Array of incorrect type: ~S") MATMULT-144 :D8 (L (2 RESULT 1 MATRIX 0 VECTOR)) @H H lH go@ AH 1H l&Hk lHj lH goA BWogg b@dBo @ @ A A B B 2BH H lH gBoB (259 CL:ERROR 237 CL:ARRAY-ELEMENT-TYPE 226 CL:ARRAY-TOTAL-SIZE 218 CL:VECTORP 203 %%ARRAY-OFFSET 197 %%ARRAY-BASE 189 %%ARRAY-OFFSET 183 %%ARRAY-BASE 175 %%ARRAY-OFFSET 169 %%ARRAY-BASE 162 CL:ERROR 144 CL:MAKE-ARRAY 120 CL:ERROR 101 CL:ARRAY-ELEMENT-TYPE 90 CL:ARRAY-DIMENSION 78 CL:ARRAY-DIMENSION 66 CL:ARRAY-RANK 58 CL:ARRAYP 47 CL:ERROR 28 CL:ARRAY-ELEMENT-TYPE 17 CL:ARRAY-TOTAL-SIZE 9 CL:VECTORP) (242 CL:SINGLE-FLOAT 139 CL:SINGLE-FLOAT 134 :ELEMENT-TYPE 106 CL:SINGLE-FLOAT 33 CL:SINGLE-FLOAT) ( 253 "Array of incorrect type: ~S" 157 "Results undefined if VECTOR reused" 129 (4) 114 "Array of incorrect type: ~S" 41 "Array of incorrect type: ~S") MATMULT-331 :D8 (L (2 RESULT 1 VECTOR 0 MATRIX)) @H 1H l&Hk lHj lH go@ AH H lH goA BWogg b@dBo @ @ A A B B 2BH H lH gBoB (259 CL:ERROR 237 CL:ARRAY-ELEMENT-TYPE 226 CL:ARRAY-TOTAL-SIZE 218 CL:VECTORP 203 %%ARRAY-OFFSET 197 %%ARRAY-BASE 189 %%ARRAY-OFFSET 183 %%ARRAY-BASE 175 %%ARRAY-OFFSET 169 %%ARRAY-BASE 162 CL:ERROR 144 CL:MAKE-ARRAY 120 CL:ERROR 101 CL:ARRAY-ELEMENT-TYPE 90 CL:ARRAY-TOTAL-SIZE 82 CL:VECTORP 71 CL:ERROR 52 CL:ARRAY-ELEMENT-TYPE 41 CL:ARRAY-DIMENSION 29 CL:ARRAY-DIMENSION 17 CL:ARRAY-RANK 9 CL:ARRAYP) (242 CL:SINGLE-FLOAT 139 CL:SINGLE-FLOAT 134 :ELEMENT-TYPE 106 CL:SINGLE-FLOAT 57 CL:SINGLE-FLOAT) ( 253 "Array of incorrect type: ~S" 157 "Results undefined if MATRIX reused" 129 (3) 114 "Array of incorrect type: ~S" 65 "Array of incorrect type: ~S") MATMULT-333 :D8 (L (2 RESULT 1 MATRIX-2 0 MATRIX-1)) 8@H 1H l&Hk lHj lH go@ AH 1H l&Hk lHj lH goA BWogg b@dBo @ @ A A B B 2BH 1H l&Hk lHj lH gBoB u(307 CL:ERROR 285 CL:ARRAY-ELEMENT-TYPE 274 CL:ARRAY-DIMENSION 262 CL:ARRAY-DIMENSION 250 CL:ARRAY-RANK 242 CL:ARRAYP 227 %%ARRAY-OFFSET 221 %%ARRAY-BASE 213 %%ARRAY-OFFSET 207 %%ARRAY-BASE 199 %%ARRAY-OFFSET 193 %%ARRAY-BASE 186 CL:ERROR 168 CL:MAKE-ARRAY 144 CL:ERROR 125 CL:ARRAY-ELEMENT-TYPE 114 CL:ARRAY-DIMENSION 102 CL:ARRAY-DIMENSION 90 CL:ARRAY-RANK 82 CL:ARRAYP 71 CL:ERROR 52 CL:ARRAY-ELEMENT-TYPE 41 CL:ARRAY-DIMENSION 29 CL:ARRAY-DIMENSION 17 CL:ARRAY-RANK 9 CL:ARRAYP) (290 CL:SINGLE-FLOAT 163 CL:SINGLE-FLOAT 158 :ELEMENT-TYPE 130 CL:SINGLE-FLOAT 57 CL:SINGLE-FLOAT) ( 301 "Array of incorrect type: ~S" 181 "Results undefined if MATRIX-1 reused" 153 (3 3) 138 "Array of incorrect type: ~S" 65 "Array of incorrect type: ~S") MATMULT-441 :D8 (L (2 RESULT 1 VECTOR 0 MATRIX)) @H 1H l&Hk lHj lH go@ AH H lH goA BWogg b@dBo @ @ A A B B 2BH H lH gBoB (259 CL:ERROR 237 CL:ARRAY-ELEMENT-TYPE 226 CL:ARRAY-TOTAL-SIZE 218 CL:VECTORP 203 %%ARRAY-OFFSET 197 %%ARRAY-BASE 189 %%ARRAY-OFFSET 183 %%ARRAY-BASE 175 %%ARRAY-OFFSET 169 %%ARRAY-BASE 162 CL:ERROR 144 CL:MAKE-ARRAY 120 CL:ERROR 101 CL:ARRAY-ELEMENT-TYPE 90 CL:ARRAY-TOTAL-SIZE 82 CL:VECTORP 71 CL:ERROR 52 CL:ARRAY-ELEMENT-TYPE 41 CL:ARRAY-DIMENSION 29 CL:ARRAY-DIMENSION 17 CL:ARRAY-RANK 9 CL:ARRAYP) (242 CL:SINGLE-FLOAT 139 CL:SINGLE-FLOAT 134 :ELEMENT-TYPE 106 CL:SINGLE-FLOAT 57 CL:SINGLE-FLOAT) ( 253 "Array of incorrect type: ~S" 157 "Results undefined if MATRIX reused" 129 (4) 114 "Array of incorrect type: ~S" 65 "Array of incorrect type: ~S") MATMULT-444 :D8 (L (2 RESULT 1 MATRIX-2 0 MATRIX-1)) 8@H 1H l&Hk lHj lH go@ AH 1H l&Hk lHj lH goA BWogg b@dBo @ @ A A B B 2BH 1H l&Hk lHj lH gBoB u(307 CL:ERROR 285 CL:ARRAY-ELEMENT-TYPE 274 CL:ARRAY-DIMENSION 262 CL:ARRAY-DIMENSION 250 CL:ARRAY-RANK 242 CL:ARRAYP 227 %%ARRAY-OFFSET 221 %%ARRAY-BASE 213 %%ARRAY-OFFSET 207 %%ARRAY-BASE 199 %%ARRAY-OFFSET 193 %%ARRAY-BASE 186 CL:ERROR 168 CL:MAKE-ARRAY 144 CL:ERROR 125 CL:ARRAY-ELEMENT-TYPE 114 CL:ARRAY-DIMENSION 102 CL:ARRAY-DIMENSION 90 CL:ARRAY-RANK 82 CL:ARRAYP 71 CL:ERROR 52 CL:ARRAY-ELEMENT-TYPE 41 CL:ARRAY-DIMENSION 29 CL:ARRAY-DIMENSION 17 CL:ARRAY-RANK 9 CL:ARRAYP) (290 CL:SINGLE-FLOAT 163 CL:SINGLE-FLOAT 158 :ELEMENT-TYPE 130 CL:SINGLE-FLOAT 57 CL:SINGLE-FLOAT) ( 301 "Array of incorrect type: ~S" 181 "Results undefined if MATRIX-1 reused" 153 (4 4) 138 "Array of incorrect type: ~S" 65 "Array of incorrect type: ~S") MATMULT-N33 :D8 (L (2 RESULT 1 MATRIX-2 0 MATRIX-1)) b@H %H lHk lH go@ AH 1H l&Hk lHj lH goA B@ gg b@dBo @j HBj o j@ @ B B A A IHZJLK2IkJlKlлYH %H lHk lH gBToB FB(347 CL:ERROR 324 CL:ARRAY-ELEMENT-TYPE 313 CL:ARRAY-DIMENSION 301 CL:ARRAY-RANK 293 CL:ARRAYP 252 %%ARRAY-OFFSET 246 %%ARRAY-BASE 238 %%ARRAY-OFFSET 232 %%ARRAY-BASE 224 %%ARRAY-OFFSET 218 %%ARRAY-BASE 210 CL:ERROR 198 CL:ARRAY-DIMENSION 187 CL:ARRAY-DIMENSION 179 CL:ERROR 161 CL:MAKE-ARRAY 146 CL:ARRAY-DIMENSIONS 132 CL:ERROR 113 CL:ARRAY-ELEMENT-TYPE 102 CL:ARRAY-DIMENSION 90 CL:ARRAY-DIMENSION 78 CL:ARRAY-RANK 70 CL:ARRAYP 59 CL:ERROR 40 CL:ARRAY-ELEMENT-TYPE 29 CL:ARRAY-DIMENSION 17 CL:ARRAY-RANK 9 CL:ARRAYP) (329 CL:SINGLE-FLOAT 156 CL:SINGLE-FLOAT 151 :ELEMENT-TYPE 118 CL:SINGLE-FLOAT 45 CL:SINGLE-FLOAT) ( 341 "Array of incorrect type: ~S" 205 "Dimensional mismatch" 174 "Results undefined if MATRIX-1 reused" 126 "Array of incorrect type: ~S" 53 "Array of incorrect type: ~S") MATMULT-N44 :D8 (L (2 RESULT 1 MATRIX-2 0 MATRIX-1)) b@H %H lHk lH go@ AH 1H l&Hk lHj lH goA B@ gg b@dBo @j HBj o j@ @ B B A A IHZJLK2IkJlKlлYH %H lHk lH gBToB FB(347 CL:ERROR 324 CL:ARRAY-ELEMENT-TYPE 313 CL:ARRAY-DIMENSION 301 CL:ARRAY-RANK 293 CL:ARRAYP 252 %%ARRAY-OFFSET 246 %%ARRAY-BASE 238 %%ARRAY-OFFSET 232 %%ARRAY-BASE 224 %%ARRAY-OFFSET 218 %%ARRAY-BASE 210 CL:ERROR 198 CL:ARRAY-DIMENSION 187 CL:ARRAY-DIMENSION 179 CL:ERROR 161 CL:MAKE-ARRAY 146 CL:ARRAY-DIMENSIONS 132 CL:ERROR 113 CL:ARRAY-ELEMENT-TYPE 102 CL:ARRAY-DIMENSION 90 CL:ARRAY-DIMENSION 78 CL:ARRAY-RANK 70 CL:ARRAYP 59 CL:ERROR 40 CL:ARRAY-ELEMENT-TYPE 29 CL:ARRAY-DIMENSION 17 CL:ARRAY-RANK 9 CL:ARRAYP) (329 CL:SINGLE-FLOAT 156 CL:SINGLE-FLOAT 151 :ELEMENT-TYPE 118 CL:SINGLE-FLOAT 45 CL:SINGLE-FLOAT) ( 341 "Array of incorrect type: ~S" 205 "Dimensional mismatch" 174 "Results undefined if MATRIX-1 reused" 126 "Array of incorrect type: ~S" 53 "Array of incorrect type: ~S") PERSPECTIVE-4-BY-4 :D8 (L (3 RESULT 2 PZ 1 PY 0 PX)) .C @HjlAHklBHllH(5 IDENTITY-4-BY-4) (36 FLOATP 25 FLOATP 14 FLOATP) () PROJECT-AND-FIX-3-VECTOR :D8 (L (1 2-VECTOR 0 3-VECTOR)) @H H lH go@ Ao b#H H loA @ @ !ljIJHJd AJJkԺA(144 UFIX 111 %%ARRAY-OFFSET 105 %%ARRAY-BASE 98 CL:ERROR 82 CL:ARRAY-TOTAL-SIZE 74 CL:VECTORP 61 CL:MAKE-ARRAY 47 CL:ERROR 28 CL:ARRAY-ELEMENT-TYPE 17 CL:ARRAY-TOTAL-SIZE 9 CL:VECTORP) (33 CL:SINGLE-FLOAT) ( 92 "Not a 2 vector: ~s" 56 (2) 41 "Array of incorrect type: ~S") PROJECT-AND-FIX-4-VECTOR :D8 (L (1 2-VECTOR 0 4-VECTOR)) @H H lH go@ Ao b#H H loA @ @ QHdYo *ljJKHKd AKKkԻAljLMHMdI AMMkԽ(211 UFIX 167 UFIX 137 UFEQP 111 %%ARRAY-OFFSET 105 %%ARRAY-BASE 98 CL:ERROR 82 CL:ARRAY-TOTAL-SIZE 74 CL:VECTORP 61 CL:MAKE-ARRAY 47 CL:ERROR 28 CL:ARRAY-ELEMENT-TYPE 17 CL:ARRAY-TOTAL-SIZE 9 CL:VECTORP) (33 CL:SINGLE-FLOAT) ( 132 1.0 92 "Not a 2 vector: ~s" 56 (2) 41 "Array of incorrect type: ~S") PROJECT-AND-FIX-N-BY-3 :D8 (L (1 N-2-MATRIX 0 N-3-MATRIX)) @H %H lHk lH go@ A@j lh b/H H l Hk loA @j AHAj o j@ @ м[H1ljIJLJd AKJJkԺKkLlA(210 UFIX 174 %%ARRAY-OFFSET 168 %%ARRAY-BASE 160 CL:ERROR 148 CL:ARRAY-DIMENSION 137 CL:ARRAY-DIMENSION 129 CL:ERROR 113 CL:ARRAY-DIMENSION 101 CL:ARRAY-RANK 93 CL:ARRAYP 80 CL:MAKE-ARRAY 70 CL:ARRAY-DIMENSION 59 CL:ERROR 40 CL:ARRAY-ELEMENT-TYPE 29 CL:ARRAY-DIMENSION 17 CL:ARRAY-RANK 9 CL:ARRAYP) (45 CL:SINGLE-FLOAT) ( 155 "Dimensional mismatch" 123 "Not an N by 2 array: ~s" 53 "Array of incorrect type: ~S") PROJECT-AND-FIX-N-BY-4 :D8 (L (1 N-2-MATRIX 0 N-4-MATRIX)) 1@H %H lHk lH go@ A@j lh b/H H l Hk loA @j qHAj o j@ @ _^HwOd]o *ljIJLOJd ANJJkԺljKL$OLdM ANLLkԼNkOlA(281 UFIX 237 UFIX 206 UFEQP 174 %%ARRAY-OFFSET 168 %%ARRAY-BASE 160 CL:ERROR 148 CL:ARRAY-DIMENSION 137 CL:ARRAY-DIMENSION 129 CL:ERROR 113 CL:ARRAY-DIMENSION 101 CL:ARRAY-RANK 93 CL:ARRAYP 80 CL:MAKE-ARRAY 70 CL:ARRAY-DIMENSION 59 CL:ERROR 40 CL:ARRAY-ELEMENT-TYPE 29 CL:ARRAY-DIMENSION 17 CL:ARRAY-RANK 9 CL:ARRAYP) (45 CL:SINGLE-FLOAT) ( 201 1.0 155 "Dimensional mismatch" 123 "Not an N by 2 array: ~s" 53 "Array of incorrect type: ~S") ROTATE-3-BY-3 :D8 (L (1 RESULT 0 RADIANS)) .A @ @ IHjdjJHjkJHkjIHkdH(17 CL:SIN 11 CL:COS 5 IDENTITY-3-BY-3) NIL () ROTATE-4-BY-4-ABOUT-X :D8 (L (1 RESULT 0 RADIANS)) 1A @ @ IHkdjJHklJHlkIHldH(17 CL:SIN 11 CL:COS 5 IDENTITY-4-BY-4) NIL () ROTATE-4-BY-4-ABOUT-Y :D8 (L (1 RESULT 0 RADIANS)) 1A @ @ IHjdjJHljJHjlIHldH(17 CL:SIN 11 CL:COS 5 IDENTITY-4-BY-4) NIL () ROTATE-4-BY-4-ABOUT-Z :D8 (L (1 RESULT 0 RADIANS)) .A @ @ IHjdjJHjkJHkjIHkdH(17 CL:SIN 11 CL:COS 5 IDENTITY-4-BY-4) NIL () SCALE-3-BY-3 :D8 (L (2 RESULT 1 SY 0 SX)) B @HjdAHkdH(5 IDENTITY-3-BY-3) (24 FLOATP 14 FLOATP) () SCALE-4-BY-4 :D8 (L (3 RESULT 2 SZ 1 SY 0 SX)) +C @HjdAHkdBHldH(5 IDENTITY-4-BY-4) (34 FLOATP 24 FLOATP 14 FLOATP) () TRANSLATE-3-BY-3 :D8 (L (2 RESULT 1 TY 0 TX)) "B @HljAHlkH(5 IDENTITY-3-BY-3) (25 FLOATP 14 FLOATP) () TRANSLATE-4-BY-4 :D8 (L (3 RESULT 2 TZ 1 TY 0 TX)) .C @HljAHlkBHllH(5 IDENTITY-4-BY-4) (36 FLOATP 25 FLOATP 14 FLOATP) () (PUTPROPS MATMULT FILETYPE CL:COMPILE-FILE) (PUTPROPS MATMULT COPYRIGHT ("Venue & Xerox Corporation" 1985 1986 1987 1990)) NIL