music-2010s/battery-123
Archived
1
0
Fork 0
Code Pull Requests Activity

superdirt compat fixes, some more comments

Browse Source
This commit is contained in:
Aneurin Barker Snook
2017-01-29 13:33:05 +00:00
parent 83f6aeb573
commit dfd93a1d87
1 changed files with 14 additions and 11 deletions
Download Patch File Download Diff File Expand all files Collapse all files
battery123.tidal
+14 -11
View File
@@ -59,6 +59,7 @@ let b1'warbler = slow 4 $ striate 32 $ s "warbler"
# gain "0.8" # gain "0.8"
-- go -- go
hush
d'bass $ slow 4 $ b1'bass d'bass $ slow 4 $ b1'bass
d'bass $ slow 4 $ b1'bass d'bass $ slow 4 $ b1'bass
@@ -96,29 +97,29 @@ d'bass $ cf $
# speed (halfosc1 <$> slow 8 sinewave1) # speed (halfosc1 <$> slow 8 sinewave1)
# gain "0.9" # gain "0.9"
d'drum $ cf $ s "~ psr:1" d'drum $ cf $ sound "~ psr:1"
d'drum $ cf $ d'drum $ cf $
overlay (s "~ psr:1") $ overlay (sound "~ psr:1") $
slow 2 $ s "peri [~ peri] ! ~" slow 2 $ s "peri [~ peri] ! ~"
d'drum $ cf $ s "~ psr:1" d'drum $ cf $ sound "~ psr:1"
-- good drum -- good drum
d'drum $ cf $ d'drum $ cf $
overlay (s "~ psr:1") $ overlay (sound "~ psr:1") $
every 4 (density 1.5) $ slow 2 $ s "peri [~ peri] ! ~" every 4 (density 1.5) $ slow 2 $ s "peri [~ peri] ! ~"
d'drum $ cf $ s "~ psr:1" d'drum $ cf $ sound "~ psr:1"
-- bring a funk -- bring a funk
d'tac $ cf $ b1'tac d'tac $ cf $ b1'tac
d'tac $ cf . whenmod 7 4 (density 1.5) $ b1'tac d'tac $ cf . whenmod 7 4 (density 1.5) $ b1'tac
d'drum $ overlay (s "peri") $ cf $ d'drum $ overlay (s "peri") $ cf $
s "~ psr:1" sound "~ psr:1"
d'drum $ cf $ s "~ psr:1" d'drum $ cf $ sound "~ psr:1"
-- birdsong. don't play it for too long. gets annoying -- birdsong. don't play it for too long. gets annoying
d'warb $ b1'warbler d'warb $ b1'warbler
@@ -129,17 +130,17 @@ d'perc $ cf $
# n (density 3 $ run 2) # n (density 3 $ run 2)
d'drum $ overlay (s "peri") $ cf $ d'drum $ overlay (s "peri") $ cf $
s "~ psr:1" sound "~ psr:1"
d'drum $ overlay (s "peri") $ cf $ d'drum $ overlay (s "peri") $ cf $
every 2 (density 3) $ s "~ psr:1" every 2 (density 3) $ sound "~ psr:1"
msil [d'bass, d'tac] msil [d'bass, d'tac]
-- drum + perc are real nice at this point -- drum + perc are real nice at this point
d'drum $ overlay (s "peri") $ cf $ d'drum $ overlay (s "peri") $ cf $
every' 8 8 (density 1.5) $ every' 8 8 (density 1.5) $
every 2 (density 3) $ s "~ psr:1" every 2 (density 3) $ sound "~ psr:1"
d'perc $ cf $ d'perc $ cf $
slow 2 . spread slow [2,4,2,3] $ slow 2 . spread slow [2,4,2,3] $
@@ -223,6 +224,7 @@ d'drum $ overlay (s "peri") $
d'perc $ b2'ux2 True d'perc $ b2'ux2 True
-- optional, maybe not so great
d'tr $ cf $ b2'trump "trump*8" d'tr $ cf $ b2'trump "trump*8"
# speed (halfosc1 <$> slow 4 sinewave1) # speed (halfosc1 <$> slow 4 sinewave1)
@@ -257,7 +259,7 @@ msil [d'drum, d'perc]
[3] [3]
-} -}
let b3'perc = s "[tok*2 [rm tok]] [psr:1 tok*2]" let b3'perc = sound "[tok*2 [rm tok]] [psr:1 tok*2]"
let b3'bass = s "bass*4" let b3'bass = s "bass*4"
# n "0 1" # n "0 1"
@@ -396,6 +398,7 @@ d'drum $ cf $
overlay (b3'drumf) $ overlay (b3'drumf) $
(b3'perc # n (slow 3 $ run 4)) (b3'perc # n (slow 3 $ run 4))
-- optional
d'perc $ b2'ux2 True d'perc $ b2'ux2 True
# gain "0.8" # gain "0.8"
# speed "[0.7 1 1.2]/2" # speed "[0.7 1 1.2]/2"