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
-- Blue Impro: Techno piano blues impro
-- Tags:
-- Ready: 4/10
do
solo 1
solo 2
solo 3
solo 4
setcps (130/60/4)
let scale = getScale (scaleTable ++ [("blues", [0, 2, 3, 4, 5, 6, 7, 9, 10, 11, 12])])
d1
$ whenmod 16 12 (# silence)
$ whenmod 8 6 (# silence)
$ note "0 0 0 -2" # s "kick:5"
# gain 0.45
# lpf (slow 8 $ range 20 2000 rand)
d2 -- Les hats de gretscha
$ (# cut 2) . (# pan 0.6)
$ whenmod 32 16 (-- break!
const $ mask "t(<0!16 1!4 2!4 6!4 8!4>,8)"
$ splice 8 "<0!3 4> 1 2 3 4 5 6 7" $ s "break:1"
# gain 0.6
)
$ n "<4!2 5!2>(<[5,1]!3 <8!3 1>>,8,[0,3])"
# s "gretsch"
# gain (slow 64 $ range 0.4 0.7 saw)
d3 -- Drumroll fantome
$ every' 4 3 (fast "<4!3 [4 8]>") . (|+ gain 0.1)
$ n "1*4" # s "ifdrums" # gain 0.6
d4
$ whenmod 64 48 (degradeBy "0 0.9")
$ whenmod 64 32 (someCyclesBy "0 0.5" (fast 2))
$ superimpose ( -- Main gauche!
off "[0.5,0.75?]" id
. stut "[4]" 0.75 (1/12)
. mask "t(1,8)"
. (|+ note ("[0, 12]" - 24))
. (|- velocity (range 0.1 0.25 rand))
. (# sustain 1)
. (# pan 0.35)
)
$ whenmod 8 6 (degrade . (# sustain 1))
$ rarely (off 0.125 (|- gain 0.15))
$ often (off "[0.375?,0.25]" (|- gain 0.1))
$ note (scale "blues" "[0|12] [1|5] <2 [6|7|8]>")
# s "superpiano" # velocity 0.5
# pan 0.4
# sustain "0.45 <0.5 0.25>"
# gain 0.8