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
-- Couches de Funk
-- Tags: Techno, bass, epiano , hypnotic
-- Ready: 4/10 (Répetitif, à équilibrer, à espacer, vocals?)
resetCycles
do
setcps 0.5
solo 1 -- Techno kick
unsolo 2 -- BreakBeat
unsolo 3 -- Claps
solo 4 -- Bassline!
unsolo 6 -- Electromad piano
d1 -- KICK
$ fast "<4!16 1 2 4 8 4!2>"
$ whenmod 16 15 (juxBy 0.9 rev)
$ whenmod 64 32 (
superimpose ((# "clubkick:7") . (# lpf 200))
. (|* gain 0.9)
)
$ "[cpu2,jazz]"
# lpf 5000
# gain 1
d2 -- Breakbeat
$ whenmod 8 4 (juxBy 0.5 rev)
$ whenmod 32 16 (
# djf (slow 16 $ range
(slow 32 "<0.4 0.1>")
(slow 32 "<0.6 0.9>") sine)
)
$ slice 8 (stack [
"0 . 0(<0!8 1!8 3!16>,8)",
"1(<3!3 5>,8,<0!4 3!4>)",
"~ 2(<<2 1> 4>,4,<0!4 2!4>)",
""]
) "break:8"
# gain (
1
-- (slow 16 $ range 0.45 0.65 sine)
-- - (slow 2 perlin * 0.2)
)
d3 -- Clap degressifs
$ juxBy 0.5 (0.125 ~>)
$ every' 8 7 (off "e" id) "~ cp"
# djf (slow 8 $ range 0.5 0.2 isaw)
# room 0.4 # sz 0.2 # dry 0.95
# pan 0.3
# gain 0.9
d4 -- Bassline hypnotique
-- $ slow 2 -- Cut sauf occasionnel par ralentissement
-- $ whenmod 64 32 (degradeBy "0.8!16 0.5!16")
$ slice 8 (
-- run 8 -- Le classic
fastcat [run "<2!3 4>", run "<4!3 2>"] -- Le loop-jump
-- fastcat [run 4, run 4] -- Le loopy
-- "<4!3 5>*16" -- GO ON
-- "4*2 3 2*[1|2] 1? 7 6 5*<1 2 4 8> 0*<1 4 1 2>" -- reverse jumpy
-- "4*8 . 0 [<5!4 7!4> 6 <7!4 5!4>]@3" -- glitch-funk
-- every' 2 1 (iter "[1 4!2 1]") $ "0*8 1(2,3) 2 <3 5> 4*2" -- Attente vibrée
)
$ "fbass/2"
-- # crush 3 -- ELECTRONIZE
-- # n 23
# n "<23!8 7!4>"
# cut 3
# gain 1
d6 -- Electro-MAD piano
$ whenmod 16 12 (
off "q" ( stut 4 0.5 "e"
. (|+ note "<12>") . (# sustain 0.7)
. (# room 0)
)
)
$ "fepiano/2"
# n (slow 4 $ "<20!4 21!2 22!2>")
-- # note (slow 2 "<-4 0>")
# room 0.6 # sz 0.5
# gain (slow 16 $ "<0.4 0.55 0.7 0.65>" * 0.85)
d8 -- Guitare conclusive
$ mask "t(<0!4 1!4 2!4 4!4>,4,<3!16 0!16>)" $ chop 8
$ "fguitar/2" # n "<20!3 7>" # gain 0.7
# cut 8
do
d1 $ fast 4 $ s "jazz"
# gain 0.7
# lpf 200
d2 $ slice 4 "2" $ "fepiano:2" # gain 0.5
d3 $ s "hh(<3!3 5>,8)"
# note "<0!3 -4>"
# gain 0.9