module Main where

import Graphics.UI.SDL as SDL

import Foreign
import Data.Typeable
import Data.Char

import System.Environment
import System.Exit
import System.Random

width = 640
height = 480

main = withInit [InitVideo] $ 
    do screen <- setVideoMode 640 480 16 [SWSurface]
       setCaption "Test" ""
       enableUnicode True
       image <- loadBMP "image.bmp"
       display image
       loop (display image)

display :: Surface -> IO ()
display image
    = do screen <- getVideoSurface
         let format = surfaceGetPixelFormat screen
         red <- mapRGB format 0xFF 0 0
         green <- mapRGB format 0 0xFF 0
         fillRect screen Nothing green
         fillRect screen (Just (Rect 10 10 10 10)) red
         posX <- randomRIO (0,width-1-surfaceGetWidth image)
         posY <- randomRIO (0,height-1-surfaceGetHeight image)
         blitSurface image Nothing screen (Just (Rect posX posY 0 0))
         SDL.flip screen


loop :: IO () -> IO ()
loop display
    = do event <- waitEvent
         case event of
           Quit -> exitWith ExitSuccess
           KeyDown (Keysym _ _ 'q') -> exitWith ExitSuccess
           KeyDown (Keysym _ _ ' ') -> display
           _ -> return ()
         loop display