-- You may: septièmes printamnières

do
  solo 1
  solo 2
  solo 3
  solo 4
  solo 5
  solo 6
  solo 7
  solo 8


do
  let cLaMin = "[4, 7, 12, 14]"
  let cReMin = "[2, 4, 8, 11]" -- le fameux sol dièse !
  let cMiMaj = "[2, 5, 7, 10]"
  setcps 0.45 -- rythme
  d1 -- Kick grosse caisse
    $ jux rev
    $ whenmod 8 6 (fast 2)
    $ fast 2
    $ s "909"
    # gain 0.35
  d3 -- Drums
    $ fast "4 <8!3 [8 . [8|16]]>"
    $ s "~ . drum:8"
    # gain 0.6
  d4 -- Basse reguliere
    $ jux rev
    $ whenmod 8 6 (# gain 0.8)
    $ n "b(<5,7>,8)"
    # note ( (scale "major" "0 . 5 2 7"
    ) - 24)
    # s "bassWarsaw"
    # gain 0.65
    # sustain "1 . <0.5 0.25> 0.25"

  d5 -- Piano lead
    -- $ superimpose (arp "down")
    $ note (
      -- scale "major" (
      "0" -- melodie
      + (slowcat
        [cLaMin, cReMin, cMiMaj, cReMin]
        ) -- base accord manuel
      )
    # s "superpiano"
    # velocity 0.35
    # sustain 4
  d6 -- Secondaire
    -- $ superimpose (arp "down")
    $ note (scale "major" (
      "8 . 7 7 . 5 . <3!3 2 2!3 3>" -- melodie
      - 7
    ))
    # s "superfork"
    # gain 0.55
  d7
    $ fast 4
    $ s "~ <h!2 [h ~ h] h>"
    # s "hh" # n "<0!7 [0|0|1]>"
    # gain 0.6
    -- # pan (slow 16 $ sine)
  d8
    $ s "glitch:2"
    # gain 0.7
    # speed (range 0.2 0.9 rand)








-- Sandbox


setcps 0.5

d1 $ s "jazz"

d1 $ s "jazz(<1 3>,8,<0 1>)"

# gain 0.6

d3 $ s "dr*8" # gain 0.8

d2 $ someCycles (fast 2) $ s "~ snare:1" # gain 0.7

d3 $ fast "<16!3 4> <8!3 [8 16]>" $ s "drum:8" # gain 0.8


d4
$ note ("<2!3 <-2 5>>"
- 14
)
#
s "supersaw"
# voice 0.1
# gain 0.6



do -- Intro choeurs "pensif"
  unsolo 1
  unsolo 2
  unsolo 3
  unsolo 4
  unsolo 5
  unsolo 6
  unsolo 7
  unsolo 8
  unsolo 9

setcps 1

d1 $ s "dr dr cp dr"