module Sound.SC3.UGen.Bindings.HW where
import qualified Sound.SC3.UGen.Bindings.HW.Construct as C
import qualified Sound.SC3.UGen.Identifier as I
import Sound.SC3.UGen.Rate
import Sound.SC3.UGen.Type
import qualified Sound.SC3.UGen.UGen as U
clearBuf :: UGen -> UGen
clearBuf b = U.mrg2 b (C.mkOsc IR "ClearBuf" [b] 1)
dwrand :: I.ID i => i -> UGen -> UGen -> UGen -> UGen
dwrand z repeats weights list_ =
let n = mceDegree_err list_
weights' = mceExtend n weights
inp = repeats : constant n : weights'
in mkUGen Nothing [DR] (Left DR) "Dwrand" inp (Just list_) 1 (Special 0) (U.toUId z)
fftTrigger :: UGen -> UGen -> UGen -> UGen
fftTrigger b h p = C.mkOsc KR "FFTTrigger" [b,h,p] 1
packFFT :: UGen -> UGen -> UGen -> UGen -> UGen -> UGen -> UGen
packFFT b sz from to z mp =
let n = constant (mceDegree_err mp)
in C.mkOscMCE KR "PackFFT" [b, sz, from, to, z, n] mp 1
poll :: UGen -> UGen -> UGen -> UGen -> UGen
poll t i l tr = C.mkFilter "Poll" ([t,i,tr] ++ U.unpackLabel l) 0
sendReply :: UGen -> UGen -> String -> [UGen] -> UGen
sendReply i k n v =
let n' = map (fromIntegral . fromEnum) n
s = fromIntegral (length n')
in C.mkFilter "SendReply" ([i,k,s] ++ n' ++ v) 0
unpack1FFT :: UGen -> UGen -> UGen -> UGen -> UGen
unpack1FFT buf size index' which = C.mkOsc DR "Unpack1FFT" [buf, size, index', which] 1