From d5f1404dbff7ff3c6307d95fbf2c96fdfe9ada55 Mon Sep 17 00:00:00 2001 From: Thomas White Date: Sat, 15 Apr 2023 20:25:30 +0200 Subject: demo-show: Use guile-osc --- examples/demo-show.scm | 24 ++++-------------------- 1 file 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 1) (patch-fixture! mhL 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))) -- cgit v1.2.3