Module Cairo

module Cairo: sig .. end

Error reporting

exception Error of status

val init : unit

val version_encode : int -> int -> int -> int

val run_time_version : unit -> int

val run_time_version_string : unit -> string

val compile_time_version : int

val compile_time_version_string : string

Types

type t 

type -'a surface 

type -'a pattern 

type -'a font_face 

Core API

val create : [> `Any ] surface -> t

val save : t -> unit

val restore : t -> unit

val status : t -> status

val surface_status : [> `Any ] surface -> status

val pattern_status : [> `Any ] pattern -> status

val font_face_status : [> `Any ] font_face -> status

val string_of_status : status -> string

Renderer state

val set_operator : t -> operator -> unit

val set_source_rgb : t -> red:float -> green:float -> blue:float -> unit

val set_source_rgba : t -> red:float -> green:float -> blue:float -> alpha:float -> unit

val set_source : t -> [> `Any ] pattern -> unit

val set_source_surface : t -> [> `Any ] surface -> float -> float -> unit

val set_tolerance : t -> float -> unit

val set_antialias : t -> antialias -> unit

val set_fill_rule : t -> fill_rule -> unit

val set_line_width : t -> float -> unit

val set_line_cap : t -> line_cap -> unit

val set_line_join : t -> line_join -> unit

val set_dash : t -> float array -> float -> unit

val set_miter_limit : t -> float -> unit

Transformations

val translate : t -> tx:float -> ty:float -> unit

val scale : t -> sx:float -> sy:float -> unit

val rotate : t -> angle:float -> unit

val transform : t -> matrix -> unit

val set_matrix : t -> matrix -> unit

val identity_matrix : t -> unit

val user_to_device : t -> point -> point

val user_to_device_distance : t -> point -> point

val device_to_user : t -> point -> point

val device_to_user_distance : t -> point -> point

Paths

val new_path : t -> unit

val move_to : t -> x:float -> y:float -> unit

val move_to_point : t -> point -> unit

val line_to : t -> x:float -> y:float -> unit

val line_to_point : t -> point -> unit

val curve_to : t ->
       x1:float -> y1:float -> x2:float -> y2:float -> x3:float -> y3:float -> unit

val curve_to_point : t -> point -> point -> point -> unit

val arc : t ->
       xc:float -> yc:float -> radius:float -> angle1:float -> angle2:float -> unit

val arc_negative : t ->
       xc:float -> yc:float -> radius:float -> angle1:float -> angle2:float -> unit

val rel_move_to : t -> dx:float -> dy:float -> unit

val rel_line_to : t -> dx:float -> dy:float -> unit

val rel_curve_to : t ->
       dx1:float ->
       dy1:float -> dx2:float -> dy2:float -> dx3:float -> dy3:float -> unit

val rectangle : t -> x:float -> y:float -> width:float -> height:float -> unit

val close_path : t -> unit

val paint : t -> unit

val paint_with_alpha : t -> float -> unit

val mask : t -> [> `Any ] pattern -> unit

val mask_surface : t ->
       [> `Any ] surface -> surface_x:float -> surface_y:float -> unit

val stroke : t -> unit

val stroke_preserve : t -> unit

val fill : t -> unit

val fill_preserve : t -> unit

val copy_page : t -> unit

val show_page : t -> unit

val in_stroke : t -> point -> bool

val in_fill : t -> point -> bool

val stroke_extents : t -> float * float * float * float

val fill_extents : t -> float * float * float * float

val clip : t -> unit

val clip_preserve : t -> unit

val reset_clip : t -> unit

Text API

Font options

module Font_Options: sig .. end

val select_font_face : t -> string -> font_slant -> font_weight -> unit

val set_font_size : t -> float -> unit

val set_font_matrix : t -> matrix -> unit

val get_font_matrix : t -> matrix

val set_font_options : t -> Font_Options.t -> unit

val merge_font_options : t -> Font_Options.t -> unit

val get_font_options : t -> Font_Options.t

val show_text : t -> string -> unit

val show_glyphs : t -> glyph array -> unit

val get_font_face : t -> [ `Any ] font_face

val font_extents : t -> font_extents

val set_font_face : t -> [> `Any ] font_face -> unit

val text_extents : t -> string -> text_extents

val glyph_extents : t -> glyph array -> text_extents

val text_path : t -> string -> unit

val glyph_path : t -> glyph array -> unit

Scaled Fonts API

module Scaled_Font: sig .. end

Renderer state querying

val get_operator : t -> operator

val get_source : t -> [ `Any ] pattern

val get_tolerance : t -> float

val get_antialias : t -> antialias

val get_current_point : t -> point

val get_fill_rule : t -> fill_rule

val get_line_width : t -> float

val get_line_cap : t -> line_cap

val get_line_join : t -> line_join

val get_miter_limit : t -> float

val get_matrix : t -> matrix

val get_target : t -> [ `Any ] surface

type flat_path = [ `CLOSE | `LINE_TO of point | `MOVE_TO of point ] 

type path = [ `CLOSE
       | `CURVE_TO of point * point * point
       | `LINE_TO of point
       | `MOVE_TO of point ] 

val fold_path : t -> ('a -> [> path ] -> 'a) -> 'a -> 'a

val fold_path_flat : t -> ('a -> [> flat_path ] -> 'a) -> 'a -> 'a

val append_path : t -> [< path ] -> unit

Surface API

val surface_create_similar : [> `Any ] surface ->
       content -> width:int -> height:int -> [ `Any ] surface

val surface_finish : [> `Any ] surface -> unit

val surface_get_font_options : [> `Any ] surface -> Font_Options.t

val surface_flush : [> `Any ] surface -> unit

val mark_dirty : [> `Any ] surface -> unit

val mark_dirty_rectangle : [> `Any ] surface -> int -> int -> int -> int -> unit

val surface_set_device_offset : [> `Any ] surface -> float -> float -> unit

Image surface

type image_surface = [ `Any | `Image ] surface 

val image_surface_create : format -> width:int -> height:int -> image_surface

val image_surface_get_width : [> `Image ] surface -> int

val image_surface_get_height : [> `Image ] surface -> int

Patterns

type solid_pattern = [ `Any | `Solid ] pattern 

type surface_pattern = [ `Any | `Surface ] pattern 

type gradient_pattern = [ `Any | `Gradient ] pattern 

module Pattern: sig .. end

Matrix API

module Matrix: sig .. end