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
