#
# Copyright (c) 2004-2008 by the cairo perl team (see the file README)
#
# Licensed under the LGPL, see LICENSE file for more information.
#
# $Id: Cairo.pm 171 2009-03-28 13:23:55Z tsch $
#

package Cairo;

use strict;
use warnings;
use DynaLoader;

our @ISA = qw/DynaLoader/;

our $VERSION = '1.061';

sub dl_load_flags { $^O eq 'darwin' ? 0x00 : 0x01 }

Cairo->bootstrap ($VERSION);

# --------------------------------------------------------------------------- #

package Cairo;

1;

__END__

=head1 NAME

Cairo - Perl interface to the cairo library

=head1 SYNOPSIS

  use Cairo;

  my $surface = Cairo::ImageSurface->create ('argb32', 100, 100);
  my $cr = Cairo::Context->create ($surface);

  $cr->rectangle (10, 10, 40, 40);
  $cr->set_source_rgb (0, 0, 0);
  $cr->fill;

  $cr->rectangle (50, 50, 40, 40);
  $cr->set_source_rgb (1, 1, 1);
  $cr->fill;

  $cr->show_page;

  $surface->write_to_png ('output.png');

=head1 ABSTRACT

Cairo provides Perl bindings for the vector graphics library cairo.  It
supports multiple output targets, including PNG, PDF and SVG.  Cairo produces
identical output on all those targets.

=head1 API DOCUMENTATION

This is a listing of the API Cairo provides.  For more verbose information,
refer to the cairo manual at L<http://cairographics.org/manual/>.

=head2 Drawing

=head3 Cairo::Context -- The cairo drawing context

I<Cairo::Context> is the main object used when drawing with Cairo. To draw with
Cairo, you create a I<Cairo::Context>, set the target surface, and drawing
options for the I<Cairo::Context>, create shapes with methods like
C<$cr-E<gt>move_to> and C<$cr-E<gt>line_to>, and then draw shapes with
C<$cr-E<gt>stroke> or C<$cr-E<gt>fill>.

I<Cairo::Context>'s can be pushed to a stack via C<$cr-E<gt>save>. They may
then safely be changed, without loosing the current state. Use
C<$cr-E<gt>restore> to restore to the saved state.

=over

=item $cr = Cairo::Context->create ($surface)

=over

=item $surface: I<Cairo::Surface>

=back

=item $cr-E<gt>save

=item $cr->restore

=item $status = $cr->status

=item $surface = $cr->get_target

=item $cr->push_group [1.2]

=item $cr->push_group_with_content ($content) [1.2]

=over

=item $content: I<Cairo::Content>

=back

=item $pattern = $cr->pop_group [1.2]

=item $cr->pop_group_to_source [1.2]

=item $surface = $cr->get_group_target [1.2]

=item $cr->set_source_rgb ($red, $green, $blue)

=over

=item $red: double

=item $green: double

=item $blue: double

=back

=item $cr->set_source_rgba ($red, $green, $blue, $alpha)

=over

=item $red: double

=item $green: double

=item $blue: double

=item $alpha: double

=back

=item $cr->set_source ($source)

=over

=item $source: I<Cairo::Pattern>

=back

=item $cr->set_source_surface ($surface, $x, $y)

=over

=item $surface: I<Cairo::Surface>

=item $x: double

=item $y: double

=back

=item $source = $cr->get_source

=item $cr->set_antialias ($antialias)

=over

=item $antialias: I<Cairo::Antialias>

=back

=item $antialias = $cr->get_antialias

=item $cr->set_dash ($offset, ...)

=over

=item $offset: double

=item ...: list of doubles

=back

=item $cr->set_fill_rule ($fill_rule)

=over

=item $fill_rule: I<Cairo::FillRule>

=back

=item $fill_rule = $cr->get_fill_rule

=item $cr->set_line_cap ($line_cap)

=over

=item $line_cap: I<Cairo::LineCap>

=back

=item $line_cap = $cr->get_line_cap

=item $cr->set_line_join ($line_join)

=over

=item $line_join: I<Cairo::LineJoin>

=back

=item $line_join = $cr->get_line_join

=item $cr->set_line_width ($width)

=over

=item $width: double

=back

=item $width = $cr->get_line_width

=item $cr->set_miter_limit ($limit)

=over

=item $limit: double

