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

change to change to ritusen scale ¯\_(ツ)_/¯

master
loooph 2023-02-22 05:23:08 +01:00
parent 6279d2be87
commit 97b006f373
1 changed files with 1 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
dfs.tidal
View File

@ -68,10 +68,7 @@ g1 = buildG (0,6) [(1,5),(1,2),(1,3),(2,4),(3,5),(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)]
preorderF $ dff g2
-- numbers ist nur für debug
let edgePattern g e = (scale "major" $ pure $ snd e) # (s $ pure $ instrument g e)
let edgePattern g e = (scale "ritusen" $ pure $ snd e) # (s $ pure $ instrument g e)
# gain 1
vertexPattern g v = (n $ pure $ toEnum v) # s "numbers"
# end 0.4