From fc8d00e2eb4d5bdb40cdc58ec70489273d39e04a Mon Sep 17 00:00:00 2001 From: Thomas White Date: Sat, 30 Jan 2021 21:29:26 +0100 Subject: Move useful stuff to utils --- guile/starlet/midi-control/faders.scm | 18 +----------------- 1 file changed, 1 insertion(+), 17 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 113917c..97ed1ff 100644 --- a/guile/starlet/midi-control/faders.scm +++ b/guile/starlet/midi-control/faders.scm @@ -1,6 +1,7 @@ (define-module (starlet midi-control faders) #:use-module (starlet midi-control base) #:use-module (starlet base) + #:use-module (starlet utils) #:use-module (ice-9 receive) #:use-module (srfi srfi-9) #:use-module (srfi srfi-1) @@ -47,11 +48,6 @@ fixture-list)) -(define (partial f second-val) - (lambda (first-val) - (f first-val second-val))) - - (define (fixtures-with-attr fixture-list attr-name) (let ((attrs (map (partial find-attr attr-name) fixture-list))) (fold (lambda (fix attr old) @@ -91,18 +87,6 @@ fixtures old-vals))))))) -(define (in-range a val1 val2) - (or - (and (>= a val1) - (<= a val2)) - (and (>= a val2) - (<= a val1)))) - - -(define (mean vals) - (/ (fold + 0 vals) - (length vals))) - (define (fader-congruent vals attrs) (mean (map (lambda (val attr) -- cgit v1.2.3