d1 $ qtrigger $ seqP [ (0, 20, note "d3 f3 e3 d3 g3 f3 a3 g3 f3 e3 d3" # sound "supersaw" # amp 0.1), (4, 20, sound "hh hh hh hh hh hh hh hh hh hh hh" # amp 0.1), (6, 20, note "a4 a4 g4 f4 e4 d4 c4 d4 a4 g4 a4" # sound "supermandolin" # amp 0.1), (8, 20, sound "bd ~ ~ ~ ~ ~ ~ ~ ~ ~ ~" # amp 0.5), (11, 20, sound "~ ~ ~ ~ ~ ~ ~ ~ ~ <~ bd> bd" # amp 0.5), (13, 20, note "d3'min'o ~ ~ ~ ~ ~ ~ ~ ~ <~ e3'dim'o> a3'min" # sound "superpiano" # amp 0.1) ] d2 $ qtrigger $ seqP [ (0, 9, note(arp "" "") # sound "superpiano" # amp 0.2 # pan "0 0.5 1 0.5" ), (4, 32, sound "hh hh hh hh hh hh hh hh" # amp 0.25 ), (7, 32, sound "bd <~ bd> ~ ~ ~ ~ ~ ~" # amp 0.33 ), (9, 32, note(arp "" "") # sound "superpiano" # amp 0.2 # pan "0 0.5 1 0.5" ), (9, 32, jux rev $ chunk 4 (fast 2 . (|- n 12)) $ off 0.25 (|+ 7) $ struct (iter 4 "t(5,8)") $ n (scale "major" "0 .. 7") # sound "superpiano" # amp 0.1 ) ] d3 $ qtrigger $ seqP [ (0, 36, sound "hh hh hh hh hh hh hh hh" # amp 0.25 ), (2, 24, sound "~ ~ ~ <~ cp>" # amp 0.25 ), (4, 36, sound "bd sd bd sd" # amp 0.25 ), (4, 24, note("-24 -22 -20 -25") # sound "supersaw" # amp 0.20 # pan "-1 0 1 0" ), (6, 36, sound "superchip*8" # note(quantise 1 $ range (-10) (10) $ slow 8 $ cosine) # release (quantise 5 $ slow 8 $ sine + 0.1) # amp 0.25 ), (30, 36, note("-24 -22 -20 -25") # sound "supersaw" # amp 0.20 # pan "-1 0 1 0" ) ] d4 $ qtrigger $ seqP [ (0, 12, sound "hh hh hh hh hh" # amp 0.25 ), (1, 32, note("e3 c3 d3 c3 a2 a3 g3 e3 f3 e3") # sound "supersaw" # amp 0.25 ), (8, 32, sound "bd bd bd bd bd bd bd bd bd bd" # amp 0.25 ), (12, 32, sound "hh hh hh hh hh hh hh hh hh hh" # amp 0.25 ), (18, 32, note "g'maj'o c'maj'o f'maj'o a'min'o e'min'o" # sound "superpiano" # amp 0.2 ), (24, 32, note("e4 f4 g4 a4 f4 g4 a4 b4 c5 b4 a4 g4 b4 a4 g4 f4 d4 b4 c4 d4") # sound "superpiano" # amp 0.25 ), (24, 32, sound "~ ~ ~ ~ cp" # amp 0.25 ) ] hush hush