1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
|
import Op, EventInput, ColdInput, match from require 'core.base'
import pack from require 'osc'
import dns, udp from require 'socket'
class play extends Op
@doc: "(sc/play socket synth trigger [name-str val]...) - play a SC SynthDef"
setup: (inputs) =>
{ socket, synth, trig, ctrls } = match 'udp/socket str bang *any?', inputs
assert #ctrls % 2 == 0, "parameters need to be specified as pairs"
for key in *ctrls[1,,2]
assert key\type! == 'str', "ony strings are supported as control names"
for val in *ctrls[2,,2]
assert val\type! == 'num', "only numbers are supported as control values"
super
socket: ColdInput socket
synth: ColdInput synth
trig: EventInput trig
ctrls: [ColdInput v for v in *ctrls]
tick: =>
if @inputs.trig\dirty! and @inputs.trig!
{ :socket, :synth, :ctrls } = @unwrap_all!
msg = pack '/s_new', synth, -1, 0, 1, unpack ctrls
socket\send msg
{
:play
}
|
