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
resetCycles
-- Electro-jazz grille du blues snakish
do
setcps (80/60/4)
let g = (# 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é
$ g
$ fast 2 -- Cause this is REPETITIVE MUSIC
$ midiOn "^41" ((<| "k*4") . (superimpose (# "kick:5")))
$ midiOff "^41" (<| "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)")
$ "super808"
# midiG' "^78" 0 1.1
d2 $ g
$ midiOn "^43" (fast 2)
$ "~ [jazz:4,cp]"
# hpf (range 0 10000 perlin)
# room 0.6 # sz 0.6 # dry 0.99
# midiG' "^79" 0 1.2
d3 $ g -- Snakes
$ juxBy (slow 8 $ range 0.1 0.9 sine) rev
$ fast 4
$ "s . s <s!3 ~> <~!3 s>"
# "hh*6"
# midiG "^80"
d4 $ g
$ 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 + chord
- 24
)
# "bassWarsaw"
# pan 0.75
# room 0.1
# voice 0.8
# crushbus 41 (range 10 3 "^53")
# midiG' "^81" 0 1.3
d5 $ g -- Choeurs
$ juxBy 0.5 (
(0.5 ~>) . midiOn "^58" (superimpose (
arp "<converge!8 diverge!4>"
. (|+ note chordAug)
. (|+ pan 0.05)
-- . (|* gain 0.85)
)
. (|+ note 12)
. (|* 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
$ 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.4
# pan 0.3