From c6e5032e594e07d4b9b94d0d949d66f4a9ebc722 Mon Sep 17 00:00:00 2001 From: Thomas White Date: Tue, 18 Apr 2023 23:24:34 +0200 Subject: Update OSC bits --- examples/demo-show.scm | 13 ++++++++++--- 1 file changed, 10 insertions(+), 3 deletions(-) diff --git a/examples/demo-show.scm b/examples/demo-show.scm index 228dc86..6282d9b 100644 --- a/examples/demo-show.scm +++ b/examples/demo-show.scm @@ -13,7 +13,8 @@ (starlet fixture-library generic dimmer) (starlet fixture-library stairville z120m) (starlet fixture-library robe dl7s) - (guile-osc engine)) + (open-sound-control server-thread) + (open-sound-control client)) ;; Patch fixtures @@ -91,5 +92,11 @@ ;; OSC controls -(define osc-server (start-osc)) -(define-osc-method osc-server "/starlet/selection/clear" (lambda () (sel #f))) +(define osc-server (make-osc-server-thread "7770")) +(define osc-send-addr (make-osc-address "7771")) +(add-osc-method osc-server "/starlet/selection/clear" (lambda () (sel #f))) +(add-osc-method osc-server "/starlet/selection/mhLL" (lambda () (sel mhLL))) +(add-osc-method osc-server "/starlet/selection/mhL" (lambda () (sel mhL))) +(add-osc-method osc-server "/starlet/selection/mhR" (lambda () (sel mhR))) +(add-osc-method osc-server "/starlet/selection/mhRR" (lambda () (sel mhRR))) +(osc-send osc-send-addr "/x1k2/leds/*" 1) -- cgit v1.2.3