diff options
author | Thomas White <taw@physics.org> | 2023-04-11 22:20:23 +0200 |
---|---|---|
committer | Thomas White <taw@physics.org> | 2023-04-11 22:20:23 +0200 |
commit | 4f72138119af6bab3a00824f368ee1d4b01f8518 (patch) | |
tree | c63c3009629dc83f8a1f626ae80bb4ca1578c034 /examples/demo-show.scm | |
parent | 14b3c31368e869519104403f51648b63a7a5ba25 (diff) |
Add examples/demo-show.scm
Diffstat (limited to 'examples/demo-show.scm')
-rw-r--r-- | examples/demo-show.scm | 107 |
1 files changed, 107 insertions, 0 deletions
diff --git a/examples/demo-show.scm b/examples/demo-show.scm new file mode 100644 index 0000000..87adc16 --- /dev/null +++ b/examples/demo-show.scm @@ -0,0 +1,107 @@ +(use-modules + (starlet fixture) + (starlet state) + (starlet playback) + (starlet engine) + (starlet scanout) + (starlet effects) + (starlet colours) + (starlet clock) + (starlet attributes) + (starlet cue-list) + (starlet attributes) + (taw controls) + (starlet fixture-library generic dimmer) + (starlet fixture-library stairville z120m) + (starlet fixture-library robe dl7s) + (starlet midi-control base) + (starlet midi-control button-utils) + (starlet midi-control faders)) + + +;; Start MIDI control +(define controller (make-midi-controller (find-midi-device) 14)) + +;; Patch fixtures +(patch-fixture! mhLL <robe-dl7s-mode1> 1) +(patch-fixture! mhL <robe-dl7s-mode1> 52) +(patch-fixture! mhR <robe-dl7s-mode1> 104) +(patch-fixture! mhRR <robe-dl7s-mode1> 156) +(patch-fixture! washL <generic-dimmer> 260) +(patch-fixture! washM <generic-dimmer> 261) +(patch-fixture! washR <generic-dimmer> 262) +(patch-fixture! ledLL <stairville-z120m-6ch> 238) +(patch-fixture! ledL <stairville-z120m-6ch> 232) +(patch-fixture! ledR <stairville-z120m-6ch> 250) +(patch-fixture! ledRR <stairville-z120m-6ch> 244) +(patch-fixture! goboL <generic-dimmer> 263) +(patch-fixture! goboR <generic-dimmer> 264) +(patch-fixture! domeL <generic-dimmer> 265) +(patch-fixture! domeR <generic-dimmer> 266) +(patch-fixture! apronL <generic-dimmer> 267) +(patch-fixture! apronR <generic-dimmer> 268) +(patch-fixture! highsideL <generic-dimmer> 269) +(patch-fixture! highsideR <generic-dimmer> 270) +(patch-fixture! floodL <generic-dimmer> 271) +(patch-fixture! floodR <generic-dimmer> 272) + +(define front-leds (list ledLL ledL ledR ledRR)) +(define front-wash (list washL washM washR)) + +(define my-cues + (cue-list + + (cue 1 + (crossfade 3 + (lighting-state + (at washL washM washR 80)))) + + (cue 2 + (crossfade 2 5 + (lighting-state + (at washL washM washR 0) + (at ledL ledR colour (cmy 0 0 24)) + (at ledL ledR 100)))) + + (cue 3 + (snap blackout)) + + (cue 4 + (crossfade 1 + (lighting-state + (at washM 100)))) + + (cue 5 + track-intensities + (crossfade 5 + (lighting-state + (at ledL ledR 30))) + (crossfade 2 #:up-delay 5 + (lighting-state + (at apronL apronR 100)))) + + (cue 6 + (snap + (lighting-state + (at washL washR 20)))))) + + +(define pb + (make-playback + #:cue-list my-cues + #:recovery-file "recovery.q")) + + +;; MIDI controls + +(taw-playback-controls controller pb) +(taw-selection-controls controller) + +(state-on-fader controller 19 + (lighting-state + (at front-wash 100) + (at domeL domeR 100))) + +(select-on-button controller 32 (list washL washM washR) + #:ready-note 68) + |