resetCycles

-- Electro-jazz grille du blues snakish
do
setcps (80/60/4)
let g = midiDJF "^49" 200 9800 0 1000
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é
  $ g
  $ midiOn "^41" (fast 2 . whenmod 4 3 (ply "2 1"))
  $ midiOn ("^42"-"^41") (fast "<1!8 2!20 1 0 0 2>")
  $ "k*4" # "jazz"
  # room 0.1 # dry 0.99 # sz 0.6
  # midiG' "^78" 0 1.5
d2 $ g
  $ "~ [jazz:4,cp]"
  # hpf (range 0 10000 perlin)
  # midiG "^79"
d3 -- Snakes
  $ juxBy (slow 8 $ range 0.1 0.9 sine) rev
  $ fast 4
  $   "s . s <s!3 ~> <~!3 s>"
  # "hh*6"
  # midiG "^80"
d4
  $ midiOn "^57" (juxBy 0.2 (
    -- ply "<2 4 [4 8] 8>" .
    arpeggiate
    -- . (# "supermandolin")
    -- . (|* gain 0.8)
    -- . (# pan 0.6)
    -- . (# crush 16)
  ))
  $ note (
    cat blues + chord
    - 24
  )
  # "bassWarsaw"
  # pan 0.75
  # room 0.1
  # voice 0.8
  # midiG' "^81" 0 1.3
d5 -- Choeurs
  $ juxBy 0.5 (
  (0.5 ~>) . midiOn "^58" (superimpose (
    arpeggiate
    . (|+ note chordAug)
    . (|+ pan 0.05)
    )
  . (|+ note 12)
  . (|* gain 0.95)
  . (# legato 0.5)
  . (|+ pan 0.05))
  )
  $ note (cat blues)
  # "moogBass"
  # octave 3
  # midiG' "^82" 0 1.4
  # room 0.4
  # size 0.7 # dry 1.05