hsc3-rec-0.12: Sound/SC3/UGen/Record/Getenv.hs

-- | Read (numeric) shell environment variables into a synth
module Sound.SC3.UGen.Record.Getenv where
import qualified Sound.SC3.UGen as S
import Sound.SC3.UGen.Record
data Getenv = Getenv {
  key :: S.UGen,
  defaultval :: S.UGen
  } deriving (Show)
getenv :: Getenv
getenv = Getenv {
  key = 0.0,
  defaultval = 0.0
  }
mkGetenv :: Getenv -> S.UGen
mkGetenv (Getenv  a' b') = S.mkOsc S.IR "Getenv" [a',b'] 1
instance Make Getenv where
  ugen = mkGetenv