cairo-auto.f90

! Automatically generated by cfwrapper.py on Thu Aug  2 19:03:50 2012
! Please do not modify.
! This file is part of the gtk-fortran GTK+ Fortran Interface library.
! GNU General Public License version 3

module cairo
implicit none
interface

!   cairo_surface_t * cairo_xlib_surface_create (Display *dpy, Drawable drawable, Visual *visual, int width, int height);
function cairo_xlib_surface_create(dpy, drawable, visual, width, height) bind(c&
&) 
  use iso_c_binding, only: c_ptr, c_long, c_int
  type(c_ptr) :: cairo_xlib_surface_create
  type(c_ptr), value :: dpy
  integer(c_long), value :: drawable
  type(c_ptr), value :: visual
  integer(c_int), value :: width
  integer(c_int), value :: height
end function

!  cairo_surface_t * cairo_xlib_surface_create_for_bitmap (Display *dpy, Pixmap bitmap, Screen *screen, int width, int height);
function cairo_xlib_surface_create_for_bitmap(dpy, bitmap, screen, width, heigh&
&t) bind(c) 
  use iso_c_binding, only: c_ptr, c_long, c_int
  type(c_ptr) :: cairo_xlib_surface_create_for_bitmap
  type(c_ptr), value :: dpy
  integer(c_long), value :: bitmap
  type(c_ptr), value :: screen
  integer(c_int), value :: width
  integer(c_int), value :: height
end function

!  void cairo_xlib_surface_set_size (cairo_surface_t *surface, int width, int height);
subroutine cairo_xlib_surface_set_size(surface, width, height) bind(c) 
  use iso_c_binding, only: c_ptr, c_int
  type(c_ptr), value :: surface
  integer(c_int), value :: width
  integer(c_int), value :: height
end subroutine

!  void cairo_xlib_surface_set_drawable (cairo_surface_t *surface, Drawable drawable, int width, int height);
subroutine cairo_xlib_surface_set_drawable(surface, drawable, width, height) bi&
&nd(c) 
  use iso_c_binding, only: c_ptr, c_long, c_int
  type(c_ptr), value :: surface
  integer(c_long), value :: drawable
  integer(c_int), value :: width
  integer(c_int), value :: height
end subroutine

!  Display * cairo_xlib_surface_get_display (cairo_surface_t *surface);
function cairo_xlib_surface_get_display(surface) bind(c) 
  use iso_c_binding, only: c_ptr
  type(c_ptr) :: cairo_xlib_surface_get_display
  type(c_ptr), value :: surface
end function

!  Drawable cairo_xlib_surface_get_drawable (cairo_surface_t *surface);
function cairo_xlib_surface_get_drawable(surface) bind(c) 
  use iso_c_binding, only: c_long, c_ptr
  integer(c_long) :: cairo_xlib_surface_get_drawable
  type(c_ptr), value :: surface
end function

!  Screen * cairo_xlib_surface_get_screen (cairo_surface_t *surface);
function cairo_xlib_surface_get_screen(surface) bind(c) 
  use iso_c_binding, only: c_ptr
  type(c_ptr) :: cairo_xlib_surface_get_screen
  type(c_ptr), value :: surface
end function

!  Visual * cairo_xlib_surface_get_visual (cairo_surface_t *surface);
function cairo_xlib_surface_get_visual(surface) bind(c) 
  use iso_c_binding, only: c_ptr
  type(c_ptr) :: cairo_xlib_surface_get_visual
  type(c_ptr), value :: surface
end function

!  int cairo_xlib_surface_get_depth (cairo_surface_t *surface);
function cairo_xlib_surface_get_depth(surface) bind(c) 
  use iso_c_binding, only: c_int, c_ptr
  integer(c_int) :: cairo_xlib_surface_get_depth
  type(c_ptr), value :: surface
end function

!  int cairo_xlib_surface_get_width (cairo_surface_t *surface);
function cairo_xlib_surface_get_width(surface) bind(c) 
  use iso_c_binding, only: c_int, c_ptr
  integer(c_int) :: cairo_xlib_surface_get_width
  type(c_ptr), value :: surface
end function

!  int cairo_xlib_surface_get_height (cairo_surface_t *surface);
function cairo_xlib_surface_get_height(surface) bind(c) 
  use iso_c_binding, only: c_int, c_ptr
  integer(c_int) :: cairo_xlib_surface_get_height
  type(c_ptr), value :: surface
end function

!   cairo_surface_t * cairo_xcb_surface_create (xcb_connection_t *connection, xcb_drawable_t drawable, xcb_visualtype_t *visual, int width, int height);
function cairo_xcb_surface_create(connection, drawable, visual, width, height) &
&bind(c) 
  use iso_c_binding, only: c_ptr, c_int32_t, c_int
  type(c_ptr) :: cairo_xcb_surface_create
  type(c_ptr), value :: connection
  integer(c_int32_t), value :: drawable
  type(c_ptr), value :: visual
  integer(c_int), value :: width
  integer(c_int), value :: height
end function

!  cairo_surface_t * cairo_xcb_surface_create_for_bitmap (xcb_connection_t *connection, xcb_screen_t *screen, xcb_pixmap_t bitmap, int width, int height);
function cairo_xcb_surface_create_for_bitmap(connection, screen, bitmap, width,&
& height) bind(c) 
  use iso_c_binding, only: c_ptr, c_int32_t, c_int
  type(c_ptr) :: cairo_xcb_surface_create_for_bitmap
  type(c_ptr), value :: connection
  type(c_ptr), value :: screen
  integer(c_int32_t), value :: bitmap
  integer(c_int), value :: width
  integer(c_int), value :: height
end function

!  cairo_surface_t * cairo_xcb_surface_create_with_xrender_format (xcb_connection_t *connection, xcb_screen_t *screen, xcb_drawable_t drawable, xcb_render_pictforminfo_t *format, int width, int height);
function cairo_xcb_surface_create_with_xrender_format(connection, screen, drawa&
&ble, format, width, height) bind(c) 
  use iso_c_binding, only: c_ptr, c_int32_t, c_int
  type(c_ptr) :: cairo_xcb_surface_create_with_xrender_format
  type(c_ptr), value :: connection
  type(c_ptr), value :: screen
  integer(c_int32_t), value :: drawable
  type(c_ptr), value :: format
  integer(c_int), value :: width
  integer(c_int), value :: height
end function

!  void cairo_xcb_surface_set_size (cairo_surface_t *surface, int width, int height);
subroutine cairo_xcb_surface_set_size(surface, width, height) bind(c) 
  use iso_c_binding, only: c_ptr, c_int
  type(c_ptr), value :: surface
  integer(c_int), value :: width
  integer(c_int), value :: height
end subroutine

!  void cairo_xcb_device_debug_cap_xshm_version (cairo_device_t *device, int major_version, int minor_version);
subroutine cairo_xcb_device_debug_cap_xshm_version(device, major_version, minor&
&_version) bind(c) 
  use iso_c_binding, only: c_ptr, c_int
  type(c_ptr), value :: device
  integer(c_int), value :: major_version
  integer(c_int), value :: minor_version
end subroutine

!  void cairo_xcb_device_debug_cap_xrender_version (cairo_device_t *device, int major_version, int minor_version);
subroutine cairo_xcb_device_debug_cap_xrender_version(device, major_version, mi&
&nor_version) bind(c) 
  use iso_c_binding, only: c_ptr, c_int
  type(c_ptr), value :: device
  integer(c_int), value :: major_version
  integer(c_int), value :: minor_version
end subroutine

!   GType cairo_gobject_context_get_type (void);
function cairo_gobject_context_get_type() bind(c) 
  use iso_c_binding, only: c_size_t
  integer(c_size_t) :: cairo_gobject_context_get_type
end function

!  GType cairo_gobject_device_get_type (void);
function cairo_gobject_device_get_type() bind(c) 
  use iso_c_binding, only: c_size_t
  integer(c_size_t) :: cairo_gobject_device_get_type
end function

!  GType cairo_gobject_pattern_get_type (void);
function cairo_gobject_pattern_get_type() bind(c) 
  use iso_c_binding, only: c_size_t
  integer(c_size_t) :: cairo_gobject_pattern_get_type
end function

!  GType cairo_gobject_surface_get_type (void);
function cairo_gobject_surface_get_type() bind(c) 
  use iso_c_binding, only: c_size_t
  integer(c_size_t) :: cairo_gobject_surface_get_type
end function

!  GType cairo_gobject_rectangle_get_type (void);
function cairo_gobject_rectangle_get_type() bind(c) 
  use iso_c_binding, only: c_size_t
  integer(c_size_t) :: cairo_gobject_rectangle_get_type
end function

!  GType cairo_gobject_scaled_font_get_type (void);
function cairo_gobject_scaled_font_get_type() bind(c) 
  use iso_c_binding, only: c_size_t
  integer(c_size_t) :: cairo_gobject_scaled_font_get_type
end function

!  GType cairo_gobject_font_face_get_type (void);
function cairo_gobject_font_face_get_type() bind(c) 
  use iso_c_binding, only: c_size_t
  integer(c_size_t) :: cairo_gobject_font_face_get_type
end function

!  GType cairo_gobject_font_options_get_type (void);
function cairo_gobject_font_options_get_type() bind(c) 
  use iso_c_binding, only: c_size_t
  integer(c_size_t) :: cairo_gobject_font_options_get_type
end function

!  GType cairo_gobject_rectangle_int_get_type (void);
function cairo_gobject_rectangle_int_get_type() bind(c) 
  use iso_c_binding, only: c_size_t
  integer(c_size_t) :: cairo_gobject_rectangle_int_get_type
end function

!  GType cairo_gobject_region_get_type (void);
function cairo_gobject_region_get_type() bind(c) 
  use iso_c_binding, only: c_size_t
  integer(c_size_t) :: cairo_gobject_region_get_type
end function

!  GType cairo_gobject_status_get_type (void);
function cairo_gobject_status_get_type() bind(c) 
  use iso_c_binding, only: c_size_t
  integer(c_size_t) :: cairo_gobject_status_get_type
end function

!  GType cairo_gobject_content_get_type (void);
function cairo_gobject_content_get_type() bind(c) 
  use iso_c_binding, only: c_size_t
  integer(c_size_t) :: cairo_gobject_content_get_type
end function

!  GType cairo_gobject_operator_get_type (void);
function cairo_gobject_operator_get_type() bind(c) 
  use iso_c_binding, only: c_size_t
  integer(c_size_t) :: cairo_gobject_operator_get_type
end function

!  GType cairo_gobject_antialias_get_type (void);
function cairo_gobject_antialias_get_type() bind(c) 
  use iso_c_binding, only: c_size_t
  integer(c_size_t) :: cairo_gobject_antialias_get_type
end function

!  GType cairo_gobject_fill_rule_get_type (void);
function cairo_gobject_fill_rule_get_type() bind(c) 
  use iso_c_binding, only: c_size_t
  integer(c_size_t) :: cairo_gobject_fill_rule_get_type
end function

!  GType cairo_gobject_line_cap_get_type (void);
function cairo_gobject_line_cap_get_type() bind(c) 
  use iso_c_binding, only: c_size_t
  integer(c_size_t) :: cairo_gobject_line_cap_get_type
end function

!  GType cairo_gobject_line_join_get_type (void);
function cairo_gobject_line_join_get_type() bind(c) 
  use iso_c_binding, only: c_size_t
  integer(c_size_t) :: cairo_gobject_line_join_get_type
end function

!  GType cairo_gobject_text_cluster_flags_get_type (void);
function cairo_gobject_text_cluster_flags_get_type() bind(c) 
  use iso_c_binding, only: c_size_t
  integer(c_size_t) :: cairo_gobject_text_cluster_flags_get_type
end function

!  GType cairo_gobject_font_slant_get_type (void);
function cairo_gobject_font_slant_get_type() bind(c) 
  use iso_c_binding, only: c_size_t
  integer(c_size_t) :: cairo_gobject_font_slant_get_type
end function

!  GType cairo_gobject_font_weight_get_type (void);
function cairo_gobject_font_weight_get_type() bind(c) 
  use iso_c_binding, only: c_size_t
  integer(c_size_t) :: cairo_gobject_font_weight_get_type
end function

!  GType cairo_gobject_subpixel_order_get_type (void);
function cairo_gobject_subpixel_order_get_type() bind(c) 
  use iso_c_binding, only: c_size_t
  integer(c_size_t) :: cairo_gobject_subpixel_order_get_type
end function

!  GType cairo_gobject_hint_style_get_type (void);
function cairo_gobject_hint_style_get_type() bind(c) 
  use iso_c_binding, only: c_size_t
  integer(c_size_t) :: cairo_gobject_hint_style_get_type
end function

!  GType cairo_gobject_hint_metrics_get_type (void);
function cairo_gobject_hint_metrics_get_type() bind(c) 
  use iso_c_binding, only: c_size_t
  integer(c_size_t) :: cairo_gobject_hint_metrics_get_type
end function

!  GType cairo_gobject_font_type_get_type (void);
function cairo_gobject_font_type_get_type() bind(c) 
  use iso_c_binding, only: c_size_t
  integer(c_size_t) :: cairo_gobject_font_type_get_type
end function

!  GType cairo_gobject_path_data_type_get_type (void);
function cairo_gobject_path_data_type_get_type() bind(c) 
  use iso_c_binding, only: c_size_t
  integer(c_size_t) :: cairo_gobject_path_data_type_get_type
end function

!  GType cairo_gobject_device_type_get_type (void);
function cairo_gobject_device_type_get_type() bind(c) 
  use iso_c_binding, only: c_size_t
  integer(c_size_t) :: cairo_gobject_device_type_get_type
end function

!  GType cairo_gobject_surface_type_get_type (void);
function cairo_gobject_surface_type_get_type() bind(c) 
  use iso_c_binding, only: c_size_t
  integer(c_size_t) :: cairo_gobject_surface_type_get_type
end function

!  GType cairo_gobject_format_get_type (void);
function cairo_gobject_format_get_type() bind(c) 
  use iso_c_binding, only: c_size_t
  integer(c_size_t) :: cairo_gobject_format_get_type
end function

!  GType cairo_gobject_pattern_type_get_type (void);
function cairo_gobject_pattern_type_get_type() bind(c) 
  use iso_c_binding, only: c_size_t
  integer(c_size_t) :: cairo_gobject_pattern_type_get_type
end function

!  GType cairo_gobject_extend_get_type (void);
function cairo_gobject_extend_get_type() bind(c) 
  use iso_c_binding, only: c_size_t
  integer(c_size_t) :: cairo_gobject_extend_get_type
end function

!  GType cairo_gobject_filter_get_type (void);
function cairo_gobject_filter_get_type() bind(c) 
  use iso_c_binding, only: c_size_t
  integer(c_size_t) :: cairo_gobject_filter_get_type
end function

!  GType cairo_gobject_region_overlap_get_type (void);
function cairo_gobject_region_overlap_get_type() bind(c) 
  use iso_c_binding, only: c_size_t
  integer(c_size_t) :: cairo_gobject_region_overlap_get_type
end function

!   cairo_surface_t * cairo_svg_surface_create (const char *filename, double width_in_points, double height_in_points);
function cairo_svg_surface_create(filename, width_in_points, height_in_points) &
&bind(c) 
  use iso_c_binding, only: c_ptr, c_char, c_double
  type(c_ptr) :: cairo_svg_surface_create
  character(kind=c_char), dimension(*) :: filename
  real(c_double), value :: width_in_points
  real(c_double), value :: height_in_points
