Flines/t/t00flines.t

   1 #!perl -w
   2 use strict;
   3 use blib;
   4 use Imager;
   5 use Test::More tests => 3;
   6
   7 BEGIN { use_ok('Imager::Filter::Flines') }
   8
   9 my $im = Imager->new(xsize=>150, ysize=>150);
  10
  11 $im->box(filled=>1, xmin => 70, ymin=>25, xmax =>130, ymax => 125,
  12          color=>'00FF00');
  13 $im->box(filled=>1, xmin=>20, ymin=>25, xmax=>80, ymax=>125,
  14          color => '0000FF');
  15 $im->arc(x =>75, y=>75, r=>30, color => 'FF0000');
  16 $im->filter(type=>"conv", coef => [0.1, 0.2, 0.4, 0.2, 0.1]);
  17
  18 ok($im->filter(type=>'flines'),
  19    "try filter")
  20   or print "# ", $im->errstr, "\n";
  21 ok($im->write(file => '../testout/t00flines.ppm'),
  22    "save result");