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
setcps 0.5
d1 $ s "jazz"
# lpf 200
# gain 0.6
# pan 0.6
d2 $ s "ho hh [hc hh?]"
# n "[0|1|2|3]*2 0 [0 <0 1>]"
# cut 2
# gain 0.5
# pan 0.4
d3
-- $ every 2 (degrade . ply 2)
$ fast 2
$ s "d*2 <~ [~ d]>" #"drum:8" # gain 0.7
d4
$ note ("[0(3,16),<3!3 5>(2,16,4),[<5 3>,<12 10>](1,2,1)]"
- 24
)
# sustain "[0.5,0.25]"
-- # s "supersaw" # voice 0.1
# s "bassWarsaw"
# lpf (slow 64 $ range 10 1000 sine)
# gain 0.8
unmute 5
d5 -- Guitare pompe contretemps
$ note ("[~ <<0!2 3!2> <2 <7 12>>!2>]*2") # s "bsguitar:3"
# gain 0.7
# room (slow 64 $ range 0.25 0.7 sine)
# size (slow 50 $ range 0 0.9 sine)
-- TODO arguments definition.
let ffreq = pF "ffreq"