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
-- Funky rythmic piano instru
-- TODO: Coordinate masks
do
setcps (80/60/4)
d1 -- Hip beat
$ whenmod 8 6 (mask "f(<5 [5 3]>,8)")
$ "k*<1 [1|2]> . k(<3 5>,8)"
# "[jazz,reverbkick]"
# gain 0.9
# lpf 500
d2 -- Snares en laisse
$ mask "<f!4 [t f]!2 [f t] t(3,8) t!10>"
-- $ whenmod 8 6 (mask "f(<5 [5 3]>,8)")
$ juxBy (range 0.25 0.5 perlin) rev
$ sometimesBy "0 0.5" (ply 2 . (# note (-2)))
$ whenmod 32 8 ( -- RUSH
ply "<<1!3 <0 [0 1]>>!2 4 [2 <4!3 8>]>")
$ "~ s"
# "snare"
# n "[31,23]"
# note ("<0!4 -2 -4 -8 -12>")
# gain (range 0.8 0.7 perlin)
d3 -- Roll constant
$ mask "t(<1!4 2 4 8 16 8 16 [8 16]!2 16!2>,16)"
$ juxBy 0.6 rev
$ fast "8 16"
$ "drum:8"
# gain 1.15
d4
$ whenmod 32 28 (# silence)
$ slow 2
$ slice 8 (
cat [
-- "0 1 2 3", "0 1 2*2 2*2",
-- "0(5,8)", "0(3,8) . 1 0", "[0(7,8), 1(1,8,7)]",
"0 1 2 3 2 3 1 1",
"0 1 2 3 2 3 1*2 <[1 2]!3 [2*2 3]>",
"<1 [0 1]> <2 [2 3]> . 4 5 6 7",
"2*4 . 4 5 6 7*2"
]
)
$ "fbass:10"
# gain "<1!28 0.95!4 0.9!24 0.95!4 1!4>" * 1.2
# crush ("<16!28 14 10 8 6 5!24 6 8 10 12!4>")
# cut 4
d5 -- Guitars!
$ mask ("<t!32 f!16 t!16>")
-- $ const () TODO!
$ slice 4 (
cat [
"0","1","2","3",
"0 1", "1 2", "2 3", "3 3"]
)
$ "fguitar:8"
# gain 0.7
# cut 5
d7 -- Piano conclusif!
$ mask "<f!16 [t f!15]!4 [t f!7]!4 [t f!3]!4 t!3 [t f]>"
$ whenmod 6 4 (superimpose (
(# note 12) . (# cut 71)
))
$ whenmod 8 4 (slice 4 ("0(3,8) <1 2 0 [3 0]>"))
$ always (swing 4 . slice 4 "0 1 2 3")
$ every' 8 3 (# silence)
$ every' 8 2 (# silence)
$ s "fpiano:11"
# gain (slow 8 $ range 0.8 1.1 saw)
# pan 0.25
# cut 7