File Coverage

blib/lib/PDF/Make/Builder/Shape/Ellipse.pm

Criterion	Covered	Total	%
statement	28	28	100.0
branch			n/a
condition			n/a
subroutine	6	6	100.0
pod	1	1	100.0
total	35	35	100.0

package PDF::Make::Builder::Shape::Ellipse;
use strict;
use warnings;
use Object::Proto;

BEGIN {
    Object::Proto::define('PDF::Make::Builder::Shape::Ellipse',
        'fill_colour:Str:default(#000)',
        'x:Num:required',
        'y:Num:required',
        'w:Num:required',
        'h:Num:required',
    );
    Object::Proto::import_accessors('PDF::Make::Builder::Shape::Ellipse');
}

use constant K => 0.5522847498;

sub add {
    my ($self, $builder) = @_;
    my $page = $builder->page;
    my $canvas = $page->canvas;
    my $font = $builder->font;

    my $cx = $self->x;
    my $cy = $self->y;
    my $rx = ($self->w) / 2;
    my $ry = ($self->h) / 2;
    my ($cr, $cg, $cb) = $font->hex_to_rgb(fill_colour $self);

    my $kx = $rx * K;
    my $ky = $ry * K;

    $canvas->q->rg($cr, $cg, $cb);

    $canvas->m($cx + $rx, $cy)
           ->c($cx + $rx, $cy + $ky, $cx + $kx, $cy + $ry, $cx, $cy + $ry)
           ->c($cx - $kx, $cy + $ry, $cx - $rx, $cy + $ky, $cx - $rx, $cy)
           ->c($cx - $rx, $cy - $ky, $cx - $kx, $cy - $ry, $cx, $cy - $ry)
           ->c($cx + $kx, $cy - $ry, $cx + $rx, $cy - $ky, $cx + $rx, $cy)
           ->f->Q;

    return $self;
}

1;

__END__