end function

!  cairo_surface_t * cairo_svg_surface_create_for_stream (cairo_write_func_t write_func, void *closure, double width_in_points, double height_in_points);
function cairo_svg_surface_create_for_stream(write_func, closure, width_in_poin&
&ts, height_in_points) bind(c) 
  use iso_c_binding, only: c_ptr, c_funptr, c_double
  type(c_ptr) :: cairo_svg_surface_create_for_stream
  type(c_funptr), value :: write_func
  type(c_ptr), value :: closure
  real(c_double), value :: width_in_points
  real(c_double), value :: height_in_points
end function

!  void cairo_svg_surface_restrict_to_version (cairo_surface_t *surface, cairo_svg_version_t version);
subroutine cairo_svg_surface_restrict_to_version(surface, version) bind(c) 
  use iso_c_binding, only: c_ptr, c_int
  type(c_ptr), value :: surface
  integer(c_int), value :: version
end subroutine

!  void cairo_svg_get_versions (cairo_svg_version_t const **versions, int *num_versions);
subroutine cairo_svg_get_versions(versions, num_versions) bind(c) 
  use iso_c_binding, only: c_int, c_ptr
  integer(c_int), value :: versions
  type(c_ptr), value :: num_versions
end subroutine

!  const char * cairo_svg_version_to_string (cairo_svg_version_t version);
function cairo_svg_version_to_string(version) bind(c) 
  use iso_c_binding, only: c_ptr, c_int
  type(c_ptr) :: cairo_svg_version_to_string
  integer(c_int), value :: version
end function

!   cairo_surface_t * cairo_ps_surface_create (const char *filename, double width_in_points, double height_in_points);
function cairo_ps_surface_create(filename, width_in_points, height_in_points) b&
&ind(c) 
  use iso_c_binding, only: c_ptr, c_char, c_double
  type(c_ptr) :: cairo_ps_surface_create
  character(kind=c_char), dimension(*) :: filename
  real(c_double), value :: width_in_points
  real(c_double), value :: height_in_points
end function

!  cairo_surface_t * cairo_ps_surface_create_for_stream (cairo_write_func_t write_func, void *closure, double width_in_points, double height_in_points);
function cairo_ps_surface_create_for_stream(write_func, closure, width_in_point&
&s, height_in_points) bind(c) 
  use iso_c_binding, only: c_ptr, c_funptr, c_double
  type(c_ptr) :: cairo_ps_surface_create_for_stream
  type(c_funptr), value :: write_func
  type(c_ptr), value :: closure
  real(c_double), value :: width_in_points
  real(c_double), value :: height_in_points
end function

!  void cairo_ps_surface_restrict_to_level (cairo_surface_t *surface, cairo_ps_level_t level);
subroutine cairo_ps_surface_restrict_to_level(surface, level) bind(c) 
  use iso_c_binding, only: c_ptr, c_int
  type(c_ptr), value :: surface
  integer(c_int), value :: level
end subroutine

!  void cairo_ps_get_levels (cairo_ps_level_t const **levels, int *num_levels);
subroutine cairo_ps_get_levels(levels, num_levels) bind(c) 
  use iso_c_binding, only: c_int, c_ptr
  integer(c_int), value :: levels
  type(c_ptr), value :: num_levels
end subroutine

!  const char * cairo_ps_level_to_string (cairo_ps_level_t level);
function cairo_ps_level_to_string(level) bind(c) 
  use iso_c_binding, only: c_ptr, c_int
  type(c_ptr) :: cairo_ps_level_to_string
  integer(c_int), value :: level
end function

!  void cairo_ps_surface_set_eps (cairo_surface_t *surface, cairo_bool_t eps);
subroutine cairo_ps_surface_set_eps(surface, eps) bind(c) 
  use iso_c_binding, only: c_ptr, c_int
  type(c_ptr), value :: surface
  integer(c_int), value :: eps
end subroutine

!  cairo_bool_t cairo_ps_surface_get_eps (cairo_surface_t *surface);
function cairo_ps_surface_get_eps(surface) bind(c) 
  use iso_c_binding, only: c_int, c_ptr
  integer(c_int) :: cairo_ps_surface_get_eps
  type(c_ptr), value :: surface
end function

!  void cairo_ps_surface_set_size (cairo_surface_t *surface, double width_in_points, double height_in_points);
subroutine cairo_ps_surface_set_size(surface, width_in_points, height_in_points&
&) bind(c) 
  use iso_c_binding, only: c_ptr, c_double
  type(c_ptr), value :: surface
  real(c_double), value :: width_in_points
  real(c_double), value :: height_in_points
end subroutine

!  void cairo_ps_surface_dsc_comment (cairo_surface_t *surface, const char *comment);
subroutine cairo_ps_surface_dsc_comment(surface, comment) bind(c) 
  use iso_c_binding, only: c_ptr, c_char
  type(c_ptr), value :: surface
  character(kind=c_char), dimension(*) :: comment
end subroutine

!  void cairo_ps_surface_dsc_begin_setup (cairo_surface_t *surface);
subroutine cairo_ps_surface_dsc_begin_setup(surface) bind(c) 
  use iso_c_binding, only: c_ptr
  type(c_ptr), value :: surface
end subroutine

!  void cairo_ps_surface_dsc_begin_page_setup (cairo_surface_t *surface);
subroutine cairo_ps_surface_dsc_begin_page_setup(surface) bind(c) 
  use iso_c_binding, only: c_ptr
  type(c_ptr), value :: surface
end subroutine

!   cairo_surface_t * cairo_pdf_surface_create (const char *filename, double width_in_points, double height_in_points);
function cairo_pdf_surface_create(filename, width_in_points, height_in_points) &
&bind(c) 
  use iso_c_binding, only: c_ptr, c_char, c_double
  type(c_ptr) :: cairo_pdf_surface_create
  character(kind=c_char), dimension(*) :: filename
  real(c_double), value :: width_in_points
  real(c_double), value :: height_in_points
end function

!  cairo_surface_t * cairo_pdf_surface_create_for_stream (cairo_write_func_t write_func, void *closure, double width_in_points, double height_in_points);
function cairo_pdf_surface_create_for_stream(write_func, closure, width_in_poin&
&ts, height_in_points) bind(c) 
  use iso_c_binding, only: c_ptr, c_funptr, c_double
  type(c_ptr) :: cairo_pdf_surface_create_for_stream
  type(c_funptr), value :: write_func
  type(c_ptr), value :: closure
  real(c_double), value :: width_in_points
  real(c_double), value :: height_in_points
end function

!  void cairo_pdf_surface_restrict_to_version (cairo_surface_t *surface, cairo_pdf_version_t version);
subroutine cairo_pdf_surface_restrict_to_version(surface, version) bind(c) 
  use iso_c_binding, only: c_ptr, c_int
  type(c_ptr), value :: surface
  integer(c_int), value :: version
end subroutine

!  void cairo_pdf_get_versions (cairo_pdf_version_t const **versions, int *num_versions);
subroutine cairo_pdf_get_versions(versions, num_versions) bind(c) 
  use iso_c_binding, only: c_int, c_ptr
  integer(c_int), value :: versions
  type(c_ptr), value :: num_versions
end subroutine

!  const char * cairo_pdf_version_to_string (cairo_pdf_version_t version);
function cairo_pdf_version_to_string(version) bind(c) 
  use iso_c_binding, only: c_ptr, c_int
  type(c_ptr) :: cairo_pdf_version_to_string
  integer(c_int), value :: version
end function

!  void cairo_pdf_surface_set_size (cairo_surface_t *surface, double width_in_points, double height_in_points);
subroutine cairo_pdf_surface_set_size(surface, width_in_points, height_in_point&
&s) bind(c) 
  use iso_c_binding, only: c_ptr, c_double
  type(c_ptr), value :: surface
  real(c_double), value :: width_in_points
  real(c_double), value :: height_in_points
end subroutine

!  cairo_script_interpreter_t * cairo_script_interpreter_create (void);
function cairo_script_interpreter_create() bind(c) 
  use iso_c_binding, only: c_ptr
  type(c_ptr) :: cairo_script_interpreter_create
end function

!  void cairo_script_interpreter_install_hooks (cairo_script_interpreter_t *ctx, const cairo_script_interpreter_hooks_t *hooks);
subroutine cairo_script_interpreter_install_hooks(ctx, hooks) bind(c) 
  use iso_c_binding, only: c_ptr
  type(c_ptr), value :: ctx
  type(c_ptr), value :: hooks
end subroutine

!  cairo_status_t cairo_script_interpreter_run (cairo_script_interpreter_t *ctx, const char *filename);
function cairo_script_interpreter_run(ctx, filename) bind(c) 
  use iso_c_binding, only: c_int, c_ptr, c_char
  integer(c_int) :: cairo_script_interpreter_run
  type(c_ptr), value :: ctx
  character(kind=c_char), dimension(*) :: filename
end function

!  cairo_status_t cairo_script_interpreter_feed_stream (cairo_script_interpreter_t *ctx, FILE *stream);
function cairo_script_interpreter_feed_stream(ctx, stream) bind(c) 
  use iso_c_binding, only: c_int, c_ptr
  integer(c_int) :: cairo_script_interpreter_feed_stream
  type(c_ptr), value :: ctx
  type(c_ptr), value :: stream
end function

!  cairo_status_t cairo_script_interpreter_feed_string (cairo_script_interpreter_t *ctx, const char *line, int len);
function cairo_script_interpreter_feed_string(ctx, line, len) bind(c) 
  use iso_c_binding, only: c_int, c_ptr, c_char
  integer(c_int) :: cairo_script_interpreter_feed_string
  type(c_ptr), value :: ctx
  character(kind=c_char), dimension(*) :: line
  integer(c_int), value :: len
end function

!  unsigned int cairo_script_interpreter_get_line_number (cairo_script_interpreter_t *ctx);
function cairo_script_interpreter_get_line_number(ctx) bind(c) 
  use iso_c_binding, only: c_int, c_ptr
  integer(c_int) :: cairo_script_interpreter_get_line_number
  type(c_ptr), value :: ctx
end function

!  cairo_script_interpreter_t * cairo_script_interpreter_reference (cairo_script_interpreter_t *ctx);
function cairo_script_interpreter_reference(ctx) bind(c) 
  use iso_c_binding, only: c_ptr
  type(c_ptr) :: cairo_script_interpreter_reference
  type(c_ptr), value :: ctx
end function

!  cairo_status_t cairo_script_interpreter_finish (cairo_script_interpreter_t *ctx);
function cairo_script_interpreter_finish(ctx) bind(c) 
  use iso_c_binding, only: c_int, c_ptr
  integer(c_int) :: cairo_script_interpreter_finish
  type(c_ptr), value :: ctx
end function

!  cairo_status_t cairo_script_interpreter_destroy (cairo_script_interpreter_t *ctx);
function cairo_script_interpreter_destroy(ctx) bind(c) 
  use iso_c_binding, only: c_int, c_ptr
  integer(c_int) :: cairo_script_interpreter_destroy
  type(c_ptr), value :: ctx
end function

!  cairo_status_t cairo_script_interpreter_translate_stream (FILE *stream, cairo_write_func_t write_func, void *closure);
function cairo_script_interpreter_translate_stream(stream, write_func, closure)&
& bind(c) 
  use iso_c_binding, only: c_int, c_ptr, c_funptr
  integer(c_int) :: cairo_script_interpreter_translate_stream
  type(c_ptr), value :: stream
  type(c_funptr), value :: write_func
  type(c_ptr), value :: closure
end function

!   cairo_surface_t * cairo_xlib_surface_create_with_xrender_format (Display *dpy, Drawable drawable, Screen *screen, XRenderPictFormat *format, int width, int height);
function cairo_xlib_surface_create_with_xrender_format(dpy, drawable, screen, f&
&ormat, width, height) bind(c) 
  use iso_c_binding, only: c_ptr, c_long, c_int
  type(c_ptr) :: cairo_xlib_surface_create_with_xrender_format
  type(c_ptr), value :: dpy
  integer(c_long), value :: drawable
  type(c_ptr), value :: screen
  type(c_ptr), value :: format
  integer(c_int), value :: width
  integer(c_int), value :: height
end function

!  XRenderPictFormat * cairo_xlib_surface_get_xrender_format (cairo_surface_t *surface);
function cairo_xlib_surface_get_xrender_format(surface) bind(c) 
  use iso_c_binding, only: c_ptr
  type(c_ptr) :: cairo_xlib_surface_get_xrender_format
  type(c_ptr), value :: surface
end function

!   int cairo_version (void);
function cairo_version() bind(c) 
  use iso_c_binding, only: c_int
  integer(c_int) :: cairo_version
end function

!  const char* cairo_version_string (void);
function cairo_version_string() bind(c) 
  use iso_c_binding, only: c_ptr
  type(c_ptr) :: cairo_version_string
end function

!  cairo_t * cairo_create (cairo_surface_t *target);
function cairo_create(target) bind(c) 
  use iso_c_binding, only: c_ptr
  type(c_ptr) :: cairo_create
  type(c_ptr), value :: target
end function

!  cairo_t * cairo_reference (cairo_t *cr);
function cairo_reference(cr) bind(c) 
  use iso_c_binding, only: c_ptr
  type(c_ptr) :: cairo_reference
  type(c_ptr), value :: cr
end function

!  void cairo_destroy (cairo_t *cr);
subroutine cairo_destroy(cr) bind(c) 
  use iso_c_binding, only: c_ptr
  type(c_ptr), value :: cr
end subroutine

!  unsigned int cairo_get_reference_count (cairo_t *cr);
function cairo_get_reference_count(cr) bind(c) 
  use iso_c_binding, only: c_int, c_ptr
  integer(c_int) :: cairo_get_reference_count
  type(c_ptr), value :: cr
end function

!  void * cairo_get_user_data (cairo_t *cr, const cairo_user_data_key_t *key);
function cairo_get_user_data(cr, key) bind(c) 
  use iso_c_binding, only: c_ptr
  type(c_ptr) :: cairo_get_user_data
  type(c_ptr), value :: cr
  type(c_ptr), value :: key
end function

!  cairo_status_t cairo_set_user_data (cairo_t *cr, const cairo_user_data_key_t *key, void *user_data, cairo_destroy_func_t destroy);
function cairo_set_user_data(cr, key, user_data, destroy) bind(c) 
  use iso_c_binding, only: c_int, c_ptr, c_funptr
  integer(c_int) :: cairo_set_user_data
  type(c_ptr), value :: cr
  type(c_ptr), value :: key
  type(c_ptr), value :: user_data
  type(c_funptr), value :: destroy
end function

!  void cairo_save (cairo_t *cr);
subroutine cairo_save(cr) bind(c) 
  use iso_c_binding, only: c_ptr
  type(c_ptr), value :: cr
end subroutine

!  void cairo_restore (cairo_t *cr);
subroutine cairo_restore(cr) bind(c) 
  use iso_c_binding, only: c_ptr
  type(c_ptr), value :: cr
end subroutine

!  void cairo_push_group (cairo_t *cr);
subroutine cairo_push_group(cr) bind(c) 
  use iso_c_binding, only: c_ptr
  type(c_ptr), value :: cr
end subroutine

!  void cairo_push_group_with_content (cairo_t *cr, cairo_content_t content);
subroutine cairo_push_group_with_content(cr, content) bind(c) 
  use iso_c_binding, only: c_ptr, c_int
  type(c_ptr), value :: cr
  integer(c_int), value :: content
