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
do
let gF = 1.5
let gG a = (gain (gF * a)) -- gain Global
let gR l h a = (gain (range l h a)) -- gain Modulé noglob
let gM' l h a = (gG (range l h a)) -- gain Modéré
let gM a = (gM' 0.2 0.8 a) -- gain Modéré doux
let gLPF = (# lpf (min 10000 ((range 200 20000 ("^29")))))
let gHPF = (# hpf (max 0 (min 7500 ((range "-7500" 7500 ("^29"))))))
let gDJF = (gLPF . gHPF)
let novaOn ch pat = someCyclesBy ch pat
let novaOff ch pat = someCyclesBy (1 - ch) pat
let novaNo c1 c2 pat = someCyclesBy ((1 - c1 - c2)) pat
-- let gRythm = (novaOn "^41" (euclid 3 8)) . (novaOn "^42" (fast 4)) . (novaNo "^41" "^42" (fast 2))
let gCPS = (# cps ((range 60 124 "^13")/60/4))
let g = gCPS . gDJF
let gAcc = g . (novaOff "^41" (# silence)) . (|* gain "^84")
d10 $ gAcc -- Kick
$ "k(3,8) . <k k*2 [k . ~ k] <~ [~ k*4]>>" # "[jazz,hh:6]"
# att 0.3 # sus 0.3
# room 0.4 # dry 1.01 # sz 0.8
# gain 2.6
d9 $ gAcc $ "drum:2*8" # gain 1
d1 $ g -- Main
$ struct "t(3,8) [<t!3 [~ t]> <t ~> <t t*2> <t*2 t t*2 t*2>]"
$ "hh:3"
# speed (range 0.75 2 "^49")
# gR 0 1.8 "^77"
# pan 0
d2 -- moineau!
$ g
$ someCyclesBy "<0 0 0.25 0.5>" (swingBy "q" 8)
$ sometimesBy "0!7 0.5" (hurry 2)
$ fast "<8!3 16> <8 16>" $ "birds3:[0|2]"
# speed (range 0.75 2 "^50")
# gR 0 2 "^78"
# pan 0.3
d3 $ g -- nass
$ novaOn "^75" (struct "t(5,8)")
$ novaOff "^75" (struct "t(3,8)")
$ "nass"
# speed (range 0.5 1.5 "^31")
# attack (range 0.125 0.5 "^51")
# cut 3
# gR 0 2 "^79"
d4 $ g -- plastic visseuse
$ novaOn "^76" (chop "8 . [<8 [8|16]> [8|16] <[8|16] 16>] 8")
$ novaOff "^76" (chop "[4|5] <1 2>")
$ "[dr:3,dr:4]"
# speed (segment 16 $ range 0.4 1.5 "^52")
# attack (segment 16 $ range 0.01 0.5 "^32")
# gR 0 2 "^80"
# pan 0.6
d5 $ g
$ sometimesBy "^54" (slow 2)
$ sometimesBy "^53" (fast 2)
$ fast "4 <8 4 8 16>"
$ "jazz:6" -- Bot
# speed (slow 16 $ range (range 0.01 1 "^33") (range 1 1.5 "^34") saw)
# gR 0 1.4 "^81"
# pan 0.7
d11 $ gAcc
$ sometimesBy "0 0.75" (off "q" (|* gain 0.95))
$ slice 8 "<[0 1] [2 3] [0 3] [2 3]>"
$ "fbass:1" # gain 1.4
# pan 0.7
# cut 11 -- Company funky
once $
once
once $
once $
once $ "hh:3" # gain 1.2