resetCycles
do
setcps 0.5
d1
$ degradeBy "<1!5 0!24 0!4>"
$ whenmod 16 12 (>| n "0 <~!2 0!2>")
$ "[jazz](<4!3 3>, 4, <0!3 <0 3>>)" # gain 0.8
d3
$ degradeBy "<1!2 [0 1]!2 0!31>"
$ whenmod 32 28 (fast "0.5 1")
$ fast "4 <4 8 [4 8] [8 4]>" $ "[~ drum:8]"
d4
$ whenmod 16 12 (# n 2)
$ slice 4 (
"0 <1!2 3!2>"
)
$ loopAt 2 $ "fbass"
# gain 0.95
# djf (slow 16 $ range 0.3 0.9 saw)
d5
$ degradeBy "<1!8 0!16 [0 0.5!7]!8>"
$ slice "<8!7 4>" ("<0!4 3!4> 1 <2!3 1> 3")
$ s "fguitar:10"
# gain (slow 40 $ range 0.5 0.8 (saw + perlin/10))
# cut 5 -- TODO: last bit when uncut worth looping?
d6
$ rarely (off (-0.125) id)
$ degradeBy "<1!8 0!24>"
$ s "~ ~ ~ clap:2"
# note ("<0!4 -2!2 -4!2>")
# gain (slow 16 $ range 0.5 0.8 saw)
# room (slow 16 $ range 0.4 0.8 sine)
# sz 0.8