From 3fe007ac03162bb34c9527dd7f42c45edbf1cc20 Mon Sep 17 00:00:00 2001 From: Yukari Hafner Date: Sat, 14 Dec 2024 14:54:14 +0100 Subject: [PATCH] Minor --- camera.lisp | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/camera.lisp b/camera.lisp index a1a9fe13..3486c86f 100644 --- a/camera.lisp +++ b/camera.lisp @@ -157,7 +157,7 @@ (flet ((invert (v) (let ((w (/ (+ (* (vx v) (m 3 0)) (* (vy v) (m 3 1)) (* (vz v) (m 3 2)) (m 3 3))))) (n*m inv (vsetf tmp (* (vx v) w) (* (vy v) w) (* (vz v) w) w))))) - (loop for v in (list #.(vec -1 -1 -1) #.(vec +1 -1 -1) #.(vec +1 +1 -1) #.(vec -1 +1 -1) + (loop for v across #(#.(vec -1 -1 -1) #.(vec +1 -1 -1) #.(vec +1 +1 -1) #.(vec -1 +1 -1) #.(vec -1 -1 +1) #.(vec +1 -1 +1) #.(vec +1 +1 +1) #.(vec -1 +1 +1)) for i from 0 by 3 do (invert v)