=back

=item ($offset, @dashes) = $cr->get_dash [1.4]

=item $limit = $cr->get_miter_limit

=item $cr->set_operator ($op)

=over

=item $op: I<Cairo::Operator>

=back

=item $op = $cr->get_operator

=item $cr->set_tolerance ($tolerance)

=over

=item $tolerance: double

=back

=item $tolerance = $cr->get_tolerance

=item $cr->clip

=item $cr->clip_preserve

=item ($x1, $y1, $x2, $y2) = $cr->clip_extents [1.4]

=item @rectangles = $cr->copy_clip_rectangle_list [1.4]

=item $cr->reset_clip

=item $cr->fill

=item $cr->fill_preserve

=item ($x1, $y1, $x2, $y2) = $cr->fill_extents

=item $bool = $cr->in_fill ($x, $y)

=over

=item $x: double

=item $y: double

=back

=item $cr->mask ($pattern)

=over

=item $pattern: I<Cairo::Pattern>

=back

=item $cr->mask_surface ($surface, $surface_x, $surface_y)

=over

=item $surface: I<Cairo::Surface>

=item $surface_x: double

=item $surface_y: double

=back

=item $cr->paint

=item $cr->paint_with_alpha ($alpha)

=over

=item $alpha: double

=back

=item $cr->stroke

=item $cr->stroke_preserve

=item ($x1, $y1, $x2, $y2) = $cr->stroke_extents

=item $bool = $cr->in_stroke ($x, $y)

=over

=item $x: double

=item $y: double

=back

=item $cr->copy_page

=item $cr->show_page

=back

=cut

# --------------------------------------------------------------------------- #

=head3 Paths -- Creating paths and manipulating path data

  $path = [
    { type => "move-to", points => [[1, 2]] },
    { type => "line-to", points => [[3, 4]] },
    { type => "curve-to", points => [[5, 6], [7, 8], [9, 10]] },
    ...
    { type => "close-path", points => [] },
  ];

I<Cairo::Path> is a data structure for holding a path. This data structure
serves as the return value for C<$cr-E<gt>copy_path_data> and
C<$cr-E<gt>copy_path_data_flat> as well the input value for
C<$cr-E<gt>append_path>.

I<Cairo::Path> is represented as an array reference that contains path
elements, represented by hash references with two keys: I<type> and I<points>.
The value for I<type> can be either of the following:

=over

=item C<move-to>

=item C<line-to>

=item C<curve-to>

=item C<close-path>

=back

The value for I<points> is an array reference which contains zero or more
points.  Points are represented as array references that contain two doubles:
I<x> and I<y>.  The necessary number of points depends on the I<type> of the
path element:

=over

=item C<move-to>: 1 point

=item C<line_to>: 1 point

=item C<curve-to>: 3 points

=item C<close-path>: 0 points

=back

The semantics and ordering of the coordinate values are consistent with
C<$cr-E<gt>move_to>, C<$cr-E<gt>line_to>, C<$cr-E<gt>curve_to>, and
C<$cr-E<gt>close_path>.

=over

=item $path = $cr->copy_path

=item $path = $cr->copy_path_flat

=item $cr->append_path ($path)

=over

=item $path: I<Cairo::Path>

=back

=item $bool = $cr->has_current_point [1.6]

=item ($x, $y) = $cr->get_current_point

=item $cr->new_path

=item $cr->new_sub_path [1.2]

=item $cr->close_path

=item ($x1, $y1, $x2, $y2) = $cr->path_extents [1.6]

=item $cr->arc ($xc, $yc, $radius, $angle1, $angle2)

=over

=item $xc: double

=item $yc: double

=item $radius: double

=item $angle1: double

=item $angle2: double

=back

=item $cr->arc_negative ($xc, $yc, $radius, $angle1, $angle2)

=over

=item $xc: double

=item $yc: double

=item $radius: double

=item $angle1: double

=item $angle2: double

=back

=item $cr->curve_to ($x1, $y1, $x2, $y2, $x3, $y3)

=over

=item $x1: double

=item $y1: double

=item $x2: double

=item $y2: double

=item $x3: double

=item $y3: double

=back

=item $cr->line_to ($x, $y)

=over

=item $x: double

=item $y: double

=back

=item $cr->move_to ($x, $y)

=over

=item $x: double

=item $y: double

=back

