julien.tidal 2.58 KB

setcps (60/60) -- One pattern per second

-- Intro -- Rouge -- Blanc -- Generique -- FIN
-- 0        68       131      143          166
do
-- resetCycles
let intro = (mask "<f!2 t!164>")
let fromVelo = (mask "<f!6 t!160>")
let fromSophie = (mask "<f!11 [f t] t!154>")
let gain amount = (gain (amount * 1.5))
d1 $ intro
  $ someCyclesBy "<0!36 1!6 0!2 1!2 0!3 1!2 0!6 2!12 0!90>" (fast 4) -- Rouge
  $ superimpose ((# "reverbkick") . (# hpf 200) . (|* gain 0.7) .(# legato "<1!4 <q!3 e>!4>"))
  $ "jazz" # gain 0.5
  -- # lpf 200
d2
  $ "<d*4!4 [d [d*[1|2]]!2 d]!4 d*8!3 d*[8 16] d*[16 8]!2 d*16 d*[16 . 8 0]>"
  # "drum:2"
  # pan 0.35
  # gain 0.6
d3 $ intro
  $ whenmod 4 3 (hurry "1 . 1 2")
  $ whenmod 4 2 (off "q" id)
  $ "break:10" # gain 0.5 # cut 3 -- Runner
d4
  $ intro
  $ fromVelo
  $ superimpose ( -- Arps aigus
    fromSophie . sometimesBy 1 (ply "1 <1 2 4 8>")
    . struct ("t . t(<3!3 <5 [3 5]>>,8)")
    . arp "<up!3 down>"
    . (|+ note 12)
    . (|* gain 0.9)
    . (|+ pan 0.1)
  )
  $ note "<b'min7 <a'maj7 d'maj7>>"
  # "<FMRhodes1!8 FMRhodes2!8>"
  # octave 4
  # pan 0.4
  # gain 0.6
d5 -- RESONANT BASSLINE from Angel frappe
  $ fromSophie
  $ note "b2!6 <bs2!3 <a2 g2>> b2"
  # "supersaw"
  -- # gM' 0 1 "^81"
  # hpq (slow 24 $ range 0 0.25 perlin)
  # hpf (slow 64 $ range "-500" 500 sine)
  # room 0.5 # sz 0.8
  # gain 0.35

d10 -- Metronome timings
  -- $ every' 166 25 ((<| "a*2") . (# note "a'maj'2") . (# gain 0.8))
  $ every' 166 35 ((>| note "f(5,8)") . (# gain 0.8)) -- Moon, bientot rouge
  $ every' 166 32 ((<| "a*4") . (# note (arpeggiate "a4'maj'4")) . (# gain 0.8)) -- Hercule
  $ every' 166 30 ((>| note "f(5,8)") . (# gain 0.8)) --  Eau ACF
  $ every' 166 15 ((# note "g") . (# gain 0.8)) -- Piece?
  $ every' 166 11 ((>| note "f(5,8)") . (# gain 0.8)) -- 1 Fin couple, 2-5 Sophie
  $ every' 166 5 ((>| note "c*8") . (# gain 0.8)) -- 1-6 Fin bouche, miroir 7 8
  -- $ every' 166 9 ((# note "d") . (# gain 0.8)) -- Vetement
  -- $ every' 166 7 ((>| note "~ e ~ e*4") . (# gain 0.8)) -- Mains
  -- $ every' 166 6 ((>| note "~ ~ ~ d") . (# gain 0.8)) -- Velo
  -- $ every' 166 5 ((>| note "c*4") . (# gain 0.8)) -- Oreille
  -- $ every' 166 3 ((>| note "b(3,8)") . (# gain 0.8)) -- Main
  $ every' 166 1 ((>| note (arpeggiate "a'maj'4")) . (# gain 0.8)) -- CLAP
  $ note "a" # "arpy" # gain 0


-- MATIERE PREMIERE

-- BREAKS
do
d2
  $ "break:16" # gain 0.5 # cut 2 -- Metronome

once $ "break:12" # gain 0.5 # cut 1 -- Afro-sweat

once $ "break:11" # gain 0.5 # cut 1 -- HEAVY

once $ "break:9" # gain 0.5 # cut 1 -- cloche

once $ "break:4" # gain 0.5 # cut 1 -- coin




once $ "dr" # cut 1