end subroutine

!  cairo_pattern_t * cairo_pop_group (cairo_t *cr);
function cairo_pop_group(cr) bind(c) 
  use iso_c_binding, only: c_ptr
  type(c_ptr) :: cairo_pop_group
  type(c_ptr), value :: cr
end function

!  void cairo_pop_group_to_source (cairo_t *cr);
subroutine cairo_pop_group_to_source(cr) bind(c) 
  use iso_c_binding, only: c_ptr
  type(c_ptr), value :: cr
end subroutine

!  void cairo_set_operator (cairo_t *cr, cairo_operator_t op);
subroutine cairo_set_operator(cr, op) bind(c) 
  use iso_c_binding, only: c_ptr, c_int
  type(c_ptr), value :: cr
  integer(c_int), value :: op
end subroutine

!  void cairo_set_source (cairo_t *cr, cairo_pattern_t *source);
subroutine cairo_set_source(cr, source) bind(c) 
  use iso_c_binding, only: c_ptr
  type(c_ptr), value :: cr
  type(c_ptr), value :: source
end subroutine

!  void cairo_set_source_rgb (cairo_t *cr, double red, double green, double blue);
subroutine cairo_set_source_rgb(cr, red, green, blue) bind(c) 
  use iso_c_binding, only: c_ptr, c_double
  type(c_ptr), value :: cr
  real(c_double), value :: red
  real(c_double), value :: green
  real(c_double), value :: blue
end subroutine

!  void cairo_set_source_rgba (cairo_t *cr, double red, double green, double blue, double alpha);
subroutine cairo_set_source_rgba(cr, red, green, blue, alpha) bind(c) 
  use iso_c_binding, only: c_ptr, c_double
  type(c_ptr), value :: cr
  real(c_double), value :: red
  real(c_double), value :: green
  real(c_double), value :: blue
  real(c_double), value :: alpha
end subroutine

!  void cairo_set_source_surface (cairo_t *cr, cairo_surface_t *surface, double x, double y);
subroutine cairo_set_source_surface(cr, surface, x, y) bind(c) 
  use iso_c_binding, only: c_ptr, c_double
  type(c_ptr), value :: cr
  type(c_ptr), value :: surface
  real(c_double), value :: x
  real(c_double), value :: y
end subroutine

!  void cairo_set_tolerance (cairo_t *cr, double tolerance);
subroutine cairo_set_tolerance(cr, tolerance) bind(c) 
  use iso_c_binding, only: c_ptr, c_double
  type(c_ptr), value :: cr
  real(c_double), value :: tolerance
end subroutine

!  void cairo_set_antialias (cairo_t *cr, cairo_antialias_t antialias);
subroutine cairo_set_antialias(cr, antialias) bind(c) 
  use iso_c_binding, only: c_ptr, c_int
  type(c_ptr), value :: cr
  integer(c_int), value :: antialias
end subroutine

!  void cairo_set_fill_rule (cairo_t *cr, cairo_fill_rule_t fill_rule);
subroutine cairo_set_fill_rule(cr, fill_rule) bind(c) 
  use iso_c_binding, only: c_ptr, c_int
  type(c_ptr), value :: cr
  integer(c_int), value :: fill_rule
end subroutine

!  void cairo_set_line_width (cairo_t *cr, double width);
subroutine cairo_set_line_width(cr, width) bind(c) 
  use iso_c_binding, only: c_ptr, c_double
  type(c_ptr), value :: cr
  real(c_double), value :: width
end subroutine

!  void cairo_set_line_cap (cairo_t *cr, cairo_line_cap_t line_cap);
subroutine cairo_set_line_cap(cr, line_cap) bind(c) 
  use iso_c_binding, only: c_ptr, c_int
  type(c_ptr), value :: cr
  integer(c_int), value :: line_cap
end subroutine

!  void cairo_set_line_join (cairo_t *cr, cairo_line_join_t line_join);
subroutine cairo_set_line_join(cr, line_join) bind(c) 
  use iso_c_binding, only: c_ptr, c_int
  type(c_ptr), value :: cr
  integer(c_int), value :: line_join
end subroutine

!  void cairo_set_dash (cairo_t *cr, const double *dashes, int num_dashes, double offset);
subroutine cairo_set_dash(cr, dashes, num_dashes, offset) bind(c) 
  use iso_c_binding, only: c_ptr, c_int, c_double
  type(c_ptr), value :: cr
  type(c_ptr), value :: dashes
  integer(c_int), value :: num_dashes
  real(c_double), value :: offset
end subroutine

!  void cairo_set_miter_limit (cairo_t *cr, double limit);
subroutine cairo_set_miter_limit(cr, limit) bind(c) 
  use iso_c_binding, only: c_ptr, c_double
  type(c_ptr), value :: cr
  real(c_double), value :: limit
end subroutine

!  void cairo_translate (cairo_t *cr, double tx, double ty);
subroutine cairo_translate(cr, tx, ty) bind(c) 
  use iso_c_binding, only: c_ptr, c_double
  type(c_ptr), value :: cr
  real(c_double), value :: tx
  real(c_double), value :: ty
end subroutine

!  void cairo_scale (cairo_t *cr, double sx, double sy);
subroutine cairo_scale(cr, sx, sy) bind(c) 
  use iso_c_binding, only: c_ptr, c_double
  type(c_ptr), value :: cr
  real(c_double), value :: sx
  real(c_double), value :: sy
end subroutine

!  void cairo_rotate (cairo_t *cr, double angle);
subroutine cairo_rotate(cr, angle) bind(c) 
  use iso_c_binding, only: c_ptr, c_double
  type(c_ptr), value :: cr
  real(c_double), value :: angle
end subroutine

!  void cairo_transform (cairo_t *cr, const cairo_matrix_t *matrix);
subroutine cairo_transform(cr, matrix) bind(c) 
  use iso_c_binding, only: c_ptr
  type(c_ptr), value :: cr
  type(c_ptr), value :: matrix
end subroutine

!  void cairo_set_matrix (cairo_t *cr, const cairo_matrix_t *matrix);
subroutine cairo_set_matrix(cr, matrix) bind(c) 
  use iso_c_binding, only: c_ptr
  type(c_ptr), value :: cr
  type(c_ptr), value :: matrix
end subroutine

!  void cairo_identity_matrix (cairo_t *cr);
subroutine cairo_identity_matrix(cr) bind(c) 
  use iso_c_binding, only: c_ptr
  type(c_ptr), value :: cr
end subroutine

!  void cairo_user_to_device (cairo_t *cr, double *x, double *y);
subroutine cairo_user_to_device(cr, x, y) bind(c) 
  use iso_c_binding, only: c_ptr
  type(c_ptr), value :: cr
  type(c_ptr), value :: x
  type(c_ptr), value :: y
end subroutine

!  void cairo_user_to_device_distance (cairo_t *cr, double *dx, double *dy);
subroutine cairo_user_to_device_distance(cr, dx, dy) bind(c) 
  use iso_c_binding, only: c_ptr
  type(c_ptr), value :: cr
  type(c_ptr), value :: dx
  type(c_ptr), value :: dy
end subroutine

!  void cairo_device_to_user (cairo_t *cr, double *x, double *y);
subroutine cairo_device_to_user(cr, x, y) bind(c) 
  use iso_c_binding, only: c_ptr
  type(c_ptr), value :: cr
  type(c_ptr), value :: x
  type(c_ptr), value :: y
end subroutine

!  void cairo_device_to_user_distance (cairo_t *cr, double *dx, double *dy);
subroutine cairo_device_to_user_distance(cr, dx, dy) bind(c) 
  use iso_c_binding, only: c_ptr
  type(c_ptr), value :: cr
  type(c_ptr), value :: dx
  type(c_ptr), value :: dy
end subroutine

!  void cairo_new_path (cairo_t *cr);
subroutine cairo_new_path(cr) bind(c) 
  use iso_c_binding, only: c_ptr
  type(c_ptr), value :: cr
end subroutine

!  void cairo_move_to (cairo_t *cr, double x, double y);
subroutine cairo_move_to(cr, x, y) bind(c) 
  use iso_c_binding, only: c_ptr, c_double
  type(c_ptr), value :: cr
  real(c_double), value :: x
  real(c_double), value :: y
end subroutine

!  void cairo_new_sub_path (cairo_t *cr);
subroutine cairo_new_sub_path(cr) bind(c) 
  use iso_c_binding, only: c_ptr
  type(c_ptr), value :: cr
end subroutine

!  void cairo_line_to (cairo_t *cr, double x, double y);
subroutine cairo_line_to(cr, x, y) bind(c) 
  use iso_c_binding, only: c_ptr, c_double
  type(c_ptr), value :: cr
  real(c_double), value :: x
  real(c_double), value :: y
end subroutine

!  void cairo_curve_to (cairo_t *cr, double x1, double y1, double x2, double y2, double x3, double y3);
subroutine cairo_curve_to(cr, x1, y1, x2, y2, x3, y3) bind(c) 
  use iso_c_binding, only: c_ptr, c_double
  type(c_ptr), value :: cr
  real(c_double), value :: x1
  real(c_double), value :: y1
  real(c_double), value :: x2
  real(c_double), value :: y2
  real(c_double), value :: x3
  real(c_double), value :: y3
end subroutine

!  void cairo_arc (cairo_t *cr, double xc, double yc, double radius, double angle1, double angle2);
subroutine cairo_arc(cr, xc, yc, radius, angle1, angle2) bind(c) 
  use iso_c_binding, only: c_ptr, c_double
  type(c_ptr), value :: cr
  real(c_double), value :: xc
  real(c_double), value :: yc
  real(c_double), value :: radius
  real(c_double), value :: angle1
  real(c_double), value :: angle2
end subroutine

!  void cairo_arc_negative (cairo_t *cr, double xc, double yc, double radius, double angle1, double angle2);
subroutine cairo_arc_negative(cr, xc, yc, radius, angle1, angle2) bind(c) 
  use iso_c_binding, only: c_ptr, c_double
  type(c_ptr), value :: cr
  real(c_double), value :: xc
  real(c_double), value :: yc
  real(c_double), value :: radius
  real(c_double), value :: angle1
  real(c_double), value :: angle2
end subroutine

!  void cairo_rel_move_to (cairo_t *cr, double dx, double dy);
subroutine cairo_rel_move_to(cr, dx, dy) bind(c) 
  use iso_c_binding, only: c_ptr, c_double
  type(c_ptr), value :: cr
  real(c_double), value :: dx
  real(c_double), value :: dy
end subroutine

!  void cairo_rel_line_to (cairo_t *cr, double dx, double dy);
subroutine cairo_rel_line_to(cr, dx, dy) bind(c) 
  use iso_c_binding, only: c_ptr, c_double
  type(c_ptr), value :: cr
  real(c_double), value :: dx
  real(c_double), value :: dy
end subroutine

!  void cairo_rel_curve_to (cairo_t *cr, double dx1, double dy1, double dx2, double dy2, double dx3, double dy3);
subroutine cairo_rel_curve_to(cr, dx1, dy1, dx2, dy2, dx3, dy3) bind(c) 
  use iso_c_binding, only: c_ptr, c_double
  type(c_ptr), value :: cr
  real(c_double), value :: dx1
  real(c_double), value :: dy1
  real(c_double), value :: dx2
  real(c_double), value :: dy2
  real(c_double), value :: dx3
  real(c_double), value :: dy3
end subroutine

!  void cairo_rectangle (cairo_t *cr, double x, double y, double width, double height);
subroutine cairo_rectangle(cr, x, y, width, height) bind(c) 
  use iso_c_binding, only: c_ptr, c_double
  type(c_ptr), value :: cr
  real(c_double), value :: x
  real(c_double), value :: y
  real(c_double), value :: width
  real(c_double), value :: height
end subroutine

!  void cairo_close_path (cairo_t *cr);
subroutine cairo_close_path(cr) bind(c) 
  use iso_c_binding, only: c_ptr
  type(c_ptr), value :: cr
end subroutine

!  void cairo_path_extents (cairo_t *cr, double *x1, double *y1, double *x2, double *y2);
subroutine cairo_path_extents(cr, x1, y1, x2, y2) bind(c) 
  use iso_c_binding, only: c_ptr
  type(c_ptr), value :: cr
  type(c_ptr), value :: x1
  type(c_ptr), value :: y1
  type(c_ptr), value :: x2
  type(c_ptr), value :: y2
end subroutine

!  void cairo_paint (cairo_t *cr);
subroutine cairo_paint(cr) bind(c) 
  use iso_c_binding, only: c_ptr
  type(c_ptr), value :: cr
end subroutine

!  void cairo_paint_with_alpha (cairo_t *cr, double alpha);
subroutine cairo_paint_with_alpha(cr, alpha) bind(c) 
  use iso_c_binding, only: c_ptr, c_double
  type(c_ptr), value :: cr
  real(c_double), value :: alpha
end subroutine

!  void cairo_mask (cairo_t *cr, cairo_pattern_t *pattern);
subroutine cairo_mask(cr, pattern) bind(c) 
  use iso_c_binding, only: c_ptr
  type(c_ptr), value :: cr
  type(c_ptr), value :: pattern
end subroutine

!  void cairo_mask_surface (cairo_t *cr, cairo_surface_t *surface, double surface_x, double surface_y);
subroutine cairo_mask_surface(cr, surface, surface_x, surface_y) bind(c) 
  use iso_c_binding, only: c_ptr, c_double
  type(c_ptr), value :: cr
  type(c_ptr), value :: surface
  real(c_double), value :: surface_x
  real(c_double), value :: surface_y
end subroutine

!  void cairo_stroke (cairo_t *cr);
subroutine cairo_stroke(cr) bind(c) 
  use iso_c_binding, only: c_ptr
  type(c_ptr), value :: cr
end subroutine

!  void cairo_stroke_preserve (cairo_t *cr);
subroutine cairo_stroke_preserve(cr) bind(c) 
  use iso_c_binding, only: c_ptr
  type(c_ptr), value :: cr
end subroutine

!  void cairo_fill (cairo_t *cr);
subroutine cairo_fill(cr) bind(c) 
  use iso_c_binding, only: c_ptr
  type(c_ptr), value :: cr
end subroutine

!  void cairo_fill_preserve (cairo_t *cr);
subroutine cairo_fill_preserve(cr) bind(c) 
  use iso_c_binding, only: c_ptr
  type(c_ptr), value :: cr
end subroutine

!  void cairo_copy_page (cairo_t *cr);
subroutine cairo_copy_page(cr) bind(c) 
  use iso_c_binding, only: c_ptr
  type(c_ptr), value :: cr
end subroutine

!  void cairo_show_page (cairo_t *cr);
subroutine cairo_show_page(cr) bind(c) 
  use iso_c_binding, only: c_ptr
  type(c_ptr), value :: cr
end subroutine

!  cairo_bool_t cairo_in_stroke (cairo_t *cr, double x, double y);
function cairo_in_stroke(cr, x, y) bind(c) 
  use iso_c_binding, only: c_int, c_ptr, c_double
  integer(c_int) :: cairo_in_stroke
  type(c_ptr), value :: cr
  real(c_double), value :: x
  real(c_double), value :: y
end function

!  cairo_bool_t cairo_in_fill (cairo_t *cr, double x, double y);
function cairo_in_fill(cr, x, y) bind(c) 
  use iso_c_binding, only: c_int, c_ptr, c_double
  integer(c_int) :: cairo_in_fill
  type(c_ptr), value :: cr
  real(c_double), value :: x
  real(c_double), value :: y
