1 files changed, 16 insertions, 0 deletions
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)])))