Skip to content
This repository was archived by the owner on Nov 23, 2023. It is now read-only.

Commit 919e2ec

Browse files
fixes, add MIDI send to ableton, add reset
1 parent f7c831b commit 919e2ec

3 files changed

Lines changed: 19 additions & 26 deletions

File tree

examples/notochord/server.py

Lines changed: 1 addition & 1 deletion
Original file line numberDiff line numberDiff line change
@@ -48,7 +48,7 @@ def _(address, **kw):
4848
else:
4949
r = predictor.query_feed(**kw)
5050
return ('/notochord/query_return',
51-
*np.ravel(list(r.items())))
51+
*[x for pair in r.items() for x in pair])
5252

5353
elif cmd=="predict":
5454
if predictor is None:

examples/notochord/tidalcycles/Notochord.hs

Lines changed: 1 addition & 0 deletions
Original file line numberDiff line numberDiff line change
@@ -30,6 +30,7 @@ ncOSCSpecs = [
3030
let ncinst = pI "ncinst"
3131
ncpitch = pI "ncpitch"
3232
ncvel = pF "ncvel"
33+
ncreset = pI "ncreset"
3334
-- ncfeed i p t v = ncfeedI i # ncfeedP p # ncfeedT t # ncfeedV v
3435
:}
3536

Lines changed: 17 additions & 25 deletions
Original file line numberDiff line numberDiff line change
@@ -1,30 +1,22 @@
11
-- Notochord feed and query demo patterns
22
:set
33

4-
p "feed"
5-
$ ncfeedI "1 9 17 25"
6-
# ncfeedP (run 16 + 48)
7-
# ncfeedV (range 1 127 $ sine)
4+
p "choosepitch"
5+
$ ncinst "7 [9*3 [17 25]]"
6+
# ncpitch "-1 [48 -1]"
7+
# ncvel (range 30 120 $ sine)
8+
# cps 1
89

9-
p "query"
10-
$ ncqueryfixP (scale "<major minor>" $ run 16)
11-
# ncqueryfixT (range 0 1 $ cos)
12-
# ncqueryfixV (range 0 1 $ sine)
13-
# ncqueryfixI "0 1 2 3"
14-
# ncqueryexcludeI "[0, 1, 2, 3]"
15-
# ncqueryincludeP "[0, 1, 2, 3]"
16-
# ncqueryexcludeP "[0, 1, 2, 3]"
17-
# ncqueryminT (range 0 1 $ cos)
18-
# ncquerymaxT (range 0 1 $ sine)
19-
# ncqueryminV (range 0 1 $ cos)
20-
# ncquerymaxV (range 0 1 $ sine)
21-
# ncquerytempI (range 0 1 $ cos)
22-
# ncquerytempP (range 0 1 $ sine)
23-
# ncquerytempT (range 0 1 $ cos)
24-
# ncquerytempR (range 0 1 $ sine)
25-
# ncquerytempV (range 0 1 $ cos)
26-
# ncqueryindexP "[0, 1, 2, 3]"
27-
# ncquerytopP "[0, 1, 2, 3]"
28-
# ncquerysweepT "<0 1>"
10+
hush
2911

30-
hush
12+
p "chooseinst"
13+
$ ncinst "-1"--"7 [-1]@7"
14+
<| ncpitch (run 8 + 48)
15+
# ncvel (range 30 120 $ sine)
16+
# cps 1
17+
18+
hush
19+
20+
once $ ncreset "1"
21+
22+
-- p "dirt" $ s "supervibe"

0 commit comments

Comments
 (0)