Haskell bindings to MikMod, an Open Source, multi-platform library for playback of tracker music and sound effects.
For more information about using this library see the haddock API documentation.
import Control.Concurrent (threadDelay)
import Control.Monad.Loops (whileM_)
import Sound.MikMod
main = do
mikmodSetup 16
tape <- playerLoad "rockin.mod" 64 NotCurious
playerStart tape
whileM_ playerActive $ do
mikmodUpdate
threadDelay 10000
playerFree tape
mikmodExit