diff options
author | Thomas White <taw@physics.org> | 2021-05-09 11:54:17 +0200 |
---|---|---|
committer | Thomas White <taw@physics.org> | 2021-05-10 20:56:02 +0200 |
commit | 25542a091718cf78a474c7bc8bcf1bc8472cb521 (patch) | |
tree | 6ccc8b722625676585d3e2e623adff77cd92dcd4 /guile/starlet/midi-control | |
parent | 48149fe3e866e1816f38647b1618ad4220b551b6 (diff) |
Split 'base' module up into 'fixture', 'state' and 'scanout'
Diffstat (limited to 'guile/starlet/midi-control')
-rw-r--r-- | guile/starlet/midi-control/button-utils.scm | 2 | ||||
-rw-r--r-- | guile/starlet/midi-control/faders.scm | 8 |
2 files changed, 6 insertions, 4 deletions
diff --git a/guile/starlet/midi-control/button-utils.scm b/guile/starlet/midi-control/button-utils.scm index 5acd5f6..051935f 100644 --- a/guile/starlet/midi-control/button-utils.scm +++ b/guile/starlet/midi-control/button-utils.scm @@ -20,7 +20,7 @@ ;; (define-module (starlet midi-control button-utils) #:use-module (starlet midi-control base) - #:use-module (starlet base) + #:use-module (starlet state) #:use-module (starlet playback) #:export (make-go-button make-stop-button diff --git a/guile/starlet/midi-control/faders.scm b/guile/starlet/midi-control/faders.scm index 53ea378..cb78339 100644 --- a/guile/starlet/midi-control/faders.scm +++ b/guile/starlet/midi-control/faders.scm @@ -20,11 +20,11 @@ ;; (define-module (starlet midi-control faders) #:use-module (starlet midi-control base) - #:use-module (starlet base) + #:use-module (starlet state) + #:use-module (starlet fixture) #:use-module (starlet colours) + #:use-module (starlet scanout) #:use-module (starlet utils) - #:use-module (ice-9 receive) - #:use-module (srfi srfi-9) #:use-module (srfi srfi-1) #:export (state-on-fader)) @@ -93,12 +93,14 @@ (cons '() '()) fixture-list attrs))) + (define (clamp-to-attr-range attr-obj val) (let ((r (get-attr-range-maybe-colour attr-obj))) (max (car r) (min (cadr r) val)))) + (define* (at-midi-jogwheel fixture-list attr cc-number #:key (led #f)) |