Browse Source

a few tweaks

Aneurin Barker Snook 9 years ago
parent
commit
62846810b6
1 changed files with 15 additions and 9 deletions
  1. 15 9
      leeds2016.tidal

+ 15 - 9
leeds2016.tidal

@@ -180,7 +180,7 @@ d'fly $ fly'5 True
 d'bass $ every 2 (density 2) $ whenmod 3 2 (density 1.6) $ bass'5
   # speed ((+0.75).(/2) <$> slow 1.3 sinewave1)
 
-msil [d'casio, d'mons, d'drum]
+msil [d'mons, d'drum]
 
 d'drum $ cf $ overlay (pn'sn) $ overlay (pn'hh) $
   s "k(3,8)"
@@ -190,14 +190,20 @@ d'qs $ cf $
   jux (iter 8) $ pn'qs 2
   # speed ((+0.7).(/2) <$> slow 3.2 triwave1)
 
-d'drum $ cf $ overlay (pn'sn) $ overlay (pn'hh) $
-  every 4 (brak . density 2) $ s "k(3,8)"
-
 d'bass2 $ slow 8 $ s "jungbass jungbass:1"
   # pan (slow 2 sinewave1)
   # speed "1.2"
 
-msil [d'perc, d'qs]
+d'drum $ cf $ overlay (pn'sn) $ overlay (pn'hh) $
+  every 4 (brak . density 2) $ s "k(3,8)"
+
+d'qs $ cf $
+  spread density [1,1,0.5,2] $
+  jux (iter 8) $ pn'qs 2
+  # speed ((+0.7).(/2) <$> slow 3.2 triwave1)
+  # vowel "a"
+
+msil [d'casio, d'perc, d'qs]
 d'fly silence
 
 {-
@@ -296,10 +302,6 @@ d'wbass $ (sometimesBy 0.6 $ superimpose (rev . slow (5%4))) $
 
 d'perc $ iter 4 $ (# pan (density 16 "0.25 0.75")) $ whenmod 16 15 (density 3) $ hhb True
 
-d'gt $ density 0.98 $ gt
-  # gain "0.87"
-  # speed ((+1).(/4) <$> slow 1.95 sinewave1)
-
 d'bass $ slowspread (\x -> within (0.5, 1) (x)) [id, slow 2 . brak] $
   whenmod 4 2 (density 3) $ whenmod 3 2 (slow 2) $ bassbass'
 
@@ -313,6 +315,10 @@ d'eg $ (0.18 <~) $
   slowspread density [1, 2, 0.5, 2] $ eg
   # gain "0.8"
 
+d'gt $ density 0.98 $ gt
+  # gain "0.87"
+  # speed ((+1).(/4) <$> slow 1.95 sinewave1)
+
 msil [d'perc, d'eg, d'wbass]
 d'drum $ ju'drum2