From 1640830bf5dc0630481e698512064215eb3e8249 Mon Sep 17 00:00:00 2001 From: Tom Smeding Date: Sun, 10 Oct 2021 19:55:59 +0200 Subject: WIP --- test/Main.hs | 20 ++++++++++++++++++++ 1 file changed, 20 insertions(+) create mode 100644 test/Main.hs (limited to 'test/Main.hs') diff --git a/test/Main.hs b/test/Main.hs new file mode 100644 index 0000000..19105dd --- /dev/null +++ b/test/Main.hs @@ -0,0 +1,20 @@ +module Main where + +import qualified Data.Array.Accelerate as A +import qualified Data.Array.Accelerate.Interpreter as I +import System.Exit + +import qualified Data.Array.Accelerate.C as C + +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)]) + case C.translateAcc "mandelkernel" Mandel.afun of + Left err -> die err + Right (code, _, _) -> writeFile "mandel-out.c" code + ppmWrite img "mandel.ppm" -- cgit v1.2.3-70-g09d2