import Control.Concurrent
import Data.Default (def)
import Sound.OSC.FD (Transport, pauseThread)
import Sound.SC3.FD
import Sound.SC3.Server.Process

sine :: UGen
sine = out 0 (mce2 (s 390) (s 400))
    where s f = sinOsc AR f 0.1 * 0.3

scmain :: Transport t => t -> IO ()
scmain fd = do
    reset fd
    play fd sine
    pauseThread 10

main :: IO ()
main = withSynth
        (def { serverProgram = "scsynth"
             , loadSynthDefs = False })
        (def { networkPort = UDPPort 2278 })
        def
        scmain