From fbef500d7ee9832f32c9b5d21aee042081d4a239 Mon Sep 17 00:00:00 2001
From: Thomas White <taw@physics.org>
Date: Mon, 25 Jan 2021 22:43:53 +0100
Subject: Formatting

---
 guile/starlet/midi-control/faders.scm | 54 +++++++++++++++++------------------
 1 file changed, 27 insertions(+), 27 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 24c1188..dd37986 100644
--- a/guile/starlet/midi-control/faders.scm
+++ b/guile/starlet/midi-control/faders.scm
@@ -12,34 +12,34 @@
                             channel
                             state)
   (register-state!
-   (lighting-state
-    (state-for-each
-     (lambda (fix attr val)
-           (if (intensity? attr)
+    (lighting-state
+      (state-for-each
+        (lambda (fix attr val)
+          (if (intensity? attr)
 
-               ;; Intensity parameters get scaled according to the fader
-               (at fix attr (lambda (time)
-                              (let ((cc-val (get-cc-value cc-number
-                                                          #:channel channel)))
-                                (if cc-val
-                                  (* 0.01 val (ccval->percent cc-val))
-                                  0))))
+              ;; Intensity parameters get scaled according to the fader
+              (at fix attr (lambda (time)
+                             (let ((cc-val (get-cc-value cc-number
+                                                         #:channel channel)))
+                               (if cc-val
+                                   (* 0.01 val (ccval->percent cc-val))
+                                   0))))
 
-               ;; Non-intensity parameters just get set in our new state
-               (at fix attr val)))
+              ;; Non-intensity parameters just get set in our new state
+              (at fix attr val)))
 
-     state))))
+        state))))
 
 
 (define* (state-on-fader cc-number state
                          #:key (channel #f))
   (register-midi-cc-callback!
-   #:cc-number cc-number
-   #:func (lambda (old-val new-val)
-            (when (or (eqv? old-val 0)
-                      (and (not old-val)
-                           (< new-val 10)))
-              (put-state-on-fader cc-number channel state)))))
+    #:cc-number cc-number
+    #:func (lambda (old-val new-val)
+             (when (or (eqv? old-val 0)
+                       (and (not old-val)
+                            (< new-val 10)))
+               (put-state-on-fader cc-number channel state)))))
 
 
 (define (current-values fixture-list attr-name)
@@ -126,9 +126,9 @@
 
 (define (fader-space->congruence r)
   (inexact->exact
-   (round
-    (* 127 (/ (space-down r)
-              (space-span r))))))
+    (round
+      (* 127 (/ (space-down r)
+                (space-span r))))))
 
 
 (define (range-scale cspace)
@@ -237,10 +237,10 @@
 
   (define (led-off leds)
     (cond
-     ((list? leds)
-      (for-each send-note-off leds))
-     ((number? leds)
-      (send-note-off leds))))
+      ((list? leds)
+       (for-each send-note-off leds))
+      ((number? leds)
+       (send-note-off leds))))
 
   (for-each remove-midi-callback! midi-callbacks)
 
-- 
cgit v1.2.3