New "at" function

1 files 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)