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
do
setcps (90/60/4)
let gF1 = (# 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"))
d1 $ gF1
$ "k [~!3 k] <~!2 k ~> <~!8 [~ <~ <k k*2>>]!24>" -- Swing Groove
-- $ "k ~ k ~" -- Classic Boom-Bap
# "[808bd,808bd:4]"
# pan 0.3
# midiG' "^78" 0 1.5
d2 $ gF1 -- BREAKBEAT
$ mask "[f t!3] [t!3 f] [<t!2 f t> t] [<t!8 [t f]>]" -- Mask Swing Groove
-- $ someCyclesBy "^31" (juxBy 0.8 ((# cut 81) . rev))
$ slice 4 "0 1*<1!3 2> 2*<1 2> 3*<1 <1 2 [4 2] [8 4]>>"
$ chop 16
$ loopAt 2
$ "break:2"
-- # speed (range 0 2 "^51")
# cut 8
# midiG' "^79" 0 1.5
d3 $ gF1 -- Hats swing constantes
$ someCyclesBy "<0!32 1!32>" (ply "1 1 1 [<1 1 2 <1 <4 2>>> <2 1 1 <2 4>>]")
$ someCyclesBy "<1!32 0!32>" ((ply "1!3 [<1 1 2 <1 2>> 2 <1 2>]") .(off 0.125 id) . (swing 4))
$ "h*8"
# "electrn:4"
# cut 3
# pan 0.2
# midiG' "^80" 0 1
d4 $ gF2
$ whenmod 8 7 (ply "2 <2 4>")
$ slice 4 "0 <~!4 1 ~ 1 ~ 1 2 1 2 [1 2] [1 3] [2 3] [1 2 2 3]>"
$ "fbass:12"
# room 0.4
# sz 0.5
# cut 4
# crushbus 41 (range 16 2.5 "^53")
# midiG' "^81" 0 1
d10 $ gF3
$ slice 4 "<0!4 ~!12> ~ <~ <2 2?>> <~!32 3*<[1]!8 1 2 2 4 4 2 4 4>!32>"
$ "weird_dialogs:1"
# cut 10
# att 0
# rel 2.9
# midiG' "^20" 0 1.8
# pan 0.8
d9 $ gF3
-- $ mask "<t!4 f!4 t!24>"
$ chop 4
$ "weird_dialogs:25"
# cut 9
# pan "<0.2 0.8>"
# crushbus 91 (slow 16 $ range 16 3.5 saw)
# midiG' "^19" 0 1.8
|* gain (0.8 + (range 0 0.28 saw))
c g show
cs gs