|
|
@@ -27,34 +27,34 @@ d'drum silence
|
|
|
|
|
|
let --dp = n "1/4"
|
|
|
--dp = n "[1*2, 0*8]/8"
|
|
|
- --dp = n "[1*2, 0 0 0 [0 ~! 0] ! 0 [0 0/4] 0]/8"
|
|
|
- dp = n "[1, 0*2 [~ 0] ! ~]/4"
|
|
|
+ dp = n "[1*2, 0 0 0 [0 ~! 0] ! 0 [0 0/4] 0]/8"
|
|
|
+ --dp = n "[1, 0*2 [~ 0] ! ~]/4"
|
|
|
{--}
|
|
|
kp = n "[~ [0 2]/2]"
|
|
|
--kp = n "[[~ 0] [[2!! ~]/4 0]]/2"
|
|
|
{--}
|
|
|
- --sp = n ""
|
|
|
+ sp = n ""
|
|
|
--sp = 4 ~> n "[~ 0 [~ 0/2 ~!] 0]/4"
|
|
|
- sp = 4 ~> n "[~ [0 ~ ~ 0/2] ~ 0]/4"
|
|
|
+ --sp = 4 ~> n "[~ [0 ~ ~ 0/2] ~ 0]/4"
|
|
|
{--}
|
|
|
ste = id -- . mt 16 16
|
|
|
de = id
|
|
|
- . (whenmod 9 5 . whenmod 7 4) (density 2 . rev) {- 9 5? -}
|
|
|
+-- . (whenmod 9 5 . whenmod 7 4) (density 2 . rev) {- 9 5? -}
|
|
|
-- . superimpose (0.25 ~>)
|
|
|
ke = id
|
|
|
-- . every' 16 8 (const $ s "kit:3")
|
|
|
-- . whenmod 3 2 (density 2)
|
|
|
-- . (whenmod 11 5 . within (0.5, 1)) (density 2)
|
|
|
se = id
|
|
|
- . within (0.1, 0.4) (# nudge "0.05") . within (0.6, 0.9) (# nudge "0.05")
|
|
|
---{-
|
|
|
+-- . within (0.1, 0.4) (# nudge "0.05") . within (0.6, 0.9) (# nudge "0.05")
|
|
|
+{-
|
|
|
. whenmod 7 6 (slowspread ($) [
|
|
|
density 8 . rev . slow 4,
|
|
|
(0.25 <~),
|
|
|
(0.25 ~>)
|
|
|
])
|
|
|
--}
|
|
|
---{-
|
|
|
+{-
|
|
|
. whenmod 5 3 (
|
|
|
superimpose (
|
|
|
within (0, 0.5) ((# gain "0.6") . (# n (irand 3)) . (# s "tom")) .
|
|
|
@@ -75,7 +75,7 @@ icarus
|
|
|
d'wax silence
|
|
|
|
|
|
d'wax $
|
|
|
- every' 2 2 (within (0, 0.75) (iter 16)) $
|
|
|
+-- every' 2 2 (within (0, 0.75) (iter 16)) $
|
|
|
slow 16 . striate 256 $ s "icarus"
|
|
|
|
|
|
d'wax $ retrig $ s "icarus:1/20"
|
|
|
@@ -97,7 +97,7 @@ let ns = slow 16 . striate 256
|
|
|
-- . nudge "0"
|
|
|
)
|
|
|
--}
|
|
|
- . (0.5 ~>)
|
|
|
+-- . (0.5 ~>)
|
|
|
in d'nim $
|
|
|
ne $ ns $ n "[0 1]/2" # s "nimble"
|
|
|
|
|
|
@@ -109,10 +109,10 @@ d'bass silence
|
|
|
let be = id
|
|
|
-- . (# speed "[1 1.2]")
|
|
|
-- . (0.5 ~>)
|
|
|
- . (1.3 ~>)
|
|
|
+-- . (1.3 ~>)
|
|
|
bc = id
|
|
|
-- . striate 16
|
|
|
- . gap 32
|
|
|
+-- . gap 32
|
|
|
bs = id
|
|
|
. slow 8
|
|
|
-- . mt 16 2
|
Aneurin Barker Snook