resetCycles

-- Electro-jazz grille du blues snakish
do
setcps (80/60/4)
let gLpf = (whenmod 16 8 (# lpf (slow 8 $ range 0 0.5 saw)))
let blues = ["c", "f", "c", "c", "f", "f", "c", "c", "g", "f", "c", "c", "g", "f", "c", "g"]
let chord = "c'maj"
let chordAug = "c'maj'8"
d1 -- Kick rarement doublé
  $ gLpf
  $ every 8 (# gain 0)
  $ whenmod 8 6 (off "<-0.0675 -0.125>" id)
  $ fast 2
  $ "jazz"
  # room 0.1 # dry 0.99 # sz 0.6
  # gain 1
d2
  $ gLpf
  $ "~ [jazz:4,cp]"
  # gain (slow 16 $ range 1.2 0.8 isaw)
  # hpf (range 0 10000 perlin)
d3 -- Snakes
  $ juxBy (slow 8 $ range 0.1 0.9 sine) rev
  $ fast 4
  $   "s . s <s!3 ~> <~!3 s>"
  # "hh*6"
  # gain (slow 32 $ range 0.5 1 saw)
d4
  $ superimpose (
    ply "<2 4 [4 8] 8>" .
    mask "t(1,4)" . arpeggiate . (# "supermandolin")
    . (|* gain 0.8)
    . (# pan 0.6)
    . (# crush 16)
  )
  $ note (cat blues + chord)
  -- # "supersaw" # voice 0.1
  # "bassWarsaw"
  # pan 0.75
  # room 0.1
  # crush (slow 64 $ range 16 4 isaw)
  # voice 0.8
  # gain 0.85
d5 -- Choeurs
  $ juxBy 0.5 (
  (0.5 ~>)
  . superimpose (
    arpeggiate
    . (|+ note chordAug)
    . (|+ pan 0.05)
    )
  . (|+ note 12)
  . (|* gain 0.95)
  . (# legato 0.5)
  . (|+ pan 0.05)
  )
  $ note (cat blues)
  # "moogBass"
  # octave 3
  # gain 0.9
  # room 0.4
  # size 0.7 # dry 1.05


  once $ arp "up" $ note "d'min" # "superpiano" # velocity 0.38
-- region BACASABL


d4
  $ note (cat [ -- FIXME dur a suivre!
    "c3'min", "c3'maj", "c3'min", "c3'min",
    "c3'maj", "c3'maj", "c3'min", "c3'min",
    "d3'min", "d3'maj", "d3'min", "d3'min",
    "d3'maj", "d3'min", "d3'maj", "d3'min",
    "g3'min", "g3'maj", "g3'min", "g3'min",
    "g3'maj", "g3'maj", "g3'min", "g3'maj"
  ]) # "bassWarsaw" # voice 0.8 # gain 0.92