-- LUNAR RESTART

do
setcps (110/60/4)
let modIndex = pF "modIndex"
let gDJF = (# djfbus 1 (range 0.15 0.85 "^49"))
let mBreak = (midiOn "^41" (mask "t f . f <f!4 t!4> <f!2 t!6> t"))
let g1 = (# djfbus 1 (range 0.02 0.98 "^49"))
let g2 = (# djfbus 2 (range 0.05 0.95 "^50"))
let m = mBreak
d1 $ g1 --
  $ midiOn "^42" (<| "k k k <k [<~ k> k]>")
  $ midiOff "^42" (<| "k . ~ <k k ~ ~> k*<1!3 2 2 2 1 2> <~ ~ k <k ~>>")
  $ "[jazz,hh:5]"
  -- # release "<0.7!3 1>"
  # midiG' "^78" 0 1.9
d3 $ g1 $ m -- Clap contretemps stable
   $ superimpose ((# lpf 2000) . (# "cp:0"))
   $ "~ clap:1"
   # room 0.8 # sz 0.6 # dry 0.9
   # midiG' "^79" 0 1.0
d2 $ g1 $ m -- BREAK
  $ midiOn ("^44" - "^76") (ply 2)
  $ midiOn "^76" (striate 2)
  $ loopAt 2
  $ whenmod 8 6 (off "h" id . mask "t . f")
  $ slice 8 (run 8)
  $ "break" # n "<13!12 14!4 15!16>"
  # midiG' "^80" 0 2
  # speed (range 0 2 "^52")
  # cut 2
d4 $ g2 $ m -- Basse avec du repondant
  $ midiOn "^57" (chop "8 1")
  -- $ superimpose ((# cut 41)
  -- . (|+| note "0*<1!3 2 1!3 4 2!4 4!4> 7(<5 5 3 3>,8)")
  -- )
  $ chop 16
  -- $ midiOn "^57" (superimpose ((# cut 41)
  --  . (|+| note "[12 7]*4")
  --  ))
  $ note (scale "aeolian" (
    "<0 0 -2 <0 -4>>"
    )
    - 24
  )
  # "bassWarsaw"
  # crushbus 4 (range 16 1.5 "^53")
  # cut 4
  # pan 0.2
  # midiG' "^81" 0 1.7
d6 $ g2 $ m -- Rhodes piano questionnant
  $ midiOn "^58" (superimpose (
      (# cut 51)
      . (|+| note "~ 12(<1 1 2 1 2 5 2 1 2 2 5 2 2 4 3 8>,8)")
      . (|* gain 0.9)
  ))
  $ struct "t*4"
  $ note (scale "aeolian" (arp "up" ("<c'min'4!2 d'min'4 f'min'4>"))
    - 12
  )
  # "FMRhodes1"
  # midiG' "^82" 0 2
  # modIndex (range 0.1 32 "^54")
  # cut 5
  # pan 0.8
d5 -- NES arps
  $ (# crush 4)
  $ midiOn "^59" (struct "t . t(3,8)")
  $ g2
  $ slow 2
  $ chop "<8!8 4!8 2!8 1!8>"
  $ splice 16 ("<0 1 2 3>" + (slow 8 $ "<0 4 8 12>"))
  $ "synth_nes:0"
  # cut 5
  # midiG' "^83" 0 1.4
  # pan 0.8
d4 -- Basse frere
  $ g1 $ m
  $ mask "t . <t f> t"
  $ chop 4
  $ splice 32 ("<0!8 2!8>" + "<0!4 4!4 8!4 12!4>")
  $ "synth_nes:0"
  # cut 4
  # pan 0.2
  # room 0.4
  # midiG' "^81" 0 1.7




d4 -- NES BASS!
  $ chop 16
  $ loopAt 8
  $ "bass_nes" # n "<0!4 1!8 2!4>"
  # cut 4
  -- # gain 0.6
  # midiG' "^81" 0 2



d5 $ "bass_gameboy/2" # gain 0.6


d1 $ loopAt 16 $ "drums_gameboy:0" # cut 1 # gain 0.9


do
setcps (110/60/4)
let modIndex = pF "modIndex"
let gDJF = (# djfbus 1 (range 0.15 0.85 "^49"))
let mBreak = (midiOn "^41" (mask "t f . f <f!4 t!4> <f!2 t!6> t"))
let g1 = (# djfbus 1 (range 0.02 0.98 "^49"))
let g2 = (# djfbus 2 (range 0.05 0.95 "^50"))
let m = mBreak
d1 $ g1 --
  $ midiOn "^42" (<| "k k k <k [<~ k> k]>")
  $ midiOff "^42" (<| "k . ~ <k k ~ ~> k*<1!3 2 2 2 1 2> <~ ~ k <k ~>>")
  $ "[jazz,hh:5]"
d2 $ "~ cp"
  # gain 0.9
d3 $ "drum:2*[4!3 [4 <4 8 16 8>]]" # gain 1.1
d4 $ g2
  $ slice 4 ("<0 1 2 3>")
  $ "synth_gameboy:2"
  # cut 4 # gain 0.65
d5 $ "breaks"

d8 $ "90s_glassatm:1/2" # cut 8 # gain 0.9