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 a picture by moving it along two axis.
translate :: Float -> Float -> Picture -> Picture
translate = Gloss.translate

-- Compose multiple pictures into a single picture.
compose :: [Picture] -> Picture
compose = Gloss.Pictures