(***********************************************************************)
(*                                                                     *)
(*                           Objective Caml                            *)
(*                                                                     *)
(*            Jun Furuse, projet Cristal, INRIA Rocquencourt           *)
(*                                                                     *)
(*  Copyright 1999,2000,2001,2002,2001,2002                            *)
(*  Institut National de Recherche en Informatique et en Automatique.  *)
(*  Distributed only by permission.                                    *)
(*                                                                     *)
(***********************************************************************)
open Image
open OImage

let draw image x y =
  try
    Graphic_image.draw_image image#image x y
  with
    Wrong_image_type -> raise Wrong_image_class

let get x y w h =
  new rgb24_wrapper (Graphic_image.get_image x y w h) 
