bottled_baby.tidal 2.13 KB
do
  let gKick = 0.65
  let gSnare = 0.6
  let gDrums = 0.8
  let gHats = 0.57
  let vPiano = 0.35
  let gCloches = 0.7
  let gBass = 0.5
  let gBrass = 0.5
  setcps 0.45
  solo 1 -- Kick
  solo 2 -- Snare
  solo 3 -- Drumroll
  solo 4 -- Piano
  solo 5 -- Bass
  solo 6 -- Hats
  solo 7 -- Cloches
  solo 8 -- Brass
  d1
    $ whenmod 16 14 (slow "<2 [1 0.5]>")
    $ whenmod 32 24 ( -- Pont solo basse
      degradeBy "1!7 [1 . 1 0]"
      )
    $ s "k k k k*[1|2]"
    # s "jazz" # hpf 100 # gain gKick
  d2 -- Snares decroissants
    $ whenmod 32 24 ( -- Pont solo basse
      # silence)
    $ often ( -- Echos filtre decroissant
      stut' 4 0.125 (|* lpf 0.8)
    )
    $ fast "<1!7 [2 4]>"
    $ s "~ snare:20"
    # lpf 5000
    # gain gSnare
  d3
    -- $ whenmod 32 24 ( -- Pont solo basse
      -- # silence)
    $ fast "8 <8!4 [8 16]!4> <8!8 16!8> [8 16]"
    $ s "drum:8"
    # gain gDrums
  d4
    $ whenmod 32 24 ( -- Pont solo basse
      |+ gain "<0.1 0.2 0 -0.1 -0.2!4>"
    )
    $ (0.25 ~>)
    $ off 0.125 (# lpf 250)
    $ note (
      "<f4'maj!3 f4'min f4'min!3 f4'maj>"
      )
    # s "superpiano"
    # velocity vPiano
  d5 -- Bassline
    $ mask "t([1|2|4],8)"
    $ superimpose -- Accélération 8-bit!
      (fast 2 . (# crush 6))
    $ note (
      slowcat [
      "0 3 5 ~ <~ 5> <5 ~> 5 ~",
      "<5 ~> <~ 5> 5 5 <3!3 8> ~ <3!7 7> ~"
      ]
      )
    |- note 24
    # s "supersaw"
    # voice 0.2
    # sustain "0.25!2 0.5 0.25"
    # pan 0.6
    # gain gBass
  d6 -- Hats open-closing
    $ s "ho(<1!3 2>,2) hc:2*<1!4 2!4 4!4 8!4>"
    # n "[0|1] 3"
    # cut 6
    # gain gHats
  d7 -- Accelerating Bells
    $ superimpose (slow 2 . arp "<updown!3 downup>")
    $ someCyclesBy "<0!8 0.5!4 0.75!4>" (fast 2)
    $ note ("0(1,8)"
    + "<f3'min!3 f3'maj>"
    )
    # sustain 1
    # s "superfork"
    # gain gCloches
  d8 -- Brass lancinant
    $ whenmod 128 64 (# gain gBrass)
    $ whenmod 32 24 (# note "<0!3 7>")
    $ whenmod 64 32 (off 0.25 (# begin 0.75))
    $ note ("~!7 <0!4 2 3 5 7>")
    # begin 0.5
    # room 0.6 # sz 0.8
    # s "brass:6" # gain 0

once $ s "brass"
# n 6
# note
# begin 0.5
# gain 0.7
-- # speed 1.2
# cut 10