Hatena::Groupsubtech

sexさんのブログ RSSフィード

2007-08-10

Imagerでマスクを使う 16:52  Imagerでマスクを使う - sexさんのブログ を含むブックマーク はてなブックマーク -  Imagerでマスクを使う - sexさんのブログ  Imagerでマスクを使う - sexさんのブログ のブックマークコメント

use strict;
use Imager;
use Imager::Fill;

my $bgimg = Imager->new->read(file => $ARGV[0], channels => 4);
my $mask = Imager->new(
    xsize => $bgimg->getwidth,
    ysize => $bgimg->getheight,
    channels => 1,
);

$mask->box(
    color => "#ffffff",
    xmin => 0,
    ymin => $mask->getheight / 3,
    xmax => $mask->getwidth,
    ymax => $mask->getheight / 3 + $mask->getheight / 10,
    filled => 1,
);

my $fill = Imager::Fill->new(solid => "#00cccc", combine => 'mult');

my $masked = $bgimg->masked(mask => $mask);
$masked->box(fill => $fill);
$masked->write(file => 'output.jpg');

BaliBali2012/03/22 11:13Just do me a favor and keep writing such trnceahnt analyses, OK?

pcrjxepcrjxe2012/03/22 23:07JkOSIA <a href="http://kkqkxegadxfe.com/">kkqkxegadxfe</a>

hrcqxhxkkmrhrcqxhxkkmr2012/03/23 03:55q4FSZe , [url=http://zpkymywfotgo.com/]zpkymywfotgo[/url], [link=http://rnsfhthfxync.com/]rnsfhthfxync[/link], http://oaoyctwegpxd.com/

lecnqwcdkwolecnqwcdkwo2012/03/23 10:016pIWcl <a href="http://msnxdleoqxku.com/">msnxdleoqxku</a>

トラックバック - http://subtech.g.hatena.ne.jp/clouder/20070810