-- Ré comme remède
-- Instru minimaliste piano/Rhodes/hammond
do
-- resetCycles
setcps (80/60/4)
d1 -- Kick
  $ mask "<t!32 f!8 t!24>" -- Pont milieu
  $ whenmod 32 16 (<| "k . k(<3 <5 [1 3]>>,8)")
  $ whenmod 8 6 (mask "t <t f>!3 . f")
  $ every' 8 3 (<| "k . k(5,8)")
  $ mask "<f!8 t!24>"
  $ "[dr:5,jazz]"
  # lpf "<[1000!3 1500]!16 1500!16>"
  # gain 0.8
d2 -- Drumroll mi-temps
  $ mask "<t!32 f!4 t!28>" -- Pont milieu
  $ whenmod 8 6 (mask "t <t f>!3 . f")
  $ mask "<f!16 t!16>"
  $ juxBy 0.85 ("q" ~>)
  $ sometimesBy "0!3 1" (ply 2)
  $ "~ drum:2*<4!3 <8 <16 [16 8]>>>"
  # gain 0.65
d3 -- Charley des sables
  $ mask "<f!4 t!60>" -- Intro
  $ mask "<t!32 f!6 t!26>" -- Pont milieu
  $ fast (slow 8 $ "<1 2 4>" )
  $ "~ dr:2"
  # gain 0.45
  # legato 2
  # room (slow 32 $ range 0 0.125 saw)
  # sz 0.8
d4
  $ mask "<t!32 f!8 t!24>" -- Pont milieu
  $ note "<d <es <bs4 g>>>"
  # octave 4
  # "superhammond"
  # gain 0.55
  # pan 0.4
  # voice 2
d5 -- Lead
  $ mask "<f!4 t!60>"
  $ mask "t <t f>"
  $ whenmod 64 32 ( -- Sliced madness
    slice 8 (run "<8!8 4!8 2 1 2 2 4 8 16 8 16 16 32 16 [32 16] [16 1] 2 8>")
    . (# hpf (slow 32 $ range 0 5000 saw))
    . (|* gain 1.05)
  )
  $ "fpiano/2"
  # n "<8!4 9!4>"
  # gain (slow 8 $ range 0.5 0.45 saw)
  # hpf "<0!6 2500 5000>"
  # cut 5
  # pan 0.6
d6 -- Bassline
  $ mask "<t!32 f!4 t!28>" -- Pont milieu
  $ mask "<f!6 t!26>" -- Intro
  $ off 1 ((|* gain 0.8) . (# cut 61))
  $ whenmod 4 2 ( -- Echo
    off "e" (
      (|* gain 0.9)
      . (# cut 62)
      . (# room 0.2)
      )
  )
  $ slice 4 (
    "<0!4 1!4 2!4 3!4>(<[<3 <5 [8 5]>>]!16 1!16>,<8!16 1!16>)"
  )
  $ "fbass:9/2"
  # gain (slow 16 $ range 0.5 0.6 saw)
  # cut 6
  # pan 0.3
d7 -- Nappes Rhodes
  $ mask "<f!3 t f!2 t!2 t!56>"
  $ mask "<t!32 f!4 t!8>" -- Pont milieu
  $ mask "<t!4 f!4 t!6 f!2>"
  $ whenmod 32 8 (off "s" (
    mask "f t!7"
    . rev
    . (|+ note 12)
    . (|+ pan 0.25)
    -- . (|* gain 0.95)
    . (# legato 0.5)
  ))
  $ arp "up <up!3 down>"
  $ note "<~ [bs4,d,d,f,g,a,bs5,<d5 d6>]*<1 1 2 2>>"
  # "FMRhodes1"
  # gain "<0.55!4 0.65!60>"
  # pan 0.6