resetCycles

-- Electro-jazz grille du blues snakish
do
setcps (75/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é vaguement rub-a-dub
  $ 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 0.9
d2
  $ mask "<f!8 t!8 f!4 t!12>"
  $ 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 (1.2 * (slow 32 $ range 0.5 1 saw))
d4 -- Bassline + mandolin ?
  $ whenmod 32 0 (superimpose (
    degradeBy ("0 1!6 0.5" * "0.5 0.25")
    . mask "t . t(5,8)"
    . ply "<2 4 [4 8] 8>"
    . arp "<up!4 down!4>"
    . (|+ note 24) -- Not a bass :)
    . (# "supermandolin")
    . (# pan 0.6)
    . (# room 0.5)
    . (|* gain 1.6)
  ))
  $ note (cat blues + chord - 24)
  -- # "supersaw" # voice 0.1
  # "bassWarsaw"
  # pan 0.2
  # room 0.4
  # crush (slow 64 $ range 16 4 isaw)
  # voice 0.8
  # gain (0.85 * (slow 16 $ range 0.5 0.9 saw))
d5 -- Choeurs
  $ mask "<f!16 t!4 f!4 t!8>"
  $ 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.8
  # room 0.4
  # size 0.7 # dry 1.05
d6
  $ degradeBy (slow 8 $ range 0 0.2 saw)
  $ struct "t(<<12!6 24!2> <8!6 16!2>>,16)"
  $ slow 4
  $ n (run 32)
  # "amencutup"
  # pan 0.9
  # gain (slow 16 $ range 1 0.8 saw)

  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