diff --git a/dfs.tidal b/dfs.tidal index dada4ef..0f5ca97 100644 --- a/dfs.tidal +++ b/dfs.tidal @@ -113,15 +113,3 @@ in d1 $ id hush setcps (144/60/4) - --- testing stuff - -d1 $ qtrigger $ fast 2 $ s "" # end 0.2 - -d1 $ timeCat [(1,s "alphabet*4"), (4, fastcat [s "sn", s "bd", s "sn" , s "bd"])] - -d1 $ fast 4 $ innerJoin $ fromList $ replicate 5 (cat [s "", cat [s "sn", s "jvbass", s "superpiano:0" , s "clubkick"]]) - -d1 $ fast 2 $ cat [s "", cat [s "sn", s "jvbass", s "superpiano:0" , s "clubkick"]] - -let g = k 2 in (\(x,y) -> (x, (instrument g) <$> y)) <$> (nodeEdgePairs $ g)