diff options
Diffstat (limited to 'src/core-units/unit.lisp')
-rw-r--r-- | src/core-units/unit.lisp | 8 |
1 files changed, 4 insertions, 4 deletions
diff --git a/src/core-units/unit.lisp b/src/core-units/unit.lisp index 939293b..6ccd31e 100644 --- a/src/core-units/unit.lisp +++ b/src/core-units/unit.lisp @@ -64,8 +64,8 @@ (mat:nmscale m (vec:vec uw uh 1.0)))) m)) -(defmethod projected-matrix ((thing unit)) - (or (cached-projected-matrix thing) - (setf (cached-projected-matrix thing) +(defun projected-matrix (unit) + (or (cached-projected-matrix unit) + (setf (cached-projected-matrix unit) (mat:marr (mat:m* (application-projection *application*) - (model-matrix thing)))))) + (model-matrix unit)))))) |