diff options
author | dakkar <dakkar@thenautilus.net> | 2010-12-22 16:00:16 +0000 |
---|---|---|
committer | dakkar <dakkar@thenautilus.net> | 2010-12-22 16:00:16 +0000 |
commit | c91d953548557f7c82396498ea8d33821afba5ed (patch) | |
tree | 26ceef9933bfe5b1f755182f36b51e206339ef9a /lib/GridFiller/Status.pm | |
parent | center in both directions (diff) | |
download | qr-builder-c91d953548557f7c82396498ea8d33821afba5ed.tar.gz qr-builder-c91d953548557f7c82396498ea8d33821afba5ed.tar.bz2 qr-builder-c91d953548557f7c82396498ea8d33821afba5ed.zip |
center in color runs
Diffstat (limited to 'lib/GridFiller/Status.pm')
-rw-r--r-- | lib/GridFiller/Status.pm | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/lib/GridFiller/Status.pm b/lib/GridFiller/Status.pm index 6e457b6..bf5e9e6 100644 --- a/lib/GridFiller/Status.pm +++ b/lib/GridFiller/Status.pm @@ -82,17 +82,17 @@ sub _build_grid_status { } sub place_word_at { - my ($self, $word, $x, $y, $dir) = @_; + my ($self, $word, $space, $x, $y, $dir) = @_; $self->log->debug("Marking <$word> occupied at ${x}:${y} ($dir)"); if ($dir == $HORIZONTAL) { - for my $i (0..$self->length->($word)-1) { + for my $i (0..$self->length->($word)+$space-1) { $self->_mark_occupied($x+$i,$y); } } elsif ($dir == $VERTICAL) { - for my $i (0..$self->length->($word)-1) { + for my $i (0..$self->length->($word)+$space-1) { $self->_mark_occupied($x,$y+$i); } } |