image.ml
bimage-unix
1 2 3 4 5 6 let create_mmap ?mode ?(layout = Bimage.Image.Interleaved) kind color ~filename w h = let data = Data.create_mmap ?mode kind ~filename (w * h * Bimage.Color.channels color) in Bimage.Image.of_data color w h layout data
1 2 3 4 5 6
let create_mmap ?mode ?(layout = Bimage.Image.Interleaved) kind color ~filename w h = let data = Data.create_mmap ?mode kind ~filename (w * h * Bimage.Color.channels color) in Bimage.Image.of_data color w h layout data