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
resetCycles
-- Electro-jazz grille du blues snakish
do
setcps (80/60/4)
let g = midiDJF "^49" 200 9800 0 1000
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
$ midiOn "^41" (fast 2 . whenmod 4 3 (ply "2 1"))
$ midiOn ("^42"-"^41") (fast "<1!8 2!20 1 0 0 2>")
$ "k*4" # "jazz"
# room 0.1 # dry 0.99 # sz 0.6
# midiG' "^77" 0 1.5
d2 $ g
$ "~ [jazz:4,cp]"
# hpf (range 0 10000 perlin)
# midiG "^78"
d3 -- Snakes
$ juxBy (slow 8 $ range 0.1 0.9 sine) rev
$ fast 4
$ "s . s <s!3 ~> <~!3 s>"
# "hh*6"
# gain (slow 32 $ range 0.55 1.2 saw)
d4
$ never (superimpose (
ply "<2 4 [4 8] 8>" .
mask "t(1,4)" . arpeggiate . (# "supermandolin")
. (|* gain 0.8)
. (# pan 0.6)
. (# crush 16)
))
$ note (
cat blues + chord
- 24
)
# "bassWarsaw"
# pan 0.75
# room 0.1
# voice 0.8
# midiG' "^81" 0 1.3
d5 -- Choeurs
$ juxBy 0.5 (
(0.5 ~>) . midiOn "^59" (superimpose (
arpeggiate
. (|+ note chordAug)
. (|+ pan 0.05)
)
. (|+ note 12)
. (|* gain 0.95)
. (# legato 0.5)
. (|+ pan 0.05))
)
$ note (cat blues)
# "moogBass"
# octave 3
# midiG' "^83" 0 1.4
# room 0.4
# size 0.7 # dry 1.05