浏览代码

tidy up and fixes

Aneurin Barker Snook 8 年之前
父节点
当前提交
e612c54e53
共有 2 个文件被更改,包括 32 次插入32 次删除
  1. 9 7
      notts.megalet.tidal
  2. 23 25
      notts.tidal

+ 9 - 7
notts.megalet.tidal

@@ -331,41 +331,43 @@ let bpm b = cps (b/60)
     mt s d i = slow s $ tmod' 0.5 3 $ density d $ i
     mt s d i = slow s $ tmod' 0.5 3 $ density d $ i
 
 
 -- resolved channel mapping (reducing conflicts as much as possible)
 -- resolved channel mapping (reducing conflicts as much as possible)
--- @todo update with haddeo channels
 let d'drum = d1
 let d'drum = d1
     d'perc = d2
     d'perc = d2
     d'eg = d3
     d'eg = d3
     d'gnome = d3
     d'gnome = d3
     d'hand = d3
     d'hand = d3
---    d'tac = d3
-    d'tac = d8 -- !
     d'tr = d3
     d'tr = d3
+    d'wax = d3 -- ex d4
     d'bass = d4
     d'bass = d4
     d'fly = d5
     d'fly = d5
     d'gt = d5
     d'gt = d5
     d'mons = d5
     d'mons = d5
---    d'warb = d5
-    d'warb = d6 -- !
+    d'nim = d5
+    d'warb = d6 -- ex d5
     d'bz = d6
     d'bz = d6
+    d'hi = d6
     d'kurt = d6
     d'kurt = d6
     d'udu = d6
     d'udu = d6
     d'arpy = d7
     d'arpy = d7
+    d'fx3 = d7 -- ex d10
     d'pc = d7
     d'pc = d7
     d'qs = d7
     d'qs = d7
     d'arm = d8
     d'arm = d8
+    d'fx1 = d8
     d'misc = d8
     d'misc = d8
     d'pcl = d8
     d'pcl = d8
     d'ql = d8
     d'ql = d8
+    d'tac = d8 -- ex d3
     d'ant = d9
     d'ant = d9
     d'baa = d9
     d'baa = d9
     d'casio = d9
     d'casio = d9
+    d'cymb = d9 -- ex d10
+    d'fx2 = d9
     d'print = d9
     d'print = d9
     d'voc = d9
     d'voc = d9
     d'wbass = d9
     d'wbass = d9
     d'wobb = d9
     d'wobb = d9
     d'bass2 = d10
     d'bass2 = d10
---    d'cymb = d10
-    d'cymb = d9 -- !
     d'jbass = d10
     d'jbass = d10
     d'moog = d10
     d'moog = d10
     d'shard = d10
     d'shard = d10

+ 23 - 25
notts.tidal

@@ -53,20 +53,19 @@ d'drum $ overlay sn'6 $ drum'6
 
 
 msil [d'perc,d'fly,d'bz]
 msil [d'perc,d'fly,d'bz]
 
 
--- [2] pigs nose: raise
+-- [1b] pigs nose: raise
 bpm 138
 bpm 138
 bpm 120
 bpm 120
 bpm 117
 bpm 117
 
 
 msil [d'gnome, d'bass]
 msil [d'gnome, d'bass]
 d'drum $ drum'6
 d'drum $ drum'6
+d'cymb silence
 
 
 d'ql $ slow (10%4) $ spread density [1,5%4] $
 d'ql $ slow (10%4) $ spread density [1,5%4] $
   sound "[qlatibro:1 qlatibro]*2"
   sound "[qlatibro:1 qlatibro]*2"
   # vowel "e"
   # vowel "e"
 
 
-d'cymb silence
-
 d'drum $ overlay (cf $ pn'hh) $ drum'6
 d'drum $ overlay (cf $ pn'hh) $ drum'6
 d'casio $ cf $ s "casio*2 ~"
 d'casio $ cf $ s "casio*2 ~"
 
 
@@ -125,7 +124,7 @@ d'qs $ cf $
   # speed ((+1.2).(/2) <$> slow 3.2 triwave1)
   # speed ((+1.2).(/2) <$> slow 3.2 triwave1)
   # gain "0.95"
   # gain "0.95"
 
 
--- transition to [2b] battery 1
+-- transition to [1c] battery 1
 d'hand $ b1'hand
 d'hand $ b1'hand
 d'qs silence
 d'qs silence
 
 
@@ -192,7 +191,7 @@ msil [d'tac, d'bass]
 
 
 d'cymb $ (0.5 <~) $ cymb'2 "0.7"
 d'cymb $ (0.5 <~) $ cymb'2 "0.7"
 
 
--- merge in a bit of [2c] piston iii
+-- merge in a bit of [1d] piston iii
 d'bass2 $ bass'3 "o i" "1" True # gain "1"
 d'bass2 $ bass'3 "o i" "1" True # gain "1"
 
 
 d'drum $ cf $
 d'drum $ cf $
