-- | (Undocumented class) module Sound.SC3.UGen.Record.FoaNFC where import qualified Sound.SC3.UGen as S import Sound.SC3.UGen.Record data FoaNFC = FoaNFC { input :: S.UGen, distance :: S.UGen } deriving (Show) foaNFC :: FoaNFC foaNFC = FoaNFC { input = 0.0, distance = 1.0 } mkFoaNFC :: FoaNFC -> S.UGen mkFoaNFC (FoaNFC a' b') = S.mkOsc S.AR "FoaNFC" [a',b'] 4 instance Make FoaNFC where ugen = mkFoaNFC