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

fix ident

master
loooph 2023-02-28 22:49:47 +01:00
parent 9e5fb39c6a
commit a878a8b268
1 changed files with 4 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
dfs.tidal
View File

@ -80,10 +80,10 @@ nubbeKG = buildG (0,89) [(0,1),(0,2),(0,3),(0,4),(0,5),(0,6),(0,52),(0,53),(0,54
let edgePattern g e = (n $ pure $ toEnum $ (snd e) `mod` 31) # (s $ pure $ instrument g e)
# gain 1
vertexPattern g v = (scale "ritusen" $ pure $ toEnum $ (v `mod` 31) - 10) # s "supersquare"
# rate 0.1
# resonance 0.2
# end 0.2
# gain 0.8
# rate 0.1
# resonance 0.2
# end 0.2
# gain 0.8
patternize g = map (\(x,y) -> fastcat [vertexPattern g x, cat $ map (edgePattern g) y]) $ nodeEdgePairs g
gs = [ k 30
, p 2