1 files changed, 10 insertions, 1 deletions
diff --git a/script/qr-color.pl b/script/qr-color.pl
index ecf7025..45c47ee 100644
--- a/script/qr-color.pl
+++ b/script/qr-color.pl
@@ -3,6 +3,8 @@ use strict;
 use warnings;
 use Text::QRCode;
 use TextPrinter;
+use GridFiller;
+use Path::Class;
 
 my $data='MECARD:N:Ceccarelli,Gianni;TEL:+447564023056;EMAIL:dakkar@thenautilus.net;URL:http://www.thenautilus.net/contacts/;NICKNAME:dakkar;;';
 
@@ -13,4 +15,11 @@ my $qr=Text::QRCode->new(
 
 my $arr=$qr->plot($data);
 
-TextPrinter::draw_whole($arr,1);
+my @words = grep { length($_) > 2 }
+    file('/usr/share/dict/words')->slurp(chomp=>1);
+
+my $filler=GridFiller->new({words=>\@words,grid=>$arr});
+
+$filler->fill;
+
+TextPrinter::draw_whole($filler->result,1);