-- Lent mouvement
do
-- resetCycles
setcps (60/60/4)
let rMask = (mask "t!6 <t!4 t?!3 f> <t t t <t? f>>")
let rLPF = (someCyclesBy "<0!32 1!8 0!16 1!8>" (# lpf (slow 8 $ range 5000 200 saw)))
let gLPF = (someCyclesBy "<0!48 1!16>" (# lpf (slow 16 $ range 6000 100 saw)))
let gR = (rMask . rLPF)
let gMask = mask "[t <t!4 t <f t!3> t t>!3 . t <f!4 t!4> <f f t t t f f t> <f!4 t f t t>]"
let gMaskB = mask "[t <t!4 t <f t!3> t t>!3 . t <f!4 t!4> <f f t t t f f t> t]"
let g = (gLPF . gMask)
let gB = (gLPF . gMaskB)
d1 $ g $ gR
  $ juxBy 0.1 id
  $ "k ~ ~ k . ~" # "[reverbkick,tech:6]"
  # legato 1.25
  # lpf 1000
  # gain 0.75
d2 $ g $ gR
  $ mask "<f!8 t!24>"
  $ "[~ cp]*2"
  # note "-4"
  # "snare"
  # n "[1,2,12]"
  # gain 0.5
d3 $ g $ gR
  $ mask "<f!3 t f!4 t!7 [t f]>"
  $ fix (|* gain 0.5) "snare"
  $ "t*[[16!3 [<8!3 16!5> 32]]!3 32]"
  # "[tech,snare:12]"
  # gain 0.7
d4 $ gB -- Bassline
  $ jux ((# crush (slow 16 (range 10 5 saw))) . (|* gain 0.93)) -- ELECTRIC TWIN
  $ mask "<f!32 t!32>"
  $ whenmod 16 8 (superimpose ( -- Overdrone
    chop ("[<4!4 8!4>!3 1]!2")
    . (|* gain 0.8)
  ))
  $ note (scale "aeolian" (
    -- "[7, ~!7 <~!3 3 ~ 3 ~ 3>] . [4, ~!7 <~ 8>]" -- Simplified main theme
    "[7, [~!3 9]] . [4, [~!3 <[8 9] <[11 9] [10 9]>>]]" -- Simplified laggy theme
  ))
  # "bassWarsaw"
  # octave 2
  # lpf 1200
  # room 0.3
  # gain 0.65
  # pan 0.2
d5 $ g -- Rhodes base
  $ mask "<f!6 t f t!24>"
  $ someCyclesBy "<0!12 1!20>" ( superimpose ( -- aigus
    (|+| note (scale "aeolian" (
      "[0 <7!16 7(<2 2 3 3>,4)!16>]*4"
    + 7)))
  . (# "[FMRhodes1,FMRhodes2]")
    . (|* gain (slow 8 $ range 0.5 0.6 saw))
    . (|+ pan 0.1)
    . (whenmod 16 6 (# crushbus 5 (range 10 6.5 perlin)))
  ))
  $ note (scale "aeolian" ( -- Organically grown main theme
    "[7, ~!7 <~!3 3 ~ 3 ~ 3>] . [4, ~!3 <~ <[~ 8] [8 9] [~ . 8 9] [~ . 9 8]>>]"
    ))
  # "FMRhodes1"
  # pan 0.6
  # octave 2
  # room 0.3
d8 $ g -- Runny Maracas
  $ mask "<f!6 t f t!8 f!4 t!4 t!8>"
  $ jux (|* gain 0.5)
  $ whenmod 16 8 (always $ fast "2 . [2|4]")
  $ someCyclesBy "<1!16 0!16>" (often $ slow "2!3 1")
  $ fix ((|* gain 0.9) . (# release 0.8)) (n 9)
  $ "hh27*[8 . 16 8]"
  # n "2 <2 <[2|9] [9 <9 ~> <~ 9> 2]>>"
  # pan 0.8
  # gain (slow 32 $ range 0.4 0.6 (saw + perlin / 10))