dub.tidal 1.42 KB
setcps 0.6

d1 -- beat: default chill, run tous les 64
$ whenmod 128 164 ( -- run
  const $  "[r r?] r r [r r?]" # s "kick:5"
  # release 0.8
  # gain 0.8
)
$ euclid "<1 2>" 4
$ s "<k k*2 <k*2 k> k>"
# s "kick:5"
# release 0.8
-- # room 0.5
-- # size 0.5

d2 -- Carillons / Claps
-- claps apparaissent et disparaissent
-- $ whenmod 64 48 (fix (# gain "<0.9,0.025 .. 0.5>") (s "clap"))
-- $ whenmod 64 32 (fix (# gain "<0.5,0.025 .. 0.9>") (s "clap"))
$ whenmod 64 0 (fix (# gain "0") (s "clap"))
$ fix (# n (wchoose [(0.8,0),(0.2,1)])) (s "clap")
$ s "hh(<4 4 4 2>,4) clap" # n "8 8 8 <8 8 8 9> 3"

d4 -- Basse
-- $ rev
$ jux degrade
$ note (scale "aeolian"
"<[<3 [4 3]> . ~ <0 3>] [<0 3?> 1 0 1]> . <~ ~ <0 1>? ~>~"
)
# s "bassWarsaw"
# attack "3"
# room 0.3
# size 0.8
|- note 30


d5 -- Synth fou dub
-- $ fast 2
$ superimpose (|+ note "<5 5 3 3 0 0>")
$ note (scale "major" "~ 0")
# s "cheapPiano1"
|- note 12
# gain "<0.75 .. 1 1 .. 0.65>"
# room "<0.2 .. 2 2 .. 0.2>"
# size "<0.8 .. 0.2>"
# dry "1,0.2 .. 4 5,0.5 .. 1"

d6 -- lead harpe joyeuse
-- $ jux rev
-- $ sometimes (fast 2)
-- $ sometimes (off 0.125 (|+ 5))
$ "h?*8"
# n (scale "aeolian" "0 2 4 <7 9> <0 -3>")
# s "harpsichord2"
# gain "<0.9,0.05 .. 0.7 0.7,0.05 .. 0.9>"

d7
$ someCycles (degrade . off 0.5 (|+ 0))
$ s "~ dsynth(<4 3 5>,8)"
-- $ off 0.25 (|- note 7)
# note (scale "major" "0 7")
|- note "<12 9 7 12 5>"
# gain 0.7
-- |- note "<5 10 12 10 5>"

solo 5

mute 4
unmute 4