music-2010s/haddeo-remix
Archived
1
0
Fork 0
Code Pull Requests Activity

reset scratch file for how it should sound near the start

Browse Source
This commit is contained in:
Aneurin Barker Snook
2016-09-24 23:05:31 +01:00
parent 1c3b298e6d
commit e1240ed9df
1 changed files with 12 additions and 12 deletions
Download Patch File Download Diff File Expand all files Collapse all files
scratch.tidal
+12 -12
View File
@@ -27,34 +27,34 @@ d'drum silence
let --dp = n "1/4" let --dp = n "1/4"
--dp = n "[1*2, 0*8]/8" --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*2, 0 0 0 [0 ~! 0] ! 0 [0 0/4] 0]/8"
dp = n "[1, 0*2 [~ 0] ! ~]/4" --dp = n "[1, 0*2 [~ 0] ! ~]/4"
{--} {--}
kp = n "[~ [0 2]/2]" kp = n "[~ [0 2]/2]"
--kp = n "[[~ 0] [[2!! ~]/4 0]]/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" --sp = 4 ~> n "[~ [0 ~ ~ 0/2] ~ 0]/4"
{--} {--}
ste = id -- . mt 16 16 ste = id -- . mt 16 16
de = id 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 ~>) -- . superimpose (0.25 ~>)
ke = id ke = id
-- . every' 16 8 (const $ s "kit:3") -- . every' 16 8 (const $ s "kit:3")
-- . whenmod 3 2 (density 2) -- . whenmod 3 2 (density 2)
-- . (whenmod 11 5 . within (0.5, 1)) (density 2) -- . (whenmod 11 5 . within (0.5, 1)) (density 2)
se = id 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 ($) [ . whenmod 7 6 (slowspread ($) [
density 8 . rev . slow 4, density 8 . rev . slow 4,
(0.25 <~), (0.25 <~),
(0.25 ~>) (0.25 ~>)
]) ])
--} --}
--{- {-
. whenmod 5 3 ( . whenmod 5 3 (
superimpose ( superimpose (
within (0, 0.5) ((# gain "0.6") . (# n (irand 3)) . (# s "tom")) . within (0, 0.5) ((# gain "0.6") . (# n (irand 3)) . (# s "tom")) .
@@ -75,7 +75,7 @@ icarus
d'wax silence d'wax silence
d'wax $ 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" slow 16 . striate 256 $ s "icarus"
d'wax $ retrig $ s "icarus:1/20" d'wax $ retrig $ s "icarus:1/20"
@@ -97,7 +97,7 @@ let ns = slow 16 . striate 256
-- . nudge "0" -- . nudge "0"
) )
--} --}
. (0.5 ~>) -- . (0.5 ~>)
in d'nim $ in d'nim $
ne $ ns $ n "[0 1]/2" # s "nimble" ne $ ns $ n "[0 1]/2" # s "nimble"
@@ -109,10 +109,10 @@ d'bass silence
let be = id let be = id
-- . (# speed "[1 1.2]") -- . (# speed "[1 1.2]")
-- . (0.5 ~>) -- . (0.5 ~>)
. (1.3 ~>) -- . (1.3 ~>)
bc = id bc = id
-- . striate 16 -- . striate 16
. gap 32 -- . gap 32
bs = id bs = id
. slow 8 . slow 8
-- . mt 16 2 -- . mt 16 2