import Data.Int
import qualified Data.StorableVector.Lazy as L
import Prelude.Unicode
-import Sound.EsounD.Player
-import Sound.EsounD.Streams
-import Sound.EsounD.Types
+import Sound.EsounD
main ∷ IO ()
main = runRegionT $
→ Double
→ cr ()
playMono16Sine pl sampleFreq sec noteFreq
- = write pl buffer
+ = writeFrames pl buffer
where
buffer ∷ L.Vector Int16
buffer = L.pack L.defaultChunkSize frames
2
⋅ π
⋅ noteFreq
- ⋅ (realToFrac n / realToFrac sampleFreq)
+ ⋅ (realToFrac n ÷ realToFrac sampleFreq)