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
resetCycles
-- Electro-jazz grille du blues snakish
do
setcps (75/60/4)
let gLpf = (whenmod 16 8 (# lpf (slow 8 $ range 0 0.5 saw)))
let blues = ["c", "f", "c", "c", "f", "f", "c", "c", "g", "f", "c", "c", "g", "f", "c", "g"]
let chord = "c'maj"
let chordAug = "c'maj'8"
d1 -- Kick rarement doublé vaguement rub-a-dub
$ gLpf
$ every 8 (# gain 0)
$ whenmod 8 6 (off "<-0.0675 -0.125>" id)
$ fast 2
$ "jazz"
# room 0.1 # dry 0.99 # sz 0.6
# gain 0.9
d2
$ mask "<f!8 t!8 f!4 t!12>"
$ gLpf
$ "~ [jazz:4,cp]"
# gain (slow 16 $ range 1.2 0.8 isaw)
# hpf (range 0 10000 perlin)
d3 -- Snakes
$ juxBy (slow 8 $ range 0.1 0.9 sine) rev
$ fast 4
$ "s . s <s!3 ~> <~!3 s>"
# "hh*6"
# gain (1.2 * (slow 32 $ range 0.5 1 saw))
d4 -- Bassline + mandolin ?
$ whenmod 32 0 (superimpose (
degradeBy ("0 1!6 0.5" * "0.5 0.25")
. mask "t . t(5,8)"
. ply "<2 4 [4 8] 8>"
. arp "<up!4 down!4>"
. (|+ note 24) -- Not a bass :)
. (# "supermandolin")
. (# pan 0.6)
. (# room 0.5)
. (|* gain 1.6)
))
$ note (cat blues + chord - 24)
-- # "supersaw" # voice 0.1
# "bassWarsaw"
# pan 0.2
# room 0.4
# crush (slow 64 $ range 16 4 isaw)
# voice 0.8
# gain (0.85 * (slow 16 $ range 0.5 0.9 saw))
d5 -- Choeurs
$ mask "<f!16 t!4 f!4 t!8>"
$ juxBy 0.5 (
(0.5 ~>)
. superimpose (
arpeggiate
. (|+ note chordAug)
. (|+ pan 0.05)
)
. (|+ note 12)
. (|* gain 0.95)
. (# legato 0.5)
. (|+ pan 0.05)
)
$ note (cat blues)
# "moogBass"
# octave 3
# gain 0.8
# room 0.4
# size 0.7 # dry 1.05
d6
$ degradeBy (slow 8 $ range 0 0.2 saw)
$ struct "t(<<12!6 24!2> <8!6 16!2>>,16)"
$ slow 4
$ n (run 32)
# "amencutup"
# pan 0.9
# gain (slow 16 $ range 1 0.8 saw)
once $ arp "up" $ note "d'min" # "superpiano" # velocity 0.38
-- region BACASABL
d4
$ note (cat [ -- FIXME dur a suivre!
"c3'min", "c3'maj", "c3'min", "c3'min",
"c3'maj", "c3'maj", "c3'min", "c3'min",
"d3'min", "d3'maj", "d3'min", "d3'min",
"d3'maj", "d3'min", "d3'maj", "d3'min",
"g3'min", "g3'maj", "g3'min", "g3'min",
"g3'maj", "g3'maj", "g3'min", "g3'maj"
]) # "bassWarsaw" # voice 0.8 # gain 0.92