From 99097eef518e2412eb89266690948e9b95ef43f2 Mon Sep 17 00:00:00 2001
From: Aneurin Barker Snook <a@aneur.in>
Date: Sun, 24 Apr 2016 18:44:45 +0100
Subject: [PATCH] add channel map, msil convenience fn, regenerate megalet

---
 pigs-nose.megalet.tidal |  20 +++--
 pigs-nose.tidal         | 176 ++++++++++++++++++++++------------------
 2 files changed, 110 insertions(+), 86 deletions(-)

diff --git a/pigs-nose.megalet.tidal b/pigs-nose.megalet.tidal
index 7242d9a..6d952e4 100644
--- a/pigs-nose.megalet.tidal
+++ b/pigs-nose.megalet.tidal
@@ -1,9 +1,17 @@
-{-
-anny fm: pig's nose ep megalet
-see pigs-nose.tidal for full composition
--}
-
-let cf = slow 2
+-- megalet for pigs-nose.tidal
+let msil = mapM_ ($ silence)
+    cf = slow 2
+    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
     pn'hointro = s "[~ [~ ho] ~ ho ~ ~ ho ~]/2"
     pn'sn = s "[~ [~ sn:1] ~ sn:1 ~ ~ sn:1 ~]/2"
     pn'bd = s "[bd [~ ~ ~ bd] bd*2 ~]/2"
diff --git a/pigs-nose.tidal b/pigs-nose.tidal
index 0c813e1..a1f157a 100644
--- a/pigs-nose.tidal
+++ b/pigs-nose.tidal
@@ -14,9 +14,25 @@ soundcloud.com/anny-fm/sets/pigs-nose-ep
 
 cps (117/60)
 
+-- multi-silence
+let msil = mapM_ ($ silence)
+
 -- shortfix for bps->cps
 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]
 -}
@@ -33,128 +49,128 @@ let pn'hh = s "[hh*8 [hh*4 ho]]/2"
 let pn'qs sl = slow sl . striate 4 $ s "qspace"
 
 -- 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")
 
-d3 $ cf $ pn'qs 4
-d3 $ cf $ pn'qs 2
+d'qs $ cf $ pn'qs 4
+d'qs $ cf $ pn'qs 2
 
-d1 $ cf $ pn'hointro
+d'drum $ cf $ pn'hointro
 
-d2 $ cf $
+d'print $ cf $
   jux (slow 1.1) $
   slow 2.5 . striate 6 $ s "print"
   # 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)
 
-d2 $ cf $
+d'print $ cf $
   jux (slow 1.1) $
   slow 2.5 . striate 6 $ s "{print, wobble}"
   # 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
-d3 $ cf $
+d'qs $ cf $
   spread density [1,2] $
   jux (iter 8) $ pn'qs 2
   # speed ((+0.7).(/2) <$> slow 3.2 triwave1)
 
 -- 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) $
   slow 2.5 . striate 6 $ s "wobble"
 
 -- pushy qspace
-d3 $ cf $
+d'qs $ cf $
   spread density [1,1,2,0.5] $
   jux (iter 8) $ pn'qs 2
   # speed ((+0.7).(/2) <$> slow 3.2 triwave1)
 
