github/penpot
1
0
Fork 0
mirror of https://github.com/penpot/penpot.git synced 2026-09-14 07:59:36 +00:00
Code Issues Packages Projects Releases Wiki Activity

⚡ Add type hints to on-segment? fn

Browse Source
This commit is contained in:
Andrey Antukh 2023-08-25 10:32:42 +02:00 committed by Andrés Moya
parent d8c1425daf
commit 5b73040696
1 changed files with 4 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
common/src/app/common/geom/shapes/intersect.cljc
View File

@ -34,10 +34,10 @@
(defn on-segment? (defn on-segment?
"Given three colinear points p, q, r checks if q lies on segment pr" "Given three colinear points p, q, r checks if q lies on segment pr"
[{qx :x qy :y} {px :x py :y} {rx :x ry :y}] [{qx :x qy :y} {px :x py :y} {rx :x ry :y}]
(and (<= qx (max px rx)) (and (<= qx (mth/max px rx))
(>= qx (min px rx)) (>= qx (mth/min px rx))
(<= qy (max py ry)) (<= qy (mth/max py ry))
(>= qy (min py ry)))) (>= qy (mth/min py ry))))
;; Based on solution described here ;; Based on solution described here
;; https://www.geeksforgeeks.org/check-if-two-given-line-segments-intersect/ ;; https://www.geeksforgeeks.org/check-if-two-given-line-segments-intersect/