Polish PNGRenderer

lib/PNGRenderer.hs

@@ -0,0 +1,38 @@
+module PNGRenderer
+( Picture
+
+, renderPNG
+, compose
+, translate
+, blank
+) where
+
+import Data.Maybe
+import System.IO.Unsafe
+import qualified Graphics.Gloss as Gloss
+import Graphics.Gloss.Juicy
+
+----------------------------------------------------------------------
+-- Render a file using Gloss.Picture. Compose multiple images into  --
+-- one.                                                             --
+----------------------------------------------------------------------
+
+----------------------------- Constants ------------------------------
+
+type Picture = Gloss.Picture
+
+----------------------------------------------------------------------
+
+-- Turn a path to a .png file into a Picture.
+renderPNG :: FilePath -> Picture
+renderPNG = fromJust . unsafePerformIO . loadJuicyPNG
+
+-- An empty picture
+blank :: Picture
+blank = Gloss.Blank
+
+translate :: Float -> Float -> Picture -> Picture
+translate = Gloss.translate
+
+compose :: [Picture] -> Picture
+compose = Gloss.Pictures