-- Hot Stuff - techno-calorifère
-- TODO élaguer (late messages :P), pan this
-- Like: etincelles moog d4


do
resetCycles
setcps 0.5
let dGlobL = (whenmod 8 6 (# room 0.5))
let dGlobR = (whenmod 8 4 (# lpf "<10000 8000 5000 2000>"))
d1
  $ dGlobR
  $ whenmod 32 24 (mask "<f!7 [f t]>")
  $ "k k k <k!3 [<~ k> k]>"
  # "[jazz,kick:5]"
  # gain ("<0 0 0.25!2 0.4!4 0.5!4 0.55!4 0.6!508>" * 1.3)
d2
  $ fix ( -- Tok bois dansant
    (mask "<f!6 t!508>")
    . (|* gain (slow 8 $ "<0.75 0.85>"))
  ) (n 1)
  $ fix ( -- Tambours marche-roll
    (# lpf 20000)
    . (mask "<f!7 t!25>")
    . (# pan (slow 8 $ range 0.25 0.55 sine))
    . (|* gain 0.8)
  ) (n 2)
  $ fix ( -- Clap
    (# lpf 500)
    . (# note "<-2!4 -2 -4 -4 -6>")
    . (# room 0.5)
    . (|* gain 1.2)
  ) (n 3)
  $ fix ( -- Drumroll aigu
    mask "<f!4 t!28>"
    . (|* gain 0.9)
  ) (n 4)
  $ dGlobR
  $ n (stack [
  "1(<4!8 3!4 4!4>,8,<0!3 3>)",
  "2(<<6 12> [3|1]*4 <6 12> <3 5 8 12>>,8,<0!3 4>)",
  "4(<[8 4]!3 [8 16] 8!4>,16,<0!3 3>)",
  "~ ~ ~ 3*<0!8 1!8 1 2 2 4 [4 2] [2 1] [1 0] [0 1]>"
  ]) # "cpu"
  # dry 1
  # gain 0.9
d4 -- Etincelles de moog
  $ note ("<c <f4 f>>" + (
    arp "<up!6 down!2>"
    "~ <~!28 c4'hexMajor7'8!8 ~!28>")
  )
  # "moog:3"
  # release 4
  # room 0.5 # size 0.9
  # gain 0.35
  # pan (slow 32 $ "<0.7 0.3>")
d5 -- Choeurs du peuple moog
  $ juxBy 0.7 id
  $ note ("<c <f4 f>>"
  - "[0,12]"
  )
  # octave 3
  # s "moogBass"
  # gain ("<0 0.3 0.4 0.5 0.6 0.7 0.8 0.9!508>" * 1)
d6
  $ sometimesBy "<1!8 0!8>" (degradeBy "<1 0> 1!3")
  $ whenmod 32 16 (slice 8 (cat [
    "0*4", "0*4", "0 ~ 0 0", "~ 1*4",
    "0 1*4", "0 1*4", "0*4", "1 ~ 0*2"
    ]
  ))
  $ "fguitar:40"
  # cut 6
  # gain (slow 32 $ range 0.5 0.6 saw)
  # pan 0.25
  # room 0.3 # sz 0.1



once $ "fepiano:25" # cut 21 # gain 0.6