From 66c697340b3de829531793ea51369deeeb7d2372 Mon Sep 17 00:00:00 2001 From: Thomas White Date: Sat, 3 Jul 2021 22:52:16 +0200 Subject: Remove old show example --- shows/demo-show/cue-list.scm | 89 ------------------------------------------- shows/demo-show/demo-show.scm | 71 ---------------------------------- shows/demo-show/patch.scm | 28 -------------- 3 files changed, 188 deletions(-) delete mode 100644 shows/demo-show/cue-list.scm delete mode 100644 shows/demo-show/demo-show.scm delete mode 100644 shows/demo-show/patch.scm diff --git a/shows/demo-show/cue-list.scm b/shows/demo-show/cue-list.scm deleted file mode 100644 index e8bf4b6..0000000 --- a/shows/demo-show/cue-list.scm +++ /dev/null @@ -1,89 +0,0 @@ -(define-module (demo-show cue-list) - #:use-module (starlet base) - #:use-module (starlet playback) - #:use-module (starlet effects) - #:use-module (demo-show patch)) - - -(define example-state-1 - (lighting-state - - ;; Front wash - (at dim1 'intensity 50) - (at dim2 'intensity 50) - (at dim3 'intensity 50) - - ;; Sidelight - (at dim7 'intensity (flash 5)) - (at dim8 'intensity 50))) - - - -(define example-state-2 - (lighting-state - - ;; Front wash - (at dim1 'intensity 10) - (at dim2 'intensity 99) - (at dim3 'intensity 35) - - ;; Sidelight - (at dim7 'intensity (flash 9)))) - - - -(define-public my-cue-list - (cue-list - - (cue 1 - (cue-state (apply-state example-state-1) - (at mh1 'pan 40) - (at mh1 'tilt 32) - (at mh1 'yellow 30)) - #:up-time 3 - #:down-time 5 - #:attr-time 0 - #:attr-delay 1.5) - - (cue 2 - (cue-state (apply-state example-state-2) - (at dim12 40) - (at mh1 'pan 20) - (at mh1 'tilt 12) - (at mh1 'yellow 80)) - #:up-time 3 - #:down-time 3 - #:attr-time 0 - #:attr-delay 1.5 - - (cue-part ((list mh1 'pan 'tilt) - dim11) - #:up-time 0.5 - #:down-time 0.5 - #:attr-time 0.5)) - - - (cue 2.2 - (cue-state (at dim6 50) - (at mh2 'tilt 20)) - #:track-intensities #t - #:attr-time 0) - - (cue 2.5 - (cue-state (at dim1 'intensity 100) - (at dim9 100)) - #:track-intensities #t - #:up-time 1 - #:down-time 1 - #:attr-time 0) - - (cue 3 - (cue-state (blackout (current-state))) - #:up-time 0 - #:down-time 2 - - (cue-part (dim1 - dim2 - (cons dim3 'intensity)) - #:down-time 2 - #:down-delay 1)))) 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))) diff --git a/shows/demo-show/patch.scm b/shows/demo-show/patch.scm deleted file mode 100644 index 5600275..0000000 --- a/shows/demo-show/patch.scm +++ /dev/null @@ -1,28 +0,0 @@ -(define-module (demo-show patch) - #:use-module (starlet base) - #:use-module (starlet fixture-library generic) - #:use-module (starlet fixture-library robe)) - - -;; Conventional dimmers -(define-public dim1 (patch-fixture! 1)) -(define-public dim2 (patch-fixture! 2)) -(define-public dim3 (patch-fixture! 3)) -(define-public dim4 (patch-fixture! 4)) -(define-public dim5 (patch-fixture! 5)) -(define-public dim6 (patch-fixture! 6)) -(define-public dim7 (patch-fixture! 7)) -(define-public dim8 (patch-fixture! 8)) -(define-public dim9 (patch-fixture! 9)) -(define-public dim10 (patch-fixture! 10)) -(define-public dim11 (patch-fixture! 11)) -(define-public dim12 (patch-fixture! 12)) - - -;; Some moving lights -(define-public mh1 (patch-fixture! 59)) -(define-public mh2 (patch-fixture! 146)) - - -;; A generic LED fixture -(define-public ledpar (patch-fixture! (generic-rgb '(r g b 0 intensity FL)) 204)) -- cgit v1.2.3