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
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
resetCycles
-- Michael: lounge piano/brass tech/break
do
let gDJF = (# djfbus 1 (range 0.1 0.9 "^49"))
let g = gDJF
setcps (120/60/4)
d1 $ g
$ midiOn "^42" (struct "t t t*<2 1 1 2> t*<1 2>")
$ midiOff "^42" (struct "t*<1!3 2> . t(3,8)")
$ "jazz"
# room 0.5 # sz 0.5
# dry 1
# midiG' "^78" 0 1.6
d2 $ g
$ superimpose (const
$ midiOff "^43" (# silence)
$ mask "<f!8 t!24>"
$ "~ . cp*<1!3 2> ~"
# lpf 2000
# midiG' "^79" 0 1.2)
$ whenmod 8 6 (ply "2 <2 4>")
$ "~ s . ~ <s!7 ~> <~!7 s> <~!3 s>" # "snare:20"
# midiG' "^79" 0 0.8
# note (range "-12" 12 "^51")
d3
$ sometimesBy "^52" (ply 2)
$ g
$ midiOn "^44" (slow 2)
$ "~ h ~ h ~ <h h*2> ~ h" # "hh27:2"
# note (
whenmod 4 3 (2 -)
"0 . 2 0"
)
# midiG' "^80" 0 1.3
d4 $ g -- Synth brass choir
$ midiOn "^57" (# crushbus 4 6)
$ fix (
(# "fsynth:3")
. slice 8 "0 1*<1 2 2 1> 2*<<1 2> 1 2 1> 3*<<1 2> 4>"
. arp "pinkyup"
. (|+ pan 0.1)
. (>| note ("c'maj'3" - 7))
. (|* gain ("^17" * 0.9))
) "a"
$ fix (
(# "fsynth:3")
. (|- note 12)
. whenmod 4 2 (often (ply 2))
. (# pan (perlin))
. (|* gain "^33")
) "b"
$ fix (
(# "fsynth:3")
. (|- note 24)
. (|+ pan 0.1)
. (|* gain "^53")
) "c"
$ slice 4 "<0 1 2 3>"
$ "[a,b,c]"
# midiG' "^81" 0 1
# crushbus 41 (range 16 1.6 "^13")
# room 0.3
# pan 0.6
# sz 0.6
d5 $ g -- Jumpy Piano
$ midiOff "^58" (struct "t(2,4)")
-- $ degradeBy ("0 0.95!7 0" - "^34")
$ juxBy 0.8 (rev . (# cut 51))
$ mask "f <f!8 t!8>!3 . t"
$ slice 8 (run ("4 <4 8>" * "<1!3 2>"))
$ "fpiano:3"
# cut 5
# pan 0.2
# crush (range 12 3 "^54")
# room 0.5
# sz 0.7
# midiG' "^82" 0 1
d7 $ g
$ midiOn "^59" (ply "<1 1 2 2>")
$ midiOn "^91" (ply "<2!3 4>")
$ slice 8 (run (
"<2!3 4>"
* "<1!4 2!4 [2 1]*4 [2 4]*4>"
))
$ "forgan:17" # cut 7
# midiG' "^83" 0 (1.2 - 0.5 * "^55")
# crushbus 7 (range 10 1.5 "^55")
d8 $ g
$ midiOn "^60" (iter 4)
$ midiOn "^92" (ply 2)
$ loopAt 2
$ degradeBy ("0 0.9!7 0" - "^36")
$ scramble 2
$ slice 8 (run 8)
$ "fbreak120"
# pan 0.7
# speed (range 0 2 "^56")
# midiG' "^84" 0 1.35
# cut 6