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
do
setcps (120/60/4)
let gF = (whenmod 64 48 (# djf (slow 16 $ range 0.5 0.08 sine)))
d1 -- Kick it
$ mask "<f!8 f t!7 f t!3 [f t] t!3 [t f] t!8>"
$ gF
$ superimpose ((# "909") . (# att 0.2) . (# rel 0.2))
$ "k k k <k [<~ k> k]>"
# "jazz"
# lpf 2000
# gain 0.65
d2 $ gF -- Balance it
$ sometimesBy "<0 0.1 0.1 0.25>" (degradeBy "0 0.1!7")
$ "~ [s <~ <s [~ s]>> . <~!3 s*<1 2>>]"
# "electro1:3"
# gain (
slow 16 $ range 0.4 0.7 saw
+ 0.1 * perlin)
# pan 0.8
d3 $ gF -- Clap it
$ "~ <c!3 ~ ~ [c? c]>"
# "[cp,house:4]"
# gain 0.5
# lpf 2000
# room 0.5
# dry 1
# pan 0.8
d4 $ gF -- Zip it.
$ juxBy 0.2 id
$ note "0 <~!4 1!4> ~ [2 <2 ~> <2 ~ 2*2 [~ 2]> 2]"
# "invaders:0"
# gain 0.4
# pan 0.7
d5 -- Log it...
$ mask "<f!3 t f!2 t!2 t!8 f!8 t!8>"
$ always (superimpose ( -- Burn IT!
(# crushbus 5 (slow 16 $ range 12 7.5 (isaw + perlin / 8)))
. (# room 0.4)
. (|- note 12)
. (|+ pan 0.28)
. (|* gain 0.68)
))
$ note (
"0 <~!4 0!4> ~ [0 <0 ~> <0 ~ 0*2 [~ 0]> 0]" -- Layered Structure
+ "0 1" -- Notes
- 24
)
# "bassWarsaw"
# pan 0.2
# att 0.07
# rel "0.3!3 <0.3!3 <0.6 1>>"
# gain 0.7
d10 $ gF -- Roll it ->
$ fix (
(# note (scale "aeolian" ("0 1 2 4 5 <7 4 7 4 7 4 4 4>")))
. (|* gain 0.85)
. (# pan 0.85)
)
(n 7)
$ fix (
degradeBy "0 <0.1!2 <q <h e>> 0.05>!6 0"
. (|* gain (slow 16 $ range 0.5 0.79 saw))
) (n 5) -- Metalic long hats
$ n (stack [
"[4 4*<1 2 4 8> 4*<2 4 4 2> 4*<2 4>]",
"5*[8 <8!7 16 8!4 16!4>]",
"7*[[4|8]!4 [8||<8 16>|<8!3 16>|16]!4]",
""
]) # "cpu"
# gain 0.8