bruit_hiver.tidal

-- BruitHiver: Les sons du grand froid
do
setcps (120/60/4)
resetCycles
d1
  $ mask "<f!8 t!120>"
  $ whenmod 32 16 (# djf (slow 16 $ sine))
  $ "k . k(<3 <5 1>>,8)"
  # "[jazz,bd]"
  # gain 0.85
  # lpf 6000
d2
  $ mask "<f!12 t!20 f!4 t!28>"
  $ whenmod 64 32 (# squiz (slow 32 $ range 1 1.09 sine))
  $ "~ snare:8 . ~"
  # gain 0.8
d3
  $ mask "<f!3 t!125>"
  $ whenmod 16 8 (jux rev)
  $ fast "<4 4 8 [4 . <8 16> 16]>"
  $ "drum" # n "[0,2]"
  # gain (slow 16 $ range 0.6 0.85 saw)
  # hpf 5000
d10
  $ "[cosmicg:2]"
  # begin 0.05
  # note ("f4" + "[0|12|24]")
  # lpf (slow 64 $ range 2000 8000 sine)
  # gain (slow 4 $ range 0.4 0.75 perlin)
  # cut 10

once $ "cosmicg:7" # gain 0.5  # cut 42