=item $cr->rectangle ($x, $y, $width, $height)

=over

=item $x: double

=item $y: double

=item $width: double

=item $height: double

=back

=item $cr->glyph_path (...)

=over

=item ...: list of I<Cairo::Glyph>'s

=back

=item $cr->text_path ($utf8)

=over

=item $utf8: string in utf8 encoding

=back

=item $cr->rel_curve_to ($dx1, $dy1, $dx2, $dy2, $dx3, $dy3)

=over

=item $dx1: double

=item $dy1: double

=item $dx2: double

=item $dy2: double

=item $dx3: double

=item $dy3: double

=back

=item $cr->rel_line_to ($dx, $dy)

=over

=item $dx: double

=item $dy: double

=back

=item $cr->rel_move_to ($dx, $dy)

=over

=item $dx: double

=item $dy: double

=back

=back

=cut

# --------------------------------------------------------------------------- #

=head3 Patterns -- Gradients and filtered sources

=over

=item $status = $pattern->status

=item $type = $pattern->get_type [1.2]

=item $pattern->set_matrix ($matrix)

=over

=item $matrix: I<Cairo::Matrix>

=back

=item $matrix = $pattern->get_matrix

=item $pattern = Cairo::SolidPattern->create_rgb ($red, $green, $blue)

=over

=item $red: double

=item $green: double

=item $blue: double

=back

=item $pattern = Cairo::SolidPattern->create_rgba ($red, $green, $blue, $alpha)

=over

=item $red: double

=item $green: double

=item $blue: double

=item $alpha: double

=back

=item ($r, $g, $b, $a) = $pattern->get_rgba [1.4]

=item $pattern = Cairo::SurfacePattern->create ($surface)

=over

=item $surface: I<Cairo::Surface>

=back

=item $pattern->set_extend ($extend)

=over

=item $extend: I<Cairo::Extend>

=back

=item $extend = $pattern->get_extend

=item $pattern->set_filter ($filter)

=over

=item $filter: I<Cairo::Filter>

=back

=item $filter = $pattern->get_filter

=item $surface = $pattern->get_surface [1.4]

=item $pattern = Cairo::LinearGradient->create ($x0, $y0, $x1, $y1)

=over

=item $x0: double

=item $y0: double

=item $x1: double

=item $y1: double

=back

=item ($x0, $y0, $x1, $y1) = $pattern->get_points [1.4]

=item $pattern = Cairo::RadialGradient->create ($cx0, $cy0, $radius0, $cx1, $cy1, $radius1)

=over

=item $cx0: double

=item $cy0: double

=item $radius0: double

=item $cx1: double

=item $cy1: double

=item $radius1: double

=back

=item ($x0, $y0, $r0, $x1, $y1, $r1) = $pattern->get_circles [1.4]

=item $pattern->add_color_stop_rgb ($offset, $red, $green, $blue)

=over

=item $offset: double

=item $red: double

=item $green: double

=item $blue: double

=back

=item $pattern->add_color_stop_rgba ($offset, $red, $green, $blue, $alpha)

=over

=item $offset: double

=item $red: double

=item $green: double

=item $blue: double

=item $alpha: double

=back

=item @stops = $pattern->get_color_stops [1.4]

A color stop is represented as an array reference with five elements: offset,
red, green, blue, and alpha.

=back

=cut

# --------------------------------------------------------------------------- #

=head3 Transformations -- Manipulating the current transformation matrix

=over

=item $cr->translate ($tx, $ty)

=over

=item $tx: double

=item $ty: double

=back

=item $cr->scale ($sx, $sy)

=over

=item $sx: double

=item $sy: double

=back

=item $cr->rotate ($angle)

=over

=item $angle: double

=back

=item $cr->transform ($matrix)

=over

=item $matrix: I<Cairo::Matrix>

=back

=item $cr->set_matrix ($matrix)

=over

=item $matrix: I<Cairo::Matrix>

=back

=item $matrix = $cr->get_matrix

=item $cr->identity_matrix

=item ($x, $y) = $cr->user_to_device ($x, $y)

=over

=item $x: double

=item $y: double

=back

=item ($dx, $dy) = $cr->user_to_device_distance ($dx, $dy)

=over

=item $dx: double

=item $dy: double

=back

=item ($x, $y) = $cr->device_to_user ($x, $y)

