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
-- Hardcore noisy
-- TODO guitare
do
resetCycles
setcps (90/60/4)
let masked = sometimes (degradeBy "0 0!6 <0!3 1>")
d1
-- $ masked
-- $ whenmod 64 32 (slow "<2!8 4!7 1>")
-- $ mask "<f!4 t(<1 1 2 2>,8)!4 t!120>"
$ mask "t(<16!3 4 16!3 [16 4]>,16)"
$ superimpose (
(# "hardkick:2") . (# gain 0.75) . (# sz 0.9)
. (# legato (slow 4 "<0!8 0.125 0.25 0.5 0.75 1!4>"))
)
$ "k k? k*[1|1|2] k <k k?> k k <k!3 k*2>"
# "jazz" # gain 1.5
d2 -- Snare varié sur 12 temps
$ masked
$ mask "<f!4 t(1,8)!4 t!120>"
$ fast "<1!4 2!4 4 4 8 8>"
$ every' 8 7 (ply 2)
$ "~ snare:21"
# room 0.5 # dry 1.1
# gain 0.8
# note (slow 3 "<-8 -12>")
d4 -- Bassline electro-folle
$ masked
$ whenmod 64 32 (|* gain (slow 32 $ range 1 0.7 isaw))
$ whenmod 16 12 (superimpose (rev . (# cut 41) . (# pan 0.4)))
$ whenmod 4 2 (fast 2)
$ slice 8 (run 4 + "<0 4>") $ slow 2 "fbass:60"
# cut 4
# room (slow 8 $ range 0.2 0.8 saw)
# dry (slow 16 $ range 0.1 1 perlin)
-- # crush (slow 32 "<8 6 4 2>")
# pan 0.25
# gain (slow 32 "<0.8 0.8 0.75 0.7>")
d8
$ masked
$ mask "<t(<1 2 3 4>,8)!4 t!124>"
$ superimpose (
(|+ pan 0.5)
. (# room 0.2) . (# dry 0.9)
)
$ "glitch:2(<3 5 [3|5] <8 [8 16]>>,8)"
# gain (slow 4 $ range 0.5 0.75 saw)
# pan (slow 8 $ range 0.05 0.95 sine)
d5
$ juxBy 0.8 (# cut 51)
$ mask "<f!32 t!32>"
$ slice 8 (cat [
"~ 0", "~ 0*2", "~ 0", "~ 0*4",
"4 5", "0 4 5 3", "4 5", "0 4 5 4",
"4 5*4", "0 3 4 5", "4 4 5 5", "0 4 5 4",
"~ 0", "~ 0*2", "~ 0", "~ 0*4",
"4 5!3"
])
$ "fguitar:61"
# cut 5
# gain 0.6
# room 0.2
# crush (slow 4 $ range 2.5 3.5 perlin)