1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
|
(* This file is part of the tutorial
http://cairo.forge.ocamlcore.org/tutorial/
*)
open Cairo
let () =
let surface = Image.create Image.ARGB32 ~w:120 ~h:120 in
let cr = Cairo.create surface in
(* Examples are in 1.0 x 1.0 coordinate space *)
scale cr 120. 120.;
(* Drawing code goes here *)
set_source_rgb cr 0.0 0.0 0.0;
select_font_face cr "Georgia" ~weight:Bold;
set_font_size cr 1.2;
let te = text_extents cr "a" in
move_to cr (0.5 -. te.width /. 2. -. te.x_bearing)
(0.5 -. te.height /. 2. -. te.y_bearing);
show_text cr "a";
(* Write output and clean up *)
PNG.write surface "showtext.png"
|
