diff --git a/dfs.tidal b/dfs.tidal index b373a2e..e3e8544 100644 --- a/dfs.tidal +++ b/dfs.tidal @@ -70,17 +70,21 @@ g2 = buildG (0,6) $ id <$> [(0,1),(1,2),(2,3),(3,4),(4,5),(5,6),(2,1)] let edgePattern g e = (scale "ritusen" $ pure $ snd e) # (s $ pure $ instrument g e) # gain 1 - vertexPattern g v = (n $ pure $ toEnum v) # s "numbers" - # end 0.4 - # gain 0.9 - p g = (\(x,y) -> fastcat [vertexPattern g x, fastcat $ (edgePattern g) <$> y]) <$> (fromList $ nodeEdgePairs g) - p' = p g2 -in d1 $ fast 2 - -- $ ghost - $ innerJoin p' - # size 0.8 - # room 0.7 - # lpf (randcat [1000, 1500, 2000]) + # end 0.2 + vertexPattern g v = (n $ pure $ toEnum v) # s "juno" -- TODO use a tuned synth instead + # end 0.2 + # gain 1 + p g = (\(x,y) -> fastcat $ concat $ transpose [(vertexPattern g x):(replicate (length y - 1) (s "~")), (edgePattern g) <$> y]) <$> (nodeEdgePairs g) + p' = p g + g = k 10 +in d1 $ id + $ qtrigger -- restart at the beginning of the preorder + $ fast 0.4 -- depends on maximum degree + $ ghost + $ cat p' + # size "[0.8|0]" + # room "[0.7|0]" + # lpf "[1000|1500|2000]" # pan (randcat [-0.5,-0.3,-0.1,0,0.1,0.3,0.5]) hush