dfs.tidal

@@ -81,6 +81,10 @@ p n = p' n 0
 -- path with offset to all nodes
 p' n o = buildG (1 + o, n + o) [(u,u + 1)|u <- [1+o..n-1+o]]
 
+-- TODO Tiefe
+-- TODO Wurzel betonen
+-- TODO Blätter betonen?
+
 g1 = buildG (0,6) [(1,5),(1,2),(1,3),(2,4),(3,6),(4,2),(4,3),(5,1),(5,2),(5,6),(6,0),(0,6)]
 
 g2 = buildG (0,6) $ id <$> [(0,1),(1,2),(2,3),(3,4),(4,5),(5,6),(2,1)]
@@ -113,3 +117,15 @@ in d1 $ id
 hush
 
 setcps (144/60/4)
+
+-- testing stuff
+
+d1 $ qtrigger $ fast 2 $ s "<numbers:1 clubkick:4 ~ rave:2 numbers:2 rave:4 ~ casio:2>" # 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 "<alphabet ~ ~ ~>", cat [s "sn", s "jvbass", s "superpiano:0" , s "clubkick"]])
+
+d1 $ fast 2 $ cat [s "<alphabet ~ ~ ~>", cat [s "sn", s "jvbass", s "superpiano:0" , s "clubkick"]]
+
+let g = k 2 in (\(x,y) -> (x, (instrument g) <$> y)) <$> (nodeEdgePairs $ g)