filljpeg.t

来自「flash swf file player」· T 代码 · 共 31 行

BEGIN { $| = 1;}

use SWF qw(Shape Bitmap);
require 't/config.pl';

my $s = new SWF::Shape();

my $filename = ming_dir() . '/examples/common/backyard.jpg';
skip_test() unless (-e $filename);
print "1..2\n"; 

eval{
    my $b = new SWF::Bitmap($filename);
    my $f = $s->addFill($b);
    $s->setRightFill($f);
};

ok($@);

$s->drawLine(640, 0);
$s->drawLine(0, 480);
$s->drawLine(-640, 0);
$s->drawLine(0, -480);

$m = new SWF::Movie();
$m->setDimension(640, 480);
$m->add($s);

ok();