diff options
author | Thomas White <taw@physics.org> | 2020-07-21 17:40:42 +0200 |
---|---|---|
committer | Thomas White <taw@physics.org> | 2020-07-21 17:40:42 +0200 |
commit | 0db8d310c24d4c808bb420df1d32722478ed8356 (patch) | |
tree | 9545c9fc72fce3d53bb7aab09cd917f8b66dc382 | |
parent | 701abb86f5cd8088e1a8be69c4459479782c4b15 (diff) |
Add blackout
-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) |