once $ "bd" setcps (-1) do -- Accompagnement: -- Gauche <[c,e] [b,d] [f,a,c]@2> -- Droite All the way <3 let modIndex = pF "modIndex" let gDJF1 = (# djfbus 1 (range 0.05 0.95 "^49")) let gDJF2 = (# djfbus 2 (range 0.05 0.95 "^50")) let gMask = mask "t t <t <t f> t <f [f t]>>" let g1 = (gDJF1 . gMask) let g2 = (gDJF2 . gMask) setcps (86/60/4) d1 $ g1 $ fix ( (|> note ( -- "<e!4 c!3 e> <c!4>" "<e e a c e e f e> <c!4 c!4>" + "4" -- Proper tuning + "[0,12]" ) ) . (|* gain 0.8) ) "808bd" $ midiOn "^42" (<| "k k k k <k!7 ~> k k <k*2 [~ k]>") $ midiOn ("^41" - "^42") (<| "k k k <k*2 [k k*2] k [~ <k k*2>]>") $ midiOff ("^41" + "^42") (<| "k . k(<5 <7 [3 7]>>,8,<0!6 3 <3 0>>)") $ "[bd,808bd:4]" # midiG' "^78" 0 1.2 d2 $ g1 $ fast 2 $ "~ cp" # "clap:1" # midiG' "^79" 0 1.2 d3 $ g2 $ midiOn "^44" (fast "<1!6 2 [2 4]>") -- Gratuitous snare rush $ ply "2 <2 4>" $ "sn:27*4" # midiG' "^80" 0 1.2 d4 $ g2 $ note "<e4 d4 <a3!3 f4>@2>" # "supersaw" # octave 3 # cut 4 # crushbus 41 (range 16 2.5 "^53") # panbus 42 (0.5 + 0.1 * perlin) # room 0.2 # sz 0.5 # dry 0.8 # midiG' "^81" 0 (1.2 - 0.2 * "^53") d5 $ g2 $ sometimesBy "0 0.05!14 0" (# crush 2) $ sometimesBy 0.1 (ply 2) $ swing "1 4" $ midiOn "^58" (superimpose ( mask "<t!16 f(<14 10>,16)!3 t!13>" . (|+| note ( arp "<pinkyup <converge thumbupdown>>" "<c'maj'4!7 c'maj'8>*4" )) -- . (|* gain 0.86) )) $ note "e3 <a5 b5 b5 c6>" # "FMRhodes1" # pan 0.7 # room 0.4 # midiG' "^82" 0 1.2 # modIndex (range 0 100 "^34") # crushbus 51 (range 16 2.5 "^54") d6 -- Break balance $ g1 $ midiOn "^60" (sometimesBy "0.5!14 0!2" $ ply 2) $ midiOn "^92" (slice 8 ("0 1 2 3 0 5 6 <7 3 7 [3 3]>")) $ midiOff "^92" (slice 16 (run 8)) $ loopAt 2 $ "break:26" # cut 6 # midiG' "^84" 0 1.2