Jelajahi Sumber

ok i think i'm happy with that

Aneurin Barker Snook 9 tahun lalu
induk
melakukan
8c16a69912
2 mengubah file dengan 30 tambahan dan 17 penghapusan
  1. 9 0
      leeds2016.megalet.tidal
  2. 21 17
      leeds2016.tidal

+ 9 - 0
leeds2016.megalet.tidal

@@ -375,3 +375,12 @@ let hhb m = smash 16 [0.25, 0.5] $
 
 let ss'perc = s "{[sbd ~ ~ sbd] msg, rhh*2}"
     ss'perc' = s "{[rm ~ ~ rm] msg, rhh*2}"
+
+-- should backport these two to battery123.tidal
+let b2'ux = cf $ s "uxay*4"
+            # n "1 0 1 2"
+
+let b2'ux2 i = (if i then brak . iter 4 else cf . brak) $
+               b2'uxp $ s "uxay*4"
+               # n "1 0 1 2"
+               # shape "0.4 0.3 0.6"

+ 21 - 17
leeds2016.tidal

@@ -25,7 +25,7 @@ d'perc $ wt'2 # gain "0.85"
 
 d'bass silence
 d'drum $ drum'6
-
+hush
 d'misc $ slow 16 $ bass' 64
 
 d'cymb $ density (5%4) $ whenmod 9 4 (density 1.5) $ cymb'6
@@ -62,10 +62,10 @@ cps (135/60)
 cps (130/60)
 cps (125/60)
 
-let b2'ux = s "uxay*4"
+let b2'ux = cf $ s "uxay*4"
             # n "1 0 1 2"
 
-let b2'ux2 i = (if i then brak . iter 4 else brak) $
+let b2'ux2 i = (if i then brak . iter 4 else cf . brak) $
                b2'uxp $ s "uxay*4"
                # n "1 0 1 2"
                # shape "0.4 0.3 0.6"
@@ -88,7 +88,7 @@ d'drum $ overlay (s "k") $
   cf $ every 3 (0.125 <~) $ b2'psrf
 
 -- this and next 3 parts real quick
-d'perc $ cf $ b2'ux2 False
+d'perc $ b2'ux2 False
 
 d'drum $ cf $ -- overlay (s "peri") $
   every 3 (0.125 <~) $ b2'psrf
@@ -156,19 +156,18 @@ d'mons $ cf $
 d'arpy silence
 d'bass $ bass'5
 
-d'drum $ cf $ overlay (pn'sn) $ overlay (pn'hh) $
-  s "~"
-
 d'drum $ cf $ overlay (pn'sn) $ overlay (pn'hh) $
   s "pbd*2"
 
 d'bass $ every 2 (density 2) $ bass'5
 
 d'qs $ cf $
+  slowspread density [1,2] $
   jux (iter 8) $ pn'qs 2
   # gain "0.95"
 
 d'qs $ cf $
+  slowspread density [1,2] $
   jux (iter 8) $ pn'qs 2
   # speed ((+0.7).(/2) <$> slow 3.2 triwave1)
   # gain "0.95"
@@ -179,8 +178,13 @@ d'drum $ cf $ overlay (pn'sn) $ overlay (pn'hh) $
 d'bass $ every 2 (density 2) $ whenmod 3 2 (density 1.6) $ bass'5
   # speed ((+0.75).(/2) <$> slow 1.3 sinewave1)
 
-d'mons silence
-d'drum silence
+d'qs $ cf $
+  spread density [1,1,2,0.5] $
+  jux (iter 8) $ pn'qs 2
+  # speed ((+0.7).(/2) <$> slow 3.2 triwave1)
+  # gain "0.95"
+
+msil [d'mons, d'drum]
 
 -- quickly
 d'qs $ cf $
@@ -193,7 +197,6 @@ d'drum $ cf $ overlay (pn'sn) $ overlay (pn'hh) $
   s "k(3,8)"
 
 d'bass2 $ slow 8 $ s "jungbass jungbass:1"
-  # pan (slow 2 sinewave1)
   # speed "1.2"
 
 d'drum $ cf $ overlay (pn'sn) $ overlay (pn'hh) $
@@ -247,9 +250,9 @@ msil [d'bass, d'perc, d'ql]
 cps (99/60)
 
 d'bass $ bassbass
+d'bass $ bassbass'
 d'drum $ s "k"
 d'perc $ hhb False
-d'bass $ bassbass'
 d'drum $ morek $ s "k"
 d'perc $ whenmod 16 15 (density 3) $ hhb False
 d'bass2 silence
@@ -416,6 +419,7 @@ d'voc $ cf $ slow 2 $
   ss'chorus
   # vowel "e"
 
+-- somewhat quickly
 msil [d'drum, d'perc]
 
 d'drum $ cf $
@@ -433,13 +437,10 @@ d'gt $ cf $
   # speed "0.7"
 
 d'kurt $ cf $ s "kurt"
-  # n (slow 7 $ run 7)
+  # n (slow 4 "5 6 4")
 
 d'bass $ whenmod 4 2 (density 3) $ whenmod 3 2 (slow 2) $ bassbass'
 
-d'kurt $ cf $ s "kurt"
-  # n (slow 4 "5 6 4")
-
 d'moog $ cf $
   slow 8 . striate 8 $
   0.25 <~ s "moog"
@@ -447,6 +448,9 @@ d'moog $ cf $
   # speed "0.6 0.7"
   # pan (slow 8 sinewave)
 
+d'kurt $ cf $ s "kurt"
+  # n (slow 7 $ run 7)
+
 d'voc $ cf $ slow 4 $ ss'chorus
   # vowel "e"
 
@@ -569,7 +573,6 @@ d'bz $ every 3 brak $ bzox'4 "~ bzl"
 d'qs $ cf $ s "casio*2 ~"
   # gain "0.85"
 
-d'arpy $ (0.5 <~) $ ((1%16) <~) $ shard'2
 d'arpy $ shard'3f
 
 msil [d'bass, d'tac, d'bass2, d'bz]
@@ -579,11 +582,12 @@ cps (130/60)
 cps (125/60)
 
 msil [d'fly, d'arpy]
-msil [d'drum, d'ant]
 
 d'perc $ cf $
   slow 2 . spread slow [2,4,2,3] $
   jux (0.25 <~) $ b1'perc
   # n (density 3 $ run 2)
 
+msil [d'drum, d'ant]
+
 hush