#!/usr/bin/perl -w
use strict;
use SWF ("Shape", "Action");

SWF::setVersion(6);

my $width=200;
my $height=200;
my $m=new SWF::Movie();
$m->setDimension($width*2,$height*2);
$m->setBackground(0xFF,0xFF,0xFF);

open(AS,"fract04_f6.as");
my @as=<AS>;
$m->add(new SWF::Action("@as"));
$m->nextFrame;
$m->save("$0.swf");