hdf-0.14: gr/analog-bubbles.hs

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

-- > draw analog_bubbles
analog_bubbles :: DF ()
analog_bubbles =
  let dpl f a b = (f a,f b)
      mk_o f = lf_saw f 0.0 * 3.0 + 80.0
      mk_f a = lf_saw 0.4 0.0 * 24.0 + a
      mk_s f = sin_osc (midi_cps f) 0.0 * 0.04
      (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 (V_Id 0) 0.2 s1 0.2 4.0
      c2 = comb_n (V_Id 1) 0.4 s2 0.2 4.0
  in out2 c1 c2

main :: IO ()
main = audition [] analog_bubbles