有没有一种简单直接的方法可以使用一些库从Haskell播放WAV文件，并且可能让我同时播放多个声音？
我知道OpenAL，但我并不是在编写一些高级音频合成程序，我只是想为一个小玩意儿播放一些声音。理想情况下，API可能会像这样：
readWavFile :: FilePath -> IO Wave
playWave :: Wave -> IO ()
playWaveNonBlocking :: Wave -> IO ()
我快要只是启动mplayer或其他东西。或者尝试将wav直接cat到/dev/snd/或类似的地方。
这是使用SDL同时在多个声道播放多个声音的方法。我认为这回答了问题的标准。WAV文件、简单的Haskell语言、多个声道。
import Control.Monad
import Control.Monad.Fix
import Graphics.UI.SDL as SDL
import Graphics.UI.SDL.Mixer as Mix
main = do
SDL.init [SDL.InitAudio]
result <- openAudio audioRate audioFormat audioChannels audioBuffers
classicJungle <- Mix.loadWAV "/home/chris/Samples/ClassicJungle/A4.wav"
realTech <- Mix.loadWAV "/home/chris/Samples/RealTech/A4.wav"
ch1 <- Mix.playChannel anyChannel classicJungle 0
SDL.delay 1000
ch2 <- Mix.playChannel anyChannel realTech 0
fix $ \loop -> do
SDL.delay 50
stillPlaying <- numChannelsPlaying
when (stillPlaying /= 0) loop
Mix.closeAudio
SDL.quit
where audioRate = 22050
audioFormat = Mix.AudioS16LSB
audioChannels = 2
audioBuffers = 4096
anyChannel = (-1)
我知道这不是一个方便的方法，但是我有测试代码在手，所以...
{-# LANGUAGE NoImplicitPrelude #-}
module Wav (main) where
import Fay.W3C.Events
import Fay.W3C.Html5
import Language.Fay.FFI
import Language.Fay.Prelude
main :: Fay ()
main = addWindowEventListener "load" run
run :: Event -> Fay Bool
run _ = do
aud <- mkAudio
setSrc aud "test.wav"
play aud
return False
mkAudio :: Fay HTMLAudioElement
mkAudio = ffi "new Audio()"
addWindowEventListener :: String -> (Event -> Fay Bool) -> Fay ()
addWindowEventListener = ffi "window['addEventListener'](%1,%2,false)"
感谢HTML5的强大支持，你可以在Haskell中播放WAV文件！你只需要打开一个网页浏览器，而不是使用mplayer。 :D
Fay.W3C.*？ - Ben Millwood通过ALUT使用OpenAL：
import Control.Monad
import Sound.ALUT
playSound :: IO ()
playSound =
withProgNameAndArgs runALUTUsingCurrentContext $ \_ _ ->
do
(Just device) <- openDevice Nothing
(Just context) <- createContext device []
currentContext $= Just context
buffer1 <- createBuffer $ Sine 440 0 1
buffer2 <- createBuffer HelloWorld
[source] <- genObjectNames 1
queueBuffers source [buffer1,buffer2]
play [source]
sleep 4
closeDevice device
return ()
main = playSound
加载wav文件的方法：
buffer3 <- createBuffer $ File "/path/to/file.wav"
感谢 Chris Double 提供的帮助：http://bluishcoder.co.nz/articles/haskell/openal.html
module Main (main) where
import qualified SDL
import SDL.Mixer
main :: IO ()
main = do
SDL.initialize [SDL.InitAudio]
withAudio defaultAudio 4096 $ do
load "test.wav" >>= play
SDL.delay 1000
SDL.quit
sudo apt instll libsdl2-dev libsdl2-mixer-dev
因为我安装这些文件已经很多月了，所以我的记忆有些模糊。
我使用“stack”来启动一个Haskell项目。
stack new myproject
（myproject 是项目名称）
我在 myproject 文件夹中编辑了 package.yaml 文件：
dependencies:
- base >= 4.7 && < 5
- sdl2
- sdl2-mixer
然后我还编辑了位于app文件夹中的Main.hs文件。那就是上面的代码。
我把test.wav文件放在myproject文件夹中，并使用以下命令：
stack run
我可以播放测试音频。