module Sound.SC3.UGen.Record.HairCell where
import qualified Sound.SC3.UGen as S
import Sound.SC3.UGen.Record
data HairCell = HairCell {
rate :: S.Rate,
input :: S.UGen,
spontaneousrate :: S.UGen,
boostrate :: S.UGen,
restorerate :: S.UGen,
loss :: S.UGen
} deriving (Show)
hairCell :: HairCell
hairCell = HairCell {
rate = S.AR,
input = 0.0,
spontaneousrate = 0.0,
boostrate = 200.0,
restorerate = 1000.0,
loss = 0.99
}
mkHairCell :: HairCell -> S.UGen
mkHairCell (HairCell r a' b' c' d' e') = S.mkOsc r "HairCell" [a',b',c',d',e'] 1
instance Make HairCell where
ugen = mkHairCell