-- Exp #2: Le Disco Punk
-- https://www.youtube.com/watch?v=sNzhxE45mGE

setcps 0.6

d10 -- metronome
$ s "tok*4" # note ("10 0 0 0" - 28)
# gain 0.8

d1 -- grosse caisse / caisse claire poum tchak
$ fix (# s "[bd,lt]") (s "k")
$ fix (# s "sn:2") (s "s")
$ s "k ~ s ~ k s/4 s ~"
# gain 0.7

d2 -- charley double croche
$ s "hh*16" # note "1 0 0 0 1 0 0 0 1 0 0 0 1 0 1 2 1"
# n 8
# gain 0.8

patBass    = "0 0 . 12       . 0 0      .  12"
patBassAlt = "0 0 . ~ 12 ~ ~ . 12 ~ 9 ~ .  [6 ~ . 0 ~]"
chordsBass = "<a'min c f d'min>"

d3 -- basse simple octave sur accords
$ superimpose (
  (# s "bassWarsaw") . (|- gain 0.4) . (|+ note 12) . (|/ sustain 8)
)
$ jux (# s "subBass1")
-- la mineur do fa re mineur)
-- $ every' 4 3 (# note 0)
$ note (slowcat (take 7 (repeat patBass) ++ [patBassAlt]) + chordsBass)
# s "subBass1"
# gain 1.2
# sustain "1/6 . 1/3 . 1/6 . 1/3"
|- note 36


patGuitar    = "0 0 . 12 . 0 0 . 12"
patGuitarAlt = "0 0 . 12 ~ ~ . 12 ~ ~ 12 . 0"

d4 -- guitare main
$ jux id
$ note (slowcat (take 3 (repeat patGuitar) ++ [patGuitarAlt])
+ chordsBass )
# s "pluck"
# gain 0.85


d5 -- guitare disco LA
$ fast 2
-- $ superimpose ((|- note 12) . (|- gain 0.2) . (# sustain 1))
$ note ("a4 a4 . ~")
# s "bsguitar:8"
# begin 0.28
# end 0.6
# gain 0.33
# cut 1

d6 -- TODO: synthe trans charnu delay (4:30)
$ note ("12 12 . ~ 6 .  9 6 . 3 0" + "<a c d f>")
# s "phazer"
-- |+ note 24
-- # delay (1/16)
# release 0.5
# gain 0.8

once $
s "pluck:0" # gain 0.6
