amb.tidal

cps 0.5

solo $
do
  let bassPats =
        do ae <- iter 2 $ listToPat [toScale Scales.hexAeolian, toScale Scales.aeolian];
           ur 8 "0 1 2 0" [
             n "0(16,16)"
             # n (ae "[c f c d] [f e e d] [c a f e] [b a b e]"),
             n "0(9,16)"
             # n (ae "[c f c d] [fs e g a] [c a f e] [b a b e]"),
             n "0(12,16)"
             # n (ae "[c f c d] [fs e g a] [c a f e] [b a b e]")
             ]
      rate = mf "rate"
      spreadStut = slowspread (\x -> stut 4 0.75 x) [0.25, 0.25, 0.75, 0.75, 0.25, 0.75]
  d1 $
    fadeOut 2 $ 
    slow 16 $
    sometimes (superimpose (# octave "2")) $  
    -- foldEvery [2,5]
    (
      -- within (0,0.5) (# vowel "a") . 
      whenmod 9 4 (# detune (scale 0.01 5 $ slow 8 sine1)) .
      sometimes (superimpose ((# release (iter 4 "0.5 0.05 1 4")) . sometimesBy 0.25 (density 2) . spreadStut . (# s (iter 4 "fm hihat fm fm"))))
    ) $
    weave 8 (pan sine1 # cutoff (scale 800 8000 $ slow 16 sine1)) [bassPats, tabby 8 silence bassPats]
    # s "varsaw"
    # sustain "8"
    # release "8"
    # carp "0.5"
    # modp "0.5"
    # hcutoff "800"
    # resonance "0.1"
    # room (foldEvery [4, 7, 11] (fmap(+0.25)) "0.125")
    # size "0.5"
    # orbit "1"
    # octave "2" -- "{4 3 5}%5"
    # rate "20"

hush