do
setcps (123/60/4)
let gF1 =  (# djfbus 1 (range 0.05 0.95 "^49"))
let gF2 = (# djfbus 2 (range 0.05 0.95 "^50"))
let gF3 = (# djfbus 3 (range 0.05 0.95 "^51"))
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 gM = gMask . gMute
let gM2 = gMask . gMute2
let gM3 = gMask . gMute3
d1 $ gF1 $ gM2
  -- $ someCyclesBy
  $ midiOn "^42" (<| "t*4")
  $ midiOff "^42" (<| "t(<3!3 <5 [5 <8 [16 10]>]>>, 8)")
  $ "[jazz,electrn:8]"
  -- # midiG' "^78" 0 1
d2 $ gF1 $ gM
  $ midiOn "^43" (# note "-24")
  $ "~ ~ cp*<1!3 2> <~!7 cp>" # "clap"
  # note "-0"
  # att 0.01 # rel 0.2
  # room "<0!8 0.1!8 0.2!8 0.3!8>" # dry "<0.99!7 0.95>"
  # lpf 5000
  -- # midiG' "^79" 0 1.4
  # gain 1.4
d3  $ gF1 $ gM
  $ midiOn "^76" (ply "<2!3 4>")
  $ "~ h ~ h ~ h ~ h"
  # "electrn:4"
  # pan 0.9
  -- # midiG' "^80" 0 1.8
  # gain 1.8
d4 $ gF2 -- Maladive boucle
  -- $ superimpose ((# lpf 2000) . (# cut 41))
  $ midiOn "^57" (((# freeze 0.4) . chop 4 . (# note "<0 0 2 -2>")))
  $ midiOn "^57" (# crushbus 44 (range 16 1.6 "^53"))
  $ midiOff "^57" ((chop 16) . (# octerbus 41 (range 0 1.8 "^53")))
  $ "trance_syn:0/4"
  -- # octersubbus 42 (range 0 2 "^33")
  -- # octersubsubbus 43 (range 0 2 "^17")
  -- # midiG' "^81" 0 1
  # cut 4
  # pan 0.1
d8 $ gF1 $ gM3 --  rythmique tribale
  $ midiOn "^60" (iter "<1!8 4!4>" . chop 8)
  $ midiOn "^92" (ply "<4!3 [8 4 . <16 32 64>]>")
  $ chop 4
  $ loopAt 4
  $ "trance_loops:4"
  # cut 8
  # room 0.9
  # dry (slow 16 $ range 0.99 0.8 saw)
  # lpf (slow 32 $ range 8000 4000 saw)
  -- # midiG' "^84" 0 2
  # gain 2
d9 $ gF3 $ gM3 -- Harpe magique intro
  $ chop 4
  $ loopAt 4
  $ n "10"
  # "trance_amb"
  # cut 9
  # pan 0.8
  # lpf 4000
  # room 0.4 # sz 0.9 # dry 1
  -- # midiG' "^83" 0 1.5



d4 -- BassBubbles
  $ midiOn "^89" (chop 16)
  $ loopAt 4
  $ fix ((# cut 41) . (# pan 0.2)) (n "[0,2]")
  $ fix ((# cut 42) . (# pan 0.4) . (loopAt 2)) (n "[1,3]")
  $ midiOn "^57" (# n "[2,3]")
  $ "trance_bass" # n "[0,1]" -- 2
  # midiG' "^81" 0 1

once $ ""