From adaeccde0643649225a26044d9a588e49d403d85 Mon Sep 17 00:00:00 2001
From: David Thompson <dthompson2@worcester.edu>
Date: Sat, 5 Dec 2020 13:12:14 -0500
Subject: rect: Add setters.

---
 sdl2/rect.scm | 18 +++++++++++++++++-
 1 file changed, 17 insertions(+), 1 deletion(-)

(limited to 'sdl2')

diff --git a/sdl2/rect.scm b/sdl2/rect.scm
index 1fd3af9..8ec3cfa 100644
--- a/sdl2/rect.scm
+++ b/sdl2/rect.scm
@@ -33,7 +33,11 @@
             rect-x
             rect-y
             rect-width
-            rect-height))
+            rect-height
+            set-rect-x!
+            set-rect-y!
+            set-rect-width!
+            set-rect-height!))
 
 (define-record-type <rect>
   (%make-rect bv ptr)
@@ -56,3 +60,15 @@
 
 (define-inlinable (rect-height rect)
   (s32vector-ref (rect-bv rect) 3))
+
+(define-inlinable (set-rect-x! rect x)
+  (s32vector-set! (rect-bv rect) 0 x))
+
+(define-inlinable (set-rect-y! rect y)
+  (s32vector-set! (rect-bv rect) 1 y))
+
+(define-inlinable (set-rect-width! rect w)
+  (s32vector-set! (rect-bv rect) 2 w))
+
+(define-inlinable (set-rect-height! rect h)
+  (s32vector-set! (rect-bv rect) 3 h))
-- 
cgit v1.2.3