Source file `draw.ml`

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
open Bimage

type t = Cairo.Surface.t

let cairo_format : [ gray | rgb ] Color.t -> Cairo.Image.format =
 fun color -> match Color.t color with `Gray -> A8 | `Rgb -> Cairo.Image.RGB24

let draw f im =
  let width, height, _ = Image.shape im in
  let image =
    Cairo.Image.(
      create_for_data8 im.Image.data
        (cairo_format im.Image.color)
        ~w:width ~h:height)
  in
  f image