diff options
| author | Colin Okay <colin@cicadas.surf> | 2022-06-30 07:35:16 -0500 |
|---|---|---|
| committer | Colin Okay <colin@cicadas.surf> | 2022-06-30 07:35:16 -0500 |
| commit | e0fc8f0f7a8b4756226cfb5e1c7581e411420228 (patch) | |
| tree | 57213d8d2997e34d1ba674360b870d4223cd4908 /src/wheelwork.lisp | |
| parent | 56b743bbfe56823bfe482a4f4e579512041918d2 (diff) | |
[refactor] factored out affine from unit; made container a unit;
Diffstat (limited to 'src/wheelwork.lisp')
| -rw-r--r-- | src/wheelwork.lisp | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/src/wheelwork.lisp b/src/wheelwork.lisp index b6da6b9..885ae1e 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 unit-x) (y unit-y) (w unit-width) (h unit-height) (r unit-rotation)) unit + (with-accessors ((x x) (y y) (w unit-width) (h unit-height) (r rotation)) unit (let ((m (mat:meye 4)) (tr |