與JPEG

Question

隨着CamlImages，我怎麼可以找到一個點的顏色OCaml的工件座標XY

let() = 
    let name = "test.jpg" in 
    let image = Jpeg.load name [] in 

形象鍵入Images.t

，但有趣的Rgb24.get requred型Rgb24.t

(* get color from coords XY *) 
    let x = 1 and y = 1 in 
    let rgb = Rgb24.get image x y in 
    print_int rgb.r; 

我嘗試了所有的功能，從庫，但沒有找到解決辦法。

Answer 1

Jpeg.load回報Images.t，其定義是：

type t = 
    | Index8 of Index8.t 
    | Rgb24 of Rgb24.t 
    | Index16 of Index16.t 
    | Rgba32 of Rgba32.t 
    | Cmyk32 of Cmyk32.t;; 

所有你需要的是模式匹配的Jpeg.load結果，並得到Rgb24.t：

let rgb24 = match Jpeg.load name [] with 
    | Rgb24 x -> x 
    | _ -> failwith "image must be rgb24"