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
setcps (120/60/4)
resetCycles
-- Michael: lounge piano/brass tech/break
do
let gDJF = midiDJF "^49" 200 9800 0 1000
let g = gDJF
d1 $ g
$ midiOn "^41" (struct "t t t*<2 1 1 2> t*<1 2>")
$ midiOff "^41" (struct "t(<3!3 [3 <8 [5 8]>]>,8)")
$ "jazz"
# room 0.5 # sz 0.5
# dry 1
# midiG' "^78" 0 1.6
d2 $ g
$ whenmod 8 6 (ply "2 <2 4>")
$ "~ s . ~ <s!7 ~> <~!7 s> <~!3 s>" # "snare:20"
# midiG "^79"
d3
$ g
$ midiOn "^44" (slow 2)
-- $ midiOn "^41" (struct "t*[<8 8 16 8> 8]")
-- $ degradeBy ("0 0.95!7 0" - "^52")
$ "~ h ~ h ~ h*2 ~ h" # "hh27:2"
# note (
whenmod 4 3 (2 -)
"0 . 2 0"
)
# midiG' "^80" 0 1.6
d4 $ g -- Synth brass choir
$ midiOn "^57" (# crush 6)
$ fix (
(# "fsynth:3")
. (|- note 24)
. (|+ pan 0.1)
. (|* gain "^53")
) "a"
$ fix (
(# "fsynth:3")
. (|- note 12)
. whenmod 4 2 (often (ply 2))
. (# pan (perlin))
. (|* gain "^33")
) "b"
$ fix (
(# "fsynth:3")
. slice 8 "0 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))
) "c"
$ slice 4 "<0 1 2 3>"
$ "[a,b,c]"
# midiG' "^81" 0 1.5
# room 0.3
# 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" # gain 1.25
# cut 5
# crush (range 16 3 "^54")
# room 0.5
# sz 0.7
# midiG' "^82" 0 1.5
d7 $ g
$ 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")
# crush (range 16 1.5 "^55")
d8 $ g
$ loopAt 2
$ degradeBy ("0 0.9!7 0" - "^36")
$ scramble 2
$ slice 8 (run 8)
$ "fbreak120"
# room 0.8
# dry (1 + (slow 8 $ perlin * "^56"))
# midiG' "^84" 0 1.5
# cut 6