0
Fork 0
mirror of https://github.com/penpot/penpot.git synced 2025-03-15 17:21:17 -05:00

Add type hints to on-segment? fn

This commit is contained in:
Andrey Antukh 2023-08-25 10:32:42 +02:00 committed by Andrés Moya
parent d8c1425daf
commit 5b73040696

View file

@ -34,10 +34,10 @@
(defn on-segment?
"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}]
(and (<= qx (max px rx))
(>= qx (min px rx))
(<= qy (max py ry))
(>= qy (min py ry))))
(and (<= qx (mth/max px rx))
(>= qx (mth/min px rx))
(<= qy (mth/max py ry))
(>= qy (mth/min py ry))))
;; Based on solution described here
;; https://www.geeksforgeeks.org/check-if-two-given-line-segments-intersect/