Change cat to avoid some samples not being played

dfs.tidal

@@ -70,17 +70,21 @@ 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)
                                                      # 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])
 
 hush