fix length for status, begin pango/cairo

1 files changed, 11 insertions, 6 deletions

diff --git a/script/qr-color.pl b/script/qr-color.pl
index 268d4c9..2c7735f 100644
--- a/script/qr-color.pl
+++ b/script/qr-color.pl
@@ -3,16 +3,15 @@ use utf8;
 use strict;
 use warnings;
 use Text::QRCode;
-use TextPrinter::ColourGrid;
-use TextPrinter::StarGrid;
 use GridFiller;
-use GridFiller::Scaler;
-use GridFiller::Chooser::Smarter;
+use GridFiller::Result::Pango;
 use feature 'say';
 use open ':std',':locale';
 use Log::Log4perl qw(:easy);
 Log::Log4perl->easy_init($INFO);
 
+Log::Log4perl->get_logger('GridFiller::Result::Pango')->level($DEBUG);
+
 binmode DATA,':utf8';
 
 my $data = do { local $/="\n__WORDS__\n";my $x=<DATA>;chomp $x;$x };
@@ -27,15 +26,21 @@ my $arr=$qr->plot($data);
 
 my $filler=GridFiller->new({
     words=>\@words,
-    grid=> GridFiller::Scaler->scale($arr,2),
+    grid=> $arr,
 });
 
+$filler->result(
+    GridFiller::Result::Pango->new({
+        source_grid => $filler->grid,
+    })
+);
 $filler->status->mode('longest');
+$filler->status->length(sub { int(length(shift)/2) });
 $filler->fill();
 
 my $result=$filler->result;
 
-TextPrinter::ColourGrid->new->draw_whole($result->grid,1);
+$result->save_png('/tmp/qr.png');
 
 say '';
 say 'Leftovers:';