module CsoundExpr.Opcodes.Vectorial.Vectorialdelay
(vdelayk,
vport,
vecdelay)
where
import CsoundExpr.Base.Types
import CsoundExpr.Base.MultiOut
import CsoundExpr.Base.SideEffect
import CsoundExpr.Base.UserDefined
vdelayk :: (K k0) => [Irate] -> Irate -> k0 -> Irate -> Krate
vdelayk i0init i1ksig k2del i3maxdel = opcode "vdelayk" args
where args = [to i1ksig, to k2del, to i3maxdel] ++ map to i0init
vport :: (K k0) => [Irate] -> Irate -> k0 -> Irate -> SignalOut
vport i0init i1fn k2htime i3elements = outOpcode "vport" args
where args = [to i1fn, to k2htime, to i3elements] ++ map to i0init
vecdelay ::
[Irate] -> Irate -> Irate -> Irate -> Irate -> Irate -> SignalOut
vecdelay i0init i1fn i2fnIn i3fnDel i4elements i5maxdel
= outOpcode "vecdelay" args
where args
= [to i1fn, to i2fnIn, to i3fnDel, to i4elements, to i5maxdel] ++
map to i0init