music-2010s/pigs-nose-ep
Archived
1
0
Fork 0
Code Pull Requests Activity

add channel map, msil convenience fn, regenerate megalet

Browse Source
This commit is contained in:
Aneurin Barker Snook
2016-04-24 18:44:45 +01:00
parent f98b76227d
commit 99097eef51
2 changed files with 110 additions and 86 deletions
Download Patch File Download Diff File Expand all files Collapse all files
pigs-nose.megalet.tidal
+14 -6
View File
@@ -1,9 +1,17 @@
{- -- megalet for pigs-nose.tidal
anny fm: pig's nose ep megalet let msil = mapM_ ($ silence)
see pigs-nose.tidal for full composition cf = slow 2
-} d'drum = d1
d'print = d2
let cf = slow 2 d'wobb = d2
d'qs = d3
d'jbass = d4
d'mons = d5
d'bass = d6
d'casio = d7
d'ql = d8
d'arm = d8
d'baa = d9
pn'hointro = s "[~ [~ ho] ~ ho ~ ~ ho ~]/2" pn'hointro = s "[~ [~ ho] ~ ho ~ ~ ho ~]/2"
pn'sn = s "[~ [~ sn:1] ~ sn:1 ~ ~ sn:1 ~]/2" pn'sn = s "[~ [~ sn:1] ~ sn:1 ~ ~ sn:1 ~]/2"
pn'bd = s "[bd [~ ~ ~ bd] bd*2 ~]/2" pn'bd = s "[bd [~ ~ ~ bd] bd*2 ~]/2"
pigs-nose.tidal
+96 -80
View File
@@ -14,9 +14,25 @@ soundcloud.com/anny-fm/sets/pigs-nose-ep
cps (117/60) cps (117/60)
-- multi-silence
let msil = mapM_ ($ silence)
-- shortfix for bps->cps -- shortfix for bps->cps
let cf = slow 2 let cf = slow 2
-- channel map
let d'drum = d1
d'print = d2
d'wobb = d2
d'qs = d3
d'jbass = d4
d'mons = d5
d'bass = d6
d'casio = d7
d'ql = d8
d'arm = d8
d'baa = d9
{- {-
[1] [1]
-} -}
@@ -33,128 +49,128 @@ let pn'hh = s "[hh*8 [hh*4 ho]]/2"
let pn'qs sl = slow sl . striate 4 $ s "qspace" let pn'qs sl = slow sl . striate 4 $ s "qspace"
-- off tempo intro -- off tempo intro
d2 $ cf $ slow 2.5 . striate 6 $ s "print" d'print $ cf $ slow 2.5 . striate 6 $ s "print"
d2 $ cf $ slow 2.5 . striate 6 $ s "print" d'print $ cf $ slow 2.5 . striate 6 $ s "print"
# vowel (slow 3 "a e i") # vowel (slow 3 "a e i")
d3 $ cf $ pn'qs 4 d'qs $ cf $ pn'qs 4
d3 $ cf $ pn'qs 2 d'qs $ cf $ pn'qs 2
d1 $ cf $ pn'hointro d'drum $ cf $ pn'hointro
d2 $ cf $ d'print $ cf $
jux (slow 1.1) $ jux (slow 1.1) $
slow 2.5 . striate 6 $ s "print" slow 2.5 . striate 6 $ s "print"
# vowel (slow 3 "a e i") # vowel (slow 3 "a e i")
d3 $ cf $ jux (iter 8) $ pn'qs 2 d'qs $ cf $ jux (iter 8) $ pn'qs 2
d1 $ cf $ pn'sn d'drum $ cf $ pn'sn
d3 $ cf $ jux (iter 8) $ pn'qs 2 d'qs $ cf $ jux (iter 8) $ pn'qs 2
# speed ((+0.7).(/2) <$> slow 3.2 triwave1) # speed ((+0.7).(/2) <$> slow 3.2 triwave1)
d2 $ cf $ d'print $ cf $
jux (slow 1.1) $ jux (slow 1.1) $
slow 2.5 . striate 6 $ s "{print, wobble}" slow 2.5 . striate 6 $ s "{print, wobble}"
# vowel (slow 3 "a e i") # vowel (slow 3 "a e i")
d1 $ cf $ overlay (slow 2 $ s "bd") $ pn'sn d'drum $ cf $ overlay (slow 2 $ s "bd") $ pn'sn
-- good qspace -- good qspace
d3 $ cf $ d'qs $ cf $
spread density [1,2] $ spread density [1,2] $
jux (iter 8) $ pn'qs 2 jux (iter 8) $ pn'qs 2
# speed ((+0.7).(/2) <$> slow 3.2 triwave1) # speed ((+0.7).(/2) <$> slow 3.2 triwave1)
-- drums r srs now -- drums r srs now
d1 $ cf $ overlay (pn'bd) $ pn'sn d'drum $ cf $ overlay (pn'bd) $ pn'sn
d2 $ cf $ d'print $ cf $
jux (slow 1.1) $ jux (slow 1.1) $
slow 2.5 . striate 6 $ s "wobble" slow 2.5 . striate 6 $ s "wobble"
-- pushy qspace -- pushy qspace
d3 $ cf $ d'qs $ cf $
spread density [1,1,2,0.5] $ spread density [1,1,2,0.5] $
jux (iter 8) $ pn'qs 2 jux (iter 8) $ pn'qs 2
# speed ((+0.7).(/2) <$> slow 3.2 triwave1) # speed ((+0.7).(/2) <$> slow 3.2 triwave1)
d1 $ cf $ d'drum $ cf $
every 3 rev $ every 3 rev $
overlay (pn'bd) $ pn'sn overlay (pn'bd) $ pn'sn
d1 $ cf $ d'drum $ cf $
jux (iter 4) . every 3 rev $ jux (iter 4) . every 3 rev $
overlay (pn'bd) $ pn'sn overlay (pn'bd) $ pn'sn
d1 $ cf $ d'drum $ cf $
every 8 (density 2) $ every 8 (density 2) $
jux (iter 4) . every 3 rev $ jux (iter 4) . every 3 rev $
overlay (pn'bd) $ pn'sn overlay (pn'bd) $ pn'sn
d1 $ cf $ d'drum $ cf $
jux (density 2 . iter 4) . every 3 rev $ jux (density 2 . iter 4) . every 3 rev $
overlay (pn'bd) $ pn'sn overlay (pn'bd) $ pn'sn
-- chiller qspace -- chiller qspace
d3 $ cf $ d'qs $ cf $
spread density [1,1,0.5,2] $ spread density [1,1,0.5,2] $
jux (iter 8) $ pn'qs 2 jux (iter 8) $ pn'qs 2
# speed ((+0.7).(/2) <$> slow 3.2 triwave1) # speed ((+0.7).(/2) <$> slow 3.2 triwave1)
d2 silence d'print silence
d1 $ cf $ overlay (pn'bd) $ pn'sn d'drum $ cf $ overlay (pn'bd) $ pn'sn
d1 $ cf $ d'drum $ cf $
overlay (pn'hh) $ overlay (pn'hh) $
overlay (pn'bd) $ pn'sn overlay (pn'bd) $ pn'sn
d1 $ cf $ d'drum $ cf $
overlay (pn'hh) $ overlay (pn'hh) $
every 3 rev $ every 3 rev $
overlay (pn'bd) $ pn'sn overlay (pn'bd) $ pn'sn
d4 $ slow 8 $ ((1%32) <~) $ s "jungbass jungbass:1" d'jbass $ slow 8 $ ((1%32) <~) $ s "jungbass jungbass:1"
# pan (slow 2 sinewave1) # pan (slow 2 sinewave1)
# speed "1.2" # speed "1.2"
d1 $ cf $ d'drum $ cf $
overlay (pn'hh) $ overlay (pn'hh) $
jux (iter 4) . every 3 rev $ jux (iter 4) . every 3 rev $
overlay (pn'bd) $ pn'sn overlay (pn'bd) $ pn'sn
-- start tailing off -- start tailing off
d8 $ slow 2 $ s "[qlatibro:1 qlatibro]*2" d'ql $ slow 2 $ s "[qlatibro:1 qlatibro]*2"
d1 $ cf $ d'drum $ cf $
overlay (pn'hh) $ overlay (pn'hh) $
jux (iter 4) . every 3 rev $ jux (iter 4) . every 3 rev $
overlay (pn'bd) $ pn'sn overlay (pn'bd) $ pn'sn
d3 silence d'qs silence
d5 $ cf $ d'mons $ cf $
slow 2 $ s "monsterb" slow 2 $ s "monsterb"
# gain "0.7" # gain "0.7"
# speed ((+0.6).(/2) <$> slow 4 sinewave1) # speed ((+0.6).(/2) <$> slow 4 sinewave1)
d5 $ cf $ d'mons $ cf $
striate 4 $ slow 2 $ s "monsterb" striate 4 $ slow 2 $ s "monsterb"
# gain "0.7" # gain "0.7"
# speed ((+0.6).(/2) <$> slow 4 sinewave1) # speed ((+0.6).(/2) <$> slow 4 sinewave1)
d1 $ cf $ d'drum $ cf $
overlay (pn'hh) $ overlay (pn'hh) $
every 8 (density 2) $ every 8 (density 2) $
jux (iter 4) . every 3 rev $ jux (iter 4) . every 3 rev $
overlay (pn'bd) $ pn'sn overlay (pn'bd) $ pn'sn
-- calm -- calm
mapM_ ($ silence) [d1,d4] msil [d'drum, d'jbass]
d5 silence d'mons silence
{- {-
[2] [2]
@@ -163,100 +179,100 @@ d5 silence
let pn'bass4 = s "bass*2 bass*2 bass*3 bass*3" let pn'bass4 = s "bass*2 bass*2 bass*3 bass*3"
let pn'bass5 = s "bass*2 bass*2 bass*3 bass*3 ~" let pn'bass5 = s "bass*2 bass*2 bass*3 bass*3 ~"
d8 $ slow (10%4) $ spread density [1,5%4] $ d'ql $ slow (10%4) $ spread density [1,5%4] $
s "[qlatibro:1 qlatibro]*2" s "[qlatibro:1 qlatibro]*2"
# vowel "e" # vowel "e"
-- yknow this is a pretty neat sample -- yknow this is a pretty neat sample
d7 $ cf $ s "casio*2 ~" d'casio $ cf $ s "casio*2 ~"
d1 $ cf $ pn'hh d'drum $ cf $ pn'hh
d5 $ cf $ d'mons $ cf $
striate 4 $ slow 2 $ s "monsterb" striate 4 $ slow 2 $ s "monsterb"
# gain "0.7" # gain "0.7"
# speed ((+0.6).(/2) <$> slow 4 sinewave1) # speed ((+0.6).(/2) <$> slow 4 sinewave1)
d5 $ cf $ d'mons $ cf $
spread density [1,2] $ spread density [1,2] $
striate 4 $ slow 2 $ s "monsterb" striate 4 $ slow 2 $ s "monsterb"
# gain "0.7" # gain "0.7"
# speed ((+0.6).(/2) <$> slow 4 sinewave1) # speed ((+0.6).(/2) <$> slow 4 sinewave1)
-- real bass at last -- real bass at last
d6 $ slow 4 $ pn'bass4 d'bass $ slow 4 $ pn'bass4
d1 $ cf $ overlay (pn'sn) $ pn'hh d'drum $ cf $ overlay (pn'sn) $ pn'hh
d6 $ cf $ slow 2 $ pn'bass4 d'bass $ cf $ slow 2 $ pn'bass4
# speed ((+1) <$> density 2.4 sinewave1) # speed ((+1) <$> density 2.4 sinewave1)
d1 $ cf $ overlay (pn'sn) $ overlay (pn'hh) $ d'drum $ cf $ overlay (pn'sn) $ overlay (pn'hh) $
s "bd*2" s "bd*2"
d3 $ cf $ d'qs $ cf $
spread density [1,2] $ spread density [1,2] $
jux (iter 8) $ pn'qs 2 jux (iter 8) $ pn'qs 2
# speed ((+0.7).(/2) <$> slow 3.2 triwave1) # speed ((+0.7).(/2) <$> slow 3.2 triwave1)
d6 $ slow 5 $ pn'bass5 d'bass $ slow 5 $ pn'bass5
# speed ((+1) <$> density 2.4 sinewave1) # speed ((+1) <$> density 2.4 sinewave1)
-- real kick drum at last! -- real kick drum at last!
d1 $ cf $ overlay (pn'sn) $ overlay (pn'hh) $ d'drum $ cf $ overlay (pn'sn) $ overlay (pn'hh) $
s "house*2" s "house*2"
d3 $ cf $ d'qs $ cf $
spread density [1,1,2,0.5] $ spread density [1,1,2,0.5] $
jux (iter 8) $ pn'qs 2 jux (iter 8) $ pn'qs 2
# speed ((+0.7).(/2) <$> slow 3.2 triwave1) # speed ((+0.7).(/2) <$> slow 3.2 triwave1)
-- quickly -- quickly
d1 silence d'drum silence
d1 $ cf $ overlay (pn'sn) $ overlay (pn'hh) $ d'drum $ cf $ overlay (pn'sn) $ overlay (pn'hh) $
s "house(3,8)" s "house(3,8)"
d3 $ cf $ d'qs $ cf $
spread density [1,1,0.5,2] $ spread density [1,1,0.5,2] $
jux (iter 8) $ pn'qs 2 jux (iter 8) $ pn'qs 2
# speed ((+0.7).(/2) <$> slow 3.2 triwave1) # speed ((+0.7).(/2) <$> slow 3.2 triwave1)
d4 $ slow 8 $ s "jungbass jungbass:1" d'jbass $ slow 8 $ s "jungbass jungbass:1"
# pan (slow 2 sinewave1) # pan (slow 2 sinewave1)
# speed "1.2" # speed "1.2"
d6 $ slow 5 $ pn'bass4 d'bass $ slow 5 $ pn'bass4
# speed ((+1) <$> density 2.4 sinewave1) # speed ((+1) <$> density 2.4 sinewave1)
mapM_ ($ silence) [d3,d5] msil [d'qs, d'mons]
-- mess with casio a bit then get rid. a transition -- mess with casio a bit then get rid. a transition
d7 $ cf $ d'casio $ cf $
spread density [1,4%3] $ s "casio*2 ~" spread density [1,4%3] $ s "casio*2 ~"
d1 $ cf $ overlay (pn'sn) $ overlay (pn'hh) $ d'drum $ cf $ overlay (pn'sn) $ overlay (pn'hh) $
every 4 (brak . density 2) $ s "house(3,8)" every 4 (brak . density 2) $ s "house(3,8)"
d7 $ cf $ d'casio $ cf $
jux (slow (4%3)) $ jux (slow (4%3)) $
spread density [1,4%3] $ s "casio*2 ~" spread density [1,4%3] $ s "casio*2 ~"
mapM_ ($ silence) [d7,d8] msil [d'casio, d'ql]
d5 $ cf $ d'mons $ cf $
spread density [1,2] $ spread density [1,2] $
striate 4 $ slow 2 $ s "monsterb" striate 4 $ slow 2 $ s "monsterb"
# gain "0.7" # gain "0.7"
# speed ((+0.6).(/2) <$> slow 4 sinewave1) # speed ((+0.6).(/2) <$> slow 4 sinewave1)
-- sometimes i regret putting a sheep in this song -- sometimes i regret putting a sheep in this song
d9 $ slow 6 $ s "baa" d'baa $ slow 6 $ s "baa"
# vowel "e" # vowel "e"
mapM_ ($ silence) [d2,d3,d4,d5,d9] msil [d'print, d'qs, d'jbass, d'mons, d'baa]
-- nice -- nice
solo $ d1 $ cf $ solo $ d'drum $ cf $
overlay pn'hh $ overlay pn'hh $
jux (iter 4 . rev) $ pn'sn jux (iter 4 . rev) $ pn'sn
@@ -265,88 +281,88 @@ solo $ d1 $ cf $
-} -}
-- drum intro -- drum intro
d1 $ cf $ d'drum $ cf $
density (8%3) $ s "sn:0 hh hh" density (8%3) $ s "sn:0 hh hh"
d1 $ cf $ d'drum $ cf $
overlay (s "house*2") $ overlay (s "house*2") $
density (8%3) $ s "sn:0 hh hh" density (8%3) $ s "sn:0 hh hh"
d1 $ cf $ d'drum $ cf $
overlay (s "house*2") $ overlay (s "house*2") $
every 4 (density 2 . brak) $ every 4 (density 2 . brak) $
density (8%3) $ s "sn:0 hh hh" density (8%3) $ s "sn:0 hh hh"
d1 $ cf $ d'drum $ cf $
overlay (s "house*2") $ overlay (s "house*2") $
every 4 (density 2 . brak) $ every 4 (density 2 . brak) $
density (8%3) $ s "sn:0 hh rm" density (8%3) $ s "sn:0 hh rm"
-- weird low -- weird low
d8 $ cf $ d'arm $ cf $
slow 4 $ s "armora" slow 4 $ s "armora"
d8 $ cf $ d'arm $ cf $
every 8 (# speed "2") $ every 8 (# speed "2") $
slow 4 $ s "armora" slow 4 $ s "armora"
d8 $ cf $ d'arm $ cf $
every 2 (density 3) $ every 2 (density 3) $
every 8 (# speed "2") $ every 8 (# speed "2") $
slow 4 $ s "armora" slow 4 $ s "armora"
d8 $ cf $ d'arm $ cf $
every 2 (density 3) $ every 2 (density 3) $
every 8 (# speed "2") $ every 8 (# speed "2") $
slow 4 $ s "armora" slow 4 $ s "armora"
# shape ((/1.5) <$> slow 4 sinewave1) # shape ((/1.5) <$> slow 4 sinewave1)
-- bring monster back -- bring monster back
d5 $ cf $ d'mons $ cf $
striate 4 $ slow 2 $ s "monsterb" striate 4 $ slow 2 $ s "monsterb"
# gain "0.7" # gain "0.7"
# speed ((+0.6).(/2) <$> slow 4 sinewave1) # speed ((+0.6).(/2) <$> slow 4 sinewave1)
-- and qspace -- and qspace
d3 $ cf $ pn'qs 2 d'qs $ cf $ pn'qs 2
d3 $ cf $ jux (iter 8) $ pn'qs 2 d'qs $ cf $ jux (iter 8) $ pn'qs 2
d3 $ cf $ d'qs $ cf $
jux (iter 8) $ pn'qs 2 jux (iter 8) $ pn'qs 2
# speed ((+0.7).(/2) <$> slow 3.2 triwave1) # speed ((+0.7).(/2) <$> slow 3.2 triwave1)
d3 $ cf $ d'qs $ cf $
spread density [1,2] $ spread density [1,2] $
jux (iter 8) $ pn'qs 2 jux (iter 8) $ pn'qs 2
# speed ((+0.7).(/2) <$> slow 3.2 triwave1) # speed ((+0.7).(/2) <$> slow 3.2 triwave1)
d1 $ cf $ d'drum $ cf $
overlay (s "house*2") $ overlay (s "house*2") $
every 4 (density 2 . brak) $ every 4 (density 2 . brak) $
density (8%3) $ (s "sn:0 hh rm" # n "[0 1]/5") density (8%3) $ (s "sn:0 hh rm" # n "[0 1]/5")
-- bring back 5/4 bass -- bring back 5/4 bass
d6 $ slow 5 $ pn'bass5 d'bass $ slow 5 $ pn'bass5
# speed ((+1) <$> density 2.4 sinewave1) # speed ((+1) <$> density 2.4 sinewave1)
d1 $ cf $ d'drum $ cf $
overlay (every 4 (density 3) $ s "house*2") $ overlay (every 4 (density 3) $ s "house*2") $
every 4 (density 2 . brak) $ every 4 (density 2 . brak) $
density (8%3) $ (s "sn:0 hh rm" # n "[0 1]/5") density (8%3) $ (s "sn:0 hh rm" # n "[0 1]/5")
d4 $ slow 8 $ s "jungbass jungbass:1" d'jbass $ slow 8 $ s "jungbass jungbass:1"
# pan (slow 2 sinewave1) # pan (slow 2 sinewave1)
# speed "1.2" # speed "1.2"
-- gradually 1.1->1.5 -- gradually 1.1->1.5
cps ((117*1.5)/60) cps ((117*1.5)/60)
d2 $ cf $ d'wobb $ cf $
jux (slow 1.1) $ jux (slow 1.1) $
slow 2.5 . striate 6 $ s "wobble" slow 2.5 . striate 6 $ s "wobble"
-- still don't know why i put a fuckin sheep in here -- still don't know why i put a fuckin sheep in here
d9 $ slow 6 $ s "baa" d'baa $ slow 6 $ s "baa"
# vowel "e" # vowel "e"
-- all at once -- all at once