end function

!  cairo_bool_t cairo_in_clip (cairo_t *cr, double x, double y);
function cairo_in_clip(cr, x, y) bind(c) 
  use iso_c_binding, only: c_int, c_ptr, c_double
  integer(c_int) :: cairo_in_clip
  type(c_ptr), value :: cr
  real(c_double), value :: x
  real(c_double), value :: y
end function

!  void cairo_stroke_extents (cairo_t *cr, double *x1, double *y1, double *x2, double *y2);
subroutine cairo_stroke_extents(cr, x1, y1, x2, y2) bind(c) 
  use iso_c_binding, only: c_ptr
  type(c_ptr), value :: cr
  type(c_ptr), value :: x1
  type(c_ptr), value :: y1
  type(c_ptr), value :: x2
  type(c_ptr), value :: y2
end subroutine

!  void cairo_fill_extents (cairo_t *cr, double *x1, double *y1, double *x2, double *y2);
subroutine cairo_fill_extents(cr, x1, y1, x2, y2) bind(c) 
  use iso_c_binding, only: c_ptr
  type(c_ptr), value :: cr
  type(c_ptr), value :: x1
  type(c_ptr), value :: y1
  type(c_ptr), value :: x2
  type(c_ptr), value :: y2
end subroutine

!  void cairo_reset_clip (cairo_t *cr);
subroutine cairo_reset_clip(cr) bind(c) 
  use iso_c_binding, only: c_ptr
  type(c_ptr), value :: cr
end subroutine

!  void cairo_clip (cairo_t *cr);
subroutine cairo_clip(cr) bind(c) 
  use iso_c_binding, only: c_ptr
  type(c_ptr), value :: cr
end subroutine

!  void cairo_clip_preserve (cairo_t *cr);
subroutine cairo_clip_preserve(cr) bind(c) 
  use iso_c_binding, only: c_ptr
  type(c_ptr), value :: cr
end subroutine

!  void cairo_clip_extents (cairo_t *cr, double *x1, double *y1, double *x2, double *y2);
subroutine cairo_clip_extents(cr, x1, y1, x2, y2) bind(c) 
  use iso_c_binding, only: c_ptr
  type(c_ptr), value :: cr
  type(c_ptr), value :: x1
  type(c_ptr), value :: y1
  type(c_ptr), value :: x2
  type(c_ptr), value :: y2
end subroutine

!  cairo_rectangle_list_t * cairo_copy_clip_rectangle_list (cairo_t *cr);
function cairo_copy_clip_rectangle_list(cr) bind(c) 
  use iso_c_binding, only: c_ptr
  type(c_ptr) :: cairo_copy_clip_rectangle_list
  type(c_ptr), value :: cr
end function

!  void cairo_rectangle_list_destroy (cairo_rectangle_list_t *rectangle_list);
subroutine cairo_rectangle_list_destroy(rectangle_list) bind(c) 
  use iso_c_binding, only: c_ptr
  type(c_ptr), value :: rectangle_list
end subroutine

!  cairo_glyph_t * cairo_glyph_allocate (int num_glyphs);
function cairo_glyph_allocate(num_glyphs) bind(c) 
  use iso_c_binding, only: c_ptr, c_int
  type(c_ptr) :: cairo_glyph_allocate
  integer(c_int), value :: num_glyphs
end function

!  void cairo_glyph_free (cairo_glyph_t *glyphs);
subroutine cairo_glyph_free(glyphs) bind(c) 
  use iso_c_binding, only: c_ptr
  type(c_ptr), value :: glyphs
end subroutine

!  cairo_text_cluster_t * cairo_text_cluster_allocate (int num_clusters);
function cairo_text_cluster_allocate(num_clusters) bind(c) 
  use iso_c_binding, only: c_ptr, c_int
  type(c_ptr) :: cairo_text_cluster_allocate
  integer(c_int), value :: num_clusters
end function

!  void cairo_text_cluster_free (cairo_text_cluster_t *clusters);
subroutine cairo_text_cluster_free(clusters) bind(c) 
  use iso_c_binding, only: c_ptr
  type(c_ptr), value :: clusters
end subroutine

!  cairo_font_options_t * cairo_font_options_create (void);
function cairo_font_options_create() bind(c) 
  use iso_c_binding, only: c_ptr
  type(c_ptr) :: cairo_font_options_create
end function

!  cairo_font_options_t * cairo_font_options_copy (const cairo_font_options_t *original);
function cairo_font_options_copy(original) bind(c) 
  use iso_c_binding, only: c_ptr
  type(c_ptr) :: cairo_font_options_copy
  type(c_ptr), value :: original
end function

!  void cairo_font_options_destroy (cairo_font_options_t *options);
subroutine cairo_font_options_destroy(options) bind(c) 
  use iso_c_binding, only: c_ptr
  type(c_ptr), value :: options
end subroutine

!  cairo_status_t cairo_font_options_status (cairo_font_options_t *options);
function cairo_font_options_status(options) bind(c) 
  use iso_c_binding, only: c_int, c_ptr
  integer(c_int) :: cairo_font_options_status
  type(c_ptr), value :: options
end function

!  void cairo_font_options_merge (cairo_font_options_t *options, const cairo_font_options_t *other);
subroutine cairo_font_options_merge(options, other) bind(c) 
  use iso_c_binding, only: c_ptr
  type(c_ptr), value :: options
  type(c_ptr), value :: other
end subroutine

! cairo_bool_t cairo_font_options_equal (const cairo_font_options_t *options, const cairo_font_options_t *other);
function cairo_font_options_equal(options, other) bind(c) 
  use iso_c_binding, only: c_int, c_ptr
  integer(c_int) :: cairo_font_options_equal
  type(c_ptr), value :: options
  type(c_ptr), value :: other
end function

!  unsigned long cairo_font_options_hash (const cairo_font_options_t *options);
function cairo_font_options_hash(options) bind(c) 
  use iso_c_binding, only: c_long, c_ptr
  integer(c_long) :: cairo_font_options_hash
  type(c_ptr), value :: options
end function

!  void cairo_font_options_set_antialias (cairo_font_options_t *options, cairo_antialias_t antialias);
subroutine cairo_font_options_set_antialias(options, antialias) bind(c) 
  use iso_c_binding, only: c_ptr, c_int
  type(c_ptr), value :: options
  integer(c_int), value :: antialias
end subroutine

! cairo_antialias_t cairo_font_options_get_antialias (const cairo_font_options_t *options);
function cairo_font_options_get_antialias(options) bind(c) 
  use iso_c_binding, only: c_int, c_ptr
  integer(c_int) :: cairo_font_options_get_antialias
  type(c_ptr), value :: options
end function

!  void cairo_font_options_set_subpixel_order (cairo_font_options_t *options, cairo_subpixel_order_t subpixel_order);
subroutine cairo_font_options_set_subpixel_order(options, subpixel_order) bind(&
&c) 
  use iso_c_binding, only: c_ptr, c_int
  type(c_ptr), value :: options
  integer(c_int), value :: subpixel_order
end subroutine

! cairo_subpixel_order_t cairo_font_options_get_subpixel_order (const cairo_font_options_t *options);
function cairo_font_options_get_subpixel_order(options) bind(c) 
  use iso_c_binding, only: c_int, c_ptr
  integer(c_int) :: cairo_font_options_get_subpixel_order
  type(c_ptr), value :: options
end function

!  void cairo_font_options_set_hint_style (cairo_font_options_t *options, cairo_hint_style_t hint_style);
subroutine cairo_font_options_set_hint_style(options, hint_style) bind(c) 
  use iso_c_binding, only: c_ptr, c_int
  type(c_ptr), value :: options
  integer(c_int), value :: hint_style
end subroutine

! cairo_hint_style_t cairo_font_options_get_hint_style (const cairo_font_options_t *options);
function cairo_font_options_get_hint_style(options) bind(c) 
  use iso_c_binding, only: c_int, c_ptr
  integer(c_int) :: cairo_font_options_get_hint_style
  type(c_ptr), value :: options
end function

!  void cairo_font_options_set_hint_metrics (cairo_font_options_t *options, cairo_hint_metrics_t hint_metrics);
subroutine cairo_font_options_set_hint_metrics(options, hint_metrics) bind(c) 
  use iso_c_binding, only: c_ptr, c_int
  type(c_ptr), value :: options
  integer(c_int), value :: hint_metrics
end subroutine

! cairo_hint_metrics_t cairo_font_options_get_hint_metrics (const cairo_font_options_t *options);
function cairo_font_options_get_hint_metrics(options) bind(c) 
  use iso_c_binding, only: c_int, c_ptr
  integer(c_int) :: cairo_font_options_get_hint_metrics
  type(c_ptr), value :: options
end function

!  void cairo_select_font_face (cairo_t *cr, const char *family, cairo_font_slant_t slant, cairo_font_weight_t weight);
subroutine cairo_select_font_face(cr, family, slant, weight) bind(c) 
  use iso_c_binding, only: c_ptr, c_char, c_int
  type(c_ptr), value :: cr
  character(kind=c_char), dimension(*) :: family
  integer(c_int), value :: slant
  integer(c_int), value :: weight
end subroutine

!  void cairo_set_font_size (cairo_t *cr, double size);
subroutine cairo_set_font_size(cr, size) bind(c) 
  use iso_c_binding, only: c_ptr, c_double
  type(c_ptr), value :: cr
  real(c_double), value :: size
end subroutine

!  void cairo_set_font_matrix (cairo_t *cr, const cairo_matrix_t *matrix);
subroutine cairo_set_font_matrix(cr, matrix) bind(c) 
  use iso_c_binding, only: c_ptr
  type(c_ptr), value :: cr
  type(c_ptr), value :: matrix
end subroutine

!  void cairo_get_font_matrix (cairo_t *cr, cairo_matrix_t *matrix);
subroutine cairo_get_font_matrix(cr, matrix) bind(c) 
  use iso_c_binding, only: c_ptr
  type(c_ptr), value :: cr
  type(c_ptr), value :: matrix
end subroutine

!  void cairo_set_font_options (cairo_t *cr, const cairo_font_options_t *options);
subroutine cairo_set_font_options(cr, options) bind(c) 
  use iso_c_binding, only: c_ptr
  type(c_ptr), value :: cr
  type(c_ptr), value :: options
end subroutine

!  void cairo_get_font_options (cairo_t *cr, cairo_font_options_t *options);
subroutine cairo_get_font_options(cr, options) bind(c) 
  use iso_c_binding, only: c_ptr
  type(c_ptr), value :: cr
  type(c_ptr), value :: options
end subroutine

!  void cairo_set_font_face (cairo_t *cr, cairo_font_face_t *font_face);
subroutine cairo_set_font_face(cr, font_face) bind(c) 
  use iso_c_binding, only: c_ptr
  type(c_ptr), value :: cr
  type(c_ptr), value :: font_face
end subroutine

!  cairo_font_face_t * cairo_get_font_face (cairo_t *cr);
function cairo_get_font_face(cr) bind(c) 
  use iso_c_binding, only: c_ptr
  type(c_ptr) :: cairo_get_font_face
  type(c_ptr), value :: cr
end function

!  void cairo_set_scaled_font (cairo_t *cr, const cairo_scaled_font_t *scaled_font);
subroutine cairo_set_scaled_font(cr, scaled_font) bind(c) 
  use iso_c_binding, only: c_ptr
  type(c_ptr), value :: cr
  type(c_ptr), value :: scaled_font
end subroutine

!  cairo_scaled_font_t * cairo_get_scaled_font (cairo_t *cr);
function cairo_get_scaled_font(cr) bind(c) 
  use iso_c_binding, only: c_ptr
  type(c_ptr) :: cairo_get_scaled_font
  type(c_ptr), value :: cr
end function

!  void cairo_show_text (cairo_t *cr, const char *utf8);
subroutine cairo_show_text(cr, utf8) bind(c) 
  use iso_c_binding, only: c_ptr, c_char
  type(c_ptr), value :: cr
  character(kind=c_char), dimension(*) :: utf8
end subroutine

!  void cairo_show_glyphs (cairo_t *cr, const cairo_glyph_t *glyphs, int num_glyphs);
subroutine cairo_show_glyphs(cr, glyphs, num_glyphs) bind(c) 
  use iso_c_binding, only: c_ptr, c_int
  type(c_ptr), value :: cr
  type(c_ptr), value :: glyphs
  integer(c_int), value :: num_glyphs
end subroutine

!  void cairo_show_text_glyphs (cairo_t *cr, const char *utf8, int utf8_len, const cairo_glyph_t *glyphs, int num_glyphs, const cairo_text_cluster_t *clusters, int num_clusters, cairo_text_cluster_flags_t cluster_flags);
subroutine cairo_show_text_glyphs(cr, utf8, utf8_len, glyphs, num_glyphs, clust&
&ers, num_clusters, cluster_flags) bind(c) 
  use iso_c_binding, only: c_ptr, c_char, c_int
  type(c_ptr), value :: cr
  character(kind=c_char), dimension(*) :: utf8
  integer(c_int), value :: utf8_len
  type(c_ptr), value :: glyphs
  integer(c_int), value :: num_glyphs
  type(c_ptr), value :: clusters
  integer(c_int), value :: num_clusters
  integer(c_int), value :: cluster_flags
end subroutine

!  void cairo_text_path (cairo_t *cr, const char *utf8);
subroutine cairo_text_path(cr, utf8) bind(c) 
  use iso_c_binding, only: c_ptr, c_char
  type(c_ptr), value :: cr
  character(kind=c_char), dimension(*) :: utf8
end subroutine

!  void cairo_glyph_path (cairo_t *cr, const cairo_glyph_t *glyphs, int num_glyphs);
subroutine cairo_glyph_path(cr, glyphs, num_glyphs) bind(c) 
  use iso_c_binding, only: c_ptr, c_int
  type(c_ptr), value :: cr
  type(c_ptr), value :: glyphs
  integer(c_int), value :: num_glyphs
end subroutine

!  void cairo_text_extents (cairo_t *cr, const char *utf8, cairo_text_extents_t *extents);
subroutine cairo_text_extents(cr, utf8, extents) bind(c) 
  use iso_c_binding, only: c_ptr, c_char
  type(c_ptr), value :: cr
  character(kind=c_char), dimension(*) :: utf8
  type(c_ptr), value :: extents
end subroutine

!  void cairo_glyph_extents (cairo_t *cr, const cairo_glyph_t *glyphs, int num_glyphs, cairo_text_extents_t *extents);
subroutine cairo_glyph_extents(cr, glyphs, num_glyphs, extents) bind(c) 
  use iso_c_binding, only: c_ptr, c_int
  type(c_ptr), value :: cr
  type(c_ptr), value :: glyphs
  integer(c_int), value :: num_glyphs
  type(c_ptr), value :: extents
end subroutine

!  void cairo_font_extents (cairo_t *cr, cairo_font_extents_t *extents);
subroutine cairo_font_extents(cr, extents) bind(c) 
  use iso_c_binding, only: c_ptr
  type(c_ptr), value :: cr
  type(c_ptr), value :: extents
end subroutine

!  cairo_font_face_t * cairo_font_face_reference (cairo_font_face_t *font_face);
function cairo_font_face_reference(font_face) bind(c) 
  use iso_c_binding, only: c_ptr
  type(c_ptr) :: cairo_font_face_reference
  type(c_ptr), value :: font_face
