hdf-0.14: gr/ctl1.hs

import Control.Monad
import Sound.DF.Uniform.GADT {- hdf -}
import Sound.OSC {- hosc -}
import qualified Sound.SC3.ID as S {- hsc3 -}

-- > import qualified Sound.DF.Uniform.LL as L {- hdf -}
-- > L.with_jack_dl (mapM_ S.send ctl_osc_msg)
ctl_osc_msg :: [Message]
ctl_osc_msg = [S.c_set1 0 440,S.c_set1 1 0.1]

-- > draw ctl_osc
ctl_osc :: DF ()
ctl_osc =
    let o = sin_osc (ctl1 0) 0.0 * ctl1 1
    in out1 o

-- > L.with_jack_dl (mapM_ S.send [S.c_set1 0 880,S.c_set1 1 0.1])
-- > L.with_jack_dl (mapM_ S.send [S.c_set1 0 220,S.c_set1 1 0.2])
main :: IO ()
main = audition ctl_osc_msg ctl_osc

-- > drawM ctl_osc_m
-- > ctl_osc_m >>= audition ctl_osc_msg
ctl_osc_m :: (Functor m,UId m) => m (DF ())
ctl_osc_m = do
  o <- fmap (* (ctl1 1)) (sin_osc_m (ctl1 0) 0.0)
  return (out1 o)