state-source: Clamp continuous attributes to range

1 files changed, 12 insertions, 1 deletions

diff --git a/guile/starlet/state.scm b/guile/starlet/state.scm
index fcf5a54..78209cb 100644
--- a/guile/starlet/state.scm
+++ b/guile/starlet/state.scm
@@ -305,13 +305,24 @@ pre-existing contents."
   (pretty-print (state-source a)))
 
 
+(define (clamp-to-attr-range fix attr val)
+  (if (number? val)
+    (let ((attr-obj (find-attr fix attr)))
+      (if (continuous-attribute? attr-obj)
+        (let ((range (get-attr-range attr-obj)))
+          (max (car range)
+               (min (cadr range) val)))
+        val))
+    val))
+
+
 (define (state-source a)
   (cons 'lighting-state
         (state-map (lambda (fix attr val)
                      (list 'at
                            (get-fixture-name fix)
                            (list 'quote attr)
-                           val))
+                           (clamp-to-attr-range fix attr val)))
                    a)))