csound-expression-opcodes-0.0.5.4: src/Csound/Typed/Opcode/Deprecated.hs

module Csound.Typed.Opcode.Deprecated (
    
    
    
    tableiw) where

import Control.Monad.Trans.Class
import Control.Monad
import Csound.Dynamic
import Csound.Typed

-- 

-- | 

--
-- >  tableiw  isig, indx, ifn [, ixmode] [, ixoff] [, iwgmode]
--
-- csound doc: <https://csound.com/docs/manual/tableiw.html>
tableiw ::  D -> D -> Tab -> SE ()
tableiw b1 b2 b3 =
  SE $ join $ f <$> (lift . unD) b1 <*> (lift . unD) b2 <*> (lift . unTab) b3
  where
    f a1 a2 a3 = opcsDep_ "tableiw" [(Xr,[Ir,Ir,Ir,Ir,Ir,Ir])] [a1,a2,a3]