invoque_ete.tidal 2.65 KB
import Sound.Tidal.ParVagues.Control

resetCycles


-- Invoque l'été
-- Il ne viendra pas tout seul ;)
do
setcps (115/60/4)
let gF = 1.5
let mBreak = (midiOn "^41" (mask "t f . f <f!4 t!4> <f!2 t!6> t"))
let m = mBreak
let f1 = (# djfbus 1 (range 0.1 0.9 "^49"))
let f2 = (# djfbus 2 (range 0.1 0.9 "^29"))
d1 $ f1 $ m
  $ midiOn  "^41" (slow 4)
  $ midiOn  "^42" (<| "k k k <k k k*2 [~ k]>")
  $ midiOff "^42" (<| "k*2")
  $ "[jazz,kick:5]"
  # midiG' "^78" 0 1.2
d2 $ f1 $ m -- Clave de l'été
  $ midiOn "^43" (fast 2)
  $ midiOn ("^75"-"^43") (fast 2)
  $ (|* gain ("0.75 1 1 1 0.75 1 1 1" * 1.7))
  $ "d ~ ~ d d ~ d <~!3 d>"
  # "[snare:22,sn:4]"
  # midiG' "^79" 0 1
  # speed (range 0 2 "^51")
d4 $ f1 $ m -- Mecano Course
  -- $ fast "<<4 2> 4!7 2!4 2 2 4 8>"
  $ sometimesBy "0 ^32!7" (ply 4)
  $ someCyclesBy "^52" (iter 4)
  $ midiOn "^76"  (slice 8 (run 8) . (|* speed 2) . (>| "breaks165"))
  $ midiOn "^44"  (slice 16 ("0*<1 2> 1 2 3*<2 1>"))
  -- $ midiOn "^76" (slice 8 "0 <1 ~> 7 3*<1 2 4 4>")
  -- $ slice 8 "0 1 <2!3 0> <3!3 1 4 5 6 7>" "0 1 <2!3 0> <3!3 1>"
  -- $ chop 8
  $ loopAt 2
  $ "breaks125:3"
  # midiG' "^80" 0 1.5
  -- # speed (range 0 2 "^16")
  # cut 4
d5 $ f1 $ m -- Bassline variable double piste
  $ loopAt 2
  $ slice 8 (run "<4!4 8 8 [4 8 4] [8 4 8]>")
  $ midiOn ("^57" + "^89") (# n 14)
  $ "fbass:13"
  # pan 0.2
  -- # room 0.2
  # crushbus 51 (range 16 4.5 "^53")
  # midiG' "^81" 0 1.2
  # cut 4
d6 $ f2 $ m -- Douce guitare juxée
  $ chop 16
  $ midiOn "^58" (juxBy 0.85 ((# cut 31) . rev . (|* gain 0.93)))
  $ whenmod 16 12 (rev)
  $ whenmod 8 4 (chop 4)
  $ loopAt 4
  $ "fguitar" # n "<12!16 13!16>"
  # midiG' "^82" 0 1
  # release (range 2 0.15 "^34")
  # crushbus 61 (range 16 1.4 "^54")
  # pan 0.85
  # room 0.2 # dry 1
  # cut 3
d7 $ f2 $ m
  $ loopAt 4
  $ mask "t(<4 8 12 16>,16)"
  $ slice 16 (run 16)
  $ "fpiano:13"
  # pan 0.45
  # room 0.2
  # midiG' "^83" 0 1.4
  # cut 7
d12 $ f2 $ m -- Angels of moogland
  $ midiOn "^92" (|+ note 24)
  $ midiOn "^60" (
  superimpose (
    struct "t(5,8)"
    . arp "[down,up]"
    . (|+ note 12)
    . (|- pan 0.1)
  ))
  $ note "<a3'maj g3'maj a3'min d3'maj>"
  # octave 4
  # room 0.24
  # "moogBass"
  # pan 0.4
  # crushbus 81 (range 16 1.4 "^56") -- Even an angel can fall in love
  # midiG' "^84" 0 1.3


-- Sandbox

-- TODO Manual scratcher? FIXME Too manual?
d9 $ f1 $ m
  $ degradeBy (slow 16 $ range 0.8 0.2 saw)
  $ struct "t(3,8) [<t!3 [~ t]> <t ~> <t t*2> <t*2 t t*2 t*2>]"
  $ midiOn "^59" (# speed (range 0.25 2 ("^55" + perlin)))
  $ midiOff "^59" (# speed
    (segment 16 $ fast 2 $ range 0.25 1.2 (perlin + (slow 8 $ sine)))
  )
  $ "hh:3"
  # lpq (range 0 0.2 "^35")
  # midiG' "^19" 0 1.7