-- Dub du dim: A retravailler, cuivres/voices?

do
-- resetCycles
setcps (120/60/4)
let melody = "0 <0 <2 -2>>"
d1 --Kick : un low et un high pour donner du relief
  $ whenmod 32 16 (superimpose (
    (|> "rave:6")
    . (# cut 11)
    . (# begin 0.75)
    . (# gain 0.8)
  ))
  -- $ "k" -- Intro
  $ "k <k!4 k?!4> k k*<1!3 <2 4>>"  -- RUN!
  -- $ "k . k(3,8)"  -- Hip chaloupe
  # "[jazz,kick:17]"
  # gain 1
  --Fx : kick étouffé, lpf Puis reverb
  # lpf 1000
  # room (0.8 * "<0!24 0.1 0.2 0.3 0.4 0.5!4>")
  # dry 1 # sz 0.5
d2 --Basse repetitive avec fort lpf
  $ jux id
  $ note ("c*<1 2> c*<1!3 2> c(<1!7 2 1!7 4 3!4 1!4>,8) [~ c]"
  + melody
  )
  # "bass3:6"
  # gain (slow 16 $ range 0.65 0.8 (saw + perlin/2))
  # lpf (slow 32 $ range 2500 200 perlin)
  # sz 0.5
d3 -- clap si grave qu'on dirait un pas de géant distant
  $ mask "<f!16 t!16>" $ "cp"
  # note (-12)
  # lpf 200
  # room 0.2 # size 0.2 # dry 1
  # gain (slow 16 $ range 0.8 1.6 saw)
d8 -- Guitar second background coming loop
  $ mask "<f!24 t!8>"
  $ scramble "<1!2 [1 2]!2 8!4> . 4 1"
  $ "fguitar:22" # gain 0.8 # cut 8
  # gain (slow 8 $ range 0.2 0.5 saw)
d4 -- Guitar lead contretemps!
  $ note ("~ 0*<1!3 <2 1>> ~ 0*<1!7 2>"
  + melody + "e'min'4"
  )
  # "bsguitar:3"
  # gain (slow 16 $ range "<1!16 0.65!16>" "<0.5!16 0.65!16>" isaw)
  # room (slow 16 $ range 0.3 0.7 saw)
  # sz 0.4
d7 -- Cuivres lancinants
  $ mask "<t!8 f!56>"
  $ swing 2
  $ slow 2
  $ arp (slow 4 "<down up>")
  $ note (
  "e2'min'2" |+ melody)
  # "brass:4"
  # legato 2
  # room 0.8
  # gain 0.5
  # pan 0.6

d9--- piano descente en conclusion`
  $ mask "<f!60 t!4>"
  $ "fepiano:7"
  # cut 31
  # gain 0.65


  --- cuivres riff boucle courte

-- Fguitar 20 chaleureuse breaks?

-- region SANDBOX
d6 -- Cuivre riff concluant!
  -- $ mask "<f!14 t f f!12 t!4>"
  -- $ whenmod 4 3 (slice 4 "0*<2 4>")
  $ loopAt 2
  $ "brass:24"
  # gain (slow 24 $ range 0.2 0.4 saw)
  # room 0.4
  # cut 6
  # pan 0.2


-- # gain 0.5
d4 -- Pluck melodie?
  $ whenmod 4 2 (swing 4)
  $ off "e" (|+| note "12 0(<1 3>,8)")
  $ slow 4
  $ arpeggiate
  $ note ("c'7f10'8")
  # "pluck:8" # gain 0.6



once $ "fpiano:10" # cut 9 # gain 0.8

once $ slice 4 (3) $ "rave:6"
# gain 0.8
# cut 21
-- # note (-12)
-- # room 0.8
-- # dry 0.25

-- TECHNO 2-sec :)
do
  d1 $ "jazz*4"
  d2 $ "hh*8" # gain 0.8
  d10 $ slice 8 (run 8) $ scramble 32 $ "bev" # gain 0.8 # cut 4

--- synthé pont reprise mélodie
--- toys space invaders :D