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
-- Un an de voisinage
do
setcps (120/60/4)
let gF = (# djfbus 1 (range 0.05 0.95 "^49"))
let gF2 = (# djfbus 2 (range 0.05 0.95 "^50"))
let gF3 = (# djfbus 3 (range 0.05 0.95 "^51"))
let gMask = (midiOn "^41" (mask "t . <f t f <f t>> <t f f <t f>>"))
let gMute1 = (midiOn "^73" (mask "f*16"))
let gMute = (midiOn "^74" (mask "f*16"))
let gM = gMask . gMute
let gLPF = whenmod 64 48 (# lpfbus 4 (slow 16 $ range 20000 200 saw))
let gLPFSoft = whenmod 64 48 (# lpfbus 5 (slow 16 $ range 20000 2000 saw))
d1 $ gF $ gMute1
-- $ fast 2
$ midiOn "^42" (struct "t t t t")
-- $ midiOff "^42" (struct "t . ~ t ~ ~")
-- $ "[techno:0,808bd:2,909,kick:4]"
$ "[rampleS2:0,techno:0,jazz]"
# midiG' "^78" 0 1.3
d2 $ gF2 $ gMute
$ midiOn "^43" (<| "~ c ~ c*<1!3 2>")
$ midiOff "^43" (<| "~ ~ ~ <~ c>")
$ drumFrom "[sakatadpm48,rolandr8]" "cp"
# lpf 2000
# pan 0.7
# room 0.2 # sz 0.2 # dry 1
# midiG' "^79" 0 1.3
d3 $ gF2 $ gMute
-- $ midiOn "^76" (ply "2 <2!3 4>")
-- $ "d*[4 <8!3 <16 32>>]" # "dr"
$ "~ h ~ h ~ h ~ h*<1 2>" # "hh"
-- # lpf 2000
# pan "0.2"
# midiG' "^80" 0 1.3
d8 $ gF3 $ gMute -- MARINE BREAKS
$ midiOn "^92" (off "e" id)
$ midiOn "^60" (iter 4)
$ someCyclesBy "^20" (loopAt 2)
$ someCyclesBy "^20" ((# n 0))
-- $ someCyclesBy "^36" (loopAt 1 . mask "[f t]*4" . chop 16 . (# n 81))
$ someCyclesBy "^56" ((# "fbreak120:3"))
$ someCyclesBy "^56" (loopAt 1)
$ loopAt 2
$ "jungle_breaks:1"
# cut 8
# midiG' "^84" 0 1.3
d8 $ gF3 $ gMute1 -- MARINE BREAKS
$ midiOn "^73" (mask "f*16") -- FIXME DUPLICATE
$ midiOn "^41" (mask "t . <f t f <f t>> <t f f <t f>>")
$ midiOn "^92" (off "e" id)
$ midiOff "^60" (mask "t([4!3 8],8,1)")
-- $ chop 16
$ someCyclesBy "^20" (loopAt 2)
$ someCyclesBy "^20" ((# n 0))
$ someCyclesBy "^36" (loopAt 1)
$ someCyclesBy "^36" (mask "[f t]*4")
$ someCyclesBy "^36" (chop 16)
$ someCyclesBy "^36" ((# "jungle_breaks:79"))
$ someCyclesBy "^56" ((# "fbreak120:3"))
$ someCyclesBy "^56" (loopAt 1)
$ loopAt 2
$ "jungle_breaks:1"
# cut 8
# midiG' "^84" 0 1.3
d4 $ gF2 $ gMask $ gMute
$ sometimesBy (range 0 0.8 "^53") (# crush 5)
$ midiOn "^57" (iter "1 4")
$ midiOn "^89" (ply 2)
$ loopAt 1
$ chop 8
$ "breaks165"
# panbus 4 (slow 16 $ range 0.2 0.6 sine)
# midiG' "^81" 0 1.3
d7 $ gF3 $ gMute $ gMask
$ midiOn "^91" (ply "2 <2 4>")
$ loopAt 4 $ chop 8
$ midiOn "^59" (# n 4)
$ "drums_commodore:2" # cut 7
# midiG' "^83" 0 1.4
# crushbus 72 (range 16 1.5 "^55")
# panbus 7 (slow 16 $ range 0.8 0.2 sine)