-- Je repensais aux phrases que Simon Leys avait sur Robinson Crusoé :
-- les vrais idéalistes sont des grands pragmatiques.

-- Robinson Crusoé, il ne part pas avec des grands principes,
-- il va dans la cale chercher ce qui va lui permettre de survivre.
-- Du fromage. Du jambon. Des choses très concrètes.
-- Pour pouvoir ensuite inventer quelque chose et créer.

-- Robinson, quand le naufrage est là, il ne se prend pas les mains dans la tête en essayant de faire une grande théorie du naufrage. Il prend d'abord du jambon, du fromage, mais il a en lui cette capacité à réinventer une histoire unique.

--
d1 $ slice 8 "0 1 2 3 4 5 6 7" # s "break" # cut 1

once

$ s "macron:11"
# begin 0.62
# gain 1.3
# cut 0

do
  solo 1
  solo 2
  solo 3
  solo 4
  solo 5
  solo 8
  let bpm = 165
  let gDrums = 0.6
  let gKick = 0.8
  let melody = "<0 0 0 0 2 2 4 -2>"
  setcps (bpm/60/4) -- HARDCORE tranquilou
  d1
    $ whenmod 32 16 (slow 2)
    $ every 4 (superimpose (
      (# note "<0!3 <2 4>>") . (# s "hardkick:2") . (|- gain 0.1)))
    $ sometimesBy 0.95 (# crush 6)
    $ s "k k <k!3 [~ k]> k" # s "jazz"
    # gain gKick
  d2 -- Hats qui courent!
    $ whenmod 32 28 (ply 2)
    $ whenmod 8 4 rev
    $ fast 4 $ s "[ho hc:1]"
    # cut 2 # gain 0.5
    # room 0.5
    # size 0.2
  d4 -- Basse electrique sale
    $ off 0.125 (|- note "[0,5]")
    $ mask "t(2,3,1)"
    $ superimpose ( -- Echo octave
      (|+ note 12)
    . (|- gain 0.2)
    . (# room 0.5)
    )
    $ note (scale "aeolian"
    (
      whenmod 16 8 (iter 6)
      "0 [4 5] 0"
    + melody
    ) - 24)
    # s "supersaw"
    # voice (slow 64 $ range 0.01 0.75 sine)
    # crush 4
    # gain 0.7
  d8
    $ whenmod 8 7 (# gain 0.6)
    $ slice 2 "<1!3 0> . ~"
    $ sound "macron:11" # cut 1
    # gain 0
    # room 0.4

-- Part 1: technotravail

  d2 -- BassLINE
    $ juxBy 0.1 (# crush 3)
    $ note (scale "aeolian" "0*<1!3 4> 2(<1 3>,8) <~ 4> 5")
    # s "bass3:2" # gain 0.8
  d3 $ juxBy 0.5 rev
    $ fast "<4!3> <8 16>"
    $ s "drum:8" # gain gDrums
    # room 0.2
  d4
    $ superimpose (# crush 5)
    $ every 3 rev
    $ slow 4 $ chop 4
    $ s "bsguitar:4"
    # cut 4
    # gain 0.6
  d5
    $ note ("0(<1 3>,<4!2 8!2>,3)" + "<4 <8 5>>" - 24)
    # s "supersaw" # voice 0.1  # gain 0.4
    # sustain "1 0.75 0.5 0.25"
  d6
    $ someCycles (often (fast 2))
    $ every' 4 3 (jux rev)
    $ s "hh(8,<8!3 12>)"
    # gain (slow 32 $ range 0.6 0.8 sine)
    # size 0.5 # room 0.2
  d8
    $ whenmod 16 8 (# gain 0.6)
    $ slice 2 "<1!3 0> . ~"
    $ sound "macron:11" # cut 1
    # gain 0
    # room 0.4
