Store states as functions

1 files changed, 19 insertions, 15 deletions

diff --git a/src/init.scm b/src/init.scm
index ce75282..a7eafc1 100644
--- a/src/init.scm
+++ b/src/init.scm
@@ -43,25 +43,29 @@
     (cons fixname (cons 'intensity level))))
 
 
-(define show-state-absolute
+(define show-state
   (lambda (state)
     (set-level fixtures 0)
-    (for-each (lambda (q)
-                (set-level
-                  (car q)
-                  (cddr q)))
-              state)))
-
+    (let ([qv (state)])
+      (for-each (lambda (q)
+		  (set-level (car q) (cddr q)))
+	qv))))
 
 (patch-many (find-fixture-class fixture-class-library "Robe Robin DL7S Profile Mode 1") 'mh 4 0 51)
 (patch-many (find-fixture-class fixture-class-library "Generic dimmer") 'dim 6 0 1)
 
-(define home (list
-               (at 'mh1 0)
-               (at 'mh2 0)
-               (at 'mh3 (+ 30 30))
-               (at 'mh4 0)
-               (at 'dim1 0)
-               (at 'dim2 0)))
+(define example
+  (lambda ()
+    (list
+      (at 'mh1 85)
+      (at 'mh2 0)
+      (at 'mh3 (+ 30 30))
+      (at 'mh4 32)
+      (at 'dim1 100)
+      (at 'dim2 12))))
+
+(define home
+  (lambda ()
+    (list)))
 
-(show-state-absolute home)
+(show-state home)