module Examples.Mandel.Main where

import qualified Data.Array.Accelerate as A
import qualified Data.Array.Accelerate.Interpreter as I

import qualified Examples.Mandel as Mandel
import Examples.Utils.PPM


main :: IO ()
main = do
    let viewport = ((640, 480), (-0.5, 0.0), 3.0)
        img = I.run1 Mandel.afun (A.fromList A.Z [(viewport, 200)])
    ppmWrite img "mandel.ppm"