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
-- Hip-Hop energetic instrumental
setcps 0.42
d8 $ -- silence -- metronome
s "<birds:0 birds3:2 birds3:2 birds3:2>"
# gain "<0.2 0.3 0.3 0.3>"
d1 -- 4: KICK Chaloupe
$ whenmod 16 14 (# gain 0.7)
$ whenmod 16 11 (# gain 0)
$ whenmod 16 7 (# gain 0.7)
$ whenmod 16 6 (# gain 0)
$ jux rev
$ s "<k ~> <~ k> . k k ~ k"
# s "jazz"
# pan 0.4
# gain 0.65
d2 -- 3: Hats sur 8!
$ whenmod 16 15 (|+ gain 0.5)
$ whenmod 16 11 (|- gain 0.6)
$ whenmod 16 4 (|+ gain 0.4)
$ whenmod 16 3 (|/ gain 2)
-- $ jux rev
$ sometimesBy 0.8 (superimpose ( -- bulles glissantes 8bit!
(# s "supersnare"). (# n (-12))
. (# accelerate 8) . (# sustain 1)
. (|- gain 0.3)
))
$ every' 4 3 ((1/16) ~>) -- decale sur 8
$ euclid "<1 3 5 8>" 8
$ s "superhat"
# pan (slow 16 $ sine)
# gain 0.5
d3 -- 2: Drumroll!
-- $ jux rev
$ whenmod 16 11 (|+ gain 0.1)
$ sometimesBy "0 0.5" (off (1/16) id)
$ whenmod 16 8 (fast 2)
$ n "0*4" # s "drum:8"
# gain (slow 32 $ cosine / 4 + 0.4)
# pan 0.4
d4 -- 1: Scratched birds!
$ ((1/16) ~>)
-- $ degradeBy "0 0.7 0.1" $ s "b*16"
$ rarely (off (1/16) id) $ s "b(8,8)"
-- $ s "b(<3 3 5 3 5 5 8 5 8 8 8 8>,8)"
# s "birds3" # n (irand 3)
# gain (slow 32 $ sine / 4 + 0.5)
# pan 0.6
d5 -- 4: Lead saw
$ whenmod 32 16 (# silence)
$ whenmod 16 14 (stut 4 0.9 (1/16))
$ whenmod 16 12 (|+ n 12)
$ whenmod 16 8 (|+ n 12)
$ degradeBy (slowcat [
"0", "0", "0", "0 1 . ~ . 1 1 . <0 1>",
"0", "0", "0", "1 0 . ~ . 1 1 . <0 1>",
"0 . 1", "0 . 1", "0 . 1", "0 . 1",
"0 . 1", "0 . 1", "0 . 1", "0 . 1"
])
$ n (
"0 5 . ~ . 12 13 . <12 15>"
)
# s "supersaw"
# gain 0.4
d6 -- 4: Basses accompagnement
$ jux id
$ n "0([1|3|5],[3|8]) <1 [1 . ~ 1] 1(3,2) <5 5(3,3)>>" # s "bassWarsaw"
|- 24
# pan 0.2
# gain 0.7
d10 -- 5: Toy Classical music!
$ hurry 2
$
every' 32 28
(|> s "toys:2")
$ s "~ ~ t ~"
# s "~"
# lpf 1000 # vowel "u"
# leslie 0.01 # lsize 4 # lrate 0.7
# note (-10)
# gain 0.8