do setcps (135/60/4) let f1 = (# djfbus 1 (range 0.15 0.85 "^49")) let f2 = (# djfbus 2 (range 0.15 0.85 "^29")) let mBreak = (midiOn "^41" (mask "t f . f <f!4 t!4> <f!2 t!6> t")) let m = mBreak let modIndex = pF "modIndex" d1 $ f1 $ midiOn "^42" (fast 2) $ "[cpu,jazz]*2" # midiG' "^78" 0 1.8 d2 $ f1 $ mask "<t!16 f!8 t!8>" $ "~ c ~ c*<1 2>" # "electro1" # n "<2!3 <3 3 2 3>>" # midiG' "^79" 0 1.8 d10 $ mask "<f!8 t!8>" $ "~ <c c [c . c*2] c>" # "clap" # lpf 1500 # midiG' "^79" 0 1.8 d9 $ mask "<f!8 t!8>" $ "~ <~ c [c . c*2] c>" # "h2ogmhh" # midiG' "^79" 0 1.2 d3 $ f2 $ "d*[8 <8 <[8 4] 16>>]" # "drum:2" # midiG' "^80" 0 1.8 d4 $ f1 $ whenmod 16 8 (superimpose (|+| note ( "0 12*<1!3 2> <0 12> 0?" + 12 ))) $ note (scale "aeolian" "<0 3 5 7>") # "moog" # crushbus 4 (range 16 2 "^53") # cut 4 # pan 0.2 # midiG' "^81" 0 1 d5 $ f2 $ whenmod 16 8 (superimpose (|+| note ( "0 12*<1!3 2> <0 12> 0?" - 24 ))) $ note (scale "aeolian" "<0 3 5 7>") # "FMRhodes1" # modIndex (range 0 100 "^54") # cut 5 # room 0.4 # dry 1.5 # sz 0.8 # pan 0.8 # midiG' "^82" 0 1.8 once $ "electro1:2" do let g = (# djf "^49") d1 $ g $ "jazz*4" # gain (slow 8 $ range 0.5 1 sine) d2 $ g $ "~ cp" d3 $ g $ n "0(3,8)" # "amencutup" -- do let modIndex = pF "modIndex" once $ note "c4" # "FMRhodes1" # gain 2.5 # att 0.1 # rel 0.9 # modIndex 100