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
do
setcps (135/60/4)
let f1 = (# djfbus 1 (range 0.15 0.85 "^49"))
let f2 = (# djfbus 2 (range 0.15 0.85 "^29"))
let mBreak = (midiOn "^41" (mask "t f . f <f!4 t!4> <f!2 t!6> t"))
let m = mBreak
let modIndex = pF "modIndex"
d1 $ f1
$ midiOn "^42" (fast 2)
$ "[cpu,jazz]*2"
# midiG' "^78" 0 1.8
d2 $ f1 $ mask "<t!16 f!8 t!8>"
$ "~ c ~ c*<1 2>"
# "electro1"
# n "<2!3 <3 3 2 3>>"
# midiG' "^79" 0 1.8
d10 $ mask "<f!8 t!8>" $ "~ <c c [c . c*2] c>" # "clap"
# lpf 1500
# midiG' "^79" 0 1.8
d9 $ mask "<f!8 t!8>" $ "~ <~ c [c . c*2] c>" # "h2ogmhh"
# midiG' "^79" 0 1.2
d3 $ f2 $ "d*[8 <8 <[8 4] 16>>]" # "drum:2"
# midiG' "^80" 0 1.8
d4 $ f1
$ whenmod 16 8 (superimpose (|+| note (
"0 12*<1!3 2> <0 12> 0?"
+ 12
)))
$ note (scale "aeolian" "<0 3 5 7>")
# "moog"
# crushbus 4 (range 16 2 "^53")
# cut 4
# pan 0.2
# midiG' "^81" 0 1
d5 $ f2
$ whenmod 16 8 (superimpose (|+| note (
"0 12*<1!3 2> <0 12> 0?"
- 24
)))
$ note (scale "aeolian" "<0 3 5 7>")
# "FMRhodes1"
# modIndex (range 0 100 "^54")
# cut 5
# room 0.4
# dry 1.5
# sz 0.8
# pan 0.8
# midiG' "^82" 0 1.8
once
$ "electro1:2"
do
let g = (# djf "^49")
d1 $ g $ "jazz*4"
# gain (slow 8 $ range 0.5 1 sine)
d2 $ g $ "~ cp"
d3 $ g $ n "0(3,8)" # "amencutup"
--
do
let modIndex = pF "modIndex"
once $ note "c4"
# "FMRhodes1"
# gain 2.5
# att 0.1
# rel 0.9
# modIndex 100