Move useful stuff to utils

1 files changed, 1 insertions, 17 deletions

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)