module Funk where
  funk_noise = superimpose (const -- Bris de vers spatial
    $ degradeBy (slow 4 "<0.75 0.5 0.25 0.1>")
    $ someCycles (# speed 0.5)
    $ stut "[4|2]" 0.9 "[q|h]"
    $ stut' 2 "h" ((|* gain 0.9) . (|+ note (slow 4 "<[2|4] [0 -2]>")))
    $ "coins"
    # octave 2 -- 4=creepy
    # gain (slow 16 $ range 0.5 0.8 saw)
    # pan perlin
    # gain 0.4
    )
    $ superimpose (const -- Insectes
    $ slow 4
    $ jux rev $ "insect(<1 3 4 5>,8)"
    # n (slow 3 $ "<0 1 2 3>")
    # gain (slow 2 $ range 0.6 0.9 perlin)
    # pan 0.8
    )
    $ superimpose (const -- Fond diffus cosmologique
    $ slow (slow 4 "<2 4 8>")
    $ stut' 4 "e" (|+ note (scale "major" "[2|5]"))
    $ s "~ cosmicg:0"
    # gain (slow 33 $ range 0.3 0.4 perlin)
    # speed (range 0.125 0.95 perlin)
    # pan (range 0.4 0.6 perlin)
    )
    -- bourrasque occassionnelle
    $ rarely (# gain 0.5)
    $ jux (rev . segment 2)
    $ s "space:3"
    # speed (slow 2 $ range 0.15 0.5 perlin)
    # pan (slow 4 $ range 0.45 0.55 perlin)
    # gain 0

d10
-- $ (* gain 0.75)
$ funk_noise
-- effects to add to noise?
-- # hpf (slow 6 $ range 0 1500 sine)
-- # lpf (slow 100 $ range 1500 20000 sine)