Add some lines for debugging stuff

dfs.tidal

@@ -6,10 +6,6 @@ import Data.Array
 
 import qualified Data.Array as A
 
-import Data.Tuple as T
-
-import Data.List
-
 tabulate :: Bounds -> [Vertex] -> Table Int
 tabulate bnds vs = A.array bnds (zip vs [1..])
 --
@@ -59,7 +55,7 @@ instrument g e
   | p forwardG = "superpwm"
   | p backG = "casio"
   | p crossG = "amencutup"
-  | otherwise = "rave" -- edge is (x,x)
+  | otherwise = "superpiano" -- edge is (x,x)
     where p f = e `elem` (f g)
 --
 -- complete graph
@@ -72,23 +68,37 @@ g1 = buildG (0,6) [(1,5),(1,2),(1,3),(2,4),(3,5),(4,2),(4,3),(5,1),(5,2),(5,6),(
 
 g2 = buildG (0,6) $ id <$> [(0,1),(1,2),(2,3),(3,4),(4,5),(5,6),(2,1)]
 
-preorderF $ dff g2
-
--- numbers ist nur für debug
-let edgePattern g e = (scale "major" $ pure $ snd e) # (s $ pure $ instrument g e)
+let edgePattern g e = (scale "ritusen" $ pure $ snd e) # (s $ pure $ instrument g e)
                                                      # gain 1
-    vertexPattern g v = (n $ pure $ toEnum v) # s "numbers"
-                                              # end 0.4
-                                              # gain 0.9
-    p g = (\(x,y) -> fastcat [vertexPattern g x, fastcat $ (edgePattern g) <$> y]) <$> (fromList $ nodeEdgePairs g)
-    p' = p g2
-in d1 $ fast 2
-      -- $ ghost
-      $ innerJoin p'
-      # size 0.8
-      # room 0.7
-      # lpf (randcat [1000, 1500, 2000])
+                                                     # end 0.2
+    vertexPattern g v = (n $ pure $ toEnum v) # s "juno" -- TODO use a tuned synth instead
+                                              # 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)
+    p' = p g
+    g = k 10
+in d1 $ id
+      $ qtrigger -- restart at the beginning of the preorder
+      $ fast 0.4 -- 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
 
 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)