Source file `show_text_dejavu.ml`

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

let family = "DejaVu Sans"
let size = 15.
let font_extents = get_font_extents (font family) size

let textC ~face ~size contents =
  text_ ~face ~size contents
  |> translateY (-.font_extents.descent)
  |> translateY ((font_extents.ascent +. font_extents.descent) /. 2.)

let n = textC ~face:(font family) ~size
let b = textC ~face:(font family ~weight:Bold) ~size
let i = textC ~face:(font family ~slant:Italic) ~size