pls no

BootTidal.hs

@@ -8,7 +8,9 @@ hSetEncoding stdout utf8
 
 -- 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 }
-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.
 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}
 
 -- 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.
 -- tidal <- startTidal musicTarget config