loooph
/
cm-dfs
1
0
Fork 0
Code Issues Pull Requests Projects Releases Wiki Activity

remove delay for now

master
loooph 2023-02-22 16:32:12 +01:00
parent bd03db3174
commit c3f796bc60
1 changed files with 3 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
dfs.tidal
View File

@ -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