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
d1 $ "t*4" # "tek_kick:4"
# gain 0.9
do
setcps (134/60/4)
let f1 = (# djfbus 1 (range 0.05 0.95 "^49"))
let f2 = (# djfbus 2 (range 0.25 0.75 "^29"))
let f3 = (# djfbus 3 (range 0.15 0.85 "^13"))
d1 $ f1
$ midiOn "^42" (
(<| "k . ~ k ~ ~" )
)
$ midiOff "^42" (<| "k*<1 1 2 <1 2>> . k(3,8)" )
$ "[kick:5,jazz,reverbkick]"
# end 0.25
# midiG' "^78" 0 0.8
d2 $ f2 $ "~ s ~ s*<1!3 2>"
# "snare"
# n "[21,22]"
# midiG' "^79" 0 1.3
d3 $ f2
$ "h*[<8!8 4 4 16 8 8!4> <16 [16!<1 3 7> <8!3 16>]>]"
# "tek_hh:3"
# midiG' "^80" 0 0.8
# cut 3
d4 $ f3
$ midiOn "^58" (slice 4 ("0 0 0 <0 1 2>"))
$ loopAt 4
$ "tek_loop:1"
# cut 4
# gain 0.7
# midiG' "^82" 0 0.8
# pan 0.7
# crushbus 4 (range 12 1.5 "^54")
d5 $ f1
$ superimpose ((# octave 3) . (# "bassWarsaw") . mask "t f!7")
$ note ("<e <f c>>" + "[c,c([3 <3!4 5!2 3 8>],8)]")
# "tek_bass"
# pan 0.3
# crushbus 5 (range 10 3.5 "^53")
# midiG' "^81" 0 1.2
d7 $ f3
$ someCyclesBy "<1!6 <0 1> 0!1>" (# gain 0)
$ "<t t*4>" # "tek_end:2"
# midiG' "^84" 0.2 0.8
# hpf (slow 32 $ range 0 5000 perlin)
d8 $ f3 -- Pretty much decent!
$ "bogdan:21/4"
# begin "<0!4 0.5!4>"
# end "<1!8 0.5!4 1!4>"
# midiG' "^84" 0 2
# cut 5
# room 0.4
once $ "tek_strange"
# gain 0.8
once $ "tek_end:2"
# gain 0.8
once
$ note "<c e>"
# "tek_bass"
# cut 5
# gain 0.8
d4 $ f3
-- $ superimpose (|+ note "c'min")
$ arp "up"
$ note "g'maj'4"
# "tek_bass"
# octave "[4,5]"
# midiG' "^81" 0 0.8