hsnoise-0.0.2: examples/Perlin.hs

module Main where

import Numeric.Noise.Perlin

import Codec.PPM.Binary
import Data.Word (Word8)

main = do
    -- The size of the resulting image.
    let size = 200

    -- Parameters for the noise function.
    let seed = 1
    let octaves = 5
    let scale = 0.05
    let persistance = 0.5

    -- Create the perlin function.
    let perlinNoise = perlin seed octaves scale persistance    

    -- Compute the noise value for each pixel in the image.
    let coords = [1.0..fromInteger size]
    let xs = [noiseValue perlinNoise (x, y, 0) | y <- coords, x <- coords]
    
    -- Convert the noise values to grayscale colors.
    let ps = map noiseToColor xs
    
    -- Write the image.
    writePPM "Noise.ppm" (size, size) ps
    return ()

-- Converts a value from -1 to 1 to a gray 24-bit color value from 0 to 255.
noiseToColor :: Double -> (Word8, Word8, Word8)
noiseToColor n = (n', n', n')
    where n' = fromInteger (floor ((n * 0.5 + 0.5) * 255)) :: Word8