summaryrefslogtreecommitdiff
path: root/test/Examples/Mandel/Main.hs
blob: f1d49d19891f46fde85f367554e545fff541f5a8 (plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
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"