scratchomatic.tidal 2.19 KB
do
let gF = 1.5
let gG a = (gain (gF * a)) -- gain Global
let gR l h a =  (gain (range l h a)) -- gain Modulé noglob
let gM' l h a = (gG (range l h a)) -- gain Modéré
let gM a = (gM' 0.2 0.8 a) -- gain Modéré doux
let gLPF = (# lpf (min 10000 ((range 200 20000 ("^29")))))
let gHPF = (# hpf (max 0 (min 7500 ((range "-7500" 7500 ("^29"))))))
let gDJF = (gLPF . gHPF)
let novaOn  ch pat = someCyclesBy ch pat
let novaOff ch pat = someCyclesBy (1 - ch) pat
let novaNo c1 c2 pat = someCyclesBy ((1 - c1 - c2)) pat
-- let gRythm = (novaOn "^41" (euclid 3 8)) . (novaOn "^42" (fast 4)) . (novaNo "^41" "^42" (fast 2))
let gCPS = (# cps ((range 60 124 "^13")/60/4))
let g = gCPS . gDJF
let gAcc = g . (novaOff "^41" (# silence)) . (|* gain "^84")
d10 $ gAcc -- Kick
  $ "k(3,8) . <k k*2 [k . ~ k] <~ [~ k*4]>>" # "[jazz,hh:6]"
  # att 0.3 # sus 0.3
  # room 0.4 # dry 1.01 # sz 0.8
  # gain 2.6
d9 $ gAcc $ "drum:2*8" # gain 1
d1 $ g -- Main
  $ struct "t(3,8) [<t!3 [~ t]> <t ~> <t t*2> <t*2 t t*2 t*2>]"
  $ "hh:3"
  # speed (range 0.75 2 "^49")
  # gR 0 1.8 "^77"
  # pan 0
d2 -- moineau!
  $ g
  $ someCyclesBy "<0 0 0.25 0.5>" (swingBy "q" 8)
  $ sometimesBy "0!7 0.5" (hurry 2)
  $ fast "<8!3 16> <8 16>" $ "birds3:[0|2]"
  # speed (range 0.75 2 "^50")
  # gR 0 2 "^78"
  # pan 0.3
d3 $ g -- nass
  $ novaOn "^75" (struct "t(5,8)")
  $ novaOff "^75" (struct "t(3,8)")
  $ "nass"
  # speed (range 0.5 1.5 "^31")
  # attack (range 0.125 0.5 "^51")
  # cut 3
  # gR 0 2 "^79"
d4 $ g -- plastic visseuse
    $ novaOn  "^76" (chop "8 . [<8 [8|16]> [8|16] <[8|16] 16>] 8")
    $ novaOff "^76" (chop "[4|5] <1 2>")
    $ "[dr:3,dr:4]"
    # speed (segment 16 $  range 0.4 1.5 "^52")
    # attack (segment 16 $ range 0.01 0.5 "^32")
    # gR 0 2 "^80"
    # pan 0.6
d5 $ g
    $ sometimesBy "^54" (slow 2)
    $ sometimesBy "^53" (fast 2)
    $ fast "4 <8 4 8 16>"
    $ "jazz:6" -- Bot
    # speed (slow 16 $ range (range 0.01 1 "^33") (range 1 1.5 "^34") saw)
    # gR 0 1.4 "^81"
    # pan 0.7
d11 $ gAcc
  $ sometimesBy "0 0.75" (off "q" (|* gain 0.95))
  $ slice 8 "<[0 1] [2 3] [0 3] [2 3]>"
  $ "fbass:1"  # gain 1.4
  # pan 0.7

  # cut 11 -- Company funky



    once $

    once

    once $

    once $

    once $ "hh:3" # gain 1.2