1#!/usr/bin/perl -w
2
3use SWF qw(:ALL);
4
5die "Usage: ".$0." <sourcedir>\n" unless @ARGV;
6$mediadir="$ARGV[0]/../Media";
7
8use SWF qw(:ALL);
9
10$m = SWF::Movie::newSWFMovieWithVersion(8);
11
12$b = new SWF::Bitmap($mediadir."/image01.png");
13
14$m->addExport($b, "BitmapExport");
15$m->writeExports();
16
17$m->save("test01.swf");
18