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

remove testing stuff

master
Istvan J. Mocsy 2023-03-01 12:34:07 +01:00
parent d0a890b85e
commit 5696cc9e65
1 changed files with 0 additions and 12 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

12
dfs.tidal
View File

@ -113,15 +113,3 @@ in d1 $ id
hush
setcps (144/60/4)
-- testing stuff
d1 $ qtrigger $ fast 2 $ s "<numbers:1 clubkick:4 ~ rave:2 numbers:2 rave:4 ~ casio:2>" # end 0.2
d1 $ timeCat [(1,s "alphabet*4"), (4, fastcat [s "sn", s "bd", s "sn" , s "bd"])]
d1 $ fast 4 $ innerJoin $ fromList $ replicate 5 (cat [s "<alphabet ~ ~ ~>", cat [s "sn", s "jvbass", s "superpiano:0" , s "clubkick"]])
d1 $ fast 2 $ cat [s "<alphabet ~ ~ ~>", cat [s "sn", s "jvbass", s "superpiano:0" , s "clubkick"]]
let g = k 2 in (\(x,y) -> (x, (instrument g) <$> y)) <$> (nodeEdgePairs $ g)