From 436a0cb7052fe1e632e9496f4b415896a3429a59 Mon Sep 17 00:00:00 2001
From: loooph <loooph@gmx.de>
Date: Wed, 22 Feb 2023 05:26:15 +0100
Subject: [PATCH] Add some lines for debugging stuff

---
 dfs.tidal | 11 +++++++++++
 1 file changed, 11 insertions(+)

diff --git a/dfs.tidal b/dfs.tidal
index 59072d0..68662d4 100644
--- a/dfs.tidal
+++ b/dfs.tidal
@@ -91,3 +91,14 @@ in d1 $ id
 
 hush
 
+-- 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)