FreeSelfWhenDone.hs

-- | Free the enclosing synth when a UGen is finished
module Sound.SC3.UGen.Record.FreeSelfWhenDone where
import qualified Sound.SC3.UGen as S
import Sound.SC3.UGen.Record
data FreeSelfWhenDone = FreeSelfWhenDone {
  src :: S.UGen
  } deriving (Show)
freeSelfWhenDone :: FreeSelfWhenDone
freeSelfWhenDone = FreeSelfWhenDone {
  src = 0.0
  }
mkFreeSelfWhenDone :: FreeSelfWhenDone -> S.UGen
mkFreeSelfWhenDone (FreeSelfWhenDone  a') = S.mkOsc S.KR "FreeSelfWhenDone" [a'] 1
instance Make FreeSelfWhenDone where
  ugen = mkFreeSelfWhenDone