reset scratch file for how it should sound near the start

This commit is contained in:
Aneurin Barker Snook
2016-09-24 23:05:31 +01:00
parent 1c3b298e6d
commit e1240ed9df
+12 -12
View File
@@ -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