-- Balais metallique, menage en musique!
resetCycles

do
solo 1 -- Kick
solo 2 -- Claps
solo 3 -- Balais
solo 4 -- Space
solo 5 -- Basse
solo 6 -- Juno Metal !
let mKick = "<t [f!3 t] t!10 f!3 t>"
let mClaps = "<f!4 t!8 f!3 t>"
let mBalais = "<t!4 f [f t?] [t f?]!2 t!4 f!3 t>"
let mJuno = "t" -- "<f!8 t!16 [<f t> f .  t]!4>"
let mel = "<c'maj!3 c'min c'min!3 c'maj>"
d1
  $ mask mKick
  $ fast "<2!2 4!14>"
  $ "k" # "jazz" # gain 0.85
d2
  $ mask mClaps
  $ juxBy "0.4" ((1/64) ~>)
  $ fast 2 $ s "~ clap"
  # lpf 4000
  # gain (slow 16 $ range 0.6 0.8 saw)
d3
  $ mask mBalais
  $ juxBy 0.35 rev
  $ "b(3,8,<3!4 5!4>)" # "bend"
  # dry 0.95 # sz 0.8 # room 0.9
  # gain (slow 4 $ range 0.6 0.8 cosine)
d4
  $ mask "<t f!3 t!2 f!2 t!6 f t>"
  $ superimpose (
    (stut' 4 (slow 4 $ "<h q e s>") (|* gain 0.9))
     . (# octave 6)
  )
  $ note (mel)
  # s "hoover"
  # octave 4
  # gain "<0.45!32 0.35!32>"
  # pan 0.6
d5 -- Basse
  $ note ("c'maj c'maj(<1 3>,<8 4>)" |+ mel)
  # "supersaw"
  # octave 3
  # voice 0.1
  # gain 0.35
  # pan 0.3
d6
  $ mask mJuno
  $ whenmod 128 104 (# n 1)
  $ whenmod 128 96 ((# n 8) . (|* gain 0.9)) -- Aigu
  $ whenmod 128 80  (# n 7) -- METTALIZE
  $ whenmod 128 64  (# n 4) -- Metallique
  $ superimpose ((|- note 12) . (|* gain 0.9))
  $ off "e" (|+ note "<0!4 7 5 3 0>")
  $ note (scale "aeolian" "0 ~ 2 <4 5 4 3>")
  # "juno:1"
  # gain 0.55
   # pan "<0.6!24 0.65 0.7 0.75!2 0.7 0.65 0.6>"