=over

=item $x: double

=item $y: double

=back

=item ($dx, $dy) = $cr->device_to_user_distance ($dx, $dy)

=over

=item $dx: double

=item $dy: double

=back

=back

=cut

# --------------------------------------------------------------------------- #

=head3 Text -- Rendering text and sets of glyphs

Glyphs are represented as anonymous hash references with three keys: I<index>,
I<x> and I<y>.  Example:

  my @glyphs = ({ index => 1, x => 2, y => 3 },
                { index => 2, x => 3, y => 4 },
                { index => 3, x => 4, y => 5 });

=over

=item $cr->select_font_face ($family, $slant, $weight)

=over

=item $family: string

=item $slant: I<Cairo::FontSlant>

=item $weight: I<Cairo::FontWeight>

=back

=item $cr->set_font_size ($size)

=over

=item $size: double

=back

=item $cr->set_font_matrix ($matrix)

=over

=item $matrix: I<Cairo::Matrix>

=back

=item $matrix = $cr->get_font_matrix

=item $cr->set_font_options ($options)

=over

=item $options: I<Cairo::FontOptions>

=back

=item $options = $cr->get_font_options

=item $cr->set_scaled_font ($scaled_font) [1.2]

=over

=item $scaled_font: I<Cairo::ScaledFont>

=back

=item $scaled_font = $cr->get_scaled_font [1.4]

=item $cr->show_text ($utf8)

=over

=item $utf8: string

=back

=item $cr->show_glyphs (...)

=over

=item ...: list of glyphs

=back

=item $face = $cr->get_font_face

=item $extents = $cr->font_extents

=item $cr->set_font_face ($font_face)

=over

=item $font_face: I<Cairo::FontFace>

=back

=item $cr->set_scaled_font ($scaled_font)

=over

=item $scaled_font: I<Cairo::ScaledFont>

=back

=item $extents = $cr->text_extents ($utf8)

=over

=item $utf8: string

=back

=item $extents = $cr->glyph_extents (...)

=over

=item ...: list of glyphs

=back

=back

=cut

# --------------------------------------------------------------------------- #

=head2 Fonts

=head3 Cairo::FontFace -- Base class for fonts

=over

=item $status = $font_face->status

=item $type = $font_face->get_type [1.2]

=back

=cut

# --------------------------------------------------------------------------- #

=head3 Scaled Fonts -- Caching metrics for a particular font size

=over

=item $scaled_font = Cairo::ScaledFont->create ($font_face, $font_matrix, $ctm, $options)

=over

=item $font_face: I<Cairo::FontFace>

=item $font_matrix: I<Cairo::Matrix>

=item $ctm: I<Cairo::Matrix>

=item $options: I<Cairo::FontOptions>

=back

=item $status = $scaled_font->status

=item $extents = $scaled_font->extents

=item $extents = $scaled_font->text_extents ($utf8) [1.2]

=over

=item $utf8: string

=back

=item $extents = $scaled_font->glyph_extents (...)

=over

=item ...: list of glyphs

=back

=item $font_face = $scaled_font->get_font_face [1.2]

=item $options = $scaled_font->get_font_options [1.2]

=item $font_matrix = $scaled_font->get_font_matrix [1.2]

=item $ctm = $scaled_font->get_ctm [1.2]

=item $type = $scaled_font->get_type [1.2]

=back

=cut

# --------------------------------------------------------------------------- #

=head3 Font Options -- How a font should be rendered

=over

=item $font_options = Cairo::FontOptions->create

=item $status = $font_options->status

=item $font_options->merge ($other)

=over

=item $other: I<Cairo::FontOptions>

=back

=item $hash = $font_options->hash

=item $bools = $font_options->equal ($other)

=over

=item $other: I<Cairo::FontOptions>

=back

=item $font_options->set_antialias ($antialias)

=over

=item $antialias: I<Cairo::AntiAlias>

=back

=item $antialias = $font_options->get_antialias

=item $font_options->set_subpixel_order ($subpixel_order)

=over

=item $subpixel_order: I<Cairo::SubpixelOrder>

=back

=item $subpixel_order = $font_options->get_subpixel_order

=item $font_options->set_hint_style ($hint_style)

=over

=item $hint_style: I<Cairo::HintStyle>

=back

=item $hint_style = $font_options->get_hint_style

