setcps 0.6

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

d2 -- Carillons / Claps
-- claps apparaissent et disparaissent
$ always (# room 0.4)
$ whenmod 64 48 (fix (# gain "<0.7,0.025 .. 0.5>") (s "clap"))
$ whenmod 64 32 (fix (# gain "<0.5,0.025 .. 0.7>") (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 "major"
"<[<3 [4 3]> . ~ <0 3>] [<0 3?> 1 0 1]> . <~ ~ <0 1>? ~>~"
)
# s "bassWarsaw"
# attack 3

d5 -- Reggaeman bloqué dub
$ fast 2
$ sometimes (superimpose (|- note 7))
$ superimpose (|+ note "<3 3 5 5>")
$ note (scale "major" "~ 0")
# s "superpiano"
|- note 7
# gain "<0.75 .. 0.8 0.8 .. 0.65>"
# room "<0.2 .. 2 2 .. 0.2>"
# size "<0.8 .. 0.2>"
# dry "1,0.2 .. 4 5,0.5 .. 1"
# velocity (0.5 + (rand / 2))

d6 -- lead harpe joyeuse
$ jux rev
$ whenmod 32 16 (off 0.125 (|+ 5))
$ sometimes (fast 2)
$ "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 -- lead second
$ sometimes (|+ note 7)
$ sometimes (|- note 7)
$ someCycles (degrade . off 0.5 id)
$ s "~ dsynth(<4 3 5>,8)"
# note (scale "major" "0 7")
|- note "<12 9 7 12 5>" - 21
# gain 0.5
