Use stack to play multiple graphs at once

dfs.tidal

@@ -84,15 +84,15 @@ let edgePattern g e = (n $ pure $ toEnum $ (snd e) `mod` 31) # (s $ pure $ instr
 					      # resonance 0.2
                                               # end 0.2
 					      # gain 0.8
-    -- p g = (\(x,y) -> fastcat $ concat $ transpose [(vertexPattern g x):(replicate (length y - 1) (s "~")), (edgePattern g) <$> y]) <$> (nodeEdgePairs2 g 1)
-    p g = map (\(x,y) -> fastcat [vertexPattern g x, cat $ map (edgePattern g) y]) $ nodeEdgePairs g
-    p' = p g
-    g = k 10
+    patternize g = map (\(x,y) -> fastcat [vertexPattern g x, cat $ map (edgePattern g) y]) $ nodeEdgePairs g
+    gs = [ k 30
+         , p 2
+         ]
 in d1 $ id
       $ qtrigger -- restart at the beginning of the preorder
       $ fast 4.0 -- depends on maximum degree
       $ ghost
-      $ cat p'
+      $ (stack $ map cat $ map patternize gs)
       # size "[0.8|0]"
       # room "[0.7|0]"
       # lpf "[1000|1500|2000]"