party_hard.tidal

-- Beat
do
-- region Nova Utils
let maxG = 1.5
let gG a = (gain ("^77" * (min maxG a))) -- gain Global
let gM' l h a = (gG (range l h a)) -- gain Modéré
let gM a = (gM' 0.2 0.9 a) -- gain Modéré doux
let gDelay = ((# delay 0.125) . (# delayfb (range 0 0.8 "^13")))
let gLPF = (# lpf (min 10000 ((range 200 19800 ("^49")))))
let gHPF = (# hpf (max 0 (min 10000 ((range "-9000" 9000 ("^49"))))))
let gDJF = (gLPF . gHPF)
setcps (80/60/4)
let g = id
-- endregion Nova Utils
let g = gDJF
let blues = ["c", "f", "c", "c", "f", "f", "c", "c", "g", "f", "c", "c", "g", "f", "c", "g"]
let chord = "c'maj"
let chordAug = "c'maj'8"
d1
  $ g
  $ (0.01 <~)
  $ sometimesBy ("^73") (fast 2)
  $ somecyclesBy "^41" ((<| "k*4") . (|* gain 1.1))
  $ somecyclesBy (1 - "^41") (<| "k . k(<3 5>,8)")
  $ "[jazz,808bd:1]"
  # gM' 0 0.95 "^78"
-- Break
d2
  $ g
  $ loopAt 1
  $ someCyclesBy "^74" -- Leg
  (slice 8 "0 ~ 2 ~ 4 ~ <6!3 ~> ~")
  $ someCyclesBy "^75" -- Med
  (slice 8 "0 ~ 2 3 4 <5 6> 6 4")
  $ someCyclesBy "^76" -- Heavy
  (slice 8 "0 1 2 3 4 3 6 6*2")
  $ "fbreak80:2"
  # cut 1
  # lpf 5000
  # gM' 0 1.4 "^79"
d3 -- Drumroll masked
  $ g
  $ someCyclesBy "^44" (fast 2)
  $ sometimesBy "^52" (mask "t f!6 [t f]")
  $ "drum*<8!3 [8 16]>"
  # "gretsch:4"
  # gM' 0.2 1.2 "^80"
d4
  $ sometimesBy "^57" (superimpose (
    ply "<2 4 [4 8] 8>" .
    mask "t(1,4)"
    . arpeggiate
    . (# "superpwm")
    . (|* gain 0.8)
    . (# pan 0.6)
    . (# crush 16)
    . (# voice 0.2)
    . (# octave 5)
  ))
  $ sometimesBy "^89" (chop 8)
  $ note (cat blues + chord)
  # "bassWarsaw"
  # pan 0.75
  # room 0.1
  # octave 4
  # crush (range 11 6 "^53")
  # voice 0.8
  # room 0.1
  # gM' 0.6 1.1 ("^81")
d5 -- Choeurs
  $ sometimesBy "^90" (rev)
  $ superimpose (
  (0.5 ~>)
  . superimpose (
    sometimesBy "^58" ((euclid (slow 4 "<3 3 3 5>") 8) . (|+ gain 0.1))
    . arpeggiate
    . (|+ note chordAug)
    . (# pan 0.55)
    . (|* gain 0.95)
    )
  . (|+ note 12)
  . (|* gain 0.95)
  . (# legato 0.5)
  . (# pan 0.45)
  )
  $ note (cat blues)
  # "moogBass"
  # gM' 0 1.2 "^82"
  # octave 3
  # room 0.4
  # size 0.7
  # dry 1.05
d7
  $ sometimesBy "^59" (# lpf 2000)
  $ g
  $ sometimesBy "^91" (fast 2)
  $ whenmod 4 2 (superimpose ((# "clap") . (# lpf 4500) . (|* gain 0.8)))
  $ fast 2
  $ "~ cp"
  # gM' 0 1.5 "^83"
  # room 0.2
  # dry 0.9
  # lpf 2000


once $ "dr" # gain 0.8



gain
once


j