blob: b7e0c664665fed49723a04c4d509286cd1386f9a (
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"). *)
(**************************************************************************)
type surface = [`Any|`PDF] Cairo.surface
external surface_create_for_stream_unsafe :
(string -> int -> unit) ->
width_in_points:float ->
height_in_points:float -> surface = "ml_cairo_pdf_surface_create_for_stream_unsafe"
external unsafe_output : out_channel -> string -> int -> int -> unit = "caml_ml_output"
let unsafe_output_string oc s n =
unsafe_output oc s 0 n
let surface_create_for_channel oc ~width_in_points ~height_in_points =
surface_create_for_stream_unsafe
(unsafe_output_string oc) ~width_in_points ~height_in_points
external surface_create_for_stream :
(string -> unit) ->
width_in_points:float ->
height_in_points:float -> surface = "ml_cairo_pdf_surface_create_for_stream"
external set_size :
[> `PDF] Cairo.surface -> width_in_points:float -> height_in_points:float -> unit = "ml_cairo_pdf_surface_set_size"
|