From 099c3f927c11fe7ae4d12933d6f72abc0b53e973 Mon Sep 17 00:00:00 2001 From: Colin Okay Date: Thu, 30 Jun 2022 07:45:23 -0500 Subject: [modify] changed unit-width/height to just width/height. made defun --- src/wheelwork.lisp | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) (limited to 'src/wheelwork.lisp') diff --git a/src/wheelwork.lisp b/src/wheelwork.lisp index 885ae1e..849e2c7 100644 --- a/src/wheelwork.lisp +++ b/src/wheelwork.lisp @@ -66,7 +66,7 @@ TARGET is FOCUSABLEP" (defun get-rect (unit) "Returns a list of vectors representing the path of the smallest rectangle that encloses the unit. The rectangle is scaled and rotated." - (with-accessors ((x x) (y y) (w unit-width) (h unit-height) (r rotation)) unit + (with-accessors ((x x) (y y) (w width) (h height) (r rotation)) unit (let ((m (mat:meye 4)) (tr -- cgit v1.2.3