From 66c697340b3de829531793ea51369deeeb7d2372 Mon Sep 17 00:00:00 2001
From: Thomas White <taw@physics.org>
Date: Sat, 3 Jul 2021 22:52:16 +0200
Subject: Remove old show example

---
 shows/demo-show/demo-show.scm | 71 -------------------------------------------
 1 file changed, 71 deletions(-)
 delete mode 100644 shows/demo-show/demo-show.scm

(limited to 'shows/demo-show/demo-show.scm')

diff --git a/shows/demo-show/demo-show.scm b/shows/demo-show/demo-show.scm
deleted file mode 100644
index 7491d9f..0000000
--- a/shows/demo-show/demo-show.scm
+++ /dev/null
@@ -1,71 +0,0 @@
-;; FIXME: Obviously, a better way of loading is needed
-(add-to-load-path "/home/taw/starlet/guile")
-(add-to-load-path "/home/taw/starlet/shows")
-
-(use-modules
- (starlet base)
- (starlet playback)
- (starlet midi-control base)
- (starlet midi-control button-utils)
- (starlet midi-control faders)
- (demo-show patch))
-
-(define cue-list-module
-  (resolve-module '(demo-show cue-list) #t))
-
-(module-use! (current-module) cue-list-module)
-
-;; Create playback
-(define pb
-  (make-playback my-cue-list))
-(register-state! pb)
-(cut-to-cue-number! pb 0)
-
-;; Start readout to OLA
-(start-ola-output)
-
-;; Start MIDI control
-(start-midi-control "/dev/snd/midiC1D0"
-                    #:channel 14)
-
-;;;; Set up cue list go/stop buttons, and light up LEDs to show
-(make-go-button pb 12)
-(make-stop-button pb 24)
-(send-note-on 20)
-(send-note-on 24)
-
-;; A second set of go/stop buttons
-(make-go-button pb 15)
-(make-stop-button pb 27)
-(send-note-on 23)
-(send-note-on 27)
-
-;; Put some fixture selections on buttons
-(select-on-button 26 #f)
-(select-on-button 36 mh1)
-(select-on-button 37 mh2)
-(select-on-button 38 ledpar)
-(send-note-on 72)
-(send-note-on 73)
-(send-note-on 74)
-
-;; Set up a fader for quick access to some working light
-(on-fader 19
-          (lighting-state
-           (at dim1 100)
-           (at dim2 100)
-           (at dim3 100)
-           (at dim10 50)
-           (at dim11 50)
-           (at dim12 50)))
-
-(define (reload-cue-list)
-  (reload-module cue-list-module)
-  (set-playback-cue-list! pb my-cue-list)
-  (cut-to-cue-number! pb
-                      (get-playback-cue-number pb)))
-
-(define (auto-reload)
-  (while #t
-    (sleep 1)
-    (reload-cue-list)))
-- 
cgit v1.2.3