feeling_electric.tidal 1.54 KB
setcps 1

d1 -- bass
-- $ whenmod 64 32 ((# gain 1) . (# room 0.2))
-- $ whenmod 32 16 (# silence)
$ slow 2
$ note (
  scale "major" (
    cat [
      " 1  1 ~ . ~ [~ 0]",
      "0 [0 1] ~ ~ . ~  "
    ]
    + "[0, 7]" -- gamme
  )
)
# s "bass3"
# gain 0.8

d1 -- autre Basse
$ whenmod 8 4 (|- n 2)
$ someCyclesBy 0.4 ((superimpose (|- 7)) . (|+ 7)) -- 2: matiere plastique
$ someCycles (off 0.25 (|- 7))
$ n (scale "major" "[0 0] ~ 1 0 1 1 0 0")
|- 14
# s "subBass1"
# gain 0.9


d2 -- hit roll
$ someCycles (# s "dr:2")
$ someCycles (# s "dr:1")
$ s "<hh*4 hh*4 hh*4 [hh*4 ~]>"
# s "hh"
# release 0.5

d3 -- claps
$ whenmod 32 16 (degradeBy 0.2)
$ s "<[~ cp] [~ cp] [~ cp] [~ cp . cp ~]>"
# s "clap"
# gain 1.1

d4 -- fork
$ whenmod 50 0 (# release "0.05,0.01 .. 0.5")
$ off 0 ((# s "supergong") . (# gain 0.5) . (# release 0.5))
$ s (cat [
"~ f f*2 ~"
, "f f ~ f"
, "f*2 ~ f f"
, "[f*4] ~"
])
# s "superfork" # n (scale "major" (-4))
# release 0.5

d5 -- kick
$ fast 2
-- $ fast "<2 4 2 2 1 0>"
$ every 4 (degrade)
-- $ s "kick:19"
$ s "kick:5"

d6 -- drums 80s
$ degrade
$ superimpose (# n 0) -- tick
$ fast 8 $ "electro1" # n (choose [1,2,2,2,3,3,3])

d7 -- lead orgue
$ degradeBy 0.4
$ rev
-- $ slow 2 $ degrade $ (|+ note 7)
$ sometimes (off "<0 0.125 0.25 0.25>" (# s "[organTonewheel0,organTonewheel4]") . (|- gain 0.1))
-- $ superimpose (# s "organTonewheel2")
$ superimpose (# s "organTonewheel3")
$ chop "<2 4 4 8 8 2>"
$ off (1/4) (|+ note "<5 7 3 0 5>")
$ note "-7"
# gain 0.75
# room 0.8
# dry 2
# size "<0,0.05 .. 0.3 0.3,0.05 .. 0>"
# s "organTonewheel1"