🐛 Fix typo on has-point? impl

This commit is contained in:
Andrey Antukh 2023-09-04 15:33:04 +02:00
parent 87f085da74
commit 4e974cd2f3

View file

@ -343,12 +343,11 @@
(defn fast-has-point?
[shape point]
(let [x1 (dm/get-prop shape :x)
y1 (dm/get-prop shape :x)
y1 (dm/get-prop shape :y)
x2 (+ x1 (dm/get-prop shape :width))
y2 (+ y1 (dm/get-prop shape :height))
px (dm/get-prop point :x)
py (dm/get-prop point :y)]
(and (>= px x1)
(<= px x2)
(>= py y1)