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

pls no

master
loooph 2023-03-01 00:04:29 +01:00
parent 3e5281096b
commit d39eda420e
1 changed files with 4 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
BootTidalVis.hs → BootTidal.hs
View File

@ -8,7 +8,9 @@ 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 }
patternShape = OSC "/trigger/something" $ Named {requiredArgs = []} edgeShape = OSC "/edge" $ Named {requiredArgs = ["w", "edge_type"]}
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 }
@ -16,7 +18,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, [patternShape])] tidal <- startStream config [(musicTarget, [superdirtShape]), (patternTarget, [edgeShape, vertexShape])]
-- Send pattern as OSC to SuperCollider only. -- Send pattern as OSC to SuperCollider only.
-- tidal <- startTidal musicTarget config -- tidal <- startTidal musicTarget config