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
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
do
-- let dGlob = id
-- let fxCrush = (# crush 16)
let fx32LPF = (whenmod 32 16 (# lpf (slow 16 $ range 5000 500 isaw)))
let dGlob = (fx32LPF)
setcps 0.5
unmute 1 -- Kick
unmute 2 -- Contre-claps
unmute 3 -- Breakbeat
unmute 4 --
unmute 5 -- Gong
unmute 6 --
d1
$ dGlob
$ whenmod 64 32 (slow "<4!16 2!16>")
$ whenmod 32 24 (mask "t?(1,4)")
$ whenmod 16 10 (# lpf 200)
$ fast "<4!3 [4|2]>"
$ s "[jazz,cpu2]" # gain 0.7
d2
$ mask "<t f>"
$ fast 2
$ dGlob
$ "~ . <c!3 c*2>" # "clap"
# lpf 2000
# room (slow 64 $ range 0 0.8 sine)
# sz (slow 16 $ range 0 0.7 saw)
# gain 0.8
d3
-- $ dGlob
$ degradeBy (range 0.2 0.8 perlin)
$ bite 8 "0 1 2 <3 5>(3,8)"
$ loopAt 2 $ "break"
# cut 3
# gain 0.7
d4 -- Moog lead
$ dGlob
$ jux rev
$ slice (slow 8 $ "<2 4 8 1>") "0*8 2*4"
$ note (scale "aeolian" (run 8))
# cut 4 # "moog:1"
# gain (slow 16 $ range 0.5 0.75 cosine)
d5
$ dGlob
$ slow "<4 2 1!30>"
$ often (stut "<2!4 2 4 8 1>" 0.9 "<q!32 e!32>")
$ "[g(<3!3 5>,8) | g(3,8) g?]"
# "supergong"
# legato 1.1
# note (slow 4 $ "<c'maj c'min>")
# octave (slow 8 $ "<4 5>")
# room 0.4 # sz 0.4
# gain 0.5
d6
$ dGlob
$ mask "t(<1!2 2!2 4!4 8!24>, 8)"
$ degradeBy "<0!10 0.2 0.4 0.6 0.8 [0.9 0] [0.1 0!3]>"
$ jux ((# note 2) . ("s" ~>))
$ fast "8 <8!6 16!2>" $ "hh"
# gain (slow 8 $ range 0.65 0.9 perlin)
# room (range 0.4 0.7 perlin)
-- region breakbeat
do
setcps (80/60/4)
d1
-- $ superimpose (const $ s "jazz(<4!3 5>,8)" # gain 0.75)
$ slice 8 ("0 1 2 3 4 5 <6 7> 7*<1 2 4>")
$ "break:1"
# gain (slow 8 $ range 0.5 0.6 saw)
# cut 1
d2
$ slice 4 (cat [
run 8,
"0 1 2 3 4!4",
run 8, run 8, run 8,
"<0!4 1!4 3!8>(5,8)"
])
$ "fbass"
# n "<42!14 41!2>"
# cut 2
# gain (slow 16 $ range 0.6 0.65 saw)
d4
$ whenmod 32 28 ((# note 12) . slow 4)
$ bite 4 "<0!8 1!8>*<4 8>"
$ "fepiano:26"
# gain 0.5
# cut 4
# room 0.4
do
setcps (0.5)
d1 $ fast 4 $ s "[jazz,techno]" # gain 0.75
d2
$ fast 2
$ whenmod 8 7 (off "e" id)
$ whenmod 4 3 (off "q" id)
$ "~ [snare:11,cp]"
# gain 0.7
# lpf 2000
d4
$ fast "<1!4 2!4 4!2 8!2 16!3 [1]>"
$ loopAt 2
$ "fclav"
# n (slow 4 "<0 1 2 3>")
# cut 21
# gain 1.1
d6 $ s "supersaw" # voice 0.1 # note (-24)
once $ arpeggiate $ note "c'maj" # "supersaw"
# voice 0.1
# gain 0.8