diff --git a/battery123.megalet.tidal b/battery123.megalet.tidal index 39512ca..db1040e 100644 --- a/battery123.megalet.tidal +++ b/battery123.megalet.tidal @@ -1,11 +1,6 @@ -{- -anny fm: battery 1,2,3 megalet -see battery123.tidal for full composition --} - -cps (125/60) - -let cf = slow 2 +-- megalet for battery123.tidal +let msil = mapM_ ($ silence) + cf = slow 2 every' n o f = when ((== (o-1)) . (`mod` n)) f halfosc = (/2).(+0.5) halfosc1 = (+1).(/2) @@ -13,15 +8,15 @@ let cf = slow 2 d'drum = d1 d'perc = d2 d'bass = d3 - d'mosq = d4 - d'tac = d9 -- tacscan - d'warb = d6 -- warbler + d'hand = d4 + d'warb = d5 -- warbler + d'bass2 = d6 -- more bass right at the end d'arpy = d7 d'tr = d8 -- trump - d'bass2 = d5 -- more bass right at the end + d'tac = d9 -- tacscan b1'bass = s "bass3 [~ bass3] ! ~" # begin "0.2" - b1'mosq = slow 8 $ rev . striate 256 $ s "hand*8" + b1'hand = slow 8 $ rev . striate 256 $ s "hand*8" # speed "0.7" b1'perc = slow 2 $ s "uxay [~ uxay] [psr uxay] ~" b1'tac = s "[~ tacscan] ! ~ ~" diff --git a/battery123.tidal b/battery123.tidal index 221d764..6f99158 100644 --- a/battery123.tidal +++ b/battery123.tidal @@ -13,13 +13,16 @@ soundcloud.com/anny-fm/battery-123-live cps (125/60) +-- multi-silence +let msil = mapM_ ($ silence) + -- shortfix for bps->cps let cf = slow 2 -- alternative every let every' n o f = when ((== (o-1)) . (`mod` n)) f --- oscillations +-- osc patterns let halfosc = (/2).(+0.5) halfosc1 = (+1).(/2) thirdosc1 = (+1).(/3) @@ -28,12 +31,12 @@ let halfosc = (/2).(+0.5) let d'drum = d1 d'perc = d2 d'bass = d3 - d'mosq = d4 - d'tac = d9 -- tacscan - d'warb = d6 -- warbler + d'hand = d4 + d'warb = d5 -- warbler + d'bass2 = d6 -- more bass right at the end d'arpy = d7 d'tr = d8 -- trump - d'bass2 = d5 -- more bass right at the end + d'tac = d9 -- tacscan {- [1] @@ -42,7 +45,7 @@ let d'drum = d1 let b1'bass = s "bass3 [~ bass3] ! ~" # begin "0.2" -let b1'mosq = slow 8 $ rev . striate 256 $ s "hand*8" +let b1'hand = slow 8 $ rev . striate 256 $ s "hand*8" # speed "0.7" let b1'perc = slow 2 $ s "uxay [~ uxay] [psr uxay] ~" @@ -65,16 +68,15 @@ d'bass $ slow 4 $ b1'bass # n "0 1 0 0" # speed (thirdosc1 <$> slow 8 sinewave1) --- reversed snare, but so named cause someone told me it sounded like a mosquito -d'mosq $ b1'mosq +d'hand $ b1'hand -d'mosq $ b1'mosq +d'hand $ b1'hand # shape ((/2) <$> slow (10%4) sinewave1) -- nice drum d'perc $ cf $ b1'perc -d'mosq $ b1'mosq +d'hand $ b1'hand # shape ((/2) <$> slow (10%4) sinewave1) # pan (halfosc <$> slow (8%3) sinewave1) @@ -132,7 +134,7 @@ d'drum $ overlay (s "peri") $ cf $ d'drum $ overlay (s "peri") $ cf $ every 2 (density 3) $ s "~ psr:1" -mapM_ ($ silence) [d'bass, d'tac] +msil [d'bass, d'tac] -- drum + perc are real nice at this point d'drum $ overlay (s "peri") $ cf $ @@ -144,7 +146,7 @@ d'perc $ cf $ jux (0.25 <~) $ b1'perc # n (density 3 $ run 2) -d'mosq silence +d'hand silence d'drum $ cf $ every' 8 8 (density 1.5) $ every 2 (density 3) $ s "~ psr:1" @@ -236,7 +238,7 @@ d'bass $ b2'bass d'arpy $ cf $ b2'arpy -mapM_ ($ silence) [d'perc, d'bass] +msil [d'perc, d'bass] d'arpy $ cf $ iter 9 $ b2'arpy @@ -256,7 +258,7 @@ d'perc $ brak . iter 4 $ d'drum $ overlay (s "peri") $ cf $ every 3 (0.125 <~) $ b2'psrf -mapM_ ($ silence) [d'drum, d'perc] +msil [d'drum, d'perc] {- [3] @@ -311,14 +313,14 @@ d'bass $ cf $ d'tac $ cf . whenmod 7 4 (density 1.5) $ b1'tac -d'mosq $ b1'mosq +d'hand $ b1'hand # shape ((/2) <$> slow (10%4) sinewave1) # pan (halfosc <$> slow (8%3) sinewave1) d'arpy $ cf $ iter 9 $ b2'arpy -- quickly -mapM_ ($ silence) [d'bass, d'mosq] +msil [d'bass, d'hand] d'drum $ cf $ overlay (b3'drum) $ @@ -330,7 +332,7 @@ d'drum $ cf $ overlay (b3'drumf) $ (b3'perc # n (slow 3 $ run 4)) -d'mosq $ b1'mosq +d'hand $ b1'hand # shape ((/2) <$> slow (10%4) sinewave1) # pan (halfosc <$> slow (8%3) sinewave1) @@ -355,7 +357,7 @@ d'bass $ cf $ iter 4 $ b3'bassf -mapM_ ($ silence) [d'perc, d'tac] +msil [d'perc, d'tac] -- drum solo-ish for a bit d'drum $ cf $ @@ -384,7 +386,7 @@ d'drum $ cf $ iter 2 $ (b3'perc # n (slow 3 $ run 4)) -mapM_ ($ silence) [d'bass, d'arpy] +msil [d'bass, d'arpy] -- remove kick d'drum $ cf $ @@ -392,7 +394,7 @@ d'drum $ cf $ iter 2 $ (b3'perc # n (slow 3 $ run 4)) -d'mosq silence +d'hand silence d'perc $ cf $ slow 2 . spread slow [2,4,2,3] $ @@ -423,11 +425,11 @@ d'bass2 $ slow 4 $ b1'bass d'arpy $ cf $ iter 9 $ b2'arpy d'warb $ b1'warbler -d'mosq $ b1'mosq +d'hand $ b1'hand # shape ((/2) <$> slow (10%4) sinewave1) # pan (halfosc <$> slow (8%3) sinewave1) -mapM_ ($ silence) [d'perc, d'bass, d'tac, d'bass2, d'mosq] +msil [d'perc, d'bass, d'tac, d'bass2, d'hand] d'drum silence d'arpy silence