elephunk.tidal 1.75 KB
import Sound.Tidal.ParVagues.Control

do
resetCycles
setcps (92/60/4)
let patFunk = "ds gf f <bf4!3 bf>"
let gDJF = whenmod 32 24 (# djf (slow 8 $ range 0.5 0.15 saw))
let gPont = whenmod 64 32 (mask "<f!6 t!26>")
let g = gDJF
d1 $ g $ gPont
  $ mask "<f!4 t!60>"
  $ "[bd,jazz]*4" # room 0.1
d2 $ g $ gFadeIntro $ gPont $ mask "<t(1,2)!4 t!60>"
  $ "~ c ~ c" # "[clap]" # gain 0.4
d3 $ g $ gPont
  -- $ mask "<f!8 t!24>"
  $ (
    mask "t . t t(2,4)"
    . sometimesBy "0 . <0 1>" (ply "2 . [2|1]*4"))
  $ "gretsch:4*16"
  # pan 0.25
  # gain (0.35 + 0.1 * (segment 8 perlin))
d4 $ g
  $ mask "<f!4 t!28>"
  $ note patFunk
  # "bass3"
  # pan 0.2
  # gain 0.5
d5 $ g
  $ whenmod 8 4 (juxBy 0.8 (mask "f t" . ply 2))
  $ note patFunk
  # "pluck"
  # room 0.6
  # sz 0.8
  # gain 0.35
d6 $ g -- Final guitare rita
  $ whenmod 64 48 (# gain 0.25)
  $ slice 16 "0 . 1 <~ 1 2>"
  $ loopAt 6
  $ "rita:0"
  # gain 0
  # cut 6
  # hpf 400
d7 -- Bonus breaks
  $ mask "<f!4 t!4 f!8 t(<4!8 [4 8]!4 8!4>,16)!16 t!3 [t f t f] t!28>"
  $ slice 8 "0 1*<1!5 2!3> 2 3 . 0 .. <<3 1>!4 7!3 3>"
  $ "breaks165"
  # pan 0.75
  # cut 7
  # gain (slow 8 $ range 0.35 0.45 saw)
  # room 0.2
  # hpf 100
d8 $ g -- Organic madness
  $ mask "<f!7 t f!4 t f!19 t!3 f t!28>"
  -- $ sometimesBy (slow 4 saw) (ply 2)
  $ chop 4
  $ someCyclesBy "<0!32 1!4 0!28>" (|* gain (slow 4 $ range 0.5 1 saw))
  -- $ mask "<f!32 t!32>"
  $ "forgan:14"
  # lpf 1000
  # gain 0.3 * "<1!7 0.95 0.9!7 0.85>"
  # cut 8
d10 -- F-U-N-K
  $ mask "<f!8 t!24>"
  $ degradeBy "0 <0.5 0.45 0.35 0.3 0.25 0.2 0.15>!7 <1!3 0>"
  $ whenmod 64 48 (swing "<6!8 [3 4]!8>")
  $ someCyclesBy "<1!48 0!16>" (ply "<1 <2 [4 2]>>")
  $ n "5 20 13 10"
  # "alphabet"
  # release 0.8
  # gain (slow 32 $ range 0.2 0.34 cosine)
  # pan "<0.1!4 0.9!4>"