QRコードに絵を入れてみた。

http://diary.godtomato.net/takefumi/2005/12/22_01.htmlに紹介されてたのがおもしろそうだったので、なんか作ってみた。

#!/usr/bin/perl
use strict;
use GD;
use GD::Barcode::QRcode;

my $q = new CGI;
my $text = $q->param('t');
my $size = $q->param('s');

my $icon = GD::Image->new('mail.png');
my $qr   = GD::Barcode::QRcode->new($text, { Ecc => 'H', Version => 6, ModuleSize => $size } )->plot();
$qr->copyResized($icon, 16*$size, 18*$size, 0, 0, 17*$size, 13*$size, 17, 13);

print $q->header( -type => 'image/png' );
print $qr->png;

普通に合成するだけでいいみたい。重ねる側を透過PNGで作るとちゃんと透過考慮して重なってくれる。GDって久々に使ったけど、便利だなぁ・・・。