-d1 $ cf $
+d'drum $ cf $
   every 3 rev $
   overlay (pn'bd) $ pn'sn
 
-d1 $ cf $
+d'drum $ cf $
   jux (iter 4) . every 3 rev $
   overlay (pn'bd) $ pn'sn
 
-d1 $ cf $
+d'drum $ cf $
   every 8 (density 2) $
   jux (iter 4) . every 3 rev $
   overlay (pn'bd) $ pn'sn
 
-d1 $ cf $
+d'drum $ cf $
   jux (density 2 . iter 4) . every 3 rev $
   overlay (pn'bd) $ pn'sn
 
 -- chiller qspace
-d3 $ cf $
+d'qs $ cf $
   spread density [1,1,0.5,2] $
   jux (iter 8) $ pn'qs 2
   # 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'bd) $ pn'sn
 
-d1 $ cf $
+d'drum $ cf $
   overlay (pn'hh) $
   every 3 rev $
   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)
   # speed "1.2"
 
-d1 $ cf $
+d'drum $ cf $
   overlay (pn'hh) $
   jux (iter 4) . every 3 rev $
   overlay (pn'bd) $ pn'sn
 
 -- 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) $
   jux (iter 4) . every 3 rev $
   overlay (pn'bd) $ pn'sn
 
-d3 silence
+d'qs silence
 
-d5 $ cf $
+d'mons $ cf $
   slow 2 $ s "monsterb"
   # gain "0.7"
   # speed ((+0.6).(/2) <$> slow 4 sinewave1)
 
-d5 $ cf $
+d'mons $ cf $
   striate 4 $ slow 2 $ s "monsterb"
   # gain "0.7"
   # speed ((+0.6).(/2) <$> slow 4 sinewave1)
 
-d1 $ cf $
+d'drum $ cf $
   overlay (pn'hh) $
   every 8 (density 2) $
   jux (iter 4) . every 3 rev $
   overlay (pn'bd) $ pn'sn
 
 -- calm
-mapM_ ($ silence) [d1,d4]
-d5 silence
+msil [d'drum, d'jbass]
+d'mons silence
 
 {-
 [2]
@@ -163,100 +179,100 @@ d5 silence
 let pn'bass4 = 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"
   # vowel "e"
 
 -- yknow this is a pretty neat sample
-d7 $ cf $ s "casio*2 ~"
-d1 $ cf $ pn'hh
+d'casio $ cf $ s "casio*2 ~"
+d'drum $ cf $ pn'hh
 
-d5 $ cf $
+d'mons $ cf $
   striate 4 $ slow 2 $ s "monsterb"
   # gain "0.7"
   # speed ((+0.6).(/2) <$> slow 4 sinewave1)
 
-d5 $ cf $
+d'mons $ cf $
   spread density [1,2] $
   striate 4 $ slow 2 $ s "monsterb"
   # gain "0.7"
   # speed ((+0.6).(/2) <$> slow 4 sinewave1)
 
 -- 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)
 
-d1 $ cf $ overlay (pn'sn) $ overlay (pn'hh) $
+d'drum $ cf $ overlay (pn'sn) $ overlay (pn'hh) $
   s "bd*2"
 
-d3 $ cf $
+d'qs $ cf $
   spread density [1,2] $
   jux (iter 8) $ pn'qs 2
   # 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)
 
 -- 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"
 
-d3 $ cf $
+d'qs $ cf $
   spread density [1,1,2,0.5] $
   jux (iter 8) $ pn'qs 2
   # speed ((+0.7).(/2) <$> slow 3.2 triwave1)
 
 -- 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)"
 
-d3 $ cf $
+d'qs $ cf $
   spread density [1,1,0.5,2] $
   jux (iter 8) $ pn'qs 2
   # 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)
   # speed "1.2"
 
-d6 $ slow 5 $ pn'bass4
+d'bass $ slow 5 $ pn'bass4
   # 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
-d7 $ cf $
+d'casio $ cf $
   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)"
 
-d7 $ cf $
+d'casio $ cf $
   jux (slow (4%3)) $
   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] $
   striate 4 $ slow 2 $ s "monsterb"
   # gain "0.7"
   # speed ((+0.6).(/2) <$> slow 4 sinewave1)
 
 -- sometimes i regret putting a sheep in this song
-d9 $ slow 6 $ s "baa"
+d'baa $ slow 6 $ s "baa"
   # vowel "e"
 
-mapM_ ($ silence) [d2,d3,d4,d5,d9]
+msil [d'print, d'qs, d'jbass, d'mons, d'baa]
 
 -- nice
-solo $ d1 $ cf $
+solo $ d'drum $ cf $
   overlay pn'hh $
   jux (iter 4 . rev) $ pn'sn
 
@@ -265,88 +281,88 @@ solo $ d1 $ cf $
 -}
 
 -- drum intro
-d1 $ cf $
+d'drum $ cf $
   density (8%3) $ s "sn:0 hh hh"
 
-d1 $ cf $
+d'drum $ cf $
   overlay (s "house*2") $
   density (8%3) $ s "sn:0 hh hh"
 
-d1 $ cf $
+d'drum $ cf $
   overlay (s "house*2") $
   every 4 (density 2 . brak) $
   density (8%3) $ s "sn:0 hh hh"
 
-d1 $ cf $
+d'drum $ cf $
   overlay (s "house*2") $
   every 4 (density 2 . brak) $
   density (8%3) $ s "sn:0 hh rm"
 
 -- weird low
-d8 $ cf $
+d'arm $ cf $
   slow 4 $ s "armora"
 
-d8 $ cf $
+d'arm $ cf $
   every 8 (# speed "2") $
   slow 4 $ s "armora"
 
-d8 $ cf $
+d'arm $ cf $
   every 2 (density 3) $
   every 8 (# speed "2") $
   slow 4 $ s "armora"
 
-d8 $ cf $
+d'arm $ cf $
   every 2 (density 3) $
   every 8 (# speed "2") $
   slow 4 $ s "armora"
   # shape ((/1.5) <$> slow 4 sinewave1)
 
 -- bring monster back
-d5 $ cf $
+d'mons $ cf $
   striate 4 $ slow 2 $ s "monsterb"
   # gain "0.7"
   # speed ((+0.6).(/2) <$> slow 4 sinewave1)
 
 -- and qspace
-d3 $ cf $ pn'qs 2
-d3 $ cf $ jux (iter 8) $ pn'qs 2
+d'qs $ cf $ pn'qs 2
+d'qs $ cf $ jux (iter 8) $ pn'qs 2
 
-d3 $ cf $
+d'qs $ cf $
   jux (iter 8) $ pn'qs 2
   # speed ((+0.7).(/2) <$> slow 3.2 triwave1)
 
-d3 $ cf $
+d'qs $ cf $
   spread density [1,2] $
   jux (iter 8) $ pn'qs 2
   # speed ((+0.7).(/2) <$> slow 3.2 triwave1)
 
-d1 $ cf $
+d'drum $ cf $
   overlay (s "house*2") $
   every 4 (density 2 . brak) $
   density (8%3) $ (s "sn:0 hh rm" # n "[0 1]/5")
 
 -- bring back 5/4 bass
-d6 $ slow 5 $ pn'bass5
+d'bass $ slow 5 $ pn'bass5
   # speed ((+1) <$> density 2.4 sinewave1)
 
-d1 $ cf $
+d'drum $ cf $
   overlay (every 4 (density 3) $ s "house*2") $
   every 4 (density 2 . brak) $
   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)
   # speed "1.2"
 
 -- gradually 1.1->1.5
 cps ((117*1.5)/60)
 
-d2 $ cf $
+d'wobb $ cf $
   jux (slow 1.1) $
   slow 2.5 . striate 6 $ s "wobble"
 
 -- 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"
 
 -- all at once