setcps 0.5
do
d1 $ "dr"
d4
$ someCycles (# silence)
$ someCyclesBy 1 ((# room 0.2) . (# gain 0.5))
$ superimpose (rev . chop 16)
$ s "nass:1"
# gain 0.9
d2 -- Vents mélodiques
$ whenmod 32 24 (juxBy 0.75 rev)
$ whenmod 32 16 (rev)
$ superimpose (|+ note "c'maj")
$ n (run 10) # "wind"
# speed (range 1 0.25 perlin)
# gain (range 0.4 0.6 perlin)
d3 -- Mer
$ often (off 1 (# crush 5))
$ "seawolf/4" # n (irand 3) # gain 0.7