dan
/
cl-opengl-tests
1
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

fixed matrix*, now it works!

This commit is contained in:
Dan Ballard 2011-07-04 13:11:45 -07:00
parent fb87c204b8
commit 1f44333fc0
1 changed files with 2 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
3bb-1.lisp
View File

@ -57,9 +57,8 @@
(defun rotate* (m v) (defun rotate* (m v)
(let ((result (make-array 3 :initial-element 0))) (let ((result (make-array 3 :initial-element 0)))
(dotimes (x 3) (dotimes (x 3)
(let ((cell (aref v x))) (dotimes (y 3)
(dotimes (y 3) (incf (aref result x) (* (aref v y) (aref m x y)))))
(incf (aref result x) (* cell (aref m x y))))))
result)) result))