module Sound.DF.Uniform.GADT.Audition where
import Sound.OSC
import Sound.DF.Uniform.GADT.DF
import qualified Sound.DF.Uniform.LL.Audition as L
import qualified Sound.DF.Uniform.LL.CGen as L
import qualified Sound.DF.Uniform.UDF as U
df_instructions :: DF () -> L.Instructions
df_instructions = U.udf_instructions . df_erase
audition_rju :: [Message] -> DF () -> IO ()
audition_rju is = L.audition_rju is . df_instructions
audition_sc3 :: [Message] -> DF () -> IO ()
audition_sc3 is = L.audition_sc3 is . df_instructions
audition_text :: Int -> DF () -> IO ()
audition_text nf = L.audition_text nf . df_instructions