🐛 Fix problem with snap points

This commit is contained in:
alonso.torres 2024-01-31 13:05:02 +01:00
parent e474accb61
commit 188f5c6167

View file

@ -15,6 +15,7 @@
(defn rect->snap-points
[rect]
(when (some? rect)
(let [x (dm/get-prop rect :x)
y (dm/get-prop rect :y)
w (dm/get-prop rect :width)
@ -23,7 +24,7 @@
(gpt/point (+ x w) y)
(gpt/point (+ x w) (+ y h))
(gpt/point x (+ y h))
(grc/rect->center rect)}))
(grc/rect->center rect)})))
(defn- frame->snap-points
[frame]