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

add type for patternize

master
loooph 2023-03-01 04:24:13 +01:00
parent 43d12171d0
commit fb92e20524
1 changed files with 1 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

1
dfs.tidal
View File

@ -99,6 +99,7 @@ let edgePattern g e = (n $ pure $ toEnum $ (snd e) `mod` 31) # (s $ pure $ instr
# resonance 0.2 # resonance 0.2
# end 0.2 # end 0.2
# gain 0.8 # gain 0.8
patternize :: Graph -> [[Pattern ValueMap]]
patternize g = map (map (\(x,y) -> fastcat [x,y])) $ map (\(x,y) -> zip (repeat $ vertexPattern g x) (map (edgePattern g) y)) $ nodeEdgePairs g patternize g = map (map (\(x,y) -> fastcat [x,y])) $ map (\(x,y) -> zip (repeat $ vertexPattern g x) (map (edgePattern g) y)) $ nodeEdgePairs g
gs = [ k 30, buildG (32,33) [(32,33)] ] gs = [ k 30, buildG (32,33) [(32,33)] ]
in d1 $ id in d1 $ id