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
-- Based on Parov's Psychedelic jazz
setcps 0.46
d1 -- beat
$ someCycles (0.125 ~>)
$ s "tech:5*4" # note (-4)
# gain (slow 16 $ range 0.7 0.9 sine)
d2
$ every 4 (const $ "[~ [hh,hh:8] ~ [hh ~ hh]]*2" # gain 1.2)
$ s "[~ hh ~ <hh [hh ~ hh]>]*2"
# gain 0.85
d3
$ s "bd sn bd <cp cp cp cp*2>"
d4 -- main gauche
$ whenmod 32 24 (|+ note 7)
$ s "superpiano"
-- # note "<-20 [-19,-15] [-20,-16] ~>"
# note "-16"
# velocity "<0.7 0.6 0.7>"
# sustain 3
d5 -- main droite
$ whenmod 128 64 rev
$ whenmod 64 48 (
const
$ slow 4
$ sometimesBy 0.3 (off 0.125 id)
$ "[p p p ~] [~ p p p] [~ ~ [p p?] ~] [p p? p? p] [p]"
# s "superpiano"
# n "[7 5 4 ~] [~ 4 2 0] [~ ~ 0 ~] [-1 -1 -1 0] [-1]"
# gain 0.45
# sustain 2
)
$ every 4 ((>| s "superpiano*16") . (# note "6 <2 5> <2 1>"))
$ someCycles (# sustain 3)
$ s "[p?*3] . ~ . [p*2] . ~ [p? p] . ~"
# s "superpiano"
# note "<1 [2,6] [1,5] ~>"
# velocity 0.5
d6 -- white noise
$ someCycles (# silence)
$ sometimes (jux rev)
$ (# speed (rand / 2))
$ s "glitch:2" -- # n (run 8)
# cut 1
d7 -- ??? TODO: What is that supposed to be?
$ someCyclesBy 0.2 (# gain 1)
$ slow 2
$ s "[~ jazz:2]*8"
# gain 0