<html>
<head>
<style>
.hmmessage P
{
margin:0px;
padding:0px
}
body.hmmessage
{
font-size: 10pt;
font-family:Verdana
}
</style>
</head>
<body class='hmmessage'>
<br>For those who follow, I finally find the way to mix (simpler than I thought)<br><br>import Sound.ALUT<br><br>playSound :: IO ()<br>playSound = withProgNameAndArgs runALUT $ \ _ _ -> do<br>↠ buffer1 <- createBuffer $ Sine 440 0 1<br>↠ buffer2 <- createBuffer $ HelloWorld<br>↠ [source1,source2] <- genObjectNames 2<br>↠ buffer source1 $= Just buffer1<br>↠ buffer source2 $= Just buffer2<br>↠ play [source1,source2]<br>↠ sleep 2<br>↠ return ()<br><br>main = playSound<br><br>(sorry if unicode if ugly, I don't know what to do with spaces)<br><br><br /><hr />Discutez sur Messenger où que vous soyez ! <a href='http://www.messengersurvotremobile.com/' target='_new'>Mettez Messenger sur votre mobile !</a></body>
</html>