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
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
-- region Mad Funk: joyeuse intro techno-funk, partant run 160bpm
-- Tags: Techno, run, funk, crushade
-- Ready: 9.5/10
resetCycles
-- endregion
do
unsolo 1 -- Kick
unsolo 2 -- Snare roll/rush
unsolo 3 -- Drumroll
solo 4 -- Bassline
unsolo 5 -- Guitare intro/pompe
unsolo 6 -- Epiano groovy
solo 7 -- Claps from grace
let bpm = 80 -- Que tu crois!
setcps (bpm/60/4)
solo 10 -- NOISES
d10 $ funk_noise
d1
$ every' 8 7 (# lpf 200)
-- region Pauses Hip-hop
$ whenmod 8 6 (juxBy 0.5 rev)
$ "k . k(<3 <5 4>>,8)" -- Le simple
-- $ "k*<1!4 2!4> . k(<3!3 <5 8>>,8)" -- L'agité
-- region hardkick
-- $ whenmod 32 16 (
-- superimpose (
-- (# "hardkick:4")
-- . (sometimesBy "<0!3 0.5>" (stut 2 0.8 "s"))
-- . (# legato 0.9)
-- . (|* gain 0.65)
-- )
-- )
-- region INTRO/Run
-- $ slow 2 -- intro
-- $ whenmod 8 6 (# silence)
-- $ "k k k k k k k <k [~ k]>"
# "jazz"
# gain 0.35
# pan 0.45
d2
$ someCycles (hurry 2)
$ juxBy 0.75 (rev . sometimes (mask "t(16,16)" . ply 2))
-- region Manual snare rush
$ "~ s*<1 <2 <4 <8 [8 16]>>>>"
# "snare:3"
# note ("<0 -1 -2 -3>")
# gain 0.65
# pan (slow 8 $ range 0.4 0.8 sine)
d3 -- Drumroll
-- $ slow 8 -- TODO IN/OUTRO
$ fast (slow 8 "<1 [2 [2|4]] 4 [4 8]>" )
$ ply "2 <4 8>" $ "drum:8"
# gain (slow 4 $ range 0.65 0.85 saw)
# pan (slow 8 $ range 0.2 0.6 cosine)
d4 -- Bassline
$ juxBy 0.5 id
$ slow 2
$ whenmod 16 8 (
-- region reverse cowgirl
sometimesBy "0 1" rev)
$ slice 8
(
-- iter (slow 2 "<2 4>") $
-- run 8 -- Classique: jumpy groovy
"0*4 2 1 3 4 5 6 7"-- HAVE FUN
-- "<0!3 1>*2 3*2 <0 1> 4*<2 4 8>" -- Jumpy rappel
-- "<0 4 0 0*2> 4 <0 1 2 3> <0 4!2>" -- Attente
-- "<0!3 <1 2>>*8" -- COME ON CRUSH
)
$ "fbass:8"
# legato 1
-- # crush (0.5 + "6 <5 4>") -- CRUSH THIS
# gain 0.4
# pan 0.6
d5 -- Guitare pompe
-- $ whenmod 64 32 ( -- TODO Renverse
-- someCyclesBy "<0.5!16 0.9!16>" rev
-- )
-- region Guitare pompe
-- $ slice 8 (cat [
-- "0*4",
-- -- "0 1 2 3",
-- "0*4 1 3(3,8) 5",
-- -- "4 5 6 7",
-- -- "0 7 4 7",
-- "[0 4]*4",
-- -- "7 <7 6> <3 5> <7 4>",
-- -- "4*4 . 4*<8 16>",
-- -- "7 0 7 0",
-- "0*4"
]) $ n 9
-- region INTRO-guitar
$ slice 8 ( -- Intro
"0(<1 4>,<1 4 8>) . [1*<1 2 4>, 3(<1 3 5>,8)]"
) $ n 11
# "fguitar"
-- # crush 5 -- TODO CRUSH THIS! 12 - 4 - 5
# cut 8
# gain (slow 64 $ range
-- 0.7 0.9
0.6 0.8
cosine)
# pan 0.3
d6 -- Epiano groovy
-- $ whenmod 32 16 (whenmod 4 2 (jux rev)) -- TODO variations once introduced
$ slow 2
$ mask "f(<1!16 2!16>,2,<1!4 0!4>)" -- TODO INTRO MASK THIS
$ slice 8 (
"0 3 2 1 4 5 6 7*<1 2>" -- regulier
-- "0 3 2 1 0 3 <2 6> 7" -- variant
-- "3*4 <0 5> 0 <3 4>*2 0*2 5 0 4" -- TODO FREESTYLE
-- "0 1 2 [3*<4 2>]!4 [5 <4 5>]"
-- "0 3 2 1!5" -- repeat aigu
-- "4!5 5 6 7*<1 2>" -- repeat end
-- "5!7 7" -- END OF FILE
)
$ s "fepiano"
# n (slow 8 "<24 25>")
# gain 0.7 -- TODO OUTRO 0.7 0.67 0.57 0.47 0.37
# cut 6
# pan 0.7
d7 $ fast 2 $ s "clap"
# lpf 2000
# gain 0.65
# room 0.4