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

use SWF qw(:ALL);

SWF::setScale(1.0);

my $f = new SWF::Font("../common/test.fdb");
my $t = new SWF::Text();
$t->setFont($f);
$t->moveTo(200, 2400);
$t->setColor(0xff, 0xff, 0);
$t->setHeight(1200);
$t->addString("fnar! fnar!");

my $m = new SWF::Movie();
$m->setDimension(5400, 3600);

$m->add($t);

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