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