From bb605eef824f287f20473b6d110d5e40eb475390 Mon Sep 17 00:00:00 2001
From: henriquelalves <henriquelalves@gmail.com>
Date: Sat, 17 May 2025 23:18:54 +0300
Subject: update scripts

---
 scripts/utils.scm | 8 ++++++++
 1 file changed, 8 insertions(+)
 create mode 100644 scripts/utils.scm

(limited to 'scripts/utils.scm')

diff --git a/scripts/utils.scm b/scripts/utils.scm
new file mode 100644
index 0000000..3348075
--- /dev/null
+++ b/scripts/utils.scm
@@ -0,0 +1,8 @@
+(define (is-point-inside-rect? point rect)
+  (cond ((not (point? point)) #f)
+	((not (rect? rect)) #f)
+	(else (and (>= (point-x point) (rect-x rect))
+		   (>= (point-y point) (rect-y rect))
+		   (<= (point-x point) (+ (rect-x rect) (rect-width rect)))
+		   (<= (point-y point) (+ (rect-y rect) (rect-height rect))))
+	      )))
-- 
cgit v1.2.3