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
-- Sunny days
setcps 0.5
do
let bars = 16
d1 -- Kick/snares
$ fix (
(# s "reverbkick") . (# lpf (slow 8 $ 100 * ("<2 4 8 20>")))
) (s "k")
$ fix ((# s "sn:2") . (|- gain 0.1)) (s "s")
$ whenmod bars (bars - 2) -- Pont SNARE RUSH!
(const $ s "[~ s*8 s*[16 8] s*[16 32]]/4" # s "snare:2")
-- $ fast (slow 2 $ "<4 [8 . <4 2>]>") $ s "k"
-- ^: Regulier techno-ish
$ almostAlways (slow 2) $ s "k*8 . [k ~ . k*2] k*2"
-- ^: rapide sautillant balance
-- $ slow 2 $ s "k(3,8) s k(5,8) s*2"
-- ^: accelerant sautillant
# gain 1
d2 -- Hi-hat polisson
$ sometimesBy (slow 8 $ sine) (jux (# crush 3))
$ rarely (hurry 2)
$ s "hh(<5 10>,16)"
d3 -- Birds roll!
$ (# note "<[0 [0 7] 7 [7 0]] [0|7]>")
$ jux (# crush 2)
$ fast (slow 4 $ "<2 [2|4] 4 [4 2]>")
$ fast "4 . [8 4]"
$ s "birds3"
# n "2"
# gain (slow 4 $ range 0.6 1 sine)
d5 -- Regular bass
$ degradeBy "<[0 0.5 . 1] 0>" -- cut motif
-- $ sometimes rev
-- $ whenmod (bars*4) (bars*2) (jux rev)
$ whenmod (bars*2) bars (chop 2)
$ sometimesBy "0 0.5" ((|- gain 0.2 ) . (superimpose (# crush 6)))
$ euclid "<3 5>" 8
$ note (scale "major"
(slow 8 $ "<c'maj c'min>")
+ "<0 0 <-2 3> 0>"
- 21
)
# s "supersaw"
# voice 0.05
# gain 0.65
d6
$ sometimesBy "0 0.5 0 0" (stut "<2 4 8>" 0.5 (1/16))
$ s "~ c ~ [c c?]"
# s "cp:2"
# room 0.4 # dry 1
d7
$ note (scale "major"
"0" +
(slow 8 $ "<c'maj [c'min d'maj b'min c'maj]>"))
# s "superpiano"
# velocity 0.7
d8 -- Bird toys
$ degradeBy "<0.75 0.5 0.25 0>"
$ sometimes (0.5 ~>)
$ s "~ birds ~ ~" # n (1 + irand 9)
# gain 0.7
d9
$ whenmod 16 15 (# gain 0.8)
$ s "supersiren/2"
# sustain 4
# note (scale "major" ("0" - 14))
# gain 0
----
d4 -- Weird vibe
$ slow 4
$ note (scale "major"
"<f4'maj <a5'maj d4'maj>>"
)
# s "supervibe"
# decay 2
# velocity 2
# accelerate 0.25
# detune 0.75
# gain 0.3