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 = someCyclesBy ch pat
let novaOff ch pat = someCyclesBy (1 - ch) (pat)
let chorus = pF "chorus"
let cutoff = pF "cutoff"
let lagamount = pF "lagamount"
let pAtt = pF "att"
let prog = "<0 <2 3> 4 0>"
let g = gDJF
d1 $ g
  $ novaOn "^74" (<| "K*16")
  $ novaOn "^42" (<| "k k k <k k*2 k [~ k]>")
  $ superimpose ((|* gain 0.75) . (# "kick:5"))
  $ "[jazz,cpu]"
  # room 0.8 # sz 0.8 # dry 1
  # gM' 0 1.5 "^78"
d2 $ g
  $ novaOn "^75" (slice 8 ("0 1 2 3 0 ~ 3 <~ ~ 3 3>") . (loopAt 4) . (>| "fbreak100:1"))
  $ novaOff "^75" (<| "~ s*<[1 . <1!4 2 2 4 4>]!8 [<4 8 8 4> <8 [8 . 4 8] 4 [8 4]>]!8>")
  $ fast 2
  $ "snare" # n "[20,21,28]"
  # release "0.125!<7!3 3> 1"
  # gM' 0 1.4 "^79"
d3
  $ g
  $ loopAt 2
  $ slice 4 ("[0 1 <~!4 2!4> <~!8 3!8> <~!8 4!4 ~!4 4!16> 5 ~ ~] [<0 1> ~]")
  $ "fbreak120:2"
  # room 0.08
  # pan (slow 16 $ range 0.4 0.6 sine)
  # gM' 0 0.8 "^80"
d9 $ g
  $ whenmod 16 12 (often (off "q e" id))
  $ whenmod 16 8 (fast 2)
  $ "~ clap"
  # lpf 400
  # lpq 0.21 # attack 0.45
  # room 0.4 # sz 0.8
  # pan 0.8
  # gM' 0 1.2 "^84"
d4 $ g -- BASSLINE
  $ note (scale "aeolian" (
    whenmod 16 8 (+ "[<0!3 7> <7!3 <0 7>>]") -- spread
    $ novaOn "^57" (+ "[0 0 ~ 2 . ~ <2!3 3>]*2") -- arp
    prog
    + "[0,4,9]"
    - 21
    ))
  # "supersaw"
  # voice "^17"
  # pan 0.3
  # accelerate (range "-4" 4 "^33")
  # lfo (range "-2" 2 "^53")
  # gM' 0 1.2 "^81"
d5 $ g
  $ note (scale "aeolian" (
    prog
    + "[0,7,16]"
    + "[[0 2 <2 0 2 3> 3] [~ 3]]*<[1 2] [2 1]>"
    - 21
    ))
  # "FMRhodes1"
  # pan 0.8
  # gM' 0 2 "^82"
d6
  $ juxBy 0.8 rev
  $ novaOn "^59" (someCyclesBy 0.75 (off "q" id))
  $ note (scale "aeolian" (prog + "[0,9]"
  + "0 <-7!4 -5 -5 -7 -5>"
  ))
  # "moogBass"
  # pAtt 0.1 # rel 2
  # legato 2
  # chorus "^55"
  # cutoff (range 500 3000 "^35")
  # room 0.2
  # gM' 0 1.5 "^83"





-- From boeuf/fevrier
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"
  # gain 0.7