-- 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.65)
  ) "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