From 25542a091718cf78a474c7bc8bcf1bc8472cb521 Mon Sep 17 00:00:00 2001 From: Thomas White Date: Sun, 9 May 2021 11:54:17 +0200 Subject: Split 'base' module up into 'fixture', 'state' and 'scanout' --- guile/starlet/midi-control/faders.scm | 8 +++++--- 1 file changed, 5 insertions(+), 3 deletions(-) (limited to 'guile/starlet/midi-control/faders.scm') 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)) -- cgit v1.2.3