module Vivid.UGens.Info (
checkBadValues
, controlDur
, controlRate
, numAudioBuses
, numBuffers
, numControlBuses
, numInputBuses
, numOutputBuses
, numRunningSynths
, radiansPerSample
, sampleDur
, sampleRate
, subsampleOffset
) where
import Vivid.SynthDef
import Vivid.SynthDef.FromUA
import Vivid.UGens.Args
checkBadValues :: (Args '["in"] '["id", "post"] a) => a -> SDBody a Signal
checkBadValues = makeUGen
"CheckBadValues" AR
(Vs::Vs '["in", "id", "post"])
(id_ (0::Float), post_ (2::Float))
controlDur :: SDBody' a Signal
controlDur =
addUGen $ UGen (UGName_S "ControlDur") IR [] 1
controlRate :: SDBody' a Signal
controlRate =
addUGen $ UGen (UGName_S "ControlRate") IR [] 1
numAudioBuses :: SDBody' a Signal
numAudioBuses =
addUGen $ UGen (UGName_S "NumAudioBuses") IR [] 1
numBuffers :: SDBody' a Signal
numBuffers =
addUGen $ UGen (UGName_S "NumBuffers") IR [] 1
numControlBuses :: SDBody' a Signal
numControlBuses =
addUGen $ UGen (UGName_S "NumControlBuses") IR [] 1
numInputBuses :: SDBody' a Signal
numInputBuses =
addUGen $ UGen (UGName_S "NumInputBuses") IR [] 1
numOutputBuses :: SDBody' a Signal
numOutputBuses =
addUGen $ UGen (UGName_S "NumOutputBuses") IR [] 1
numRunningSynths :: SDBody' a Signal
numRunningSynths =
addUGen $ UGen (UGName_S "NumRunningSynths") IR [] 1
radiansPerSample :: SDBody' a Signal
radiansPerSample =
addUGen $ UGen (UGName_S "RadiansPerSample") IR [] 1
sampleDur :: SDBody' a Signal
sampleDur =
addUGen $ UGen (UGName_S "SampleDur") IR [] 1
sampleRate :: SDBody' a Signal
sampleRate =
addUGen $ UGen (UGName_S "SampleRate") IR [] 1
subsampleOffset :: SDBody' a Signal
subsampleOffset =
addUGen $ UGen (UGName_S "SubsampleOffset") IR [] 1