-- Released as: La Fin de l'Insouciance
do
-- resetCycles
setcps (120/60/4)
let modIndex = pF "modIndex"
d1 $ gM1 $ gF1 -- Kick solide
  $ fix ((|* gain 0.9) . (# lpf 1000)) "jazz"
  $ fix ((# att 0.02) . (# rel 0.5) . (# lpf 5000)) "kick:4"
  $ midiOn "^41" (struct "t t t t*<1!6 2 2>")
  $ midiOff "^41" (<| "k . ~ <~!3 k> ~ ~")
  $ "[jazz,kick:4]"
  # gain 1.2
  -- # midiG' "^78" 0 1.5
d2$ gM2 $ gF1 -- snare contretemps variable
  $ fix ((|* gain 0.8) . (# legato 0.05)) "cp"
  $ midiOn "^42" (<| "~ cp ~ cp*<1 1 2 <1 2>>")
  $ midiOff "^42" (<| "~ [cp*<1!3 <2 <4 [4 2]>>> ~]")
  $ "[cp,snare:24]"
  # pan 0.65
  # gain 1.4
  -- # legato 0.22
d3 $ gM2 $ gF1
  $ "~ d ~ d ~ d ~ <d!12 [~ d]!3 [d d]>"
  # "snare:34"
  # hpf 7000
  -- # midiG' "^80" 0 1.5
d4 -- Basse convaincante
  $ gM3 $ gF2
  $ superimpose ((# hpf 500) .
    (# crushbus 42 (range 16 4 "^32")))
  $ whenmod 64 32 (# drybus 41 (slow 32 $ range 1.9 1 saw))
  $ midiOn "^76" (ply "<[4@5 2 4 2] 1>")
  $ midiOn "^44" (segment "<4 [4 <8 8 16 16>]>")
  $ someCyclesBy (1 - "^52") (struct "<t [t t]>") -- FIXME
  $ 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
  -- FIXME(#54) d4 drives more controls than the grid gives it (B4 + C4). ^17 now belongs to another orbit, so the line(s) below are COMMENTED OUT rather than left firing across columns. Nothing is lost — restore by removing the dashes once gSel folds this onto d4's own control.
  -- # relbus 43 (range 2 0.02 "^17") # 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 $ gM3 $ gF3 -- Appel oiseau joyeux oiseau joyaux
  $ midiOn "^57" ( -- 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 "^33")
  # delaybus 51 (range 0 0.8 "^53")
  # delayt "<h>"
  # delayfb 0.25
  # pan 0.7
  -- # midiG' "^82" 0 1.5
d8 $ gF1 $ gM2
  $ midiOn "^92" (ply "1 <2!3 4>")
  $ midiOff "^60" (mask "t(4,8,1)") -- Techno drum mask
  $ midiOn ("^36" - "^56") ((# n "22")) -- Hmmm Break
  $ midiOn "^56" ((# n "23")) -- Raise COMEON!
  $ chop 16
  $ loopAt 2
  $ "jungle_breaks:45"
  # cut 8
  # gain 1.5
d6 $ gF1 $ gM3 -- HAWKS
  -- $ mask "<f!16 t!16>"
  $ "~ [s s*2] ~ [s*<1!3 2> <~!3 s*<1 2>>]"
  # "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 -- CHORUS OF HCs
  $ gM3 $ gF3 -- High carillon!
  $ midiOn "^59" (off "[e,s]" (ply "<1 2>") . (# legato "e"))
  $ midiOn "^91" ( -- 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 "^35")
  # octersubbus 72 (range 0 1.4 "^35")
  # room 0.2 # dry 1.08 # sz 0.3
  # gain 1.4
d9 $ gF3 $ gM3-- 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"
