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

change effects

master
loooph 2023-02-22 16:33:26 +01:00
parent bee0594c67
commit 7b3dffc6ad
1 changed files with 6 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

11
dfs.tidal
View File

@ -77,21 +77,22 @@ let edgePattern g e = (n $ pure $ toEnum $ snd e) # (s $ pure $ instrument g e)
# 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)
# gain 0.8
-- p g = (\(x,y) -> fastcat $ concat $ transpose [(vertexPattern g x):(replicate (length y - 1) (s "~")), (edgePattern g) <$> y]) <$> (nodeEdgePairs2 g 1)
p g = map (\(x,y) -> fastcat [vertexPattern g x, cat $ map (edgePattern g) y]) $ nodeEdgePairs g
p' = p g
g = k 10
in d1 $ id
$ qtrigger -- restart at the beginning of the preorder
$ fast 0.4 -- depends on maximum degree
$ fast 4.0 -- depends on maximum degree
$ ghost
$ cat p'
# size "[0.8|0]"
# room "[0.7|0]"
# lpf "[1000|1500|2000]"
# pan (randcat [-0.5,-0.3,-0.1,0,0.1,0.3,0.5])
# delay "[0|0.2|0.3|0.4|0.5|0.6|0.7|0.8|0.9|1]"
# delayfb 0.3
-- # delay "[0|0.2|0.3|0.4|0.5|0.6|0.7|0.8|0.9|1]"
-- # delayfb 0.3
hush