Add blackout

1 files changed, 7 insertions, 1 deletions

diff --git a/guile/dsil/fixture.scm b/guile/dsil/fixture.scm
index f1216ae..cbfdccb 100644
--- a/guile/dsil/fixture.scm
+++ b/guile/dsil/fixture.scm
@@ -7,7 +7,7 @@
   #:use-module (web uri)
   #:export (<fixture> <fixture-attribute>
              start-ola-output patch-fixture
-             set-attr!
+             set-attr! home-attr! home-all! blackout
              percent->dmxval msb lsb chan))
 
 (use-modules (srfi srfi-1))
@@ -87,6 +87,12 @@
             (get-attributes fix)))
 
 
+(define (blackout)
+  (for-each (lambda (fix)
+              (set-attr! fix 'intensity 0))
+            (atomic-box-ref patched-fixture-list)))
+
+
 (define (find-attr fix attr-name)
   (find (lambda (a)
           (eq? (get-attr-name a)