contre_visite.tidal 4.52 KB
do
-- TRIGGER INTRO :)
-- resetCycles
-- once $ "90s_synatm:8" # gain 0.5 # panbus 41 (range 0.2 0.5 saw) # room 0.4 # sz 0.94
let g = (whenmod 64 32 (# djfbus 2 (slow 32 $ range 0.5 0.18 cosine)))
let gF = 1.01
let f1 = (# djfbus 1 (range 0.05 0.95 "^49"))
let f2 = (# djfbus 2 (range 0.05 0.95 "^50"))
let f3 = (# djfbus 3 (range 0.05 0.95 "^51"))
let gMute = (midiOn "^73" (mask "f*16"))
let gMute2 = (midiOn "^74" (mask "f*16"))
let maskLoops = (mask "<t!4 [t!3 f]>" . mask "<t!14 f [f!3 t]>")
setcps (90/60/4)
d1
  $ f1 $ gMute2
  -- $ kCrush
  $ midiOn "^42" (struct "t t t <t!2 [<~ t> <t t?>]>")
  $ midiOff "^42" (struct "t . <~!4 t(<3!3 1>,8,<<0 3 <3 0> 0>>)!12>")
  -- $ mask "<f!32 f!8 t!16 t f!6 [t f] t!64>"
  -- $ "[808bd:6,kick:8]"
  $ fix ((# hpf 500) . (|* gain 0.7)) "kick:5"
  $ "[jazz,kick:5]"
  -- # room 0
  # gain 1.3
d2 $ f1 $ gMute
  $ mask "<t(<1!3 3>,4)!4 t!28>" -- Intro / break/32
  $ midiOff "^75" maskLoops
  $ midiOn "^75" (ply "2 <2!3 4>")
  $ midiOn "^43" (slice 4 (run 8))
  $ mask "<t [t!6 f t] t t t!4>" -- Degrade mid-loop!
  $ iter "1 <1!4 4 4 4 2>"
  $ loopAt 2
  $ slice 8 (run 8)
  $ "break:20"
  # pan 0.4
  # cut 2
  # speed (range "-0.25" 2.25 "^31")
  -- # midiG' "^79" 0 1.3
d11 $ f1 $ gMute -- Snare <3 chak reverb phantome
  $ struct "[~ t]*2"
  $ "[snare:34,cp]"
  # lpf 2000
  -- # midiG' "^14" 0 1.8
d3 $ f1 $ gMute -- Sidekick, doubtful, yet hardworking hats
  $ midiOn "^76" (ply "[4 <1 2>]*<4!3 8>")
  -- $ mask "<t(<1!3 3>,4)!4 t(2,8)!8 [<t!3 [t f]>]!52>" -- Intro / break/32
  $ maskLoops
  $ someCyclesBy "<0.6 1>" (stut "<2 3 4>" 0.5 "s")
  $ sometimesBy (0.1 * "[0 <0 0.5> 0 <1!3 2>]!4") (# silence)
  $ ply "<1!8 <2 <2 [2 2 4 2]!7> <2!4 4!4> <4!2 [4 4 8 4] [4 8 <8 4> 4]!3 4>>>"
  $ "hh*4"
  # "h2ogmhh"
  # pan 0.6
  # room 0.2
  -- # midiG' ("^80" + 0.08 * (slow 2 perlin)) 0 1.3
  # gain (0.8 + 0.08 * (slow 2 perlin))
d4 $ f3 -- Atmospheric synth: aerial questions
  $ midiOn "^89" (|+ note "<2 2 4 <4 12>>")
  $ midiOn "^57" (chop "<[16@3 32] [32@3 64]>")
  $ "90s_synatm:8/4"
  # cut 4
  # room 0.8
  # legato 4
  # dry 1
  # pan 0.45
  # crushbus 42 (range 16 3.4 "^53")
  # legato 2
  -- # midiG' "^81" 0 1.5
d5 $ f2 -- Synth: ELECTRONIC ANSWERS
  -- $ mask "<f!32 t!96>" -- Intro
  $ midiOn "^90" (ply "1 <1!3 [0 1 <2 0> <0 2>]> <2!3 [[2 0] 1]> <1 2>" .slice 16 ("<0 1 2 3>*8" + "<0!4 4!4>"))
  $ midiOn "^58" (chop "<4 8 16 [32 64 . 128]>")
  $ "90s_synatm:14/4"
  # cut 5
  # room 0.65
  # pan 0.43
  # dry 1
  # panbus   51 (range 0.8 0.65 saw)
  # crushbus 52 (range 16 2.85 "^54")
  # octersubbus 53 (range 0 1.85 "^34")
  # midiG' "^82" 0 2
d7 $ f3 -- High lead: Winds of truth
  $ juxBy 0.5 ((# cut 61) . rev) -- Jux rev <3
  $ whenmod 8 6 (swing "<4 2>")
  $ whenmod 32 8 (superimpose ( -- Echos of doubts
    (arp "<up!3 down>")
    . (sometimesBy (range 0 "<0.25!3 <0.5 0.75>>" saw) (ply 2))
    . (# pan 0.1)
    . (+| note "[12,19,<21 21 17 18>]")
    . (# cut 61)
    . (|* gain 0.6)
    ))
  $ note (scale "aeolian" "<0!3 [0@6 <4 -1>@2]> 2")
  # "90s_synatm:18"
  -- # room 0.4 # sz 0.8
  # dry 0.1
  # cut 7
  # crushbus 62 (range 16 2.25 "^55")
  # panbus 63 (range 0.05 0.95 "^19")
d8 $ f1 $ gMute2 -- Breaks divins
  $ midiOn "^92" (off "e" id)
  $ midiOn "^60" (mask "[f t]")
  $ someCyclesBy "^36" (loopAt 1 . mask "[f t]*4" . chop 16 . (# n 81))
  $ someCyclesBy "^56" (chop 8 . loopAt 1 . (# "fbreak120:3"))
  $ loopAt 2
  $ chop 8
  $ "jungle_breaks:1"
  # cut 8
  # pan "[<0.35!3 0.65> <0.65!3 0.35>]*4"
  # midiG' "^84" 0 1.2
  # pan 0.8



d10 $ f1 -- RANDOM FOREST NOISES
  $ fix (
    -- kCrush .
    struct "t t t t t*<1 2> [<t!2 ~ t> <t!2 ~ t>] t t"
    . (# "[future:1,jazz]")
    . (# midiG' "^13" 0 1.8)
  ) ("n1")
  $ fix (
    struct "[~ t]*2"
    . (# "[snare:34,cp]")
    . (# lpf 2000)
    . (# midiG' "^14" 0 1.8)
  ) "n2" -- tchak reverb phantome
  $ fix (
    whenmod 32 16 (someCyclesBy (slow 16 $ saw) (iter 4 . ply "2 [2|1]"))
    . struct "t([3 <3!3 5>],8,<0!8 3!8>)"
    . (# n "<3!3 [3 2]>")
    . (# "amencutup")
    . (# pan 0.88)
    . (# midiG' "^15" 0 1.25)
  ) "n3" -- amen break excerpt
  $ fix (
    (# "gretsch:10")
    . (struct "t*3 ~ . t*<1!3 2> t*<1 3>")
    . (# cut 104)
    -- . (# pan (range 0.5 0.9 perlin))
    . (# midiG' "^16" 0 1.65)
  ) "n4" -- FX1
  $ fix (
    (# "[dr,drum:2]")
    . (slow "<1!24 2!8>")
    . (struct "t*[16!3 <16!3 [32 16 32 16]>]")
    -- . (# cut 105)
    . (# pan (range 0.02 0.25 perlin))
    . (# midiG' "^17" 0 1.4)
  ) "n5" -- Drumroll
  $ "[n1,n2]" -- n4
  # gain 1

once $ "fx_gameboy:3" # gain 0.8 # cut 10


once $ "bassWarsaw" # freq 82 # gain 1.2 # cut 3