once $ "reverbkick" # lpf 1000 #  gain 0.5


once $ loopAt 2 $ "break:2"
  # gain 0.8
  # cut 8

do
setcps (95/60/4)
let f1 = (# djfbus 1 (range 0.25 0.75 "^20"))
let f2 = (# djfbus 2 (range 0.01 0.99 "^21"))
let gMaster x = (gain (x))
let gMaster x = (gain (x * (range 0 2 "^14")))
let gPan = (# panbus 3 "^15")
let g1 = (f1)
let g2 = (f2)
let modIndex = pF "modIndex"
d1
  $ g1
  -- $ "k*2 k*2 k k*<2!3 4>"
  $ "k . k(<<1!4 3!4> <5 [5 3]>>,8)"
  -- $ "k . k(<1 5>, 8)"
  # "[jazz,kick:5]"
  # gMaster 0.9
  # room 0
d2
  $ g1 $ "~ [s*<1!3 2> ~]" # "[glitch:1]"
  # gMaster 0.7
d3
  $ g1
  $ sometimesBy 0.2 (ply 2)
  $ fast "2 <4!3 [8|12]>"
  $ "[drum:2,dr]*4"
  # gMaster 0.75
  # room 0.25
  # dry 0.999
d4
  $ g1
  $ degradeBy ("0 1!15 0" - 1 * "^16")
  $ chop 16
  $ slice 4 "0*<1 2 4> 1 0 <1 1 3 0>"
  $ loopAt 1
  $ "breaks165"
  # gMaster 0.95
  # cut 4
d5 $ g2
  $ slow 4
  -- $ struct "t*<1 2> . t(<5!4 4!3 3>,8)"
  $ note (arp "up" "<c'min'4!3 g'min'4>"
  - "[12,24]")
  # "bassWarsaw"
  # gMaster (range 0 1.4 "^17")
  # crushbus 41 (range 16 4.5 "^18")
d6
  $ g2
  -- $ striate 4
  -- $ struct "t([3|5],8,<0 1 2 3>)"
  $ note (scale "aeolian" (
    "0 <2 [~ 2]> 4*<1 2 1 4> <<7 11> 9>"
  - 7)
  )
  # "[FMRhodes1,FMRhodes2]"
  # room 0.4
  # dry 0.99
  # sz 0.8
  # modIndex (range 0 25 "^19")
  -- # hpf (range 0 5000 "^19")
  # gMaster 0.7

once $ note "d3" # "supergong"
  # gain 1.2


-- TECHNOLOGICAL WINDS

do
let f = (# djfbus 1 (range 0.05 0.95 "^20"))
let p = (# panbus 2 "^15")
d1 $ f
  -- $ "k . ~ k(<1!3 3>,8)"
  $ "k k k <k [~ k] k k*2>"
  # "jazz"
  # gain 1.5
  # room 0.8
  # dry 1
  # sz 0.8
d2 $ f
  -- $ superimpose ((# "sn:20") . (# speed 1))
  $ "~ [glitch:2]"
  # speed (range 0.5 1.5 rand)
  # gain 1.45
d4 $ f
  $ off 0.5 (
    (|- crush 5)
    . (# hpf 1500)
  )
  $ n ("<4 1 3 1>" + "0 5")
  # "numbers"
  # crush 4.5
  # hpf (slow 16 $ range 0 5000 sine)
  # gain 1.2
  # cut 4
d6$ f
 $ "cosmicg/2"
 # speed (range 0.9 2 perlin)
 # begin (range 0 0.52 rand)
 # pan 0.9
 # gain 0.12
 # cut 4
d7 $ f $ p
  $ sometimesBy (slow 4 $ range 0 0.1 saw)
    (rev . (stut 8 0.8 "e"))
  $ whenmod 8 0 (off "e" (|+ n "<2 1>"))
  $ sometimesBy 0.2 (# n "<3 4>")
  $ n "[5|6](<3!4 3 1 1 <1 8>>,8)"
  # "wind"
  # gain (0.3 + 0.1 * perlin)
d8 $ f
  $ someCyclesBy 0.2 (ply 2)
  $ "~ h ~ h*<1 2> ~ h ~ [<h!3 ~> h*2]"
  # "h2ogmhh:1"
  # room 0 # dry 1
  # gain 1.25
d9
  $ f
  $ slow "<1!3 2>"
  $ ply 1
  $ whenmod 4 3 (scramble 4)
  $ n (run 16)
  # "amencutup"
  # gain 1.7
  # room 0 # pan 0.5 # dry 1

once  $"amencutup:7" # gain 1.5



once $ "hh"
 # gain 0.2


once $ "dr" # gain 1.6

once $ slice 8 5 "bev" # cut 5 # gain 1.2

once
  -- $ slice 4 2
  $ "ircam:2"
  # cut 5


once $ "bogdan:2"
  # gain 1.9
  # cut 5