blob: 7c53fc3c5ca2869751b31e01809ef57f98ebce46 (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
|
(**************************************************************************)
(* cairo-ocaml -- Objective Caml bindings for Cairo *)
(* Copyright © 2004-2005 Olivier Andrieu *)
(* *)
(* This code is free software and is licensed under the terms of the *)
(* GNU Lesser General Public License version 2.1 (the "LGPL"). *)
(**************************************************************************)
exception FT_Error of int
let _ = Callback.register_exception "FT_exn" (FT_Error 0)
type ft_library
type ft_face
external init_freetype : unit -> ft_library = "ml_FT_Init_FreeType"
external done_freetype : ft_library -> unit = "ml_FT_Done_FreeType"
external new_face : ft_library -> ?index:int -> string -> ft_face = "ml_FT_New_Face"
external done_face : ft_face -> unit = "ml_FT_Done_Face"
type fc_pattern
external fc_name_parse : string -> fc_pattern = "ml_FcNameParse"
external fc_name_unparse : fc_pattern -> string = "ml_FcNameUnparse"
external font_create : ft_library -> fc_pattern -> Cairo.font = "ml_cairo_ft_font_create"
external font_create_for_ft_face : ft_face -> Cairo.font = "ml_cairo_ft_font_create_for_ft_face"
external font_lock_face : Cairo.font -> ft_face = "ml_cairo_ft_font_lock_face"
external font_unlock_face : Cairo.font -> unit = "ml_cairo_ft_font_unlock_face"
external font_get_pattern : Cairo.font -> fc_pattern = "ml_cairo_ft_font_get_pattern"
|