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
resetCycles
do
setcps (110/60/4)
let gDJF1 = (# djfbus 1 (range 0.10 0.90 "^49"))
let gDJF2 = (# djfbus 2 (range 0.05 0.95 "^29"))
let mBreak = (midiOn "^41" (mask "t f . f <f!4 t!4> <f!2 t!6> t"))
let g1 = (gDJF1)
let g2 = (gDJF2)
let mel = "<[c,ef,g,bf,d6,f6] <[c,f,af,c6,ef6,g6,bf6] [g,b,ds6,f6,g6,b6,ds7]>>"
let melB = "<[c,ef,g,bf,d6,f6] <[c,f,af,c6,ef6,g6,bf6] [g,b,ds6,f6,g6,b6,ds7]>>"
let modIndex = pF "modIndex"
d1 $ g1 $ "k<1!4 2 1 1 2> . ~!3 <~!3 k>"
# "[808bd:1,jazz]"
# midiG' "^78" 0 0.9
d2 $ g1 $ "~ . s ~ ~ <~!4 s!4>"
# "[sn:20,snare:8]"
# midiG' ("^79" * "~ . 1 0.9") 0 0.9
d3 $ g1
$ midiOn "^44" (fast 2)
$ sometimesBy 0.1 (fast 2)
$ "d*[8 <8 <4 [4 16]>>]"
# "drum:2"
# midiG' "^80" 0 0.9
d4 $ g2
$ whenmod 32 24 (superimpose (
arp "<up!6 downup!2>"
. (|+ note 12)
. (# pan 0.7)
))
$ note ("<0 0(<3 5>,8)>"
+ (slow 4 mel)
-- # Cmin11,Fmin9,Cmin11,G7#5 - Enthusiasm
- 24)
# "FMRhodes1"
# att 1 # rel 2
# modIndex 0
# room 0.8
# dry 1
# sz 0.2
# midiG' "^82" 0 1.3
d5 $ g2
$ note ("<[f af bf] [f@2 <af!4 bf!4> <bf!4 af!4>]> [<cs6!4 [cs6@3 ds6]!4>]"
- 24)
# "bassWarsaw"
# midiG' "^81" 0 1.3
# crushbus 51 (range 16 4.6 "^53")
# pan 0.3
d6
$ slice 16 ("<0!4 ~!3 0> 1 2 3 4 5 6*<1!3 2> <7 15>")
$ "break:18"
# midiG' "^84" 0 1.3
# speed (range 0 2 "^56")
# cut 6