loooph
/
cm-dfs
1
0
Fork 0
Code Issues Pull Requests Projects Releases Wiki Activity

Compare commits

base: loooph:d39eda420e95ed8bb03e88ea665bd6b4e8bb9b07
Branches Tags
loooph:master
..
compare: loooph:5f0fada42d19a08673af1632a6c1762542ca7513
Branches Tags
loooph:master

No commits in common. "d39eda420e95ed8bb03e88ea665bd6b4e8bb9b07" and "5f0fada42d19a08673af1632a6c1762542ca7513" have entirely different histories.
d39eda420e ... 5f0fada42d

2 changed files with 6 additions and 8 deletions
Show Stats Expand all files Collapse all files

6
BootTidal.hs → BootTidalVis.hs
View File

@ -8,9 +8,7 @@ hSetEncoding stdout utf8
-- Target and shape for pattern visualizing. -- Target and shape for pattern visualizing.
patternTarget = Target { oName = "Pattern handler", oAddress = "127.0.0.1", oPort = 5050, oBusPort = Nothing, oLatency = 0.02, oWindow = Nothing, oSchedule = Pre BundleStamp, oHandshake = False } patternTarget = Target { oName = "Pattern handler", oAddress = "127.0.0.1", oPort = 5050, oBusPort = Nothing, oLatency = 0.02, oWindow = Nothing, oSchedule = Pre BundleStamp, oHandshake = False }
edgeShape = OSC "/edge" $ Named {requiredArgs = ["w", "edge_type"]} patternShape = OSC "/trigger/something" $ Named {requiredArgs = []}
vertexShape = OSC "/vertex" $ Named {requiredArgs = ["vertex"]}
-- Target for playing music via SuperCollider. -- Target for playing music via SuperCollider.
musicTarget = superdirtTarget { oLatency = 0.1, oAddress = "127.0.0.1", oPort = 57120 } musicTarget = superdirtTarget { oLatency = 0.1, oAddress = "127.0.0.1", oPort = 57120 }
@ -18,7 +16,7 @@ musicTarget = superdirtTarget { oLatency = 0.1, oAddress = "127.0.0.1", oPort =
config = defaultConfig {cFrameTimespan = 1/20} config = defaultConfig {cFrameTimespan = 1/20}
-- Send pattern as OSC both to SuperCollider and to tidal-vis. -- Send pattern as OSC both to SuperCollider and to tidal-vis.
tidal <- startStream config [(musicTarget, [superdirtShape]), (patternTarget, [edgeShape, vertexShape])] tidal <- startStream config [(musicTarget, [superdirtShape]), (patternTarget, [patternShape])]
-- Send pattern as OSC to SuperCollider only. -- Send pattern as OSC to SuperCollider only.
-- tidal <- startTidal musicTarget config -- tidal <- startTidal musicTarget config