module Sound.SC3.UGen.Record.Chromagram where
import qualified Sound.SC3.UGen as S
import Sound.SC3.UGen.Record
data Chromagram = Chromagram {
fft :: S.UGen,
fftsize :: S.UGen,
n :: S.UGen,
tuningbase :: S.UGen,
octaves :: S.UGen,
integrationflag :: S.UGen,
coeff :: S.UGen
} deriving (Show)
chromagram :: Chromagram
chromagram = Chromagram {
fft = 0.0,
fftsize = 2048.0,
n = 12.0,
tuningbase = 32.703195662575,
octaves = 8.0,
integrationflag = 0.0,
coeff = 0.9
}
mkChromagram :: Chromagram -> S.UGen
mkChromagram (Chromagram a' b' c' d' e' f' g') = S.mkOsc S.KR "Chromagram" [a',b',c',d',e',f',g'] 1
instance Make Chromagram where
ugen = mkChromagram