setcps 0.4

d1
$ s "k k? <k k?> k*<1 1 2 1 2 2 2 1>"
-- $ s "k [<~ k> <~ k> k? k]"
# s "jazz"

d4
$ someCycles (juxBy 0.2 rev)
$ sometimes (hurry 2)
$ sometimes (off (1/8) id)
$ n "2 ~ 3 2 . ~ 3 2 3" # s "electro1"

d3 -- Tatatata (ta ta) x3, Tatatata-Tatatata-Tatatata (ta ta)
$ s "d*<4 4 4 <4 0>> d*<2 2 4 2>"
# s "dr:9"
# gain (slow 16 $ range 0.5 0.9 sine)
# pan (slow 32 $ sine)

d5
$ sometimesBy (slow 4 $ "<0 0.25 0.5 1>") arpeggiate
$ s "cs80leadMH*2"
# note (scale "major" "e'maj" + "<[0 <3 [3|<7 5>]>]>" - 21
)
# gain 0.6

d6
$ sometimes (arp (slow 8 $ "<updown downup>"))
$ note (scale "major" (
whenmod 32 24 (5 - )
"c'maj" + "<[0 <3 [3|<7 5>]>]>")
- 21)
# s "supersaw"
# voice 0.1
# gain 0.7

d7
$ s "glitch(<5 5 5 <4 3>>,8)"
# n (slow 8 $ "<5 [2|6|7]>")
# lpf (slow 64 $ range 10000 20000 sine)
# hpf (slow 64 $ range 0 200 cosine)
# gain 0.9
# room 0.4
# size 0.5
# dry 1
