diff options
| -rw-r--r-- | wheelwork.lisp | 2 |
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 |