#!/usr/bin/perl -w
use strict;

use SWF qw(:ALL);

SWF::setScale(1.0);

my $s = new SWF::Shape();
my $f = $s->addFill(new SWF::Bitmap("../common/backyard.jpg"));
$s->setRightFill($f);

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

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

$m->save("test.swf");