once $ "FMRhodes1"

fs ds

do
setcps (94/60/4)
let gMask = (midiOn "^41" (mask "t f(3,8) t f(<5 3 3 1>,8)"))
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 $ gF1 $ gMute2 -- Kick resolu
  $ midiOn "^42" (<| "k*4")
  $ midiOff "^42" (<| "<k [k ~ ~ <k [k k k ~]>]>")
  $ "[clubkick,jazz]"
d2 $ gF1 $ gM1
  $ midiOn "^43" (struct "~ t ~ t")
  $ midiOff "^43" (struct "~ ~ t ~")
  $ fix (|+ note 2) "snare"
  $ "[dr55,snare:24]"
  # rel 0.35
d3 $ gF1 $ gM1 -- Scintillement de claquements de doigts
  $ midiOn "^44" (off "<e!4 s!4>" ((|* gain 0.8) . (# hpf 5000)))
  $ "~ <~!4 c!4> ~ c ~ <~!3 c ~ c!3> ~ <~!4 c!4>"
  # "rampleC5:14"
  # hpf 5000
  # att 0.0
  # rel 0.2
  # room 0
d4 $ gF2 $ gM3 -- Piano magique guide eternel TODO SPLIT BASS and piano d5
  $ midiOn "^57" (const $ gF2 $ gM3 $ slow 2-- ARTIFICIAL BASSLINE <3
    $ midiOn "^89" (ply "2 4")
    $ note ("[b,fs6]@1.5 [a,e6]@1.5 [[<fs!3 fs6>, cs6](3,8) [<fs!3 fs6>, cs6](<1 3 3 5>,8)]@3"
    - 24)
    # crushbus 41 (range 16 3.5 "^53")
    # room 0.2
    # "bassWarsaw"
    # gain 0.7
  )
  $ midiOff "^57" (# cut 4)
  $ midiOn "^89" ((ply "2 <4 1 2 4> <2 4 4 2> <2 2 4 8>") . (# room 0))
  $ loopAt 8
  $ chop 16
  $ "suns_keys"
  # n (slow 4 $ "<0 1 2 3>")
  # crushbus 41 (range 16 2.5 "^53")
  # lesliebus 42 (range 0 1 "^33") # lrate 0.92 # lsize 1.9
  -- # lsizebus 43 (range 0.8 1.8 "^33")
  # pan 0.3
  # gain 1.0
d11 $ gF3 -- Angels of deception
  $ slow 2
  -- $ mask "<[f f t] t!3>"
  -- $ mask "<[f f t] t!3>"
  $ struct "t(<3 5>,8) ~"
  $ note ("[gs3 g3 fs3] ~" + 12 + "[0,<12!2 7!2>]")
  -- $ note "<fs3>"
  # "moogBass"
  # legato 4
  # modIndex (slow 16 $ range 0 5 perlin)
  # room 0.4
  # att 0.24
  # rel 2
  # gain 0.8
d12 $ gF2 $ gM3 -- Devils of delusion
  $ someCyclesBy (slow 16 $ range 0 0.8 saw) (ply "1 2!6 <2 1>")
  $ slow 2
  $ struct "t(<3 5>,8) t(5,8)"
  -- $ superimpose ((|+ note "<12!2 7!2>") . (# cut 121))
  $ note ("[cs d fs] <~!4 [fs [d cs6] ~]!12>")
  -- $ note "0"
  # "moog:1"
  # legato 0.8
  # pan 0.8
  # room 0.2
  # crushbus 121 (slow 4 $ range 16 3.5 perlin)
  # cut 12
  # gain 0.9
d8 $ gF1 $ gM1
  $ midiOn "^36" (loopAt 0.25 . iter "<1!8 [1 4]!4 4>" . (# "breaks165"))
  $ midiOn "^56" (struct "t([<4 4 5 4> <4 5 5 8>],8,1)" . (>| n "44 45"))
  $ midiOn "^60" (loopAt 0.5)
  $ midiOn "^92" (ply "1 2 <1 2> <2 4>")
  $ chop 16
  $ loopAt 4
  $ "jungle_breaks:45"
d6
  -- $ loopAt 8
  $ chop "4 8"
  $ note "<[fs,a,cs] [gs,c,ds] [g,b,d] [fs,a,cs]>"
  # "giorgio_syn:43"
  -- # cut 6
  # pan 0.8
  -- # crushbus 61 (range 16 4.5 "^31")
  -- # hpfbus 62 (range 0 1500   "^31")
  # gain 0.65
d7 $ gF3 $ gMute3 -- La guitare d'Icare
  $ midiOn "^91"(ply 2)
  $ midiOn "^59" (# n 1)
  $ fix (|* gain 0.8) (n "1")
  $ loopAt 2
  $ superimpose ((# lpf 2500) . (# cut 71))
  $ chop 8 $ "suns_guitar:0"
  -- # n "<0!4 2!3 3 2!3 3 3!3 <2 3>>"
  # n "<0 0 0 1 0 1 0 1 2 2 2 3 2 3 0 3>"
  # crushbus 71 (range 16 8.5 "^55")
  # lpfbus   72 (range 20000 5000 "^55")
  -- # octerbus 73 (range 0 1 "^35")
  # hpf 1200
  # cut 7
  # gain 0.9
d9 $ gF3 $ gMute3 -- VOICES OF SUNS
  $ midiOn "^17" ((>| n "<2 ~>") . (|* gain 1.1))
  $ whenmod 64 48 (# n 3)
  $ slice 2 "<0 <0 1> <0 0 [1 0] 1> 1>/2"
  $ "suns_voice:0"
  # end "<0.1 0.3 1 1>"
  # n "<0!8 1 [1 0] [1 0 0 1] 1 1 [0 1] [1 0 1 1] [1 1 0 1]>"
  # hpfbus 91   (range 0 5500 "^19")
  # crushbus 92 (range 16 4.5 "^18")
  # roombus  93 (range 0.1 0.9 "^18") # sz 0.9
  # cut 7
  # pan (slow 32 $ sine)
d10 -- Decoration
  $ fix (
    (loopAt 4) . gMute . gMute2
    . mask "<f!24 t!8>"
    . (# gain 0.8)
    . (# speed 0.5)
    . (# cut 102)
    ) "risers" -- Riser occasionnel
  $ fix (mask "<f!3 t f!4 f!3 t f!3 t t!3 f t!2 f f t f!3 t!4>"
    . (# cut 101)
    . (# gain 0.2)
    . (# pan "<<0.2!3 [0.2|0.7]> <0.8!3 [0.8|0.3]>>")
    . (# speed "<0!24 -1!8>")
  ) "suns_voice" -- Whisper
  $ stack ["risers:19/2", "suns_voice:2"]
  # room 0.2