1
(***********************************************************************)
5
(* Fran�ois Pessaux, projet Cristal, INRIA Rocquencourt *)
6
(* Pierre Weis, projet Cristal, INRIA Rocquencourt *)
7
(* Jun Furuse, projet Cristal, INRIA Rocquencourt *)
9
(* Copyright 1999-2004, *)
10
(* Institut National de Recherche en Informatique et en Automatique. *)
11
(* Distributed only by permission. *)
13
(***********************************************************************)
15
(* $Id: rgba32.mli,v 1.7 2004/09/24 14:27:27 weis Exp $ *)
17
(** RGBA 32 bit depth image format *)
19
type elt = Color.rgba;;
28
mutable infos : Info.info list;
31
val resize : (float -> unit) option -> t -> int -> int -> t;;
32
(** [resize progress t w h] creates a resized image of [t] with size [w]x[h].
33
You can specify a progress meter function [progress], which takes
34
a float from 0 to 1.0. *)
36
(** Generic functions *)
37
(** Please read the comments of IMAGE in genimage.mli *)
39
val dump : t -> string;;
40
val unsafe_access : t -> int -> int -> string * int;;
41
val get_strip : t -> int -> int -> int -> string;;
42
val set_strip : t -> int -> int -> int -> string -> unit;;
43
val get_scanline : t -> int -> string;;
44
val set_scanline : t -> int -> string -> unit;;
45
val unsafe_get : t -> int -> int -> elt;;
46
val unsafe_set : t -> int -> int -> elt -> unit;;
47
val get : t -> int -> int -> elt;;
48
val set : t -> int -> int -> elt -> unit;;
49
val destroy : t -> unit;;
50
val blit : t -> int -> int -> t -> int -> int -> int -> int -> unit;;
51
val map : (elt -> elt -> elt) ->
52
t -> int -> int -> t -> int -> int -> int -> int -> unit;;
53
val create_with : int -> int -> Info.info list -> string -> t;;
54
val create : int -> int -> t;;
55
val make : int -> int -> elt -> t;;
57
val sub : t -> int -> int -> int -> int -> t;;