hdf-0.15: gr/analog-bubbles-m.hs

import Control.Monad
import Sound.DF.Uniform.GADT {- hdf -}

main :: IO ()
main = audition_rju [] =<< analog_bubbles_m

-- > drawM analog_bubbles_m
analog_bubbles_m :: (Functor m,UId m) => m (DF ())
analog_bubbles_m = do
  let dpl f a b = liftM2 (,) (f a) (f b)
      mk_o f = fmap (mul_add 3.0 80.0) (lf_saw_m f 0.0)
      mk_f a = fmap (mul_add 24.0 a) (lf_saw_m 0.4 0.0)
      mk_s f = fmap (* 0.04) (sin_osc_m (midi_cps f) 0.0)
  (o1,o2) <- dpl mk_o 8.0 7.23
  (f1,f2) <- dpl mk_f o1 o2
  (s1,s2) <- dpl mk_s f1 f2
  c1 <- comb_n_m 0.2 s1 0.2 4.0
  c2 <- comb_n_m 0.2 s2 0.2 4.0
  return (out2 c1 c2)