→ 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)