dfs.tidal

@@ -6,6 +6,10 @@ 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..])
 --
@@ -55,7 +59,7 @@ instrument g e
   | p forwardG = "superpwm"
   | p backG = "casio"
   | p crossG = "amencutup"
-  | otherwise = "superpiano" -- edge is (x,x)
+  | otherwise = "rave" -- edge is (x,x)
     where p f = e `elem` (f g)
 --
 -- complete graph
@@ -68,37 +72,23 @@ 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)]
 
-let edgePattern g e = (scale "ritusen" $ pure $ snd e) # (s $ pure $ instrument g e)
+preorderF $ dff g2
+
+-- numbers ist nur für debug
+let edgePattern g e = (scale "major" $ pure $ snd e) # (s $ pure $ instrument g e)
                                                      # gain 1
-                                                     # 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]"
+    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])
       # 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)