WIPHEADmaster

1 files changed, 20 insertions, 0 deletions

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"