On Wed, 8 Nov 2006, Rohan Drape wrote: > import Sound.SC3 > import Control.Concurrent (forkIO) > > ping f a = out 0 (sinOsc AR f 0 * e) > where c = EnvNum (-4.0) > e = envGen KR 1 a 0 1 removeSynth (envPerc 0.1 0.6 1 [c,c]) > > latency = 0.01 > > bundle t m = OscB (t + latency) m > > pinger = do now <- utc > at (fromIntegral (ceiling now)) f > where f t = do fd <- sc > send' fd (bundle t [s_new "ping" (-1) AddToTail 1]) > putStrLn "Sending ping" > return 1.0 > > main = do fd <- sc > putStrLn "Sending Ping Instrument" > sync' fd (d_recv' "ping" (ping 440 0.1)) > putStrLn "Resetting scsynth" > reset fd > putStrLn "Starting schedule thread" > forkIO pinger > putStrLn "Delaying main thread" > pause 30 > putStrLn "End of delay, exiting"
When I run this, then SuperCollider emits the error FAILURE ew Command not found Do you use some new feature? (I could even not tell you my SuperCollider version, 'scsynth --version', 'scsynth -v' and the like, don't tell me. :-( _______________________________________________ Haskell-Cafe mailing list Haskell-Cafe@haskell.org http://www.haskell.org/mailman/listinfo/haskell-cafe
