once $ "dr" # gain 1.75 do setcps (80/60/4) let gPont2 = (someCyclesBy "0!32 1!8 0!24>" (# djf (slow 8 $ range 0.5 1 saw))) let gPont = (whenmod 32 24 (# djf (slow 8 $ range 0.5 0 sine))) let g = gPont let gPonts = gPont . gPont2 d1 $ g $ "j . j(<1 2 4 5>,8,<0 2 1 <0 3>>)" # "hh27:5" # cut 1 # gain 1.5 d2 $ g $ mask "<f!16 t!16>" $ whenmod 16 12 (fast "<2 [4 2] 2 [4 . 8 2]>") $ "~ cp" # "hh27:2" # release 0.57 # note "-5" # gain 1.8 d3 $ g $ sometimesBy "0 <1!3 0.5> 0 <0!3 0.5>" (ply "[8|8 16|16]") $ "h h h <h(<1 2>,2,<0!3 1>) [~!3 h]>" # "[hh27:3,drum:2]" # release 0.8 # gain 1.25 d10 $ g $ note ( "<c!3 d>(<3 3 2 5>,8)" -- Rythme + "[0,12]" -- Epaisseur - 36 -- Gamme baseline ) # "supersaw" # legato 2 # room 0.7 # sz 0.8 # pan 0.24 # voice 0.03 # gain 0.5 d4 -- BASSLINE Résolue $ g $ mask "<f!4 [t f]!4 t!24>" $ ply "1 <1!4 2 2 [2 4] [8 4]>" $ slice 4 "<0!4 1 1> . <0!3 1 1 0 2 3>" $ "fbass:43" # gain 1.1 # cut 4 # pan 0.2 # room 0.2 # dry 0.99 # sz 0.7 d5 -- Guitare Ressort -- $ someCyclesBy ("<1!8 0!24>") (|* gain (slow 8 $ min 1 (range 0.5 2 saw))) $ someCyclesBy "<1!16 0!16>" -- degrade (mask "f t" . (|* gain (slow 16 $ range 0.5 1 saw))) $ slice 8 (cat [ "0 . <~ 4> <~!3 6>", "0 . ~ 0*<1 <2 4>>", "~ . 0 <3 [6 7]>", (iter 4 $ "0 1*<1 2 4> <2 3> <3 2> . 4 5 6 7") ]) $ "fguitar:43" # room 0.1 # dry 0.99 # cut 5 # pan 0.8 # gain 1.1 d6 -- Sliced Electropiano $ jux (("<q h>" ~>) . (|* gain 0.65) . (# cut 61)) -- Brother echo! $ someCyclesBy "<0!16 0!8 1!8>" (slice 16 ("<0 1 2 3 4 5 6 7>" + "<0!4 8!4>")) $ someCyclesBy "<0!16 1!8 0!8>" (slice 16 "<2*2 [0 2 2 2] 2*[8 . 16 4] [3 2 3 2] [3 2 1 0] [4 5 6 5] [3 2 6 7] [4 5 6 7]>") $ someCyclesBy "<1!16 0!16>" (slice 16 "<0 1 0 1 [0 1] [0 1] [0 . ~ 1] [0 0 0 1]>") $ "fepiano:26" # pan 0.3 # gain 1 + "<0!4 0.1!4>" # cut 6 once $ "fepiano:26" # gain 0.7 # cut 7 let linput = pI "linput" let lname = pS "lname" once $ s "looper" # lname "lHome" once $ "lHome" # gain 1.6 once $ "hh27:1" -- Ho lo once $ "hh27:10" -- Ho hi soft once $ "hh27:2" -- Maracas fermées once $ "hh27:9" -- Maracas fermées lo once $ "hh27:3" -- Maracas ouvertes / balai once $ "hh27:8" -- Same plus aigu once $ "hh27:4" -- Clochettes once $ "hh27:5" -- Kick neige once $ "hh27:6" -- Kick sec once $ "hh27:12" -- Snare lo once $ "hh27:11" -- Snare hi