2023-01-01から1ヶ月間の記事一覧
コードを載せます module Main (main) where import qualified SDL import SDL.Mixer main :: IO () main = do SDL.initialize [SDL.InitAudio] withAudio defaultAudio 4096 $ do load "test.mp3" >>= play SDL.delay 1000 SDL.quit 私は stack を使って sd…
コードを載せます module Main (main) where import qualified SDL import SDL.Mixer main :: IO () main = do SDL.initialize [SDL.InitAudio] withAudio defaultAudio 4096 $ do load "test.mp3" >>= play SDL.delay 1000 SDL.quit 私は stack を使って sd…