hdf-0.15: gr/analog-bubbles.hs

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

-- > draw analog_bubbles
-- > let dir = "/home/rohan/opt" -- "/usr/local"
-- > import qualified Sound.DF.Uniform.LL as L {- hdf -}
-- > L.dl_gen "/tmp/analog-bubbles" (L.SC3,dir) (df_instructions analog_bubbles)
analog_bubbles :: DF ()
analog_bubbles =
  let o = lf_saw (mce2 8.0 7.23) 0.0 * 3.0 + 80.0
      m = lf_saw 0.4 0.0 * 24.0 + o
      s = sin_osc (midi_cps m) 0.0 * 0.04
      c = comb_n [0,1] 0.4 s 0.2 4.0
  in out c

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

-- > draw (out (sin_osc (mce2 220 660) 0.0 * 0.1))
-- > audition_rju [] (out (sin_osc (mce2 440 442) 0.0 * 0.1))