JoshGrain.hs

-- | (Undocumented class)
module Sound.SC3.UGen.Record.JoshGrain where
import qualified Sound.SC3.UGen as S
import Sound.SC3.UGen.Record
data JoshGrain = JoshGrain {
  maxSize :: S.UGen
  } deriving (Show)
joshGrain :: JoshGrain
joshGrain = JoshGrain {
  maxSize = 0.0
  }
mkJoshGrain :: JoshGrain -> S.UGen
mkJoshGrain (JoshGrain  a') = S.mkOsc S.AR "JoshGrain" [a'] 1
instance Make JoshGrain where
  ugen = mkJoshGrain