add border around QR

also, increase cell size

1 files changed, 11 insertions, 4 deletions

diff --git a/lib/GridFiller/Result/Pango.pm b/lib/GridFiller/Result/Pango.pm
index 34b3401..442aa06 100644
--- a/lib/GridFiller/Result/Pango.pm
+++ b/lib/GridFiller/Result/Pango.pm
@@ -19,6 +19,12 @@ has cell_size => (
     default => 20,
 );
 
+has border =>  (
+    isa => Int,
+    is => 'rw',
+    default => 2,
+);
+
 has _width => (
     isa => Int,
     is => 'ro',
@@ -29,7 +35,7 @@ has _width => (
 sub _build__width {
     my ($self) = @_;
 
-    return $self->cell_size *  @{$self->source_grid->[0]};
+    return $self->cell_size *  (2*$self->border + @{$self->source_grid->[0]});
 }
 
 has _height => (
@@ -42,7 +48,7 @@ has _height => (
 sub _build__height {
     my ($self) = @_;
 
-    return $self->cell_size *  @{$self->source_grid};
+    return $self->cell_size *  (2*$self->border + @{$self->source_grid});
 }
 
 has _cairo_s => (
@@ -129,9 +135,9 @@ sub _put_squares {
     $cr->set_source_rgb(1,1,1);
     $cr->fill;
 
-    my $y=0;
+    my $y=$self->border*$size;
     for my $row (@{$self->source_grid}) {
-        my $x=0;
+        my $x=$self->border*$size;
         for my $cell (@$row) {
             if ($cell eq '*') {
                 $cr->rectangle($x,$y,$size,$size);
@@ -227,6 +233,7 @@ sub place_word_at {
     my @colour = $self->colour_for_string($word,$x,$y,$dir);
     my $size = $self->cell_size;
     my $cr = $self->_cairo_c;
+    $x+=$self->border;$y+=$self->border;
     $x*=$size;$y*=$size;
 
     my ($w_adjustment,$h_adjustment) = $self->_center_adj($p,$space);