aboutsummaryrefslogtreecommitdiff
diff options
context:
space:
mode:
-rw-r--r--examples/demo.scm139
1 files changed, 0 insertions, 139 deletions
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)