diff options
| author | Thomas White <taw@physics.org> | 2023-04-15 20:25:30 +0200 |
|---|---|---|
| committer | Thomas White <taw@physics.org> | 2023-04-15 20:25:30 +0200 |
| commit | d5f1404dbff7ff3c6307d95fbf2c96fdfe9ada55 (patch) | |
| tree | 22e4b70dfd8da5bfd5a4bf199b6c0545ebfbbe75 | |
| parent | d84eb5f24a306afa518ead5a6e468892347da982 (diff) | |
demo-show: Use guile-osc
| -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))) |