end function

!  void cairo_font_face_destroy (cairo_font_face_t *font_face);
subroutine cairo_font_face_destroy(font_face) bind(c) 
  use iso_c_binding, only: c_ptr
  type(c_ptr), value :: font_face
end subroutine

!  unsigned int cairo_font_face_get_reference_count (cairo_font_face_t *font_face);
function cairo_font_face_get_reference_count(font_face) bind(c) 
  use iso_c_binding, only: c_int, c_ptr
  integer(c_int) :: cairo_font_face_get_reference_count
  type(c_ptr), value :: font_face
end function

!  cairo_status_t cairo_font_face_status (cairo_font_face_t *font_face);
function cairo_font_face_status(font_face) bind(c) 
  use iso_c_binding, only: c_int, c_ptr
  integer(c_int) :: cairo_font_face_status
  type(c_ptr), value :: font_face
end function

!  cairo_font_type_t cairo_font_face_get_type (cairo_font_face_t *font_face);
function cairo_font_face_get_type(font_face) bind(c) 
  use iso_c_binding, only: c_int, c_ptr
  integer(c_int) :: cairo_font_face_get_type
  type(c_ptr), value :: font_face
end function

!  void * cairo_font_face_get_user_data (cairo_font_face_t *font_face, const cairo_user_data_key_t *key);
function cairo_font_face_get_user_data(font_face, key) bind(c) 
  use iso_c_binding, only: c_ptr
  type(c_ptr) :: cairo_font_face_get_user_data
  type(c_ptr), value :: font_face
  type(c_ptr), value :: key
end function

!  cairo_status_t cairo_font_face_set_user_data (cairo_font_face_t *font_face, const cairo_user_data_key_t *key, void *user_data, cairo_destroy_func_t destroy);
function cairo_font_face_set_user_data(font_face, key, user_data, destroy) bind&
&(c) 
  use iso_c_binding, only: c_int, c_ptr, c_funptr
  integer(c_int) :: cairo_font_face_set_user_data
  type(c_ptr), value :: font_face
  type(c_ptr), value :: key
  type(c_ptr), value :: user_data
  type(c_funptr), value :: destroy
end function

!  cairo_scaled_font_t * cairo_scaled_font_create (cairo_font_face_t *font_face, const cairo_matrix_t *font_matrix, const cairo_matrix_t *ctm, const cairo_font_options_t *options);
function cairo_scaled_font_create(font_face, font_matrix, ctm, options) bind(c) 
  use iso_c_binding, only: c_ptr
  type(c_ptr) :: cairo_scaled_font_create
  type(c_ptr), value :: font_face
  type(c_ptr), value :: font_matrix
  type(c_ptr), value :: ctm
  type(c_ptr), value :: options
end function

!  cairo_scaled_font_t * cairo_scaled_font_reference (cairo_scaled_font_t *scaled_font);
function cairo_scaled_font_reference(scaled_font) bind(c) 
  use iso_c_binding, only: c_ptr
  type(c_ptr) :: cairo_scaled_font_reference
  type(c_ptr), value :: scaled_font
end function

!  void cairo_scaled_font_destroy (cairo_scaled_font_t *scaled_font);
subroutine cairo_scaled_font_destroy(scaled_font) bind(c) 
  use iso_c_binding, only: c_ptr
  type(c_ptr), value :: scaled_font
end subroutine

!  unsigned int cairo_scaled_font_get_reference_count (cairo_scaled_font_t *scaled_font);
function cairo_scaled_font_get_reference_count(scaled_font) bind(c) 
  use iso_c_binding, only: c_int, c_ptr
  integer(c_int) :: cairo_scaled_font_get_reference_count
  type(c_ptr), value :: scaled_font
end function

!  cairo_status_t cairo_scaled_font_status (cairo_scaled_font_t *scaled_font);
function cairo_scaled_font_status(scaled_font) bind(c) 
  use iso_c_binding, only: c_int, c_ptr
  integer(c_int) :: cairo_scaled_font_status
  type(c_ptr), value :: scaled_font
end function

!  cairo_font_type_t cairo_scaled_font_get_type (cairo_scaled_font_t *scaled_font);
function cairo_scaled_font_get_type(scaled_font) bind(c) 
  use iso_c_binding, only: c_int, c_ptr
  integer(c_int) :: cairo_scaled_font_get_type
  type(c_ptr), value :: scaled_font
end function

!  void * cairo_scaled_font_get_user_data (cairo_scaled_font_t *scaled_font, const cairo_user_data_key_t *key);
function cairo_scaled_font_get_user_data(scaled_font, key) bind(c) 
  use iso_c_binding, only: c_ptr
  type(c_ptr) :: cairo_scaled_font_get_user_data
  type(c_ptr), value :: scaled_font
  type(c_ptr), value :: key
end function

!  cairo_status_t cairo_scaled_font_set_user_data (cairo_scaled_font_t *scaled_font, const cairo_user_data_key_t *key, void *user_data, cairo_destroy_func_t destroy);
function cairo_scaled_font_set_user_data(scaled_font, key, user_data, destroy) &
&bind(c) 
  use iso_c_binding, only: c_int, c_ptr, c_funptr
  integer(c_int) :: cairo_scaled_font_set_user_data
  type(c_ptr), value :: scaled_font
  type(c_ptr), value :: key
  type(c_ptr), value :: user_data
  type(c_funptr), value :: destroy
end function

!  void cairo_scaled_font_extents (cairo_scaled_font_t *scaled_font, cairo_font_extents_t *extents);
subroutine cairo_scaled_font_extents(scaled_font, extents) bind(c) 
  use iso_c_binding, only: c_ptr
  type(c_ptr), value :: scaled_font
  type(c_ptr), value :: extents
end subroutine

!  void cairo_scaled_font_text_extents (cairo_scaled_font_t *scaled_font, const char *utf8, cairo_text_extents_t *extents);
subroutine cairo_scaled_font_text_extents(scaled_font, utf8, extents) bind(c) 
  use iso_c_binding, only: c_ptr, c_char
  type(c_ptr), value :: scaled_font
  character(kind=c_char), dimension(*) :: utf8
  type(c_ptr), value :: extents
end subroutine

!  void cairo_scaled_font_glyph_extents (cairo_scaled_font_t *scaled_font, const cairo_glyph_t *glyphs, int num_glyphs, cairo_text_extents_t *extents);
subroutine cairo_scaled_font_glyph_extents(scaled_font, glyphs, num_glyphs, ext&
&ents) bind(c) 
  use iso_c_binding, only: c_ptr, c_int
  type(c_ptr), value :: scaled_font
  type(c_ptr), value :: glyphs
  integer(c_int), value :: num_glyphs
  type(c_ptr), value :: extents
end subroutine

!  cairo_status_t cairo_scaled_font_text_to_glyphs (cairo_scaled_font_t *scaled_font, double x, double y, const char *utf8, int utf8_len, cairo_glyph_t **glyphs, int *num_glyphs, cairo_text_cluster_t **clusters, int *num_clusters, cairo_text_cluster_flags_t *cluster_flags);
function cairo_scaled_font_text_to_glyphs(scaled_font, x, y, utf8, utf8_len, gl&
&yphs, num_glyphs, clusters, num_clusters, cluster_flags) bind(c) 
  use iso_c_binding, only: c_int, c_ptr, c_double, c_char
  integer(c_int) :: cairo_scaled_font_text_to_glyphs
  type(c_ptr), value :: scaled_font
  real(c_double), value :: x
  real(c_double), value :: y
  character(kind=c_char), dimension(*) :: utf8
  integer(c_int), value :: utf8_len
  type(c_ptr), value :: glyphs
  type(c_ptr), value :: num_glyphs
  type(c_ptr), value :: clusters
  type(c_ptr), value :: num_clusters
  integer(c_int), value :: cluster_flags
end function

!  cairo_font_face_t * cairo_scaled_font_get_font_face (cairo_scaled_font_t *scaled_font);
function cairo_scaled_font_get_font_face(scaled_font) bind(c) 
  use iso_c_binding, only: c_ptr
  type(c_ptr) :: cairo_scaled_font_get_font_face
  type(c_ptr), value :: scaled_font
end function

!  void cairo_scaled_font_get_font_matrix (cairo_scaled_font_t *scaled_font, cairo_matrix_t *font_matrix);
subroutine cairo_scaled_font_get_font_matrix(scaled_font, font_matrix) bind(c) 
  use iso_c_binding, only: c_ptr
  type(c_ptr), value :: scaled_font
  type(c_ptr), value :: font_matrix
end subroutine

!  void cairo_scaled_font_get_ctm (cairo_scaled_font_t *scaled_font, cairo_matrix_t *ctm);
subroutine cairo_scaled_font_get_ctm(scaled_font, ctm) bind(c) 
  use iso_c_binding, only: c_ptr
  type(c_ptr), value :: scaled_font
  type(c_ptr), value :: ctm
end subroutine

!  void cairo_scaled_font_get_scale_matrix (cairo_scaled_font_t *scaled_font, cairo_matrix_t *scale_matrix);
subroutine cairo_scaled_font_get_scale_matrix(scaled_font, scale_matrix) bind(c&
&) 
  use iso_c_binding, only: c_ptr
  type(c_ptr), value :: scaled_font
  type(c_ptr), value :: scale_matrix
end subroutine

!  void cairo_scaled_font_get_font_options (cairo_scaled_font_t *scaled_font, cairo_font_options_t *options);
subroutine cairo_scaled_font_get_font_options(scaled_font, options) bind(c) 
  use iso_c_binding, only: c_ptr
  type(c_ptr), value :: scaled_font
  type(c_ptr), value :: options
end subroutine

!  cairo_font_face_t * cairo_toy_font_face_create (const char *family, cairo_font_slant_t slant, cairo_font_weight_t weight);
function cairo_toy_font_face_create(family, slant, weight) bind(c) 
  use iso_c_binding, only: c_ptr, c_char, c_int
  type(c_ptr) :: cairo_toy_font_face_create
  character(kind=c_char), dimension(*) :: family
  integer(c_int), value :: slant
  integer(c_int), value :: weight
end function

!  const char * cairo_toy_font_face_get_family (cairo_font_face_t *font_face);
function cairo_toy_font_face_get_family(font_face) bind(c) 
  use iso_c_binding, only: c_ptr
  type(c_ptr) :: cairo_toy_font_face_get_family
  type(c_ptr), value :: font_face
end function

!  cairo_font_slant_t cairo_toy_font_face_get_slant (cairo_font_face_t *font_face);
function cairo_toy_font_face_get_slant(font_face) bind(c) 
  use iso_c_binding, only: c_int, c_ptr
  integer(c_int) :: cairo_toy_font_face_get_slant
  type(c_ptr), value :: font_face
end function

!  cairo_font_weight_t cairo_toy_font_face_get_weight (cairo_font_face_t *font_face);
function cairo_toy_font_face_get_weight(font_face) bind(c) 
  use iso_c_binding, only: c_int, c_ptr
  integer(c_int) :: cairo_toy_font_face_get_weight
  type(c_ptr), value :: font_face
end function

!  cairo_font_face_t * cairo_user_font_face_create (void);
function cairo_user_font_face_create() bind(c) 
  use iso_c_binding, only: c_ptr
  type(c_ptr) :: cairo_user_font_face_create
end function

!  void cairo_user_font_face_set_init_func (cairo_font_face_t *font_face, cairo_user_scaled_font_init_func_t init_func);
subroutine cairo_user_font_face_set_init_func(font_face, init_func) bind(c) 
  use iso_c_binding, only: c_ptr, c_funptr
  type(c_ptr), value :: font_face
  type(c_funptr), value :: init_func
end subroutine

!  void cairo_user_font_face_set_render_glyph_func (cairo_font_face_t *font_face, cairo_user_scaled_font_render_glyph_func_t render_glyph_func);
subroutine cairo_user_font_face_set_render_glyph_func(font_face, render_glyph_f&
&unc) bind(c) 
  use iso_c_binding, only: c_ptr, c_funptr
  type(c_ptr), value :: font_face
  type(c_funptr), value :: render_glyph_func
end subroutine

!  void cairo_user_font_face_set_text_to_glyphs_func (cairo_font_face_t *font_face, cairo_user_scaled_font_text_to_glyphs_func_t text_to_glyphs_func);
subroutine cairo_user_font_face_set_text_to_glyphs_func(font_face, text_to_glyp&
&hs_func) bind(c) 
  use iso_c_binding, only: c_ptr, c_funptr
  type(c_ptr), value :: font_face
  type(c_funptr), value :: text_to_glyphs_func
end subroutine

!  void cairo_user_font_face_set_unicode_to_glyph_func (cairo_font_face_t *font_face, cairo_user_scaled_font_unicode_to_glyph_func_t unicode_to_glyph_func);
subroutine cairo_user_font_face_set_unicode_to_glyph_func(font_face, unicode_to&
&_glyph_func) bind(c) 
  use iso_c_binding, only: c_ptr, c_funptr
  type(c_ptr), value :: font_face
  type(c_funptr), value :: unicode_to_glyph_func
end subroutine

!  cairo_user_scaled_font_init_func_t cairo_user_font_face_get_init_func (cairo_font_face_t *font_face);
function cairo_user_font_face_get_init_func(font_face) bind(c) 
  use iso_c_binding, only: c_funptr, c_ptr
  type(c_funptr) :: cairo_user_font_face_get_init_func
  type(c_ptr), value :: font_face
end function

!  cairo_user_scaled_font_render_glyph_func_t cairo_user_font_face_get_render_glyph_func (cairo_font_face_t *font_face);
function cairo_user_font_face_get_render_glyph_func(font_face) bind(c) 
  use iso_c_binding, only: c_funptr, c_ptr
  type(c_funptr) :: cairo_user_font_face_get_render_glyph_func
  type(c_ptr), value :: font_face
end function

!  cairo_user_scaled_font_text_to_glyphs_func_t cairo_user_font_face_get_text_to_glyphs_func (cairo_font_face_t *font_face);
function cairo_user_font_face_get_text_to_glyphs_func(font_face) bind(c) 
  use iso_c_binding, only: c_funptr, c_ptr
  type(c_funptr) :: cairo_user_font_face_get_text_to_glyphs_func
  type(c_ptr), value :: font_face
end function

!  cairo_user_scaled_font_unicode_to_glyph_func_t cairo_user_font_face_get_unicode_to_glyph_func (cairo_font_face_t *font_face);
function cairo_user_font_face_get_unicode_to_glyph_func(font_face) bind(c) 
  use iso_c_binding, only: c_funptr, c_ptr
  type(c_funptr) :: cairo_user_font_face_get_unicode_to_glyph_func
  type(c_ptr), value :: font_face
end function

!  cairo_operator_t cairo_get_operator (cairo_t *cr);
function cairo_get_operator(cr) bind(c) 
  use iso_c_binding, only: c_int, c_ptr
  integer(c_int) :: cairo_get_operator
  type(c_ptr), value :: cr
end function

!  cairo_pattern_t * cairo_get_source (cairo_t *cr);
function cairo_get_source(cr) bind(c) 
  use iso_c_binding, only: c_ptr
  type(c_ptr) :: cairo_get_source
  type(c_ptr), value :: cr
end function

!  double cairo_get_tolerance (cairo_t *cr);
function cairo_get_tolerance(cr) bind(c) 
  use iso_c_binding, only: c_double, c_ptr
  real(c_double) :: cairo_get_tolerance
  type(c_ptr), value :: cr