=item $font_options->set_hint_metrics ($hint_metrics)

=over

=item $hint_metrics: I<Cairo::HintMetrics>

=back

=item $hint_metrics = $font_options->get_hint_metrics

=back

=cut

# --------------------------------------------------------------------------- #

=head3 FreeType Fonts -- Font support for FreeType

If your cairo library supports it, the FreeType integration allows you to load
font faces from font files.  You can query for this capability with
C<Cairo::HAS_FT_FONT>.  To actually use this, you'll need the L<Font::FreeType>
module.

=over

=item my $face = Cairo::FtFontFace->create ($ft_face, $load_flags=0)

=over

=item $ft_face: I<Font::FreeType::Face>

=item $load_flags: integer

=back

This method allows you to create a I<Cairo::FontFace> from a
I<Font::FreeType::Face>.  To obtain the latter, you can for example load it
from a file:

  my $file = '/usr/share/fonts/truetype/ttf-bitstream-vera/Vera.ttf';
  my $ft_face = Font::FreeType->new->face ($file);
  my $face = Cairo::FtFontFace->create ($ft_face);

=back

=cut

# --------------------------------------------------------------------------- #

=head2 Surfaces

=head3 I<Cairo::Surface> -- Base class for surfaces

=over

=item $new = $old->create_similar ($content, $width, $height)

=over

=item $content: I<Cairo::Content>

=item $width: integer

=item $height: integer

=back

=item $status = $surface->status

=item $surface->finish

=item $surface->flush

=item $font_options = $surface->get_font_options

=item $content = $surface->get_content [1.2]

=item $surface->mark_dirty

=item $surface->mark_dirty_rectangle ($x, $y, $width, $height)

=over

=item $x: integer

=item $y: integer

=item $width: integer

=item $height: integer

=back

=item $surface->set_device_offset ($x_offset, $y_offset)

=over

=item $x_offset: integer

=item $y_offset: integer

=back

=item ($x_offset, $y_offset) = $surface->get_device_offset [1.2]

=item $surface->set_fallback_resolution ($x_pixels_per_inch, $y_pixels_per_inch) [1.2]

=over

=item $x_pixels_per_inch: double

=item $y_pixels_per_inch: double

=back

=item $type = $surface->get_type [1.2]

=item $status = $surface->copy_page [1.6]

=over

=item $status: I<Cairo::Status>

=back

=item $status = $surface->show_page [1.6]

=over

=item $status: I<Cairo::Status>

=back

=back

=cut

# --------------------------------------------------------------------------- #

=head3 Image Surfaces -- Rendering to memory buffers

=over

=item $surface = Cairo::ImageSurface->create ($format, $width, $height)

=over

=item $format: I<Cairo::Format>

=item $width: integer

=item $height: integer

=back

=item $surface = Cairo::ImageSurface->create_for_data ($data, $format, $width, $height, $stride)

=over

=item $data: image data

=item $format: I<Cairo::Format>

=item $width: integer

=item $height: integer

=item $stride: integer

=back

=item $data = $surface->get_data [1.2]

=item $format = $surface->get_format [1.2]

=item $width = $surface->get_width

=item $height = $surface->get_height

=item $stride = $surface->get_stride [1.2]

=back

=cut

# --------------------------------------------------------------------------- #

=head3 PDF Surfaces -- Rendering PDF documents

=over

=item $surface = Cairo::PdfSurface->create ($filename, $width_in_points, $height_in_points) [1.2]

=over

=item $filename: string

=item $width_in_points: double

=item $height_in_points: double

=back

=item $surface = Cairo::PdfSurface->create_for_stream ($callback, $callback_data, $width_in_points, $height_in_points) [1.2]

=over

=item $callback: L<Cairo::WriteFunc>

=item $callback_data: scalar

=item $width_in_points: double

=item $height_in_points: double

=back

=item $surface->set_size ($width_in_points, $height_in_points) [1.2]

=over

=item $width_in_points: double

=item $height_in_points: double

=back

=back

=cut

# --------------------------------------------------------------------------- #

=head3 PNG Support -- Reading and writing PNG images

=over

=item $surface = Cairo::ImageSurface->create_from_png ($filename)

=over

=item $filename: string

=back

=item Cairo::ReadFunc: $data = sub { my ($callback_data, $length) = @_; }

=over

