setcps 0.45

d1
$ s "j j? j ~ j ~ j ~"
# s "jazz"
# lpf (slow 100 $ range 50 1000 sine)

once $ s "jazz:3"
# gain 0.9
# cut 2

once $ s "jazz:5"

d2 -- snare rush
-- $ degradeBy "<0 [0 0.75 0.5 0.25]>"
$ every' 8 7 (superimpose (fast "16 32 16 8"))
$ s "jazz:2"
# gain 0.4

-- beat jazz

d3
$ fast "1 2 1 [1 2]"
$ s "d d d d*<1 2 1 4>"
# s "jazz:3"
# gain 0.7

d4
-- $ arp "speedupdown"
$ note (
  scale "aeolian"
  "c4'major" - ("0 0 2 2 0 0 0 0 0 0 2 4 0 0 0 0")
)
-- |- note 21 -- gamme
# s "supersaw"
# voice (slow 32 $ range 0.1 0.25 sine)
# gain 0.8

d6
$ superimpose (
  swing 2 . arp "up|downup"
. (# sustain 0.5)
)
$ note (scale "aeolian" (slow 4 $ "c4'major'<c4 f4 b3 c4>'six")
) # s "superpiano"
# velocity 0.6
# sustain 1
# gain 0.7

d7 -- moineau roll!
$ fast "[<1 <2 [2 4]>> <1 1 1 [2 1]>]"
$ s "birds3*8"
# n "2|3"
# gain 1.2
# room 0.7
# size 0.5

d8 -- claps!
$ fast "<1 1 2 1 2 2 1 1 2 1 2 2 4 2 1 1>"
$ s "c"
# s "jazz:4"

d9 -- continuous laser
$ s "bd" >| speed (
  segment 120 $
  range (10 - sine * 5)
        (fast "<1 2 4>" $ sine * 50)
  saw
)
# gain 0.4