end function

!  cairo_antialias_t cairo_get_antialias (cairo_t *cr);
function cairo_get_antialias(cr) bind(c) 
  use iso_c_binding, only: c_int, c_ptr
  integer(c_int) :: cairo_get_antialias
  type(c_ptr), value :: cr
end function

!  cairo_bool_t cairo_has_current_point (cairo_t *cr);
function cairo_has_current_point(cr) bind(c) 
  use iso_c_binding, only: c_int, c_ptr
  integer(c_int) :: cairo_has_current_point
  type(c_ptr), value :: cr
end function

!  void cairo_get_current_point (cairo_t *cr, double *x, double *y);
subroutine cairo_get_current_point(cr, x, y) bind(c) 
  use iso_c_binding, only: c_ptr
  type(c_ptr), value :: cr
  type(c_ptr), value :: x
  type(c_ptr), value :: y
end subroutine

!  cairo_fill_rule_t cairo_get_fill_rule (cairo_t *cr);
function cairo_get_fill_rule(cr) bind(c) 
  use iso_c_binding, only: c_int, c_ptr
  integer(c_int) :: cairo_get_fill_rule
  type(c_ptr), value :: cr
end function

!  double cairo_get_line_width (cairo_t *cr);
function cairo_get_line_width(cr) bind(c) 
  use iso_c_binding, only: c_double, c_ptr
  real(c_double) :: cairo_get_line_width
  type(c_ptr), value :: cr
end function

!  cairo_line_cap_t cairo_get_line_cap (cairo_t *cr);
function cairo_get_line_cap(cr) bind(c) 
  use iso_c_binding, only: c_int, c_ptr
  integer(c_int) :: cairo_get_line_cap
  type(c_ptr), value :: cr
end function

!  cairo_line_join_t cairo_get_line_join (cairo_t *cr);
function cairo_get_line_join(cr) bind(c) 
  use iso_c_binding, only: c_int, c_ptr
  integer(c_int) :: cairo_get_line_join
  type(c_ptr), value :: cr
end function

!  double cairo_get_miter_limit (cairo_t *cr);
function cairo_get_miter_limit(cr) bind(c) 
  use iso_c_binding, only: c_double, c_ptr
  real(c_double) :: cairo_get_miter_limit
  type(c_ptr), value :: cr
end function

!  int cairo_get_dash_count (cairo_t *cr);
function cairo_get_dash_count(cr) bind(c) 
  use iso_c_binding, only: c_int, c_ptr
  integer(c_int) :: cairo_get_dash_count
  type(c_ptr), value :: cr
end function

!  void cairo_get_dash (cairo_t *cr, double *dashes, double *offset);
subroutine cairo_get_dash(cr, dashes, offset) bind(c) 
  use iso_c_binding, only: c_ptr
  type(c_ptr), value :: cr
  type(c_ptr), value :: dashes
  type(c_ptr), value :: offset
end subroutine

!  void cairo_get_matrix (cairo_t *cr, cairo_matrix_t *matrix);
subroutine cairo_get_matrix(cr, matrix) bind(c) 
  use iso_c_binding, only: c_ptr
  type(c_ptr), value :: cr
  type(c_ptr), value :: matrix
end subroutine

!  cairo_surface_t * cairo_get_target (cairo_t *cr);
function cairo_get_target(cr) bind(c) 
  use iso_c_binding, only: c_ptr
  type(c_ptr) :: cairo_get_target
  type(c_ptr), value :: cr
end function

!  cairo_surface_t * cairo_get_group_target (cairo_t *cr);
function cairo_get_group_target(cr) bind(c) 
  use iso_c_binding, only: c_ptr
  type(c_ptr) :: cairo_get_group_target
  type(c_ptr), value :: cr
end function

!  cairo_path_t * cairo_copy_path (cairo_t *cr);
function cairo_copy_path(cr) bind(c) 
  use iso_c_binding, only: c_ptr
  type(c_ptr) :: cairo_copy_path
  type(c_ptr), value :: cr
end function

!  cairo_path_t * cairo_copy_path_flat (cairo_t *cr);
function cairo_copy_path_flat(cr) bind(c) 
  use iso_c_binding, only: c_ptr
  type(c_ptr) :: cairo_copy_path_flat
  type(c_ptr), value :: cr
end function

!  void cairo_append_path (cairo_t *cr, const cairo_path_t *path);
subroutine cairo_append_path(cr, path) bind(c) 
  use iso_c_binding, only: c_ptr
  type(c_ptr), value :: cr
  type(c_ptr), value :: path
end subroutine

!  void cairo_path_destroy (cairo_path_t *path);
subroutine cairo_path_destroy(path) bind(c) 
  use iso_c_binding, only: c_ptr
  type(c_ptr), value :: path
end subroutine

!  cairo_status_t cairo_status (cairo_t *cr);
function cairo_status(cr) bind(c) 
  use iso_c_binding, only: c_int, c_ptr
  integer(c_int) :: cairo_status
  type(c_ptr), value :: cr
end function

!  const char * cairo_status_to_string (cairo_status_t status);
function cairo_status_to_string(status) bind(c) 
  use iso_c_binding, only: c_ptr, c_int
  type(c_ptr) :: cairo_status_to_string
  integer(c_int), value :: status
end function

!  cairo_device_t * cairo_device_reference (cairo_device_t *device);
function cairo_device_reference(device) bind(c) 
  use iso_c_binding, only: c_ptr
  type(c_ptr) :: cairo_device_reference
  type(c_ptr), value :: device
end function

!  cairo_device_type_t cairo_device_get_type (cairo_device_t *device);
function cairo_device_get_type(device) bind(c) 
  use iso_c_binding, only: c_int, c_ptr
  integer(c_int) :: cairo_device_get_type
  type(c_ptr), value :: device
end function

!  cairo_status_t cairo_device_status (cairo_device_t *device);
function cairo_device_status(device) bind(c) 
  use iso_c_binding, only: c_int, c_ptr
  integer(c_int) :: cairo_device_status
  type(c_ptr), value :: device
end function

!  cairo_status_t cairo_device_acquire (cairo_device_t *device);
function cairo_device_acquire(device) bind(c) 
  use iso_c_binding, only: c_int, c_ptr
  integer(c_int) :: cairo_device_acquire
  type(c_ptr), value :: device
end function

!  void cairo_device_release (cairo_device_t *device);
subroutine cairo_device_release(device) bind(c) 
  use iso_c_binding, only: c_ptr
  type(c_ptr), value :: device
end subroutine

!  void cairo_device_flush (cairo_device_t *device);
subroutine cairo_device_flush(device) bind(c) 
  use iso_c_binding, only: c_ptr
  type(c_ptr), value :: device
end subroutine

!  void cairo_device_finish (cairo_device_t *device);
subroutine cairo_device_finish(device) bind(c) 
  use iso_c_binding, only: c_ptr
  type(c_ptr), value :: device
end subroutine

!  void cairo_device_destroy (cairo_device_t *device);
subroutine cairo_device_destroy(device) bind(c) 
  use iso_c_binding, only: c_ptr
  type(c_ptr), value :: device
end subroutine

!  unsigned int cairo_device_get_reference_count (cairo_device_t *device);
function cairo_device_get_reference_count(device) bind(c) 
  use iso_c_binding, only: c_int, c_ptr
  integer(c_int) :: cairo_device_get_reference_count
  type(c_ptr), value :: device
end function

!  void * cairo_device_get_user_data (cairo_device_t *device, const cairo_user_data_key_t *key);
function cairo_device_get_user_data(device, key) bind(c) 
  use iso_c_binding, only: c_ptr
  type(c_ptr) :: cairo_device_get_user_data
  type(c_ptr), value :: device
  type(c_ptr), value :: key
end function

!  cairo_status_t cairo_device_set_user_data (cairo_device_t *device, const cairo_user_data_key_t *key, void *user_data, cairo_destroy_func_t destroy);
function cairo_device_set_user_data(device, key, user_data, destroy) bind(c) 
  use iso_c_binding, only: c_int, c_ptr, c_funptr
  integer(c_int) :: cairo_device_set_user_data
  type(c_ptr), value :: device
  type(c_ptr), value :: key
  type(c_ptr), value :: user_data
  type(c_funptr), value :: destroy
end function

!  cairo_surface_t * cairo_surface_create_similar (cairo_surface_t *other, cairo_content_t content, int width, int height);
function cairo_surface_create_similar(other, content, width, height) bind(c) 
  use iso_c_binding, only: c_ptr, c_int
  type(c_ptr) :: cairo_surface_create_similar
  type(c_ptr), value :: other
  integer(c_int), value :: content
  integer(c_int), value :: width
  integer(c_int), value :: height
end function

!  cairo_surface_t * cairo_surface_create_for_rectangle (cairo_surface_t *target, double x, double y, double width, double height);
function cairo_surface_create_for_rectangle(target, x, y, width, height) bind(c&
&) 
  use iso_c_binding, only: c_ptr, c_double
  type(c_ptr) :: cairo_surface_create_for_rectangle
  type(c_ptr), value :: target
  real(c_double), value :: x
  real(c_double), value :: y
  real(c_double), value :: width
  real(c_double), value :: height
end function

!  cairo_surface_t * cairo_surface_reference (cairo_surface_t *surface);
function cairo_surface_reference(surface) bind(c) 
  use iso_c_binding, only: c_ptr
  type(c_ptr) :: cairo_surface_reference
  type(c_ptr), value :: surface
end function

!  void cairo_surface_finish (cairo_surface_t *surface);
subroutine cairo_surface_finish(surface) bind(c) 
  use iso_c_binding, only: c_ptr
  type(c_ptr), value :: surface
end subroutine

!  void cairo_surface_destroy (cairo_surface_t *surface);
subroutine cairo_surface_destroy(surface) bind(c) 
  use iso_c_binding, only: c_ptr
  type(c_ptr), value :: surface
end subroutine

!  cairo_device_t * cairo_surface_get_device (cairo_surface_t *surface);
function cairo_surface_get_device(surface) bind(c) 
  use iso_c_binding, only: c_ptr
  type(c_ptr) :: cairo_surface_get_device
  type(c_ptr), value :: surface
end function

!  unsigned int cairo_surface_get_reference_count (cairo_surface_t *surface);
function cairo_surface_get_reference_count(surface) bind(c) 
  use iso_c_binding, only: c_int, c_ptr
  integer(c_int) :: cairo_surface_get_reference_count
  type(c_ptr), value :: surface
end function

!  cairo_status_t cairo_surface_status (cairo_surface_t *surface);
function cairo_surface_status(surface) bind(c) 
  use iso_c_binding, only: c_int, c_ptr
  integer(c_int) :: cairo_surface_status
  type(c_ptr), value :: surface
end function

!  cairo_surface_type_t cairo_surface_get_type (cairo_surface_t *surface);
function cairo_surface_get_type(surface) bind(c) 
  use iso_c_binding, only: c_int, c_ptr
  integer(c_int) :: cairo_surface_get_type
  type(c_ptr), value :: surface
end function

!  cairo_content_t cairo_surface_get_content (cairo_surface_t *surface);
function cairo_surface_get_content(surface) bind(c) 
  use iso_c_binding, only: c_int, c_ptr
  integer(c_int) :: cairo_surface_get_content
  type(c_ptr), value :: surface
end function

!  cairo_status_t cairo_surface_write_to_png (cairo_surface_t *surface, const char *filename);
function cairo_surface_write_to_png(surface, filename) bind(c) 
  use iso_c_binding, only: c_int, c_ptr, c_char
  integer(c_int) :: cairo_surface_write_to_png
  type(c_ptr), value :: surface
  character(kind=c_char), dimension(*) :: filename
end function

!  cairo_status_t cairo_surface_write_to_png_stream (cairo_surface_t *surface, cairo_write_func_t write_func, void *closure);
function cairo_surface_write_to_png_stream(surface, write_func, closure) bind(c&
&) 
  use iso_c_binding, only: c_int, c_ptr, c_funptr
  integer(c_int) :: cairo_surface_write_to_png_stream
  type(c_ptr), value :: surface
  type(c_funptr), value :: write_func
  type(c_ptr), value :: closure
end function

!  void * cairo_surface_get_user_data (cairo_surface_t *surface, const cairo_user_data_key_t *key);
function cairo_surface_get_user_data(surface, key) bind(c) 
  use iso_c_binding, only: c_ptr
  type(c_ptr) :: cairo_surface_get_user_data
  type(c_ptr), value :: surface
  type(c_ptr), value :: key
end function

!  cairo_status_t cairo_surface_set_user_data (cairo_surface_t *surface, const cairo_user_data_key_t *key, void *user_data, cairo_destroy_func_t destroy);
function cairo_surface_set_user_data(surface, key, user_data, destroy) bind(c) 
  use iso_c_binding, only: c_int, c_ptr, c_funptr
  integer(c_int) :: cairo_surface_set_user_data
  type(c_ptr), value :: surface
  type(c_ptr), value :: key
  type(c_ptr), value :: user_data
  type(c_funptr), value :: destroy
end function

!  void cairo_surface_get_mime_data (cairo_surface_t *surface, const char *mime_type, const unsigned char **data, unsigned long *length);
subroutine cairo_surface_get_mime_data(surface, mime_type, data, length) bind(c&
&) 
  use iso_c_binding, only: c_ptr, c_char
  type(c_ptr), value :: surface
  character(kind=c_char), dimension(*) :: mime_type
  type(c_ptr), value :: data
  type(c_ptr), value :: length
end subroutine

!  cairo_status_t cairo_surface_set_mime_data (cairo_surface_t *surface, const char *mime_type, const unsigned char *data, unsigned long length, cairo_destroy_func_t destroy, void *closure);
function cairo_surface_set_mime_data(surface, mime_type, data, length, destroy,&
& closure) bind(c) 
  use iso_c_binding, only: c_int, c_ptr, c_char, c_long, c_funptr
  integer(c_int) :: cairo_surface_set_mime_data
  type(c_ptr), value :: surface
  character(kind=c_char), dimension(*) :: mime_type
  type(c_ptr), value :: data
  integer(c_long), value :: length
  type(c_funptr), value :: destroy
  type(c_ptr), value :: closure
end function

!  void cairo_surface_get_font_options (cairo_surface_t *surface, cairo_font_options_t *options);
subroutine cairo_surface_get_font_options(surface, options) bind(c) 
  use iso_c_binding, only: c_ptr
  type(c_ptr), value :: surface
  type(c_ptr), value :: options
end subroutine

!  void cairo_surface_flush (cairo_surface_t *surface);
subroutine cairo_surface_flush(surface) bind(c) 
  use iso_c_binding, only: c_ptr
  type(c_ptr), value :: surface
end subroutine

!  void cairo_surface_mark_dirty (cairo_surface_t *surface);
subroutine cairo_surface_mark_dirty(surface) bind(c) 
  use iso_c_binding, only: c_ptr
  type(c_ptr), value :: surface
end subroutine

!  void cairo_surface_mark_dirty_rectangle (cairo_surface_t *surface, int x, int y, int width, int height);
subroutine cairo_surface_mark_dirty_rectangle(surface, x, y, width, height) bin&
&d(c) 
  use iso_c_binding, only: c_ptr, c_int
  type(c_ptr), value :: surface
  integer(c_int), value :: x
  integer(c_int), value :: y
  integer(c_int), value :: width
  integer(c_int), value :: height
end subroutine

