let juggleBy n p = ((choose [(1/n), (3/n), (1/2*n), (3/2*n)]) ~>) $ p
d1 $
stack [
--m $
foldEvery [8,9] ((# legato 0.5)) $
stack [
--m $
whenmod 32 30 (# hpf 400) $
cat [ s "[gbd gbd*1?] gbd gbd gbd", s "gbd gbd gbd gbd*1?", s "[gbd gbd*1?] gbd gbd gbd", s "gbd*2 gbd*4?"] # n 13 # krush 40 # rel 0.3 # amp 0.7
,
--m $
s "[~ cp*2?]*2?" # n 28
,
m $
slow 4 $
s "dr:34*16" # gain "[0.9 0.7]*8"
,
--m $
s "[~ ghh]*4" # n 23
,
m $
--(# n 5) $
every 4 (someCycles (# coarse (irand 13))) $
shiftBy 645634 $
whenmod 32 30 degrade $
whenmod 8 6 (sometimes (juxBy 0.3 (|* speed (-1)))) $
whenmod 16 8 juggle $
splice 8 "<[0..7] [0 1 2 0 1 2 3 3]>" $ s "<jungloop nl161 jungloop jungloop>" # n "<5 5 5 <2 10>>" # gain 1.2 # amp 0.7
]
,
--m $
(|+ n "<0 0 5 5>") $
stack [
--m $
stutWith 8 (1/8) ((|* gain 0.9)) $
fast 4 $
degrade $
(|- n 12) $
n (scale "dorian" (cycleChoose [0..21])) # s "supervibe" # gain 1 # amp 1.4 # attack 0.2 # hold 0.2 # pan sine # lfo 2 # pitch1 4
,
--m $
shiftBy 63456 $
stutWith 8 (3/16) ((|* gain 0.9)) $
fast 8 $
degrade $
(|- n 12) $
n (scale "dorian" (cycleChoose [0..21])) # s "gabor" # voice 4 # attack 0.03 # hold 0.2 # gain 0.9 # pan (range 0.8 0.2 $ fast 2 sine)
,
--m $
sometimes ((# room 0.3) . (# sz 0.3) . (# orbit 1)) $
(|+ note "<0 0 5 5>") $
shiftBy 1237456 $
degrade $
note (scale "dorian" (fast 8 $ cycleChoose [0..7])) # s "gbell" # n "<0 0 -5 -5>" # rel 1.2 # lpf (range 200 8000 rand) # amp 0.4
,
--m $
shiftBy 123 $
--stutWith 8 (3/8) ((|* gain 0.9)) $
fast 2 $
--degrade $
(|- n 24) $
n (scale "dorian" "0 3 ~ 7") # s "superhammond" # amp 1.1
]
]
d1 $
whenmod 32 28 (rot 3) $
whenmod 20 18 ((slow 2) . ((# delay 0.7) . (# delayt (cycleChoose[(1/12), (1/3), (1/6)])) . (# delayfb 0.7) . (# orbit 1))) $
whenmod 32 31 (hurry 0.5) $
every 8 (degrade . (hurry 2) . (sometimesBy 0.8 (jux(# fshift (range 0 1000 saw)))))$
foldEvery [17,19] (jux(# nudge 0.1) . (|+ coarse 5)) $
whenmod 16 15 (# coarse (irand 50)) $
stack [
whenmod 4 3 (rot 3) $
--m $
stack [
s "gbd:23*3 ~" # gain 1.4 # legato 1
,
sometimes ((# room 0.5) . (# sz rand) . (# orbit 1)) $
s "~ gperc*<3 6>?" # n (irand 30) # legato 1 # speed (range 1 4 rand)
,
s "{gsd ghh gho gsd}%3 gbd*2" # legato 1 # n (irand 30)
,
m $
n "<c4'maj7 a4'sus4 c4'maj7 a4'sus4 d4'maj7 b3'min7 d4'maj7 b4'sus2>" # s "superhammond" # rel 2.5 # legato "<1 0.5>" # voice (cycleChoose [3,4,5])
]
,
--m $
sometimes ((# room rand) . (# sz 0.6) . (# orbit 1)) $
stutWith 8 (1/6) ((|* gain 0.9)) $
sometimes (+12) $
someCycles rev $
shiftBy 2453 $
degradeBy 0.2 $
note (arp "pinkyup" "<c4'maj7 a4'sus4 c4'maj7 a4'sus4 d4'maj7 b3'min7 d4'maj7 b4'sus2>") # s "supervibe" # legato 0.5 # gain 1.2
,
--m $
shiftBy 5236 $
someCycles (# gain "[1 0.8]*6") $
s "ghh*12" # gain 0 # n 13
,
m $
--repeatCycles 4 $
sometimes (fast 3) $
s "gsh*2" # n (irand 30)
,
--m $
whenmod 4 3 (within (0.5,1) (|* speed (-1))) $
someCycles (#fshift (range 0 2000 tri)) $
shiftBy 1566 $
whenmod 8 6 (someCyclesBy 0.3 ((# ring (range 0 1 $ slow 2 saw)) . (# ringf (range 100 6000 $ slow 2 saw)))) $
splice 16 "<~ [0 .. 5]>" $ s "nl161" # n "<3 3 9 9>" # shape "<0.7 0.7 0.2 0.2>" # gain 1.1
,
jux(# nudge 0.1) $
--m $
note "<c3 a2 c3 ~ d3 b2 d3 ~>" # s "superhammond" # attack 1.7 # gain 1.3
]
d2 silence
d2 $ s "~ cp ~" # gain 1.2
d3 silence
d3 $
sometimesBy 0.3 (stutWith 8 (1/4) ((|* gain 0.9))) $
degrade $
splice 8 "<[0 1 2 ~ ~ ~][0 1 2 3 3 3][0 1 2 ~ ~ ~][3 3 3 4 4 4]>" $ "rawfx" # n (irand 70) # gain 1
d1 $
stack [
--whenmod 4 2 ((# ring (range 0 1 $ slow 2 saw)) . (# ringf (range 100 6000 $ slow 2 saw))) $
cat[
jux(rev) $
plyWith 16 ((|* gain 0.9) . (|* speed 1.2)) $
s "gbd(3,8)" # n 12
,
jux(rev) $ plyWith 16 ((|* gain 0.9) . (|* speed 1.2)) $ s "gbd*8" # n 12
,
jux(rev) $
plyWith 16 ((|* gain 0.9) . (|* speed 1.2)) $
s "gbd(3,8)" # n 12
,
jux(rev) $ plyWith 16 ((|* gain 0.9) . (|* speed 1.2)) $ s "gbd*6" # n 12
]
,
--hurry 2 $
juxBy 0.3 (|* speed (-1)) $
ply "<1 1 1 2>" $
s "gbell*<4 8 4 6>" # unit "c" |* speed "<4 8 4 6>" # n 33
]
d1 $
whenmod 32 31 ((|* gain (range 1 0 $ fast 2 square)) . jux(# accelerate "-1 1")) $
whenmod 16 14 (someCycles (# coarse (irand 30))) $
stack [
m $
repeatCycles 16 $
((# room (range 0 0.5 rand)) . (# sz rand) . (# orbit 1)) $
degrade $
repeatCycles 32 $
s "gsh*16" # n (irand 40) # crush (2+(irand 14)) # gain 1.1 # legato 1 # hpf 100
,
s "gbd" # krush 2
,
m $
s "gbd(3,8,3)" # n 18 # gain 1.2
,
m $
whenmod 4 3 (within (0.5,1) (ply (cycleChoose [2,4,8]))) $
s "[~ gsd:3]*2" # gain 1.2
,
m $
s "<~ [~ gho]>*4" # n 13 # legato 1 # gain 1.2
,
m $
s "[ghh ~ ghh ghh]*4" # gain 1.2
,
--m $
stack [
whenmod 4 2 m $
repeatCycles 4 $
--degrade $
s "rawfx*16" # unit "c" # n (irand 50) # legato 1 |* speed (choose [8,16]) # gain 1.1
,
(|* gain (range 0 1 $ slow 4 square)) $
plyWith 4 ((|* gain 0.9)) $
juxBy 0.2 (rev) $
degradeBy 0.4 $
randcat[
someCycles ((# room (range 0 0.5 rand)) . (# sz rand) . (# orbit 1) . (|* gain 0.95)) $
s "electro1*16" # n (irand 30) # speed 4 # gain 1.1 # shape 0.4 # hpf 300 # rel 0.3
,
someCycles ((# room (range 0 0.5 rand)) . (# sz rand) . (# orbit 1) . (|* gain 0.8)) $
shiftBy 123 $
someCycles (# vowel "e a i o u") $
(|* speed (range 1 4 $ sine)) $
s "<glitch future bleep blip>*16" # n (irand 30) # speed 4 # gain 1.1 # shape 0.4 # hpf 300 # rel 0.3
]
]
,
m $
whenmod 16 14 (sometimesBy 0.3 (|* speed (-1))) $
splice 4 "{0 1 2 3 4 5 6}%4" $ s "nl161" # n "<12 12 12 <19 22>>" # gain 1 # shape 0.6
,
s "gcr/8" # n 7 # gain 1.2
,
--m $
stack [
m $
n "<a2 g2 a2 ~>" # s "<superreese>" # krush 8 # gain 0.8 # lpf 200
,
m $
(stutWith 16 (3/16) ((|* gain 0.95) . (# pan sine))) $
n "<~ ~ ~ ~ ~ ~ ~ <[a5 c6 <g6 as6> e6]*2 [a5 as5 <~ e6> g5]*2>>" # s "superpwm" # rel 0.3 # gain 1.1 # lpf (range 200 12000 $ fast 2 saw) # lpq 0.2
,
m $
(+12) $
n "<a4'min*16 g4'min*16 a4'min*16 ~>" # s "superzow" # rel 0.1 # lpf (range 500 5000 $ slow 8 tri) # lpq 0.2 # gain (range 0.5 1 $ fast 4 saw)
]
]
xfadeIn 1 8 silence
d2 $
--m $
stack [
n "<a2 g2 a2 ~>" # s "<superreese>" # krush 8 # gain 0.8 # lpf 100
,
--m $
(stutWith 16 (3/16) ((|* gain 0.95) . (# pan sine))) $
n "<~ ~ ~ ~ ~ ~ ~ <[a5 c6 <g6 as6> e6]*2 [a5 as5 <~ e6> g5]*2>>" # s "superpwm" # rel 0.3 # gain 1.1 # lpf (range 200 12000 $ fast 2 saw) # lpq 0.2
,
m $
(+12) $
n "<a4'min*16 g4'min*16 a4'min*16 ~>" # s "superzow" # rel 0.1 # lpf (range 500 5000 $ slow 8 tri) # lpq 0.2 # gain (range 0.5 1 $ fast 4 saw)
]
jump 1 $
every 16 ((# crush (segment 8 $ range 8 1 $ saw)) . (jux(|* speed (-1)))) $
whenmod 16 14 ((# leslie (range 0.3 1 $ slow 2 saw)) . (# lrate (range 0.7 6.7 $ slow 2 saw)) . (# lsize 0.6)) $
whenmod 32 30 (juxBy (range 0 1 $ slow 2 saw) (hurry 0.5)) $
--whenmod 32 28 (sometimes (|* speed (-1))) $
stack [
--m $
whenmod 16 14 (rot 3) $
whenmod 4 3 ((within ((4/7),1) ((stutWith 2 (1/16) (|* speed 1.2)))) . (# hpf 800) . (# shape 0.3)) $
whenmod 8 7 (someCyclesBy 0.7 (jux(|* speed (-1)))) $
(|* gain 1.2) $
(# shape 0.2) $
cat [
splice 16 "<[0 1 2 3 4 5 6][0 1 2 3 4 5 6][0 1 2 0 1 2 3][0 1 0 1 0 0 0*2]>" $ s "nl161" # n "<0 [0 9 0 9] [11 12] <23 3>>"
,
splice 16 "<[0 1 2 3 4 5 6][0 1 2 3 4 5 6][0 1 2 0 1 2 3][0 1 0 1 0 0 0*2]>" $ s "nl161" # n "<0 [0 9 0 9] [11 12] <23 3>>"
,
splice 16 "<[0 1 2 3 4 5 6][0 1 2 3 4 5 6][0 1 2 0 1 2 3][0 1 0 1 0 0 0*2]>" $ s "nl161" # n "<0 [0 9 0 9] [11 12] <23 3>>"
,
randcat [
s "<dr rawperc>*<7 7 14? 7?>" # n (irand 30) # unit "c" |* speed 7
,
splice 16 "<[0 1 2 3 4 5 6][0 1 2 3 4 5 6][0 1 2 0 1 2 3][0 1 0 1 0 0 0*2]>" $ s "nl161" # n "<0 [0 9 0 9] [11 12] <23 3>>"
]
]
,
--m $
cat [
--whenmod 4 3 ((slow 2) . (# hpf 400)) $
stack[
s "ghh*7"
,
m $
s "gbd(3,7,<3 5>)" # n 25 # gain 1.2
,
slow 4 $ s "[~ gsd]*7" # n 3 # gain 1.2
]
,
--whenmod 4 3 ((slow 2) . (# hpf 400)) $
stack[
s "ghh*7"
,
m $
s "gbd(3,7,<3 5>)" # n 27 # gain 1.2
,
slow 4 $ s "[~ gsd]*7" # n 3 # gain 1.2
]
]
,
--m $
s "gcr/4"
,
s "rawfx:16/16" # accelerate 0.6
]
xfadeIn 1 16 silence
d2 $
(|* gain 0.9) $
whenmod 32 30 (hurry 0.5) $
stack [
m $
slow 2 $ s "gbd:13*7" # krush 4 # rel 0.55 # speed 1.9 # amp 0.8
,
m $
slow 2 $
--press $
note "{d5*2 <~ ~ ~ a5> <fs5*2 cs6>}%7" # s "bass1" # rel 0.2 # n 2 # gain 1.3
,
--m $
stutWith 8 (3/7) ((|* gain 0.95)) $
slow 4 $
n "<d4'maj7 fs4'min7>" # s "<superchip superpwm>" # rel 7.3 # amp 0.3
,
m $
note "<d3'maj7*3.5? fs3'min7>" # s "superpiano" # rel 0.3 # krush 40 # amp 0.1
,
m $
slow 2 $
--juggle $
degrade $
note (arp "up" "<d5'maj7*3.5 fs5'min7*3.5>") # s "arpy" # gain 1.3 # lpf (range 1000 12000 $ slow 8 sine) # lpq 0.2
]
d3 silence
d2 $
stack [
--m $
whenmod 8 7 (juxBy 0.3 (|* speed 2)) $
cat [
note "<c5 e5 c5 fs5>(3,7)" # s "rawbass" # n "<25 26 25 24>" # gain 1.2 # rel 0.4 # krush 30 # amp 0.17
,
jux(rev) $
--m $
plyWith 7 ((|* gain 0.9) . (|* speed 2)) $
note "<c5 e5 c5 fs5>(<5 5 5 3>,7)" # s "juno" # n 7 # gain 1.1 # rel 0.35
]
,
m $
stutWith 8 (3/14) ((|* gain 0.95) . (# pan sine)) $
slow 2 $
--((1/2)~>) $
note "<c5 e5 c5 fs5>" # s "juno" # n "<9 10 11 10>" # rel 0.7 # speed 1.3
,
m $
sometimes (|* speed (choose[2,0.5])) $
shiftBy 23543 $
slow 2 $
sometimes (stutWith 8 (3/14) ((|* gain 0.9))) $
shiftBy 3543 $
jux((choose[(1/7), (3/7), (1/14), (3/14)]) <~) $
degrade $
note "[c5 e5 c5 fs5]*7" # s "moog:7" # rel 0.1 # speed 1.3 |* speed 2 # lpf (range 600 8000 $ slow 2 tri) # lpq 0.2 # pan sine # gain 0.9
]
