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
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
-- region Part 1 Breakbeato-bass
do
d1
-- BREAKBEAT!
$ s "jazz(2,4)" # lpf 1000
-- $ superimpose (
-- const
-- $ s "k(<1!7 3>,8) . k(<1 3 5>,8)"
-- # s "reverbkick"
-- # gain 0.5
-- )
-- $ loopAt 2 -- 4 slowdown
-- $ slice 4 "0? 1*2 3(3,8) ~"
-- $ s "break:1"
# gain 0.5
d2
$ fast "<4!2 8 16>"
$ s "ifdrums:1" # gain 0.5 # sz 0.5 # room 0.5
d5
$ note ("<0>"
+ "[0,<12 12?>](<3!3 5 3!3 5 3!3 5 8 10 5>,16)"
)
# s "bass3"
# gain 0.55
-- $ whenmod 32 16 (degradeBy "0 0.5!7 0")
$ superimpose (
(arp "up") . (|+ note 24)
. (# gain 0.35)
-- . (# crush (slow 16 $ range 0.75 8 sine))
)
$ s "t(<4!2 5!2>,<4!2 8!2>)"
# note ("<c3'min c3'maj c3'min7 c3'maj>")
# s "supersaw"
# voice 0.01 # gain 0.3
-- endregion
-- Techno tambourino piano
do
setcps 0.45
solo 1 -- Kick
unsolo 2 -- Drums gretsch contretemps chaloupé
solo 3 -- Drumroll aigu
unsolo 4 -- Piano fou
unsolo 5 -- Bass guitar 80s
unsolo 6 -- Noise
solo 7 -- Birds
d1
-- $ whenmod 32 28 (slow 4)
-- $ whenmod 8 7 (slow 2)
-- $ s "k k k [<k!3 k?> <~ k?>]"
$ whenmod 8 7 (>| n "0*4")
$ s "k . k(<1 3!2 5>,8)"
# s "jazz"
# gain (slow 128 $ range 0.35 0.6 cosine)
d2
$ n "1 . [[2,2](<4!3 3 4>,8)]"
# s "gretsch"
# gain (slow 30 $ range 0.4 0.8 sine)
d3
$ often (jux rev)
$ fast "<4!3 <8 [16 8]>> <8!3 16>"
$ s "gretsch:3"
# gain (slow 16 $ range 0.3 0.5 saw)
# room 0.6 # sz 0.9
d4
$ rev
$ superimpose (arp "[updown,downup?]"
. (stut "<2 3 4>" 0.8 0.125)
. (|+ note 12)
. (|* velocity 1.1)
)
$ note ("<g3'maj!3 g3'min g3'maj!2 g3'min g3'maj>")
# s "superpiano"
# velocity (slow 100 $ range 0.15 0.35 tri)
d5 -- Guitare synth 80s flamboyant
$ note (scale "hexMajor6"
"[g4(<3 5 3 3 5 3 3 5>,8)]"
-- + "[1 3 <1!4 <6 8 6 6>!4>]*4"
+ (whenmod 8 4 rev $ "[0 <5 3 2 -2>]")
)
# s "supersaw"
# voice 0.01
# gain (slow 80 $ range 0.25 0.45 sine)
# hpf 500 # hpq 0.4
d6 $ "glitch:2/4"
# speed (range 0.1 0.5 perlin)
# begin 0.1
# gain (slow 16 $ range 0.5 0.7 saw)
d7 -- Background birds
$ often (stut 4 0.75 0.5)
$ s "birds/4" # n (irand 7)
# note (-2)
# gain 0.45
# speed (range 0.5 1.5 rand)