!  void cairo_surface_set_device_offset (cairo_surface_t *surface, double x_offset, double y_offset);
subroutine cairo_surface_set_device_offset(surface, x_offset, y_offset) bind(c) 
  use iso_c_binding, only: c_ptr, c_double
  type(c_ptr), value :: surface
  real(c_double), value :: x_offset
  real(c_double), value :: y_offset
end subroutine

!  void cairo_surface_get_device_offset (cairo_surface_t *surface, double *x_offset, double *y_offset);
subroutine cairo_surface_get_device_offset(surface, x_offset, y_offset) bind(c) 
  use iso_c_binding, only: c_ptr
  type(c_ptr), value :: surface
  type(c_ptr), value :: x_offset
  type(c_ptr), value :: y_offset
end subroutine

!  void cairo_surface_set_fallback_resolution (cairo_surface_t *surface, double x_pixels_per_inch, double y_pixels_per_inch);
subroutine cairo_surface_set_fallback_resolution(surface, x_pixels_per_inch, y_&
&pixels_per_inch) bind(c) 
  use iso_c_binding, only: c_ptr, c_double
  type(c_ptr), value :: surface
  real(c_double), value :: x_pixels_per_inch
  real(c_double), value :: y_pixels_per_inch
end subroutine

!  void cairo_surface_get_fallback_resolution (cairo_surface_t *surface, double *x_pixels_per_inch, double *y_pixels_per_inch);
subroutine cairo_surface_get_fallback_resolution(surface, x_pixels_per_inch, y_&
&pixels_per_inch) bind(c) 
  use iso_c_binding, only: c_ptr
  type(c_ptr), value :: surface
  type(c_ptr), value :: x_pixels_per_inch
  type(c_ptr), value :: y_pixels_per_inch
end subroutine

!  void cairo_surface_copy_page (cairo_surface_t *surface);
subroutine cairo_surface_copy_page(surface) bind(c) 
  use iso_c_binding, only: c_ptr
  type(c_ptr), value :: surface
end subroutine

!  void cairo_surface_show_page (cairo_surface_t *surface);
subroutine cairo_surface_show_page(surface) bind(c) 
  use iso_c_binding, only: c_ptr
  type(c_ptr), value :: surface
end subroutine

!  cairo_bool_t cairo_surface_has_show_text_glyphs (cairo_surface_t *surface);
function cairo_surface_has_show_text_glyphs(surface) bind(c) 
  use iso_c_binding, only: c_int, c_ptr
  integer(c_int) :: cairo_surface_has_show_text_glyphs
  type(c_ptr), value :: surface
end function

!  cairo_surface_t * cairo_image_surface_create (cairo_format_t format, int width, int height);
function cairo_image_surface_create(format, width, height) bind(c) 
  use iso_c_binding, only: c_ptr, c_int
  type(c_ptr) :: cairo_image_surface_create
  integer(c_int), value :: format
  integer(c_int), value :: width
  integer(c_int), value :: height
end function

!  int cairo_format_stride_for_width (cairo_format_t format, int width);
function cairo_format_stride_for_width(format, width) bind(c) 
  use iso_c_binding, only: c_int
  integer(c_int) :: cairo_format_stride_for_width
  integer(c_int), value :: format
  integer(c_int), value :: width
end function

!  cairo_surface_t * cairo_image_surface_create_for_data (unsigned char *data, cairo_format_t format, int width, int height, int stride);
function cairo_image_surface_create_for_data(data, format, width, height, strid&
&e) bind(c) 
  use iso_c_binding, only: c_ptr, c_int
  type(c_ptr) :: cairo_image_surface_create_for_data
  type(c_ptr), value :: data
  integer(c_int), value :: format
  integer(c_int), value :: width
  integer(c_int), value :: height
  integer(c_int), value :: stride
end function

!  unsigned char * cairo_image_surface_get_data (cairo_surface_t *surface);
function cairo_image_surface_get_data(surface) bind(c) 
  use iso_c_binding, only: c_ptr
  type(c_ptr) :: cairo_image_surface_get_data
  type(c_ptr), value :: surface
end function

!  cairo_format_t cairo_image_surface_get_format (cairo_surface_t *surface);
function cairo_image_surface_get_format(surface) bind(c) 
  use iso_c_binding, only: c_int, c_ptr
  integer(c_int) :: cairo_image_surface_get_format
  type(c_ptr), value :: surface
end function

!  int cairo_image_surface_get_width (cairo_surface_t *surface);
function cairo_image_surface_get_width(surface) bind(c) 
  use iso_c_binding, only: c_int, c_ptr
  integer(c_int) :: cairo_image_surface_get_width
  type(c_ptr), value :: surface
end function

!  int cairo_image_surface_get_height (cairo_surface_t *surface);
function cairo_image_surface_get_height(surface) bind(c) 
  use iso_c_binding, only: c_int, c_ptr
  integer(c_int) :: cairo_image_surface_get_height
  type(c_ptr), value :: surface
end function

!  int cairo_image_surface_get_stride (cairo_surface_t *surface);
function cairo_image_surface_get_stride(surface) bind(c) 
  use iso_c_binding, only: c_int, c_ptr
  integer(c_int) :: cairo_image_surface_get_stride
  type(c_ptr), value :: surface
end function

!  cairo_surface_t * cairo_image_surface_create_from_png (const char *filename);
function cairo_image_surface_create_from_png(filename) bind(c) 
  use iso_c_binding, only: c_ptr, c_char
  type(c_ptr) :: cairo_image_surface_create_from_png
  character(kind=c_char), dimension(*) :: filename
end function

!  cairo_surface_t * cairo_image_surface_create_from_png_stream (cairo_read_func_t read_func, void *closure);
function cairo_image_surface_create_from_png_stream(read_func, closure) bind(c) 
  use iso_c_binding, only: c_ptr, c_funptr
  type(c_ptr) :: cairo_image_surface_create_from_png_stream
  type(c_funptr), value :: read_func
  type(c_ptr), value :: closure
end function

!  cairo_surface_t * cairo_recording_surface_create (cairo_content_t content, const cairo_rectangle_t *extents);
function cairo_recording_surface_create(content, extents) bind(c) 
  use iso_c_binding, only: c_ptr, c_int
  type(c_ptr) :: cairo_recording_surface_create
  integer(c_int), value :: content
  type(c_ptr), value :: extents
end function

!  void cairo_recording_surface_ink_extents (cairo_surface_t *surface, double *x0, double *y0, double *width, double *height);
subroutine cairo_recording_surface_ink_extents(surface, x0, y0, width, height) &
&bind(c) 
  use iso_c_binding, only: c_ptr
  type(c_ptr), value :: surface
  type(c_ptr), value :: x0
  type(c_ptr), value :: y0
  type(c_ptr), value :: width
  type(c_ptr), value :: height
end subroutine

!  cairo_pattern_t * cairo_pattern_create_rgb (double red, double green, double blue);
function cairo_pattern_create_rgb(red, green, blue) bind(c) 
  use iso_c_binding, only: c_ptr, c_double
  type(c_ptr) :: cairo_pattern_create_rgb
  real(c_double), value :: red
  real(c_double), value :: green
  real(c_double), value :: blue
end function

!  cairo_pattern_t * cairo_pattern_create_rgba (double red, double green, double blue, double alpha);
function cairo_pattern_create_rgba(red, green, blue, alpha) bind(c) 
  use iso_c_binding, only: c_ptr, c_double
  type(c_ptr) :: cairo_pattern_create_rgba
  real(c_double), value :: red
  real(c_double), value :: green
  real(c_double), value :: blue
  real(c_double), value :: alpha
end function

!  cairo_pattern_t * cairo_pattern_create_for_surface (cairo_surface_t *surface);
function cairo_pattern_create_for_surface(surface) bind(c) 
  use iso_c_binding, only: c_ptr
  type(c_ptr) :: cairo_pattern_create_for_surface
  type(c_ptr), value :: surface
end function

!  cairo_pattern_t * cairo_pattern_create_linear (double x0, double y0, double x1, double y1);
function cairo_pattern_create_linear(x0, y0, x1, y1) bind(c) 
  use iso_c_binding, only: c_ptr, c_double
  type(c_ptr) :: cairo_pattern_create_linear
  real(c_double), value :: x0
  real(c_double), value :: y0
  real(c_double), value :: x1
  real(c_double), value :: y1
end function

!  cairo_pattern_t * cairo_pattern_create_radial (double cx0, double cy0, double radius0, double cx1, double cy1, double radius1);
function cairo_pattern_create_radial(cx0, cy0, radius0, cx1, cy1, radius1) bind&
&(c) 
  use iso_c_binding, only: c_ptr, c_double
  type(c_ptr) :: cairo_pattern_create_radial
  real(c_double), value :: cx0
  real(c_double), value :: cy0
  real(c_double), value :: radius0
  real(c_double), value :: cx1
  real(c_double), value :: cy1
  real(c_double), value :: radius1
end function

!  cairo_pattern_t * cairo_pattern_reference (cairo_pattern_t *pattern);
function cairo_pattern_reference(pattern) bind(c) 
  use iso_c_binding, only: c_ptr
  type(c_ptr) :: cairo_pattern_reference
  type(c_ptr), value :: pattern
end function

!  void cairo_pattern_destroy (cairo_pattern_t *pattern);
subroutine cairo_pattern_destroy(pattern) bind(c) 
  use iso_c_binding, only: c_ptr
  type(c_ptr), value :: pattern
end subroutine

!  unsigned int cairo_pattern_get_reference_count (cairo_pattern_t *pattern);
function cairo_pattern_get_reference_count(pattern) bind(c) 
  use iso_c_binding, only: c_int, c_ptr
  integer(c_int) :: cairo_pattern_get_reference_count
  type(c_ptr), value :: pattern
end function

!  cairo_status_t cairo_pattern_status (cairo_pattern_t *pattern);
function cairo_pattern_status(pattern) bind(c) 
  use iso_c_binding, only: c_int, c_ptr
  integer(c_int) :: cairo_pattern_status
  type(c_ptr), value :: pattern
end function

!  void * cairo_pattern_get_user_data (cairo_pattern_t *pattern, const cairo_user_data_key_t *key);
function cairo_pattern_get_user_data(pattern, key) bind(c) 
  use iso_c_binding, only: c_ptr
  type(c_ptr) :: cairo_pattern_get_user_data
  type(c_ptr), value :: pattern
  type(c_ptr), value :: key
end function

!  cairo_status_t cairo_pattern_set_user_data (cairo_pattern_t *pattern, const cairo_user_data_key_t *key, void *user_data, cairo_destroy_func_t destroy);
function cairo_pattern_set_user_data(pattern, key, user_data, destroy) bind(c) 
  use iso_c_binding, only: c_int, c_ptr, c_funptr
  integer(c_int) :: cairo_pattern_set_user_data
  type(c_ptr), value :: pattern
  type(c_ptr), value :: key
  type(c_ptr), value :: user_data
  type(c_funptr), value :: destroy
end function

!  cairo_pattern_type_t cairo_pattern_get_type (cairo_pattern_t *pattern);
function cairo_pattern_get_type(pattern) bind(c) 
  use iso_c_binding, only: c_int, c_ptr
  integer(c_int) :: cairo_pattern_get_type
  type(c_ptr), value :: pattern
end function

!  void cairo_pattern_add_color_stop_rgb (cairo_pattern_t *pattern, double offset, double red, double green, double blue);
subroutine cairo_pattern_add_color_stop_rgb(pattern, offset, red, green, blue) &
&bind(c) 
  use iso_c_binding, only: c_ptr, c_double
  type(c_ptr), value :: pattern
  real(c_double), value :: offset
  real(c_double), value :: red
  real(c_double), value :: green
  real(c_double), value :: blue
end subroutine

!  void cairo_pattern_add_color_stop_rgba (cairo_pattern_t *pattern, double offset, double red, double green, double blue, double alpha);
subroutine cairo_pattern_add_color_stop_rgba(pattern, offset, red, green, blue,&
& alpha) bind(c) 
  use iso_c_binding, only: c_ptr, c_double
  type(c_ptr), value :: pattern
  real(c_double), value :: offset
  real(c_double), value :: red
  real(c_double), value :: green
  real(c_double), value :: blue
  real(c_double), value :: alpha
end subroutine

!  void cairo_pattern_set_matrix (cairo_pattern_t *pattern, const cairo_matrix_t *matrix);
subroutine cairo_pattern_set_matrix(pattern, matrix) bind(c) 
  use iso_c_binding, only: c_ptr
  type(c_ptr), value :: pattern
  type(c_ptr), value :: matrix
end subroutine

!  void cairo_pattern_get_matrix (cairo_pattern_t *pattern, cairo_matrix_t *matrix);
subroutine cairo_pattern_get_matrix(pattern, matrix) bind(c) 
  use iso_c_binding, only: c_ptr
  type(c_ptr), value :: pattern
  type(c_ptr), value :: matrix
end subroutine

!  void cairo_pattern_set_extend (cairo_pattern_t *pattern, cairo_extend_t extend);
subroutine cairo_pattern_set_extend(pattern, extend) bind(c) 
  use iso_c_binding, only: c_ptr, c_int
  type(c_ptr), value :: pattern
  integer(c_int), value :: extend
end subroutine

!  cairo_extend_t cairo_pattern_get_extend (cairo_pattern_t *pattern);
function cairo_pattern_get_extend(pattern) bind(c) 
  use iso_c_binding, only: c_int, c_ptr
  integer(c_int) :: cairo_pattern_get_extend
  type(c_ptr), value :: pattern
end function

!  void cairo_pattern_set_filter (cairo_pattern_t *pattern, cairo_filter_t filter);
subroutine cairo_pattern_set_filter(pattern, filter) bind(c) 
  use iso_c_binding, only: c_ptr, c_int
  type(c_ptr), value :: pattern
  integer(c_int), value :: filter
end subroutine

!  cairo_filter_t cairo_pattern_get_filter (cairo_pattern_t *pattern);
function cairo_pattern_get_filter(pattern) bind(c) 
  use iso_c_binding, only: c_int, c_ptr
  integer(c_int) :: cairo_pattern_get_filter
  type(c_ptr), value :: pattern
end function

!  cairo_status_t cairo_pattern_get_rgba (cairo_pattern_t *pattern, double *red, double *green, double *blue, double *alpha);
function cairo_pattern_get_rgba(pattern, red, green, blue, alpha) bind(c) 
  use iso_c_binding, only: c_int, c_ptr
  integer(c_int) :: cairo_pattern_get_rgba
  type(c_ptr), value :: pattern
  type(c_ptr), value :: red
  type(c_ptr), value :: green
  type(c_ptr), value :: blue
  type(c_ptr), value :: alpha
end function

!  cairo_status_t cairo_pattern_get_surface (cairo_pattern_t *pattern, cairo_surface_t **surface);
function cairo_pattern_get_surface(pattern, surface) bind(c) 
  use iso_c_binding, only: c_int, c_ptr
  integer(c_int) :: cairo_pattern_get_surface
  type(c_ptr), value :: pattern
  type(c_ptr), value :: surface
end function

!  cairo_status_t cairo_pattern_get_color_stop_rgba (cairo_pattern_t *pattern, int index, double *offset, double *red, double *green, double *blue, double *alpha);
function cairo_pattern_get_color_stop_rgba(pattern, index, offset, red, green, &
&blue, alpha) bind(c) 
  use iso_c_binding, only: c_int, c_ptr
  integer(c_int) :: cairo_pattern_get_color_stop_rgba
  type(c_ptr), value :: pattern
  integer(c_int), value :: index
  type(c_ptr), value :: offset
  type(c_ptr), value :: red
  type(c_ptr), value :: green
  type(c_ptr), value :: blue
  type(c_ptr), value :: alpha
