summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorThomas White <taw@physics.org>2020-06-07 19:10:39 +0200
committerThomas White <taw@physics.org>2020-06-07 19:10:39 +0200
commitdbe7943b1b1267aaa5a92821236055a7b61f04a0 (patch)
tree3633d1cb72e299102d9511d179ff9f10b7f6b88f
parent99ef3632a99b26cd92ea142c4b51f16e88253599 (diff)
Fix addressing
-rw-r--r--guile/nanolight/fixture.scm3
1 files changed, 2 insertions, 1 deletions
diff --git a/guile/nanolight/fixture.scm b/guile/nanolight/fixture.scm
index ff45c22..0c67975 100644
--- a/guile/nanolight/fixture.scm
+++ b/guile/nanolight/fixture.scm
@@ -190,7 +190,8 @@
;; Set the value in the DMX array
(u8vector-set!
(assq-ref universes universe)
- addr (round-dmx value)))
+ (- addr 1) ; u8vector-set indexing starts from zero
+ (round-dmx value)))
;; Scan out all fixtures
(for-each (lambda (fix)