#!/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/png.dbl"));
$s->setRightFill($f);

$s->drawLine(32, 0);
$s->drawLine(0, 32);
$s->drawLine(-32, 0);
$s->drawLine(0, -32);

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

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