end function

!  cairo_status_t cairo_pattern_get_color_stop_count (cairo_pattern_t *pattern, int *count);
function cairo_pattern_get_color_stop_count(pattern, count) bind(c) 
  use iso_c_binding, only: c_int, c_ptr
  integer(c_int) :: cairo_pattern_get_color_stop_count
  type(c_ptr), value :: pattern
  type(c_ptr), value :: count
end function

!  cairo_status_t cairo_pattern_get_linear_points (cairo_pattern_t *pattern, double *x0, double *y0, double *x1, double *y1);
function cairo_pattern_get_linear_points(pattern, x0, y0, x1, y1) bind(c) 
  use iso_c_binding, only: c_int, c_ptr
  integer(c_int) :: cairo_pattern_get_linear_points
  type(c_ptr), value :: pattern
  type(c_ptr), value :: x0
  type(c_ptr), value :: y0
  type(c_ptr), value :: x1
  type(c_ptr), value :: y1
end function

!  cairo_status_t cairo_pattern_get_radial_circles (cairo_pattern_t *pattern, double *x0, double *y0, double *r0, double *x1, double *y1, double *r1);
function cairo_pattern_get_radial_circles(pattern, x0, y0, r0, x1, y1, r1) bind&
&(c) 
  use iso_c_binding, only: c_int, c_ptr
  integer(c_int) :: cairo_pattern_get_radial_circles
  type(c_ptr), value :: pattern
  type(c_ptr), value :: x0
  type(c_ptr), value :: y0
  type(c_ptr), value :: r0
  type(c_ptr), value :: x1
  type(c_ptr), value :: y1
  type(c_ptr), value :: r1
end function

!  void cairo_matrix_init (cairo_matrix_t *matrix, double xx, double yx, double xy, double yy, double x0, double y0);
subroutine cairo_matrix_init(matrix, xx, yx, xy, yy, x0, y0) bind(c) 
  use iso_c_binding, only: c_ptr, c_double
  type(c_ptr), value :: matrix
  real(c_double), value :: xx
  real(c_double), value :: yx
  real(c_double), value :: xy
  real(c_double), value :: yy
  real(c_double), value :: x0
  real(c_double), value :: y0
end subroutine

!  void cairo_matrix_init_identity (cairo_matrix_t *matrix);
subroutine cairo_matrix_init_identity(matrix) bind(c) 
  use iso_c_binding, only: c_ptr
  type(c_ptr), value :: matrix
end subroutine

!  void cairo_matrix_init_translate (cairo_matrix_t *matrix, double tx, double ty);
subroutine cairo_matrix_init_translate(matrix, tx, ty) bind(c) 
  use iso_c_binding, only: c_ptr, c_double
  type(c_ptr), value :: matrix
  real(c_double), value :: tx
  real(c_double), value :: ty
end subroutine

!  void cairo_matrix_init_scale (cairo_matrix_t *matrix, double sx, double sy);
subroutine cairo_matrix_init_scale(matrix, sx, sy) bind(c) 
  use iso_c_binding, only: c_ptr, c_double
  type(c_ptr), value :: matrix
  real(c_double), value :: sx
  real(c_double), value :: sy
end subroutine

!  void cairo_matrix_init_rotate (cairo_matrix_t *matrix, double radians);
subroutine cairo_matrix_init_rotate(matrix, radians) bind(c) 
  use iso_c_binding, only: c_ptr, c_double
  type(c_ptr), value :: matrix
  real(c_double), value :: radians
end subroutine

!  void cairo_matrix_translate (cairo_matrix_t *matrix, double tx, double ty);
subroutine cairo_matrix_translate(matrix, tx, ty) bind(c) 
  use iso_c_binding, only: c_ptr, c_double
  type(c_ptr), value :: matrix
  real(c_double), value :: tx
  real(c_double), value :: ty
end subroutine

!  void cairo_matrix_scale (cairo_matrix_t *matrix, double sx, double sy);
subroutine cairo_matrix_scale(matrix, sx, sy) bind(c) 
  use iso_c_binding, only: c_ptr, c_double
  type(c_ptr), value :: matrix
  real(c_double), value :: sx
  real(c_double), value :: sy
end subroutine

!  void cairo_matrix_rotate (cairo_matrix_t *matrix, double radians);
subroutine cairo_matrix_rotate(matrix, radians) bind(c) 
  use iso_c_binding, only: c_ptr, c_double
  type(c_ptr), value :: matrix
  real(c_double), value :: radians
end subroutine

!  cairo_status_t cairo_matrix_invert (cairo_matrix_t *matrix);
function cairo_matrix_invert(matrix) bind(c) 
  use iso_c_binding, only: c_int, c_ptr
  integer(c_int) :: cairo_matrix_invert
  type(c_ptr), value :: matrix
end function

!  void cairo_matrix_multiply (cairo_matrix_t *result, const cairo_matrix_t *a, const cairo_matrix_t *b);
subroutine cairo_matrix_multiply(result, a, b) bind(c) 
  use iso_c_binding, only: c_ptr
  type(c_ptr), value :: result
  type(c_ptr), value :: a
  type(c_ptr), value :: b
end subroutine

!  void cairo_matrix_transform_distance (const cairo_matrix_t *matrix, double *dx, double *dy);
subroutine cairo_matrix_transform_distance(matrix, dx, dy) bind(c) 
  use iso_c_binding, only: c_ptr
  type(c_ptr), value :: matrix
  type(c_ptr), value :: dx
  type(c_ptr), value :: dy
end subroutine

!  void cairo_matrix_transform_point (const cairo_matrix_t *matrix, double *x, double *y);
subroutine cairo_matrix_transform_point(matrix, x, y) bind(c) 
  use iso_c_binding, only: c_ptr
  type(c_ptr), value :: matrix
  type(c_ptr), value :: x
  type(c_ptr), value :: y
end subroutine

!  cairo_region_t * cairo_region_create (void);
function cairo_region_create() bind(c) 
  use iso_c_binding, only: c_ptr
  type(c_ptr) :: cairo_region_create
end function

!  cairo_region_t * cairo_region_create_rectangle (const cairo_rectangle_int_t *rectangle);
function cairo_region_create_rectangle(rectangle) bind(c) 
  use iso_c_binding, only: c_ptr
  type(c_ptr) :: cairo_region_create_rectangle
  type(c_ptr), value :: rectangle
end function

!  cairo_region_t * cairo_region_create_rectangles (const cairo_rectangle_int_t *rects, int count);
function cairo_region_create_rectangles(rects, count) bind(c) 
  use iso_c_binding, only: c_ptr, c_int
  type(c_ptr) :: cairo_region_create_rectangles
  type(c_ptr), value :: rects
  integer(c_int), value :: count
end function

!  cairo_region_t * cairo_region_copy (const cairo_region_t *original);
function cairo_region_copy(original) bind(c) 
  use iso_c_binding, only: c_ptr
  type(c_ptr) :: cairo_region_copy
  type(c_ptr), value :: original
end function

!  cairo_region_t * cairo_region_reference (cairo_region_t *region);
function cairo_region_reference(region) bind(c) 
  use iso_c_binding, only: c_ptr
  type(c_ptr) :: cairo_region_reference
  type(c_ptr), value :: region
end function

!  void cairo_region_destroy (cairo_region_t *region);
subroutine cairo_region_destroy(region) bind(c) 
  use iso_c_binding, only: c_ptr
  type(c_ptr), value :: region
end subroutine

!  cairo_bool_t cairo_region_equal (const cairo_region_t *a, const cairo_region_t *b);
function cairo_region_equal(a, b) bind(c) 
  use iso_c_binding, only: c_int, c_ptr
  integer(c_int) :: cairo_region_equal
  type(c_ptr), value :: a
  type(c_ptr), value :: b
end function

!  cairo_status_t cairo_region_status (const cairo_region_t *region);
function cairo_region_status(region) bind(c) 
  use iso_c_binding, only: c_int, c_ptr
  integer(c_int) :: cairo_region_status
  type(c_ptr), value :: region
end function

!  void cairo_region_get_extents (const cairo_region_t *region, cairo_rectangle_int_t *extents);
subroutine cairo_region_get_extents(region, extents) bind(c) 
  use iso_c_binding, only: c_ptr
  type(c_ptr), value :: region
  type(c_ptr), value :: extents
end subroutine

!  int cairo_region_num_rectangles (const cairo_region_t *region);
function cairo_region_num_rectangles(region) bind(c) 
  use iso_c_binding, only: c_int, c_ptr
  integer(c_int) :: cairo_region_num_rectangles
  type(c_ptr), value :: region
end function

!  void cairo_region_get_rectangle (const cairo_region_t *region, int nth, cairo_rectangle_int_t *rectangle);
subroutine cairo_region_get_rectangle(region, nth, rectangle) bind(c) 
  use iso_c_binding, only: c_ptr, c_int
  type(c_ptr), value :: region
  integer(c_int), value :: nth
  type(c_ptr), value :: rectangle
end subroutine

!  cairo_bool_t cairo_region_is_empty (const cairo_region_t *region);
function cairo_region_is_empty(region) bind(c) 
  use iso_c_binding, only: c_int, c_ptr
  integer(c_int) :: cairo_region_is_empty
  type(c_ptr), value :: region
end function

!  cairo_region_overlap_t cairo_region_contains_rectangle (const cairo_region_t *region, const cairo_rectangle_int_t *rectangle);
function cairo_region_contains_rectangle(region, rectangle) bind(c) 
  use iso_c_binding, only: c_int, c_ptr
  integer(c_int) :: cairo_region_contains_rectangle
  type(c_ptr), value :: region
  type(c_ptr), value :: rectangle
end function

!  cairo_bool_t cairo_region_contains_point (const cairo_region_t *region, int x, int y);
function cairo_region_contains_point(region, x, y) bind(c) 
  use iso_c_binding, only: c_int, c_ptr
  integer(c_int) :: cairo_region_contains_point
  type(c_ptr), value :: region
  integer(c_int), value :: x
  integer(c_int), value :: y
end function

!  void cairo_region_translate (cairo_region_t *region, int dx, int dy);
subroutine cairo_region_translate(region, dx, dy) bind(c) 
  use iso_c_binding, only: c_ptr, c_int
  type(c_ptr), value :: region
  integer(c_int), value :: dx
  integer(c_int), value :: dy
end subroutine

!  cairo_status_t cairo_region_subtract (cairo_region_t *dst, const cairo_region_t *other);
function cairo_region_subtract(dst, other) bind(c) 
  use iso_c_binding, only: c_int, c_ptr
  integer(c_int) :: cairo_region_subtract
  type(c_ptr), value :: dst
  type(c_ptr), value :: other
end function

!  cairo_status_t cairo_region_subtract_rectangle (cairo_region_t *dst, const cairo_rectangle_int_t *rectangle);
function cairo_region_subtract_rectangle(dst, rectangle) bind(c) 
  use iso_c_binding, only: c_int, c_ptr
  integer(c_int) :: cairo_region_subtract_rectangle
  type(c_ptr), value :: dst
  type(c_ptr), value :: rectangle
end function

!  cairo_status_t cairo_region_intersect (cairo_region_t *dst, const cairo_region_t *other);
function cairo_region_intersect(dst, other) bind(c) 
  use iso_c_binding, only: c_int, c_ptr
  integer(c_int) :: cairo_region_intersect
  type(c_ptr), value :: dst
  type(c_ptr), value :: other
end function

!  cairo_status_t cairo_region_intersect_rectangle (cairo_region_t *dst, const cairo_rectangle_int_t *rectangle);
function cairo_region_intersect_rectangle(dst, rectangle) bind(c) 
  use iso_c_binding, only: c_int, c_ptr
  integer(c_int) :: cairo_region_intersect_rectangle
  type(c_ptr), value :: dst
  type(c_ptr), value :: rectangle
end function

!  cairo_status_t cairo_region_union (cairo_region_t *dst, const cairo_region_t *other);
function cairo_region_union(dst, other) bind(c) 
  use iso_c_binding, only: c_int, c_ptr
  integer(c_int) :: cairo_region_union
  type(c_ptr), value :: dst
  type(c_ptr), value :: other
end function

!  cairo_status_t cairo_region_union_rectangle (cairo_region_t *dst, const cairo_rectangle_int_t *rectangle);
function cairo_region_union_rectangle(dst, rectangle) bind(c) 
  use iso_c_binding, only: c_int, c_ptr
  integer(c_int) :: cairo_region_union_rectangle
  type(c_ptr), value :: dst
  type(c_ptr), value :: rectangle
end function

!  cairo_status_t cairo_region_xor (cairo_region_t *dst, const cairo_region_t *other);
function cairo_region_xor(dst, other) bind(c) 
  use iso_c_binding, only: c_int, c_ptr
  integer(c_int) :: cairo_region_xor
  type(c_ptr), value :: dst
  type(c_ptr), value :: other
end function

!  cairo_status_t cairo_region_xor_rectangle (cairo_region_t *dst, const cairo_rectangle_int_t *rectangle);
function cairo_region_xor_rectangle(dst, rectangle) bind(c) 
  use iso_c_binding, only: c_int, c_ptr
  integer(c_int) :: cairo_region_xor_rectangle
  type(c_ptr), value :: dst
  type(c_ptr), value :: rectangle
end function

!  void cairo_debug_reset_static_data (void);
subroutine cairo_debug_reset_static_data() bind(c) 
  use iso_c_binding, only: 
end subroutine

!   cairo_font_face_t * cairo_ft_font_face_create_for_ft_face (FT_Face face, int load_flags);
function cairo_ft_font_face_create_for_ft_face(face, load_flags) bind(c) 
  use iso_c_binding, only: c_ptr, c_int
  type(c_ptr) :: cairo_ft_font_face_create_for_ft_face
  type(c_ptr), value :: face
  integer(c_int), value :: load_flags
end function

!  FT_Face cairo_ft_scaled_font_lock_face (cairo_scaled_font_t *scaled_font);
function cairo_ft_scaled_font_lock_face(scaled_font) bind(c) 
  use iso_c_binding, only: c_ptr
  type(c_ptr) :: cairo_ft_scaled_font_lock_face
  type(c_ptr), value :: scaled_font
end function

!  void cairo_ft_scaled_font_unlock_face (cairo_scaled_font_t *scaled_font);
subroutine cairo_ft_scaled_font_unlock_face(scaled_font) bind(c) 
  use iso_c_binding, only: c_ptr
  type(c_ptr), value :: scaled_font
end subroutine

!  cairo_font_face_t * cairo_ft_font_face_create_for_pattern (FcPattern *pattern);
function cairo_ft_font_face_create_for_pattern(pattern) bind(c) 
  use iso_c_binding, only: c_ptr
  type(c_ptr) :: cairo_ft_font_face_create_for_pattern
  type(c_ptr), value :: pattern
end function

!  void cairo_ft_font_options_substitute (const cairo_font_options_t *options, FcPattern *pattern);
subroutine cairo_ft_font_options_substitute(options, pattern) bind(c) 
  use iso_c_binding, only: c_ptr
  type(c_ptr), value :: options
  type(c_ptr), value :: pattern
end subroutine

end interface
end module cairo