diff options
author | Thomas White <taw@bitwiz.me.uk> | 2021-01-03 13:07:19 +0100 |
---|---|---|
committer | Thomas White <taw@bitwiz.me.uk> | 2021-01-03 13:07:19 +0100 |
commit | b60f73031bb275644243d46133df6568cecca40f (patch) | |
tree | 81cf41cb5fed89beb21cc62abc07c4fb93d7122b /guile/starlet/base.scm | |
parent | 781d9530d29cde97317e42b43633f0b24c6cefb6 (diff) |
Start MIDI control only for attributes in the fixture
Diffstat (limited to 'guile/starlet/base.scm')
-rw-r--r-- | guile/starlet/base.scm | 5 |
1 files changed, 5 insertions, 0 deletions
diff --git a/guile/starlet/base.scm b/guile/starlet/base.scm index 76d6f61..eb17839 100644 --- a/guile/starlet/base.scm +++ b/guile/starlet/base.scm @@ -18,6 +18,7 @@ percent->dmxval hirestime state-for-each + get-attributes set-attr! get-attr-name value->number @@ -93,6 +94,10 @@ #:getter get-scanout-func)) +(define (get-attributes f) + (slot-ref f 'attributes)) + + (define (fixture? f) (is-a? f <fixture>)) |