setcps 1

d1 -- beat
-- $ fix ((euclid 2 2) . (every 4 $ off 0.5 (# s "kick"))) (s "kick") -- faster
-- $ slow "1 2" -- calm
$ every' 4 1 (stut 2 0.9 0.25)
$ s "kick:5 dr:9(<<1 1 1 3> 1 1 <3 2 2 2>>,4)"
# gain 0.8

d2 -- claps
$ whenmod 64 32 (# s "clap:1")
$ every 4 (stut 2 0.5 0.25)
$ someCyclesBy 1 (# s "sn:3")
$ s "~ sn:1"
# gain 0.8

d3 -- mid drums 80s
$ whenmod 32 24 (# gain 1)
$ someCycles (# n 3)
$ s "electro1:2(<3 5 3 5 3 5 3 8>,8)"
-- # gain 1.4

d4 -- bass
-- $ degrade  . fast 2 -- rythme glitch
$ whenmod 64 32 (# silence) -- aere
-- $ whenmod 128 24 (# gain "0.7,0.05 .. 1") TODO REFRESH rythm for bass
$ euclid "<1 <2 3 1>>" 8
$ n ("<0 [[0 .. 1]*2] [3 0 0] [0 3 <7 0> 3]>" - 14) -- trille
# room 0.2
# size 0.2
# gain 0.85
# s "bassWarsaw"

d5 -- lead violin
$ whenmod 64 48 (degradeBy 0.25)
$ whenmod 64 32 (degrade)
$ every 4 (|+ note 5)
$ every 8 (off 0.25 (|+ 7))
$ every' 4 3 (|+ note 12)
$ someCycles (off 0.125 (|- 7))
$ n (scale "aeolian" "~ <[0 3] [5 4]>")
# s "violin"
# gain 0.9

d6 -- lead carillon
$ whenmod 16 12 (|+ 7)
$ whenmod 16 8 (off 0.125 (|+ "<5 4>"))
$ someCyclesBy 0.2 (arpeggiate . degrade)
$ someCycles (off 0.25 (rev))
$ superimpose (# n "[0?,3?,7?]")
$ n (scale "aeolian" "<[5 4] ~> ~")
# s "kalimba"
# gain 0.9
|- note "7 <0 0 2 2> <0 2 2 0> 7"

d7
$ every 2 (# silence)
$ jux rev
$ slow 2
$ off 0.125 (|+ 7)
-- $ note "[0,7] [3,<5 12>]"
$ note "<[7] [7 7 7 0]>"
# s "cs80leadMH"
