math: rect: Add rect-clamp.

* sly/math/rect.scm (rect-clamp): New procedure.

1 files changed, 7 insertions, 0 deletions

diff --git a/sly/math/rect.scm b/sly/math/rect.scm
index d822891..4e57ea6 100644
--- a/sly/math/rect.scm
+++ b/sly/math/rect.scm
@@ -52,6 +52,7 @@
             rect-inflate
             rect-union
             rect-clip
+            rect-clamp
             rect-within?
             rect-intersects?
             rect-contains?))
@@ -183,6 +184,12 @@ not overlap, a rect of size 0 is returned."
         (y2 (min (rect-bottom rect1) (rect-bottom rect2))))
     (make-rect x1 y1 (max (- x2 x1) 0) (max (- y2 y1) 0))))
 
+(define rect-clamp
+  (match-lambda*
+   ((($ <rect> rx ry width height) ($ <vector2> x y))
+    (vector2 (clamp rx (+ rx width) x)
+             (clamp ry (+ ry height) y)))))
+
 (define (rect-within? rect1 rect2)
   "Return #t if RECT2 is completely within RECT1."
   (and (>= (rect-left   rect2) (rect-left   rect1))