-- La vibe: techno basse vibratoire
do
setcps (120/60/4)
let gDjf = (whenmod 64 32 (# djf (slow 32 $ range 0 0.5 saw)))
d1
  $ gDjf
  $ mask "<[t f!3]!4 [t f t f]!4 t!24 f!4 t f!3 [t f]!4 t!24>"
  $ fast 4 $ "jazz" # gain 0.65
d2
  $ gDjf
  $ "~ . <cp!7 cp*2> ~"
  # gain (slow 16 $ range 0.5 0.8 saw)
  # lpf 2000
d3 -- Bass marche nocturne
  $ sometimesBy "<0!16 1!16 0!3 1 0 0 1 0 0!3 1 1!3 0 1!16>"
  ( -- La Vibe
    juxBy 0.25 (
    (|+ note 12)
    . (# room 0.1) . (# sz 0.1)
    . scramble 4
    . ply 4
  ))
  $ note ("c [~ f] . c <c <g b4>>")
  # octave 2
  # legato 1
  # "superpwm"
  # gain (slow 32 $ range 0.45 0.65 cosine)
  # pan 0.4
  # room 0.2 # size 0.3
d4
  $ often (stut 4 0.9 "<q e s>")
  $ mask "t . <t t? f t> t"
  $ "hh*[4 <8 <4 16>>]"
  # gain (slow 32 $ range 0.65 0.9 sine)
  # pan (slow 32 $ range 0.4 0.8 sine)
  # cut 4
