ok i think i'm happy with that

This commit is contained in:
Aneurin Barker Snook
2016-04-27 19:05:22 +01:00
parent 130c60a706
commit 8c16a69912
2 changed files with 30 additions and 17 deletions
+9
View File
@@ -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
View File
@@ -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