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
do
resetCycles
setcps (160/4/60)
d1
$ mask "<f!8 t!120>"
$ mask "<t!16 f!16>"
$ "k . ~ k ~ <~!3 k>"
# "[jazz,kick:9]"
# release 0.25
# gain 1.2
d2
$ mask "<f!4 [t f]!4 t!8 f!16>"
$ every' 8 7 ((# note ("<-2>")))
$ "s(2,8,2)" # "snare"
# gain "<0.8 0.9 1 1.1 1.3!124>"
d3
$ mask "<f!16 t!12 f!4>"
$ mask "<t!6 f!2>"
$ superimpose (const -- Hats
$ degradeBy "0 0.2!6 0.1"
$ (# gain (slow 20 $ range 0.55 1.1 (sine + perlin / 8)))
$ (# note (slow 4 $ "<0 -2>" + "0 2"))
$ fast "<16!3 <4 [16 8]>>"
$ "hh"
)
$ mask "<f!32 t!96>"
$ fast "<4!3 [8 <4 16>]>" $ "drum:8"
# gain "<0.8!5 0.9 1 1.1>"
d4
$ superimpose (
(someCyclesBy "<1 [0.75 0.5]>" $ superimpose (swing 4 . arp "up"))
. (|- note 24))
$ note "<c'min'4!3 f'min'4>"
# "bassWarsaw"
# gain (slow 40 $ range 0.65 0.85 (sine + perlin/2))
d5
$ mask "<f!64 t!64>"
$ whenmod 32 24 (<| "c*<2!3 4!4> c*2 ~ c ~ c*<2!4 4!4> c*4 ~")
$ "c*<1!7 2> c*<0!4 1!28> ~ c*<0!4 1!4 2!8> ~ c c ~"
# "supervibe"
# note "<c'min'4!3 f'min'4>"
# octave 4
# detune (slow 8 $ range "<0!8 24!8>" "<24!8 0!8>" saw)
# legato 4
# gain 0.8