From 27c34a9e2d210eb00d8bb5a07b57c5373edea98c Mon Sep 17 00:00:00 2001
From: Thomas White <taw@physics.org>
Date: Thu, 20 Feb 2020 15:07:03 +0100
Subject: Add init.scm

---
 src/init.scm | 16 ++++++++++++++++
 1 file changed, 16 insertions(+)
 create mode 100644 src/init.scm

(limited to 'src/init.scm')

diff --git a/src/init.scm b/src/init.scm
new file mode 100644
index 0000000..b6069aa
--- /dev/null
+++ b/src/init.scm
@@ -0,0 +1,16 @@
+(define off
+  (lambda (fix)
+    (set-intensity fix 0)))
+
+(define set-all
+  (lambda (fixtures level)
+    (for-each (lambda (fix)
+		(set-intensity fix level))
+	      fixtures)))
+
+(define find-fixture
+  (lambda (fixtures name)
+    (cond
+      [(null? fixtures) #f]
+      [(eq? (fixture-name (car fixtures)) name) (car fixtures)]
+      [else (find-fixture (cdr fixtures) name)])))
-- 
cgit v1.2.3