-- 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