{- |
  This module provides exactly the same interface as
  "Graphics.EasyRaster.GTK", but with more runtime sanity
  checks. Typically you will use this module while
  developing and debugging your application, and them
  change your import statement when you're happy that
  any bugs have been corrected.
-}

module Graphics.EasyRaster.GTK.Paranoid
    (
      init_system,
      ER.process_event, ER.wait_event, ER.main_loop,
      ER.Coord, ER.Channel,
      ER.ImageFileType (..), ER.type_string,
      ER.ImageBuffer (),
      ER.ib_new, ER.ib_load, ER.ib_save, ER.ib_display, ER.ib_canvas,
      ER.ib_size, ER.ib_coords, ER.ib_coords2, ER.ib_valid_coords,
      ib_write_pixel, ib_read_pixel,
      ER.ib_pixbuf
    )
  where

import Control.Monad (when)
import Graphics.UI.Gtk
import qualified Graphics.EasyRaster.GTK as ER

{- |
  Initialise the GTK runtime system. This function /must/
  be called before any other functions in this module.
  (If not, your program will likely summarily crash with
  an obscure error to 'stderr'.)

  Note that Gtk2hs will crash with a warning message if
  the program is compiled with the threaded RTS. (Use
  the non-paranoid version of @init_system@ to turn this
  warning off.)
-}
init_system :: IO ()
init_system = initGUI >> return ()

{- |
  Overwrite the specified pixel with the (R, G, B) colour.

  If the pixel coordinates are out of range, the 'error'
  function is called.
-}
ib_write_pixel :: ER.ImageBuffer -> (ER.Coord, ER.Coord) -> (ER.Channel, ER.Channel, ER.Channel) -> IO ()
ib_write_pixel buf (x,y) (r,g,b) = do
  when (not $ ER.ib_valid_coords buf (x,y)) $ error "ib_write_pixel: invalid coordinates."
  ER.ib_write_pixel buf (x,y) (r,g,b)

{- |
  Read the (R, G, B) colour of the specified pixel.

  If the pixel coordinates are out of range, the 'error'
  function is called.
-}
ib_read_pixel :: ER.ImageBuffer -> (ER.Coord, ER.Coord) -> IO (ER.Channel, ER.Channel, ER.Channel)
ib_read_pixel buf (x,y) = do
  when (not $ ER.ib_valid_coords buf (x,y)) $ error "ib_write_pixel: invalid coordinates."
  ER.ib_read_pixel buf (x,y)