From 76ff8ae407409d9b521dee42552867be6af0264c Mon Sep 17 00:00:00 2001
From: Colin Okay <colin@cicadas.surf>
Date: Wed, 29 Jun 2022 07:01:34 -0500
Subject: [bugfix] in contains-point-p

---
 wheelwork.lisp | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/wheelwork.lisp b/wheelwork.lisp
index a1208a6..7fadb57 100644
--- a/wheelwork.lisp
+++ b/wheelwork.lisp
@@ -494,7 +494,7 @@ TARGET is FOCUSABLEP"
   (let ((pt
           (vec:vec px py 0.0 1.0))
         (corner
-          (vec:vec 0.0 0.0 0.0 1.0))
+          (vec:vec -1.0 -1.0 0.0 1.0))
         (poly
           (get-rect unit)))
     (loop for (p1 p2 . more) on poly
-- 
cgit v1.2.3