do
-- resetCycles
setcps (120/60/4)
let gMask = (midiOn "^41" (mask "t . <f t f <f t>> <t f f <t f>>"))
let gMute1 = (midiOn "^73" (mask "f*16"))
let gMute2 = (midiOn "^74" (mask "f*16"))
let gMute3 = (midiOn "^75" (mask "f*16"))
let gM1 = gMask . gMute1
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 $ gMute2 $ gF1 -- Kick solide
  $ 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]"
  # gain 1.2
  -- # midiG' "^78" 0 1.5
d2$ gMute1 $ gF1 -- snare contretemps variable
  $ fix ((|* gain 0.8) . (# legato 0.05)) "cp"
  $ midiOn "^43" (<| "~ cp ~ cp*<1 1 2 <1 2>>")
  $ midiOff "^43" (<| "~ [cp*<1!3 <2 <4 [4 2]>>> ~]")
  $ "[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 -- 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
  # crushbus 42 (range 16 4 "^53")
  # relbus 43 (range 2 0.02 "^33") # att 0.22
  -- # midiG' "^81" 0 1.d
  # gain 1.4
  # 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
d8 $ gF1 $ gM1
  $ midiOn "^92" (ply "1 <2!3 4>")
  $ midiOff "^60" (mask "t(4,8,1)") -- Techno drum mask
  $ midiOn "^36" ((# n "22")) -- Raise COMEON!
  $ midiOn "^56" ((# n "23")) -- Raise COMEON!
  $ chop 16
  $ loopAt 2
  $ "jungle_breaks:45"
  # cut 8
  # gain 1.5
d6 $ gF1 $ gM1 -- 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
d7
  $ gM3 $ gF3 -- High carillon!
  $ midiOn "^91" (off "[e,s]" (ply "<1 2>") . (# legato "e"))
  $ 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 c6>"
  - 7 -- Calage
  )
  # "808hc:2"
  # pan 0.85
  # octerbus    71 (range 0 0.5 "^55")
  # octersubbus 72 (range 0 1.4 "^55")
  # room 0.2 # dry 1.08 # sz 0.3
  # gain 1.4
d9 $ gF3 -- Pads atmospheriques
  $ off 0.25 ((# pan 0.8) . (# cut 91))
  $ note ("<c4 c4 c4 c4 gs3 gs3 b3 b3>"
  -9 -- calage
  )
  # "trance_pads:7"
  # cut 9 # legato 2
  -- # midiG' "^20" 0 1.4
  # pan 0.4
  # gain 1.4
  # room 0.4
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))


once $ arp "up" $ note ("c4'maj'4")
# "808cy:8"
 # gain 1

d11 -- What is the effect?
  $ fix ((# "weird_dialogs:39") . (# begin 0.81)) "answer"
  $ fix ((# "weird_dialogs:39") . (# begin 0.45). (# end 0.81)) "variations"
  $ fix ((# "weird_dialogs:39") . (# begin 0.2). (# end 0.45)) "almost"
  $ fix ((# "weird_dialogs:39") . (# end 0.2)) "effects"
  $ whenmod 32 28 (# "~ <answer!3 [variations answer]>")
  $ "~ <<effects!4 almost!4> <almost variations>>"
  -- $ "~ <variations>"
  # midiG' "^20" 0 1.4
  # cut 11
  # speed 1

once $ "weird_dialogs:39"
  # begin 0.45
  # end 1
  # cut 11


d2
  $ "~ cp"