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
once $ "scratch_long:4"
# gain 01.1
# cut 4
d1 $ "808bd:2"
do
setcps (80/60/4)
let gDJF1 = (# djfbus 1 (range 0.10 0.80 "^49"))
let gDJF2 = (# djfbus 2 (range 0.05 0.95 "^29"))
let g1 = (gDJF1)
let g2 = (gDJF2)
let mBreak = (midiOn "^41" (mask "t f . f <f!4 t!4> <f!2 t!6> t"))
d1 $ g1
$ fix (# cut 12) "wobble"
$ fix (# cut 11) "808bd"
$ "k ~ ~ k . ~ ~ k <~!4 ~ ~ k k*2>"
# "[808bd:1,wobble]"
# midiG' "^78" 0 1.4
d2 $ g1
$ fix (|- note 12) "sn"
$ "~ [s ~ ~ s] . [~ s] ~ s <~ s*<1!3 2>>"
-- # "[amencutup:8,sn:4]"
# "[snare:30]" # note "-4"
# midiG' "^79" 0 1.1
# room 0.8
# sz 0.8
# dry 0.98
d3
$ g1
$ ply "<1 1 <1 2> [4 <2!3 4>]>"
$ fast "<1!8 2!24>"
$ "s*6"
# "amencutup:4"
# gain 0.8
# pan 0.7
# midiG' "^80" 0 1
d4 $ g2 -- Broken Saloon
-- $ superimpose (
-- (|- pan 0.2)
-- . (|+ note 12)
-- . (# cut 51)
-- )
$ midiOn "^58" (iter 16)
$ sometimesBy "^54" (striate 4 . ply "1 <1 <2 [2 4]>>")
$ slice 8 (run "<4!2 2 <8 [8 4] [4 8] 4>>" + (slow 8 "<0 4>"))
$ loopAt 2
$ "fpiano:8"
# cut 5
# pan 0.65
# midiG' "^82" 0 0.9
d5 -- Desert bird angel
$ g2
-- $ mask "<f!32 t!32>" -- Economise
$ slice 2 ("<0 1 0 [0 0 1] 1 [1 1] [2*4] [1 3]>")
$ loopAt 1
$ "fmono:8"
# room 0.3
# pan 0.7
# sz "<0.3 0.5!2 <0.9 1.4>>"
# cut 6
# midiG' "^83" 0 0.9
-- d6 -- TODO: FIX SOME BASS <3
-- $ slice 8 "0 1 0 0"
-- $ "fbass:8"
-- # gain 1.3
-- # pan 0.3
-- # cut 6