@@ -232,14 +231,14 @@ d'drum $ cf $ every' 8 8 (density 1.5) $ every 2 (density 3) $ sound "[~ psn:1]"
 
 
 msil [d'hand, d'bz, d'bass, d'bass2, d'cymb]
 msil [d'hand, d'bz, d'bass, d'bass2, d'cymb]
 
 
--- [3] juliese
-
-d'bass $ bassbass
+-- [2] juliese
 
 
 bpm 125
 bpm 125
 bpm 105
 bpm 105
 bpm 99
 bpm 99
 
 
+d'bass $ bassbass
+
 d'drum silence
 d'drum silence
 msil [d'perc, d'warb, d'misc]
 msil [d'perc, d'warb, d'misc]
 
 
@@ -358,7 +357,7 @@ d'drum $ ju'drum2
 
 
 mapM_ ($ silence) [d'bass, d'udu, d'pc, d'perc]
 mapM_ ($ silence) [d'bass, d'udu, d'pc, d'perc]
 
 
--- [4] battery 2
+-- [3] battery 2
 
 
 d'perc $ cf $ s "uxay*2"
 d'perc $ cf $ s "uxay*2"
   # n "1"
   # n "1"
@@ -418,7 +417,7 @@ msil [d'misc, d'perc]
 d'drum $ s "k/4"
 d'drum $ s "k/4"
 d'bass silence
 d'bass silence
 
 
--- transition to [4b] battery 3
+-- transition to [3b] battery 3
 
 
 d'fly $ fly'7
 d'fly $ fly'7
   # orbit "2"
   # orbit "2"
@@ -469,28 +468,22 @@ d'drum $ cf $
   overlay (b3'drum) $
   overlay (b3'drum) $
   (b3'perc # n (slow 3 $ run 4))
   (b3'perc # n (slow 3 $ run 4))
 
 
+-- quickly
+d'arpy silence
 d'shard $ whenmod 7 3 (density (5%4)) $ plox'4 "[ice plode]*2"
 d'shard $ whenmod 7 3 (density (5%4)) $ plox'4 "[ice plode]*2"
 
 
-msil [d'tac, d'shard]
-
 d'drum $ cf $
 d'drum $ cf $
   overlay (b3'drumf) $
   overlay (b3'drumf) $
   (b3'perc # n (slow 3 $ run 4))
   (b3'perc # n (slow 3 $ run 4))
 
 
-d'ant $ ant'2
-
 d'bass2 $ bass'5f
 d'bass2 $ bass'5f
-d'misc $ fly'2
+--d'arpy $ cf $ iter 9 $ b2'arpy
 
 
 d'hand $ b1'hand
 d'hand $ b1'hand
   # shape ((/2) <$> slow (10%4) sinewave1)
   # shape ((/2) <$> slow (10%4) sinewave1)
   # pan (halfosc <$> slow (8%3) sinewave1)
   # pan (halfosc <$> slow (8%3) sinewave1)
 
 
-d'bass $ cf $
-  spread slow [2,(7%4)] $
-  whenmod 7 6 (density 1.5) $
-  iter 4 $
-  b3'bass
+d'fly $ fly'2
 
 
 d'perc $ s "{wt/2, [~ wtsn]/8}"
 d'perc $ s "{wt/2, [~ wtsn]/8}"
 
 
@@ -504,13 +497,19 @@ d'arpy $ cf $
   whenmod 7 4 (|+| vowel "a") $ -- this not used in brighton 2014 live rec.
   whenmod 7 4 (|+| vowel "a") $ -- this not used in brighton 2014 live rec.
   iter 9 $ b2'arpy
   iter 9 $ b2'arpy
 
 
+d'bass $ cf $
+  spread slow [2,(7%4)] $
+  whenmod 7 6 (density 1.5) $
+  iter 4 $
+  b3'bass
+
 d'bass $ cf $
 d'bass $ cf $
   spread slow [2,(7%4)] $
   spread slow [2,(7%4)] $
   whenmod 7 6 (density 1.5) $
   whenmod 7 6 (density 1.5) $
   iter 4 $
   iter 4 $
   b3'bassf
   b3'bassf
 
 
-msil [d'ant, d'misc, d'perc, d'hand]
+msil [d'ant, d'fly, d'perc, d'hand, d'shard, d'tac]
 
 
 -- drum solo-ish for a bit
 -- drum solo-ish for a bit
 d'drum $ cf $
 d'drum $ cf $
@@ -547,7 +546,7 @@ d'drum $ cf $
   iter 2 $
   iter 2 $
   (b3'perc # n (slow 3 $ run 4))
   (b3'perc # n (slow 3 $ run 4))
 
 
--- transition to [4c] piston viii
+-- transition to [3c] piston viii
 d'bass $ slow 16 $ bass' 64
 d'bass $ slow 16 $ bass' 64
 
 
 d'perc $ overlay fly'1f $ within (0.5, 1) (slow (3%2) . chop 4) $ whenmod 5 3 (rev . chop 8) $ snare43'1
 d'perc $ overlay fly'1f $ within (0.5, 1) (slow (3%2) . chop 4) $ whenmod 5 3 (rev . chop 8) $ snare43'1
@@ -584,12 +583,11 @@ d'misc $ (0.75 ~>) $ bass'4
 d'cymb $ (2.75 ~>) $ cymb'2 "0.7"
 d'cymb $ (2.75 ~>) $ cymb'2 "0.7"
 msil [d'gnome,d'ant]
 msil [d'gnome,d'ant]
 d'bz $ every 3 brak $ bzox'4 "~ bzl"
 d'bz $ every 3 brak $ bzox'4 "~ bzl"
-msil [d'bz,d'cymb,d'misc,d'bass]
+msil [d'bz,d'cymb,d'misc]
 
 
--- d'bass is awol at this point? @todo
 solo $ d'perc $ within (0.5, 1) (slow (3%2) . chop 4) $ whenmod 5 3 (rev . chop 8) $ snare43'1
 solo $ d'perc $ within (0.5, 1) (slow (3%2) . chop 4) $ whenmod 5 3 (rev . chop 8) $ snare43'1
 
 
--- [5] haddeo (algorave remix)
+-- [4] haddeo (algorave remix)
 
 
 bpm 135
 bpm 135
 bpm 110
 bpm 110