Module Bogue_cairo

Example

If you have installed Bogue, you may run boguex 50 to see a demo of drawing circles using the native Bogue circle primitive. Here is an alternative version, using Cairo's circles, which is twice as fast.

open Bogue
open Bogue_cairo

let circles () =
  let cairo, a = Cairo_area.create_with_widget ~w:500 ~h:200 () in
  let w,h = Cairo_area.drawing_size cairo in
  Printf.sprintf "Cairo area Physical pixel size: (w=%i, h=%i)" w h
  |> print_endline;
  let random_circle () =
    let radius = Random.int 100 + 1 in
    let thick = Random.int radius in
    let color = Draw.random_color () in
    let x = Random.int w in
    let y = Random.int h in
    Cairo_area.draw_circle cairo ~color ~thick ~radius (x, y)
  in
  Cairo_area.init cairo;
  for _ = 0 to 500 do
    random_circle ()
  done;
  Cairo_area.flush cairo;
  Cairo_area.finalize cairo;

  let layout = Layout.resident ~name:"Bogue-Cairo circles" a in
  Bogue.(run (of_layout layout))

let () =
  circles ()