Sinus-generator

run.sh

ghc -O3 sin-gen && ./sin-gen && aplay -f S16_LE -r 8000 test.wav

sin-gen.hs

import Data.Word

import qualified Data.ByteString as B

play f = map f [0..]

cosinusoid = breakWordLittleEndian =<< play (fromIntegral . unsignify . round . (* max_word) . cos . accelerate)

  where
  	accelerate x = x + 0.0001 * (x ^ 2)

  	max_word     = 2^15 - 1

	unsignify x | x < 0 = 2^16 + x
	unsignify x         = x

breakWordLittleEndian :: Word16 -> [Word8]
breakWordLittleEndian x = map fromIntegral [x `mod` 256, x `div` 256]

main = do
	let piu = B.pack $ take 200000 cosinusoid

	B.writeFile "test.wav" piu