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
-- Pray the Funk: choeurs laudatifs
-- Tags: Breakbeat, gospel, funk
-- Ready: 8.5/10
do
solo 1 -- Kick chaloupe
solo 2 -- Gretsch snares
solo 3 -- AcceleRoll
solo 4 -- Breakbeat
solo 5 -- Lead choir
unsolo 7 -- Claps
setcps (60/60/4)
solo 10 -- NOISE
d10 $ funk_noise
d1
-- KICK
$ fast "<2!6 4 2>"
$ "k . k(<3 <5 4>>,8)" -- Le classique
-- $ "k*<1!8 2!8> . k(<0 1 0 1 3 5 5 8>,8,<0!3 2>)" -- L'annonce
# "reverbkick"
# lpf 1500
# gain 0.75
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 16 $ range 0.65 0.85 saw)
# 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 -- Lead choir
$ "pray/4" -- TODO INTRO 2 then 4
# n "<0!4 1!8>"
# gain (slow 8 $ range 0.5 0.9 sine)
# cut 5
# hpf 100
-- |* gain 0.9 # lpf 15000 # waveloss 40 # pan "<0.75 0.25>" -- TODO INTRO WAVELOSS 65 50 40
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.85
# djf (slow 32 $ range 0.5 0.85 sine)
# room 0.5 # size 0.4 # dry 0.95
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