FFTPeak.hs

-- | Find peak value in an FFT frame
module Sound.SC3.UGen.Record.FFTPeak where
import qualified Sound.SC3.UGen as S
import Sound.SC3.UGen.Record
data FFTPeak = FFTPeak {
  buffer :: S.UGen,
  freqlo :: S.UGen,
  freqhi :: S.UGen
  } deriving (Show)
fFTPeak :: FFTPeak
fFTPeak = FFTPeak {
  buffer = 0.0,
  freqlo = 0.0,
  freqhi = 50000.0
  }
mkFFTPeak :: FFTPeak -> S.UGen
mkFFTPeak (FFTPeak  a' b' c') = S.mkOsc S.KR "FFTPeak" [a',b',c'] 2
instance Make FFTPeak where
  ugen = mkFFTPeak