EasyAudioSDL2基础音频播放库示例

易音频利用SDL2的非常基本的音频播放库。这是一个初始化SDL、初始化EasyAudio、加载音频文件、播放音频文件，然后关闭所有内容的示例程序。

import Control.Monad (when)

import EasyAudio

import Graphics.UI.SDL as SDL



main :: IO ()

main = do

  r <- SDL.init SDL.SDL_INIT_AUDIO

  when (r < 0) (error \"Error initializing SDL\")

  putStrLn \"Initialized SDL\"

  (loadClip, cleanup) <- easyAudio

  vader <- loadClip \"swvader0\"