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
-- Courant alternatif: drum-instrumental-hop
-- [Released](https://soundcloud.com/parvagues/courant-alternatif)
resetCycles
do
setcps (90/60/4)
d1
$ whenmod 8 7 (# silence) -- mini-Break
$ degradeBy "0 <0!8 0.5!4 0.75!4 0.875!3 0>"
$ "k k*<1 2 1 4> <k <~ [~ k]>> k*2"
# "jazz"
# gain 0.85
# lpf 3000
d2
-- $ every' 4 3 (# n "0")
-- $ whenmod 32 16 (# lpf (slow 16 $ range 200 20000 saw))
$ slow "<2!6 4 8>" $ slice 8 (cat [
"1*16"
])
$ loopAt 2
$ "fbonus:3" # cut 1
# gain 0.9
# pan "0.45 0.55"
d3
$ whenmod 8 7 (degradeBy "1 0") -- mini-Break
$ whenmod 8 6 (jux (# room "<0.05 0.1>"))
$ fast "<4 [8 4] 8 <4 [8 4]>>"
$ "drum:8" # gain 0.75
-- # room (slow 8 $ "<0!3 0.3>") # sz 0.9
d4 -- Hand-Sewn hats
$ whenmod 8 7 (# silence)
$ whenmod 32 28 (degradeBy "<0 0.25 0.5!2> <0.5>!3")
$ whenmod 32 16 (
# lpf (slow 16 $ range 2000 10000 saw)
)
$ sew (iter 4 "<t!4 f!4>(<3 5 7 12>,16)")
("ho*16" # note (scale "major" "<1!8 -1 -2!6 -1>"))
"hc*[<8!3 16> <16!3 8>]"
# gain 0.45 # pan (slow 16 $ range 0.2 0.8 sine)
# cut 4
d5 -- LEAD Downclav!
$ whenmod 64 56 (# n 4)
$ whenmod 64 48 (# n 2)
$ whenmod 32 30 (# hpf 5000)
$ whenmod 32 24 (# squiz "<2!4 4 6 8 16>")
$ whenmod 32 12 (# gain 0.85)
$ whenmod 16 12 (mask "t(<1 2 4 16>,32)" . discretise 32)
$ loopAt 2 $ s "fclav:3"
# pan 0.35
# cut 5
# gain 0
d6 -- Laggy gratte
$ mask "<f!16 t!16>"
$ loopAt 4 $ "fguitar"
# n "<17!6 18!2>"
# gain (slow 128 $ range 0.45 0.65 sine)
# cut 6
-- region SANDBOX
do
setcps (90/60/4)
d1
$ whenmod 32 16 (# lpf (slow 32 $ range 200 2000 saw))
$ "k . k(<3 5 3 1>,8)" # "reverbkick"
# gain 0.5
d2
$ fast "<1!8 2!2 4!2 [4 . 8 4] [4 . 2 4]>"
$ n ("~ . 1 2(<1!3 3>,8)")
# "gretsch"
# gain 0.75
d7 -- Gongs balancés
$ often (juxBy 0.5 (fast "<1 2>" . rev))
$ whenmod 128 64 (# gain (slow 64 $ range 0.65 0.45 isaw))
$ swing 4
$ note (arp "up" $ "<c4'maj'6!2 c4'maj7'6 c4'maj9'6>")
# "supergong"
# gain 0.65
once $ s "fguitar:17" # gain 0.65 # cut 21
do
setcps (90/60/4)
d1
$ whenmod 32 16 (# lpf (slow 32 $ range 200 2000 saw))
$ "k . k(<3 5 3 1>,8)" # "reverbkick"
# gain 0.5
d2
$ fast "<1!8 2!2 4!2 [4 . 8 4] [4 . 2 4]>"
$ n ("~ . 1 2(<1!3 3>,8)")
# "gretsch"
# gain 0.75