From fddb6118eb9d963fc419e83ad1be531023187b4b Mon Sep 17 00:00:00 2001
From: Thomas White <taw@physics.org>
Date: Thu, 20 Aug 2020 21:35:17 +0200
Subject: More LEDs

---
 examples/demo.scm | 38 ++++++++++++++++++++++++--------------
 1 file changed, 24 insertions(+), 14 deletions(-)

(limited to 'examples')

diff --git a/examples/demo.scm b/examples/demo.scm
index 457718d..f41d0c0 100644
--- a/examples/demo.scm
+++ b/examples/demo.scm
@@ -12,18 +12,6 @@
 (start-midi-control "/dev/snd/midiC1D0")
 (all-notes-off! 14)
 
-;; Light up some LEDs on the MIDI controller
-(define led1
-  (make-midi-led #:channel 14
-                 #:note-number 23))
-
-(define led2
-  (make-midi-led #:channel 14
-                 #:note-number 20))
-
-(set-midi-led! led1 #t)
-(set-midi-led! led2 #t)
-
 
 ;; Set up working lights on a MIDI fader
 (define working-light-fader
@@ -102,8 +90,30 @@
 ;; Jump to zero (blackout) cue
 (cut-to-cue-number! pb 0)
 
-;; Set up a "go" button
+;; Left-hand playback buttons
+(define go1 (make-midi-led #:channel 14 #:note-number 20))
+(set-midi-led! go1 #t)
+(define stop1 (make-midi-led #:channel 14 #:note-number 24))
+(set-midi-led! stop1 #t)
+(register-midi-note-callback!
+ #:channel 14
+ #:note-number 12
+ #:func (lambda () (go! pb)))
+(register-midi-note-callback!
+ #:channel 14
+ #:note-number 24
+ #:func (lambda () (display "Stop/back!\n")))
+
+;; Right-hand playback buttons
+(define go2 (make-midi-led #:channel 14 #:note-number 23))
+(set-midi-led! go2 #t)
+(define stop2 (make-midi-led #:channel 14 #:note-number 27))
+(set-midi-led! stop2 #t)
 (register-midi-note-callback!
  #:channel 14
- #:note-number #xc
+ #:note-number 15
  #:func (lambda () (go! pb)))
+(register-midi-note-callback!
+ #:channel 14
+ #:note-number 27
+ #:func (lambda () (display "Stop/back!\n")))
-- 
cgit v1.2.3