diff options
-rw-r--r-- | guile/dsil/fixture.scm | 8 |
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) |