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

replace sample by synth

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

5
dfs.tidal
View File

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