module Csound.Typed.Opcode.OSC (
oscInit, oscListen, oscSend) where
import Control.Applicative
import Control.Monad.Trans.Class
import Csound.Dynamic
import Csound.Typed
oscInit :: D -> SE D
oscInit b1 = fmap ( D . return) $ SE $ (depT =<<) $ lift $ f <$> unD b1
where f a1 = opcs "OSCinit" [(Ir,[Ir])] [a1]
oscListen :: D -> D -> D -> [Sig] -> SE Sig
oscListen b1 b2 b3 b4 = fmap ( Sig . return) $ SE $ (depT =<<) $ lift $ f <$> unD b1 <*> unD b2 <*> unD b3 <*> mapM unSig b4
where f a1 a2 a3 a4 = opcs "OSClisten" [(Kr,[Ir,Ir,Ir] ++ (repeat Xr))] ([a1,a2,a3] ++ a4)
oscSend :: Sig -> D -> D -> D -> D -> [Sig] -> SE ()
oscSend b1 b2 b3 b4 b5 b6 = SE $ (depT_ =<<) $ lift $ f <$> unSig b1 <*> unD b2 <*> unD b3 <*> unD b4 <*> unD b5 <*> mapM unSig b6
where f a1 a2 a3 a4 a5 a6 = opcs "OSCsend" [(Xr,[Kr,Ir,Ir,Ir,Ir] ++ (repeat Kr))] ([a1
,a2
,a3
,a4
,a5] ++ a6)