-- Le naufrage : funky piano jumpy hypnotique
-- Tags: Techno, funk, piano
-- Ready: 5/10
-- Intro lead piano

do
  solo 1 -- KICK!
  solo 2 -- Hats rolling
  solo 3 -- LEAD piano
  solo 4 -- guitar riff
  solo 5 -- Théorie du naufrage
  solo 6 -- Glitches
  setcps (110/60/4)
  d1 -- KICK TODO VARIATIONS
    $ superimpose ((# "glitch") . (|* gain 0.9))
    $ whenmod 4 2 (fast 2)
    $ every 2 (fast 2)
    $ fast 2 $ "jazz"
    # gain 0.6
  d2
    $ juxBy "<<0.2 0.8> 0.5>" (rev . (hurry 2))
    $ note (stack [
      "0(3,8,<0 4>)",
      "4(<4!3 8>,8)"]
    ) # "hh" # gain 0.95
  d3 -- Piano lead!
    $ whenmod 128 64 (often rev)
    $ whenmod 64 48 (# n "<2!7 <4 [4 2]>>")
    $ whenmod 16 12
      (off "e" (
          (|+ note 12)
        . (|* gain 0.75)
        )
    )
    $ s "fpiano"
    # n (slow 4 $ "<0 1>")
    # gain (slow 32 $ range 0.5 0.65 saw)
    # legato 1
    # room 0.5 # sz 0.8
  d4
    $ whenmod 4 3 (often (striate 4))
    $ slice 2 ("<0!4 1!4>")
    $ "fbass:35"
    # gain 0.5
    # crush (slow 32 $ range 16 4 saw)
    # room (slow 32 $ range 0 0.6 sine)
    # sz 0.5
    # cut 4
  d5 -- Macron : le naufrage
    $ every 4 (# waveloss 0)
    $ ply "<1!4 1 1 2 1 1 2 2 1!5>"
    $ whenmod 64 48 (# gain 0.9)
    $ ("q" ~>)
    $ slice 3 "2"
    $ s "macron:8/2"
    # begin "<0.1!4 0!4 0.5!3 0.8!5>"
    # waveloss (slow 16 $ range 30 50 sine)
    # gain 0
    # cut 5
  d6
    $ "glitch:2(5,8)"
    # note (
      scale "major" "<0 2 4 12>" + (run 4)
    ) # gain 0.7


once $ s "fbass:35"
  # gain 0.75 # cut 42