From bee0594c679bd73fdab8ef75a6e9b3036abcbcb9 Mon Sep 17 00:00:00 2001
From: loooph <loooph@gmx.de>
Date: Wed, 22 Feb 2023 16:33:11 +0100
Subject: [PATCH] replace sample by synth

---
 dfs.tidal | 5 +++--
 1 file changed, 3 insertions(+), 2 deletions(-)

diff --git a/dfs.tidal b/dfs.tidal
index a5085a3..9d921e1 100644
--- a/dfs.tidal
+++ b/dfs.tidal
@@ -73,8 +73,9 @@ t1 = buildG (1,15) [(1,4),(1,12),(4,2),(4,6),(2,8),(2,3),(6,5),(6,7),(12,10),(12
 
 let edgePattern g e = (n $ pure $ toEnum $ 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
+    vertexPattern g v = (scale "ritusen" $ pure $ toEnum (v-10)) # s "supersquare"
+					      # 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)