diff options
author | Thomas White <taw@physics.org> | 2023-04-18 23:24:34 +0200 |
---|---|---|
committer | Thomas White <taw@physics.org> | 2023-04-18 23:24:34 +0200 |
commit | c6e5032e594e07d4b9b94d0d949d66f4a9ebc722 (patch) | |
tree | 70b458e5fd61f8dc3b9f6764c52f254f82ac04ce /examples/demo-show.scm | |
parent | d5f1404dbff7ff3c6307d95fbf2c96fdfe9ada55 (diff) |
Update OSC bits
Diffstat (limited to 'examples/demo-show.scm')
-rw-r--r-- | examples/demo-show.scm | 13 |
1 files 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) |