From 77aab1e1fc6433edc1254ae16964cdf0f8bc9a5a Mon Sep 17 00:00:00 2001
From: Thomas White <taw@physics.org>
Date: Sat, 23 Apr 2022 16:08:24 +0200
Subject: Add scale-and-clamp-to-range

---
 guile/starlet/fixture.scm | 14 ++++++++++++++
 1 file changed, 14 insertions(+)

(limited to 'guile/starlet/fixture.scm')

diff --git a/guile/starlet/fixture.scm b/guile/starlet/fixture.scm
index 9f58f25..ee0d5b8 100644
--- a/guile/starlet/fixture.scm
+++ b/guile/starlet/fixture.scm
@@ -42,6 +42,7 @@
             intensity?
 
             scale-to-range
+            scale-and-clamp-to-range
             round-dmx
             percent->dmxval8
             percent->dmxval16))
@@ -202,3 +203,16 @@
         (/ (- val (car orig-range))
            (range orig-range)))))
 
+
+(define (clamp-to-range val val1 val2)
+  (let ((minval (min val1 val2))
+        (maxval (max val1 val2)))
+  (max minval
+       (min val maxval))))
+
+;; Like scale-to-range, but result is clamped within dest-range
+(define (scale-and-clamp-to-range val orig-range dest-range)
+  (clamp-to-range
+    (scale-to-range val orig-range dest-range)
+    (car dest-range)
+    (cadr dest-range)))
-- 
cgit v1.2.3