ICepstrum.hs

-- | Transform a cepstrum back to a spectrum
module Sound.SC3.UGen.Record.ICepstrum where
import qualified Sound.SC3.UGen as S
import Sound.SC3.UGen.Record
data ICepstrum = ICepstrum {
  cepchain :: S.UGen,
  fftbuf :: S.UGen
  } deriving (Show)
iCepstrum :: ICepstrum
iCepstrum = ICepstrum {
  cepchain = 0.0,
  fftbuf = 0.0
  }
mkICepstrum :: ICepstrum -> S.UGen
mkICepstrum (ICepstrum  a' b') = S.mkOsc S.KR "ICepstrum" [a',b'] 1
instance Make ICepstrum where
  ugen = mkICepstrum