File: README.mkdn

package info (click to toggle)
libgraphics-primitive-driver-cairo-perl 0.47-1
  • links: PTS, VCS
  • area: main
  • in suites: bullseye, buster, sid, stretch
  • size: 148 kB
  • ctags: 28
  • sloc: perl: 774; makefile: 2
file content (121 lines) | stat: -rw-r--r-- 3,125 bytes parent folder | download
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
# NAME

Graphics::Primitive::Driver::Cairo - Cairo backend for Graphics::Primitive

# VERSION

version 0.47

# SYNOPSIS

    use Graphics::Primitive::Component;
    use Graphics::Primitive::Driver::Cairo;

    my $driver = Graphics::Primitive::Driver::Cairo->new;
    my $container = Graphics::Primitive::Container->new(
        width => 800,
        height => 600
    );
    my $black = Graphics::Primitive::Color->new(red => 0, green => 0, blue => 0);
    $container->border->width(1);
    $container->border->color($black);
    $container->padding(
        Graphics::Primitive::Insets->new(top => 5, bottom => 5, left => 5, right => 5)
    );
    my $comp = Graphics::Primitive::Component->new;
    $comp->background_color($black);
    $container->add_component($comp, 'c');

    my $lm = Layout::Manager::Compass->new;
    $lm->do_layout($container);

    my $driver = Graphics::Primitive::Driver::Cairo->new(
        format => 'PDF'
    );
    $driver->draw($container);
    $driver->write('/Users/gphat/foo.pdf');

# DESCRIPTION

This module draws Graphics::Primitive objects using Cairo.

# IMPLEMENTATION DETAILS

- **Borders**

    Borders are drawn clockwise starting with the top one.  Since cairo can't do
    line-joins on different colored lines, each border overlaps those before it.
    This is not the way I'd like it to work, but i'm opting to fix this later.
    Consider yourself warned.

# ATTRIBUTES

## antialias\_mode

Set/Get the antialias mode of this driver. Options are default, none, gray and
subpixel.

## cairo

This driver's Cairo::Context object

## format

Get the format for this driver.

## surface

Get/Set the surface on which this driver is operating.

# METHODS

## data

Get the data in a scalar for this driver.

## write ($file)

Write this driver's data to the specified file.

## get\_text\_bounding\_box ($font, $text, $angle)

Returns two [Rectangles](https://metacpan.org/pod/Graphics::Primitive::Rectangle) that encloses the
supplied text. The origin's x and y maybe negative, meaning that the glyphs in
the text extending left of x or above y.

The first rectangle is the bounding box required for a container that wants to
contain the text.  The second box is only useful if an optional angle is
provided.  This second rectangle is the bounding box of the un-rotated text
that allows for a controlled rotation.  If no angle is supplied then the
two rectangles are actually the same object.

If the optional angle is supplied the text will be rotated by the supplied
amount in radians.

## get\_textbox\_layout ($tb)

Returns a [Graphics::Primitive::Driver::TextLayout](https://metacpan.org/pod/Graphics::Primitive::Driver::TextLayout) for the supplied
textbox.

## reset

Reset the driver.

## draw

Draws the specified component.  Container's components are drawn recursively.

# ACKNOWLEDGEMENTS

Danny Luna

# AUTHOR

Cory G Watson <gphat@cpan.org>

# COPYRIGHT AND LICENSE

This software is copyright (c) 2016 by Cold Hard Code, LLC.

This is free software; you can redistribute it and/or modify it under
the same terms as the Perl 5 programming language system itself.