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
-- Oldskool: NTM ton fils
do
setcps (90/60/4)
let gPont24 = (whenmod 32 24 (# djfbus 1 (slow 8 $ range 0.5 0.05 saw)))
let gPart2 = (whenmod 64 32 (# djfbus 1 (slow 32 $ range 0.05 0.85 saw)))
let g = gPont24 . gPart2
-- let g = id
d1 $ g
$ fix (
(# hpf 2500)
. (|* gain 0.7)
) "909"
$ mask "<t!3 [t f!3]> . t"
$ "k k ~ ~ . [~ k] k ~ ~"
# "[jazz,808bd:3,909]"
# gain 1.62
d2 $ g
$ mask "<t!3 f> . <t t f t>"
$ "~ s ~ s" # "[sn:20, snare:44, snare:8]"
d3
$ g $ "drum:2*[8!2 <8 16> 16]"
-- $ "drum:2*8"
# gain 1.2
d4 $ g $ note "<[[c3 ~ c3] bf2 af2 g2]!3 f2>" # "bassWarsaw" # gain 1.7
-- Radius: TECHNO DEFORMEE
do
setcps (100/60/4)
let g1 = (# djfbus 1 (range 0.10 0.90 "^49"))
let g2 = (# djfbus 2 (range 0.10 0.90 "^29"))
d1 $ g1 $ "909*4"
# midiG' "^78" 0 1.3
d2 $ g1 $ "~ cp" # lpf 2000 # room 0.5 # dry 1
# midiG' "^79" 0 1.2
d3 $ g2 $ "[hh <hh!3 <~!3 hh*<1 2>>>]*8"
# midiG' "^80" 0 1.2
d4 $ g2
$ midiOn "^90" (juxBy 0.8 (rev .
(# cut 12) .
chop 8 .
(|* gain 0.8))
)
$ midiOn "^58" (slice 4 ("0 1 <2!3 [~ 2]> 3*<4 2 [4 2] 4>"))
$ "raph_jardin" # n "<4!3 <5 4> 4 4 3 2>"
# cut 11
# lpf 2000
# midiG' "^82" 0 1.2
# crushbus 41 (range 12 2.5 "^54")
d5 $ g1
$ midiOn "^57" (striate "2 <2!3 4>" . chop 8)
$ "fbass:3"
# cut 5
# crushbus 51 (range 12 2.5 "^53")
# midiG' "^81" 0 1.2
once $ "FMRhodes1" # note "c5" # gain 1.7