party_hard.tidal 2.34 KB
Newer Older
PLN (Algolia) committed
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54

-- 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")
PLN committed
55
    . (|* gain 0.8)
PLN (Algolia) committed
56 57 58 59 60 61 62 63 64 65 66 67 68 69 70 71 72 73 74 75 76 77 78 79 80 81 82 83 84 85 86 87 88 89 90 91 92 93 94 95 96 97 98 99 100
    . (# 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"
PLN committed
101
  # gM' 0 1.5 "^83"
PLN (Algolia) committed
102 103 104 105 106 107 108 109 110 111 112 113 114 115
  # room 0.2
  # dry 0.9
  # lpf 2000


once $ "dr" # gain 0.8



gain
once


j