diff options
Diffstat (limited to 'examples')
-rw-r--r-- | examples/demo-show.scm | 24 |
1 files changed, 4 insertions, 20 deletions
diff --git a/examples/demo-show.scm b/examples/demo-show.scm index 3eff84c..228dc86 100644 --- a/examples/demo-show.scm +++ b/examples/demo-show.scm @@ -10,18 +10,12 @@ (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)) + (guile-osc engine)) -;; 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) @@ -96,16 +90,6 @@ #: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) - +;; OSC controls +(define osc-server (start-osc)) +(define-osc-method osc-server "/starlet/selection/clear" (lambda () (sel #f))) |