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)