setcps 0.3

d1
$ whenmod 16 12 (degradeBy "0 0.5 0.75 0")
$ n "0 . <~ [0 0?]> [0? 1]"
# s "kick:5"
# lpf 200
# gain 0.8

d2 -- Snares plus ou moins reguliers
$ fast 2
$ sometimes (hurry 2)
$ s "~ <~ s?> . s s?"
# "snare"
# n "[2|3] . <4 6>"
# gain (slow 32 $ range 0.5 0.9 cosine)

d3 -- roll
$ whenmod 16 8 (degrade . fast 2)
$ rarely (fast 2)
$ s "dr*8"
# s "drum:8"
# gain (slow 32 $ range 0.5 1 sine)

d4 $ n (stack [
  "0(3,8,<0 4>)"
  ,"[2, 3?](3,8,<0 0 0 0 2 2 2 4>)"
  ])
# s "hh"
# gain 0.8

d5
$ every 2 (often (slow 2))
$ juxBy 0.2 (# crush 5)
$ arp (slow 4 $ "<pinkyup updown downup speedupdown speeddownup>")
$ whenmod 16 8 (someCyclesBy 0.75 rev)
$ note (scale "aeolian" (
  "f4'maj d4'min d4'maj c4'maj" - 7
))
# s "supersaw" # voice 0.05
# gain 0.5

d5
$ superimpose (swing 2 . arp "downup") . (|+ note 7)
$ note (scale "aeolian"
"<d4'maj e4'maj f4'min <d f>4'maj>"
- 21)
# s "supersaw" # voice 0.05
# gain 0.5


d7
$ every 2 (superimpose ((swing 2) . (arp "[updown|downup]") . (# room 0.5)))
$ note (scale "aeolian" "<d4'maj e4'maj f4'min <d f>4'maj>")
# s "toys"
# begin 0.3 # end 0.5
# gain 0.6


-- Sandbox
d4 -- basse tension chelou
$ whenmod 32 18 (# gain 0.8)
$ whenmod 32 17 (# gain "0.8 0")
$ whenmod 32 16 (# gain 0)
$ note "0 . 0*<1 2 4 2> . 0*<1 1 4 1>"
# note (scale "aeolian" "0 .. 5" + "[0,7]" + (slow 4 $ "<-7 0>")
- 21)
# s "supersaw"
# voice 0.05
# gain 0.7

d8
$ s "s/4"
# note (scale "aeolian" (slow 4 $ "<-2 -5>"))
|- note 24
# s "supersiren"
# voice 0.1
# gain 0.8



d2
-- $ euclid "<7 3 4 7>" 8
$ n "0? <~ <0? 0>> 0? 0"
# s "sn:[2|8]"
# room 0.5 # dry 1.1 # size 0.5
