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