#!/usr/bin/perl
use strict;
use warnings;

use SVG::Rasterize;
use SVG;

my $rasterize;

my $svg = SVG->new;
my $g   = $svg->group('stroke' => 'black',
		      'stroke-width' => 3,
		      'fill'         => 'red',
		      'fill-rule'    => 'nonzero');

$g->path('d' => 'M 250,75 L 323,301 131,161 369,161 177,301 z');
$g->path('d' => 'M 600,81 A 107,107 0 0,1 600,295 '.
	        'A 107,107 0 0,1 600,81 z'.
                'M 600,139 A 49,49 0 0,1 600,237 '.
	        'A 49,49 0 0,1 600,139 z');
$g->path('d' => 'M 950,81 A 107,107 0 0,1 950,295 '.
	        'A 107,107 0 0,1 950,81 z'.
                'M 950,139 A 49,49 0 0,0 950,237 '.
	        'A 49,49 0 0,0 950,139 z');

$g = $svg->group('stroke' => 'black',
		 'stroke-width' => 3,
		 'fill'         => 'red',
		 'fill-rule'    => 'evenodd',
		 'transform'    => 'translate(0, 400)');

$g->path('d' => 'M 250,75 L 323,301 131,161 369,161 177,301 z');
$g->path('d' => 'M 600,81 A 107,107 0 0,1 600,295 '.
	        'A 107,107 0 0,1 600,81 z'.
                'M 600,139 A 49,49 0 0,1 600,237 '.
	        'A 49,49 0 0,1 600,139 z');
$g->path('d' => 'M 950,81 A 107,107 0 0,1 950,295 '.
	        'A 107,107 0 0,1 950,81 z'.
                'M 950,139 A 49,49 0 0,0 950,237 '.
	        'A 49,49 0 0,0 950,139 z');

$rasterize = SVG::Rasterize->new;
$rasterize->rasterize(width => 1200, height => 800, svg => $svg);
$rasterize->write(type => 'png', file_name => 'fill_rule.png');

__END__