once $ "dr"
resetCycles
do
setcps (80/60/4)
let g1 = (whenmod 32 24 (# djf (slow 8 $ range 0.5 0.1 saw)))
let g2 = (someCyclesBy "<32!0 8!1 24!0>" (# djf (slow 8 $ range 0.5 0.9 saw)))
let g = g1 . g2
d1 $ g -- KICK
$ mask "<t(1,4)!4 t!28>"
$ "k ~ ~ [~ k] . ~"
# "[jazz,kick:9,cpu2]"
# gain 1.2
# room 0.7 # sz 0.9 # dry 0.9
d2 $ g -- Snare classique
$ mask "<f!3 t f f t t t!24>"
-- Contretemps/2, puis /4, puis re/2
$ "~ <~!8 s!7 ~> <s!8 ~!7 s> <~!8 s!7 <~ [~ s]>>"
# "sn:8"
# gain 1
d3 $ g-- LET THE DRUM ROLL
$ sometimesBy (slow 4 $ range 0 0.25 sine) (ply "1 2 2 1")
$ ply "2 2 2 [<2 4 8 2 2 4 4 8 8> <4 8 16>]"
$ "drum:2*4"
# gain 1.1
d4 $ g
$ n "<9!3 10 9!3 10 12!3 13 9 12 9 10 9 12 9 13>"
# "celtic_guitar80"
# cut 4
# gain 0.8
d5 $ g
$ mask "<f!8 t!24>"
$ note ("<[e@7 f] [e@15 g] e <g [g@6 b c6]>>" -24)
# "bassWarsaw"
# gain 1.3S