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
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
|
import Op, ValueStream, Input, val, evt from require 'alv.base'
import pack from require 'osc'
import dns, udp from require 'socket'
unpack or= table.unpack
play = ValueStream.meta
meta:
name: 'play'
summary: 'Play a SuperCollider SynthDef on bangs.'
examples: { '(play [socket] synth trig [param val…])' }
description: "
Plays the synth `synth` on the `udp/socket` `socket` whenever `trig` is live.
- `socket` should be a `udp/socket` value. This argument can be omitted and the
value be passed as a dynamic definition in `*sock*` instead.
- `synth` is the SC synthdef name. It should be a string-value.
- `trig` is the trigger signal. It should be a stream of bang-events.
- `param` is the name of a synthdef parameter. It should be a string-value."
value: class extends Op
pattern = -val['udp/socket'] + val.str + evt.bang + (val.str + val.num)\rep 0
setup: (inputs, scope) =>
{ socket, synth, trig, ctrls } = pattern\match inputs
flat_ctrls = {}
for { key, value } in *ctrls
table.insert flat_ctrls, key
table.insert flat_ctrls, value
super
trig: Input.hot trig
socket: Input.cold socket or scope\get '*sock*'
synth: Input.cold synth
ctrls: [Input.cold v for v in *flat_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_ = ValueStream.meta
meta:
name: 'play!'
summary: 'Play a SuperCollider SynthDef on events.'
examples: { '(play [socket] synth [param evt/val…])' }
description: "
Plays the synth `synth` on the `udp/socket` `socket` whenever any `evt` is live.
- `socket` should be a `udp/socket` value. This argument can be omitted and the
value be passed as a dynamic definition in `*sock*` instead.
- `synth` is the SC synthdef name. It should be a string-value.
- `param` is the name of a synthdef parameter. It should be a string-value.
- `val` and `evt` are the parameter values to send. They should be number
streams. Incoming events will cause a note to be played, while value changes
will not."
value: class extends Op
pattern = -val['udp/socket'] + val.str + (val.str + (val.num / evt.num))\rep 0
setup: (inputs, scope) =>
{ socket, synth, trig, ctrls } = pattern\match inputs
flat = {}
for { key, value } in *ctrls
table.insert flat, Input.cold key
table.insert flat, if value\metatype! == 'event'
Input.hot value
else
Input.cold value
super
socket: Input.cold socket or scope\get '*sock*'
synth: Input.cold synth
ctrls: flat
tick: =>
{ :socket, :synth, :ctrls } = @unwrap_all!
msg = pack '/s_new', synth, -1, 0, 1, unpack ctrls
socket\send msg
{
:play
'play!': play_
}
|
