do -- resetCycles setcps (100/60/4) let gF1 = (# djfbus 1 (range 0.05 0.95 "^49")) let gF2 = (# djfbus 2 (range 0.05 0.95 "^50")) let gMask = (midiOn "^41" (mask "t . <f t f <f t>> <t f f <t f>>")) let gMute = (midiOn "^73" (mask "f*16")) let gMute2 = (midiOn "^74" (mask "f*16")) -- let gMute = (midiOn "^73" (mask "f*16")) let gM = gMask . gMute let gM2 = gMask . gMute2 let modIndex = pF "modIndex" let gF = gF1 . gF2 d1 $ gF1 $ gM2 -- Kick $ midiOff "^42" (<| "k k k <k <k*2 [~ k]>>") $ midiOn "^42" (<| "k ~ ~ <~ k> . <k ~>") $ "[jazz,kick:5]" -- # midiG' "^78" 0 1.3 -- FIXME Remove after unplugging direct SC->output line # pan 0.8 # gain 1.4 d2 $ gF1 $ gM $ midiOff "^43" (<| "~ s ~ s*<1!4 2!3 1>") $ midiOn "^43" (<| "~ ~ ~ k") $ "[drumtraks:9]" -- # midiG' "^79" 0 1.45 d3 $ gF1 $ gM $ midiOn "^44" (ply 2) $ midiOn "^76" (ply 2) $ "d d d <d [<d ~> d]>" # "drum:2" # gain 0.8 -- # midiG' "^80" 0 1 # room 0.2 # sz 0.1 # dry (slow 4 $ range 0.9 0.6 saw) d4 $ gF2 -- V2 -- $ superimpose ((arp "up") . (|+ note 12)) $ midiOn "^89" (stutWith 4 0.25 ((|* gain 0.85) . (# room 0))) $ note (cat [ -- PARTITION ORIGINALE -- "[bf3, d4, f4, a4]", -- Bbmaj7 -- "[a3, c4, e4, g4]", -- Am7 -- "[d4, f4, a4, c5, <e5 e4>]", -- Dm9 -- "[g3, b4, d5, <f5 ~>]" -- <G7 G> -- TRANSPOSE POUR SP <3 "[d4, fs5, a4, cs5]", -- Dmaj7 "[gs4, b4, cs5, es5]", -- Csm7 "<[fs4, a4, cs5, e5, gs5] [fs4, b5, cs5, e5, gs5]>", -- Fsm9/Fsm11 "[b4, d5, fs5, <a4 a5>]" -- <B7 B> ] - 12 ) # "FMRhodes2" -- |- note 12 |+ note 2 -- Adjust to C # modIndex (range 0 2 "^53") -- # midiG' "^81" 0 1.6 d5 $ note ("<[d3@1.25 e3@0.25 ~@0.75 f3@2 ~] [e3@1.25 f3@0.25 ~@0.75 g3@2 ~] [f3@1.25 g3@0.25 ~@0.75 a3@2 ~] [a3 g3 g3 f3 f3 d3 c3 d3]>") # "bassWarsaw" # cut 1 d8 $ gF1 $ gM $ midiOn "^92" (ply 4) $ iter "1 <1!4 4!4>" $ chop 8 $ loopAt 2 $ "break:2" -- # n 4 # cut 8 # gain 0.7 d10 $ (0.5 <~) $ n "<1 2 3 4 5 6 7 8>" # "numbers" # crush 8 # hpf 1250 once $ "ho:5" # gain 0.5 once $ "jungle_breaks:27" # cut 1 once $ note "a3" # "superpiano"