From 86b4b72fa1fdcc424febe327bfc42e33c1eb5b38 Mon Sep 17 00:00:00 2001 From: David Thompson Date: Mon, 24 Oct 2022 21:13:38 -0400 Subject: math: rect: Fix vec2-clamp-to-rect implementation. --- chickadee/math/rect.scm | 4 +++- 1 file changed, 3 insertions(+), 1 deletion(-) diff --git a/chickadee/math/rect.scm b/chickadee/math/rect.scm index 2b94014..9e605d8 100644 --- a/chickadee/math/rect.scm +++ b/chickadee/math/rect.scm @@ -296,7 +296,9 @@ fit completely within RECT2." (define (vec2-clamp-to-rect v rect) "Return a new vec2 with the x and y coordinates of the vec2 V restricted so that they are within the bounds of RECT." - (vec2-clamp-to-rect! (vec2-copy v) rect)) + (let ((v* (vec2-copy v))) + (vec2-clamp-to-rect! v* rect) + v*)) (define (rect-clamp rect1 rect2) "Return a new rect that adjusts the location of RECT1 so that it is -- cgit v1.2.3