=item $data: binary image data, of length $length

=item $callback_data: scalar, user data

=item $length: integer, bytes to read

=back

=item $surface = Cairo::ImageSurface->create_from_png_stream ($callback, $callback_data)

=over

=item $callback: L<Cairo::ReadFunc>

=item $callback_data: scalar

=back

=item $status = $surface->write_to_png ($filename)

=over

=item $filename: string

=back

=item Cairo::WriteFunc: sub { my ($callback_data, $data) = @_; }

=over

=item $callback_data: scalar, user data

=item $data: binary image data, to be written

=back

=item $status = $surface->write_to_png_stream ($callback, $callback_data)

=over

=item $callback: L<Cairo::WriteFunc>

=item $callback_data: scalar

=back

=back

=cut

# --------------------------------------------------------------------------- #

=head3 PostScript Surfaces -- Rendering PostScript documents

=over

=item $surface = Cairo::PsSurface->create ($filename, $width_in_points, $height_in_points) [1.2]

=over

=item $filename: string

=item $width_in_points: double

=item $height_in_points: double

=back

=item $surface = Cairo::PsSurface->create_for_stream ($callback, $callback_data, $width_in_points, $height_in_points) [1.2]

=over

=item $callback: L<Cairo::WriteFunc>

=item $callback_data: scalar

=item $width_in_points: double

=item $height_in_points: double

=back

=item $surface->set_size ($width_in_points, $height_in_points) [1.2]

=over

=item $width_in_points: double

=item $height_in_points: double

=back

=item $surface->dsc_begin_setup [1.2]

=item $surface->dsc_begin_page_setup [1.2]

=item $surface->dsc_comment ($comment) [1.2]

=over

=item $comment: string

=back

=item $surface->restrict_to_level ($level) [1.6]

=over

=item $level: I<Cairo::PsLevel>

=back

=item @levels = Cairo::PsSurface::get_levels [1.6]

=item $string = Cairo::PsSurface::level_to_string ($level) [1.6]

=over

=item $level: I<Cairo::PsLevel>

=back

=item $surface->set_eps ($eps) [1.6]

=over

=item $eps: boolean

=back

=item $eps = $surface->get_eps [1.6]

=back

=cut

# --------------------------------------------------------------------------- #

=head3 SVG Surfaces -- Rendering SVG documents

=over

=item $surface = Cairo::SvgSurface->create ($filename, $width_in_points, $height_in_points) [1.2]

=over

=item $filename: string

=item $width_in_points: double

=item $height_in_points: double

=back

=item $surface = Cairo::SvgSurface->create_for_stream ($callback, $callback_data, $width_in_points, $height_in_points) [1.2]

=over

=item $callback: L<Cairo::WriteFunc>

=item $callback_data: scalar

=item $width_in_points: double

=item $height_in_points: double

=back

=item $surface->restrict_to_version ($version) [1.2]

=over

=item $version: I<Cairo::SvgVersion>

=back

=item @versions = Cairo::SvgSurface::get_versions [1.2]

=item $string = Cairo::SvgSurface::version_to_string ($version) [1.2]

=over

=item $version: I<Cairo::SvgVersion>

=back

=back

=cut

# --------------------------------------------------------------------------- #

=head2 Utilities

=head3 Version Information -- Run-time and compile-time version checks.

=over

=item $version = Cairo->version

=item $string = Cairo->version_string

=item $version_code = Cairo->VERSION

=item $version_code = Cairo->VERSION_ENCODE ($major, $minor, $micro)

=over

=item $major: integer

=item $minor: integer

=item $micro: integer

=back

=item $stride = Cairo::Format::stride_for_width ($format, $width) [1.6]

=over

=item $format: I<Cairo::Format>

=item $width: integer

=back

=back

=cut

# --------------------------------------------------------------------------- #

=head1 SEE ALSO

=over

=item L<http://cairographics.org/documentation>

Lists many available resources including tutorials and examples

=item L<http://cairographics.org/manual/>

Contains the reference manual

=back

=head1 AUTHORS

=over

=item Ross McFarland E<lt>rwmcfa1 at neces dot comE<gt>

=item Torsten Schoenfeld E<lt>kaffeetisch at gmx dot deE<gt>

=back

=head1 COPYRIGHT

Copyright (C) 2004-2009 by the cairo perl team

=cut
