module Sound.SC3.UGen.Record.RegaliaMitraEQ where
import qualified Sound.SC3.UGen as S
import Sound.SC3.UGen.Record
data RegaliaMitraEQ = RegaliaMitraEQ {
input :: S.UGen,
freq :: S.UGen,
rq :: S.UGen,
k :: S.UGen
} deriving (Show)
regaliaMitraEQ :: RegaliaMitraEQ
regaliaMitraEQ = RegaliaMitraEQ {
input = 0.0,
freq = 440.0,
rq = 0.1,
k = 0.0
}
mkRegaliaMitraEQ :: RegaliaMitraEQ -> S.UGen
mkRegaliaMitraEQ (RegaliaMitraEQ a' b' c' d') = S.mkOsc S.AR "RegaliaMitraEQ" [a',b',c',d'] 1
instance Make RegaliaMitraEQ where
ugen = mkRegaliaMitraEQ