setcps 0.5

-- Dub en chemise blanche

d2 -- Beat + Tocs sur 8
$ degradeBy (slow 7 $ cosine * 0.6)
$ fix (sometimes (# crush 4)) (n "1")
$ fix ( -- tok occasionnel contretemps
  whenmod 4 3 (sometimes (# n 3))
  . sometimesBy "<0 0.25 0.75 1>" (stut 4 0.6 0.125)
  ) (n 1)
$ n "[[0 [7|~|~ 7|7*2]] 0 <~ <1 1?>>]*2"
# s "jazz"

d6 -- Baguette-roll
$ every' 4 3 (sometimes (jux id . (fast "<2 2 2 1>")))
$ fast "<2 2 1 1> <2 1 2 4>"
$ s "0 0"
# s "drum:8"

d3 -- Toms variés sur 8
$ sometimesBy (slow 9 $ sine * 0.8) (# gain 0)
$ someCyclesBy 1 (often ((# lpf 200) . (|+ gain 0.2)))
$ someCycles (# s "[808lt|808mt] [808mt|808ht] [808lt|808ht]")
$ euclid ("<3 1 3 1 3 2 3 1 5 3 5 1 5 8 3 1>") 8
$ s "t"
# s "[lt|mt] [mt|ht] [lt|ht]"
#  gain 1

d4 -- Basse TODO: Not reggae
$ sometimesBy "0 1 0 0 0" (every' 4 3 ((2/16) ~>))
$ every' 4 2 (sometimesBy "0 0 0 0 0" ((1/8) ~>))
$ whenmod 8 6 (someCyclesBy 0.2 (rev . chop 2)) -- variations rev
$ rarely (stut 3 0.75 (1/16)) -- begaye
$ superimpose (|- note 12)
$ note (scale "aeolian" (
  (slow 2 $ "<0 <-2 5>>")
))
# s "supersaw"
# voice 0.1
# lpf (slow 6 $ range 500 1200 tri)
# lpq (slow 4 $ sine * 0.1) -- vibrato
# gain 0.9
|- note 24

d5 -- Pompe mandoline
$ whenmod 16 14 ((fast "2 2") . (# room 0.2))
$ whenmod 8 6 ((slow "2 1") . (# size 0.4))
$ note (scale "aeolian" (
  whenmod 64 32 (7 - )
  "0 0 0? 0? . 0"
  |+ ("<0 0 3 3 5 5 8 8> .  <4 4 7 7 10 10 13 13>")
  ))
# s "supermandolin"
# accelerate "0 <0 0.2>"
# sustain (slow 16 $ range 0.1 2 sine)
# gain 0.9

d9
$ sometimes (off 0.5 id)
$ s "~ ~ s ~"
# s "birds" # n (irand 10)
# gain 0.6

-- Soudain? TECHNOOOOO
d1
$ sometimesBy (slow 4 $ tri) (slow 2)
$ note "0 0 0 [3 <~ 5?>]"
# s "jazz"

d6 $ s "c?? ~ <c [c*2|~ c|~ c*2]> ~" # s "jazz:4"

d4
$ every 2 (chop 2)
$ note (scale "aeolian" (
  iter 6 $ "[-2 2 4 6]*2"
  + "<0 0 0 0 2 2 4 4>"
  - "0 -7 0 -7 0 0 -7"
  - 21
))
# s "supersaw/4"
# voice 0.1
# gain 0.8
