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"
|
