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
-- 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>"
do
let gKick = 2
let gSnares = 1
let gDrums = gSnares
d1 -- 4: KICK Chaloupe
$ whenmod 16 11 (# gain ("<0!3 1!3>" * gKick))
$ whenmod 16 7 (# gain gKick)
$ whenmod 16 6 (# gain 0)
$ s "k <~!7 k> <~ k?> k ~ <~ k> k <~!3 k>"
# s "jazz"
# pan 0.4
# lpf (slow 8 $ "<500 <200 [200 500]>>")
# gain gKick
d2 -- 3: Snares + bulles
$ degradeBy "0.75 0 0.75 0.1"
$ whenmod 64 48 (sometimesBy 0.8 (superimpose ( -- bulles glissantes 8bit!
(# s "supersnare"). (# n (-12))
. (# accelerate 8) . (# sustain 1)
. (|- gain 1)
)))
$ sometimesBy "0!3 0.1" (off ("[1|3]/16") id)
$ every' 4 3 ((1/16) ~>) -- decale sur 8
$ juxBy 0.2 rev
$ euclid "<1 3 5 3>" 8
$ s "sn:8"
# pan (slow 16 $ range 0.25 1 saw) -- Chasing drums
# gain gSnares
d3 -- 2: Drumroll!
$ whenmod 32 28 ( -- hihatification
degradeBy "0.75 0.25" .
(# dry (slow "<16 8 4>" $ range 0.1 4 saw))
)
$ whenmod 32 4 (fast "8 . 16 <16 [8 [8|16]]>")
$ every' 32 1 (fast 4)
$ every 32 (fast 8)
$ s "drum:8"
# pan (slow 16 $ range 1 0.25 saw) -- Chasing snares
# room 0.8
# dry 1
# gain gDrums
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 + 1.5)
# pan 0.6
d5 -- 4: Lead saw
-- $ often (chop 4)
$ whenmod 16 14 (stut 4 0.9 (1/16))
$ whenmod 16 12 (|+ note 12)
$ whenmod 16 8 (|+ note 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"
])
$ note (
"0 5 . ~ . 12 13 . <12 15>"
)
# s "supersaw"
# gain 0.8
d6 -- 4: Basses accompagnement
$ whenmod 32 24 (# silence)
$ every' 32 0 (degradeBy "0 1!7")
$ jux id
$ n "0 <1 [1 . ~ 1] [5 5 ~ 5] [5 . ~ 5]>"
-- $ n "0([1|3|5],[3|8]) <1 [1 . ~ 1] 1(3,2) <5 5(3,3)>>"
# s "bassWarsaw"
|- 24
# pan 0.2
d10 -- 5: Toy Classical music
$ s "~ ~ t/2 ~"
# s "toys:2"
# end "<0.46 1>" # release 1.7
# lpf 500
# crush 7
# gain 1.2