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
32
33
34
35
36
37
38
|
import Op, Value, Input, Error, match from require 'core.base'
import pack from require 'osc'
import dns, udp from require 'socket'
play = Value.meta
meta:
name: 'play'
summary: 'Play a SuperCollider SynthDef.'
examples: { '(play socket synth trig [param val…])' }
description: "
Plays the synth `synth` on the `udp/socket` `socket` whenever `trig` is live.
Any number of parameter-value pairs can be specified and are captured and sent
together with the note when triggered."
value: class extends Op
setup: (inputs) =>
{ socket, synth, trig, ctrls } = match 'udp/socket str bang *any?', inputs
assert #ctrls % 2 == 0, Error 'argument', "parameters need to be specified as pairs"
for key in *ctrls[1,,2]
assert key\type! == 'str', Error 'argument', "ony strings are supported as control names"
for val in *ctrls[2,,2]
assert val\type! == 'num', Error 'argument', "only numbers are supported as control values"
super
trig: Input.event trig
socket: Input.cold socket
synth: Input.cold synth
ctrls: [Input.cold 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
}
|
