1#!/usr/bin/perl -w
2
3use SWF qw(:ALL);
4
5die "Usage: ".$0." <sourcedir>\n" unless @ARGV;
6$mediadir="$ARGV[0]/../../Media";
7
8$m = SWF::Movie::newSWFMovieWithVersion(9);
9
10SWF::setScale(1.0);
11
12$f2 = new SWF::Font($mediadir."/font01.fdb");
13
14$character1 = new SWF::Text();
15$character1->setFont($f2);
16$character1->setHeight(200);
17$character1->setColor(0x00, 0x00, 0x00);
18$character1->moveTo(200, 2000);
19$character1->addString("The quick brown fox jumps over the lazy dog. 1234567890");
20
21$i1 = $m->add($character1);
22$i1->setDepth(1);
23# PlaceFlagHasMatrix
24
25$m->nextFrame(); # end of frame 1
26
27$m->assignSymbol($character1, "mytext");
28
29# SWF_END
30
31$m->save("test01.swf");
32