From 7b3dffc6ad6c88382eefb8a6f89248fb05dad196 Mon Sep 17 00:00:00 2001
From: loooph <loooph@gmx.de>
Date: Wed, 22 Feb 2023 16:33:26 +0100
Subject: [PATCH] change effects

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

diff --git a/dfs.tidal b/dfs.tidal
index 9d921e1..788064a 100644
--- a/dfs.tidal
+++ b/dfs.tidal
@@ -77,21 +77,22 @@ let edgePattern g e = (n $ pure $ toEnum $ snd e) # (s $ pure $ instrument g e)
 					      # rate 0.1
 					      # resonance 0.2
                                               # 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)
+					      # 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
 in d1 $ id
       $ qtrigger -- restart at the beginning of the preorder
-      $ fast 0.4 -- depends on maximum degree
+      $ fast 4.0 -- 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
+      -- # delay "[0|0.2|0.3|0.4|0.5|0.6|0.7|0.8|0.9|1]"
+      -- # delayfb 0.3
 
 hush