1
(***********************************************************************)
5
(* Jun Furuse, projet Cristal, INRIA Rocquencourt *)
7
(* Copyright 1999-2004, *)
8
(* Institut National de Recherche en Informatique et en Automatique. *)
9
(* Distributed only by permission. *)
11
(***********************************************************************)
13
(* $Id: oTiff.ml,v 1.7 2004/09/07 07:31:07 weis Exp $ *)
17
let load name opts = OImages.make (Tiff.load name opts);;
19
let save name opts image =
20
let rgb24 = OImages.rgb24 image in
21
Tiff.save name opts rgb24#image;;