1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
do
setcps 0.5
d1 $ "k k k k*<2!3 1>" # "[jazz,reverbkick]" # gain 0.75
d2 $ fast 4 $ s "~ cp*<1!3 2>" # gain 0.85
d3 $ s "drum*8"
d3
$ slow 4
$ "sax"
# note (scale "major" "<2 4 7 12>")
# gain 0.8
do
let mel = "<c4'maj c4'min e4'maj c4'maj>/4"
d1
$ s "reverbkick(<3 <5!2 7>>,8)" # gain 0.9
d2 $ fast 2 $ s "~ <s!3 s*2>" # s "snare:11"
# gain 0.9
d3 $ jux id $ fast "<8 16> <4!3 8>" $ s "dr"
d4
$ stut 8 0.8 0.5
$ note mel
# s "superpiano" # velocity 0.65
d5
-- $ chop (slow 2 $ "1 2 1")
$ note ("0" + mel - 12) # s "supersaw"
# voice 0.1 # gain 0.7
d6
$ swing 4
$ often (ply 2)
$ s "space"
# speed
# n "[1|2]" # gain 0.75
do
d1
$ whenmod 8 7 (# silence)
$ sometimesBy "1 0 0 0" (# lpf 200)
$ s "t t t <t!3 t*2>"
-- "t t t*2 [~ t]"
# s "jazz" # gain 1
d2 $ s "hh" # gain 1
d3
$ note ("<0!4 2!2 4 7>" + "d3'maj")
# s "supersaw" # gain 0.9
d4 $ s "~ ~ cp ~" # gain 0.7
# room (slow 10 $ range 0.3 0.9 sine)
# sz 0.4 # dry 1
d5
$ superimpose (
mask "t(3,4)"
. (# sustain "0.25 0.25 0.5 ~")
. (|+ note "12")
. arp "up"
. chop 4
)
$ note ("<0!4 2!2 4 7>" + "d3'maj")
# s "moogBass" # gain 0.9
once $ s "macron:7" # gain 1.1
do
let melody = "<c4'maj!2 c4'min f4'maj>"
d1 $ fast 4 $ s "jazz" # gain 0.5
d2 $ sound "t*2 . t t t" # s "dr" # gain 0.6
d3 $ chop "<4!3 8>" $ note (melody - 12) # s "supersaw" # voice 0.1 # gain 0.8
d4 $ note (melody) # s "superpiano" # velocity 0.5