do
-- resetCycles
setcps (120/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
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 modIndex = pF "modIndex"
d1 $ gM2 $ gF1 -- Kick solide
  -- $ fast 2
  $ fix ((|* gain 0.9) . (# lpf 1000)) "jazz"
  $ fix ((# att 0.02) . (# rel 0.5) . (# lpf 5000)) "kick:4"
  $ midiOn "^42" (struct "t t t t*<1!6 2 2>")
  $ midiOff "^42" (<| "k . ~ <~!3 k> ~ ~")
  $ "[jazz,kick:4]"
d2
  $ gM1 $ gF1 -- snare contretemps variable
  $ fix ((|* gain 0.8) . (# legato 0.05)) "cp"
  $ midiOn "^43" (<| "~ cp ~ cp*<1 1 2 <1 2>>")
  $ midiOff "^43" (<| "~ cp")
  $ "[cp,snare:24]"
  # pan 0.65
  # legato 0.22
  -- # midiG' "^79" 0 1.6
d3 $ gM1 $ gF1
  $ "~ d ~ d ~ d ~ <d!12 [~ d]!3 [d d]>"
  # "snare:34"
  # hpf 7000
  -- # midiG' "^80" 0 1.5
d4 $ gF2
  $ midiOn "^89" (ply "<2 4> <2 4 4 8>")
  $ arp "up"
  $ note ("<g f ef d>" + "[0 12 0 12*<1 2>]")
  # "giorgio_syn:23"
  # room 0.5 # sz 0.6
  # crushbus 42 (range 16 1.4 "^53")
  # relbus 43 (range 2 0.02 "^33")
  # octerbus 44 (range 0 1.4 "^17")
  # att 0.22
  # gain 0.8
  -- # cut 4
d5 $ gF3 $ gM3
  $ note ("<g d ef d>" + "0(3,8)")
  # "trance_blips:12"
  # room 0.5 # sz 0.6
  # crushbus 52 (range 12 1.4 "^54")
  # relbus 53 (range 2 0.02 "^34")
  # octerbus 54 (range 0 1.4 "^18")
  # att 0.22
  # cut 5
d6 $ gF2
  $ chop 8
  $ loopAt 4
  $ "meth_bass:14"
  # cut 6
d7
  $ gM2 $ gF3 -- High carillon!
  $ midiOn "^59" ( -- Basse reponse
    superimpose ((0.125 <~) . (|* gain 1.2) . (# note "<c4!4  cs4!4>") . (# pan 0.45))
  )
  $ (0.125 ~>)
  $ note ("<c!4 ef!2 f g> <c!4 ef!2 f g> <c!4 ef!2 f g> <ef!4 f f g d6>"
  - 7 -- Calage
  )
  # "808hc:2"
  # pan 0.85
  -- # midiG' "^83" 0 1.5
  -- # gain 0.8
d8 $ gF1 $ gM1
  $ midiOn "^92" (ply "1 <2!3 4>")
  $ midiOff ("^56" + "^36") (mask "t(4,8,1)")
  $ chop 16
  $ loopAt 2
  $ midiOn "^36" ((|* gain 0.7) .(# "jungle_breaks:42"))
  $ midiOn "^56" (# "jungle_breaks:43")
  $ "jungle_breaks:45"
  # cut 8
  -- # midiG' "^84" 0 1.5
d9 $ gF3 -- Pads atmospheriques
  $ off 0.25 ((# pan 0.8) . (# cut 91))
  $ note ("<bf a bf <c d>>"
  + "[0 12 0 12*<1 2>]"
  - 12
  -9 -- calage
  )
  # "trance_pads:7"
  # cut 9 # legato 2
  -- # midiG' "^20" 0 1.4
  # pan 0.4
  # gain 1
  # room 0.4

-- trance_bass:5





-- TRAVAUX




d4 -- Basse convaincante
  $ gM3 $ gF2
  $ whenmod 64 32 (# drybus 41 (slow 32 $ range 1.9 1 saw))
  -- $ midiOn "^89" (ply "<[4@5 2 4 2] 1>")
  $ midiOn "^57" (segment "<4 [4 <8 8 16 16>]>")
  $ someCyclesBy (1 - "^17") (struct "<t [t t]>")
  $ rarely (ply "1@5 1 <1!3 2> [<1 2> <1 1 1 2>]")
  $ note "<c3 c3 c3 c3 gs2 gs2 b2 b2>@5 ef3 d3 <ef3!4 c3!3 b2>"
  # "bassWarsaw"
  # room 0.2 # sz 0.1
  -- # midiG' "^81" 0 1.5
  # pan 0.4
  |* gain ("1@5 0.95 0.98 0.95" * 1.1 )
d5 $ gF3 -- Appel oiseau joyeux oiseau joyaux
  $ midiOn "^58" ( -- Oiseau de nuit
    rev . (|+ note "<<0 0 [0 -7] [0 -7]>!3 [0!3 -12]>")
    )
  $ mask "<[[t <f!4 t!4>] <f!8 t!8>]!8 t!24 t!96>"
  -- g c ef g / g c ef f / gs c ef f / gs c ef g
  -- g c ef g / g c ef f / gs c ef gs / gs c ef g
  -- g c ef g / g c ef f / gs c ef f / gs c ef g
  -- g c ef g / gsc ef f / gs c g f / gs c f ef
  $ note ("<[<g4 <g4!3 gs4> gs4 gs4>@3 <c!13 gs4 c c>@2 <ef!14 g f>@3] <g f <f gs f f> <g g g ef>>>")
  # "FMRhodes1"
  # modIndex (range 0 50 "^54")
  # delaybus 51 (range 0 0.8 "^34")
  # delayt "<h>"
  # delayfb 0.25
  # pan 0.7
  -- # midiG' "^82" 0 1.5
d6 $ gF1 -- HAWKS
  -- $ mask "<f!16 t!16>"
  $ "~ [s s*2] ~ [s <~!3 s>]"
  # "armora:1"
  # legato "<0.5>"
  # note "<c10!3 d10 d10 d10 e10 [e10!3 c10]>"
  # pan 0.9
  # hpf (slow 8 $ range 5000 "<8000!32 800!32>" saw)
  # room 1.0
  # sz 0.01
  # dry 1.025
  -- # room 0
  -- # midiG' "^31" 0 1.5
d10
  $ mask "<f!16 t!16 t!96>"
  $ gF1 $ "<~!12 <risers:2!3 ~> ~ ~ ~>"
  # end 0.85
  # cut 10
  -- # midiG' "^13" 0 1.3
  -- # gain (1.3 * "^77")
  # gain 1
d11
  $ mask "<f!24 t!8>"
  $ note ("~ <c5!4 ef5 ef5 f5 g5>" + 4)
  # "~ cy"
  # "808cy:8"
  -- # gain ("^77" * 1.1 * (slow 8 $ range 0.75 1 saw))
  # gain (1.1 * (slow 8 $ range 0.75 1 saw))