diff options
Diffstat (limited to 'guile/nanolight/fixture.scm')
-rw-r--r-- | guile/nanolight/fixture.scm | 15 |
1 files changed, 6 insertions, 9 deletions
diff --git a/guile/nanolight/fixture.scm b/guile/nanolight/fixture.scm index 78fb596..96e4820 100644 --- a/guile/nanolight/fixture.scm +++ b/guile/nanolight/fixture.scm @@ -145,20 +145,17 @@ (assq-ref universes universe) addr (round-dmx value))) - (define (run-translator fix attr set-dmx) - (let ((trans (translator attr))) - (trans - (universe fix) - (start-addr fix) - ((value-func attr)) - set-dmx))) - ;; Scan out all fixtures (for-each (lambda (fix) ;; Scan out one fixture (for-each (lambda (attr) - (run-translator fix attr set-dmx)) + (let ((trans (translator attr))) + (trans + (universe fix) + (start-addr fix) + ((value-func attr)) + set-dmx))) (attributes fix))) fixtures)) |