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
82
once $ "808bd" # gain 2
do
let modIndex = pF "modIndex"
once $ "FMRhodes1" # modIndex 10
do
setcps (85/60/4)
d1 $ loopAt 2 $ "break:7"
# cut 1 # gain 0.5 # lpf 4000
once $ fast "8 16" $ "dr" # gain 2 # cut 4
do
setcps (93/60/4)
let modIndex = pF "modIndex"
d1 $ "jazz*4"
d2 $ "[~ ho]*4" # gain 0.6
d3
$ arp "up converge"
$ note (scale "aeolian"
(
"<c d f g>" +
"c'maj'4 c'maj'3@4"
- 12
)
)
# "FMRhodes1"
# voice (slow 4 $ "<0 1 2 4 6 8 10 12 16 32 48 64 64 64 96 128>")
# gain 1.1
# modIndex 0.4
d1 $ "jazz*4"
once $ "90s_synatm" # cut 5 # gain 0.8
d2
$ superimpose ((# cut 22) . (# crushbus 21 (range 10 3 saw)))
$ "90s_synatm:3/4"
# room 0.8
# sz 0.5
# cut 2 # gain 0.8
do -- Who knows what 808 techno could be
setcps (93/60/4)
d1
$ "k k k <k!3 <~ [~ k]>>"
# "808bd:2"
d2
$ n "1 ~ 1*<1 1 <2 4> 1> 2*<1 1 2 1>" # "hc" # gain 0.5 # cut 2
d4
$ fast "4!3 <4!2 8 <1 2 4 16>>"
$ "~ drum:2"
# gain 0.8
do -- SOME ACID tech
setcps (97/60/4)
let g1 = (whenmod 32 24 (# djfbus 1 (slow 8 $ range 0.5 0.1 saw)))
let g2 = (whenmod 64 32 (# djfbus 2 (slow 16 $ range 0.5 0.95 saw)))
let g3 = (whenmod 64 48 (# djfbus 2 (slow 16 $ range 0.95 0.5 saw)))
let g = g1 . g2 . g3
d1 $ g $ "[909,jazz]*4" # lpf 4000 # cut 1 # gain 1.4 # room 0.4 # dry 1
d2 $ g $ mask "<f!16 t!16>" $ whenmod 16 8 (fast 2) $ "~ cp" # lpf 2000 # note "-4"
d3 $ g $ fast "1 <1!3 2>" $ "cpu2:3*8"
# pan (fast 4 $ rand)
# gain (slow 64 $ range 0.8 1.1 (saw - perlin*0.2))
do -- Get that beat broken
let g1 = (# djfbus 1 (range 0.05 0.95 "^49"))
let g = g1
setcps (80/60/4)
d1 $ g
$ fix ((# att 0.1) . (# rel 10)) "wobble"
$ "[jazz,808bd:4,wobble]"
# midiG
d2 $ g $ "~ snare:40"
# gain (slow 32 $ range 0.5 1 saw)
d4 $ g
$ slice 4 "0 1 2 <3 [~ 3] 3 3*4>"
$ loopAt 2
$ "break:13" # cut 4 # gain 0.95