do
-- resetCycles
let melody = (scale (slow 16 "<melodicMinor melodicMinorDesc>") ("<c'maj c'maj'2 c'min c'min'2>" + (slow 4 $ "<0 7>")))
setcps 0.5
let gFactor = 2
d1 -- Kick
  $ slow 4
  $ mask "<f!8 t!120>"
  $ whenmod 16 12 (# lpf "<500 200 150 50>")
  $ "k k k <k!3 [<~ k> k]>" # "jazz"
  # gain (gFactor * 0.65)
d2
  $ mask "<f!4 [t f]!4 t!120>"
  $ ply (slow 2 "<1 1 2 <[4 1] [1!3 4]>>")
  $ fast 2
  $ "~ s" # "sn" #n "[12,16]"
  # note ("<0 -5>")
  # pan 0.6
  # gain (slow 32 $ gFactor * range 0.3 0.45 saw)
d3
 $ mask "<f!2 t!126>"
  $ whenmod 16 12 (juxBy "<1!2 0.8!2>" rev)
  $ "h*4(<1!8 4!8>,8,<0!3 3>)"
  # "hihat1"
  # pan 0.4
  # gain (gFactor * (slow 4 $ range 0.4 0.5 saw))
d4 -- Xylophone night sky
  $ sometimesBy (range 0.25 0.5 saw) (jux rev . (# pan "[0.1|0.9]"))
  $ slow (
    slow 8 "<4 [2 [2 1]] 1!4>"
  )
  $ every' 4 3 (swing 2)
  $ off "e" (# hpf 5000)
  $ off "q" (|+ note "7")
  $ whenmod 16 4 (ply 2)
  $ note melody
  # "xylophone"
  # gain (gFactor * 0.37)
  # pan 0.2
d5 -- Bassline rayonante
  $ mask "<f!8 t!4 f!4 t!108>"
  $ whenmod 32 24 ( -- Grille
    superimpose (# crush "<5 4 4.5 3 3.5 2 1.5 1>")
    . (|* gain 0.85)
  )
  $ whenmod 32 16 ( -- Rayonne!
    mask "<[t f!7]>" . chop 4 . (# room 0.4) . (# sustain 2)
  )
  $ note (melody - 24
    + (slow 4 $ "<0 -7>") -- Compense octave melodie
  )
  # "supersaw"
  # voice 0.1
  # gain (gFactor * ("<0.2!12 0.3!120>"))
  # pan 0.8
  # room 0.05 # sz 0.2
d6
  $ mask "<f!8 t!120>"
  $ note ("c(<3!3 5>,8,<0!3 5>)" |+ melody)
  # "moog"
  # legato "<0.75!8 <1!3 2>!20 4!4>"
  # gain (slow 64 $ gFactor * range 0.2 0.45 (saw + (perlin / 4)))
  # pan 0.4
d7
  $ degradeBy ("<1!32 0.75 0.5 0.25 0.125 0!28>")
  $ (0.75 ~>)
  $ slice 8 (cat [
    "1", "1", "1", "1",
    "1 1", "1 1", "1 1", "1 2",
    "1 2", "1 2", "1 2", "1 2",
    "2 1", "2 1", "2 1", "2 1"
  ]
  )
  $ note ("<0!3 <2 -3>>")
  # "brass:7"
  # gain (slow 16 $ gFactor * range 0.45 0.3 isaw)
  # room 0.45
  # sz (slow 16 $ range 0.4 0.9 saw)
  # pan 0.6
  # cut 7
d9 -- Invader fight: Tir variable, echec | touche | ambulance
  $ (0.25 ~>)
  $ sometimes (# speed 0.5)
  $ mask "<f!4 [t? f!7]!12 [t f]!8 t!8>"
  $ fix ((|* gain 0.9) . (# pan 1)) (n "9")
  $ fix ((|* gain 0.9) . (# pan 1)) (n "16")
  $ n ("[11|4]([1|3|5],8) [~|~| 3|5|11 | [9|9|9|16] ]")
  # "invaders"
  # pan "0 1"
  # room 0.2
  # gain (gFactor * "0.2 0.25")


scaleList

d3 $ note (scale (slow 16 $ "<melodicMinor melodicMinorDesc>")
  (run 8)
  + "<0!4 2 3 4>"
)
# "xylophone" # gain 0.75