From 8c8f06702306eb5079d823577e240629384408d1 Mon Sep 17 00:00:00 2001 From: Thomas White Date: Tue, 10 Mar 2020 23:30:11 +0100 Subject: Store states as functions --- src/init.scm | 34 +++++++++++++++++++--------------- 1 file 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) -- cgit v1.2.3