From 2590f2ed6f3b7cc0f8a84b56c5d146ece37feade Mon Sep 17 00:00:00 2001
From: Thomas White <taw@physics.org>
Date: Sat, 22 Feb 2020 09:36:00 +0100
Subject: New "at" function

---
 src/init.scm | 13 +++++--------
 1 file changed, 5 insertions(+), 8 deletions(-)

diff --git a/src/init.scm b/src/init.scm
index f875ce3..93747ba 100644
--- a/src/init.scm
+++ b/src/init.scm
@@ -1,12 +1,9 @@
-(define off
-  (lambda (fix)
-    (set-intensity fix 0)))
+(define at
+  (lambda (fix level)
+    (if (list? fix)
+      (for-each (lambda (q) (at q level)) fix)
+      (set-intensity (find-fixture fixtures fix) level))))
 
-(define set-all
-  (lambda (fixtures level)
-    (for-each (lambda (fix)
-		(set-intensity fix level))
-	      fixtures)))
 
 (define find-fixture
   (lambda (fixtures name)
-- 
cgit v1.2.3