View difference between Paste ID: Dyz7C2VY and RmUCkwQu

 module Pattern where
 import Data.Int
 import Data.WAVE
 import System.Process
 
 sampleRate = 44100
 bitrate = 32
 
--- From an answer by David Milani at:
+
--- https://stackoverflow.com/questions/5658391/generating-wav-sound-data-in-haskell
+
-sound :: Double  -- | Frequency
+
-      -> Int     -- | Samples per second
+
-      -> Double  -- | Length of sound in seconds
+
-      -> Int32   -- | Volume, (maxBound :: Int32) for highest, 0 for lowest
+
-      -> [Int32]
+
             -> [WAVESample]
-sound freq samples len volume =
+
-   take (round $ len * (fromIntegral samples)) $
+
-         map (round . (* fromIntegral volume)) $
+
-         map sin [0.0, (freq * 2 * pi / (fromIntegral samples))..]
+
 
 genWaveFile xs = WAVE header xs
     where header = WAVEHeader 1 sampleRate bitrate (Just $ length $ concat xs)
 
 wobbleFuncs = map (\x y -> 0.5 * sin (x * y) ) [1.0, 1.1 .. 3]
 genWobbleWave p d = genWaveForm (genWaveFormCycle p (wobbleFuncs ++ (reverse wobbleFuncs))) d
 wobbleWave = genWaveFile $ concat  $ replicate 4  [ genWobbleWave 55 3 , genWobbleWave 97.99886 1]
 
 main :: IO ()
 main =
     do
         putWAVEFile "out.wav" wobbleWave
         pid <- runCommand "aplay -q out.wav"
         -- waitForProcess pid
         return ()