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
-- Pray the Funk: choeurs laudatifs
-- Tags: Breakbeat, gospel, funk
resetCycles
do
unsolo 1 -- Kick chaloupé
unsolo 2 -- Tambours de Gretsch
unsolo 3 -- AcceleRoll
solo 4 -- Broken piece
solo 5 -- Fragments of Wiley
unsolo 7 -- Claps
setcps (60/60/4)
solo 10 -- NOISE
d10 $ funk_noise
d1
-- KICK
$ whenmod 8 6 (# silence)
-- $ mask "t(11,12)" . fast "<2!6 4 2>" -- Folie
$ "k . k(<3 5>,8)" -- L'intro TODO
-- $ "k([1|2|5],8) . k(<3 5>,8)" -- Le classique
-- $ "k*<1!8 2!8> . k(<0 1 0 1 3 5 5 8>,8,<0!3 2>)" -- L'annonce
# "[reverbkick,<kick!8 ~!8>]"
# lpf ("<5!3 <2 0.5>>" * 1000)
# gain 0.65
d4 -- BREAKBEAT
$ slice 8 (
"0 4" -- Intro
-- "0 2 4 <4 <2 6>>" -- Intro
-- "0 1 2 <3!2 ~ 3> 4 5 6 7*<1 <2 4>>" -- Fulltime!
-- "0 <1 1(<3 5>,8,<0 4>)> 2 3(<3 5>,8)" -- Laggy
-- "4*2 5 6(3,8) <[~ 7] 7?>" -- Laggy end
-- (fast "<4 8>" $ run 2) -- Repeat! TODO Transition grace
)
$ loopAt 1
$ "break:1"
# gain (
slow 32 $ range 0.35 0.7 saw
-- 0.65 -- TODO Fulltime post-intro
)
# cut 4
d2 -- Snares gretscha
$ someCycles (
(whenmod 16 8 (# lpf (slow 8 $ range 15000 1000 saw)))
. hurry 2
. (|* gain 0.9)
)
$ fast 2
$ n ("6(<4 <3 5>>,8)")
# "gretsch" # gain (slow 16 $ range 0.6 0.8 saw)
d3
$ someCycles (fast "1 . 2 4")
$ "gretsch*<8!3 [16 . [16 | 32]]>" # n "[4|5]"
# note ("<-2 -4 -2 0>")
# gain 0.75
d5 -- Fragments of Wiley
$ "pray" -- TODO INTRO then /4
# n "<0!4 1!8>"
# gain (slow 8 $ range 0.5 0.75 sine)
# cut 5
|> gain 0.5 # lpf 200 # waveloss 65 -- TODO INTRO WAVELOSS/gain 65 45 25 12.5
d7
$ fast 2
$ whenmod 32 16 (whenmod 4 3 (ply "<2 3 [2 4] [3 2]>"))
$ whenmod 16 8 (every' 4 0 (off "-0.125" id))
$ s "clap"
# gain 0.75
# djf (slow 32 $ range 0.5 0.85 sine)
# room 0.5 # size 0.4 # dry 0.95
resetCycles
-- SANDBOX
d6 -- Transipiano
$ slice 4 (cat [
-- "2*4 3*2 . 0*2 1",
"0!2 ~ 3 0!2 ~ 3"
])
$ s "fpiano:6" # cut 6 # gain "<0.5 0.55 0.6 0.65>"
d6 -- Bassline (FIXME improve sonorite/variations)
$ superimpose (
arp "<up pinkyup>" . (# octave 6)
. (|* gain 0.9)
)
$ note (
("[a2 <g2 <b2 e3>>]!2") + "[0,4,7]"
)
# "bassWarsaw"
# pan 0.4
# gain 0.9