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
98
99
100
-- A LA VOLETTE
setcps 0.5
d1
$ someCycles (degradeBy "0 0.5 1 0" . fast 2)
$ whenmod 8 6 (degradeBy "1 1 1 1 1 1 1 0")
$ s "<k [k*2 ~]> . k ~ <~ k?> <k? k>"
# s "reverbkick"
# lpf 500
# gain 1.5
d2
$ whenmod 8 6 (juxBy 0.2 (# crush 4))
$ someCycles (jux $ hurry 2)
$ sometimes ((# n 3) . stut 4 0.75 0.125)
$ s "~ s? ~ s?*2"
# s "808sd:1"
# gain 0.8
# pan 0.2
d3 -- Drumroll baby!
$ whenmod 16 15 (# gain 0.8)
$ whenmod 16 10 (# gain 0)
$ whenmod 16 0 (# gain 0.8)
$ fix (
(stut "[2|3]" 0.5 (1/32)
. (|- gain (slow 8 $ sine * 0.3))
. (# n "[6|1|[1, 9]]")
)) (n "1")
$ (# n "0 . 0 0 0 1")
$ whenmod 64 2 (fast "<2 1> <1 2>")
$ whenmod 16 0 (fast 2)
$ fast "8 <1 2 4>"
$ s "dr"
# pan (slow 32 $ sine / 2)
d4
$ someCycles (degrade . (# sustain 0.25))
$ someCycles (slow 2)
$ bite 4 "<[0 1 2 3] [0 1 1 1] [0 3 2 1] [[0|0 0] 2 1*2 <3 3 0 3>]>"
$ note ("5 6 8 ~ 8 [6 5] 6 ~"
- "[24,36]"
)
# s "supersaw"
# voice 0.05
# resonance 0.1
# decay (slow 32 $ range 0 0.5 cosine)
# lfo (slow 16 $ range 0 1.8 sine)
# gain 0.8
-- Apris à - à la volette
d5
$ (|- note 8)
$ whenmod 32 16 (superimpose ((# s "superfork") . (|+ gain 0.2)))
$ degradeBy ("<0.75 0 0 0.5 0 0.9 0 0>")
$ whenmod 8 7 (sometimes (# room 0.3))
$ whenmod 8 6 (
>| note "1 5 3 ~ . 0 1" -- APRIS À VOLER
)
$ whenmod 8 4 (
|> note "3 5 6 ~ 6 [5 3] 5 ~" -- A LA VOLETTE!
)
$ note "5 6 8 ~ 8 [6 5] 6 ~ " -- Apris à - à la volette
# s "superfork" # voice 0.25 # accelerate (0.025)
# gain 0.7
# room 0.1
# size 0.1
# pan 0.8
once $ note "0 .. 4"
# s "supersquare" # voice 0.25 # accelerate (-0.02)
# gain 0.7
d4
$ (# n 0)
$ fix ( -- mon petit / mon petit oiseau
every 4 (
superimpose ( const -- oiseau scratch
$ degradeBy "<0 .. 0.5 0.5 .. 0.2 0.2 .. 0.6 0.6 .. 0>"
$ n "0*16" # s "birds3" # n (choose [0,0,2]) # pan (slow 8 $ sine)
)
. (# end 0.08)
. (stut 2 1 0.25)
)
. (# end 0.2)
) (n 0)
$ fix (
(# begin 0.2)
. (# end 0.4)
) (n 1)
$ n "<~ <0 1>>"
# s "kaamelott"
# gain 0.6
once
$ note (scale "major" 1 - (run 4))
# s "kaamelott:1"
# end 0.04 # cut 1
# gain 0.9