blob: 7d51b9bbe76aeb60562efcc88976156ddc18456d (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
|
([1]import* math time string util)
([2]import osc envelope midi)
([3]defn make-lfo (type)
([8]fn ([5]f) ([7]lfo ([6]* f 0.5) type)))
([9]def sin-lfo ([10]make-lfo 'sin'))
([11]defn send (name value)
([13]osc/out '127.0.0.1' 9000
([12].. '/param/' name '/set')
value))
([23]send 'radius' ([25]([24]envelope/ar ([14]midi/cc 0) ([15]midi/cc 1)) ([27]midi/gate 36)))
([19]send 'offset' ([20]sin-lfo ([16]keep ([26]midi/cc 24 0 4))))
|
