-- Une barrière bleue
-- couvre l'horizon ici
-- Triste ville

do
  let modIndex = pF "modIndex"
  let g =  (# djfbus 1 (range 0.1  0.9 "^49"))
  let g2 = (# djfbus 2 (range 0.05 0.95 "^50"))
  let gMask = (midiOn "^41" (mask "t . <f t f <f t>> <t f f <t f>>"))
  let gMute = (midiOn "^73" (mask "f*16"))
  let gM = gMask . gMute
  setcps (120/60/4)
  d1 $ g $ gMute -- BOUNCE THAT KICK
    $ whenmod 16 12 (# legato 0.125)
    $ whenmod 4 3 (# legato 0.25)
    $ midiOn "^42" (<| "k*4" )
    $ midiOff "^42" (<| "k . k(<3!3 [3 5]>,8)")
    $ fix (# lpf 200) "kick:4"
    $ "[jazz,kick:4,kick:9]"
    # midiG' "^78" 0 1.5
  d2 $ g $ gM
    $ midiOn "^43" (struct "~ t ~ <~!3 t> ~ <~ t> ~ t")
    $ midiOff "^43" (struct "~ t")
    $ "cp"
    # note "<8!3 <-2!3 [-2!3 8]>>"
    # midiG' "^79" 0 1.8
  d3 $ g $ gMask
    $ midiOn "^76" (ply "<2!3 [2 . 4 8]>")
    $ midiOff "^44" (mask "t(<8!3 [8 4]>,16)")
    $ "h h h h h*<1 2 1 <1 2>> h h*<1!7 2> [<h!3 ~> h]" # "hh"
    # midiG' "^80" 0 1.8
  d5 $ g2 -- DAMAGED BASS
    $ midiOn "^89" (chop 8 . ply "<4 4 <4 4 8 4> 1>")
    $ note (scale "aeolian" "<0 0 [0@3 -1] <5 6>>")
    # room (slow 16 $ range 0.2 0.8 saw)
    # legato "<1!3 2>"
    # "90s_weird:2"
    # pan 0.3
    # crushbus 51 (range 16 2.5 "^53")
    # roombus  52  (range 0 0.8 "^53")
    # midiG' "^81" 0 1
  d6 $ g2 -- MY OTHER BASS IS A CAR
    $ slow 4
    $ chop 16
    $ "bass_atari:2"
    # crushbus 61 (range 16 1.5 "^54")
    # midiG' "^82" 0 1.5
    # cut 6
  d7 $ g2 $ gMask
    $ midiOff "^59" (mask "t(1,4) t(1,4)")
    $ midiOn "^91" (ply "<4 4 [4 2 4] 4> <2 1>")
    $ whenmod 36 24 (juxBy 0.2 ((# cut 71)))
    $ note (scale "aeolian" (
      "<0 0 0 <5 6>>" -- Theme
      + ("[0*3 9*3 <5 4>*3 12*3]")
      ))
    # "giorgio_syn:5"
    # cut 7
    # pan 0.8
    # crushbus 71 (range 16 1.5 "^55")
    # midiG' "^83" 0 0.8
  d8 $ g2 $ gMask
    $ note (scale "aeolian" (
      "<0 0 0 <5 6>>" -- Theme
      + ("[-4 -3*2 [-2 -3 -2 -1 ~]]"
        -3)
      )
      + "12"
    )
    # "strings"
    # cut 8
    # pan 0.2
    # midiG' "^84" 0 1.3

once $ note (scale "aeolian" ("-2")) # "strings" # gain 0.8 # cut 9


  -- $ note "36"
  $ "strings" # gain 0.8


  once  $ "moogBass"