BootTidalVis.hs

@@ -8,9 +8,7 @@ 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 }
-edgeShape = OSC "/edge" $ Named {requiredArgs = ["w", "edge_type"]}
-
-vertexShape = OSC "/vertex" $ Named {requiredArgs = ["vertex"]}
+patternShape = OSC "/trigger/something" $ Named {requiredArgs = []}
 
 -- Target for playing music via SuperCollider.
 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}
 
 -- 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.
 -- tidal <- startTidal musicTarget config

dfs.tidal

@@ -82,10 +82,10 @@ nubbeKG = buildG (0,89) [(0,1),(0,2),(0,3),(0,4),(0,5),(0,6),(0,52),(0,53),(0,54
 let edgePattern g e = (n $ pure $ toEnum $ (snd e) `mod` 31) # (s $ pure $ instrument g e)
                                                      # gain 1
     vertexPattern g v = (scale "ritusen" $ pure $ toEnum $ (v `mod` 31) - 10) # s "supersquare"
-                                                                              # rate 0.1
-                                                                              # resonance 0.2
-                                                                              # end 0.2
-                                                                              # gain 0.8
+					      # rate 0.1
+					      # resonance 0.2
+                                              # end 0.2
+					      # gain 0.8
     patternize g = map (\(x,y) -> fastcat [vertexPattern g x, cat $ map (edgePattern g) y]) $ nodeEdgePairs g
     gs = [ k 30
          , p 2