From 5a67759a775f23fb2b5a22fd31a81f4c9d3ad9ee Mon Sep 17 00:00:00 2001
From: Thomas White <taw@physics.org>
Date: Thu, 20 Aug 2020 17:26:35 +0200
Subject: Scan out entire fixtures at once

---
 guile/starlet/fixture-library/generic.scm | 15 +++++++++++----
 1 file changed, 11 insertions(+), 4 deletions(-)

(limited to 'guile/starlet/fixture-library')

diff --git a/guile/starlet/fixture-library/generic.scm b/guile/starlet/fixture-library/generic.scm
index 320f741..b92569d 100644
--- a/guile/starlet/fixture-library/generic.scm
+++ b/guile/starlet/fixture-library/generic.scm
@@ -13,7 +13,14 @@
       #:name 'intensity
       #:range '(0 100)
       #:type 'continuous
-      #:home-value 0
-      #:translator (lambda (universe start-addr value set-dmx)
-                     (set-dmx universe start-addr
-                              (percent->dmxval value)))))))
+      #:home-value 0))))
+
+
+(define-method (scanout-fixture (fixture <generic-dimmer>)
+                                get-attr
+                                set-dmx)
+
+    ;; Set DMX value for intensity
+    (set-dmx (get-fixture-universe fixture)
+             (get-fixture-addr fixture)
+             (percent->dmxval (get-attr 'intensity))))
-- 
cgit v1.2.3