From 0a7cb9cbf46e9f1aceba4b5d9fcd205823e97545 Mon Sep 17 00:00:00 2001
From: Thomas White <taw@bitwiz.me.uk>
Date: Tue, 29 Dec 2020 22:21:39 +0100
Subject: Remove old examples/demo.scm

---
 examples/demo.scm | 139 ------------------------------------------------------
 1 file changed, 139 deletions(-)
 delete mode 100644 examples/demo.scm

(limited to 'examples')

diff --git a/examples/demo.scm b/examples/demo.scm
deleted file mode 100644
index 2a91838..0000000
--- a/examples/demo.scm
+++ /dev/null
@@ -1,139 +0,0 @@
-;; Example invokation, from top level project folder:
-;; $ guile -L guile -l examples/demo.scm
-
-(use-modules
-  (starlet base)
-  (starlet playback)
-  (starlet effects)
-  (venues demo-venue)
-  (guile-midi control))
-
-(start-ola-output)
-(start-midi-control "/dev/snd/midiC1D0")
-(all-notes-off! 14)
-
-
-;; Set up working lights on a MIDI fader
-(define working-light-fader
-  (make-midi-controller! #:channel 14
-                         #:cc-number 19))
-
-(register-state!
- (lighting-state
-  (let ((fader-pos (lambda (time)
-                     (get-controller-value working-light-fader))))
-    (at dim11 'intensity fader-pos)
-    (at dim12 'intensity fader-pos)
-    (at dim13 'intensity fader-pos))))
-
-
-
-;; Same, for some different fixtures
-
-(define movers-fader
-  (make-midi-controller! #:channel 14
-                         #:cc-number 18))
-
-(register-state!
- (lighting-state
-  (let ((fader-pos (lambda (time)
-                     (get-controller-value movers-fader))))
-    (at mh1 'intensity fader-pos)
-    (at mh2 'intensity fader-pos))))
-
-
-(define pot1
-  (make-midi-controller! #:channel 14
-                         #:cc-number 7))
-
-
-(define example-state-1
-  (lighting-state
-
-   ;; Front wash
-   (at dim11 'intensity 50)
-   (at dim12 'intensity 50)
-   (at dim13 'intensity 50)
-
-   ;; Sidelight
-   (at dim7 'intensity (flash 2))
-   (at dim8 'intensity 50)
-
-   (at dim48 'intensity
-       (lambda (a)
-         (get-controller-value pot1)))))
-
-
-(define example-state-2
-  (lighting-state
-
-   ;; Front wash
-   (at dim1 'intensity 10)
-   (at dim2 'intensity 10)
-   (at dim3 'intensity 10)
-
-   ;; Sidelight
-   (at dim7 'intensity (flash 5))))
-
-
-(define my-cue-list
-  (cue-list
-
-   (cue 1
-        (cue-state (apply-state example-state-1)
-                   (at mh1 'pan 25))
-        #:up-time 3
-        #:down-time 5)
-
-   (cue 2
-        (cue-state (apply-state example-state-2))
-        #:up-time 3
-        #:down-time 1
-        #:down-delay 3)
-
-   (cue 2.5
-        (cue-state (at dim1 'intensity 100))
-        #:track-intensities #t
-        #:up-time 1
-        #:down-time 1)
-
-   (cue 3
-        (cue-state (blackout (current-state)))
-        #:up-time 0
-        #:down-time 2
-
-        (cue-part (list (cons dim3 'intensity))
-                  #:down-time 2
-                  #:down-delay 1))))
-
-
-;; Create a playback for the cue list, and register it for output
-(define pb
-  (make-playback my-cue-list))
-(register-state! pb)
-
-;; Jump to zero (blackout) cue
-(cut-to-cue-number! pb 0)
-
-(define (make-playback-buttons chan
-                               go-led-note
-                               go-button-note
-                               stop-led-note
-                               stop-button-note)
-  (let ((go-led (make-midi-led #:channel chan
-                               #:note-number go-led-note))
-        (stop-led (make-midi-led #:channel chan
-                                 #:note-number stop-led-note)))
-    (set-midi-led! go-led #t)
-    (set-midi-led! stop-led #t)
-    (register-midi-note-callback!
-     #:channel chan
-     #:note-number go-button-note
-     #:func (lambda () (go! pb)))
-    (register-midi-note-callback!
-     #:channel chan
-     #:note-number stop-button-note
-     #:func (lambda () (display "Stop/back!\n")))))
-
-(make-playback-buttons 14 20 12 24 24)
-(make-playback-buttons 14 23 15 27 27)
-- 
cgit v1.2.3