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