PrintVal.hs

-- | (Undocumented class)
module Sound.SC3.UGen.Record.PrintVal where
import qualified Sound.SC3.UGen as S
import Sound.SC3.UGen.Record
data PrintVal = PrintVal {
  in :: S.UGen,
  numblocks :: S.UGen,
  id :: S.UGen
  } deriving (Show)
printVal :: PrintVal
printVal = PrintVal {
  in = 0.0,
  numblocks = 100.0,
  id = 0.0
  }
mkPrintVal :: PrintVal -> S.UGen
mkPrintVal (PrintVal  a' b' c') = S.mkOsc S.KR "PrintVal" [a',b',c'] 1
instance Make PrintVal where
  ugen = mkPrintVal