-- Tokyo chase: course poursuite à travers la dystopie


solo 1
solo 2
solo 3
solo 4

do
unsolo 1 -- Kick 4 temps pause /32
unsolo 2 -- claps accelerants!
unsolo 3 -- Drunmroll + HH
unsolo 4 -- Bass
solo 5 -- Lead ploink aigu
solo 10 -- Noises

do
resetCycles
d1
  $ mask "t(<0!4 4!124>,4)"
  $ superimpose ((|* gain 0.8) . (# "kick:5"))
  $ fast "<1!4 2!4 4!16 2!2 1!4>"
  -- $ fast 4
  $ "k" # "jazz" # gain 0.75
d2
  $ mask "<f!10 t!22>"
  $ every' 4 3 (off "<e s>" id)
  $ "clap:2(1,4,<0!3 1>)"
  # gain 0.8
  # pan 0.8
d3
  $ whenmod 32 16 (
    sometimesBy "0 <0.2!8 0.5!8>!7 0" ((# "ho") . (|* gain 0.7))
  )
  $ whenmod 64 16 (superimpose (const
    $ "hh*<8 [8 16] 16 [16 8]>"
    # gain (slow 32 $ range 0.75 1.2 saw))
  )
  $ mask "t(<2!4 4!4 8 16!6>,16)"
  $ often (juxBy 0.5 $ off "h" rev)
  $ often (off "q" (id))
  $ almostAlways (off "s" (id))
  $ fast "<2!3 [8 4]>" $ s "drum:8"
  # gain 0.85
  # cut 3
d4
  $ sometimesBy "0 . 0.25 0.5" (superimpose (# crush 4) . (|* gain 0.9))
  $ superimpose (+| note "12(<3 4 5>,8)")
  $ note ("<b3!3 <c4 a3>>")
  # "supersaw"
  # voice (slow 64 $ range 0.2 0.01 sine)
  # gain 0.45
d5
  $ whenmod 16 8 (off "e" (|+ note 12))
  $ off "q" (|* gain 0.8)
  $ note ("<0!3 <1 3 1 -1>>(3,8)") # s "cpu:7" # gain 0.75
d10
  $ superimpose (const -- Glitches
    $ "glitch:7(<3!4 5!4>,8)"
    # gain 0.45
    # speed "<0.5!10 0.25!2 0.125!2 0!2 0.5!10 0.75!2 1!2 1.5!2 2!2>"
  )
  $ superimpose (const -- Fond diffus cosmologique
  $ slow (slow 4 "<2 4 8>")
  $ stut' 4 "e" (|+ note (scale "major" "[2|5]"))
  $ s "~ cosmicg:0"
  # gain 0.3
  # speed (range 0.125 0.95 perlin)
  # pan (range 0.4 0.6 perlin)
  )
  -- bourrasque occassionnelle
  $ rarely (# gain 0.4)
  $ jux (rev . segment 2)
  $ s "space:3"
  # speed (slow 2 $ range 0.15 0.5 perlin)
  # pan (slow 4 $ range 0.45 0.55 perlin)
  # gain 0
