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
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
-- TODO: Add some spaceship fx
-- TODO: Reconsider if enough rythmic variations - what about a DROP?
once $ "kick:5" # crush 4
do
-- DONE TRIGGER INTRO :)
-- resetCycles
-- once $ "90s_synatm:8" # gain 0.94 # panbus 41 (range 0.2 0.5 saw) # room 0.4 # sz 0.94
let g = (whenmod 64 32 (# djfbus 2 (slow 32 $ range 0.5 0.18 cosine)))
let gF = 1.01
let f1 = (# djfbus 1 (range 0.05 0.95 "^49"))
let f2 = (# djfbus 2 (range 0.05 0.95 "^50"))
let maskLoops = (mask "<t!4 [t!3 f]>" . mask "<t!14 f [f!3 t]>")
let kCrush = midiOn "^74" ((# crush 2.5) . (# legato 0.25))
setcps (90/60/4)
d1 $ f1 -- FIXME: CRUSHED?
$ kCrush
$ midiOn ("^42") (slow 4) -- PAUSE
-- $ mask "<f!32 f!8 t!16 t f!6 [t f] t!64>"
$ midiOff "^42" (maskLoops)
$ midiOn "^41" ((<| "k k k <k [<~ k> k]>") . (# legato 0.6))
$ midiOff "^41" (<| "<k k ~ k> . ~ ~ ~ <~!3 k>")
$ "[reverbkick,808bd:6,kick:8]"
# lpf 1000
# crush 16
# midiG' "^78" 0 1.3
d2 $ f1
$ mask "<t(<1!3 3>,4)!4 t!28>" -- Intro / break/32
$ midiOff "^75" maskLoops
$ midiOn "^43" (slice 4 (run 8))
$ midiOn "^75" (ply "2 <2!3 4>")
$ mask "<t [t!6 f t] t t t!4>" -- Degrade mid-loop!
$ iter "1 <1!4 4 4 4 2>"
$ loopAt 2
$ slice 8 (run 8)
$ "break:20"
# cut 2
# speed (range 0.05 1.95 "^51")
# midiG' "^79" 0 1.3
d3 $ f1 -- Sidekick, doubtful, yet hardworking hats
$ midiOn "^76" (ply "[4 <1 2>]*<4!3 8>")
$ mask "<t(<1!3 3>,4)!4 t(2,8)!8 [<t!3 [t f]>]!52>" -- Intro / break/32
$ maskLoops
$ someCyclesBy "<0.6 1>" (stut "<2 3 4>" 0.5 "s")
$ sometimesBy (0.1 * "[0 <0 0.5> 0 <1!3 2>]!4") (# silence)
$ ply "<1!8 <2 <2 [2 2 4 2]!7> <2!4 4!4> <4!2 [4 4 8 4] [4 8 <8 4> 4]!3 4>>>"
$ "hh*4"
# "h2ogmhh"
# pan 0.6
# room 0.2
# midiG' ("^80" + 0.08 * (slow 2 perlin)) 0 1.3
d4 $ f2 -- Atmospheric synth: aerial questions
$ "90s_synatm:8/4"
# cut 4
# room 0.8
# legato 4
# dry 1
# pan 0.45
# crushbus 42 (range 16 3.4 "^53")
# legato 2
# midiG' "^81" 0 1.7
d5 $ f2 -- Synth: ELECTRONIC ANSWERS
-- $ mask "<f!32 t!96>" -- Intro
$ midiOn "^90" (ply "1 <1!3 [0 1 <2 0> <0 2>]> <2!3 [[2 0] 1]> <1 2>" .slice 16 ("<0 1 2 3>*8" + "<0!4 4!4>"))
$ midiOn "^58" (chop "<4 8 16 [32 64 . 128]>")
$ "90s_synatm:14/4"
# cut 5
# room 0.65
# pan 0.43
# dry 1
# panbus 51 (range 0.8 0.65 saw)
# crushbus 52 (range 12 2.85 "^54")
# midiG' "^82" 0 1.6
d6 -- High lead: Winds of truth
$ juxBy 0.5 ((# cut 61) . rev) -- Jux rev <3
$ whenmod 8 6 (swing "<4 2>")
$ whenmod 32 8 (superimpose ( -- Echos of doubts
(arp "<up!3 down>")
. (sometimesBy (range 0 "<0.25!3 <0.5 0.75>>" saw) (ply 2))
. (# pan 0.4)
. (+| note "[12,19,<21 21 17 18>]")
. (# cut 61)
. (|* gain 0.8)
))
$ note (scale "aeolian" "<0!3 [0@6 <4 -1>@2]> 2")
# "90s_synatm:18"
# pan 0.9
# room 0.4 # sz 0.8
# crushbus 62 (range 16 2.25 "^55")
# midiG' "^83" 0 0.8
# dry 0.1
# pan "^19"
# cut 6
d10 $ f1 -- RANDOM FOREST NOISES
$ fix (
kCrush .
struct "t t t t t*<1 2> [<t!2 ~ t> <t!2 ~ t>] t t"
. (# "[future:1]")
. (# midiG' "^13" 0 2)
) ("n1")
$ fix (
struct "[~ t]*2"
. (# "snare:34")
. (# midiG' "^14" 0 1.8)
) "n2" -- tchak reverb phantome
$ fix (
whenmod 32 16 (someCyclesBy (slow 16 $ saw) (iter 4 . ply "2 [2|1]"))
. struct "t([3 <3!3 5>],8,<0!8 3!8>)"
. (# n "<3!3 [3 2]>")
. (# "amencutup")
. (# pan 0.88)
. (# midiG' "^15" 0 1.25)
) "n3" -- amen excerpt
$ fix (
(# "gretsch:10")
. (struct "t*3 ~ . t*<1!3 2> t*<1 3>")
. (# cut 104)
. (# pan (range 0.5 0.9 perlin))
. (# midiG' "^16" 0 1.4)
) "n4" -- FX1
$ fix (
(# "[dr,drum:2]")
. (slow "<1!24 2!8>")
. (struct "t*[16!3 <16!3 [32 16 32 16]>]")
-- . (# cut 105)
. (# pan (range 0.02 0.25 perlin))
. (# midiG' "^17" 0 0.9)
) "n5" -- Drumroll
$ "[n1,n2,n3,n4,n5]" -- n4
# gain 0.8