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
resetCycles
-- Electro-jazz grille du blues snakish
do
setcps (70/60/4)
let f2 = (# djfbus 2 (range 0.1 0.9 "^29"))
let f1 = (# djfbus 1 (range 0.1 0.9 "^49"))
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é
$ f1
$ midiOn "^41" (fast 2) -- Cause this is REPETITIVE MUSIC
$ midiOn "^42" ((<| "k*4") . (superimpose (# "909")))
$ midiOff "^42" (<| "k . k(<1 3 1 3 1 3 3 5 1 3 1 3 1 3 3 5 3 5 3 5 1 3 3 5>,8)")
$ "jazz"
# legato 2
# room 0.2
# midiG' "^78" 0 1.1
d2 $ f1
$ midiOn "^43" (fast 4)
$ "~ [jazz:4,cp]"
# hpf (slow 4 $ range 0 10000 perlin)
# room 0.6 # sz 0.6 # dry 0.99
# midiG' "^79" 0 1.9
d3 $ f1 -- Snakes
$ midiOn "^41" (fast 2) -- Cause this is REPETITIVE MUSIC
$ juxBy (slow 8 $ range 0.1 0.9 sine) rev
$ fast 2
$ "s . s <s!3 ~> <~!3 s>"
# "hh*6"
# pan 0.7
# midiG' "^80" 0 1.5
d4 $ f2
$ midiOn "^89" (slice 4 "0 1 2 3*<2 <4 [4 8]>>")
$ midiOn "^57" (juxBy 0.2 (
-- ply "<2 4 [4 8] 8>" .
arp "pinkyup"
. (often (ply 2))
-- . (|* gain 0.8)
-- . (# pan 0.6)
-- . (# crush 16)
-- . (|+ note 12)
))
$ note (
cat blues
- 24
)
# "bassWarsaw"
# pan 0.3
# room 0.1
# voice 0.8
# crushbus 41 (range 10 3 "^53")
# midiG' "^81" 0 1.3
d5 $ f2 -- Choeurs
$ juxBy 0.5 (
(0.5 ~>) . midiOn "^58" (superimpose (
arp "<converge!8 diverge!4>"
. (|+ note ("[0,12]"))
. (|+ pan 0.05)
-- . (|* gain 0.85)
)
. (|* gain 0.95)
. (# legato 0.5)
. (|+ pan 0.05))
)
$ note (cat blues)
# "moogBass"
# octave 3
# midiG' "^82" 0 1.4
# room 0.4
# size 0.7 # dry 1.05
d9 $ f1
$ loopAt (2 + (2 * "^92"))
$ midiOn "^60" (slice 8 (run ("<8!4 [8!3 16] [8 16] [16 8] [16 32 8 ~]>"))) -- Rush
$ midiOff "^60" (slice 8 (run ("<8!4 16 [8 . 32 16] [8 . 16 8] [8 4]>"))) -- Decroissance
$ "fbreak80"
# cut 42
# midiG' "^84" 0 1.8
# pan 0.3