diff --git a/dfs.tidal b/dfs.tidal index 9d921e1..788064a 100644 --- a/dfs.tidal +++ b/dfs.tidal @@ -77,21 +77,22 @@ let edgePattern g e = (n $ pure $ toEnum $ snd e) # (s $ pure $ instrument g e) # rate 0.1 # resonance 0.2 # 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) + # gain 0.8 + -- p g = (\(x,y) -> fastcat $ concat $ transpose [(vertexPattern g x):(replicate (length y - 1) (s "~")), (edgePattern g) <$> y]) <$> (nodeEdgePairs2 g 1) + p g = map (\(x,y) -> fastcat [vertexPattern g x, cat $ map (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 + $ fast 4.0 -- 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]) - # delay "[0|0.2|0.3|0.4|0.5|0.6|0.7|0.8|0.9|1]" - # delayfb 0.3 + -- # delay "[0|0.2|0.3|0.4|0.5|0.6|0.7|0.8|0.9|1]" + -- # delayfb 0.3 hush