From c3f796bc6066d3fccd828fffdeaca71c7bcc5787 Mon Sep 17 00:00:00 2001 From: loooph Date: Wed, 22 Feb 2023 16:32:12 +0100 Subject: [PATCH] remove delay for now --- dfs.tidal | 4 +++- 1 file changed, 3 insertions(+), 1 deletion(-) diff --git a/dfs.tidal b/dfs.tidal index 7d7df63..a5085a3 100644 --- a/dfs.tidal +++ b/dfs.tidal @@ -69,7 +69,9 @@ g1 = buildG (0,6) [(1,5),(1,2),(1,3),(2,4),(3,6),(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) +t1 = buildG (1,15) [(1,4),(1,12),(4,2),(4,6),(2,8),(2,3),(6,5),(6,7),(12,10),(12,14),(10,9),(10,11),(14,13),(14,15)] + +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