setcps (0.5)

do
let gG a = (gain ("^77" * a)) -- gain Global
let gM' l h a = (gG (range l h a)) -- gain Modéré
let gM a = (gM' 0.2 0.8 a) -- gain Modéré doux
let gLPF = (# lpf (min 10000 ((range 200 20000 ("^49")))))
let gHPF = (# hpf (max 0 (min 7500 ((range "-7500" 7500 ("^49"))))))
let gDJF = (gLPF . gHPF)
let novaOn  ch pat = (sometimesBy ch pat)
let novaOff ch pat = sometimesBy (1 - ch) (pat)
let gSync = ("0.18" <~)
let g = gSync . gDJF
d1 $ g
  $ novaOn "^41" (<| "k k k <k!3 k*2>")
  $ novaOff "^41" (<| "k . k(<3 1 3 5>,8)")
  $ "reverbkick" # gM' 0 1.4 "^78"
d2 $ (|- lpf 2000) $ g
  -- $ whenmod 8 6 (degradeBy "<0.25 0.75>" . stut 4 0.9 "e")
  $ novaOn "^41" (|- note 24)
  $ fast 2 $ "~ [cp,drum:2]"
  # gM' 0 1.5 "^79"
  # lpq "^51"
  # size 0.9
  # room 0.2 # dry 0.99
d3 $ g
  $ loopAt 1
  $ novaOn  "^76" (slice 8 ("<[0 .. 7]!3 [0 1 2 ~ . 0 1 2 ~]>"))
  $ novaOff "^76" (slice 8 "0 <0 1>*<1 2> <2 0> <0 0 3 3>")
  $ "breaks165"
  # lpq "^52"
  # room 0.5
  # gM' 0 2 "^80"
d4 $ g
  -- $ someCycles (swingBy 2)
  $ novaOn "^89" (chop 16)
  -- $ novaOn "^58" (+ note (slow 4 "<0 12>"))
  $ note (scale "aeolian"
  ("<c!4 f!4> <c!4 f!4> <c!4 f!4> [c <ds!3 f>]"
  + "[0,4,9]") -- TODO LEARN VAL: layering accords
  )
  -- # detune 1.005
  # octave 3
  # "bassWarsaw"
  # voice (range 0.1 2 "^33")
  # gM' 0.4 1.5 "^81"
  # room 0.6 # sz 0.7
  # crush (range 10 3.1 "^53")
  # pan 0.4
d5 $ g
  $ inside 4 (someCyclesBy "^34" (ply 2))
  $ sometimesBy "^54" (swingBy "q" 4)
  $ note (scale "aeolian" (
    "<0 9 7 2>" -- progression
    + "[0 2 4 <0 6>]*4" -- arpegiateur
    + "[0 <7 <-7 14>>]" -- spread
    - 7
  ))
  # "FMRhodes1"
  # gM' 0 2 "^82"

-- #

do
let gF = 1.5
let gG a = (gain (gF * "^77" * a)) -- gain Global
let gM' l h a = (gG (range l h a)) -- gain Modéré
let gM a = (gM' 0.2 0.8 a) -- gain Modéré doux
let gLPF = (# lpf (min 10000 ((range 200 20000 ("^49")))))
let gHPF = (# hpf (max 0 (min 7500 ((range "-7500" 7500 ("^49"))))))
let gDJF = (gLPF . gHPF)
let novaOn  ch pat = (sometimesBy ch pat)
let novaOff ch pat = sometimesBy (1 - ch) (pat)
let gSync = ("0.18" <~)
let g = gSync . gDJF
let modIndex = pF "modIndex" -- 0.2
let mix = pF "mix" -- 0.2
let prog = "<5 0 6 4 3>"
-- let prog = "<0 6 6 6 6>"
d1 $ g
  $ novaOn "^74" (mask "t(4,8)")
  $ novaOn "^75" (mask "t(3,8)")
  $ loopAt 2
  $ slice 8 "0 1 2 3 <4!3 0> <5!3 1> <6 0> <7 0>"
  $ "fbreak120:2"
  # gM' 0 1.5 "^78"
d2 $ (|- lpf 100) $ g
  $ "[~ hh*<1 1 2 <1 2>>]*4"
  # lpq (range 0 0.45 "^51")
  # gM' 0 1.5 "^79"
d3 $ g
  $ novaOn "^60" (fast 2)
  $ "~ clap"
  # gM' 0 1.2 "^84"
d4 $ g
  $ novaOn "^89" (chop 4)
  $ off "q" (|+ note 12)
  $ note (scale "aeolian" (prog
  + "[0,4,9]"
  + "[0 <7 <-7 -14>>]" -- spread
  - 21))
  # "FMRhodes1"
  # mix (range 0 20 "^33")
  # modIndex (range 0.2 100 "^53")
  # gM' 0 1.2 "^81"
  # room 0.5 # sz 0.6
d5 $ g
  $ note (scale "aeolian" (prog
    + "0 . <0 0(3,8)>" -- rythme
    + "[0,4,9]"
    - 28
  )
  )
  # crush (range 10 3.5 "^54")
  # "bassWarsaw" # gM' 0 1.3 "^82"
  # room 0.3
d6 $ g
  $ whenmod 4 2 (off "h" (
    (|+ note 12) . (|* gain 0.5) . (# room 0.5))
  )
  $ slice 8 "<3!3 5>"
  $ "fguitar:42"
  # gM' 0 1 "^83"
d8 $ g
  $ whenmod 32 16 (slice 3 "<0!4 2!4> 1 2 <2!3 3>")
  $ mask "<t t t f>"
  $ "bogdan:10"
  -- # lpfbus 1 (10000)
  -- # lpfbus 1 (fast (cycleChoose [1,2,4])
    -- $ segment 32 $ range 50 4000 sine)
  # gM' 0 1 "^84"
  # cut 1

once $ "dr"