gloss-juicy-0.2.3: gloss-juicy.hs

module Main where

import Graphics.Gloss
import Graphics.Gloss.Juicy
import System.Environment

main :: IO ()
main = do
	args <- getArgs
	case args of 
		[filename] -> loadJuicy filename >>= maybe (putStrLn $ "Couldn't load or decode " ++ filename) displayPic
		_          -> putStrLn "usage: gloss-juicy <file> -- displays the image in a gloss window"


displayPic :: Picture -> IO ()
displayPic p@(Bitmap dta) = display (InWindow "Image Viewer" (width, height) (10, 10))
                                                 white
                                                 p
  where (width,height) = bitmapSize dta
displayPic _ = error "only the Bitmap constructor should be used here"