diff options
| author | Colin Okay <colin@cicadas.surf> | 2022-06-29 07:01:34 -0500 |
|---|---|---|
| committer | Colin Okay <colin@cicadas.surf> | 2022-06-29 07:01:34 -0500 |
| commit | 76ff8ae407409d9b521dee42552867be6af0264c (patch) | |
| tree | 7df97e621e3faa8bb18a5c8cf4895a658d8bc1e1 | |
| parent | ff0d86e99de2ce0fb61efd82070b758de0bb107f (diff) | |
[bugfix] in contains-point-p
| -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 |