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
do
let gGlob = 1.5
setcps (128/60/4)
resetCycles
d1 -- Kick etouffable
$ mask "<f!8 t!56 f!16 t!48>" -- Pont!
$ fast "<4!16 1!4 2!4 4!8 1!4 8 1!3 4 1 1 2 4 4!8>"
$ "[jazz,techno]"
# djf (slow 64 $ sine)
# gain (gGlob * 0.78)
d2 -- Drums reguliers
$ mask "<t!64 f!8 t!56>" -- Pont!
$ sometimesBy "0 0 0.25 0" (ply 2)
$ fast "<4!12 8!6 16 [8 4]>"
$ "drum:2"
# djf (slow 64 $ sine)
# gain (gGlob * 0.9)
d3 -- Tambours marche
$ mask "<t!64 f!12 t!52>" -- Pont!
$ "cpu:2*<4!3 <8 [8 16] [8 16 8] [16 8 16] [16!3 8]>>"
# room 0.125 # sz 0.1
# djf (slow 64 $ cosine)
# pan (slow 8 $ range 0.3 0.7 sine)
# gain (gGlob * (slow 32 $ range 0.45 0.85 sine))
d4 -- Rita Orchestra
$ mask "<t!24 f!3 t f!4>"
$ juxBy 0.8 (# cut 41)
$ degradeBy (slow 128 $ range 0 0.65 saw)
$ sometimesBy "<1!32 0!32>" (chop "<16!8 8!8 4!8 2!8>")
$ "rita/<4!8 8!8>"
# cut 4
# room 0.2 # sz 0.8
# pan 0.7
# gain (gGlob * (slow 96 $ range 0.35 0.45 sine))
d5 -- Wahwah
$ mask "<f!16 t!48 t!4 f!12 t!48>" -- Pont!
$ whenmod 8 6 (juxBy 0.8 (rev . chop 4))
$ iter 2
$ striate 4
$ "rita:2"
# gain (gGlob * (slow 4 "<1 0.9 0.8 0.7>") * 0.6)
# pan 0.3
# cut 5