3pp-mirror/penpot
1
0
Fork 0
mirror of https://github.com/penpot/penpot.git synced 2025-08-04 01:18:29 +02:00
Code Issues Projects Releases Packages Wiki Activity

✨ Select path nodes in area

Browse source
This commit is contained in:
alonso.torres 2021-03-30 17:13:05 +02:00 • committed by Andrés Moya
parent bb719d6211
commit a06a8c648e
8 changed files with 112 additions and 26 deletions
Download patch file Download diff file Expand all files Collapse all files

1
common/app/common/geom/shapes.cljc
View file

@ -253,3 +253,4 @@
;; Intersection
(d/export gin/overlaps?)
(d/export gin/has-point?)
(d/export gin/has-point-rect?)

5
common/app/common/geom/shapes/intersect.cljc
View file

@ -285,6 +285,11 @@
(or (not path?) (overlaps-path? shape rect))
(or (not circle?) (overlaps-ellipse? shape rect))))))
(defn has-point-rect?
[rect point]
(let [lines (gpr/rect->lines rect)]
(is-point-inside-evenodd? point lines)))
(defn has-point?
"Check if the shape contains a point"
[shape point]

6
common/app/common/geom/shapes/rect.cljc
View file

@ -19,6 +19,12 @@
(gpt/point (+ x width) (+ y height))
(gpt/point x (+ y height))])
(defn rect->lines [{:keys [x y width height]}]
[[(gpt/point x y) (gpt/point (+ x width) y)]
[(gpt/point (+ x width) y) (gpt/point (+ x width) (+ y height))]
[(gpt/point (+ x width) (+ y height)) (gpt/point x (+ y height))]
[(gpt/point x (+ y height)) (gpt/point x y)]])
(defn points->rect
[points]
(let [minx (transduce gco/map-x-xf min ##Inf points)