← Back to branch summary

~ubuntu-branches/debian/squeeze/camlimages/squeeze

« back to all changes in this revision

Viewing changes to src/gif.mli

  • Committer: Bazaar Package Importer
  • Author(s): Sylvain Le Gall, Ralf Treinen, Sylvain Le Gall
  • Date: 2009-03-05 00:19:32 UTC
  • mfrom: (1.1.3 upstream)
  • Revision ID: james.westby@ubuntu.com-20090305001932-f0hstlmun8hxvs0r
Tags: 1:3.0.1-1
[ Ralf Treinen ]
* Updated debian/watch.

[ Sylvain Le Gall ]
* New upstream version:
  * Remove useless patches
  * Adapt debian/rules and other debhelper files
  * Add debian/patches/fix_3_0_1 to fix various problem (probably due to
    OCaml 3.11 migration)
* Depends on version 2.12 of lablgtk2
* Add dh-ocaml build-dependency (rules/ocaml.mk)
* Add ${misc:Depends} to dependencies
* Update Homepage field into debian/control and debian/copyright
* Add license version for debian packaging
* Directly use eng.html rather than creating a linked index.html file

Show diffs side-by-side

added added

removed removed

Lines of Context:
src/gif.mli
 
1
(***********************************************************************)
 
2
(*                                                                     *)
 
3
(*                           Objective Caml                            *)
 
4
(*                                                                     *)
 
5
(*            Fran�ois Pessaux, projet Cristal, INRIA Rocquencourt     *)
 
6
(*            Pierre Weis, projet Cristal, INRIA Rocquencourt          *)
 
7
(*            Jun Furuse, projet Cristal, INRIA Rocquencourt           *)
 
8
(*                                                                     *)
 
9
(*  Copyright 1999-2004,                                               *)
 
10
(*  Institut National de Recherche en Informatique et en Automatique.  *)
 
11
(*  Distributed only by permission.                                    *)
 
12
(*                                                                     *)
 
13
(***********************************************************************)
 
14
 
 
15
(* $Id: gif.mli,v 1.1 2007/01/18 10:29:57 rousse Exp $ *)
 
16
 
 
17
(** High level interfaces *)
 
18
type gif_extension = 
 
19
   | GifComment of string list
 
20
   | GifGraphics of string list
 
21
   | GifPlaintext of string list
 
22
   | GifApplication of string list
 
23
   | GifOtherExt of int * string list;;
 
24
 
 
25
type gif_frame = {
 
26
  frame_left : int;
 
27
  frame_top : int;
 
28
  frame_bitmap : Index8.t;
 
29
  mutable frame_extensions : gif_extension list;
 
30
  frame_delay : int;
 
31
};;
 
32
 
 
33
type gif_sequence = {
 
34
  screen_width : int;
 
35
  screen_height : int;
 
36
  screen_colormap : Color.rgb Color.map;
 
37
  frames : gif_frame list;
 
38
  loops : int;
 
39
};;
 
40
 
 
41
val check_header : string -> Images.header;;
 
42
  (** Checks the file header *)
 
43
 
 
44
val load : string -> Images.load_option list -> gif_sequence
 
45
  (** Loads a gif image sequence *)
 
46
val load_sequence : string -> Images.load_option list -> Images.sequence
 
47
  (** Loads a gif image sequence, but to more general type *)
 
48
val load_first : string -> Images.load_option list -> Images.t
 
49
  (** Loads the first frame of a gif image sequence. *)
 
50
val save : string -> Images.save_option list -> gif_sequence -> unit
 
51
  (** Saves a gif image sequence *)
 
52
val save_image : string -> Images.save_option list -> Images.t -> unit
 
53
  (** Saves an image as a gif file with only one frame *)
 
54
 
 
55
(*** Below they are all low level interfaces *)
 
56
 
 
57
type in_channel;;
 
58
type out_channel;;
 
59
 
 
60
type screen_info = {
 
61
  s_width : int;
 
62
  s_height : int;
 
63
  s_color_resolution : int;
 
64
  s_back_ground_color : int;
 
65
  s_colormap : Color.rgb array;
 
66
};;
 
67
 
 
68
type record_type =
 
69
  | Undefined
 
70
  | Screen_desc
 
71
  | Image_desc
 
72
  | Extension
 
73
  | Terminate;;
 
74
 
 
75
type gif_desc = {
 
76
  desc_left : int;
 
77
  desc_top : int;
 
78
  desc_width : int;
 
79
  desc_height : int;
 
80
  desc_interlace : bool;
 
81
  desc_colormap : Color.rgb array;
 
82
};;
 
83
 
 
84
val dGifOpenFileName : string -> screen_info * in_channel;;
 
85
val dGifCloseFile : in_channel -> unit;;
 
86
val dGifGetRecordType : in_channel -> record_type;;
 
87
val dGifGetImageDesc : in_channel -> gif_desc;;
 
88
val dGifGetLine : in_channel -> string;;
 
89
val dGifGetExtension : in_channel -> int * string list;;
 
90
 
 
91
val eGifOpenFileName : string -> out_channel;;
 
92
val eGifCloseFile : out_channel -> unit;;
 
93
val eGifPutScreenDesc : out_channel ->screen_info -> unit;;
 
94
val eGifPutImageDesc : out_channel -> gif_desc -> unit;;
 
95
val eGifPutLine : out_channel -> string -> unit;;
 
96
val eGifPutExtension : out_channel -> int * string list -> unit;;