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
resetCycles
do
let fxSlowDegrade = (# waveloss 10)
let fxPontHPF = (whenmod 64 48 (# djf (slow 16 $ range 0.2 0.8 cosine)))
let dGlob = (fxPontHPF . fxSlowDegrade)
-- let dGlob = (# djf 0.4)
let dGlob = (id)
let mMin = "<c'min!3 <f'min d'min>>"
let mMajSm = "<c'min'4 c'min'2 c'maj'4 c'maj'2>"
let mMajMd = "<c'min'3 f'min'3 c'maj'3 c'maj'3>"
let mMajLg = "<c'min'8 c'min'7 c'maj'8 c'maj'6>"
let melMin = [mMin, mMin, mMin, mMin]
let melMed = [mMajSm, mMajSm, mMajMd, mMajSm]
let melMaj = [mMajMd, mMajSm, mMajLg, mMajMd]
let melEnd = [mMajLg, mMajLg, mMajLg, mMajLg]
let melody = note (cat (melMin ++ melMed ++ melMaj ++ melEnd))
let bCharge = "<2!3 3>(3,8)" -- Charge !
let bAttente = "<0!4 1!4 2!4 3!4>" -- Attente
let bFull = "0 1 2 3" -- Fulltime
let bEnd = "0 1 0 <3 0>" -- End of file
let b1 = [bFull,bFull,bFull,bFull,bAttente,bAttente,bAttente,bAttente]
let b2 = [bAttente,bFull,bAttente,bFull,bAttente,bFull,bFull,bFull]
let b3 = [bCharge,bCharge,bCharge,bCharge,bFull,bEnd, bEnd, bEnd]
let bLine = b1 ++ b2 ++ b3
setcps 0.5
solo 1 -- KICK 4
solo 2 -- Claps
unsolo 3 -- Hypno-Hats
solo 4 -- LEAD BASSLINE
unsolo 6 -- Riffs
solo 9 -- Background hoover FIXME
solo 10 -- Noise
d1
-- $ mask "<f!8 t!20>"
$ whenmod 8 6 (# lpf "<2000 500>")
$ dGlob
$ superimpose (# "jazz:0")
$ "k k k <k!3 [<k? ~> k]>"
# "808bd"
# n "[1,3]" # legato 0.8
# gain 0.75
d2
-- $ mask "<f!4 t!26 f t>"
-- $ dGlob
$ fast 2
$ "~ <c!3 c*2>"
# note (slow 4 $ "<-5 -7>")
# djf 0.8
# legato "<0.4!3 0.8>"
# "cp"
# pan 0.3
# gain 0.8
d3
$ degradeBy "<0.9 [0 0.75!3]!3 0!20 [0 0.5!2 0]!8>"
$ whenmod 16 8 (juxBy 0.75 (degradeBy 0.25 . rev))
$ often (off "e" id)
$ dGlob
$ s "hh*4"
# room "<0.2!4 0.4!2 0.6 0.8>" # sz 0.5
# dry (range 0.2 4 perlin)
# pan (slow 8 $ sine)
# legato "<[q|e|s]!3 [h|q|e]>"
# cut 3
# gain (slow 2 $ range 0.65 0.8 perlin)
d4
$ whenmod 32 28 (fast 2) -- VIBRE
$ whenmod 32 24 (fast "2 4") -- reviens
$ whenmod 32 16 (slow 2) -- éclairci
$ dGlob
$ slice 4 (cat bLine)
$ "fbass:23"
# cut 4
# gain 0.9
d6
$ whenmod 8 6 ((# crush "<3 2.5>") . (|* gain 0.8))
$ bite 4 ("0*<2!2 <0 [0|0|2]> 1>")
$ "fguitar:23"
# cut 6
# gain (slow 4 $ range 0.8 1 tri)
d9
$ superimpose (
ply "<2!4 [2|4]!2 4!2>"
. arp "down <down up>"
)
$ melody
# octave 4
# slide ("<1!3 -1>")
# s "superhoover"
-- # decay ("<0!8 0.25!4 0.5!4 0.6 0.8 0.95 0.99>")
# gain 0.25
d10
$ superimpose (
const $ (1 ~>) $ note (slow 4 $ mMin) # "supersiren"
# octave 2
# sustain 4
# gain 0.45
)
$ "glitch(<4!3 5>,8,<0!8 4!8>)"
# n "2 <[2,3] 5>"
# gain 0.4
# pan "0.4 0.6"
d5 $ degradeBy "0 0.5 0.25 0"
$ fast "12" $ s "cpu:1" # gain (range 0.7 0.9 saw)
once $ s "fguitar:23" # cut 21