Archived
update mosq->hand, add msil convenience fn, regen megalet
This commit is contained in:
Aneurin Barker Snook
@@ -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] ! ~ ~"
|
||||
|
||||
+24
-22
@@ -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
|
||||
|
||||
|
||||
Reference in New Issue
Block a user