crystal_d_ete.tidal 1.81 KB
do
setcps (90/60/4)
let modIndex = pF "modIndex"
let f1 = (# djfbus 1 (range 0.05 0.95 "^49"))
let f2 = (# djfbus 2 (range 0.05 0.95 "^50"))
d1 $ f1
  $ struct "t*<1!7 [4|2]> . <t t(<3 [<3 5>| 5]>,8)>"
  $ superimpose ((# "jazz:0") . (|* gain 0.8))
  $ n "[3,5]" # "808bd" -- MEGAKICK
  # lpf 2000
  # midiG' "^78" 0 1.5
d2 $ f1
  $ midiOn "^43" (fast 2)
  $ "~ snare:20"
  # lpf 2400 # att 0.01 # rel 10
  # midiG' "^79" 0 1.5
d3 $ f1 -- tio toc break clock
  $ slice 16 "0 1  . <[0 1] [<0 0 2 <0 2>> 1*<1!3 <4 2>> <2 <~ 2?>> 3]>"
  $ loopAt 2
  $ "break:13"
  # cut 3
  # midiG' "^80" 0 1.2
d6 $ f2 -- Not even honest work bassline
  $ midiOn "^89" (chop 4 . (# cut 6))
  $ sometimes (off 0.5 (jux (|* gain 0.93))) -- ECH0ES
  $ note ("<cs <cs@2 d@2> [~ <cs <e d [cs d] e>>]>" - 12)
  # "bassWarsaw"
  # room 0.3 # dry 1 # sz 0.9
  # midiG' "^81" 0 1
  # crushbus 61 (range 16 2 "^53")
  # pan 0.8
d4 $ f2 -- Clochettes du depart
  $ note ("d . d(<1!3 3>,4,1)" |+ "<c f>")
  # "808lc:0"
  # midiG' "^83" 0 1
  # room 0.4
  # sz 0.4
  # dry 1
  # pan 0.2
d5 $ f1 -- Tambourins du destin
  $ whenmod 32 24 (mask "<t !3 f> . f!3 t")
  $ "[<~ <~!8 d!8> ~ d> . d*<1 <2 4>>]*4"
  # "[cpu:2]"
  # gain 0.6
  # delay "<<0.5!2 [0.5|0.8]*4 0.8>!3 0.8>"
  # delayt 0.25
  # delayfb 0.2
  # room 0.5 # dry 1 # sz 0.2
  # pan (slow 1 $ range (range 0.5 0.9 "^20") (range 0.5 0.1 "^19") (saw + perlin))
  # midiG' "^84" 0 1.5
d7 $ f2 --
  $ midiOn "^58" (superimpose ( -- Crystal rain
    (|+ note 12)
    . (# pan 0.9)
    . (|* gain 0.9)
    . (# modIndex (slow 32 $ range 0 20 perlin))
    . (# delay (slow 13 $ range 0.1 0.8 perlin))
    . (# delayt 0.125)
    . (# delayfb "<0.5!3 0.9>")
    ))
  $ struct "t(<2 3>,<<4 2> 8>) . t(5,8)"
  $ arp "<up!3 down>"
  $ ply 2
  $ note ("<e'maj'2!3 cf'maj'2>" - 12)
  # "FMRhodes1"
  # pan 0.7
  # midiG' "^82" 0 1