once $ "hh" # gain 1.2 do setcps (70/60/4) let djfsine = (# djfbus 1 (slow 32 $ range 0.35 0.65 sine)) d1 $ djfsine $ "k*2 ~!6" # "jazz" # gain 0.8 d2 $ "~ s ~ [s*<1!3 2> ~]" # "[snare:20,clap]" # gain 0.6 d3 $ "h*12" # "hh" # gain 1.1 d4 $ note ("0*[16 <16 2>]" + (fast 2 "<[g,bf] [f,a]>") ) # legato "q!7 <q 0.9> . <q 1>" # octave 4 # "FMRhodes2" # gain 1.2 d5 $ someCyclesBy "<1!8 0!8 0!16>" (>| note ("<[d3@3 g3@13]!3 [d3 f3 d3 g3@13]>") ) $ someCyclesBy "<0!0 1!8 0!16>" (>| note ("[d3 <d3 bf3 d3!2> f3 g3@13]") ) $ someCyclesBy "<0!16 1!16>" (>| note ("[d3 d3 f3 g3@7 d4@2 <c4 <f4 g4>>@4]")) $ note ("<[d3@3 g3@13]!3 [d3 f3 d3 g3@13]>") # "bassWarsaw" # gain 1.2 # room 0.2 d6 $ djfsine $ whenmod 64 32 (slice 4 "<0 1>*4") $ loopAt 2 $ chop 16 $ slice 4 (run "4 <4!3 8 4 4 8 8>") $ "break:0" # cut 6 # gain 1 # pan 0.7