aboutsummaryrefslogtreecommitdiffhomepage
path: root/wheelwork.lisp
diff options
context:
space:
mode:
Diffstat (limited to 'wheelwork.lisp')
-rw-r--r--wheelwork.lisp2
1 files changed, 1 insertions, 1 deletions
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