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
setcps (135/60/4)
do
let maskIntro = mask "<f!6 t!28>"
d1
$ maskIntro
$ superimpose ((# "gretsch") . (|* gain 0.8))
$ "k . ~ k ~ ~"
# "[jazz,bd]"
# gain 0.5
d2
$ maskIntro
$ superimpose (const -- Tchak
$ whenmod 16 12 (fast "<2 4 4 8>" . ("q" <~) . mask "t f")
$ mask "<t!8 f!3 t!5>"
$ "~ s ~ s*<1!7 2>"
# "[gretsch:2,sn:2]" # lpf 4000
# room (slow 4 $ perlin * 0.35)
# gain 0.55)
$ whenmod 8 6 (# lpf "<4000 2000>")
$ splice 8 (run 8) $ "breaks165"
# gain (slow 16 $ range 0.2 0.55 saw)
d3
$ someCyclesBy "<1!8 0!28>" (mask "t(<0!4 4!4>,4)")
$ whenmod 4 3 (degradeBy "0 0.5!6 0")
$ sometimesBy "0 0.1!6 0.5" (fast 2)
$ "drum:2*8" # gain 0.5
d4
$ note ("<a3!4 c4!3 a3>"
+ "<c'maj!3 c'maj'4 c'min!3 c'min'4>"
)
# "supersaw" # voice 0.1
# gain 0.2 # pan 0.9 # room 0.1
d5
$ someCyclesBy "<1!2 0!14>" (|* gain 1.2)
$ "day:1/2"
# gain (slow 16 $ range 0.45 0.5 sine)
# gain 0.65
# hpfbus 4 (range "-50" 5000 sine)
# legato 2
# cut 5