-- SPACIAL
do
setcps (110/60/4)
let gMask = (midiOn "^41" (mask "t . <f t f <f t>> <t f f <t f>>"))
let gMute = (midiOn "^73" (mask "f*16"))
let gMute2 = (midiOn "^74" (mask "f*16"))
let gMute3 = (midiOn "^75" (mask "f*16"))
let gM1 = gMask . gMute
let gM2 = gMask . gMute2
let gM3 = gMask . gMute3
d1 $ gM2 $ gF1
  $ "k ~ ~ k ~ ~ k k*<2 1 2 2>"
  # "[jazz,techno:1]"
  # gain 1.2
d2 $ gF2 $ gM1
  $ "~ . cp*<1!3 2> ~"
  # lpf 2000
d3 $ "hh*8"
d4 $ gF2 $ gM2
  $ slice 8 ("<0 1 2 3 4 5 6 7>")
  $ "trance_bass:2"
  # speed 0.85
  # cut 4
  # room 0.4 # dry 0.8
d8 $ loopAt 2 $  chop 8 $ "jungle_breaks:45"
d5 $ gF3 $ gM3
  $ note "cs5"
  # "superfork" -- TODO On voulait une panflute...
  # room 0.2
  # orbit 4
