-- Sunny days
setcps 0.5

do
  let bars = 16
  d1 -- Kick/snares
    $ fix (
      (# s "reverbkick") . (# lpf (slow 8 $ 100 * ("<2 4 8 20>")))
      ) (s "k")
    $ fix ((# s "sn:2") . (|- gain 0.1)) (s "s")
    $ whenmod bars (bars - 2) -- Pont SNARE RUSH!
    (const $ s "[~ s*8 s*[16 8] s*[16 32]]/4" # s "snare:2")
    -- $ fast (slow 2 $ "<4 [8 . <4 2>]>") $ s "k"
    -- ^: Regulier techno-ish
    $ almostAlways (slow 2) $ s "k*8 . [k ~ . k*2] k*2"
    -- ^: rapide sautillant balance
    -- $ slow 2 $ s "k(3,8) s k(5,8) s*2"
    -- ^: accelerant sautillant
    # gain 1
  d2 -- Hi-hat polisson
    $ sometimesBy (slow 8 $ sine) (jux (# crush 3))
    $ rarely (hurry 2)
    $ s "hh(<5 10>,16)"
  d3 -- Birds roll!
    $ (# note "<[0 [0 7] 7 [7 0]] [0|7]>")
    $ jux (# crush 2)
    $ fast (slow 4 $ "<2 [2|4] 4 [4 2]>")
    $ fast "4 . [8 4]"
    $ s "birds3"
    # n "2"
    # gain (slow 4 $ range 0.6 1 sine)
  d5 -- Regular bass
    $ degradeBy "<[0 0.5 . 1] 0>" -- cut motif
    -- $ sometimes rev
    -- $ whenmod (bars*4) (bars*2) (jux rev)
    $ whenmod (bars*2) bars     (chop 2)
    $ sometimesBy "0 0.5" ((|- gain 0.2 ) . (superimpose (# crush 6)))
    $ euclid "<3 5>" 8
    $ note (scale "major"
    (slow 8 $ "<c'maj c'min>")
    + "<0 0 <-2 3> 0>"
    - 21
    )
    # s "supersaw"
    # voice 0.05
    # gain 0.65
  d6
    $ sometimesBy "0 0.5 0 0" (stut "<2 4 8>" 0.5 (1/16))
    $ s "~ c ~ [c c?]"
    # s "cp:2"
    # room 0.4 # dry 1
  d7
    $ note (scale "major"
    "0" +
    (slow 8 $ "<c'maj [c'min d'maj b'min c'maj]>"))
    # s "superpiano"
    # velocity 0.7
  d8 -- Bird toys
    $ degradeBy "<0.75 0.5 0.25 0>"
    $ sometimes (0.5 ~>)
    $ s "~ birds ~ ~" # n (1  + irand 9)
    # gain 0.7
  d9
    $ whenmod 16 15 (# gain 0.8)
    $ s "supersiren/2"
    # sustain 4
    # note (scale "major" ("0" - 14))
    # gain 0


----

d4 -- Weird vibe
$ slow 4
$ note (scale "major"
"<f4'maj <a5'maj d4'maj>>"
)
# s "supervibe"
# decay 2
# velocity 2
# accelerate 0.25
# detune 0.75
# gain 0.3
