remove testing stuff

dfs.tidal

@@ -81,10 +81,6 @@ 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)]
@@ -117,15 +113,3 @@ 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)